| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Financeiro |
| Função: | FINA240 – Borderô Pagamentos FINA241 - Borderô Com Impostos |
O ponto de entrada F240TBOR possibilita detectar a mudança do portador do titulo (E2_PORTADO x Portador do borderô).
| Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Caracter | Portador do titulo (E2_PORTADO). |
| PARAMIXB[2] | Caracter | Portador informado na tela do borderô. |
Não se aplica.
#INCLUDE "TOTVS.CH"
User Function F240TBOR()
Local cAntPort := ParamIXB[1] as character
Local cNovoPort := ParamIXB[2] as character
If cAntPort <> cNovoPort
FWAlertInfo("Mudança de portador. De: " + AllTrim(cAntPort) + " Para: " + AllTrim(cNovoPort) ,"Ponto de entrada F240TBOR")
Else
FWAlertInfo("Portador não alterado" ,"Ponto de entrada F240TBOR")
EndIf
Return nil |