01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Gestão de Serviços
Função:TECA351
Ticket:Não há. 
Requisito/Story/Issue (informe o requisito relacionado) :

DSERSGS-5254


02. SITUAÇÃO/REQUISITO

Ponto de Entrada para exportação da apuração de benefícios, que será habilitado caso o parâmetro  MV_GSRHOTP contenha o valor 2 e a operação de  envio seja Exclusão

03. SOLUÇÃO 

Ponto de Entrada 

Descrição:Microsiga Protheus®
Localização:Serviços
Programa Fonte:TECA351.PRW
Função:At351Excl
Parâmetros
NomeTipoDescrição
MV_PAR01

Caractere

Contrato Inicial

MV_PAR02

Caractere

Contrato Final

MV_PAR03Data

Data Inicial da Agenda

MV_PAR04

Data

Data Final da Agenda

MV_PAR05

Caractere

Período da Folha
MV_PAR06Caractere

Número do Pagamento

MV_PAR07CaractereRoteiro
Retorno:
NomeTipoDescriçãoObrigatório
lRetLógico

Retorno de Execução do Ponto de Entrada, onde indica a execução com sucesso

Sim

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FILEIO.CH"

User Function At351EBe()

Local lRet := .T.

Local cCTTDe := ""

Local cCTTAte := ""

Local dDataDe := ""

Local dDataAte := ""

Local cPerFol := ""

Local cNumPag :=""

Local cRotFol := ""

Local cAliasAt := ""

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

Local cLinha := ""


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

                If !ExistDir(cDirArq)

                               MakeDir("\EXPCSVTEC\")

                               MakeDir("\EXPCSVTEC\"+FwCodEmp()+"\")

                               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_At351Exp"+Dtos(Date())+LTrim(Str(5))+".txt"

                If File(cDirArq+cNomeArq)

                               fErase(cDirArq+cNomeArq)

                EndIf

                nHandle := FCreate(cDirArq+cNomeArq)

                cLinha := "Contrato_Inicial=" +cCTTDe+CRLF+;

                                                 "Contrato_Final="+cCTTAte+CRLF+;

                                                 "Data_Inicial="+Dtos(dDataDe)+CRLF+;

                                                 "Data_Final="+Dtos(dDataAte)+CRLF+;

                                                 "Periodo_da_Folha="+cPerFol+CRLF+;

                                                 "Numero_do_Pagamento="+cNumPag+CRLF+;

                                                 "Roteiro="+cRotFol+CRLF

                fWrite(nHandle, cLinha)

               

                fClose(nHandle)

               

EndIf

Return lRet

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS