#13: formular de facturare unificat - etapa curenta
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
This commit is contained in:
114
utile/Teste/editare_factura/test_s8_pas1_ddl_view.prg
Normal file
114
utile/Teste/editare_factura/test_s8_pas1_ddl_view.prg
Normal file
@@ -0,0 +1,114 @@
|
||||
* test_s8_pas1_ddl_view.prg
|
||||
* S8 pas 1 (planul #13) - investigare read-only, INAINTE de a scrie CREATE OR REPLACE VIEW pe
|
||||
* VVANZARI_ARTICOLE: (1) lista reala de coloane a view-ului de pe DB, in ordine, (2) numarul de
|
||||
* randuri pe id_vanzare 1050/1047 (baza de neregresie), (3) coloanele cerute de propunere pe
|
||||
* VANZARI_DETALII (exista? sunt populate?). Nu scrie nimic in Oracle. QUIT la final.
|
||||
|
||||
SET SAFETY OFF
|
||||
SET TALK OFF
|
||||
|
||||
PUBLIC gcErrLog
|
||||
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_s8_pas1_ddl_view_log.txt'
|
||||
STRTOFILE('start' + CHR(13) + CHR(10), gcErrLog)
|
||||
|
||||
ON ERROR DO test_error_handler WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
||||
|
||||
DO ('D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto.prg') WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT', 2026, 8
|
||||
IF gnHandle <= 0
|
||||
STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), gcErrLog, 1)
|
||||
QUIT
|
||||
ENDIF
|
||||
|
||||
LOCAL lcOut
|
||||
lcOut = ''
|
||||
|
||||
*!* --- 1. coloanele reale ale VVANZARI_ARTICOLE, in ordine, de pe DB ---
|
||||
LOCAL lcSql
|
||||
lcSql = [select column_id, column_name, data_type, data_length, data_precision, data_scale ] + ;
|
||||
[from all_tab_columns where owner = 'MARIUSM_AUTO' and table_name = 'VVANZARI_ARTICOLE' order by column_id]
|
||||
IF Used('crscols')
|
||||
Use In crscols
|
||||
ENDIF
|
||||
IF goExecutor.oExecute(m.lcSql, [crscols]) < 0
|
||||
lcOut = lcOut + 'EROARE coloane view: ' + goExecutor.cEroare + CHR(13) + CHR(10)
|
||||
ELSE
|
||||
lcOut = lcOut + '--- VVANZARI_ARTICOLE, coloane pe DB (owner MARIUSM_AUTO), ' + TRANSFORM(RECCOUNT('crscols')) + ' coloane ---' + CHR(13) + CHR(10)
|
||||
SELECT crscols
|
||||
SCAN
|
||||
lcOut = lcOut + TRANSFORM(column_id) + '. ' + ALLTRIM(column_name) + ' ' + ALLTRIM(data_type) + ;
|
||||
IIF(NVL(data_precision,0) > 0, '(' + TRANSFORM(data_precision) + ',' + TRANSFORM(NVL(data_scale,0)) + ')', ;
|
||||
IIF(NVL(data_length,0) > 0 AND ALLTRIM(data_type) $ 'VARCHAR2,CHAR', '(' + TRANSFORM(data_length) + ')', '')) + CHR(13) + CHR(10)
|
||||
ENDSCAN
|
||||
USE IN crscols
|
||||
ENDIF
|
||||
goExecutor.oReset()
|
||||
STRTOFILE(m.lcOut, gcErrLog, 1)
|
||||
lcOut = ''
|
||||
|
||||
*!* --- 2. numarul de randuri pe id_vanzare 1050/1047 - baza de neregresie INAINTE ---
|
||||
lcSql = [select id_vanzare, count(*) as nr from vvanzari_articole where id_vanzare in (1050,1047) and sters = 0 group by id_vanzare order by id_vanzare]
|
||||
IF Used('crscnt')
|
||||
Use In crscnt
|
||||
ENDIF
|
||||
IF goExecutor.oExecute(m.lcSql, [crscnt]) < 0
|
||||
lcOut = lcOut + 'EROARE numarare: ' + goExecutor.cEroare + CHR(13) + CHR(10)
|
||||
ELSE
|
||||
lcOut = lcOut + CHR(13) + CHR(10) + '--- randuri sters=0 pe id_vanzare 1050/1047 (INAINTE) ---' + CHR(13) + CHR(10)
|
||||
SELECT crscnt
|
||||
SCAN
|
||||
lcOut = lcOut + 'id_vanzare=' + TRANSFORM(id_vanzare) + ' -> ' + TRANSFORM(nr) + ' randuri' + CHR(13) + CHR(10)
|
||||
ENDSCAN
|
||||
USE IN crscnt
|
||||
ENDIF
|
||||
goExecutor.oReset()
|
||||
STRTOFILE(m.lcOut, gcErrLog, 1)
|
||||
lcOut = ''
|
||||
|
||||
*!* --- 3. coloanele cerute din VANZARI_DETALII (existenta) ---
|
||||
lcSql = [select column_id, column_name, data_type from all_tab_columns where owner = 'MARIUSM_AUTO' and table_name = 'VANZARI_DETALII' ] + ;
|
||||
[and column_name in ('ID_POL','ID_CTR','DIFERENTA','PRETD','ID_VALUTAD','CURS','MULTIPLICATOR','DISCOUNT_UNITAR_VAL') order by column_id]
|
||||
IF Used('crscols2')
|
||||
Use In crscols2
|
||||
ENDIF
|
||||
IF goExecutor.oExecute(m.lcSql, [crscols2]) < 0
|
||||
lcOut = lcOut + 'EROARE coloane vanzari_detalii: ' + goExecutor.cEroare + CHR(13) + CHR(10)
|
||||
ELSE
|
||||
lcOut = lcOut + CHR(13) + CHR(10) + '--- VANZARI_DETALII, coloanele cerute care EXISTA ---' + CHR(13) + CHR(10)
|
||||
SELECT crscols2
|
||||
SCAN
|
||||
lcOut = lcOut + TRANSFORM(column_id) + '. ' + ALLTRIM(column_name) + ' ' + ALLTRIM(data_type) + CHR(13) + CHR(10)
|
||||
ENDSCAN
|
||||
USE IN crscols2
|
||||
ENDIF
|
||||
goExecutor.oReset()
|
||||
STRTOFILE(m.lcOut, gcErrLog, 1)
|
||||
lcOut = ''
|
||||
|
||||
*!* --- 4. toate coloanele tabelei VANZARI_DETALII, ca sa vedem si CURS/MULTIPLICATOR daca exista sub alt nume ---
|
||||
lcSql = [select column_id, column_name, data_type from all_tab_columns where owner = 'MARIUSM_AUTO' and table_name = 'VANZARI_DETALII' order by column_id]
|
||||
IF Used('crscols3')
|
||||
Use In crscols3
|
||||
ENDIF
|
||||
IF goExecutor.oExecute(m.lcSql, [crscols3]) < 0
|
||||
lcOut = lcOut + 'EROARE toate coloane vanzari_detalii: ' + goExecutor.cEroare + CHR(13) + CHR(10)
|
||||
ELSE
|
||||
lcOut = lcOut + CHR(13) + CHR(10) + '--- VANZARI_DETALII, TOATE coloanele (' + TRANSFORM(RECCOUNT('crscols3')) + ') ---' + CHR(13) + CHR(10)
|
||||
SELECT crscols3
|
||||
SCAN
|
||||
lcOut = lcOut + TRANSFORM(column_id) + '. ' + ALLTRIM(column_name) + ' ' + ALLTRIM(data_type) + CHR(13) + CHR(10)
|
||||
ENDSCAN
|
||||
USE IN crscols3
|
||||
ENDIF
|
||||
goExecutor.oReset()
|
||||
STRTOFILE(m.lcOut, gcErrLog, 1)
|
||||
lcOut = ''
|
||||
|
||||
STRTOFILE('done' + CHR(13) + CHR(10), gcErrLog, 1)
|
||||
QUIT
|
||||
|
||||
|
||||
PROCEDURE test_error_handler
|
||||
LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo
|
||||
|
||||
STRTOFILE('EROARE ' + TRANSFORM(tnError) + ' [' + tcProgram + ':' + TRANSFORM(tnLineNo) + '] ' + tcMessage + CHR(13) + CHR(10), gcErrLog, 1)
|
||||
ENDPROC
|
||||
Reference in New Issue
Block a user