Histórico da Página
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: |
|
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#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
...
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
...
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
...
EndIf Return lRet |
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas