...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "protheus.ch"
/*/{Protheus.doc} F240BORD
El punto de entrada F240BORD se utilizará para tratamiento complementario después que el sistema grabe el borderó. @author
@since 03/07/2012
@version 12.1.2410
/*/ #Include "Protheus.ch"
User Function F240BORD()
Local nValor as Numeric
Local cNum as Caracter
nValor := SEB -> SEB_VALOR
cNum := SEB -> SEB_NUM
// Ejemplo de validación si el valor del borderó fuera igual a cero.
If nValor == 0
MsgInfo("O¡El borderôborderó " + cNum + " temtiene valor ZEROCERO!")
EndIf
Return |