Salve salve....
Ponto de entrada F460VAL - ( Financeiro - Liquidação )
FINA460-F460VAL - Grava dados complementares
F460SE1
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F460VAL
Grava dados complementares
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function F460VAL()
Local aComplem := PARAMIXB
Local nI := 0
Local nLenArray := Len(aComplem)
If Reclock('SE1', .F. )
For nI := 1 to nLenArray
SE1->&(aComplem[nI, 01]) := aComplem[nI, 02]
Next nI
SE1->( MsUnlock() )
SE1->( dbCommit() )
Endif
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima