52 lines
1.7 KiB
Plaintext
52 lines
1.7 KiB
Plaintext
SET SAFETY OFF
|
|
SET TALK OFF
|
|
SET NOTIFY OFF
|
|
CLOSE DATABASES
|
|
|
|
PUBLIC gcLog
|
|
gcLog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\restore_pol41.log"
|
|
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLog)
|
|
ON ERROR DO AfErr WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
|
|
|
DO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto_roafacturare.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
|
|
IF TYPE('gnHandle') <> 'N' OR gnHandle <= 0
|
|
DO AfLog WITH "FAIL: conexiune Oracle esuata"
|
|
DO Final
|
|
ENDIF
|
|
|
|
SQLEXEC(gnHandle, "select id_pol, nume_lista_preturi, id_nota from crm_politici_preturi where id_pol in (41,43) order by id_pol", "crsbefore")
|
|
IF USED('crsbefore')
|
|
SCAN
|
|
DO AfLog WITH "INainte: id_pol=" + TRANSFORM(crsbefore.id_pol) + " [" + ALLTRIM(NVL(crsbefore.nume_lista_preturi,[])) + "] id_nota=" + TRANSFORM(NVL(crsbefore.id_nota,0))
|
|
ENDSCAN
|
|
USE IN crsbefore
|
|
ENDIF
|
|
|
|
SQLSETPROP(gnHandle, "Transactions", 2)
|
|
SQLEXEC(gnHandle, "update crm_politici_preturi set id_nota = 6 where id_pol = 41")
|
|
SQLEXEC(gnHandle, "commit")
|
|
SQLEXEC(gnHandle, "select id_pol, nume_lista_preturi, id_nota from crm_politici_preturi where id_pol in (41,43) order by id_pol", "crsafter")
|
|
IF USED('crsafter')
|
|
SCAN
|
|
DO AfLog WITH "Dupa: id_pol=" + TRANSFORM(crsafter.id_pol) + " [" + ALLTRIM(NVL(crsafter.nume_lista_preturi,[])) + "] id_nota=" + TRANSFORM(NVL(crsafter.id_nota,0))
|
|
ENDSCAN
|
|
USE IN crsafter
|
|
ENDIF
|
|
|
|
DO Final
|
|
|
|
PROCEDURE AfLog
|
|
LPARAMETERS tcMsg
|
|
STRTOFILE(tcMsg + CHR(13) + CHR(10), gcLog, 1)
|
|
ENDPROC
|
|
|
|
PROCEDURE AfErr
|
|
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
|
|
DO AfLog WITH "ERROR " + TRANSFORM(tnErr) + " [" + tcProg + ":" + TRANSFORM(tnLine) + "] " + tcMsg
|
|
ENDPROC
|
|
|
|
PROCEDURE Final
|
|
DO AfLog WITH "END " + TTOC(DATETIME())
|
|
QUIT
|
|
ENDPROC
|