Marius Mutu
7cc3bff358
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
688 lines
22 KiB
Plaintext
688 lines
22 KiB
Plaintext
|
|
*!* 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 ----------------------------------
|
|
|