Salve salve....
Ponto de entrada MT241LOK - ( PCP - Movimento múltiplos )
MATA241-MT241LOK - Validar a linha do Item do Movimento múltiplos
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT241LOK
Validar a linha do Item do Movimento múltiplos
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT241LOK()
Local n := ParamIxb[1] as numeric
Local lRet := .T. as logical
Local fD3COD := GdFieldPos('D3_COD') as numeric
Begin Sequence
If FunName() == "MATA241"
If !SB1->( dbSeek( xFilial("SB1") + aCols[n][fD3COD ) )
MsgInfo("XXX.", "MT241LOK")
lRet := .F.; Break
Endif
EndIf
End Sequence
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima