Linha Microsiga Protheus

Árvore de páginas

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 cEmp	:= FWGrpCompany()
Local cFill	:= FwCodFil()
Local cDirArq := "\EXPCSVTEC\"+cEmp+"\" + StrTran(cFill, " ", "_")+"\"
Local cLinha := ""

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

	If !ExistDir(cDirArq)
		MakeDir("\EXPCSVTEC\")
		MakeDir("\EXPCSVTEC\"+cEmp+"\")
		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