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 |
| ||||||||||||||||||||||||
Retorno: |
|
#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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas