*!*	APEL DE PROCEDURA
*!*	DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv

*-----------------------------------------------------------

PROCEDURE lans_ireg_parteneri
	PARAMETERS tlTest,tcCont,tlactiv,tlTitluTot,tcDenumire,tcDenDebit,tcDenCredit
	*!*		tlTitluTot = daca denumirea titlului este totala i.e.: Nu trebuie sa mai adaug Balanta parteneri
	*!*		tcDenumire = titlul balantei
	*!*		tcDenDebit = peste tot pe unde apare debit se va inlocui cu aceasta denumire
	*!*		tcDenCredit = peste tot pe unde apare credit se va inlocui cu aceasta denumire

	LOCAL lcCont, llActiv, llParametri,llTitluTot,lcDenumire,lcDenDebit,lcDenCredit
	llParametri = .F.

	IF EMPTY(tlTitluTot)
		llTitluTot = .F.
	ELSE
		llTitluTot = tlTitluTot
	ENDIF

	IF EMPTY(tcDenumire)
		lcDenumire = ""
	ELSE
		lcDenumire= tcDenumire
	ENDIF

	IF EMPTY(tcDenDebit)
		lcDenDebit = "Debit"
	ELSE
		lcDenDebit = tcDenDebit
	ENDIF
	IF EMPTY(tcDenCredit)
		lcDenCredit = "Credit"
	ELSE
		lcDenCredit = tcDenCredit
	ENDIF

	IF !EMPTY(tcCont)
		lcCont = ALLTRIM(tcCont)
	ELSE
		lcCont = ''
	ENDIF

	IF !EMPTY(tlactiv)
		llActiv = tlactiv
	ELSE
		llActiv = .F.
	ENDIF

	llParametri = .F.
	*If PCOUNT() = 3
	*!*	IF !EMPTY(tlActiv) AND !EMPTY(tcCont) AND !EMPTY(tlActiv)
	*!*		llParametri = .T.
	*!*	Endif
	IF !EMPTY(tcCont)
		llParametri = .T.
	ENDIF
	LOCAL NOU, lnTdeb, lnTcred, lnSold, lcContPart, lclista
	STORE 0 TO lnTdeb, lnTcred, lnSold
	NOU=.T.

	IF glPrimaLuna
		NOU = .F.
	ENDIF

	PRIVATE plActiv
	STORE .T. TO plActiv
	PRIVATE eActiv
	STORE .T. TO eActiv
	IF !llParametri
		PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1
		STORE "" TO polista
		IF USED('clista')
			USE IN clista
		ENDIF
		pcschema1=['cont c(4),acont c(4),explicatie c(50)']
		pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2']
		pcfiltru1=[2=2]
		pcorder1=[cont]
		llAfisare=.F.
		gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
		polista.ca_baza1.afisare()

		SELECT clista
		loCont=myscatter('blank')

		Ol=CREATEOBJECT("frm_sel_cont")
		WITH Ol
			.Lb_titlu_alb_b121.CAPTION= 'Selectati contul'
			IF EMPTY(.cboCont.ROWSOURCE)
				.cboCont.ROWSOURCE="clista.cont,acont"
			ENDIF
			.ocont=loCont
			IF EMPTY(.cAlias)
				.cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1)
			ENDIF
			.HEIGHT = 190
		ENDWITH
		Ol.SHOW(1)

		IF buton = 2
			USE IN clista
			RETURN
		ENDIF

		lcContPart = loCont.CONT
		IF !llTitluTot AND EMPTY(lcDenumire)
			lcDenumire = "Inregistrari  " + ALLTRIM(clista.explicatie) + "( " + lcContPart + " )"
		ELSE
			IF !EMPTY(lcDenumire) AND !llTitluTot
				lcDenumire = "Inregistrari " + lcDenumire + "( " + lcContPart + " )"
			ENDIF
		ENDIF
		USE IN clista
		plActiv = eActiv
	ELSE
		eActiv = llActiv
		plActiv = llActiv
		lcContPart = lcCont
		IF !llTitluTot AND EMPTY(lcDenumire)
			lcDenumire = "Inregistrari " + "( " + lcContPart + " )"
		ELSE
			IF !EMPTY(lcDenumire) AND !llTitluTot
				lcDenumire = "Inregistrari " + lcDenumire + "( " + lcContPart + " )"
			ENDIF
		ENDIF
	ENDIF


	*** verificare INAINTE_DE
	DO inainte WITH "IREG_PARTENERI",lcContPart IN oinainte_de.prg
	IF tlTest
		DO test_ireg WITH lcContPart,llActiv 
	ENDIF 	

	pcCont = lcContPart

	PRIVATE poireg_parteneri,pcschema1,pcselect1
	STORE '' TO poireg_parteneri
	pcschema1 = ['id_ireg_part n(20),an n(4), luna n(2),ID_FACT N(20),id_part n(20),cont c(4),acont c(4), ID_VALUTA N(5), ID_VENCHELT N(5), PROC_TVA N(8,2),' +] + ;
				['PRECDEB N(20,4),PRECCRED N(20,4),PRECVALDEB N(20,4),PRECVALCRED N(20,4),' +] + ;
				['debit n(20,4),credit n(20,4),valdebit n(20,4), valcredit n(20,4),' +] + ;
				['NRACT N(14),DATAACT D,DATAIREG D,DATASCAD D,CURS N(9,3),' +] + ;
				['COD N(20),EXPLICATIA C(100),EXPLICATIA4 C(100),EXPLICATIA5 C(100), ' +] + ;
				['ID_RESPONSABIL N(5),ID_FDOC N(5),ID_LUCRARE N(5),ID_SET N(20),ID_ACT N(20),' +] + ;
				['NUME C(100),COD_FISCAL C(30),FDOC C(50),NRESP C(50),NRORD C(50),NUME_VAL C(10),VENCHELT C(50)' ]
				
pcselect1=['SELECT I.ID_IREG_PART, I.AN, I.LUNA, ID_FACT, I.ID_PART, I.CONT, I.ACONT, I.ID_VALUTA, I.ID_VENCHELT, I.PROC_TVA,' + ] +;
['I.PRECDEB, I.PRECCRED, I.PRECVALDEB, I.PRECVALCRED, ' + ] +;
['I.DEBIT, I.CREDIT, I.VALDEBIT, I.VALCREDIT, ' + ] +;
['I.NRACT, I.DATAACT, I.DATAIREG, I.DATASCAD, I.CURS,' + ] +;  
['I.COD, I.EXPLICATIA, I.EXPLICATIA4, I.EXPLICATIA5,' + ] +;
['I.ID_RESPONSABIL, I.ID_FDOC, I.ID_LUCRARE, I.ID_SET, I.ID_ACT,' + ] +;
['I.NUME,I.COD_FISCAL,I.FDOC,I.NRESP,I.NRORD,I.NUME_VAL,I.VENCHELT' + ] + ;
[' FROM ] + GCS + [.VIREG_PARTENERI I WHERE 1=2']
				
*!*		pcselect1=['select i.*,p.cod_fiscal from ] + gcS + [.vireg_parteneri i join ] + gcS + ;
*!*		          [.vnom_parteneri p on p.id_part = i.id_part where 1=2']
	pcorder1=[dataact]
	pcfiltru1 = [1=2]
	*!*	pcfiltru1 = [cont = '] + Alltrim(pcCont) + [' and luna = ] + Alltrim(Str(gnLuna)) + [ and an = ] + Alltrim(Str(gnAn))
	gencursor('poireg_parteneri','actcv',pcselect1,pcfiltru1,pcschema1,pcorder1)
	poireg_parteneri.ca_baza1.afisare()


	SELECT actcv

	tcFis2 = "ActCv"
	tlVisible = .T.

	LOCAL c
	c="nume+ALLTRIM(STR(YEAR(dataact)))+RIGHT('0'+ALLTRIM(STR(MONTH(dataact))),2)+RIGHT('0'+ALLTRIM(STR(DAY(dataact))),2)"
	buton=1

	IF tlTest AND .F.

		PRIVATE pcCampVerif
		pcCampVerif = ofis.camp_verif
		SELECT (tcFis2)
		SET FILTER TO
		lcProc='inainte_'+ALLTRIM(tcFis2)
		DO &lcProc IN inaintede.prg
		IF buton=2
			RETURN
		ENDIF
	ENDIF

	SELE actcv


	PRIVATE pcAnalitic,pcLucrare
	STORE '' TO pcAnalitic,pcLucrare

	Oreg=CREATEOBJECT("FRM_IREG_PARTENERI")
	WITH Oreg
	    .lActiv = llActiv
		.cCont = lcContPart
		*!*		.LABEL10.Caption=Proper(tctitlu)&&& trebuie facut
		.LABEL10.CAPTION= PROPER(lcDenumire)
		.grid1.column12.VISIBLE=.T.
		.CONT=ALLT(pcCont)
		.fisier=ALLTRIM(tcFis2)
		.Ck_valuta.VISIBLE=tlVisible
		.CK_explicatia.VISIBLE=tlVisible
		.CHECK7.VISIBLE=tlVisible
		.CHECK9.VISIBLE=tlVisible
		.grid1.column2.VISIBLE=tlVisible
		.grid1.column11.VISIBLE=tlVisible
		.grid1.column13.VISIBLE=tlVisible
		.grid1.column14.VISIBLE=tlVisible
		.grid1.column7.VISIBLE=tlVisible
		.grid1.column8.VISIBLE=tlVisible
		.grid1.column10.VISIBLE=tlVisible
		IF !tlVisible
			.CHECK3.CAPTION='Regularizate'
			.CHECK4.CAPTION='Neregularizate'
			.check10.CAPTION='Regularizat'
			.grid1.column12.header1.CAPTION='Regularizat'
			.grid1.column2.WIDTH=0
		ENDIF
		IF !plActiv

			.grid1.column9.CONTROLSOURCE = "(preccred+credit)-(precdeb+debit)"
			.grid1.column14.CONTROLSOURCE ="(precvalcred+valcredit)-(precvaldeb+valdebit)"
			.ck_sold.camp_nume = "credit+preccred-precdeb-debit"
			.grid1.column1.CONTROLSOURCE = "preccred+credit"
			.grid1.column12.CONTROLSOURCE = "precdeb+debit"
			.grid1.column11.CONTROLSOURCE = "precvalcred+valcredit"
			.grid1.column13.CONTROLSOURCE = "precvaldeb+valdebit"
			.grid1.column20.CONTROLSOURCE = "credit"
			.grid1.column21.CONTROLSOURCE = "debit"
			.grid1.column22.CONTROLSOURCE = "valcredit"
			.grid1.column23.CONTROLSOURCE = "valdebit"
			.grid1.column18.CONTROLSOURCE = "preccred"
			.grid1.column19.CONTROLSOURCE = "precdeb"

			.grid1.column1.header1.CAPTION = "Total " + lcDenCredit
			.grid1.column12.header1.CAPTION = "Total " + lcDenDebit
			.grid1.column11.header11.CAPTION = "Total " + lcDenCredit + " valuta"
			.grid1.column13.header1.CAPTION = "Total " + lcDenDebit + " valuta"
			.grid1.column20.header1.CAPTION = lcDenCredit
			.grid1.column21.header1.CAPTION = lcDenDebit
			.grid1.column22.header1.CAPTION = lcDenCredit + " valuta"
			.grid1.column23.header1.CAPTION = lcDenDebit + " valuta"
			.grid1.column18.header1.CAPTION = "Prec " + lcDenCredit
			.grid1.column19.header1.CAPTION = "Prec " + lcDenDebit
		ELSE
			.grid1.column9.CONTROLSOURCE = "(precdeb+debit)-(preccred+credit)"
			.grid1.column14.CONTROLSOURCE ="(precvaldeb+valdebit)-(precvalcred+valcredit)"
			.ck_sold.camp_nume = "precdeb+debit-credit-preccred"
			.grid1.column1.header1.CAPTION = "Total " + lcDenDebit
			.grid1.column12.header1.CAPTION = "Total " + lcDenCredit
			.grid1.column11.header11.CAPTION = "Total " + lcDenDebit + " valuta"
			.grid1.column13.header1.CAPTION = "Total " + lcDenCredit + " valuta"
			.grid1.column20.header1.CAPTION = lcDenDebit
			.grid1.column21.header1.CAPTION = lcDenCredit
			.grid1.column22.header1.CAPTION = lcDenDebit + " valuta"
			.grid1.column23.header1.CAPTION = lcDenCredit + " valuta"
			.grid1.column18.header1.CAPTION = "Prec " + lcDenDebit
			.grid1.column19.header1.CAPTION = "Prec " + lcDenCredit
		ENDIF
		IF TYPE('pcTotctva')#'U' AND TYPE('pcAchitat')#'U'
			.grid1.column12.header1.CAPTION=pcAchitat
			.grid1.column1.header1.CAPTION=pcTotctva
		ENDIF
		IF TYPE('pcSumaTotal')#'U' AND TYPE('pcSumaAchi')#'U'
			.CHECK13.CAPTION=pcSumaTotal
			.check10.CAPTION=pcSumaAchi
		ENDIF
		IF TYPE('actcv.nresp') # 'U'
			.grid1.column17.VISIBLE= .T.
			.grid1.column17.CONTROLSOURCE = 'nresp'
			.Ck_responsabil.VISIBLE = .T.
		ENDIF
	ENDWITH
	Oreg.SHOW(1)
	*!*	Select actcv
	*!*	If Used('actcv')
	*!*		Use In actcv
	*!*	Endif
	*!*	Release ofis
	RELEASE Oreg
	USE IN actcv

ENDPROC && lans_ireg_parteneri
*---------------------------------------------------------------------------------

PROCEDURE lans_balanta_parteneri
	LPARAMETERS tcCont,tlactiv,tlTitluTot,tcDenumire,tcDenDebit,tcDenCredit &&initital cu 2 parametrii
	*!*		tlTitluTot = daca denumirea titlului este totala i.e.: Nu trebuie sa mai adaug Balanta parteneri
	*!*		tcDenumire = titlul balantei
	*!*		tcDenDebit = peste tot pe unde apare debit se va inlocui cu aceasta denumire
	*!*		tcDenCredit = peste tot pe unde apare credit se va inlocui cu aceasta denumire

	LOCAL llParametri, lcCont, llActiv,llTitluTot,lcDenumire,lcDenDebit,lcDenCredit

	llParametri = .F.
	lcCont = ''
	llActiv = .F.
	IF EMPTY(tlTitluTot)
		llTitluTot = .F.
	ELSE
		llTitluTot = tlTitluTot
	ENDIF

	IF EMPTY(tcDenumire)
		lcDenumire = ""
	ELSE
		lcDenumire= tcDenumire
	ENDIF

	IF EMPTY(tcDenDebit)
		lcDenDebit = "Debit"
	ELSE
		lcDenDebit = tcDenDebit
	ENDIF
	IF EMPTY(tcDenCredit)
		lcDenCredit = "Credit"
	ELSE
		lcDenCredit = tcDenCredit
	ENDIF
	*!*	IF PCOUNT() < 2
	IF EMPTY(tcCont) AND EMPTY(tlactiv)
		llParametri = .F.
	ELSE
		llParametri = .T.
		lcCont = ALLTRIM(tcCont)
		llActiv = tlactiv
	ENDIF

	LOCAL NOU, lnTdeb, lnTcred, lnSold, lcContPart, lclista
	STORE 0 TO lnTdeb, lnTcred, lnSold
	NOU=.T.

	IF .F.
		SELECT calendar
		GO TOP
		IF an=pcAn AND NL=pcNl
			NOU=.F.
		ENDIF
	ENDIF
	*!*	IF glPrimaLuna
	*!*		nou = .F.
	*!*	ENDIF

	PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1
	STORE "" TO polista


	IF !llParametri

		IF USED('clista')
			USE IN clista
		ENDIF


		pcschema1=['cont c(4),acont c(4),explicatie c(50)']
		pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2']
		pcfiltru1=[2=2]
		pcorder1=[cont]
		llAfisare=.F.
		gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
		polista.ca_baza1.afisare()

		*!*	SELECT DISTINCT cont, '' as acont FROM coresp_tip_cont INTO CURSOR clista
		SELECT clista
		loCont=myscatter('blank')

		PRIVATE eActiv
		STORE .T. TO eActiv

		Ol=CREATEOBJECT("frm_sel_cont")
		WITH Ol
			.Lb_titlu_alb_b121.CAPTION= 'Selectati contul'
			IF EMPTY(.cboCont.ROWSOURCE)
				.cboCont.ROWSOURCE="clista.cont,acont"
			ENDIF
			.ocont=loCont
			IF EMPTY(.cAlias)
				.cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1)
			ENDIF
			.HEIGHT = 190
		ENDWITH
		Ol.SHOW(1)

		IF buton = 2
			USE IN clista
			RETURN
		ENDIF

		lcContPart = loCont.CONT
		IF !llTitluTot AND EMPTY(lcDenumire)
			lcDenumire = "Balanta " + ALLTRIM(clista.explicatie) + "( " + lcContPart + " )"
		ELSE
			IF !EMPTY(lcDenumire) AND !llTitluTot
				lcDenumire = "Balanta " + lcDenumire + "( " + lcContPart + " )"
			ENDIF
		ENDIF
		USE IN clista
	ELSE
		lcContPart = lcCont
		eActiv = llActiv

		IF !llTitluTot AND EMPTY(lcDenumire)
			lcDenumire = "Balanta " + "( " + lcContPart + " )"
		ELSE
			IF !EMPTY(lcDenumire) AND !llTitluTot
				lcDenumire = "Balanta " + lcDenumire + "( " + lcContPart + " )"
			ENDIF
		ENDIF
	ENDIF

	IF eActiv
		lnSemn = -1
	ELSE
		lnSemn = 1
	ENDIF


	*** verificare INAINTE_DE
	DO inainte WITH "BALANTA_parteneri",lcContPart IN oinainte_de.prg




	PRIVATE pobalpartext,pcschema2,pcselect2,pcfiltru2,pcorder2,pobalpartint,pcschema3,pcselect3,pcfiltru3,pcorder3,pcgroup3
	STORE "" TO pobalpartext,pobalpartint
	pcschema2=['PRECDEB1 N(19,2),PRECCRED1 N(19,2),PRECDEB N(19,2),PRECCRED N(19,2),'+]+;
		['DEB N(19,2),CRED N(19,2),PRECVALDEB1 N(19,2),PRECVALCRED1 N(19,2),PRECVALDEB N(19,2),'+]+;
		['PRECVALCRED N(19,2),VALDEBIT N(19,2),VALCREDIT N(19,2),NUME_VAL C(5),ID_PART N(10),'+]+;
		['NUME C(50),COD_FISCAL C(30),CONT C(4),ACONT C(4),AN N(4),LUNA N(2),TOTCRED N(19,2),TOTDEB N(19,2),'+]+;
		['TOTVALCRED N(19,2),TOTVALDEB N(19,2),ID_VALUTA N(5)']
	pcselect2=['select PRECDEB1,PRECCRED1,PRECDEB,PRECCRED,'+]+;
		['DEBIT as DEB,CREDIT as CRED,PRECVALDEB1,PRECVALCRED1,PRECVALDEB,'+]+;
		['PRECVALCRED,VALDEBIT,VALCREDIT,NUME_VAL,ID_PART,'+]+;
		['NUME,COD_FISCAL,CONT,ACONT,AN,LUNA,'+]+;
		['PRECCRED+CREDIT as TOTCRED,PRECDEB+DEBIT as TOTDEB,'+]+;
		['PRECVALCRED+VALCREDIT as TOTVALCRED,PRECVALDEB+VALDEBIT as TOTVALDEB,ID_VALUTA '+]+;
		['from ]+gcS+[.vbalanta_parteneri where 1=2']
	pcfiltru2=[1=2]
	pcorder2=[nume,acont]
	llAfisare=.F.
	gencursor('pobalpartext','xtemp',pcselect2,pcfiltru2,[''],pcorder2,llAfisare)
	pobalpartext.ca_baza1.afisare()

	pcschema3=['PRECDEB1 N(19,2),PRECCRED1 N(19,2),PRECDEB N(19,2),PRECCRED N(19,2),'+]+;
		['DEB N(19,2),CRED N(19,2),PRECVALDEB1 N(19,2),PRECVALCRED1 N(19,2),PRECVALDEB N(19,2),'+]+;
		['PRECVALCRED N(19,2),VALDEBIT N(19,2),VALCREDIT N(19,2),NUME_VAL C(5),ID_PART N(10),'+]+;
		['NUME C(50),COD_FISCAL C(30),CONT C(4),ACONT C(4),AN N(4),LUNA N(2),TOTCRED N(19,2),TOTDEB N(19,2),'+]+;
		['TOTVALCRED N(19,2),TOTVALDEB N(19,2),ID_VALUTA N(5)']
	pcselect3=['select SUM(PRECDEB1) AS PRECDEB1,SUM(PRECCRED1) AS PRECCRED1,SUM(PRECDEB) AS PRECDEB,SUM(PRECCRED) AS PRECCRED,'+]+;
		['SUM(DEBIT) as DEB,SUM(CREDIT) as CRED,0 AS PRECVALDEB1,0 AS PRECVALCRED1,0 AS PRECVALDEB,'+]+;
		["0 AS PRECVALCRED,0 AS VALDEBIT,0 AS VALCREDIT,'LEI' AS NUME_VAL,ID_PART,"+]+;
		['NUME,COD_FISCAL,CONT,ACONT,AN,LUNA,'+]+;
		['SUM(PRECCRED+CREDIT) as TOTCRED,SUM(PRECDEB+DEBIT) as TOTDEB,'+]+;
		['SUM(PRECVALCRED+VALCREDIT) as TOTVALCRED,SUM(PRECVALDEB+VALDEBIT) as TOTVALDEB,0 AS ID_VALUTA '+]+;
		['from ]+gcS+[.vbalanta_parteneri where 1=2']
	pcfiltru3=[1=2]
	pcorder3=[nume,acont]
	pcgroup3=[CONT,ACONT,AN,LUNA,ID_PART,NUME,COD_FISCAL]
	llAfisare=.F.
	gencursor('pobalpartint','xtemp',pcselect3,pcfiltru3,[''],pcorder3,llAfisare,pcgroup3)
	pobalpartint.ca_baza1.afisare()

	OVIZ=CREATEOBJECT("frm_bal_parteneri")
	WITH OVIZ
		*!*		.LABEL10.Caption='SITUATIA ANALITICA - BALANTA PARTENERI (' + Alltrim(lcContPart) + ')'
		.LABEL10.CAPTION = PROPER(lcDenumire)
		IF eActiv
			.grid1.column6.CONTROLSOURCE='- cred + deb'
			.grid1.column10.CONTROLSOURCE='- totcred + totdeb'
			.grid1.column9.CONTROLSOURCE='- preccred + precdeb'

			.grid1.column21.CONTROLSOURCE='- totvalcred + totvaldeb'
			.grid1.column18.CONTROLSOURCE='- precvalcred + precvaldeb'
			*!*			.grid1.column6.header1.Caption='Sold (deb-cred)'
			*!*			.grid1.COLUMN4.header1.Caption='Debit'
			*!*			.grid1.COLUMN5.header1.Caption='Credit'
			.grid1.column6.header1.CAPTION= "Sold("+ALLTRIM(lcDenDebit)+"-"+ALLTRIM(lcDenCredit)+")"&&'Sold (cred-deb)'
			.grid1.COLUMN4.header1.CAPTION= lcDenDebit&&Debit'
			.grid1.COLUMN5.header1.CAPTION= lcDenCredit&&'Credit'
			.grid1.column11.header1.CAPTION= "Prec." + lcDenDebit&&Debit'
			.grid1.column12.header1.CAPTION= "Prec." + lcDenCredit&&'Credit'
			.grid1.COLUMN15.header1.CAPTION= "Total" + lcDenDebit&&Debit'
			.grid1.COLUMN16.header1.CAPTION= "Total" + lcDenCredit&&'Credit'
			.pcfel='A'
		ELSE
			.grid1.column6.CONTROLSOURCE='cred - deb'
			.grid1.column10.CONTROLSOURCE='totcred - totdeb'
			.grid1.column9.CONTROLSOURCE='preccred - precdeb'

			.grid1.column21.CONTROLSOURCE='totvalcred - totvaldeb'
			.grid1.column18.CONTROLSOURCE='precvalcred - precvaldeb'
			.grid1.column6.header1.CAPTION= "Sold("+ALLTRIM(lcDenCredit)+"-"+ALLTRIM(lcDenDebit)+")"&&'Sold (cred-deb)'
			.grid1.COLUMN4.header1.CAPTION= lcDenDebit&&Debit'
			.grid1.COLUMN5.header1.CAPTION= lcDenCredit&&'Credit'
			.grid1.column12.header1.CAPTION= "Prec." + lcDenCredit&&'Credit'
			.grid1.column11.header1.CAPTION= "Prec." + lcDenDebit&&'Debit'
			*!* .grid1.column11.controlsource = "preccred"
			*!* .grid1.column12.controlsource = "precdeb"
			.grid1.COLUMN16.header1.CAPTION= "Total" + lcDenCredit&&'Credit'
			.grid1.COLUMN17.header1.CAPTION= "Total" + lcDenDebit&&'Debit'
			*!* .grid1.COLUMN15.controlsource= "totCred" &&Credit'
			*!* .grid1.COLUMN16.controlsource= "TotDeb" &&'Debit'
			.pcfel='P'

		ENDIF
		.grid1.column18.VISIBLE=.F.
		.grid1.column19.VISIBLE=.F.
		.grid1.column20.VISIBLE=.F.
		.grid1.column21.VISIBLE=.F.
		.grid1.column22.VISIBLE=.F.
		.TABEL = 'BALANTA_PARTENER'
		.pcCont = ALLTRIM(lcContPart)
		.grid1.column8.WIDTH=0
		.grid1.column13.WIDTH=0
		.grid1.column14.WIDTH=0
		.grid1.column8.VISIBLE=.F.
		.grid1.column13.VISIBLE=.F.
		.grid1.column14.VISIBLE=.F.
		.label7.VISIBLE=.F.
		.text4.VISIBLE=.F.
		.TEXT5.VISIBLE=.F.
		.text9.VISIBLE=.F.
	ENDWITH
	IF !NOU
		WITH OVIZ.grid1
			.column2.COLUMNORDER=2
			FOR I=9 TO 16
				lcViz='.column'+ALLTRIM(STR(I))+'.visible=.f.'
				*lcWidth='.column'+ALLTRIM(STR(i))+'.width=0'
				&lcViz
				*&lcWidth
			ENDFOR
		ENDWITH
	ENDIF

	OVIZ.SHOW(1)
	USE IN xtemp
	*!*	ENDIF
ENDPROC && lans_balanta_parteneri
*----------------------------------------------------------------------------------------------


*---------------------------------- Inceput lans_balanta_cumulata ----------------------------------
PROCEDURE lans_balanta_cumulata


pcselect = [select explicatie, id_coloana from ] + gcs + [.coloane where 2=2]
pcfiltru = [2=2]
pcschema = ['']
pcorder = [explicatie]
pccoloane = [explicatie]
pcTitlu = [Alegeti Balanta] 
pcFiltruOriginal = [camp is null and tabel is null and id_prg_owner = 2 and configurabil = 1]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitlu,"",.f.,pcFiltruOriginal)

IF EMPTY(locauta.id_coloana) OR ISNULL(locauta.id_coloana)
	RETURN 
ENDIF 

pnIdBal = locauta.id_coloana


pcTitluCol = []
pcNumeCol = []
lcSel = [{call pack_balante_cumulate.balante_cumulate(?@pcNumeCol,?@pcTitluCol,?gcS,?pnIdBal,?gnAn,?gnLuna)}]
lcSchema = []
lcCursor = 'crs_bal'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)

IF lnSucces < 0
	MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
	RETURN
ENDIF


pcNumeCol = [nume;cod_fiscal;acont;] + pcNumeCol 
pcTitluCol = [Partener,Cod Fiscal,Analitic,] + pcTitluCol 
SELECT (lcCursor)
SCATTER NAME loto BLANK 


obalp = CREATEOBJECT('frm_bal_parteneri_cumulata')
obalp.ototal = loto
WITH obalp.ct_grid_order1
	.cselect = lcSel
	.cschema = lcSchema
	.cTitlu_coloane = pcTitluCol 
	.cNume_coloane = pcNumeCol 
	.cFiltruOriginal = []
	.cFiltru = []
	.cOrder = []
	.cTitlu = []
	.cnumeCursor = lcCursor
	.lmodparam = .T.
ENDWITH
obalp.ctitlu = locauta.explicatie
obalp.show()

IF USED(lcCursor)
	USE IN (lcCursor)
ENDIF 

ENDPROC && lans_balanta_cumulata 
*---------------------------------- Sfarsit lans_balanta_cumulata ----------------------------------


*---------------------------------- Inceput configurare_balanta_cumulata ----------------------------------
PROCEDURE configurare_balanta_cumulata 
PRIVATE pnIdBalanta, pnIdColoana 
STORE 0 TO pnIdBalanta, pnIdColoana 

pcselect1 = [select explicatie,explicatie2, id_coloana from ] + gcs + [.coloane ]
pcfiltru1 = [camp is null and tabel is null and id_prg_owner = 2 and configurabil = 1]
pcschema1 = ['']
pcorder1 = [explicatie]
pccoloane1 = [explicatie; explicatie2]
pcTitluCol1 = [Titlu Balanta,Conturi]
pcTitlu1 = [Lista Balante Configurate] 

pcselect2 = [select f.id_calcul, f.id_op_col , f.ordine, f.id_coloana, c.camp, c.explicatie from ] + gcs + [.sal_calcul f left join ] + ;
			gcs +[.coloane c on f.id_op_col = c.id_coloana and f.coloana = 1]
pcfiltru2 = [f.id_coloana =?pnIdBalanta]
pcschema2 = ['']
pcorder2 = [f.ordine]
pccoloane2 = [explicatie; ordine]
pcMask2 = '[1]=;[2]=REPLICATE("9",3)'
pcTitluCol2 = [Titlu coloana, Ordine]
pcTitlu2 = [Coloane Balanta] 

pcselect3 = [select id_calcul, id_coloana, id_op_col, explicatie, camp, coloana, ordine from ] + gcs + [.cont_vformule_balante ]
pcfiltru3 = [id_coloana =?pnIdColoana]
pcschema3 = ['']
pcorder3 = [ordine]
pccoloane3 = [camp;explicatie;ordine]
pcMask3 = '[1]=;[2]=;[3]=REPLICATE("9",3)'
pcTitluCol3 = [Camp,Explicatie,Ordine]
pcTitlu3 = [Formula Coloane] 


obalp = CREATEOBJECT('config_balante_parteneri')
WITH obalp.Ct_grid_search1
	.cselect = pcselect1 
	.cschema = pcschema1
	.cTitlu_coloane = pcTitluCol1
	.cNume_coloane = pccoloane1 
	.cFiltruOriginal = pcfiltru1
	.cFiltru = [2=2]
	.cOrder = pcorder1
	.cTitlu = pcTitlu1
	.cnumeCursor = 'crs_NumeBal'
	.lmodparam = .T.
ENDWITH
WITH obalp.Ct_grid_search2
	.cselect = pcselect2 
	.cschema = pcschema2
	.cTitlu_coloane = pcTitluCol2
	.cNume_coloane = pccoloane2 
	.cFiltruOriginal = pcfiltru2
	.cFiltru = [2=2]
	.cOrder = pcorder2
	.cTitlu = pcTitlu2
	.cMask = pcMask2
	.cnumeCursor = 'crs_ColoaneBal'
	.lmodparam = .t.
ENDWITH
WITH obalp.Ct_grid_search3
	.cselect = pcselect3 
	.cschema = pcschema3
	.cTitlu_coloane = pcTitluCol3
	.cNume_coloane = pccoloane3 
	.cFiltruOriginal = pcfiltru3
	.cFiltru = [2=2]
	.cOrder = pcorder3
	.cTitlu = pcTitlu3
	.cMask = pcMask3
	.cnumeCursor = 'crs_FormulaBal'
	.lmodparam = .t.
ENDWITH
obalp.show()

ENDPROC && configurare_balanta_cumulata
*---------------------------------- Sfarsit configurare_balanta_cumulata ----------------------------------