Árvore de páginas

Versões comparadas

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: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 Inclusão

03. SOLUÇÃO 

Ponto de Entrada 

Descrição:Microsiga Protheus®
Localização:Serviços
Programa Fonte:TECA351.PRW
Função:At351EnvRH
Parâmetros
NomeTipoDescrição
aCabec

Array

Dados do Cabeçalho (Dados da Folha de Pagamento do Atendente) da rotina automática, de:

aCabec[n, 01] - Nome do campo da Rotina Automática

aCabec[n, 02] - Valor do campo da Rotina Automática

aItens

Array

Dados dos itens da rotina automática, onde:

aItens[n] - Item a ser inserido: Valores das Verbas de Benefícios.

Se n for ímpar é uma marcação de Entrada, caso contrário, será uma saída, onde:

aItens[n][y, 01] - Nome do campo da Rotina Automática

aItens[n][y, 02]- Valor do campo da Rotina Automática

nOpcNumérico

Opção de Execução da Rotina Automática, onde:

3 - Inclusão

lCabLógicoPrimeira Execução da rotina 
Retorno:
NomeTipoDescriçãoObrigatório
lRetLógico

Retorno de Execução do Ponto de Entrada, onde indica a execução com sucesso

Sim

...

Local cDetLinha := ""

Local nC := 0

Local cEmp := FWGrpCompany()

Local cFil := FwCodFil()

Local cDirArq := "\EXPCSVTEC\"+cEmpAntcEmp+"\" + StrTran(cFilAntcFil, " ", "_")+"\"

Local lFirstProc := .F.

...

                               MakeDir("\EXPCSVTEC\"+cEmpAntcEmp+"\")

                               MakeDir(cDirArq)

...

                               nHandle := FOpen(cDirArq+cNomeArq, FO_READWRITE)

                               FSeek(nHandle, 0, 2)

...

                                               Next nY                                               cDetLinha := Substr(cDetLinha, 1, Len(cDetLinha)-1) + CRLF

                                               fWrite(nHandle, cDetLinha)

...

                lRet := .F.

EndIf

Return lRet

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

...