* probe_trace_editare.prg - trace pas cu pas a do_editare_unificata (replica, read-only in afara de
* obiectele in memorie) pe documentele 1055 (PASS) si 1113 (FAIL), ca sa gaseasca unde diverg.
* Diagnostic pentru docs\triaj_s8_regresie_28fail.md. Nu scrie in Oracle.

SET SAFETY OFF
SET TALK OFF

PUBLIC gcErrLog
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_trace_editare_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_roafacturare.prg') WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
IF gnHandle <= 0
	STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), gcErrLog, 1)
	QUIT
ENDIF
gnIdUtil = 8

SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\programe\ofacturare_editare.prg ADDITIVE

LOCAL lcProcExistent
lcProcExistent = SET("PROCEDURE")
SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg", &lcProcExistent

PUBLIC gcMockUltimMesaj, gnMockUltimTip, gnMockRaspuns
gcMockUltimMesaj = ''
gnMockUltimTip = 0
gnMockRaspuns = 6

PROCEDURE Traseaza(tcDoc, tcMsg)
	STRTOFILE(tcDoc + ': ' + tcMsg + CHR(13) + CHR(10), gcErrLog, 1)
ENDPROC

*!* driver minimal: gaseste FRM_FACTURARE_ARTICOLE2 in _SCREEN.Forms si il elibereaza, ca sa nu
*!* blocheze la infinit modalul din proba (acelasi tipar ca driverS8p7 din test_s8_pas7_cablare.prg)
DEFINE CLASS driverTrace AS Custom
	lBusy = .F.
	lGasit = .F.
	PROCEDURE Reseteaza
		This.lGasit = .F.
	ENDPROC
	PROCEDURE Executa
		IF This.lBusy OR This.lGasit
			RETURN
		ENDIF
		This.lBusy = .T.
		LOCAL lnI, loFrm2
		TRY
			FOR lnI = 1 TO _SCREEN.FormCount
				IF Upper(_SCREEN.Forms(m.lnI).Class) == 'FRM_FACTURARE_ARTICOLE2'
					loFrm2 = _SCREEN.Forms(m.lnI)
					This.lGasit = .T.
					STRTOFILE('driverTrace: gasit form, WindowType=' + Transform(loFrm2.WindowType) + CHR(13) + CHR(10), gcErrLog, 1)
					loFrm2.Release()
					EXIT
				ENDIF
			ENDFOR
		CATCH TO loExcTrace
			STRTOFILE('driverTrace EROARE ' + Transform(loExcTrace.ErrorNo) + ' ' + loExcTrace.Message + CHR(13) + CHR(10), gcErrLog, 1)
		FINALLY
			This.lBusy = .F.
		ENDTRY
	ENDPROC
ENDDEFINE

PUBLIC goDriverTrace
goDriverTrace = Createobject('driverTrace')
_SCREEN.AddObject('tmrTrace', 'Timer')
_SCREEN.tmrTrace.Interval = 150
Bindevent(_SCREEN.tmrTrace, 'Timer', goDriverTrace, 'Executa')
_SCREEN.tmrTrace.Enabled = .T.

PROCEDURE VerificaTrace
	LPARAMETERS tnIdVanzare
	LOCAL lcDoc, lnSucces, lcSchema, lcSelect, lcOrder, lcFiltru
	lcDoc = Transform(tnIdVanzare)

	IF Used('crsfacturi')
		Use In crsfacturi
	ENDIF
	lcSchema = ['ales n(1),id_vanzare n(20),id_comanda n(20),dataora t,dataora_exp t,data_act d,data_scad d,sters n(1),dataoras t,numar_act n(14),serie_act c(10),'+] + ;
		['tip n(5),id_part n(10),discount n(17,4),disc_fara_tva n(17,4),discount_evidentiat n(1),text_aditional M,facturat n(1),data_facturat t,'+] + ;
		['explicatie c(240),altele c(200),client c(100),cod n(20),id_util I,utilizator c(30),utils c(30),utilfact c(30),delegat c(70),'+] + ;
		['bidelegat c(30),cnpdelegat c(15),nume_agent c(70),nrinmat c(10),total_fara_tva n(20,4),total_tva n(20,4),total_cu_tva n(20,4),id_gestiune n(10),'+] + ;
		['serie_chit c(20),nr_incasare n(10),incasat n(17,4),in_valuta n(1),sucursala c(100),id_ruta n(10),ruta c(100),curs n(20,4),multiplicator n(10),nume_val c(50),'+] + ;
		['valuta c(50), id_valuta n(5), valval n(20,4), tvaval n(20,4), totval n(20,4),'+] + ;
		['id_delegat n(10),id_agent n(10),id_masina n(10),valoarea N(20,4),nume_gestiune C(50),id_sectie n(5),sectie c(50),id_lucrare n(20), lucrare c(200),'+] + ;
		['tip_incasare n(10),afisare_scadenta n(1),id_ordl n(10),tva_incasare n(1),listare_detaliata n(1),'+] + ;
		['id_facturare n(10),adresa_facturare c(250),email_facturare c(100),adresa_client c(250),email_client c(100),adresa_beneficiar c(250),email_beneficiar c(100),'+] + ;
		['id_beneficiar n(20),beneficiar C(100),tip_factura N(5),ctip_factura C(100), id_ctr N(10), contract C(100),eproforma N(1),tip_saft N(3) null,tip_saftname V(250) null,'+]+;
		['id_livrare N(10),adresa_livrare V(250), denumire_adresa_livrare V(100), email_livrare V(100),institutie_publica N(1) null,efactura N(1) null,cod_fiscal C(20),id_fact N(20)']

	lcSelect = ['select 0 as ales,id_vanzare,id_comanda,dataora,dataora_exp,data_act,data_scad,sters,dataoras,numar_act,serie_act,'+] + ;
		['tip,id_part,discount,disc_fara_tva,discount_evidentiat,text_aditional,facturat,data_facturat,'+] + ;
		['explicatie,altele,client,cod,id_util,utilizator,utils,utilfact,delegat,bidelegat,cnpdelegat,'+] + ;
		['nume_agent,nrinmat,total_fara_tva,total_tva,total_cu_tva,id_gestiune,serie_chit,nr_incasare,incasat,'+] + ;
		['in_valuta,sucursala,id_ruta,ruta,curs,multiplicator,nume_val,'+] + ;
		['valuta,id_valuta,valval,tvaval,totval,'+] + ;
		['id_delegat,id_agent,id_masina,valoarea,'+] + ;
		['nume_gestiune,id_sectie,sectie,id_lucrare,lucrare,tip_incasare,afisare_scadenta,id_ordl,tva_incasare,listare_detaliata,'+] + ;
		['id_facturare,adresa_facturare,email_facturare,adresa_client,email_client,adresa_beneficiar,email_beneficiar,'+] + ;
		['id_beneficiar, beneficiar, tip_factura, ctip_factura, id_ctr, contract, eproforma,tip_saft,tip_saftname, '+]+;
		['id_livrare,adresa_livrare,denumire_adresa_livrare,email_livrare,institutie_publica,efactura,cod_fiscal,id_fact from fact_vfacturi where ']

	lcOrder = [data_act,numar_act]
	lcFiltru = [id_vanzare = ] + lcDoc
	gencursor('poFacturi', 'crsfacturi', lcSelect, lcFiltru, lcSchema, lcOrder, .F., [], .F., [])
	DO Traseaza WITH lcDoc, 'crsfacturi Reccount=' + Transform(Reccount('crsfacturi'))

	LOCAL lnSters, llEProforma, lnTipDoc, loForm, pnDiscountRon, pnDiscountValuta
	Private pnAn, pnLuna, lnCod, lnIdFact, lnIdVanzare, poDate
	Store 0 To pnAn, pnLuna, lnCod, lnIdFact, lnIdVanzare
	Select crsfacturi
	lnIdVanzare = id_vanzare
	lnCod = cod
	pnAn = Year(data_act)
	pnLuna = Month(data_act)
	lnSters = sters
	lnIdFact = id_fact
	llEProforma = (eproforma = 1)
	lnTipDoc = tip
	DO Traseaza WITH lcDoc, 'garzi: sters=' + Transform(lnSters) + ' eproforma=' + Transform(llEProforma) + ' tip=' + Transform(lnTipDoc) + ;
		' luna_ok=' + Transform((pnAn*12+pnLuna)==(gnAn*12+gnLuna)) + ' referinte=' + Transform(ReferinteDocumenteNota(pnAn,pnLuna,lnCod)) + ;
		' efactura=' + Transform(EsteInEFactura(lnIdFact)) + ' urmasi=' + Transform(DocumentAreUrmasi(lnIdVanzare))

	poDate = IncarcaAntetFacturaEditare(lnIdVanzare, @pnDiscountRon, @pnDiscountValuta)
	DO Traseaza WITH lcDoc, 'IncarcaAntetFacturaEditare Vartype=' + Vartype(poDate)
	IF Vartype(poDate) <> 'O'
		DO Traseaza WITH lcDoc, 'ABANDON: poDate nu e obiect'
		RETURN
	ENDIF
	DO Traseaza WITH lcDoc, 'poDate.tip=' + Transform(poDate.tip) + ' poDate.incasat=' + Transform(poDate.incasat) + ' poDate.lEditare=' + Transform(poDate.lEditare) + ' poDate.ntip_incasare=' + Transform(poDate.ntip_incasare)

	IncarcaLiniiFacturaEditare(poDate, lnIdVanzare)
	DO Traseaza WITH lcDoc, 'IncarcaLiniiFacturaEditare terminat'

	update_jtva_coloane([JV], [jtva_coloane_temp])
	update_saft_taxtable()
	IF Used('jtva_coloane')
		Use In jtva_coloane
	ENDIF
	IF poDate.tva_incasare = 0
		Select * From jtva_coloane_temp Where Isnull(id_jtva_ex) And !'RORTC'$Upper(coloana_jv) Into Cursor jtva_coloane
	ELSE
		Select * From jtva_coloane_temp Where Isnull(id_jtva_neex) And !'RORTC'$Upper(coloana_jv) Into Cursor jtva_coloane
	ENDIF
	DO Traseaza WITH lcDoc, 'jtva_coloane pregatit'

	loForm = Createobject('frm_facturare_articole2')
	DO Traseaza WITH lcDoc, 'Createobject Vartype=' + Vartype(loForm)
	IF Vartype(loForm) <> 'O'
		DO Traseaza WITH lcDoc, 'ABANDON: loForm nu e obiect'
		RETURN
	ENDIF
	DO Traseaza WITH lcDoc, 'loForm.WindowType=' + Transform(loForm.WindowType) + ' Visible=' + Transform(loForm.Visible)
	loForm.ndiscfactron = pnDiscountRon
	loForm.ndiscfactval = pnDiscountValuta
	loForm.do_calculeaza_totaluri()
	DO Traseaza WITH lcDoc, 'do_calculeaza_totaluri terminat, ntotalron=' + Transform(loForm.ntotalron)

	DO Traseaza WITH lcDoc, 'inainte de Show(), FormCount=' + Transform(_SCREEN.FormCount)
	goDriverTrace.Reseteaza()
	loForm.Show()
	DO Traseaza WITH lcDoc, 'DUPA Show() - a revenit, lGasit=' + Transform(goDriverTrace.lGasit) + ' gcMockUltimMesaj=[' + gcMockUltimMesaj + ']'
	TRY
		loForm.Release()
	CATCH
	ENDTRY
ENDPROC

DO VerificaTrace WITH 1055
DO VerificaTrace WITH 1113

_SCREEN.tmrTrace.Enabled = .F.
TRY
	_SCREEN.RemoveObject('tmrTrace')
CATCH
ENDTRY

STRTOFILE('done' + CHR(13) + CHR(10), gcErrLog, 1)
QUIT