| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Financeiro |
| Função: | FINA040 – Contas a Receber |
O ponto de entrada F040FAC permite complementar a gravação do título de FACS gerado no contas a receber.
Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB | Numérico | Recno do titulo principal (SE1). |
Não se aplica.
#INCLUDE "TOTVS.CH"
User Function F040FAC()
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 F040FAC")
//Posiciona no titulo principal
SE1->(DBGoTo(nRecnoSE1))
RestArea(aPEAreaSE1)
RestArea(aPEArea)
Return Nil |