diff --git a/Programe/oparteneri.prg b/Programe/oparteneri.prg deleted file mode 100644 index 5d7ecaa..0000000 --- a/Programe/oparteneri.prg +++ /dev/null @@ -1,687 +0,0 @@ - -*!* 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 ---------------------------------- -