Cross Segmentos - TOTVS BackOffice (Línea Protheus) MI - Financiero (SIGAFIN) - ¿Cuál es la funcionalidad del punto de entrada A850PAOK?

Tiempo aproximado para lectura: 00:01:00 min

Duda
¿Cuál es la funcionalidad del punto de entrada A850PAOK?

Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) MI - Financiero (SIGAFIN) - A partir de la versión 12

Solución

El punto de entrada A850PAOK, permite la generación de anticipo - PA, en la rutina de orden de pago modelo II (MODII), en la rutina Finanzas (FINA850).

Permite el uso de la variable Private cNature.

Ejemplo:

#Include 'Protheus.ch'

User Function A850PAOK()
Local lRet :=.T.

If !(MsgYesNo("Confirma pagamento do titulo "+ParamIxb[1][1][1][10]+" para o provedor "+ ParamIxb[1][1][1][1] +"\"+ParamIxb[1][1][1][16]+" no valor de "+Transform(ParamIxb[1][1][1][6],"@E 9,999,999,999,999.99")+"?"))

lRet :=.F.

Endif

If lRet .and. !MsgYesNo("Confirma o uso de tipo "+ParamIxb[1][3][2][1][1]+" em moeda "+ ParamIxb[1][3][2][1][4] +" com data de emissão "+dtoc(ParamIxb[1][3][2][1][11])+" e de vencimento "+dtoc(ParamIxb[1][3][2][1][12])+"?")

lRet :=.F.

Endif

If lRet.and. !MsgYesNo("Confirma o uso da natureza "+cNatureza+"?")

lRet :=.F.

Endif

Return Lret

Para mayor información, consulte el siguiente enlace:  https://tdninterno.totvs.com/pages/releaseview.action?pageId=184779783