01. DADOS GERAIS

Linha de Produto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financeiro

Função:

FINA040 – Contas a Receber

02. DESCRIÇÃO

O ponto de entrada F040COF permite complementar a gravação do título de COFINS gerado no contas a receber.

03. PARÂMETROS

Nome

Tipo

Descrição

PARAMIXB

Numérico

Recno do titulo principal (SE1).

04. RETORNO

Não se aplica.

05. EXEMPLO DE UTILIZAÇÃO


#INCLUDE "TOTVS.CH"

User Function F040COF()
Local aPEArea       := GetArea() as array
Local aPEAreaSE1    := SE1->(GetArea()) as array
Local nRecnoSE1     := ParamIXB as numeric //recno do titulo principal

FWAlertInfo("Titulo: " + AllTrim(SE1->E1_NUM) + " Tipo: " + AllTrim(SE1->E1_TIPO),"Ponto de entrada F040COF")

//Posiciona no titulo principal
SE1->(DBGoTo(nRecnoSE1))

RestArea(aPEAreaSE1)
RestArea(aPEArea)

Return nil