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

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

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

Solución
El punto de entrada A087TUDOK permite validar y asignar valores en los campos del encabezado de un recibo de cobro.

En la función de usuario de ejemplo que se muestra a continuación, se obtiene el valor de un campo de la tabla SA1 - Clientes y es asignado a la variable cCobrador. La variable cCobrador corresponde al campo Cobrador del encabezado del recibo.

Ejemplo:

User Function A087TUDOK()

Local lValida := .T.
Local aAreaV := SA1->(GetArea())

If !Empty(cCliente+cLoja) .And. Empty(cCobrador) .And. nPanel == 1
     dbSelectArea("SA1")
     dbSetOrder(1)

     If SA1->(msSeek(xFilial("SA1")+cCliente+cLoja))
           cCobrador := SA1->A1_COBRAD
     EndIf
 
     RestArea(aAreaV)
     If Empty(cCobrador)
           lValida := .F.
     EndIf
     If !lValida
           msgAlert("No fue informado el cobrador")
     EndIf
EndIf

Return lValida

Nota: El campo A1_COBRAD es un campo de usuario y no viene por estándar en el Sistema.

Conozca más
Para adquirir más conocimiento, acceda al siguiente enlace de TDN:
https://tdn.totvs.com.br/pages/releaseview.action?pageId=165282518