58 lines
1.9 KiB
Plaintext
58 lines
1.9 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\probe_cont_667d.log"
|
|
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
|
|
gnIdUtil = 8
|
|
|
|
LOCAL lcSql
|
|
lcSql = "select a.id_pol, a.id_articol, e.denumire, e.cont, a.id_nota "
|
|
lcSql = lcSql + "from crm_politici_pret_art a, nom_articole e "
|
|
lcSql = lcSql + "where a.id_articol = e.id_articol and a.id_nota is not null "
|
|
lcSql = lcSql + "order by a.id_pol, a.id_articol"
|
|
DO AfLog WITH "=== randuri crm_politici_pret_art cu id_nota propriu ==="
|
|
SQLEXEC(gnHandle, lcSql, "crsartnota")
|
|
IF USED('crsartnota')
|
|
SCAN
|
|
DO AfLog WITH " pol=" + TRANSFORM(crsartnota.id_pol) + " art=" + TRANSFORM(crsartnota.id_articol) + " [" + ALLTRIM(NVL(crsartnota.denumire,[])) + "] cont=[" + ALLTRIM(NVL(crsartnota.cont,[])) + "] id_nota=" + TRANSFORM(crsartnota.id_nota)
|
|
ENDSCAN
|
|
USE IN crsartnota
|
|
ELSE
|
|
DO AfLog WITH " (niciunul sau select esuat)"
|
|
ENDIF
|
|
|
|
DO AfLog WITH "=== politica de stoc din OPTIUNI ==="
|
|
SQLEXEC(gnHandle, "select varvalue from optiuni where program='ROAFACTURARE' and varname='ID_POL_PRET_STOC'", "crsopt")
|
|
IF USED('crsopt') AND RECCOUNT('crsopt') = 1
|
|
DO AfLog WITH " ID_POL_PRET_STOC = [" + ALLTRIM(NVL(crsopt.varvalue,[])) + "]"
|
|
ENDIF
|
|
IF USED('crsopt')
|
|
USE IN crsopt
|
|
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
|