Salve salve....
Ponto de entrada MA261IN - ( Transferencias Mod II )
MATA261-MA261IN - Adicionar valor a campos customizados
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MA261IN
Adicionar valor a campos customizados
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MA261IN()
Local nPMotBlq := aScan(aHeader,{|x| AllTrim(x[2])=="D3_XMOTBLO"})
Local aAreaSD3 := SD3->(GetArea())
If Funname() == "MATA261"
SD3->(dbGoTo(_nRecnoSD3))
IF nPMotBlq > 0
aCols[Len(aCols),nPMotBlq] := IIF(INCLUI,CriaVar("D3_XMOTBLO",.F.),SD3->D3_XMOTBLO)
EndIf
EndIf
RestArea(aAreaSD3)
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima