Árvore de páginas

Ponto de entrada criado para alterar o array de títulos do bloco F100

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina

Nome Técnico

FISA001

Apuração EDF Contribuições

SPEDPISCOFSped Pis Cofins

Ponto de Entrada:

SPD100FIN

Chamados Relacionados

TUEWQ5

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Descrição

Incluso ponto de entrada SPD100FIN para manipulação do array do bloco F100 que contem os títulos que serão enviados para o bloco.

 

Ponto de Entrada

Descrição:

FISA001 - Apuração EDF Contribuições

Eventos:

FISA001

Programa Fonte:

Apuração EDF Contribuições

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRet

Array

Retorna o array contendo os títulos que serão enviados para o bloco F100

Sim


#include 'totvs.ch'

User Function SPD100FIN()
Local aRet := ParamIxb[1]
Local nx := 1

If Len(aRet) > 0
   For nx := 1 to Len(aRet)
         If empty(aRet[nx][17])
              aRet[nx][17] := "000 01"
         EndIf
    Next
EndIf

Return aRet