Histórico da Página

...

Local cChAntg := PARAMIXB[1] // Datos del cheque que se sustituirá
Local cChNovo := PARAMIXB[2] // Datos del cheque que se generará 
Local aAreaSEF:= SEF->(GetArea())

DbSelectArea("SEF")
SEF->(DbSetOrder(4))
IF SEF->(DbSeek(cChAntg) )

RecLock("SEF")
SEF->EF_NUMNOTA := "" //CARACTER
SEF->EF_VALORBX := 0 // NUMERICO
SEF->EF_DATAPAG := CTOD("//") // DATA
SEF->EF_TERCEIR := .F. // LOGICO
SEF→(MsUnlock())

...

SEF->(DbCloseArea())

DbSelectArea("SEF")
SEF->(DbSetOrder(4))
IF SEF->(DbSeek(cChNovo))

RecLock("SEF")
SEF->EF_NUMNOTA := "10052019001" //CARACTER
SEF->EF_VALORBX := 199.59 // NUMERICO
SEF->EF_DATAPAG := CTOD("10/05/2019") // DATA
SEF->EF_TERCEIR := .T. // LOGICO
SEF→(MsUnlock())

...