Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Financiero (SIGAFIN) - Uso del Punto de Entrada A087TUDOK

Tiempo aproximado de lectura 00:03:00 min

Duda
Uso del Punto de Entrada A087TUDOK

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

Solución 
El punto de entrada A087TUDOK permite la validación del panel de pago del modelo II (MODII) en la rutina financiera (FINA850) 

Permite el uso de la variable cNatureza 

Enlace: A085TUDOK- Validação do painel de ordem de pagamento do modelo II (MODII) 

Ejemplo:

#INCLUDE "Totvs.ch"

User Function A085TUDOK()

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