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
89 lines
3.2 KiB
Plaintext
89 lines
3.2 KiB
Plaintext
* test_s8_unicitate_cursuri.prg
|
|
* Verifica daca exista constrangere/index UNIQUE pe (ID_VANZARE, ID_VALUTA) pe VANZARI_CURSURI,
|
|
* cerut de orchestrator pentru a inchide definitiv discutia despre cardinalitatea join-ului
|
|
* folosit de VVANZARI_ARTICOLE (S8 pas 1). Nu scrie in Oracle - doar SELECT.
|
|
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
|
|
PUBLIC gcErrLog
|
|
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_s8_unicitate_cursuri_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, lcSql
|
|
lcOut = ''
|
|
|
|
*!* --- 1. constrangeri P/U pe VANZARI_CURSURI, cu coloanele in ordine ---
|
|
TEXT TO lcSql NOSHOW
|
|
select ac.constraint_name, ac.constraint_type, acc.column_name, acc.position
|
|
from all_constraints ac join all_cons_columns acc on ac.owner = acc.owner and ac.constraint_name = acc.constraint_name
|
|
where ac.owner = 'MARIUSM_AUTO' and ac.table_name = 'VANZARI_CURSURI' and ac.constraint_type in ('P','U')
|
|
order by ac.constraint_name, acc.position
|
|
ENDTEXT
|
|
IF Used('crscons')
|
|
Use In crscons
|
|
ENDIF
|
|
IF goExecutor.oExecute(m.lcSql, [crscons]) < 0
|
|
lcOut = lcOut + 'EROARE constrangeri: ' + goExecutor.cEroare + CHR(13) + CHR(10)
|
|
ELSE
|
|
lcOut = lcOut + '--- CONSTRANGERI P/U pe VANZARI_CURSURI ---' + CHR(13) + CHR(10)
|
|
IF RECCOUNT('crscons') = 0
|
|
lcOut = lcOut + '(niciuna)' + CHR(13) + CHR(10)
|
|
ELSE
|
|
SELECT crscons
|
|
SCAN
|
|
lcOut = lcOut + TRANSFORM(constraint_name) + ' | ' + TRANSFORM(constraint_type) + ' | ' + TRANSFORM(column_name) + ' | pos=' + TRANSFORM(position) + CHR(13) + CHR(10)
|
|
ENDSCAN
|
|
ENDIF
|
|
USE IN crscons
|
|
ENDIF
|
|
goExecutor.oReset()
|
|
STRTOFILE(m.lcOut, gcErrLog, 1)
|
|
lcOut = ''
|
|
|
|
*!* --- 2. indecsi (toti, cu uniqueness), coloanele in ordine ---
|
|
TEXT TO lcSql NOSHOW
|
|
select ai.index_name, ai.uniqueness, aic.column_name, aic.column_position
|
|
from all_indexes ai join all_ind_columns aic on ai.owner = aic.index_owner and ai.index_name = aic.index_name
|
|
where ai.owner = 'MARIUSM_AUTO' and ai.table_name = 'VANZARI_CURSURI'
|
|
order by ai.index_name, aic.column_position
|
|
ENDTEXT
|
|
IF Used('crsidx')
|
|
Use In crsidx
|
|
ENDIF
|
|
IF goExecutor.oExecute(m.lcSql, [crsidx]) < 0
|
|
lcOut = lcOut + 'EROARE indecsi: ' + goExecutor.cEroare + CHR(13) + CHR(10)
|
|
ELSE
|
|
lcOut = lcOut + CHR(13) + CHR(10) + '--- INDECSI pe VANZARI_CURSURI ---' + CHR(13) + CHR(10)
|
|
IF RECCOUNT('crsidx') = 0
|
|
lcOut = lcOut + '(niciunul)' + CHR(13) + CHR(10)
|
|
ELSE
|
|
SELECT crsidx
|
|
SCAN
|
|
lcOut = lcOut + TRANSFORM(index_name) + ' | ' + TRANSFORM(uniqueness) + ' | ' + TRANSFORM(column_name) + ' | pos=' + TRANSFORM(column_position) + CHR(13) + CHR(10)
|
|
ENDSCAN
|
|
ENDIF
|
|
USE IN crsidx
|
|
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
|