Marius Mutu
8e022d332e
Squash al branch-ului de lucru plan13-s2. Clase: ofacturare (nucleul formularului unificat), ofacturare_comun, ferestre_cere_date, ocomenzi, caut_ora (lista de preturi in combo-urile de cautare), omodificari. Programe: ofacturare impartit - ofacturare_antet, ofacturare_rutare_scriere si ogrid_latimi sunt fisiere noi; oproceduri_facturare primeste discountul pe linie si cota standard de TVA cand articolul nu are cota pe politica. Documentatie: capcana SQLExec no_data_found, conventia de encoding, depanarea testelor VFP si regulile de lucru - conflictele cu modificarile venite din alte proiecte sunt rezolvate pastrand ambele parti. Loguri de rulare a testelor scoase din versionare; testele raman. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01PkyjGyrV2S7932om4kfSiK
33 lines
1.3 KiB
Plaintext
33 lines
1.3 KiB
Plaintext
SET SAFETY OFF
|
|
SET TALK OFF
|
|
LOCAL lcLog
|
|
lcLog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\probe_stare_finala.log"
|
|
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13)+CHR(10), lcLog)
|
|
ON ERROR DO PErr 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
|
|
STRTOFILE("EROARE conectare" + CHR(13)+CHR(10), lcLog, 1)
|
|
QUIT
|
|
ENDIF
|
|
gnIdUtil = 8
|
|
gnIdSucursala = 167
|
|
PRIVATE poGeneratorNumere
|
|
poGeneratorNumere = CREATEOBJECT('oGeneratorNumere')
|
|
poGeneratorNumere.ResetNumere()
|
|
LOCAL ARRAY laTip[3]
|
|
laTip[1] = 3
|
|
laTip[2] = 16
|
|
laTip[3] = 26
|
|
LOCAL i, lnRezSerii
|
|
FOR i = 1 TO 3
|
|
lnRezSerii = poGeneratorNumere.creeaza_cursor_serii(laTip[i])
|
|
STRTOFILE("tip=" + TRANSFORM(laTip[i]) + " rezultat_serii=" + TRANSFORM(lnRezSerii) + ;
|
|
" paPlaje(tip,1)=" + TRANSFORM(NVL(poGeneratorNumere.paPlaje(laTip[i],1),-999)) + CHR(13)+CHR(10), lcLog, 1)
|
|
ENDFOR
|
|
STRTOFILE("END " + TTOC(DATETIME()) + CHR(13)+CHR(10), lcLog, 1)
|
|
QUIT
|
|
PROCEDURE PErr
|
|
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
|
|
STRTOFILE("ERROR " + TRANSFORM(tnErr) + " [" + tcProg + ":" + TRANSFORM(tnLine) + "] " + tcMsg + CHR(13)+CHR(10), "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\probe_stare_finala.log", 1)
|
|
ENDPROC
|