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: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 

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:



#INCLUDE 'PROTHEUS.CH'
#Include 'FWMVCDEF.CH'

User Function At960EsRt()

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

Local cLinha := ""

Local nC := 0

Local lFirstProc := .F.


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

                If !ExistDir(cDirArq)

                               MakeDir("\EXPCSVTEC\")

                               MakeDir("\EXPCSVTEC\"+FWGrpCompany()+"\")

                               MakeDir(cDirArq)

                EndIf


                cNomeArq := "U_At960EsRt"+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 := "Atendente_Inicial=" +PARAMIXB[01]+CRLF+;

                                                                 "Atendente_Final="+PARAMIXB[02]+CRLF+;

                                                                 "Data_Inicial="+Dtos(PARAMIXB[03])+CRLF+;

                                                                 "Data_Final="+Dtos(PARAMIXB[04])+CRLF+;

                                                                 "Competencia_da_Folha="+PARAMIXB[05]+CRLF+;

                                                                 "Sobrescreve_Rateio="+AllTrim(cValToChar(PARAMIXB[06]))+CRLF+;

                                                                 "Processamento=Estorno"+CRLF+;

                                                      "GeraLog="+AllTrim(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

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS