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:

Ponto de Entrada:

SPD100FIN

Chamados Relacionados

TUEWQ5

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

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.

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