Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (fabiana.silva)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Renata Aparecida Teodoro de Santana

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

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

DSERSGS-5422


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 

Retorno de Execução do Ponto de Entrada, onde indica a execução com sucesso
Descrição:Microsiga Protheus®
Localização:Serviços
Programa Fonte:TECA960.PRW
Função:A960VldPrR
Parâmetros
NomeTipoDescrição
MV_PAR01

Caractere

Atendente Inicial

MV_PAR02

Caractere

Atendente Final

MV_PAR03Data

Data Inicial da Agenda

MV_PAR04

Data

Data Final da Agenda

MV_PAR05

Caractere

Competência da Folha
MV_PAR06Caractere

Sobrescreve Rateio 1=Sim;2=Não

MV_PAR07CaractereProcessamento  = 2=Estorno
MV_PAR08CaractereGeraLog 1=Total;2=Apenas Erro
aAtendArrat

Dados dos rateios dos Atendentes onde:

aAtend[n, 1] - Código do Atendente

aAtend[n, 2] - Total de Lançamento

aAtend[n, 3] - Local

aAtend[n, 4] - Centro de Custo

aAtend[n, 5] - Matrícula

aAtend[n, 6] - Filial Matrícula

Retorno:
NomeTipoDescriçãoObrigatório
lRetLógicoSim



#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="+cNumPag+AllTrim(cValToChar(PARAMIXB[06]))+CRLF+;

                                                                 "Processamento=Estorno"+CRLF+;

                                                        "RoteiroGeraLog="+cRotFol+CRLFAllTrim(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á.

05. ASSUNTOS RELACIONADOS