Histórico da Página

...

#INCLUDE "#INCLUDE 'PROTHEUS.CH"
#INCLUDE "FILEIO'
#Include 'FWMVCDEF.CH"'

User Function At351EBeAt960EsRt()

Local lRet := .T.

Local cCTTDe := ""

Local cCTTAte := ""

Local dDataDe := ""

Local dDataAte := ""

Local cPerFol := ""

Local cNumPag :=""

Local cRotFol := ""

Local cAliasAt := ""

Local cDirArq := "\EXPCSVTEC\"+FwCodEmpFWGrpCompany()+"\" + StrTran(FwCodFil(), " ", "_")+"\"

Local cLinha := ""

Local nC := 0

Local lFirstProc := .F.

If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 8

...

                               MakeDir("\EXPCSVTEC\"+FwCodEmpFWGrpCompany()+"\")

                               MakeDir(cDirArq)

                EndIf

                cCTTDe := PARAMIXB[01]

                cCTTAte := PARAMIXB[02]

                dDataDe := PARAMIXB[03]

                dDataAte := PARAMIXB[04]

                cPerFol := PARAMIXB[05]

                cNumPag :=PARAMIXB[06]

                cRotFol := PARAMIXB[07]

                cAliasAt := PARAMIXB[08]

                cNomeArq := "U_At351ExpAt960EsRt"+Dtos(Date())+LTrim(Str(5))+".txt"

                lFirstProc := PARAMIXB[10]

                If lFirstProc .AND. File(cDirArq+cNomeArq)

                               fErase(cDirArq+cNomeArq)

                EndIf

                If !File(cDirArq+cNomeArq)

                               nHandle := FCreate(cDirArq+cNomeArq)

                Else

                               nHandle := FOpen(cDirArq+cNomeArq, FO_READWRITE)

                               FSeek(nHandle, 0, 2)

                EndIf

                If lFirstProc

                               cLinha := "ContratoAtendente_Inicial=" +cCTTDePARAMIXB[01]+CRLF+;

                                                                                                                "ContratoAtendente_Final="+cCTTAtePARAMIXB[02]+CRLF+;

                                                                                                                "Data_Inicial="+Dtos(dDataDePARAMIXB[03])+CRLF+;

                                                                                                                "Data_Final="+Dtos(dDataAtePARAMIXB[04])+CRLF+;

                                                                                                                "PeriodoCompetencia_da_Folha="+cPerFolPARAMIXB[05]+CRLF+;                                              

                                                                 "NumeroSobrescreve_do_PagamentoRateio="+cNumPagAllTrim(cValToChar(PARAMIXB[06]))+CRLF+;

                                                                 "Processamento=Estorno"+CRLF+;

                                                        "RoteiroGeraLog="+cRotFol+AllTrim(cValToChar(PARAMIXB[08]))+CRLF+CRLF

                               fWrite(nHandle, cLinha)

                EndIf

                For nC := 1 to Len(PARAMIXB[09])

                               cLinha :=              "Atendente="+ PARAMIXB[09][nC][01]+"|"+;

                                                                               "Total_Lancamento="+ AllTrim(cValToChar(PARAMIXB[09][nC][02]))+"|"+;

                                                                               "Local="+PARAMIXB[09][nC][03] +"|"+;

                                                                               "Centro_Custo="+PARAMIXB[09][nC][04] +"|"+;

                                                                               "Matricula="+ PARAMIXB[09][nC][05]+"|"+;

                                                                               "Filial_Matr="+PARAMIXB[09][nC][06] +"|"+ CRLF

                               fWrite(nHandle, cLinha)

                Next nC

                fClose(nHandle)

EndIf

Return lRet

04. DEMAIS INFORMAÇÕES

Não há.

...