Situaes do Campo E5_TIPODOC Maio 17, 2012 - Posted by Luiz Alberto in Dicas Protheus E5_TIPODOCDESCRIOAltera Saldo Bancrio / CaixaAPAplicaoSimBABaixa de tituloNoBDTransferncia por border descontado SimBLBaixa por LoteSimC2Correo Monetria de titulo em carteira descontadaNoCACancelamento de Cheque AvulsoSimCBCancelamento de Transferncia por border descontadoSimCDCheque pr datado via Movimento Bancrio ManualNoCHChequeSimCMCorreo MonetriaNoCPCompensao CR ou CPNoCXCorreo MonetriaNoD2Desconto em ttulo em carteira descontadaNoDBDespesas bancriasSimDCDescontoNoE2Estorno de movimento de desconto (Cobrana Descontada) SimECEstorno de chequeSimEPEmprestimoSimESEstorno de BaixaSimISImposto Substitutivo (Localizaes) NoJ2Juros de titulo em carteira descontada NoJRJurosNoLJMovimento do SigaLojaSimM2Multa de titulo em carteira descontada NoMTMultaNoOCOutros CrditosSimODOutras DespesasSimOGOtras Ganancias (Localizaes)NoPAIncluso PASimPEPagamento EmprstimoSimR$DinheiroSimRAIncluso RASimRFResgate de AplicaesSimSGEntrada de Dinheiro no Caixa (Loja) SimTCTrocoSimTEEstorno de transferncia (Movimento Bancrio Manual)SimTLTolerncia de RecebimentoNoTRTransferncia para carteira descontada SimV2Baixa de titulo em carteira descontada SimVLBaixa de tituloSimVMVariao MonetriaNoCriao de Diretrios pelo Protheus Janeiro 12, 2012 - Posted by Luiz Alberto in Dicas Programao ADVPL /*//----------------------------------------------------------------------{Protheus.doc} MakePath

Gera o caminho completo da pasta,Ex:C:\pasta1\pasta2\pasta3\pasta4\pasta5\pasta6\ou\pasta1\pasta2\pasta3\pasta4\pasta5\pasta6\

@author SergioSouza(DSM)@mailTo sergeduardo@gmail.com@since 18.02.2011@version P10 R1.3 - Updated

@param cFullPath - Caminho completo a ser criado.

@obsSe cFullPath possui drive, ex: c:\PastaCriadaPeloBonaNoSmartClient,entao ela sera criada no cliente (Remote).

Se cFullPath possui caminho, ex: \PastaCriadaPeloBonaNoProtheus_Data,entao a pasta sera criada no Protheus data.

Alteracoes Realizadas desde a Estruturacao Inicial----------+--------------+---------------------------------------------Data Programador Motivo----------+--------------+---------------------------------------------//---------------------------------------------------------------------*/Function MakePath(cFullPath)

Local nPathNAt := At(':',cFullPath)Local cPathFil := Left( cFullPath, nPathNAt )Local aTmpPath := StrToKArr( Right(cFullPath, Len(cFullPath) - nPathNAt ) ,'\')Local nFolders := Len(aTmpPath)Local nY := 0

For nY := 1 To nFolderscPathFil += '/' + aTmpPath[nY]Iif( !ExistDir(cPathFil), MakeDir(cPathFil), Nil )Next

Return( ExistDir(cFullPath) )

Funes de Tratamento de DATA Outubro 28, 2011 - Posted by Luiz Alberto in Dicas Programao ADVPL Utilize a funo em Advpl MonthSum( dDate , nMonth ) -> dNewDate. A inversa da MonthSum() aMonthSub( dDate , nMonth ) -> dNewDate.

Abaixo algumas funes teis para trabalhar com datas em Advpl.

MesDia( dDate ) -> String MMDD onde MM Mes e DD DiaAnoMes( dDate ) -> String AAAAMM onde AAAA Ano e MM MesDay2Str( uData ) -> String DD onde uData podera ser uma Data, um valor numrico ou um caracter nuricoMonth2Str( uData ) -> String MM exemplo conforme Day2Str()Year2Str( uData ) -> String AAAA exemplo conforme Day2Str()DaySum( dDate , nDays ) -> dNewDate Soma dia(s) a uma DataDaySub( dDate , nDays ) -> dNewDate Subtrai dia(s) de uma DataYearSum( dDate , nYear ) -> dNewYear ( soma Ano(s) a uma data )YearSub( dDate , nYear ) -> dNewDate ( Subtrai Ano(s) de uma data )DateDiffDay( dDate1 , dDate2 ) -> nDiffDay ( Diferenca em dias entre duas datasDateDiffMonth( dDate1 , dDate2 ) -> dDiffMonth ( Diferenca em meses entre duas datas )DateDiffYear( dDate1 , dDate2 ) -> nDiffYear ( Diferenca em anos entre duas datas )DateDiffYMD( dDate1 , dDate2 ) -> { nDiffYerar , nDiffMonth, nDiffDay } ( Diferenca de Anos, Meses e Dias entre duas datas )Last_Day( dDate ) -> nLastDay -> Retorna o ltimo dia do mes de uma dataFirstDate( dDate ) -> dFristDate -> Retorna a Data do Primeiro dia do mes da data passadaLastDate( dDate ) -> dLastDate -> Retorna a Data do ltimo dia do mes da data passadaFirstYDate( dDate ) -> dFirstYDate -> Retorna a Data do Primeiro dia do Ano da Data PassadaLastYDate( dDate ) -> dLastYDate -> Retorna a Data do ltimo dia do Ano da Data PassadaDiaSemana( dData , nTam , nDia ) -> Retorna a Descrio do Dia da Semana conforme parmetros