commit 77e98d73e9346302b863c06eda126bd1b676fcf5 Author: Marius Mutu Date: Sun Aug 23 18:00:57 2026 +0300 Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) Co-Authored-By: Claude Opus 5 (1M context) Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..bbf8fed --- /dev/null +++ b/.gitattributes @@ -0,0 +1,4 @@ +# SVN ramane autoritatea pentru line endings (rulaj paralel svn+git). +# Dezactiveaza orice normalizare CRLF/LF facuta de git, ca sa nu mai apara +# "modificari" fantoma dupa fiecare svn update/checkout care doar atinge mtime-ul. +* -text diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..bb94421 --- /dev/null +++ b/.gitignore @@ -0,0 +1,98 @@ +# ============================================================================= +# Flux text FoxBin2Prg: git urmareste DOAR versiunile text .??2 (in arbore), +# nu binarele VFP. Binarele convertibile si indecsii regenerabili se ignora. +# SVN ramane sursa de adevar pentru binare (via global-ignores pe .??2). +# ============================================================================= + +# --- Binare VFP convertibile in text .??2 (ambele forme de caz) --- +*.vcx +*.VCX +*.vct +*.VCT +*.scx +*.SCX +*.sct +*.SCT +*.frx +*.FRX +*.frt +*.FRT +*.mnx +*.MNX +*.mnt +*.MNT +*.lbx +*.LBX +*.lbt +*.LBT +*.pjx +*.PJX +*.pjt +*.PJT +*.dbc +*.DBC +*.dct +*.DCT + +# --- Exceptii: binare neconvertibile de FoxBin2Prg (raman urmarite ca binare) --- +# cont2000COPY: .vct lipseste din arbore -> "Error 41, memo file missing or invalid" +!Clase/cont2000COPY.vcx +# oparteneri: metoda "Click" duplicata pe frm_ireg_parteneri.Command3 -> roundtrip esuat, +# write-back nesigur; se editeaza doar din IDE +!Clase/oparteneri.vcx +!Clase/oparteneri.VCT + +# --- Indecsi regenerabili (nu se transporta in .db2/.dc2) --- +*.cdx +*.CDX +*.dcx +*.DCX + +# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) --- +datemenu/infisiere.dbf +datemenu/refaceri.dbf + +# --- Fisiere generate/compilate Visual FoxPro --- +*.fxp +*.FXP +*.mpr +*.MPR +*.mpx +*.MPX +*.vcr +*.VCR +*.src + +# --- Backup-uri si fisiere temporare create de editorul VFP --- +*.bak +*.BAK +*.tmp +*.TMP +*.err +*.ERR +*.Stats +*.stackdump + +# --- Stare locala / specifica masinii, nu proiectului --- +FOXUSER.DBF +FOXUSER.FPT +log.txt +LOG.txt +sqlnet.log +roadef.ARM +roadef.ini +roadef.exe +roadef.exe.PreARM +roadef_ref.CDX +roadef_ref.DBF +roadef_ref.FPT + +# --- Subversion (working copy paralela) --- +.svn/ + +# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) --- +COMUN/ + +docs/diff_*.patch +.gstack/ +docs/local/ diff --git a/Clase/cont2000COPY.vcx b/Clase/cont2000COPY.vcx new file mode 100644 index 0000000..b052383 Binary files /dev/null and b/Clase/cont2000COPY.vcx differ diff --git a/Clase/ferestre_roadef.vc2 b/Clase/ferestre_roadef.vc2 new file mode 100644 index 0000000..0d90613 --- /dev/null +++ b/Clase/ferestre_roadef.vc2 @@ -0,0 +1,229 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ferestre_roadef.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_log_redeschid AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_log_redeschid" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_COMBOBOX1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 386 + Name = "frm_log_redeschid" + Width = 489 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 600 + _shape2.Anchor = 9 + _shape2.Left = 438 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Istoric deschideri/redeschideri de luna" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 458 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 264 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT '_COMBOBOX1' AS _combobox WITH ; + Height = 24, ; + Left = 6, ; + Name = "_COMBOBOX1", ; + RowSource = "crsLog_luni", ; + RowSourceType = 2, ; + Top = 36, ; + Width = 138 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'grid_log_redeschid' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 312, ; + Left = 6, ; + Name = "grid_log_redeschid", ; + Panel = 1, ; + RecordSource = "crsLog_redeschid", ; + Top = 66, ; + Width = 474, ; + Column1.ControlSource = "anul", ; + Column1.Name = "Column1", ; + Column1.Width = 39, ; + Column2.ControlSource = "luna", ; + Column2.Name = "Column2", ; + Column2.Width = 37, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "utilizator", ; + Column3.Name = "Column3", ; + Column3.Width = 96, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "dataora", ; + Column4.Name = "Column4", ; + Column4.Width = 96, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "program", ; + Column5.Name = "Column5", ; + Column5.Width = 74, ; + Column6.ColumnOrder = 4, ; + Column6.ControlSource = 'iif(crsLog_redeschid.deschid=1,"Deschidere luna","Redeschidere luna")', ; + Column6.Name = "Column6", ; + Column6.Width = 91 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_log_redeschid.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Anul", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Utilizator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Program", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + + LOCAL lcFiltru + lcFiltru = pcFiltru + + *!* IF EMPTY(lcFiltru) + *!* lcFiltru = poLog_redeschid.ca_baza1.cfiltru + *!* ENDIF + + save_grid_tag(THIS.grid_log_redeschid) + poLog_redeschid.ca_baza1.cfiltru = lcFiltru + poLog_redeschid.ca_baza1.afisare() + restore_grid_tag(THIS.grid_log_redeschid) + + This.grid_log_redeschid.Refresh + + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = "" + + lcAliasPerioada = This._cOMBOBOX1.RowSource + Select (lcAliasPerioada) + If !Empty(anul) And !Empty(luna) + lcFiltru = lcFiltru + [ anul = ] + Alltrim(Str(anul)) + [ and luna = ] + Alltrim(Str(luna)) + ENDIF + + This.actualizeaza_grid1(lcFiltru) + + + + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + this._cOMBOBOX1.Value="" + ENDPROC + + PROCEDURE _COMBOBOX1.Valid + thisform.do_cauta() + ENDPROC + +ENDDEFINE diff --git a/Clase/oOptiuni.vc2 b/Clase/oOptiuni.vc2 new file mode 100644 index 0000000..9cb8bcd --- /dev/null +++ b/Clase/oOptiuni.vc2 @@ -0,0 +1,3939 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ooptiuni.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_cote AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_cote" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"") + lcLuna = ALLTRIM(STR(toRec.luna)) + lcAn = ALLTRIM(STR(toRec.an)) + lcProcent = ALLTRIM(STR(toRec.procent)) + lcproc = ALLTRIM(STR(toRec.proc_tva,5,2)) + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +; + lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.cote_tva SET descriere = '] + lcnume + ; + [', procent = ] + lcprocent + [,proc_tva = ] + lcproc + [, an = ] + lcan + [, luna = ] + lcluna +; + [ where id_proc_tva = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_exceptii AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_exceptii" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcCont = Nvl(STRTRAN(Alltrim(Upper(toRec.cont)),['],['']),"") + lcContC = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_c)),['],['']),"") + lcDebit = ALLTRIM(STR(toRec.debit)) + lcInvers = '1' + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.exceptii_ireg (cont,cont_c,debit,invers) VALUES ('] +; + lcCont + [','] + lcContC + [',] + lcDebit + [,] + lcInvers + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.exceptii_ireg SET cont = '] + lccont + ; + [', cont_c = '] + lcContC + [',debit = ] + lcDebit + [, invers = ] + lcInvers +; + [ where id_exceptii = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.exceptii_ireg where id_exceptii = ] + lcId + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_firme_201402 AS _cusodatabase OF "..\..\roacomenzi\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_firme" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lnid_formaj = NVL(ALLTRIM(STR(toRec.id_forma_juridica)),"0") + lnid_formao = NVL(ALLTRIM(STR(toRec.id_forma_organizare)),"0") + lnid_formap = NVL(ALLTRIM(STR(toRec.id_forma_prop)),"0") + lnid_tip_soc = NVL(ALLTRIM(STR(toRec.id_tip_soc)),"0") + + lcindicativ = Nvl(STRTRAN(Alltrim(Upper(toRec.indicativ)),['],['']),"") + + lcfirma = Nvl(STRTRAN(Alltrim(Upper(toRec.firma)),['],['']),"") + lcantet = Nvl(STRTRAN(Alltrim(Upper(toRec.antet)),['],['']),"") + lcCodF = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"") + lcregc = Nvl(STRTRAN(Alltrim(Upper(toRec.reg_comert)),['],['']),"") + lcbanca1 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca1)),['],['']),"") + lccontb1 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca1)),['],['']),"") + lcbanca2 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca2)),['],['']),"") + lccontb2 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca2)),['],['']),"") + lcBanca3 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca3)),['],['']),"") + lccontb3 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca3)),['],['']),"") + lcadresa = Nvl(STRTRAN(Alltrim(Upper(toRec.adresa)),['],['']),"") + lcCodFirma = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_firma)),['],['']),"") + lnpersj = NVL(ALLTRIM(STR(toRec.persoana_juridica)),"0") + lncodang = NVL(ALLTRIM(STR(toRec.codang)),"0") + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.nume)),['],['']),"") + lcprenume = Nvl(STRTRAN(Alltrim(Upper(toRec.prenume)),['],['']),"") + lctel = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon)),['],['']),"") + lctel2 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon2)),['],['']),"") + lctel3 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon3)),['],['']),"") + lcfax = Nvl(STRTRAN(Alltrim(Upper(toRec.fax)),['],['']),"") + lcemail = Nvl(STRTRAN(Alltrim(Upper(toRec.email)),['],['']),"") + lcoasp = Nvl(STRTRAN(Alltrim(Upper(toRec.oasp)),['],['']),"") + lncapsv =NVL(ALLTRIM(STR(toRec.capital_soc_var,16,2)),"0") + lncapss =NVL(ALLTRIM(STR(toRec.capital_soc_sub,16,2)),"0") + lcpctl = Nvl(STRTRAN(Alltrim(Upper(toRec.punct_luc)),['],['']),"") + lccaen = Nvl(STRTRAN(Alltrim(Upper(toRec.caen)),['],['']),"") + lcschema = Nvl(STRTRAN(Alltrim(Upper(toRec.schema)),['],['']),"") + *!* lnidm = NVL(ALLTRIM(STR(toRec.id_mama)),"0") + *!* lnmama = NVL(ALLTRIM(STR(toRec.mama)),"0") + lcsucursala = Nvl(STRTRAN(Alltrim(Upper(toRec.sucursala)),['],['']),"") + *!* lnidl = NVL(ALLTRIM(STR(toRec.id_loc)),"0") + lcjudet = Nvl(STRTRAN(Alltrim(Upper(toRec.judet)),['],['']),"") + lclocalitate = Nvl(STRTRAN(Alltrim(Upper(toRec.localitate)),['],['']),"") + lcstrada = Nvl(STRTRAN(Alltrim(Upper(toRec.strada)),['],['']),"") + lcnumar = Nvl(STRTRAN(Alltrim(Upper(toRec.numar)),['],['']),"") + lcbloc = Nvl(STRTRAN(Alltrim(Upper(toRec.bloc)),['],['']),"") + lcscara = Nvl(STRTRAN(Alltrim(Upper(toRec.scara)),['],['']),"") + lccod_postal = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_postal)),['],['']),"") + lnapart = NVL(ALLTRIM(STR(toRec.apart)),"0") + lnidm="0" + lnmama="0" + lnidl=NVL(ALLTRIM(STR(toRec.id_loc)),"0") + Endif + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin contafin_oracle.pack_drepturi.firmeinsproc('] + lcfirma + [','] + lcantet + [','] + ; + lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ; + [','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ; + [','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ; + [',] + lnpersj + [,] + lncodang + [,'] + lcnume + ; + [','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ; + [','] + lcemail + [','] + lcoasp + [',] + lncapsv + ; + [,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ; + [',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+; + [,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ; + [,'] + lcindicativ + ['); end;] + + Case lcActiune = "UPDATE" + lcSql = [begin contafin_oracle.pack_drepturi.deffirmemodproc(]+lcId+[,'] + lcfirma + [','] + lcantet + [','] + ; + lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ; + [','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ; + [','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ; + [',] + lnpersj + [,] + lncodang + [,'] + lcnume + ; + [','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ; + [','] + lcemail + [','] + lcoasp + [',] + lncapsv + ; + [,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ; + [','] + lcjudet + [','] + lclocalitate +[','] + lcstrada + [','] + lcnumar + ; + [','] + lcbloc + [','] + lcscara + [',] + lnapart + [,'] + lccod_postal + ; + [',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+; + [,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ; + [,'] + lcindicativ + ['); end;] + STRTOFILE(lcsql,'c:\jurnal.txt') + *!* RETURN + Case lcActiune = "DELETE" + lcSql = [begin contafin_oracle.pack_drepturi.firmedelproc(] + lcId + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;] + Endcase + This.csql = lcSql + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_optiuni AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_optiuni" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.varname)),['],['']),"") + lctip = Nvl(STRTRAN(Alltrim(Upper(toRec.vartype)),['],['']),"") + lcval = Nvl(STRTRAN(Alltrim(Upper(toRec.varvalue)),['],['']),"") + lcdesc = Nvl(STRTRAN(Alltrim(Upper(toRec.vardesc)),['],['']),"") + + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.optiuni (varname,vartype,varvalue,vardesc) VALUES ('] +; + lcnume + [','] + lctip + [','] + lcval + [','] + lcdesc + [')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.optiuni SET varname = '] + lcnume + ; + [', vartype = '] + lctip + [',varvalue = '] + lcval + [', vardesc = '] + lcdesc + ; + [' where id_optiuni = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.optiuni where id_optiuni=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_plafon_casa AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_plafon_casa" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + LOCAL lcActiune, lcs + PRIVATE pnId,pnPlCasa,pnPlPlati,pnPlFurn + + lcActiune = Alltrim(This.cActiune) + *lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + pcId = ALLTRIM(STR(tnId)) + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + pcPlCasa = ALLTRIM(STR(toRec.plafon_casa,16,gnPa)) + pcPlPlati = ALLTRIM(STR(toRec.plafon_plati,16,gnPa)) + pcPlFurn = ALLTRIM(STR(toRec.plafon_furnizori,16,gnPa)) + Endif + + + Do Case + Case lcActiune = "INSERT" + + *!* lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +; + *!* lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE calendar SET ] + ; + [ plafon_casa = ] + pcPlCasa + [, plafon_plati = ] + pcPlPlati + [, plafon_furnizori = ] + pcPlFurn + ; + [ where id_calendar = ] + pcId + + + Case lcActiune = "DELETE" + + *!* lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_cote1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_cote_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Cote tva" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.descriere", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + Text_simplu1.ControlSource = "porec.procent", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Procent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 100, ; + Text_simplu1.ControlSource = "porec.luna", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Luna", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 128, ; + Text_simplu1.ControlSource = "porec.an", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "An", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_cote1' AS cus_odata_cote WITH ; + Left = 119, ; + Name = "Cus_odata_cote1", ; + Top = 28 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.descriere) + Messagebox('Nu ati completat descrierea cotei de tva!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.procent) + *!* Messagebox('Nu ati completat procentul de tva!',0+48,"Atentie") + *!* This.clb_tx_simplu2.SetFocus() + *!* plreturn=.F. + + Case Empty(porec.luna) + Messagebox('Nu ati completat luna!',0+48,"Atentie") + This.clb_tx_simplu3.SetFocus() + plreturn=.F. + + Case Empty(porec.an) + Messagebox('Nu ati completat anul!',0+48,"Atentie") + This.clb_tx_simplu6.SetFocus() + plreturn=.F. + + OTHERWISE + this.cus_odata_cote1.cschema=this.cschema + PLRETURN=This.cus_odata_cote1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_cote1.cactiune = tcActiune + ENDPROC + + PROCEDURE Clb_tx_simplu2.Text_simplu1.Valid + + porec.proc_tva = (100+this.value)/100 + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_tva AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cgridsortlist = grid_cot + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_cote_tva" + Width = 524 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape2.Height = 29 + _shape2.Left = 402 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "COTE TVA" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 434, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 403, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 463, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_cot' AS _grid WITH ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 5, ; + Name = "grid_cot", ; + Panel = 1, ; + RecordSource = "v_cote_tva", ; + RowHeight = 23, ; + Top = 84, ; + Width = 513, ; + Column1.ControlSource = "descriere", ; + Column1.Name = "Column1", ; + Column1.Width = 305, ; + Column2.ControlSource = "procent", ; + Column2.Name = "Column2", ; + Column2.Width = 66, ; + Column3.ControlSource = "luna", ; + Column3.Name = "Column3", ; + Column3.Width = 43, ; + Column4.ControlSource = "an", ; + Column4.Name = "Column4", ; + Column4.Width = 64 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_cot.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent %", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_cot' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_cot", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pcot.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_cot) + pcot.ca_baza1.cfiltru=lcFiltru + pcot.ca_baza1.afisare() + restore_grid_tag(thisform.grid_cot) + IF RECCOUNT('v_cote_tva')>0 + thisform.grid_cot.SetFocus() + ELSE + thisform.lb_nom_cot.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_cote_tva + SCATTER NAME loRec BLANK + PRIVATE lcot,poRec + lcot='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "cote",loRec,,"INSERT",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_cot.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[descriere like ']+lcNume+[%' and an=]+pcAn + ELSE + lcFiltru = [an=]+pcAn + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_cote_tva + Scatter Name loRec + PRIVATE lcot,poRec + lcot = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "cote",loRec,loRec.Id_proc_tva,"UPDATE",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_cote_tva + SCATTER NAME lorec MEMO + PRIVATE lcot + lcot = '' + Do STERGE_INREGISTRARE With "cote",loRec.id_proc_tva,.t.,'lcot' + lcot.cschema = this.cschema + lcot.salvare(,loRec.id_proc_tva) + RELEASE lcot + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_cote_tva') + USE IN v_cote_tva + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_ireg AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cgridsortlist = grid_ex + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_exceptii_ireg" + Width = 463 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 466 + _shape2.Height = 29 + _shape2.Left = 346 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "EXCEPTII" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 433 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 373, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 342, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 402, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_ex' AS _grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 4, ; + Name = "grid_ex", ; + Panel = 1, ; + RecordSource = "v_exceptii_ireg", ; + RowHeight = 23, ; + Top = 84, ; + Width = 456, ; + Column1.ControlSource = "cont", ; + Column1.Name = "Column1", ; + Column1.Width = 124, ; + Column2.ControlSource = "cont_c", ; + Column2.Name = "Column2", ; + Column2.Width = 119, ; + Column3.ControlSource = "iif(debit=0,'DEBIT','CREDIT')", ; + Column3.Name = "Column3", ; + Column3.Width = 179, ; + Column4.ControlSource = "invers", ; + Column4.Name = "Column4", ; + Column4.Visible = .F., ; + Column4.Width = 59, ; + Column5.ControlSource = "id_set", ; + Column5.Name = "Column5", ; + Column5.Visible = .F., ; + Column5.Width = 70 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_ex.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont_corespondent", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pozitie cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Invers", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id_set", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_ex' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_ex", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pex.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_ex) + pex.ca_baza1.cfiltru=lcFiltru + pex.ca_baza1.afisare() + restore_grid_tag(thisform.grid_ex) + IF RECCOUNT('v_exceptii_ireg')>0 + thisform.grid_ex.SetFocus() + ELSE + thisform.lb_nom_ex.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_exceptii_ireg + SCATTER NAME loRec BLANK + PRIVATE lex,poRec + + lex='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "exceptii",loRec,,"INSERT",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_ex.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[cont like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_exceptii_ireg + Scatter Name loRec + PRIVATE lex,poRec + lex = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "exceptii",loRec,loRec.Id_exceptii,"UPDATE",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_exceptii_ireg + SCATTER NAME lorec MEMO + PRIVATE lex + lex = '' + Do STERGE_INREGISTRARE With "exceptii",loRec.id_exceptii,.t.,'lex' + lex.cschema = this.cschema + lex.salvare(,loRec.id_exceptii) + RELEASE lex + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_exceptii_ireg') + USE IN v_exceptii_ireg + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_nou AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_exceptii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 133 + Name = "frm_exceptii_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Exceptii" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 3, ; + Top = 102, ; + Width = 290, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "DEBIT,CREDIT", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Pozitie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.cont", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + Text_simplu1.ControlSource = "porec.cont_c", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Corespondent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_exceptii1' AS cus_odata_exceptii WITH ; + Left = 168, ; + Name = "Cus_odata_exceptii1", ; + Top = 33 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + porec.debit = IIF(this.cb_tx_simplu1._CBBASE1.Value="DEBIT",0,1) + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.cont) + Messagebox('Nu ati completat contul!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.cont_c) + Messagebox('Nu ati completat contul corespondent!',0+48,"Atentie") + This.clb_tx_simplu2.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.debit) + *!* Messagebox('Nu ati completat pozitia contului!',0+48,"Atentie") + *!* This.clb_tx_simplu3.SetFocus() + *!* plreturn=.F. + + OTHERWISE + + lcCont = ALLTRIM(porec.cont) + lcContC = ALLTRIM(porec.cont_c) + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcCont + lcCursor = [cur_cont] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contu in plcont + + IF RECCOUNT('cur_cont')=0 + MESSAGEBOX('Contul '+lcCont+' nu este definit in planul de conturi!',0,'Eroare') + PLRETURN=.f. + USE IN cur_cont + RETURN PLRETURN + ENDIF + IF USED('cur_cont') + USE IN cur_cont + ENDIF + + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcContC + lcCursor = [cur_cont_c] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contul corespondent + IF RECCOUNT('cur_cont_c')=0 + MESSAGEBOX('Contul '+lcContC+' nu este definit in planul de conturi!',0,'Eroare') + PLRETURN=.f. + USE IN cur_cont_c + RETURN PLRETURN + ENDIF + IF USED('cur_cont_c') + USE IN cur_cont_c + ENDIF + this.cus_odata_exceptii1.cschema=this.cschema + PLRETURN=This.cus_odata_exceptii1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + IF porec.debit=0 + this.cb_tx_simplu1._cBBASE1.DisplayValue='DEBIT' + ELSE + this.cb_tx_simplu1._cBBASE1.DisplayValue='CREDIT' + ENDIF + this.orec= toRec + this.nid = tnId + this.cus_odata_exceptii1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_firme_201402 AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFirma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFirma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSchema.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSchema.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cAdresa.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cAdresa.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCodAng.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCodAng.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPrenume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPrenume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCaen.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCaen.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cOasp.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cOasp.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cEmail.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cEmail.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" /> + + * + *m: do_refresh_date + * + + * + cbuton3 = but_modifica1 + cbuton4 = but_sterge1 + cgridsortlist = grd_firme + Desktop = .T. + DoCreate = .T. + Height = 515 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_firme" + Width = 791 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 792 + _SHAPE2.Height = 29 + _SHAPE2.Left = 648 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 144 + LB_TITLU_ALB_B121.Caption = "FIRME" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 9 + BUT_TERMIN1.Left = 756 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 689, ; + Name = "But_modifica1", ; + TabIndex = 4, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 655, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 723, ; + Name = "But_sterge1", ; + TabIndex = 3, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_banca1", ; + TabIndex = 10, ; + TabStop = .F., ; + Top = 244, ; + TEXT_SIMPLU1.ControlSource = "porec.banca1", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Banca 1", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_cod_firma", ; + TabIndex = 12, ; + TabStop = .F., ; + Top = 300, ; + TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Cod firma", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_cod_fiscal", ; + TabIndex = 7, ; + TabStop = .F., ; + Top = 188, ; + Width = 290, ; + TEXT_SIMPLU1.ControlSource = "porec.cod_fiscal", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Cod fiscal", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_cont_banca1", ; + TabIndex = 11, ; + TabStop = .F., ; + Top = 272, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Cont banca 1", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_email", ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 440, ; + TEXT_SIMPLU1.ControlSource = "porec.email", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "E-mail", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_fax", ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 412, ; + TEXT_SIMPLU1.ControlSource = "porec.fax", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Fax", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_reg_comert", ; + TabIndex = 8, ; + TabStop = .F., ; + Top = 216, ; + TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Reg. comert", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_telefon", ; + TabIndex = 13, ; + TabStop = .F., ; + Top = 328, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Telefon", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_telefon2", ; + TabIndex = 14, ; + TabStop = .F., ; + Top = 356, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon2", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Telefon 2", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_telefon3", ; + TabIndex = 15, ; + TabStop = .F., ; + Top = 384, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon3", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Telefon 3", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ; + Height = 124, ; + Left = 466, ; + Name = "Ed_adresa", ; + TabIndex = 6, ; + TabStop = .F., ; + Top = 65, ; + Width = 290, ; + _edbase1.ControlSource = "porec.adresa", ; + _edbase1.Height = 118, ; + _edbase1.Left = 58, ; + _edbase1.Name = "_edbase1", ; + _edbase1.ReadOnly = .T., ; + _edbase1.Top = 2, ; + _edbase1.Width = 228, ; + _LBBASE1.Caption = "Adresa", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'grd_firme' AS _grdrow WITH ; + ColumnCount = 27, ; + DeleteMark = .F., ; + Height = 444, ; + Left = 36, ; + Name = "grd_firme", ; + Panel = 1, ; + RecordSource = "v_firme", ; + TabIndex = 1, ; + Top = 48, ; + Width = 396, ; + Column1.ControlSource = "firma", ; + Column1.Name = "cFirma", ; + Column1.Width = 155, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "schema", ; + Column2.Name = "cSchema", ; + Column2.Width = 120, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "cod_fiscal", ; + Column3.Name = "cCod_Fiscal", ; + Column3.Width = 120, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "cont_banca1", ; + Column4.Name = "cCont_Banca1", ; + Column4.Width = 161, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "banca1", ; + Column5.Name = "cBanca1", ; + Column5.Width = 121, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "banca2", ; + Column6.Name = "cBanca2", ; + Column6.Width = 131, ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "cont_banca2", ; + Column7.Name = "cCont_Banca2", ; + Column7.Width = 149, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "banca3", ; + Column8.Name = "cBanca3", ; + Column8.Width = 148, ; + Column9.ColumnOrder = 11, ; + Column9.ControlSource = "cont_banca3", ; + Column9.Name = "cCont_Banca3", ; + Column9.Width = 141, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "adresa", ; + Column10.Name = "cAdresa", ; + Column10.Width = 174, ; + Column11.ColumnOrder = 13, ; + Column11.ControlSource = "cod_firma", ; + Column11.Name = "cCod_Firma", ; + Column11.Width = 98, ; + Column12.ColumnOrder = 19, ; + Column12.ControlSource = "persoana_juridica", ; + Column12.Name = "cPersoanaJuridica", ; + Column12.Sparse = .F., ; + Column12.Width = 99, ; + Column13.ColumnOrder = 20, ; + Column13.ControlSource = "codang", ; + Column13.Name = "cCodAng", ; + Column13.Width = 130, ; + Column14.ColumnOrder = 21, ; + Column14.ControlSource = "nume", ; + Column14.Name = "cNume", ; + Column14.Width = 119, ; + Column15.ColumnOrder = 22, ; + Column15.ControlSource = "prenume", ; + Column15.Name = "cPrenume", ; + Column15.Width = 132, ; + Column16.ColumnOrder = 24, ; + Column16.ControlSource = "capital_soc_sub", ; + Column16.Name = "cCapital_soc_sub", ; + Column16.Width = 134, ; + Column17.ColumnOrder = 25, ; + Column17.ControlSource = "capital_soc_var", ; + Column17.Name = "cCapital_soc_var", ; + Column17.Width = 116, ; + Column18.ColumnOrder = 27, ; + Column18.ControlSource = "caen", ; + Column18.Name = "cCaen", ; + Column18.Width = 129, ; + Column19.ColumnOrder = 26, ; + Column19.ControlSource = "punct_luc", ; + Column19.Name = "cPunctLucru", ; + Column19.Width = 107, ; + Column20.ColumnOrder = 23, ; + Column20.ControlSource = "oasp", ; + Column20.Name = "cOasp", ; + Column20.Width = 112, ; + Column21.ColumnOrder = 14, ; + Column21.ControlSource = "telefon", ; + Column21.Name = "cTelefon", ; + Column21.Width = 103, ; + Column22.ColumnOrder = 15, ; + Column22.ControlSource = "telefon2", ; + Column22.Name = "cTelefon2", ; + Column22.Width = 115, ; + Column23.ColumnOrder = 16, ; + Column23.ControlSource = "telefon3", ; + Column23.Name = "cTelefon3", ; + Column23.Width = 125, ; + Column24.ColumnOrder = 17, ; + Column24.ControlSource = "fax", ; + Column24.Name = "cFax", ; + Column24.Width = 118, ; + Column25.ColumnOrder = 18, ; + Column25.ControlSource = "email", ; + Column25.Name = "cEmail", ; + Column25.Width = 122, ; + Column26.ColumnOrder = 4, ; + Column26.ControlSource = "reg_comert", ; + Column26.Name = "cReg_Comert", ; + Column26.Width = 147, ; + Column27.ColumnOrder = 5, ; + Column27.ControlSource = "sucursala", ; + Column27.Name = "cSucursala", ; + Column27.Width = 122 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_firme.cAdresa.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Adresa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cAdresa.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cBanca1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca 1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cBanca1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cBanca2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cBanca2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cBanca3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca 3", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cBanca3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCaen.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CAEN", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCaen.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCapital_soc_sub.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Capital social subscris", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCapital_soc_sub.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCapital_soc_var.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Capital social varsat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCapital_soc_var.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCod_Firma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod firma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCod_Firma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCod_Fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCod_Fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCodAng.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod ang.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCodAng.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCont_Banca1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont banca 1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCont_Banca1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCont_Banca2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont banca 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCont_Banca2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCont_Banca3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont banca 3", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCont_Banca3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cEmail.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "E-mail", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cEmail.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cFax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fax", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cFax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cFirma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Firma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cFirma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cOasp.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Oasp", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cOasp.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cPersoanaJuridica.Check1' AS checkbox WITH ; + Alignment = 2, ; + BackStyle = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 47, ; + Name = "Check1", ; + Top = 35, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grd_firme.cPersoanaJuridica.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Persoana juridica", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cPrenume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Prenume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cPrenume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cPunctLucru.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Punct de lucru", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cPunctLucru.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cReg_Comert.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Reg. comert", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cReg_Comert.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cSchema.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Schema", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cSchema.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cTelefon.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cTelefon.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cTelefon2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cTelefon2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cTelefon3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 3", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cTelefon3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + Local lcFiltru + lcFiltru=pcFiltru + If Empty(lcFiltru) + lcFiltru=pofirme.ca_baza1.cfiltru + Endif + save_grid_tag(Thisform.grd_firme) + pofirme.ca_baza1.cfiltru=lcFiltru + pofirme.ca_baza1.afisare() + restore_grid_tag(Thisform.grd_firme) + Thisform.grd_firme.SetFocus() + + ENDPROC + + PROCEDURE Destroy + If Used('v_firme') + Use In v_firme + Endif + ENDPROC + + PROCEDURE do_adauga + gnButon=1 + Select v_firme + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "firme",loRec,,"INSERT" + If gnButon=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_firme')>0 + gnButon=1 + Select v_firme + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "firme",loRec,loRec.Id_firma,"UPDATE" + If gnButon=1 + This.actualizeaza_grid1() + Endif + Endif + ENDPROC + + PROCEDURE do_refresh_date + Thisform.ed_adresa.Refresh() + Thisform.clb_banca1.Refresh() + Thisform.clb_cod_firma.Refresh() + Thisform.clb_cod_fiscal.Refresh() + Thisform.clb_cont_banca1.Refresh() + Thisform.clb_email.Refresh() + Thisform.clb_fax.Refresh() + Thisform.clb_reg_comert.Refresh() + Thisform.clb_telefon.Refresh() + Thisform.clb_telefon2.Refresh() + Thisform.clb_telefon3.Refresh() + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_firme')>0 + gnButon=1 + Select v_firme + Scatter Name loRec + Do STERGE_INREGISTRARE With "firme",loRec.Id_firma + If gnButon=1 + This.actualizeaza_grid1() + Endif + Endif + ENDPROC + + PROCEDURE grd_firme.AfterRowColChange + Lparameters nColIndex + If Inlist(This.RowColChange,0,1,3) + Select v_firme + Scatter Name poRec + Thisform.do_refresh_date() + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_firme_nou_201402 AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_capsocvar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_caen" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_codang" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_prenume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_capsocsub" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_oasp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_firme1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_parinte" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_cod_fiscal_p" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_schema" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_itm" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_localitate1" UniqueID="" Timestamp="" /> + + * + *m: alege_fj + *m: alege_judet + *m: alege_localitate + *m: alege_nivel + *m: alege_organizare + *m: alege_proprietate + *m: sucursala + *p: id_judet + *p: jcategorie + *p: nid + *p: orec + *p: parenta + * + + * + BorderStyle = 3 + Desktop = .F. + DoCreate = .T. + Height = 689 + id_judet = 0 + jcategorie = 1 + Name = "frm_firme_nou" + nid = + orec = + parenta = 0 + ScrollBars = 2 + Width = 701 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 702 + _SHAPE2.Height = 29 + _SHAPE2.Left = 630 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 72 + LB_TITLU_ALB_B121.Caption = "FIRMA" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 44 + BUT_TERMIN1.Left = 669 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 42 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 9 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 214 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 635, ; + Name = "But_renunt1", ; + TabIndex = 43, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 1, ; + Top = 36, ; + Width = 314, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ColumnCount = 2, ; + _cbbase1.ControlSource = "thisform.jcategorie", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 78, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "Persoana juridica,1,Persoana fizica,2", ; + _cbbase1.RowSourceType = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 232, ; + _lbbase1.Caption = "Categorie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 353, ; + Name = "Cb_tx_simplu2", ; + TabIndex = 40, ; + Top = 717, ; + Width = 314, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ColumnCount = 2, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 75, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "Adaugare,1,Modificare,2,Corectie,3", ; + _cbbase1.RowSourceType = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 232, ; + _lbbase1.Caption = "Operaþie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_banca1", ; + TabIndex = 17, ; + Top = 484, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.banca1", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Banca 1", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_banca2' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_banca2", ; + TabIndex = 19, ; + Top = 540, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.banca2", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Banca 2", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_banca3' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_banca3", ; + TabIndex = 21, ; + Top = 596, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.banca3", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Banca 3", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_caen' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_caen", ; + TabIndex = 5, ; + Top = 150, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.caen", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.MaxLength = 4, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "CAEN", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_capsocsub' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_capsocsub", ; + TabIndex = 25, ; + Top = 708, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.capital_soc_sub", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 103, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 207, ; + LB_SIMPLU1.Caption = "Capital soc. sub.", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_capsocvar' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_capsocvar", ; + TabIndex = 24, ; + Top = 680, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.capital_soc_var", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 103, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 207, ; + LB_SIMPLU1.Caption = "Capital soc. vãr.", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cod_firma", ; + TabIndex = 23, ; + Top = 652, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cod firmã", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Clb_cod_fiscal", ; + TabIndex = 4, ; + Top = 120, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.cod_fiscal", ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Cod fiscal", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_codang' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_codang", ; + TabIndex = 31, ; + Top = 457, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.codang", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Cod angajat", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cont_banca1", ; + TabIndex = 18, ; + Top = 512, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cont banca 1", ; + LB_SIMPLU1.Left = 4, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca2' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cont_banca2", ; + TabIndex = 20, ; + Top = 568, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca2", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cont banca 2", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca3' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cont_banca3", ; + TabIndex = 22, ; + Top = 624, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca3", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cont banca 3", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_email", ; + TabIndex = 38, ; + Top = 653, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.email", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "E-mail", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_fax", ; + TabIndex = 37, ; + Top = 625, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.fax", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Fax", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_itm' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_itm", ; + TabIndex = 26, ; + Top = 310, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.indicativ", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "ITM", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nume' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_nume", ; + TabIndex = 32, ; + Top = 485, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.nume", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Nume", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_oasp' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_oasp", ; + TabIndex = 39, ; + Top = 683, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.oasp", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.MaxLength = 3, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "OASP", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_prenume' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_prenume", ; + TabIndex = 33, ; + Top = 513, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.prenume", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Prenume", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_reg_comert", ; + TabIndex = 16, ; + Top = 456, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Reg. comerþ", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_schema' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Clb_schema", ; + TabIndex = 41, ; + Top = 747, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.schema", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Schemã", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_telefon", ; + TabIndex = 34, ; + Top = 541, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Telefon", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_telefon2", ; + TabIndex = 35, ; + Top = 569, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon2", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Telefon 2", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_telefon3", ; + TabIndex = 36, ; + Top = 597, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon3", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Telefon 3", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 3, ; + Top = 92, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.firma", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Firma", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu10' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu10", ; + TabIndex = 29, ; + Top = 396, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.apart", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Apartament", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu11' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu11", ; + TabIndex = 30, ; + Top = 429, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.cod_postal", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Cod poºtal", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 14, ; + Top = 394, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.strada", ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Stradã", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_tx_simplu7", ; + TabIndex = 15, ; + Top = 422, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.numar", ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Numãr", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu8' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu8", ; + TabIndex = 27, ; + Top = 340, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.bloc", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Bloc", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu9' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu9", ; + TabIndex = 28, ; + Top = 368, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.scara", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Scarã", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.forma_juridica,''))=.t., ; + cprocedura = thisform.alege_fj, ; + cvar_afisata = porec.forma_juridica, ; + Left = 352, ; + Name = "Ct_clb_cautare1", ; + TabIndex = 6, ; + Top = 35, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Forma juridicã", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 90, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Width = 220 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare2' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.tip_societate,''))=.t., ; + cprocedura = thisform.alege_nivel, ; + cvar_afisata = porec.tip_societate, ; + Left = 352, ; + Name = "Ct_clb_cautare2", ; + TabIndex = 7, ; + Top = 63, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Nivel", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 90, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Width = 220 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare3' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.forma_organizare,''))=.t., ; + cprocedura = thisform.alege_organizare, ; + cvar_afisata = porec.forma_organizare, ; + Height = 31, ; + Left = 5, ; + Name = "Ct_clb_cautare3", ; + TabIndex = 2, ; + Top = 63, ; + Width = 343, ; + img_cautare.Left = 319, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Lb_simplu1.Caption = "Organizare", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Height = 23, ; + clb_tx_cautare.Text_simplu1.Left = 78, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Text_simplu1.Width = 232 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare4' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.forma_proprietate,''))=.t., ; + cprocedura = thisform.alege_proprietate, ; + cvar_afisata = porec.forma_proprietate, ; + Left = 352, ; + Name = "Ct_clb_cautare4", ; + TabIndex = 10, ; + Top = 147, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Proprietate", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 90, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Width = 220 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_localitate1' AS ct_localitate WITH ; + cdate = poRec, ; + Left = 6, ; + Name = "Ct_localitate1", ; + TabIndex = 13, ; + Top = 310, ; + Cb_localitate_af.img_atentie.Name = "img_atentie", ; + Cb_localitate_af.Name = "Cb_localitate_af", ; + Cb_localitate_af._cbautofill1.Name = "_cbautofill1", ; + Cb_localitate_af._lbbase1.Name = "_lbbase1", ; + Cb_tara.Name = "Cb_tara", ; + Cb_tara._cbbase1.Name = "_cbbase1", ; + Cb_tara._lbbase1.Name = "_lbbase1", ; + Cb_judet.Name = "Cb_judet", ; + Cb_judet._cbbase1.Name = "_cbbase1", ; + Cb_judet._lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\onomenclatoare.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_firme1' AS cus_odata_firme WITH ; + Left = 311, ; + Name = "Cus_odata_firme1", ; + Top = 692 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ; + Height = 72, ; + Left = 6, ; + Name = "Ed_adresa", ; + TabIndex = 12, ; + Top = 225, ; + Width = 605, ; + _edbase1.ControlSource = "porec.adresa", ; + _edbase1.Height = 66, ; + _edbase1.Left = 102, ; + _edbase1.Name = "_edbase1", ; + _edbase1.Top = 2, ; + _edbase1.Width = 499, ; + _LBBASE1.Caption = "Adresã", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ; + Height = 40, ; + Left = 6, ; + Name = "Ed_tx_simplu1", ; + TabIndex = 11, ; + Top = 186, ; + Width = 605, ; + _EDBASE1.ControlSource = "porec.antet", ; + _EDBASE1.Height = 36, ; + _EDBASE1.Left = 102, ; + _EDBASE1.Name = "_EDBASE1", ; + _EDBASE1.Top = 2, ; + _EDBASE1.Width = 500, ; + _LBBASE1.Caption = "Antet", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'tx_cod_fiscal_p' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "tx_cod_fiscal_p", ; + TabIndex = 9, ; + Top = 120, ; + Visible = .F., ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.cod_fiscal_p", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Cod fiscal", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'tx_parinte' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 353, ; + Name = "tx_parinte", ; + TabIndex = 8, ; + Top = 92, ; + Visible = .F., ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.parinte", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Pãrinte", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE alege_fj + buton=2 + lnidstaresoc = thisform.jcategorie + pcselect = [select id_forma_juridica,denumire from syn_nom_forme_juridice] + pcFiltru = [] + pcFiltruOrig = [id_staresoc=?lnidstaresoc] + pcschema = [''] + pcorder = [ordine] + pccoloane = [denumire] + pcTitlu = [Categorie] + pcTitluColoane = [Categorie] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.forma_juridica = locauta.denumire + porec.id_forma_juridica = locauta.id_forma_juridica + ENDIF + + + ENDPROC + + PROCEDURE alege_judet + buton=2 + pcselect = [select id_judet,judet,indicativ from syn_vnom_judete] + pcfiltru = [inactiv=0] + pcFiltruOriginal = [inactiv=0] + pcschema = [''] + pcorder = [judet] + pccoloane = [judet,indicativ] + pcTitlu = [Judete] + pcTitluColoane = [Judet,Indicativ] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.judet = locauta.judet + thisform.id_judet = locauta.id_judet + porec.indicativ=locauta.indicativ + thisform.clb_itm.Refresh + ENDIF + + + + + ENDPROC + + PROCEDURE alege_localitate + IF EMPTY(thisform.id_judet) + aMESSAGEBOX('Alegeti judetul!',48,"Atentie") + porec.id_localitate=0 + RETURN + ENDIF + lnid_jud = thisform.id_judet + pcselect = [select id_loc,localitate from syn_vnom_localitati] + pcFiltru = [inactiv = 0 and id_judet=?lnid_jud] + pcFiltruOrig = pcFiltru + pcschema = [''] + pcorder = [localitate] + pccoloane = [localitate] + pcTitlu = [Localitate] + pcTitluColoane = [Localitate] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.localitate = locauta.localitate + porec.id_loc = locauta.id_loc + ENDIF + + + + + ENDPROC + + PROCEDURE alege_nivel + buton=2 + pcselect = [select id_tip_soc,denumire,parent from syn_nom_tip_societate] + pcfiltru = [2=2] + pcschema = [''] + pcorder = [denumire] + pccoloane = [denumire] + pcTitlu = [Nivel infiintare] + pcTitluColoane = [Nivel] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.tip_societate = locauta.denumire + porec.id_tip_soc = locauta.id_tip_soc + thisform.ParentA = locauta.parent + thisform.sucursala() + ENDIF + + + ENDPROC + + PROCEDURE alege_organizare + IF EMPTY(NVL(porec.id_forma_juridica,'')) + aMESSAGEBOX("Completati forma juridica!",0+48,"Atentie") + porec.id_forma_organizare=0 + RETURN + ENDIF + + buton=2 + pcselect = [select id_forma_organizare,abreviere,denumire from syn_nom_forme_organizare] + pcFiltru = [id_forma_juridica=?porec.id_forma_juridica] + pcFiltruOriginal = pcFiltru + pcschema = [''] + pcorder = [denumire] + pccoloane = [denumire,abreviere] + pcTitlu = [Forma Organizare] + pcTitluColoane = [Forma organizare,Abreviere] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.forma_organizare = locauta.denumire + porec.id_forma_organizare = locauta.id_forma_organizare + ENDIF + + + ENDPROC + + PROCEDURE alege_proprietate + buton=2 + pcselect = [select id_forma_prop,forma_proprietate from syn_nom_forme_proprietate] + pcfiltru = [2=2] + pcschema = [''] + pcorder = [forma_proprietate] + pccoloane = [forma_proprietate] + pcTitlu = [Forma proprietate] + pcTitluColoane = [Forma proprietate] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.forma_proprietate = locauta.forma_proprietate + porec.id_forma_prop= locauta.id_forma_prop + ENDIF + + ENDPROC + + PROCEDURE inainte_de_do_termin + Local PLRETURN + + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + + Do Case + Case Empty(porec.firma) + Messagebox('Nu ati completat numele firmei!',0+48,"Atentie") + Thisform.clb_firma.text_simplu1.SetFocus() + PLRETURN=.F. + Case Empty(porec.schema) + Messagebox('Nu ati completat numele schemei!',0+48,"Atentie") + Thisform.clb_schema.text_simplu1.SetFocus() + PLRETURN=.F. + OTHERWISE + + PLRETURN=Thisform.cus_odata_firme1.salvare(This.OREC,This.NID) + + Endcase + Return PLRETURN + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_firme1.cactiune = tcActiune + Do Case + Case tcActiune="INSERT" + Thisform.lb_titlu_alb_b121.Caption="ADAUGARE FIRMÃ" + Case tcActiune="UPDATE" + If Type("toRec.modificare_schema")<>"U" + Thisform.clb_schema.text_simplu1.Enabled=Iif(toRec.modificare_schema==0,.F.,.T.) + Endif + Thisform.lb_titlu_alb_b121.Caption="MODIFICARE FIRMÃ" + thisform.jcategorie=porec.persoana_juridica + *!* modificare ROADEF v 2.1.2 + *!* lcSelect = [select id_judet,indicativ from vnom_localitati where id_loc=?porec.id_loc] + *!* lcCursor = [crsId_jud] + *!* lnSucces = goExecutor.oExecute(lcSelect,lcCursor) + *!* IF lnSucces < 0 + *!* MESSAGEBOX(goExecutor.cEroare) + *!* ELSE + *!* SELECT crsId_jud + *!* thisform.id_judet = id_judet + *!* USE IN crsId_jud + *!* ENDIF + Thisform.id_judet = toRec.id_judet + *!* modificare ROADEF v 2.1.2 ^ + ENDCASE + *!* modificare ROADEF v 2.1.2 + This.ct_localitate1.initializeaza() + *!* modificare ROADEF v 2.1.2 ^ + ENDPROC + + PROCEDURE sucursala + LOCAL lnP + lnP=thisform.parenta + thisform.tx_parinte.Visible=IIF(lnP=0,.f.,.t.) + thisform.tx_cod_fiscal_p.Visible=IIF(lnP=0,.f.,.t.) + thisform.tx_cod_fiscal_p.Refresh + thisform.tx_parinte.Refresh + ENDPROC + + PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange + porec.persoana_juridica=this.value + thisform.jcategorie=this.Value + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Edit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_optiuni" + Width = 524 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape2.Height = 29 + _shape2.Left = 402 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "OPTIUNI" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Left = 434, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 403, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 463, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 431, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_opt' AS _grid WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 5, ; + Name = "grid_opt", ; + Panel = 1, ; + RecordSource = "v_optiuni", ; + RowHeight = 23, ; + Top = 84, ; + Width = 513, ; + Column1.ControlSource = "varname", ; + Column1.Name = "Column1", ; + Column1.Width = 241, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "vartype", ; + Column2.Name = "Column2", ; + Column2.Width = 70, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "varvalue", ; + Column3.Name = "Column3", ; + Column3.Sparse = .F., ; + Column3.Width = 226, ; + Column4.ControlSource = "vardesc", ; + Column4.Name = "Column4", ; + Column4.Width = 145 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_opt.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip data", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column3.Edit1' AS editbox WITH ; + Height = 53, ; + Left = 94, ; + Name = "Edit1", ; + Top = 23, ; + Width = 100 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'grid_opt.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_opt' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 8, ; + Name = "lb_nom_opt", ; + TabIndex = 1, ; + Top = 52, ; + Width = 376, ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 57, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 313, ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=popt.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_opt) + popt.ca_baza1.cfiltru=lcFiltru + popt.ca_baza1.afisare() + restore_grid_tag(thisform.grid_opt) + IF RECCOUNT('v_optiuni')>0 + thisform.grid_opt.SetFocus() + ELSE + thisform.lb_nom_opt.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_optiuni + SCATTER NAME loRec MEMO BLANK + PRIVATE lopt,poRec + lopt='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "optiuni",loRec,,"INSERT",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_opt.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[UPPER(varname) like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_optiuni + Scatter Name loRec MEMO + PRIVATE lopt,poRec + lopt = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "optiuni",loRec,loRec.Id_optiuni,"UPDATE",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_optiuni + SCATTER NAME lorec MEMO + PRIVATE lopt + lopt = '' + Do STERGE_INREGISTRARE With "optiuni",loRec.id_optiuni,.t.,'lopt' + lopt.cschema = this.cschema + lopt.salvare(,loRec.id_optiuni) + RELEASE lopt + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Init + DODEFAULT() + THIS.WindowState = 2 + ENDPROC + + PROCEDURE Unload + IF USED('v_optiuni') + USE IN v_optiuni + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_optiuni1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_optiuni_nou" + Width = 492 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 492 + _shape2.Height = 29 + _shape2.Left = 416 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Optiuni" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 459 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 429, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 2, ; + Top = 72, ; + _cbbase1.ControlSource = "porec.vartype", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "CHARACTER,CURRENCY,NUMERIC,DATETIME,DATE,LOGICAL", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Tip data", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.varname", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 100, ; + Width = 465, ; + Text_simplu1.ControlSource = "porec.varvalue", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 360, ; + Lb_simplu1.Caption = "Valoare", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 128, ; + Width = 465, ; + Text_simplu1.ControlSource = "porec.vardesc", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 360, ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_optiuni1' AS cus_odata_optiuni WITH ; + Left = 144, ; + Name = "Cus_odata_optiuni1", ; + Top = 24 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.varname) + Messagebox('Nu ati completat denumirea variabilei!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.vartype) + Messagebox('Nu ati completat tipul de data!',0+48,"Atentie") + This.CB_tx_simplu1.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.varvalue) + *!* Messagebox('Nu ati completat valoarea variabilei!',0+48,"Atentie") + *!* This.clb_tx_simplu3.SetFocus() + *!* plreturn=.F. + + OTHERWISE + this.cus_odata_optiuni1.cschema=this.cschema + PLRETURN=This.cus_odata_optiuni1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + toRec.varvalue = NVL(toRec.varvalue, '') + poRec.varvalue = NVL(toRec.varvalue, '') + + toRec.vardesc = NVL(toRec.vardesc, '') + poRec.vardesc = NVL(toRec.vardesc, '') + + this.orec= toRec + this.nid = tnId + this.cus_odata_optiuni1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_plafon_casa AS frm_termin OF "..\..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_plafoane" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" /> + + * + *p: ctabel + *p: ogencursor + * + + * + BorderStyle = 2 + cgridsortlist = grid_plafoane + ctabel = + DoCreate = .T. + Height = 340 + Name = "frm_plafon_casa" + ogencursor = + Width = 492 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 504 + _shape2.Height = 29 + _shape2.Left = 428 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 63 + Lb_titlu_alb_b121.Caption = "Plafon casa" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 461 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 452 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 431, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_luna_intre1", ; + Top = 39, ; + Width = 229, ; + tx_n1.Left = 68, ; + tx_n1.Name = "tx_n1", ; + tx_n1.Top = 3, ; + LB_SIMPLU1.Caption = "Perioada", ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + tx_n2.Left = 148, ; + tx_n2.Name = "tx_n2", ; + tx_n2.Top = 3 + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Height = 27, ; + Left = 244, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 40, ; + Width = 80 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_plafoane' AS _grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + HeaderHeight = 23, ; + Height = 258, ; + Left = 6, ; + Name = "grid_plafoane", ; + Panel = 1, ; + RecordSource = "v_plafon", ; + RowHeight = 20, ; + Top = 74, ; + Width = 479, ; + Column1.ControlSource = "plafon_casa", ; + Column1.InputMask = (get_mask(12,gnPa)), ; + Column1.Name = "Column1", ; + Column1.Width = 114, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "plafon_furnizori", ; + Column2.InputMask = (get_mask(12,gnPa)), ; + Column2.Name = "Column2", ; + Column2.Width = 110, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "luna", ; + Column3.Name = "Column3", ; + Column3.Width = 43, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "anul", ; + Column4.Name = "Column4", ; + Column4.Width = 64, ; + Column5.ColumnOrder = 2, ; + Column5.ControlSource = "plafon_plati", ; + Column5.InputMask = (get_mask(12,gnPa)), ; + Column5.Name = "Column5", ; + Column5.Width = 112 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_plafoane.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon casa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon furnizori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon plati", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + pobj = this.ogencursor + IF EMPTY(lcFiltru) + lcFiltru=pobj.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_plafoane) + pobj.ca_baza1.cfiltru=lcFiltru + pobj.ca_baza1.afisare() + restore_grid_tag(thisform.grid_plafoane) + thisform.grid_plafoane.SetFocus + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + + lcLunaMin =SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),1,2) + lcAnMin = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),3) + + lcLunaMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),1,2) + lcAnMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),3) + + IF EMPTY(lcLunaMin) + lcLunaMin = '1' + ENDIF + IF EMPTY(lcAnMin) + lcAnMin = STR(gnAn) + ENDIF + IF EMPTY(lcLunaMax) + lcLunaMax = STR(gnLuna) + ENDIF + IF EMPTY(lcAnMax) + lcAnMax = STR(gnAn) + ENDIF + + lcfiltru = [luna + 12*anul between ] + lcLunaMin + [ + 12*] + lcAnMin + [ and ] + lcLunaMax + [ + 12*] + lcAnMax + + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + lcCrs = this.ctabel + + SELECT (lcCrs) + Scatter Name loRec + PRIVATE lcot,poRec + lcot = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "plafon",loRec,loRec.Id_calendar,"UPDATE",.t.,'lcot' + *lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + thisform.actualizeaza_grid1() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_plafon_nou AS frm_termin_renunt OF "..\..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_plafon_casa1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 2 + cschema = + DoCreate = .T. + Height = 198 + Name = "frm_plafon_nou" + nid = + orec = + Width = 316 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 320 + _shape2.Left = 242 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Plafoane casa" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 284 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 255 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 5 + But_renunt1.Top = 1 + * + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 49, ; + Text_simplu1.ControlSource = "porec.plafon_casa", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon casa", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 77, ; + Text_simplu1.ControlSource = "porec.plafon_plati", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon plati", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 7, ; + TabStop = .F., ; + Top = 133, ; + Text_simplu1.ControlSource = "porec.luna", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Luna", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu4", ; + TabIndex = 3, ; + Top = 105, ; + Text_simplu1.ControlSource = "porec.plafon_furnizori", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon furnizori", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 8, ; + TabStop = .F., ; + Top = 161, ; + Text_simplu1.ControlSource = "porec.anul", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "An", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_plafon_casa1' AS cus_odata_plafon_casa WITH ; + Left = 65, ; + Name = "Cus_odata_plafon_casa1", ; + Top = 33 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + *!* lccontrol = UPPER(this.ActiveControl.BaseClass) + *!* IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + *!* lcval=This.Activecontrol.controlsource + *!* &lcval=thisform.ActiveControl.value + *!* ENDIF + + this.cus_odata_plafon_casa1.cschema=this.cschema + PLRETURN=This.cus_odata_plafon_casa1.salvare(This.OREC,This.NID) + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_plafon_casa1.cactiune = tcActiune + ENDPROC + +ENDDEFINE diff --git a/Clase/oasociere.vc2 b/Clase/oasociere.vc2 new file mode 100644 index 0000000..8d6497e --- /dev/null +++ b/Clase/oasociere.vc2 @@ -0,0 +1,915 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oasociere.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_parteneri_gestiuni AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\program files\microsoft visual foxpro 8\foxpro.h" + * + Name = "cus_odata_parteneri_gestiuni" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + lcId = Iif(InList(lcActiune, 'UPDATE', 'DELETE'), Alltrim(Str(tnId)), 'NULL') + If InList(lcActiune, 'INSERT', 'UPDATE') + lcId_part = Iif(Nvl(toRec.id_part,0) = 0, 'NULL',Alltrim(Str(toRec.id_part))) + lcId_gestiune = Iif(Nvl(toRec.id_gestiune,0) = 0, 'NULL',Alltrim(Str(toRec.id_gestiune))) + lcCont = Iif(IsNull(toRec.cont), '',Alltrim(toRec.cont)) + EndIf + + + Do Case + Case InList(lcActiune, "INSERT", 'UPDATE') + lcSql = [begin pack_def.asociere_part_gest(]+lcId+[,]+lcId_part+[,]+lcId_gestiune+[,'] + lcCont + [',] + ALLTRIM(Str(gnIdUtil))+[,]+ALLTRIM(STR(pnTip_asociere))+[); end;] + Case lcActiune = "DELETE" + lcSql = [begin pack_def.sterge_asociere_part_gest(]+lcId+[); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_parteneri_sectii AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\program files\microsoft visual foxpro 8\foxpro.h" + * + Name = "cus_odata_parteneri_sectii" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + *!* lcnom = gcS + ".nom_valute" + *!* lcamp = "nom_valute.id_valuta" + *!* lclook = gcS + ".act" + *!* lclookid = "act.id_valuta" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcId_part = Nvl(Alltrim(Str(toRec.id_part)),"") + lcId_sectie = Nvl(Alltrim(Str(toRec.id_sectie)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin pack_def.adauga_asociere_part_sect(]+lcId_part+[,]+lcId_sectie+[,]+ALLTRIM(Str(gnIdUtil))+[,]+ALLTRIM(STR(pnTip_asociere))+[); end;] + Case lcActiune = "UPDATE" + lcSql = [begin pack_def.modifica_asociere_part_sect(]+lcId+[,]+lcId_part+[,]+lcId_sectie+[,]+ALLTRIM(Str(gnIdUtil))+[); end;] + Case lcActiune = "DELETE" + lcSql = [begin pack_def.sterge_asociere_part_sect(]+lcId+[); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_gestiuni AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_asociere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cPartener.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cPartener.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cGestiune.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cGestiune.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + cgridsortlist = grid_asociere + DoCreate = .T. + Height = 391 + Name = "frm_parteneri_gestiuni" + Width = 429 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 444 + _shape2.Height = 29 + _shape2.Left = 247 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 182 + Lb_titlu_alb_b121.Caption = "Asociere entitãþi - gestiuni" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 399 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 368, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 339, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 279, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 249, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 309, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_asociere' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 336, ; + Left = 12, ; + Name = "grid_asociere", ; + Panel = 1, ; + RecordSource = "crsAsociere", ; + Top = 41, ; + Width = 408, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "cPartener", ; + Column1.Width = 155, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nume_gestiune", ; + Column2.Name = "cGestiune", ; + Column2.Width = 165, ; + Column3.ColumnOrder = 1, ; + Column3.ControlSource = "cont", ; + Column3.Name = "cCont", ; + Column3.Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_asociere.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_asociere.cGestiune.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.cGestiune.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_asociere.cPartener.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Entitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.cPartener.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poAsociere.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_asociere) + poAsociere.ca_baza1.cfiltru=lcFiltru + poAsociere.ca_baza1.afisare() + restore_grid_tag(thisform.grid_asociere) + + *!* IF RECCOUNT('v_sucursale')>0 + *!* thisform._gnom_sucursale.SetFocus() + *!* ELSE + *!* thisform.lb_nom_sucursale.SetFocus() + *!* ENDIF + ENDPROC + + PROCEDURE do_adauga + SELECT crsAsociere + SCATTER NAME loRec blank + DO Adauga_Modifica_Inregistrare WITH "parteneri_gestiuni",loRec,,"INSERT" + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_modifica + Select crsAsociere + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "parteneri_gestiuni",loRec,loRec.id_asociere,"UPDATE" + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT crsAsociere + SCATTER NAME lorec + llSucces = STERGE_INREGISTRARE("parteneri_gestiuni",loRec.id_asociere) + If llSucces + this.actualizeaza_grid1() + EndIf + this.grid_asociere.SetFocus() + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH thisform.grid_asociere + + + ENDPROC + + PROCEDURE inainte_de_do_listare + thisform.AlwaysOnTop = .F. + + PRIVATE pcDataOra, pcTitlu + pcDataOra = get_ora(2) + pcTitlu = "Asociere entitati - gestiuni" + + LOCAL lcTabel + lcTabel = this.grid_asociere.RecordSource + + SELECT (lcTabel) + REPORT FORM rAsociere_part_gest.frx TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop = .T. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_gestiuni_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ct_clb_partener" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_gestiune" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_parteneri_gestiuni1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_gestiune + *m: do_cauta_partener + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 137 + Name = "frm_parteneri_gestiuni_nou" + nid = .F. + orec = .F. + Width = 290 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 684 + _shape2.Height = 29 + _shape2.Left = 533 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 66 + Lb_titlu_alb_b121.Caption = "Partener - gestiune" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Left = 260 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 156 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 0 + * + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 229, ; + Name = "BUT_RENUNT1", ; + TabIndex = 4, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_cont' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 7, ; + Name = "Clb_cont", ; + TabIndex = 1, ; + Top = 42, ; + Width = 125, ; + Text_simplu1.ControlSource = "porec.cont", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 64, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 57, ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_gestiune' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(poRec.id_gestiune,0)), ; + cprocedura = thisform.do_cauta_gestiune, ; + cvar_afisata = poRec.nume_gestiune, ; + Height = 31, ; + Left = 6, ; + Name = "Ct_clb_gestiune", ; + TabIndex = 2, ; + Top = 97, ; + Width = 281, ; + IMG_CAUTARE.Left = 259, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Gestiune", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 63, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 252 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(poRec.id_part,0)), ; + cprocedura = thisform.do_cauta_partener, ; + cvar_afisata = poRec.denumire, ; + Height = 31, ; + Left = 6, ; + Name = "Ct_clb_partener", ; + TabIndex = 1, ; + Top = 69, ; + Width = 281, ; + img_cautare.Left = 259, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Partener", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 62, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 251 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_parteneri_gestiuni1' AS cus_odata_parteneri_gestiuni WITH ; + Left = 180, ; + Name = "Cus_odata_parteneri_gestiuni1", ; + Top = 0 + *< END OBJECT: ClassLib="oasociere.vcx" BaseClass="custom" /> + + PROCEDURE do_cauta_gestiune + Local loCauta + loCauta = caut_gestiune() + If !Empty(Nvl(loCauta.id_gestiune,0)) + poRec.id_gestiune = loCauta.id_gestiune + poRec.nume_gestiune = Alltrim(loCauta.nume_gestiune) + Thisform.ct_clb_gestiune.Refresh() + Else + poRec.id_gestiune = Null + poRec.nume_gestiune = [] + Endif + ENDPROC + + PROCEDURE do_cauta_partener + Local loCauta + loCauta=caut_partener() + If !Empty(Nvl(loCauta.id_part,0)) + poRec.id_part = loCauta.id_part + poRec.denumire = Alltrim(loCauta.denumire) + Thisform.ct_clb_partener.Refresh() + Else + poRec.id_part = Null + poRec.denumire = [] + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Private pnExistaGestiune, pnExistaPartener + Local PLRETURN + + Do Case + Case Empty(porec.id_part) Or Isnull(porec.id_part) + amessagebox('Nu ati completat partenerul!',0+48,"Atentie") + Thisform.ct_clb_partener.SetFocus() + PLRETURN=.F. + Case Empty(porec.id_gestiune) Or Isnull(porec.id_gestiune) + amessagebox('Nu ati completat gestiunea!',0+48,"Atentie") + Thisform.ct_clb_sectie.SetFocus() + PLRETURN=.F. + Otherwise + If Alltrim(Upper(This.cus_odata_parteneri_gestiuni1.cactiune))="INSERT" ; + Or (Alltrim(Upper(This.cus_odata_parteneri_gestiuni1.cactiune))="UPDATE") + + pnExistaGestiune = 0 + *!* pnExistaPartener = 0 + *!* lcSql = [select Count(*) from asociere_parteneri_gestiuni where cont = '] + Alltrim(porec.Cont) + [' and id_part = ] + Alltrim(Str(porec.id_part)) + *!* lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener) + + lcSql = [select Count(*) from asociere_parteneri_gestiuni where id_gestiune = ] + Alltrim(Str(porec.id_gestiune)) + lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaGestiune) + + + If pnExistaGestiune <> 0 + + *!* If pnExistaGestiune <> 0 + amessagebox('Mai exista aceasta gestiune inregistrata!',0+48,"Atentie") + Thisform.ct_clb_gestiune.SetFocus() + PLRETURN=.F. + *!* Else + *!* If pnExistaPartener <> 0 + *!* amessagebox('Mai exista acest partener inregistrat!',0+48,"Atentie") + *!* Thisform.ct_clb_partener.SetFocus() + *!* PLRETURN=.F. + *!* Endif + *!* Endif + Else + PLRETURN=This.cus_odata_parteneri_gestiuni1.salvare(This.OREC,This.NID) + Endif + Endif + + Endcase + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_parteneri_gestiuni1.cactiune = tcActiune + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_sectii AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_asociere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 391 + Name = "frm_parteneri_sectii" + Width = 400 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 410 + _shape2.Height = 29 + _shape2.Left = 216 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 182 + Lb_titlu_alb_b121.Caption = "Asociere entitãþi - secþii" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 369 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 338, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 309, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 249, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 219, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 279, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_asociere' AS _grdrow WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 336, ; + Left = 12, ; + Name = "grid_asociere", ; + Panel = 1, ; + RecordSource = "crsAsociere", ; + Top = 41, ; + Width = 375, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "Column1", ; + Column1.Width = 155, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "sectie", ; + Column2.Name = "Column2", ; + Column2.Width = 182 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_asociere.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Entitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_asociere.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poAsociere.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_asociere) + poAsociere.ca_baza1.cfiltru=lcFiltru + poAsociere.ca_baza1.afisare() + restore_grid_tag(thisform.grid_asociere) + + *!* IF RECCOUNT('v_sucursale')>0 + *!* thisform._gnom_sucursale.SetFocus() + *!* ELSE + *!* thisform.lb_nom_sucursale.SetFocus() + *!* ENDIF + ENDPROC + + PROCEDURE do_adauga + SELECT crsAsociere + SCATTER NAME loRec blank + DO Adauga_Modifica_Inregistrare WITH "parteneri_sectii",loRec,,"INSERT" + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_modifica + Select crsAsociere + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "parteneri_sectii",loRec,loRec.id_asociere,"UPDATE" + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT crsAsociere + SCATTER NAME lorec + Do STERGE_INREGISTRARE With "parteneri_sectii",loRec.id_asociere + + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH thisform.grid_asociere + + + ENDPROC + + PROCEDURE inainte_de_do_listare + thisform.AlwaysOnTop = .F. + + PRIVATE pcDataOra, pcTitlu + pcDataOra = get_ora(2) + pcTitlu = "Asociere entitati - sectii" + + LOCAL lcTabel + lcTabel = this.grid_asociere.RecordSource + + SELECT (lcTabel) + REPORT FORM rAsociere_part_sect.frx TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop = .T. + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.grid_asociere.colUMN1.DynamicBackColor = [IIF(part_inactiv = 1,RGB(128,128,128),RGB(255,255,255))] + Thisform.grid_asociere.coluMN2.DynamicBackColor = [IIF(sectie_inactiva = 1,RGB(128,128,128),RGB(255,255,255))] + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_sectii_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cus_odata_parteneri_sectii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_partener" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_partener + *m: do_cauta_sectie + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 98 + Name = "frm_parteneri_sectii_nou" + nid = .F. + orec = .F. + Width = 598 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 684 + _shape2.Height = 29 + _shape2.Left = 533 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 66 + Lb_titlu_alb_b121.Caption = "Partener - secþie" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Left = 567 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 228 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 536, ; + Name = "BUT_RENUNT1", ; + TabIndex = 4, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare WITH ; + cconditie = ISNULL(poRec.id_part), ; + cprocedura = thisform.do_cauta_partener, ; + cvar_afisata = poRec.denumire, ; + Height = 31, ; + Left = 6, ; + Name = "Ct_clb_partener", ; + TabIndex = 1, ; + Top = 48, ; + Width = 280, ; + img_cautare.Left = 259, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Partener", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 62, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 251 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_sectie' AS ct_clb_cautare WITH ; + cconditie = ISNULL(poRec.id_sectie), ; + cprocedura = thisform.do_cauta_sectie, ; + cvar_afisata = poRec.sectie, ; + Height = 31, ; + Left = 312, ; + Name = "Ct_clb_sectie", ; + TabIndex = 2, ; + Top = 48, ; + Width = 281, ; + IMG_CAUTARE.Left = 259, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Secþie", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 63, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 252 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_parteneri_sectii1' AS cus_odata_parteneri_sectii WITH ; + Left = 156, ; + Name = "Cus_odata_parteneri_sectii1", ; + Top = 12 + *< END OBJECT: ClassLib="oasociere.vcx" BaseClass="custom" /> + + PROCEDURE do_cauta_partener + Local loCauta + loCauta=caut_partener() + If !Empty(Nvl(loCauta.id_part,0)) + poRec.id_part = loCauta.id_part + poRec.denumire = Alltrim(loCauta.denumire) + Thisform.ct_clb_partener.Refresh() + Else + poRec.id_part = Null + poRec.denumire = [] + Endif + ENDPROC + + PROCEDURE do_cauta_sectie + Local loCauta + loCauta = caut_sectie() + If !Empty(Nvl(loCauta.id_sectie,0)) + poRec.id_sectie = loCauta.id_sectie + poRec.sectie = Alltrim(loCauta.sectie) + Thisform.ct_clb_sectie.Refresh() + Else + poRec.id_sectie = Null + poRec.sectie = [] + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Private pnExistaPartener, pnExistaSectie + Local PLRETURN + + Do Case + Case Empty(porec.id_part) Or Isnull(porec.id_part) + amessagebox('Nu ati completat partenerul!',0+48,"Atentie") + Thisform.ct_clb_partener.SetFocus() + PLRETURN=.F. + Case Empty(porec.id_sectie) Or Isnull(porec.id_sectie) + amessagebox('Nu ati completat sectia!',0+48,"Atentie") + Thisform.ct_clb_sectie.SetFocus() + PLRETURN=.F. + Otherwise + If Alltrim(Upper(This.cus_odata_parteneri_sectii1.cactiune))="INSERT" ; + Or (Alltrim(Upper(This.cus_odata_parteneri_sectii1.cactiune))="UPDATE") + + pnExistaPartener = 0 + lcSql = [select Count(*) from asociere_parteneri_sectii where id_part=]+Alltrim(Str(porec.id_part)) + lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener) + + pnExistaSectie = 0 + lcSql = [select Count(*) from asociere_parteneri_sectii where id_sectie=]+Alltrim(Str(porec.id_sectie)) + lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener) + + + + If pnTip_asociere = 1 && inchidere cu K + If pnExistaPartener > 0 + amessagebox('Mai exista acest partener inregistrat!',0+48,"Atentie") + Thisform.ct_clb_partener.SetFocus() + PLRETURN=.F. + Else + If pnExistaSectie > 0 + amessagebox('Mai exista aceasta sectie inregistrata!',0+48,"Atentie") + Thisform.ct_clb_sectie.SetFocus() + PLRETURN=.F. + Else + PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID) + Endif + Endif + + Else + PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID) + Endif + Else + PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID) + Endif + + Endcase + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_parteneri_sectii1.cactiune = tcActiune + + ENDPROC + + PROCEDURE Ct_clb_sectie.IMG_CAUTARE.Click + thisform.do_cauta_sectie() + ENDPROC + +ENDDEFINE diff --git a/Clase/oblocare.vc2 b/Clase/oblocare.vc2 new file mode 100644 index 0000000..517abfd --- /dev/null +++ b/Clase/oblocare.vc2 @@ -0,0 +1,324 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oblocare.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_viz_blocate AS formtermin OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grdPrograme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPrograme.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPrograme.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cLunaAn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cLunaAn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cBlocat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cBlocat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cUtilizator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cUtilizator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cDataOra.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cDataOra.Text1" UniqueID="" Timestamp="" /> + + * + *m: istoricblocare + *m: refresh_luni + *m: update_luni + *p: nide_program + * + + * + BorderStyle = 3 + DoCreate = .T. + Height = 408 + Name = "frm_viz_blocate" + nide_program = 0 + Width = 788 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 792 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 750 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 39 + Lb_titlu_alb_b121.Caption = "Luni blocate " + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 755 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 0 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'grdLuni' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 360, ; + HighlightStyle = 2, ; + Left = 344, ; + Name = "grdLuni", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordSource = "crslunian", ; + ScrollBars = 2, ; + ToolTipText = "Click pe o linie pentru afisare istoric blocari/deblocari", ; + Top = 36, ; + Width = 443, ; + Column1.Alignment = 2, ; + Column1.ControlSource = "padl(alltrim(str(luna)),2,'0') + '/' + alltrim(str(an))", ; + Column1.Name = "cLunaAn", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 91, ; + Column2.Alignment = 2, ; + Column2.ControlSource = "blocat", ; + Column2.Name = "cBlocat", ; + Column2.ReadOnly = .F., ; + Column2.Sparse = .F., ; + Column2.Visible = .T., ; + Column2.Width = 67, ; + Column3.ControlSource = "utilizator", ; + Column3.Name = "cUtilizator", ; + Column3.ReadOnly = .T., ; + Column3.Width = 136, ; + Column4.ControlSource = "dataora", ; + Column4.Name = "cDataOra", ; + Column4.ReadOnly = .T., ; + Column4.Width = 112 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdLuni.cBlocat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 30, ; + Name = "Check1", ; + ReadOnly = .F., ; + Top = 71, ; + Visible = .T., ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grdLuni.cBlocat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Blocat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cDataOra.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cDataOra.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdLuni.cLunaAn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna/an", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cLunaAn.Text1' AS textbox WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdLuni.cUtilizator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Utilizator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cUtilizator.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPrograme' AS _grdbase WITH ; + Anchor = 5, ; + ColumnCount = 1, ; + DeleteMark = .F., ; + Height = 360, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "grdPrograme", ; + Panel = 1, ; + RecordSource = "crsprograme", ; + ScrollBars = 2, ; + Top = 36, ; + Width = 312, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "Column1", ; + Column1.Width = 279 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdPrograme.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Programe", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPrograme.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Init + DODEFAULT() + this.update_luni() + this.refresh_luni() + This.grdLuni.SetAll('DynamicForeColor','IIF(blocat = 1, RGB(0,0,0),RGB(0,0,255))','Column') + + ENDPROC + + PROCEDURE istoricblocare + PARAMETERS pnIdeProgram, pnAn, pnLuna + + Local lcSql, lcText, llSucces, lcSelect + lcText = '' + lcSelect = SELECT() + TEXT TO lcSql NOSHOW + select b.blocat, + l1.id_program, + l1.an, + l1.luna, + l1.id_util, + u.utilizator, + l1.stare, + l1.dataora + from blocatprogramluni b + join (select l.id_log, + to_number(substr(l.id_tabel, 1, 1)) as id_program, + to_number(substr(l.id_tabel, 2, 4)) as an, + to_number(substr(l.id_tabel, 6, 2)) as luna, + l.tabel, + l.id_tabel, + l.camp, + l.ID_UTIL, + DECODE(VALOAREN, 1, 'BLOCAT', 'DEBLOCAT') AS STARE, + l.dataora + from LOG l) l1 + on l1.ID_TABEL = b.ide_program || b.an || lpad(b.luna, 2, '0') + and l1.tabel = 'BLOCATPROGRAMLUNI' + and l1.camp = 'BLOCAT' + join syn_utilizatori u + on l1.id_util = u.id_util + where b.an = ?pnAn + and b.luna = ?pnLuna + and b.ide_program = ?pnIdeProgram + and u.utilizator not in ('SUPERVIZOR', 'ELI') + ORDER BY l1.dataora; + ENDTEXT + + llSucces = goexecutor.oExecuta(lcSql, 'crsIstoricBlocare') + IF llSucces + SELECT crsIstoricBlocare + SCAN + lcText = lcText + PADR(ALLTRIM(utilizator), 30, ' ') + ' ' + stare + ' ' + TTOC(dataora) + IIF(RECNO() <> RECCOUNT(), CHR(13) + CHR(10) + CHR(13) + CHR(10), '') + ENDSCAN + IF !EMPTY(lcText) + lctext = 'ISTORIC LUNA ' + PADL(m.pnLuna, 2, '0') +'/' + ALLTRIM(STR(m.pnAn)) + CHR(13) + CHR(10) + CHR(13) + CHR(10) + m.lcText + ENDIF + USE IN (SELECT('crsIstoricBlocare')) + ENDIF + + SELECT(m.lcSelect) + RETURN m.lcText + ENDPROC + + PROCEDURE refresh_luni + thisform.LockScreen = .T. + PRIVATE pnIde_Program + pnIde_Program = crsPrograme.ide_program + + lcFiltru = "ide_program = ?pnIde_Program" + save_grid_comment(this.grdLuni) + + poBlocat.ca_baza1.cFiltru = lcFiltru + + restore_grid_comment(this.grdLuni) + + this.grdluni.Refresh + thisform.LockScreen = .F. + ENDPROC + + PROCEDURE update_luni + LOCAL lcSql, lnSucces + + lcsql = "BEGIN PACK_FIRMA.INSERT_IN_LUNI_BLOCATE(?gcS); END;" + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0+16, 'Eroare') + ENDIF + ENDPROC + + PROCEDURE grdLuni.AfterRowColChange + LPARAMETERS nColIndex + IF INLIST(nColIndex,1,3) + this.ToolTipText = Thisform.IstoricBlocare(crslunian.ide_program, crslunian.an, crslunian.luna) + ENDIF + ENDPROC + + PROCEDURE grdLuni.cBlocat.Check1.InteractiveChange + + + + ENDPROC + + PROCEDURE grdLuni.cBlocat.Check1.Valid + PRIVATE pnAn, pnLuna, pnBlocat + pnAn = crsLuniAn.an + pnLuna = crsLuniAn.luna + pnIde_Program = crsPrograme.Ide_program + pnBlocat = crsLuniAn.blocat + lcSql = "BEGIN PACK_FIRMA.UPDATE_LUNI_BLOCATE(?gcS, ?pnIde_Program, ?pnAn, ?pnLuna, ?pnBlocat); END;" + lnSucces=goExecutor.oExecute(lcSql) + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ENDIF + ENDPROC + + PROCEDURE grdPrograme.AfterRowColChange + LPARAMETERS nColIndex + + IF INLIST(THIS.ROWCOLCHANGE, 1, 3) + thisform.refresh_luni() + ENDIF + + + + ENDPROC + +ENDDEFINE diff --git a/Clase/oconfigurare_seturi.vc2 b/Clase/oconfigurare_seturi.vc2 new file mode 100644 index 0000000..64fb7fd --- /dev/null +++ b/Clase/oconfigurare_seturi.vc2 @@ -0,0 +1,4718 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oconfigurare_seturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_categorii AS frm_gol OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Height = 319 + Name = "frm_categorii" + Width = 500 + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Caption = "Editare categorii seturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + Clb_tx_simplu1.Lb_simplu1.Caption = "Categorie" + Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1" + Clb_tx_simplu1.Name = "Clb_tx_simplu1" + Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1" + But_nou1.Name = "But_nou1" + But_sterge1.Name = "But_sterge1" + But_modifica1.Name = "But_modifica1" + But_cautare1.Anchor = 8 + But_cautare1.Name = "But_cautare1" + Gridb1.COLUMN1.ControlSource = "categorie" + Gridb1.COLUMN1.Header1.Caption = "Categorie" + Gridb1.COLUMN1.Header1.Name = "Header1" + Gridb1.COLUMN1.Name = "COLUMN1" + Gridb1.COLUMN1.Text1.Name = "Text1" + Gridb1.COLUMN1.Width = 422 + Gridb1.Height = 236 + Gridb1.Left = 24 + Gridb1.Name = "Gridb1" + Gridb1.Panel = 1 + Gridb1.SplitBar = .F. + Gridb1.Top = 72 + Gridb1.Width = 461 + * + + PROCEDURE Init + DoDefault() + + ENDPROC + + PROCEDURE Load + This.cselect = [select categorie, id_categorie from xsetscategorii order by 2] + This.ccursor = [crsCategorii] + this.cprimarykey = [id_categorie] + this.ccriteriu = [categorie] + this.cform = [categorii] + this.ctabela = [xsetscategorii] + + DoDefault() + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_categorii_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 94 + Name = "frm_categorii_nou" + Width = 333 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 353 + _shape2.Left = 280 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Editare categorie" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 303 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 36 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 274, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 24, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 48, ; + Width = 290, ; + Text_simplu1.ControlSource = "porec.categorie", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 84, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 201, ; + Lb_simplu1.Caption = "Categorie", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 56 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + Local lcSql, lnSucces, lcCategorie + + lcCategorie = Alltrim(This.clb_tx_simplu1.text_simplu1.Value) + + If Empty(porec.id_categorie) + lcSql = [insert into xsetscategorii(categorie) values('] + lcCategorie+ [')] + Else + lcSql = [update xsetscategorii set categorie = '] + lcCategorie + ['] + ; + [ where id_categorie = ?porec.id_categorie] + Endif + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Eroare]) + Endif + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + DODEFAULT() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_configurare AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboCategorii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautare2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridsort2" UniqueID="" Timestamp="" /> + + * + *m: actualizare + *m: aleg_document_pereche + *m: calcul_data + *m: calcul_suma + *m: dblclickgrid + *m: do_caut_nomenclator + *m: do_copiaza + *m: intainte_de_do_modifica + *m: refresh_inregistrari + *m: verificare + *m: verific_analitic + *p: ccriteriu + *p: ccursor + *p: comanda + *p: cprimarykey + *p: cselect + *p: introducere_libera + *p: lnuverificcont + *p: lverificareanalitic + * + + * + BorderStyle = 1 + ccriteriu = .F. + ccursor = .F. + cgridsortlist = gridb1 + comanda = .F. + cprimarykey = .F. + cselect = .F. + DoCreate = .T. + Height = 397 + introducere_libera = .F. + lnuverificcont = .F. + lverificareanalitic = .T. + Name = "frm_configurare" + Width = 767 + _SHAPE1.Anchor = 11 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 770 + _shape2.Height = 29 + _shape2.Left = 613 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 122 + Lb_titlu_alb_b121.Caption = "Seturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 732 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 372 + * + + ADD OBJECT 'But_cautare1' AS but_cautare WITH ; + Left = 284, ; + Name = "But_cautare1", ; + TabIndex = 2, ; + Top = 37 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_cautare2' AS but_cautare WITH ; + Height = 28, ; + Left = 284, ; + Name = "But_cautare2", ; + TabIndex = 5, ; + Top = 65, ; + Width = 31 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ; + Anchor = 9, ; + Left = 704, ; + Name = "But_copiaza1", ; + TabIndex = 10, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 9, ; + Left = 644, ; + Name = "But_modifica1", ; + TabIndex = 8, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 9, ; + Left = 614, ; + Name = "But_nou1", ; + TabIndex = 7, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 674, ; + Name = "But_sterge1", ; + TabIndex = 9, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cboCategorii' AS combogrid WITH ; + BorderColor = 200,200,200, ; + BorderStyle = 1, ; + ControlSource = "categorie", ; + Height = 24, ; + Left = 336, ; + Name = "cboCategorii", ; + RowSource = "crsCategorii", ; + RowSourceType = 2, ; + TabIndex = 3, ; + Top = 39, ; + Width = 228 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 16, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 36, ; + Width = 262, ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 27, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 230, ; + Lb_simplu1.Caption = "Set", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 20 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 16, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 4, ; + Top = 64, ; + Width = 173, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "!", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "9999999", ; + Text_simplu1.Left = 26, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Value = 0, ; + Text_simplu1.Width = 139, ; + Lb_simplu1.Caption = "Id", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 12 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Gridb1' AS gridb WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + FontName = "Arial Narrow", ; + GridLineColor = 150,150,150, ; + Height = 286, ; + Left = 16, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crsXSets", ; + SplitBar = .F., ; + TabIndex = 11, ; + Top = 96, ; + Width = 737, ; + COLUMN1.ControlSource = "id_set", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Id set", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .T., ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .T., ; + COLUMN1.Width = 47, ; + Column2.ControlSource = "nume_set", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 222, ; + Column3.ControlSource = "lista_note", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 234, ; + Column4.ControlSource = "categorie", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 159 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ; + Caption = "Nume set", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ; + Caption = "Lista note", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ; + Caption = "Categorie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridsort2' AS gridsort WITH ; + Left = 360, ; + Name = "Gridsort2", ; + Top = 72 + *< END OBJECT: ClassLib="..\comun\clase\gridsort.vcx" BaseClass="custom" /> + + PROCEDURE actualizare + save_grid(Thisform.gridb1) + goExecutor.oExecute(Thisform.cselect,Thisform.ccursor) + restore_grid(Thisform.gridb1) + this.refresh_inregistrari() + + ENDPROC + + PROCEDURE aleg_document_pereche + PARAMETERS tcFel,toAct + LOCAL lcSel,lcSelAct + lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource + pnFelCont = tcFel + + IF pnFelCont = 0 && ACTIV + pcContul = ALLTRIM(NVL(toAct.scc,[])) + pcACont = ALLTRIM(NVL(toAct.ascc,[NULL])) + pnIdPart = NVL(toAct.Id_partc,0) + pcNume = ALLTRIM(NVL(toAct.partc,[])) + pnPereche = [perecheC] + pnIdPereche = [id_factC] + ELSE && PASIV + pcContul = ALLTRIM(NVL(toAct.scd,[])) + pcACont = ALLTRIM(NVL(toAct.ascd,[NULL])) + pnIdPart = NVL(toAct.Id_partd,0) + pcNume = ALLTRIM(NVL(toAct.partd,[])) + pnPereche = [perecheD] + pnIdPereche = [id_factD] + ENDIF + + lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ] + lcCursor = [crsTest] + lnSucces = goexecutor.oExecute(lcSelect,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare") + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + SELECT crsTest + LOCATE + IF ePereche = 0 + USE IN crsTest + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + + IF !EMPTY(toAct.Suma_val) + llval = .t. + pnSuma = toAct.Suma_val + lcFormular = [ocompensari_val] + ELSE + llval = .f. + pnSuma = toAct.Suma + lcFormular = [ocompensari] + ENDIF + pnIdValuta = toAct.Id_Valuta + pcDenumire = [Partener ] + pcContul + + pcCond = [ an = ?gnAn and luna = ?gnluna] + + IF llval + pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ] + ELSE + pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + ENDIF + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + IF ALLTRIM(pcACont) # [NULL] + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond + ELSE + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond + ENDIF + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(pcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF pnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + USE IN crs_actcv + SELECT (lcFis) + + OPLATA=CREATEOBJECT(lcFormular) + OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume + OPLATA.pcFis = lcFis + OPLATA.SUMA = pnSuma + OPLATA.pnFelCont = pnFelCont + OPLATA.SHOW(1) + + IF gnButon = 1 + SELECT (lcSelAct) + DELETE + SELECT (lcFis) + SCAN FOR ales + SCATTER NAME oper + SELECT (lcSelAct) + APPEND BLANK + GATHER NAME toAct + REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2 + SELECT (lcFis) + ENDSCAN + ELSE + SELECT (lcSelAct) + REPLACE &pnPereche WITH toact.&pnPereche + ENDIF + + IF USED(lcFis) + USE IN (lcFis) + ENDIF + SELECT (lcSelAct) + DO nrord WITH lcSelAct + this.pageframe1.paGE2.gridb1.SetFocus + ENDPROC + + PROCEDURE calcul_data + Parameters tcControl + Local ll_verif + Store .F. To ll_verif + lcControl = Alltrim(tcControl) + + Do Case + Case Upper(Alltrim(lcControl))='ACTACTAN.DATASCAD' + ld_DataScad = Gomonth(dataact,1) + Select ACTACTAN + Replace DATASCAD With ld_DataScad + + Case Upper(Alltrim(lcControl))='ACTACTAN.DATAIREG' + If !(Month(dataireg)= gnLuna And Year(dataireg) = gnAn) + *!* Do mesaj With 'Data trebuie sa fie din luna',Alltrim(pcNl)+' '+Alltrim(pcAn) + amessagebox("Data trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie") + ll_verif=.T. + Else + ll_verif=.F. + Select ACTACTAN + Replace dataact With dataireg + Endif + + Case Upper(Alltrim(lcControl))='ACTACTAN.DATAACT' + If !((Month(dataact)<= gnLuna And Year(dataact)=gnAn) Or Year(dataact) 0 + LcSql = [delete from xrequest where id_set = ?crsXSets.id_set] && sterg cererea + lnSucces = goExecutor.oExecute(LcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie]) + ENDIF + ENDIF + IF lnSucces > 0 + lcsql = [delete from xsets_utilizatori where id_set = ?crsXSets.id_set] && sterg utilizatorii cu drepturi + lnSucces = goExecutor.oExecute(LcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie]) + ENDIF + ENDIF + + IF lnSucces > 0 + LcSql = [delete from xsets where id_set = ?crsXsets.id_set] &&sterg setul + lnSucces = goExecutor.oExecute(LcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie]) + ENDIF + ENDIF + + IF lnSucces < 0 + lnSucces2 = goExecutor.oExecute("ROLLBACK") + ELSE + lnSucces2 = goExecutor.oExecute("COMMIT") + this.actualizare + endif + SQLSETPROP(gnhandle,"Transactions",1) && tranzactie automata + Endif + + Thisform.gridb1.SetFocus() + ENDPROC + + PROCEDURE Init + DoDefault() + + Local i, loGrid, loColumnTexti + This.WindowState = 2 + + Thisform.grIDB1.SetAll("dynamicbackcolor",'IIF(crsXSets.id_set >= 1000000,RGB(212,212,212),RGB(255,255,255))',"column") + + loGrid = Thisform.grIDB1 + For i = 1 To loGrid.ColumnCount + loColumnTexti = loGrid.Columns(i).text1 + Bindevent(loColumnTexti,"dblClick",This,"dblClickGrid") && do_modifica + Endfor + + ENDPROC + + PROCEDURE intainte_de_do_modifica + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + + If nKeyCode = 13 And nShiftAltCtrl = 2 + This.introducere_libera = !This.introducere_libera + * this.shape2.Visible = !this.shape2.Visible + this.do_modifica() + Endif + + ENDPROC + + PROCEDURE Load + Local lnSucces, lcSql + + + Thisform.cselect = [select t.*, sc.categorie ] + ; + [ from xsets t ] + ; + [ left join xSetsCategorii sc on sc.id_categorie = t.id_categorie ] + ; + [ order by nume_set] + *Thisform.cselect = [select id_set, nr_set, nume_set, fix, lista_note, explicatia, model, formgest, ] + ; + [nu_sterg, param1, listare, param2, frm_date, discount, adaos, factura, ] + ; + [nvl(id_selst,0) as id_selst, nvl(id_seldr,0) as id_seldr, tip_doc, tip_ctr, ] + ; + [expl_fixa, aleg_cont, frm_plata, valuta, compens, nvl(id_tip_rul,0) as id_tip_rul, ] + ; + [nvl(id_jnetax,0) as id_jnetax, nvl(id_jtax,0) as id_jtax, tipjurnal, ] + ; + [nvl(id_jtaxn,0) as id_jtaxn, productie, formproduc, cursval, ] + ; + [nvl(t.id_categorie,0) as id_categorie, procedura_lans, ] + ; + [nvl(id_sucursala,0) as id_sucursala, ] + ; + [sc.categorie, ] + ; + [case when upper(tipjurnal) = 'JC' then 1 ] + ; + [ when upper(tipjurnal) = 'JV' then 2 ] + ; + [ else 3 end as id_tip_jurnal ] + ; + [from xsets t ] + ; + [left join xSetsCategorii sc on sc.id_categorie = t.id_categorie ] + ; + [order by t.nume_set] + + Thisform.ccursor = [crsXSets] + Thisform.cprimarykey = [id_set] + Thisform.ccriteriu = [nume_set] + + lnSucces = goExecutor.oExecute(Thisform.cselect , Thisform.ccursor) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + + lcSql = [select categorie, id_categorie from xSetsCategorii ] + ; + [union ] + ; + [select '' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ; + [order by categorie] + lnSucces = goExecutor.oExecute(lcSql , "crsCategorii") + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + + Select crsCategorii + Locate For categorie = '' + + ENDPROC + + PROCEDURE refresh_inregistrari + If !Empty(Nvl(crsCategorii.id_categorie,0)) + Set Filter To id_categorie = crsCategorii.id_categorie IN crsXsets + Else + Set Filter TO IN crsXsets + ENDIF + ENDPROC + + PROCEDURE verificare + *!* LOCAL COMPL,TE + *!* TE='' + *!* COMPL=.T. + + *!* SELECT ACTACTAN + *!* ii=1 + *!* SCAN + *!* lcScd = scd + *!* lcScc = scc + *!* IF EMPTY(suma) + *!* COMPL=.F. + *!* TE=TE+','+'suma' + *!* ENDIF + *!* *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat + *!* IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul debitor' + *!* ENDIF + *!* IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul creditor' + *!* ENDIF + *!* IF EMPTY(nract) + *!* COMPL=.F. + *!* TE=TE+','+'nr.document' + *!* ENDIF + *!* IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta) + *!* COMPL=.F. + *!* TE=TE+','+'nume valuta' + *!* ENDIF + *!* IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0)) + *!* COMPL = .F. + *!* TE=TE+','+'explicatie TVA' + *!* ENDIF + *!* IF !COMPL + *!* *!* DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...' + *!* amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie") + *!* RETURN COMPL + *!* ENDIF + *!* ii=ii+1 + *!* ENDSCAN + + + *!* RETURN COMPL + *!* modificare 21.02.2008 + lVerificAnalitic = .T. + lCompletezPartener = .F. + llRet = verificare_note_contabile('ACTACTAN',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune + RETURN llRet + *!* modificare 21.02.2008 ^ + ENDPROC + + PROCEDURE verific_analitic + ENDPROC + + PROCEDURE But_cautare2.Click + Select crsXSets + Locate For id_set = Thisform.clb_tx_simplu2.text_simplu1.Value + If !Found() + Go Top + Endif + + Thisform.gridb1.SetFocus() + + ENDPROC + + PROCEDURE cboCategorii.Valid + thisform.refresh_inregistrari() + GO TOP IN crsXsets + thisform.gridb1.Refresh() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_configurare_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cb_jnetax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_id_set" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.chkValuta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.clb_numeset" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_tipjurnal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtaxn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.EdtListaNote" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_procedura" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.chkAlegCont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_sucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_categorie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.COLUMN1.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.But_precedent1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.But_urmator1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *m: aleg_document_pereche + *m: calcul_data + *m: calcul_suma + *m: do_caut_nomenclator + *m: verificare + *m: verific_analitic + *p: clistainitialautiliz && In se memoreaza lista initiala de utilizatori. Se foloseste la salvare, pentru a nu adauga inca o data utilizatorii. + *p: introducere_libera + *p: lnuverificcont + *p: lverificareanalitic + *p: nid_set + *p: nreqnrmax && numarul de cereri, se foloseste la nrcrt in grid-ul de cereri + * + + * + clistainitialautiliz = [] + DoCreate = .T. + Height = 377 + introducere_libera = .F. + lnuverificcont = .F. + lverificareanalitic = .T. + Name = "frm_configurare_nou" + nid_set = .F. + nreqnrmax = 0 + Width = 792 + WindowState = 2 + _SHAPE1.Anchor = 10 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 794 + _shape2.Height = 29 + _shape2.Left = 726 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Note, seturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 2 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 757 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 8, ; + Left = 727, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Pageframe1' AS pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 322, ; + Left = 4, ; + Name = "Pageframe1", ; + PageCount = 4, ; + TabIndex = 1, ; + TabStyle = 1, ; + Top = 37, ; + Width = 785, ; + Page1.Caption = "Seturi", ; + Page1.Enabled = .F., ; + Page1.Name = "Page1", ; + Page2.Caption = "Cereri", ; + Page2.Enabled = .F., ; + Page2.Name = "Page2", ; + Page3.Caption = "Note", ; + Page3.Enabled = .F., ; + Page3.Name = "Page3", ; + Page4.Caption = "Drepturi utilizatori", ; + Page4.Name = "Page4" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'Pageframe1.Page1.cb_categorie' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "cb_categorie", ; + TabIndex = 8, ; + Top = 156, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ControlSource = "porec.id_categorie", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsCateg.categorie,id_categorie", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.TabIndex = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Categorie", ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.TabIndex = 2 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Cb_jnetax' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "Cb_jnetax", ; + TabIndex = 4, ; + Top = 7, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.ControlSource = "porec.id_jnetax", ; + _cbbase1.FirstElement = 1, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJNetax.denumire,id_jtva_coloana", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Operatii netaxabile", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_jtax' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "cb_jtax", ; + TabIndex = 5, ; + Top = 43, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.ControlSource = "porec.id_jtax", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJTax.denumire,id_jtva_coloana", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Operatii taxabile", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_jtaxn' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 33, ; + Left = 403, ; + Name = "cb_jtaxn", ; + TabIndex = 7, ; + Top = 115, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.ControlSource = "porec.id_jtaxn", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJtaxn.denumire,id_jtva_coloana", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 5, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Operatii taxabile (neplatitor TVA)", ; + _lbbase1.Height = 32, ; + _lbbase1.Left = 5, ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.Top = 1, ; + _lbbase1.Width = 90, ; + _lbbase1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_sucursala' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 33, ; + Left = 403, ; + Name = "cb_sucursala", ; + TabIndex = 9, ; + Top = 193, ; + Width = 362, ; + _CBBASE1.Anchor = 40, ; + _CBBASE1.BoundColumn = 2, ; + _CBBASE1.BoundTo = .T., ; + _CBBASE1.ControlSource = "porec.id_sucursala", ; + _CBBASE1.FirstElement = 1, ; + _CBBASE1.Height = 23, ; + _CBBASE1.Left = 120, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "crsSucursale.sucursala,id_sucursala", ; + _CBBASE1.RowSourceType = 6, ; + _CBBASE1.Top = 5, ; + _CBBASE1.Width = 236, ; + _LBBASE1.Caption = "Sucursala", ; + _LBBASE1.Height = 17, ; + _LBBASE1.Left = 5, ; + _LBBASE1.Name = "_LBBASE1", ; + _LBBASE1.Top = 8, ; + _LBBASE1.Width = 56, ; + _LBBASE1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_tipjurnal' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "cb_tipjurnal", ; + TabIndex = 6, ; + Top = 79, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ControlSource = "porec.tipjurnal", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJurnal.name,tipjurnal", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Tip jurnal", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.chkAlegCont' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 40, ; + Caption = "Cont", ; + ControlSource = "porec.aleg_cont", ; + Left = 403, ; + Name = "chkAlegCont", ; + TabIndex = 11, ; + Top = 256 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page1.chkValuta' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 40, ; + Caption = "Valuta", ; + ControlSource = "porec.valuta", ; + Left = 403, ; + Name = "chkValuta", ; + TabIndex = 10, ; + Top = 235 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page1.Clb_id_set' AS clb_tx_simplu WITH ; + Anchor = 130, ; + Height = 29, ; + Left = 19, ; + Name = "Clb_id_set", ; + TabIndex = 12, ; + Top = 7, ; + Width = 362, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Anchor = 130, ; + Text_simplu1.ControlSource = "thisform.nId_set", ; + Text_simplu1.Enabled = .F., ; + Text_simplu1.Format = "R", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "9999999", ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Value = 0, ; + Text_simplu1.Width = 255, ; + Lb_simplu1.Caption = "Id set", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 32 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.clb_numeset' AS clb_tx_simplu WITH ; + Anchor = 130, ; + Height = 29, ; + Left = 19, ; + Name = "clb_numeset", ; + TabIndex = 1, ; + Top = 41, ; + Width = 362, ; + Text_simplu1.Anchor = 130, ; + Text_simplu1.ControlSource = "porec.nume_set", ; + Text_simplu1.Format = "", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 254, ; + Lb_simplu1.Caption = "Nume set", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 56 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Clb_procedura' AS clb_tx_simplu WITH ; + Anchor = 130, ; + Height = 29, ; + Left = 19, ; + Name = "Clb_procedura", ; + TabIndex = 3, ; + Top = 178, ; + Width = 362, ; + Text_simplu1.Anchor = 130, ; + Text_simplu1.ControlSource = "porec.procedura_lans", ; + Text_simplu1.Format = "", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 254, ; + Lb_simplu1.Caption = "Procedura", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 59 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.EdtListaNote' AS ed_tx_simplu WITH ; + Anchor = 130, ; + Height = 98, ; + Left = 19, ; + Name = "EdtListaNote", ; + TabIndex = 2, ; + Top = 75, ; + Width = 362, ; + _edbase1.Anchor = 130, ; + _edbase1.ControlSource = "porec.lista_note", ; + _edbase1.Height = 90, ; + _edbase1.Left = 72, ; + _edbase1.Name = "_edbase1", ; + _edbase1.Top = 4, ; + _edbase1.Width = 280, ; + _lbbase1.Caption = "Lista note", ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 255,255,255, ; + ColumnCount = 3, ; + GridLineColor = 255,255,255, ; + Height = 240, ; + Left = 9, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsReq", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 7, ; + Width = 766, ; + COLUMN1.BackColor = 226,226,226, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = "label_item", ; + COLUMN1.CurrentControl = "Combo1", ; + COLUMN1.Header1.Caption = "Element", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.BackColor = 226,226,226, ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 245, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "id_item", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 66, ; + Column3.BackColor = 226,226,226, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "valoare_default_text", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 404 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.COLUMN1.Combo1' AS combobox WITH ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + ColumnLines = .F., ; + ControlSource = "crsreq.id_item", ; + FontName = "Arial Narrow", ; + Height = 24, ; + Left = 50, ; + Name = "Combo1", ; + RowSource = "crsItems.label_item,id_item", ; + RowSourceType = 2, ; + SpecialEffect = 1, ; + Style = 2, ; + Top = 47, ; + Visible = .T., ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ; + Caption = "Id element", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ; + Caption = "Valoare implicita", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Nou1' AS nou WITH ; + Anchor = 6, ; + Left = 13, ; + Name = "Nou1", ; + Top = 251, ; + Imbuton1.Height = 29, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 27, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page2.Sterge1' AS sterge WITH ; + Anchor = 6, ; + Left = 49, ; + Name = "Sterge1", ; + Top = 251, ; + Imbuton1.Height = 26, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 26, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1' AS pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 293, ; + Left = 0, ; + Name = "Pageframe1", ; + PageCount = 6, ; + TabStyle = 1, ; + Top = 1, ; + Width = 784, ; + ZOrderSet = 2, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "Note-Sume", ; + Page1.Name = "Page1", ; + Page2.BackColor = 240,240,240, ; + Page2.Caption = "Date", ; + Page2.Name = "Page2", ; + Page3.BackColor = 228,228,228, ; + Page3.Caption = "Explicatii", ; + Page3.Name = "Page3", ; + Page4.Caption = "Xnote 1-12", ; + Page4.Name = "Page4", ; + Page5.Caption = "Xnote 13-24", ; + Page5.Name = "Page5", ; + Page6.Caption = "Xnote 25-35", ; + Page6.Name = "Page6" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1' AS gridb WITH ; + Anchor = 15, ; + ColumnCount = 15, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + GridLines = 3, ; + HeaderHeight = 25, ; + Height = 212, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "crsNote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.Alignment = 2, ; + COLUMN1.BackColor = 245,245,245, ; + COLUMN1.ControlSource = "nr_nota", ; + COLUMN1.DynamicBackColor = "RGB(245,245,245)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.Alignment = 2, ; + COLUMN1.Text1.BackColor = 245,245,245, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 26, ; + Column2.Alignment = 1, ; + Column2.BackColor = 247,245,238, ; + Column2.ControlSource = "xscd", ; + Column2.DynamicBackColor = "RGB(247,245,238)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "XXXX.", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Visible = .T., ; + Column2.Width = 59, ; + Column3.Alignment = 0, ; + Column3.BackColor = 247,245,238, ; + Column3.ControlSource = "xascd", ; + Column3.DynamicBackColor = "RGB(247,245,238)", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Visible = .T., ; + Column3.Width = 53, ; + Column4.Alignment = 1, ; + Column4.BackColor = 226,226,226, ; + Column4.ControlSource = "xscc", ; + Column4.DynamicBackColor = "RGB(226,226,226)", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "XXXX.", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Visible = .T., ; + Column4.Width = 63, ; + Column5.Alignment = 0, ; + Column5.BackColor = 226,226,226, ; + Column5.ControlSource = "xascc", ; + Column5.DynamicBackColor = "RGB(226,226,226)", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Visible = .T., ; + Column5.Width = 49, ; + Column6.BackColor = 214,214,214, ; + Column6.ControlSource = "suma", ; + Column6.DynamicBackColor = "rgb(214,214,214)", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPa)), ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Visible = .T., ; + Column6.Width = 114, ; + Column7.BackColor = 214,214,214, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "suma_val", ; + Column7.DynamicBackColor = "rgb(214,214,214)", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPval)), ; + Column7.Name = "Column8", ; + Column7.ReadOnly = .F., ; + Column7.Visible = .T., ; + Column7.Width = 87, ; + Column8.BackColor = 214,214,214, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "curs", ; + Column8.DynamicBackColor = "rgb(214,214,214)", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPcurs)), ; + Column8.Name = "Column9", ; + Column8.ReadOnly = .F., ; + Column8.Visible = .T., ; + Column8.Width = 76, ; + Column9.BackColor = 214,214,214, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "nume_val", ; + Column9.CurrentControl = "Text1", ; + Column9.DynamicBackColor = "rgb(214,214,214)", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column10", ; + Column9.ReadOnly = .F., ; + Column9.Visible = .T., ; + Column9.Width = 112, ; + Column10.Alignment = 0, ; + Column10.BackColor = 214,214,214, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "explicatie_tva", ; + Column10.CurrentControl = "Combo1", ; + Column10.DynamicBackColor = "rgb(214,214,214)", ; + Column10.DynamicCurrentControl = "IIF(actactan.cu_tva=0,'Text1','Combo1')", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column11", ; + Column10.ReadOnly = .F., ; + Column10.Sparse = .F., ; + Column10.Visible = .T., ; + Column10.Width = 72, ; + Column11.BackColor = 214,214,214, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "proc_tva", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = "99.99", ; + Column11.Name = "Column7", ; + Column11.ReadOnly = .T., ; + Column11.Visible = .T., ; + Column11.Width = 65, ; + Column12.BackColor = 214,214,214, ; + Column12.ColumnOrder = 10, ; + Column12.ControlSource = "cu_tva", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .F., ; + Column12.Sparse = .F., ; + Column12.Visible = .T., ; + Column12.Width = 42, ; + Column13.BackColor = 214,214,214, ; + Column13.ControlSource = "id_fact", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 63, ; + Column14.BackColor = 214,214,214, ; + Column14.ControlSource = "id_factd", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 69, ; + Column15.BackColor = 214,214,214, ; + Column15.ControlSource = "id_factc", ; + Column15.FontName = "Arial Narrow", ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 68 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1' AS combobox WITH ; + Alignment = 0, ; + BorderStyle = 0, ; + BoundColumn = 1, ; + ColumnCount = 3, ; + ColumnLines = .F., ; + ColumnWidths = "250,0,0", ; + Enabled = .T., ; + FontName = "Arial Narrow", ; + Height = 24, ; + Left = 32, ; + Name = "Combo1", ; + ReadOnly = .F., ; + RowSource = "jtva_coloane.denumire,cota_tva,id_jtva_coloana", ; + RowSourceType = 6, ; + SpecialEffect = 1, ; + Style = 2, ; + Top = 44, ; + Visible = .T., ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1' AS _textbox WITH ; + FontName = "Arial Narrow", ; + Left = 44, ; + Name = "Text1", ; + ReadOnly = .T., ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + ControlSource = "cu_tva", ; + FontName = "Arial Narrow", ; + Left = 27, ; + Name = "_CHECKBOX1", ; + ReadOnly = .F., ; + Top = 32, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Factura d", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "ID Factura c", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont debitor", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic D", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont creditor ", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic C", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs valutar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Nou1' AS nou WITH ; + Anchor = 6, ; + Left = 8, ; + Name = "Nou1", ; + Top = 222, ; + Imbuton1.Height = 29, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 27, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Sterge1' AS sterge WITH ; + Anchor = 6, ; + Left = 44, ; + Name = "Sterge1", ; + Top = 222, ; + Imbuton1.Height = 26, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 26, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 240,240,240, ; + ColumnCount = 10, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 26, ; + Height = 248, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "crsNote", ; + RowHeight = 23, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 240,240,240, ; + COLUMN1.ControlSource = "nr_nota", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.BackColor = 240,240,240, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Width = 19, ; + Column2.BackColor = 240,240,240, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "fdoc", ; + Column2.CurrentControl = "Text1", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 105, ; + Column3.BackColor = 240,240,240, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "dataireg", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Sparse = .F., ; + Column3.Width = 83, ; + Column4.BackColor = 240,240,240, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Width = 87, ; + Column5.BackColor = 240,240,240, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "datascad", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Sparse = .F., ; + Column5.Width = 83, ; + Column6.BackColor = 240,240,240, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "nract", ; + Column6.CurrentControl = "Text1", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Sparse = .F., ; + Column7.BackColor = 240,240,240, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "pereched", ; + Column7.CurrentControl = "Text1", ; + Column7.DynamicBackColor = "", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .F., ; + Column7.Sparse = .F., ; + Column7.Width = 68, ; + Column8.BackColor = 240,240,240, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "nnir", ; + Column8.CurrentControl = "Text1", ; + Column8.DynamicBackColor = "", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Sparse = .F., ; + Column9.BackColor = 240,240,240, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "perechec", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .F., ; + Column9.Width = 71, ; + Column10.BackColor = 240,240,240, ; + Column10.ColumnOrder = 6, ; + Column10.ControlSource = "serie_act", ; + Column10.FontName = "Arial Narrow", ; + Column10.Format = "!", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .F., ; + Column10.Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. NIR/BON", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 228,228,228, ; + ColumnCount = 10, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 25, ; + Height = 248, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "crsNote", ; + RowHeight = 23, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 228,228,228, ; + COLUMN1.ColumnOrder = 1, ; + COLUMN1.ControlSource = "nr_nota", ; + COLUMN1.DynamicBackColor = "rgb(228,228,228)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.BackColor = 228,228,228, ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.BackColor = 228,228,228, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 21, ; + Column2.BackColor = 228,228,228, ; + Column2.ColumnOrder = 7, ; + Column2.ControlSource = "nrord", ; + Column2.CurrentControl = "Text1", ; + Column2.DynamicBackColor = "rgb(228,228,228)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column7", ; + Column2.ReadOnly = .F., ; + Column2.Visible = .T., ; + Column2.Width = 95, ; + Column3.BackColor = 228,228,228, ; + Column3.ColumnOrder = 8, ; + Column3.ControlSource = "nresp", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column8", ; + Column3.ReadOnly = .F., ; + Column3.Visible = .T., ; + Column3.Width = 110, ; + Column4.BackColor = 228,228,228, ; + Column4.ColumnOrder = 9, ; + Column4.ControlSource = "dst_chlt", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column9", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Visible = .T., ; + Column4.Width = 108, ; + Column5.BackColor = 228,228,228, ; + Column5.ColumnOrder = 10, ; + Column5.ControlSource = "sectie", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column10", ; + Column5.ReadOnly = .F., ; + Column5.Visible = .T., ; + Column5.Width = 96, ; + Column6.BackColor = 228,228,228, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "explicatia", ; + Column6.DynamicBackColor = "rgb(226,226,226)", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "k!", ; + Column6.Name = "Column14", ; + Column6.ReadOnly = .F., ; + Column6.Visible = .T., ; + Column6.Width = 110, ; + Column7.BackColor = 228,228,228, ; + Column7.ColumnOrder = 3, ; + Column7.ControlSource = "partd", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column17", ; + Column7.ReadOnly = .F., ; + Column7.Visible = .T., ; + Column7.Width = 105, ; + Column8.BackColor = 228,228,228, ; + Column8.ColumnOrder = 5, ; + Column8.ControlSource = "partc", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column18", ; + Column8.ReadOnly = .F., ; + Column8.Visible = .T., ; + Column8.Width = 105, ; + Column9.BackColor = 228,228,228, ; + Column9.ColumnOrder = 4, ; + Column9.ControlSource = "scc_fara_part", ; + Column9.CurrentControl = "Check1", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column2", ; + Column9.ReadOnly = .F., ; + Column9.Sparse = .F., ; + Column9.Visible = .T., ; + Column9.Width = 84, ; + Column10.BackColor = 228,228,228, ; + Column10.ColumnOrder = 2, ; + Column10.ControlSource = "scd_fara_part", ; + Column10.CurrentControl = "Check1", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column3", ; + Column10.ReadOnly = .F., ; + Column10.Sparse = .F., ; + Column10.Visible = .T., ; + Column10.Width = 81 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Sectia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1' AS checkbox WITH ; + Alignment = 0, ; + BackStyle = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 40, ; + Name = "Check1", ; + Top = 90, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1' AS header WITH ; + Caption = "Fara partener credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1' AS checkbox WITH ; + Alignment = 0, ; + BackStyle = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 24, ; + Name = "Check1", ; + Top = 54, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1' AS header WITH ; + Caption = "Fara partener debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Contract/Lucrare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Responsabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Cheltuiala/Venit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 247,245,238, ; + ColumnCount = 13, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + Height = 247, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsnote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 247,245,238, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = "x1", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = " X1", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 247,245,238, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 81, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "x2", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column3.BackColor = 247,245,238, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "x3", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.BackColor = 247,245,238, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "x4", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.BackColor = 247,245,238, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "x5", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.BackColor = 247,245,238, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "x6", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column7.BackColor = 247,245,238, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "x7", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column8.BackColor = 247,245,238, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "x8", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column9.BackColor = 247,245,238, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "x9", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column10.BackColor = 247,245,238, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "x10", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column11.BackColor = 247,245,238, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "x11", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "Column11", ; + Column12.BackColor = 247,245,238, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "x12", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column13.BackColor = 247,245,238, ; + Column13.ColumnOrder = 1, ; + Column13.ControlSource = "nr_nota", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.Width = 24 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1' AS header WITH ; + Caption = " X10", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1' AS header WITH ; + Caption = " X11", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1' AS header WITH ; + Caption = " X12", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1' AS header WITH ; + Caption = " Nr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1' AS header WITH ; + Caption = " X2", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1' AS header WITH ; + Caption = " X3", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1' AS header WITH ; + Caption = " X4", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1' AS header WITH ; + Caption = " X5", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1' AS header WITH ; + Caption = " X6", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1' AS header WITH ; + Caption = " X7", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1' AS header WITH ; + Caption = " X8", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1' AS header WITH ; + Caption = " X9", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 247,245,238, ; + ColumnCount = 13, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + Height = 247, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsNote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 247,245,238, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = " X13", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = " X13", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 247,245,238, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 71, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = " X14", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column3.BackColor = 247,245,238, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = " X15", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.BackColor = 247,245,238, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = " X16", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.BackColor = 247,245,238, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = " X17", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.BackColor = 247,245,238, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = " X18", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column7.BackColor = 247,245,238, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = " X19", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column8.BackColor = 247,245,238, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = " X20", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column9.BackColor = 247,245,238, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = " X21", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column10.BackColor = 247,245,238, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = " X22", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column11.BackColor = 247,245,238, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = " X23", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "Column11", ; + Column12.BackColor = 247,245,238, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = " X24", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column13.BackColor = 247,245,238, ; + Column13.ColumnOrder = 1, ; + Column13.ControlSource = "nr_nota", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 25 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1' AS header WITH ; + Caption = " X22", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1' AS header WITH ; + Caption = " X23", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1' AS header WITH ; + Caption = " X24", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1' AS header WITH ; + Caption = " Nr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1' AS header WITH ; + Caption = " X14", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1' AS header WITH ; + Caption = " X15", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1' AS header WITH ; + Caption = " X16", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1' AS header WITH ; + Caption = " X17", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1' AS header WITH ; + Caption = " X18", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1' AS header WITH ; + Caption = " X19", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1' AS header WITH ; + Caption = " X20", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1' AS header WITH ; + Caption = " X21", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 247,245,238, ; + ColumnCount = 12, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + Height = 247, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsNote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 247,245,238, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = "x25", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = " X25", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 247,245,238, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 79, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "x26", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column3.BackColor = 247,245,238, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "x27", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.BackColor = 247,245,238, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "x28", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.BackColor = 247,245,238, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "x29", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.BackColor = 247,245,238, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "x30", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column7.BackColor = 247,245,238, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "x31", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column8.BackColor = 247,245,238, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "x32", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column9.BackColor = 247,245,238, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "x33", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column10.BackColor = 247,245,238, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "x34", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column11.BackColor = 247,245,238, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "x35", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "Column11", ; + Column12.BackColor = 247,245,238, ; + Column12.ColumnOrder = 1, ; + Column12.ControlSource = "nr_nota", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 26 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1' AS header WITH ; + Caption = " X34", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1' AS header WITH ; + Caption = " X35", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1' AS header WITH ; + Caption = " Nr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1' AS header WITH ; + Caption = " X26", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1' AS header WITH ; + Caption = " X27", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1' AS header WITH ; + Caption = " X28", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1' AS header WITH ; + Caption = " X29", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1' AS header WITH ; + Caption = " X30", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1' AS header WITH ; + Caption = " X31", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1' AS header WITH ; + Caption = " X32", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1' AS header WITH ; + Caption = " X33", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page4.But_precedent1' AS but_precedent WITH ; + Anchor = 0, ; + Left = 380, ; + Name = "But_precedent1", ; + Top = 138 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Pageframe1.Page4.But_urmator1' AS but_urmator WITH ; + Anchor = 0, ; + Left = 380, ; + Name = "But_urmator1", ; + Top = 105 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Pageframe1.Page4.Gridb1' AS gridb WITH ; + Anchor = 5, ; + GridLineColor = 255,255,255, ; + HeaderHeight = 22, ; + Height = 268, ; + HighlightStyle = 2, ; + Left = 29, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsUtilizatori", ; + ScrollBars = 2, ; + Top = 7, ; + Width = 317, ; + COLUMN1.ControlSource = "utilizator", ; + COLUMN1.Header1.Alignment = 2, ; + COLUMN1.Header1.Caption = " Utilizatori", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 297 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page4.Gridb2' AS gridb WITH ; + Anchor = 5, ; + ColumnCount = 1, ; + GridLineColor = 255,255,255, ; + HeaderHeight = 22, ; + Height = 268, ; + HighlightStyle = 1, ; + Left = 437, ; + Name = "Gridb2", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsDrepturi_utilizatori", ; + ScrollBars = 2, ; + SelectedItemForeColor = 255,255,255, ; + Top = 7, ; + Width = 317, ; + COLUMN1.ControlSource = "utilizator", ; + COLUMN1.Header1.Alignment = 2, ; + COLUMN1.Header1.Caption = "Utilizatorii cu drepturi asupra seturilor", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 255,255,255, ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.SelectedForeColor = 255,255,255, ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 297 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + PROCEDURE aleg_document_pereche + PARAMETERS tcFel,toAct + LOCAL lcSel,lcSelAct + lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource + pnFelCont = tcFel + + IF pnFelCont = 0 && ACTIV + pcContul = ALLTRIM(NVL(toAct.scc,[])) + pcACont = ALLTRIM(NVL(toAct.ascc,[NULL])) + pnIdPart = NVL(toAct.Id_partc,0) + pcNume = ALLTRIM(NVL(toAct.partc,[])) + pnPereche = [perecheC] + pnIdPereche = [id_factC] + ELSE && PASIV + pcContul = ALLTRIM(NVL(toAct.scd,[])) + pcACont = ALLTRIM(NVL(toAct.ascd,[NULL])) + pnIdPart = NVL(toAct.Id_partd,0) + pcNume = ALLTRIM(NVL(toAct.partd,[])) + pnPereche = [perecheD] + pnIdPereche = [id_factD] + ENDIF + + lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ] + lcCursor = [crsTest] + lnSucces = goexecutor.oExecute(lcSelect,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare") + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + SELECT crsTest + LOCATE + IF ePereche = 0 + USE IN crsTest + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + + IF !EMPTY(toAct.Suma_val) + llval = .t. + pnSuma = toAct.Suma_val + lcFormular = [ocompensari_val] + ELSE + llval = .f. + pnSuma = toAct.Suma + lcFormular = [ocompensari] + ENDIF + pnIdValuta = toAct.Id_Valuta + pcDenumire = [Partener ] + pcContul + + pcCond = [ an = ?gnAn and luna = ?gnluna] + + IF llval + pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ] + ELSE + pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + ENDIF + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + IF ALLTRIM(pcACont) # [NULL] + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond + ELSE + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond + ENDIF + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(pcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF pnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + USE IN crs_actcv + SELECT (lcFis) + + OPLATA=CREATEOBJECT(lcFormular) + OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume + OPLATA.pcFis = lcFis + OPLATA.SUMA = pnSuma + OPLATA.pnFelCont = pnFelCont + OPLATA.SHOW(1) + + IF gnButon = 1 + SELECT (lcSelAct) + DELETE + SELECT (lcFis) + SCAN FOR ales + SCATTER NAME oper + SELECT (lcSelAct) + APPEND BLANK + GATHER NAME toAct + REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2 + SELECT (lcFis) + ENDSCAN + ELSE + SELECT (lcSelAct) + REPLACE &pnPereche WITH toact.&pnPereche + ENDIF + + IF USED(lcFis) + USE IN (lcFis) + ENDIF + SELECT (lcSelAct) + DO nrord WITH lcSelAct + this.pageframe1.paGE2.gridb1.SetFocus + ENDPROC + + PROCEDURE calcul_data + ENDPROC + + PROCEDURE calcul_suma + ENDPROC + + PROCEDURE Destroy + Use In (Select("crsReq")) + Use In (Select("crsItems")) + Use In (Select("crsJNetax")) + Use In (Select("crsJTax")) + Use In (Select("crsJtaxN")) + Use In (Select("crsJurnal")) + Use In (Select("crsNewId")) + Use In (Select("crsNote")) + Use In (Select("crsDrepturi_utilizatori")) + Use In (Select("crsUtilizatori")) + Use In (Select("crsCateg")) + Use In (Select("crsSucursale")) + + ENDPROC + + PROCEDURE do_caut_nomenclator + PARAMETERS tcFis, tcNume, tcId, tcTitlu + + pcselect = [select ] + tcNume + [,] + tcId + [ from ] + tcFis + pcfiltru = [1=2] + pcschema = [] + pcorder = tcNume + pccoloane = tcNume + llAllInList = .F. + lcFiltruOriginal = "inactiv=0" + *!* 24.03.2008 + If Upper(tcFis) = 'VNOM_SECTII' + lcFiltruOriginal = lcFiltruOriginal + gcCondSucursala + EndIf + *!* 24.03.2008 ^ + pcTitlu = tcTitlu + + locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, ; + pcTitlu, tcFis, llAllInList, lcFiltruOriginal) && 11.07.2007 + + RETURN locauta + * tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,; + tl_AllInList,tcFiltruOriginal,tcPrimaColoana, tnPornire, tnTipReturn, tcIdColumn, ; + tlDesktop, tcGroup, tcGridDynamicBackColor, tcGridToolTip, tlModParam + ENDPROC + + PROCEDURE inainte_de_do_termin + Local lcSqlSeturi, lcSqlNote, lcSqlCereri, lnSucces, lnEroare, lcLista, lcActiune, lnSucces2 + *lcSqlNote = [] + *lcSqlSeturi = [] + lnEroare = 0 + lnSucces = 1 + *lcLista = [] + Private pnIdSet + pnIdSet = poRec.id_set + Store '' To lcSqlNote, lcSqlSeturi, lcLista, lcActiune + + + SQLSetprop(gnhandle,"Transactions",2) && tranzactie manuala + *!* insertul se face si pentru modificare , si pt update ; + *!* dar in cazul update-ului se sterg inainte inregistrarile + + lcSqlNote = [insert into xnote(id_set,nr_nota, xscd, xscc, xascd, xascc, ] + ; + [x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20, ] + ; + [x21,x22,x23,x24,x25,x26,x27,x28,x29,x30,x31,x32,x33,x34,x35, ] + ; + [suma, suma_val, ] + ; + [curs, id_valuta, proc_tva, id_jtva_coloana, id_fact, id_factd, id_factc, ] + ; + [id_fdoc, dataireg, dataact, datascad, serie_act, nract, pereched, perechec,] + ; + [nnir, id_partd, id_partc, explicatia, id_lucrare, id_responsabil, id_venchelt, id_sectie] + ; + [,scd_fara_part, scc_fara_part ] + ; + [) values(] + ; + [?poRec.id_set,?crsNote.nr_nota, ] + ; + [?ALLTRIM(crsNote.xscd), ?ALLTRIM(crsNote.xscc),?ALLTRIM(crsNote.xascd),?ALLTRIM(crsNote.xascc),] + ; + [?crsNote.x1,?crsNote.x2,?crsNote.x3,?crsNote.x4,?crsNote.x5,?crsNote.x6,?crsNote.x7,?crsNote.x8, ] + ; + [?crsNote.x9,?crsNote.x10,?crsNote.x11,?crsNote.x12,?crsNote.x13,?crsNote.x14,?crsNote.x15, ] + ; + [?crsNote.x16,?crsNote.x17,?crsNote.x18,?crsNote.x19,?crsNote.x20,?crsNote.x21,?crsNote.x22, ] + ; + [?crsNote.x23,?crsNote.x24,?crsNote.x25,?crsNote.x26,?crsNote.x27,?crsNote.x28,?crsNote.x29,] + ; + [?crsNote.x30,?crsNote.x31,?crsNote.x32,?crsNote.x33,?crsNote.x34,?crsNote.x35, ] + ; + [?crsNote.suma,?crsNote.suma_val, ] + ; + [?crsNote.curs, ?crsNote.id_valuta, ?crsNote.proc_tva, ?crsNote.id_jtva_coloana,?crsNote.id_fact, ] + ; + [?crsNote.id_factd,?crsNote.id_factc, ?crsNote.id_fdoc,?crsNote.dataireg,?crsNote.dataact, ] + ; + [?crsNote.datascad,?crsNote.serie_act,?crsNote.nract,?crsNote.pereched,?crsNote.perechec,] + ; + [?crsNote.nnir, ?crsNote.id_partd, ?crsNote.id_partc, ?crsNote.explicatia, ?crsNote.id_lucrare, ] + ; + [?crsNote.id_responsabil,?crsNote.id_venchelt,?crsNote.id_sectie,] + ; + [?crsNote.scd_fara_part, ?crsNote.scc_fara_part] + [)] + + lcSqlCereri = [insert into xrequest(id_set, nr_item, id_item, valoare_default) ] + ; + [values(?porec.id_set, ?crsReq.nr_item, ?crsReq.id_item, ] + ; + [?IIF(!EMPTY(NVL(ALLTRIM(crsReq.valoare_default),'')),crsReq.valoare_default,crsReq.valoare_default_text))] + * [values(?crsReq.id_set, ?crsReq.nr_item, ?crsReq.id_item, ?ALLTRIM(crsReq.valoare_default))] + + + If Empty(poRec.id_set) && insert + lcSqlSeturi = [insert into xsets(nume_set, lista_note, id_jnetax, id_jtax, tipjurnal, ] + ; + [id_jtaxn, valuta, id_categorie, procedura_lans, aleg_cont, id_sucursala) ]+ ; + [values(?ALLTRIM(porec.nume_set), ] + ; + [?ALLTRIM(porec.lista_note), ?porec.id_jnetax, ?porec.id_jtax,?ALLTRIM(poRec.tipjurnal),] + ; + [?porec.id_jtaxn,?porec.valuta,?porec.id_categorie, ] + ; + [?porec.aleg_cont, ?ALLTRIM(porec.procedura_lans), ?porec.id_sucursala) returning id_set into ?@pnIdSet] + + Else && update, pt note se sterge inregistrarea curenta si se adauga + If poRec.id_set >= 1000000 + lnSucces = goExecutor.oExecute([delete from xnote where id_set = ] + Alltrim(Str(poRec.id_set)) + [;]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Else + lnSucces = goExecutor.oExecute([delete from xrequest where id_set = ] + Alltrim(Str(poRec.id_set)) + [;]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Endif + + lcSqlSeturi = [update xsets set nume_set = ?ALLTRIM(porec.nume_set), ] + ; + [lista_note = ?ALLTRIM(porec.lista_note), id_jnetax = ?porec.id_jnetax, ] + ; + [id_jtax = ?porec.id_jtax, tipjurnal = ?ALLTRIM(poRec.tipjurnal),] + ; + [id_jtaxn = ?porec.id_jtaxn, valuta = ?porec.valuta, ] + ; + [id_categorie = ] + Iif(Empty(Nvl(poRec.id_categorie,0)), 'NULL', Alltrim(Transform(poRec.id_categorie))) + [, ] + ; + [procedura_lans = ?ALLTRIM(porec.procedura_lans), aleg_cont = ?porec.aleg_cont, ] + ; + [id_sucursala = ?porec.id_sucursala ] + ; + [where id_set = ?porec.id_set] + Endif + Endif + Endif + + *!* seturile standard au id_set < 1000000, seturile utilizatori au id_set >= 1000000, + *!* utilizatorii nu au dreptul de a modifica seturile standard + If lnSucces > 0 And !Empty(lcSqlSeturi) + lnSucces = goExecutor.oExecute(lcSqlSeturi) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Endif + Endif + + If lnSucces > 0 And poRec.id_set >= 1000000 + Select crsNote + Scan && pt fiecare inregistare din xnote + lnSucces = goExecutor.oExecute(lcSqlNote) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Exit + Endif + Endscan + + If lnSucces > 0 + Select crsReq + Scan && pt fiecare inregistare din xnote + lnSucces = goExecutor.oExecute(lcSqlCereri) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Exit + Endif + Endscan + Endif + + Endif && porec.id_set >= 1000000 + + If lnSucces > 0 + ** utilizatori cu drepturi pe set + lnSucces = goExecutor.oExecute([delete from xsets_utilizatori where id_set = ?porec.id_set]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Else + Select crsdrepturi_utilizatori && salvare + Scan + lnSucces = goExecutor.oExecute([insert into xsets_utilizatori(id_set, id_utilizator) ] + ; + [values(?porec.id_set, ?crsdrepturi_utilizatori.id_util)]) + If lnSucces < 0 + Exit + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Endif + Endscan + Endif + Endif + ** utilizatori cu drepturi pe set^^ + + + + + If lnSucces < 0 + lnSucces2 = goExecutor.oExecute("ROLLBACK") + Else + lnSucces2 = goExecutor.oExecute("COMMIT") + Endif + lnSucces2 = SQLSetprop(gnhandle,"Transactions",1) && tranzactie automata + + Return lnSucces > 0 + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + *LPARAMETERS tlVerificareAnalitic, tlNuVerificCont + + *!* 19.02.2008 + *!* pot sa apelez nota fara predefinire cu sau fara verificare analitice + *!* 11.03.2008 + *!* nota fara predefinire cu/fara verificare conturi completate + + *IF PCOUNT() > 0 + * this.lVerificareAnalitic = tlVerificareAnalitic + * this.lNuVerificCont = tlNuVerificCont + *ELSE + This.lVerificareAnalitic = .T. + This.lNuVerificCont = .F. + *ENDIF + *!* 19.02.2008 ^ + + + *!* Select crsNote + *!* Scan For scc_fara_part = 1 Or scd_fara_part = 1 + *!* Thisform.pageframe1.page3.pageframe1.page3.gridb1.column2.check1.Click + *!* Thisform.pageframe1.page3.pageframe1.page3.gridb1.column3.check1.Click + *!* Endscan + + *!* paginile sunt active pentru seturile noi si pentru modificarea seturilor utilizator + If EMPTY(NVL(porec.id_set,0)) OR porec.id_set >= 1000000 + Thisform.pageframe1.page1.Enabled = .T. + Thisform.pageframe1.page2.Enabled = .T. + Thisform.pageframe1.page3.Enabled = .T. + * Thisform.pageframe1.page4.Enabled = .T. + this.pageframe1.ActivePage = 1 + this.pageframe1.page1.clb_numeset.SetFocus() + ELSE + this.pageframe1.ActivePage = 4 && drepturi utilizatori + ENDIF + this.WindowState = 2 + this.pageframe1.page1.Cb_categorie._cbbase1.Value = poRec.categorie + + + DoDefault() + + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode = 13 AND nShiftAltCtrl = 2 + this.introducere_libera = !this.introducere_libera + * this.shape2.Visible = !this.shape2.Visible + ENDIF + + ENDPROC + + PROCEDURE Load + Local lnSucces, lcSql + lnSucces = 0 + + lnSucces = goExecutor.oExecute([select nvl(n.scc_fara_part,0) as scc_fara_part, ] + ; + [ nvl(n.scd_fara_part,0) as scd_fara_part, n.*, ] + ; + [ p1.denumire as partd, p2.denumire as partc, ] + ; + [ f.fel_document as fdoc, nv.nume_val, 0 as cu_tva, nl.nrord,np.denumire as nresp, ] + ; + [ nvc.explicatie as dst_chlt, ns.sectie, jc.denumire as explicatie_tva ] + ; + [ from xnote n ] + ; + [ left join nom_parteneri p1 on p1.id_part = n.id_partd ] + ; + [ left join nom_parteneri p2 on p2.id_part = n.id_partc ] + ; + [ left join nom_parteneri np on np.id_part = n.id_responsabil ] + ; + [ left join nom_fdoc f on f.id_fdoc = n.id_fdoc ] + ; + [ left join nom_valute nv on nv.id_valuta = n.id_valuta ] + ; + [ left join nom_lucrari nl on nl.id_lucrare = n.id_lucrare ] + ; + [ left join nom_venit_cheltuieli nvc on nvc.id_venchelt = n.id_venchelt ] + ; + [ left join nom_sectii ns on ns.id_sectie = n.id_sectie ] + ; + [ left join jtva_coloane jc on jc.id_jtva_coloana = n.id_jtva_coloana ] + ; + [ where id_set = ] + Alltrim(Str(porec.id_set)) + [ order by n.nr_nota],[crsNote]) + + && [ left join nom_parteneri np on np.id_part = n.id_partd or np.id_part = n.id_partc ] + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + Update crsNote Set cu_tva = Iif(Empty(Nvl(proc_tva,[])),0,1) + + *!* Do nrord With "crsNote" + + lcSql = [select i.label_item, s.nume_set, r.valoare_default, r.nr_item, r.id_item, r.id_set, ] + ; + [ i.fis_lista, i.id_fisier, i.camp_lista, ] + ; + [ rpad(case ] + ; && inceput valoare_default + [ when i.fis_lista is not null then ] + ; + [ pack_util.GetText(i.fis_lista, ] + ; + [ i.id_fisier, ] + ; + [ to_number(r.valoare_default), ] + ; + [ replace(i.camp_lista, ',' , ' || '' '' || ')) ] + ; + [ ELSE r.valoare_default ] + ; + [ end,100,' ') as valoare_default_text ] + ; && valoare_default ^^ + [ from xrequest r ] + ; + [join xsets s on s.id_set = r.id_set ] + ; + [join xitems i on i.id_item = r.id_item ] + ; + [where r.id_set = ?porec.id_set order by r.nr_item ] + + lnSucces = goExecutor.oExecute(lcSql,[crsReq]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + Do nrord With "crsReq" + Go Top + + Select Max(nr_item) As nr From crsreq Into Cursor crsnritem + This.nreqnrmax = Nvl(crsnritem.nr,0) + Use In (Select("crsnritem")) + + goExecutor.oExecute([select label_item, id_item, id_fisier, fis_lista, camp_lista from xitems], [crsItems]) + lnSucces = goExecutor.oExecute([select '' as denumire, CAST(null as number(5)) ] + ; + [as id_jtva_coloana from jtva_coloane union ] + ; + [select denumire , id_jtva_coloana from jtva_coloane], [crsJNetax]) + If lnSucces > 0 + Select * From crsJNetax Into Cursor crsJTax + Select * From crsJNetax Into Cursor crsJTaxN + Else + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + + Select [Jurnal cumparari] As Name, 'JC' As TIPJURNAL From dual Union ; + SELECT [Jurnal vanzari] As Name, 'JV' As TIPJURNAL From dual Union ; + select '' As Name, '' As TIPJURNAL From dual ; + INTO Cursor crsJurnal + + Thisform.nid_set = porec.id_set + + + + Local cLista + cLista = [] + lcSql = [select s.id_set_utilizator, s.id_utilizator as id_util, u.utilizator ] + ; + [from xsets_utilizatori s ] + ; + [join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ; + [where s.id_set = ?porec.id_set order by u.utilizator] + lnSucces = goExecutor.oExecute(lcSql,[crsDrepturi_utilizatori]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + Select crsDrepturi_utilizatori + Scan + cLista = cLista + Alltrim(Str(id_util)) + [,] + Endscan + Go Top + This.clistainitialautiliz = Left(cLista,Len(cLista) - 1) + + lcSql = [select u.utilizator, u.id_util ] + ; + [ from syn_vutilizatori u ] + ; + [ where u.INACTIV = 0 ] + ; + [ AND ID_UTIL not in ] + ; + [ (select s.id_utilizator as id_util ] + ; + [ from xsets_utilizatori s ] + ; + [ join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ; + [ where s.id_set = ?porec.id_set) order by u.utilizator] && utilizatorii care nu au deja drepturi pe xsets + lnSucces = goExecutor.oExecute(lcSql,[crsUtilizatori]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + + lcSql = [select categorie, id_categorie from xSetsCategorii ] + ; + [union ] + ; + [select '' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ; + [order by categorie] + + *!* lcSql = [select categorie, id_categorie from xSetsCategorii ] + ; + *!* [order by categorie] + lnSucces = goExecutor.oExecute(lcSql,[crsCateg]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + + SELECT crscateg + LOCATE FOR id_categorie = porec.id_categorie + + + lcSql = [select sucursala, id_sucursala from vnom_sucursale where sters = 0 and inactiv = 0 order by 1] + lnSucces = goExecutor.oExecute(lcSql,[crsSucursale]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + Select crsNote + Go Top + + ENDPROC + + PROCEDURE verificare + *!* LOCAL COMPL,TE + *!* TE='' + *!* COMPL=.T. + + *!* SELECT crsNote + *!* ii=1 + *!* SCAN + *!* lcScd = scd + *!* lcScc = scc + *!* IF EMPTY(suma) + *!* COMPL=.F. + *!* TE=TE+','+'suma' + *!* ENDIF + *!* *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat + *!* IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul debitor' + *!* ENDIF + *!* IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul creditor' + *!* ENDIF + *!* IF EMPTY(nract) + *!* COMPL=.F. + *!* TE=TE+','+'nr.document' + *!* ENDIF + *!* IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta) + *!* COMPL=.F. + *!* TE=TE+','+'nume valuta' + *!* ENDIF + *!* IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0)) + *!* COMPL = .F. + *!* TE=TE+','+'explicatie TVA' + *!* ENDIF + *!* IF !COMPL + *!* *!* DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...' + *!* amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie") + *!* RETURN COMPL + *!* ENDIF + *!* ii=ii+1 + *!* ENDSCAN + + + *!* RETURN COMPL + *!* modificare 21.02.2008 + lVerificAnalitic = .T. + lCompletezPartener = .F. + llRet = verificare_note_contabile('crsNote',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune + Return llRet + *!* modificare 21.02.2008 ^ + + + ENDPROC + + PROCEDURE verific_analitic + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.COLUMN1.Combo1.Valid + Replace id_item With crsItems.id_item , camp_lista With crsItems.camp_lista ; + valoare_default_text With crsItems.camp_lista In crsReq && + + Select crsItems + Locate For id_item = crsReq.id_item + + This.Parent.Parent.Refresh() + + + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.LostFocus + *!* SELECT crsReq + *!* replace valoare_default_text With lcValoareText + + thisform.pageframe1.page2.gridb1.column3.ReadOnly = .t. + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.When + Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcNumeProc, lcFiltruOriginal, ; + loCauta, lcColoanaText, lcValoareText, lcColoanaId, lcValoareId, liat, lcValoareIdOld, lcValoareTextOld + + *!* If Empty(Nvl(crsReq.fis_lista,[])) + *!* Return + *!* Endif + + *!* lcSelect = [select ] + Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier) + ; + *!* [ from ] + Alltrim(crsReq.fis_lista) && + *!* lcFiltru = [1=2] + *!* lcSchema = [] + *!* lcOrder = Alltrim(crsReq.camp_lista) + *!* lcColoane = Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier) + *!* lcTitlu = Alltrim(crsReq.label_item) + *!* lcFiltruOriginal = [inactiv = 0] + + *!* lcNumeProc = "" + *!* locauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu, ; + *!* lcTitlu,lcNumeProc,.F.,lcFiltruOriginal) + *!* + *!* lcColoanaText = [locauta.] + Alltrim(crsReq.camp_lista) && + *!* lcValoareText = Evaluate(lcColoanaText) + *!* lcColoanaId = [locauta.] + Alltrim(crsReq.id_fisier) + *!* lcValoareId = ALLTRIM(STR(Evaluate(lcColoanaId))) + + *!* SELECT crsReq + *!* Replace valoare_default With lcvaloareid, valoare_default_text WITH lcValoareText + *!* this.Parent.Refresh() + + Select crsItems + Locate For crsItems.id_item = crsReq.id_item + If Empty(Nvl(crsItems.fis_lista,[])) + Thisform.pageframe1.page2.gridb1.column3.ReadOnly = .F. + Return + Endif + + lcValoareTextOld = Alltrim(crsReq.valoare_default_text) + lcValoareIdOld = Alltrim(crsReq.valoare_default) + + lcSelect = [select ] + Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier) + ; + [ from ] + Alltrim(crsItems.fis_lista) + lcFiltru = [1=2] + lcSchema = [] + lcOrder = Alltrim(crsItems.camp_lista) + lcColoane = Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier) + lcTitlu = Alltrim(crsItems.label_item) + lcFiltruOriginal = [inactiv = 0] + lcNumeProc = [] + loCauta = cauta_alfa(lcSelect,lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, ; + lcTitlu, lcNumeProc, .F., lcFiltruOriginal) + + + *lcColoanaText = [loCauta.] + Alltrim(crsItems.camp_lista) + *lcValoareText = Evaluate(lcColoanaText) + + *!* cand camp_lista retine doua valori(ex:nume,cod_fiscal) se pastreaza doar prima valoare + liat = Rat(',',Alltrim(crsItems.camp_lista)) + *lccoloanatext = [loCauta.] + LEFT(ALLTRIM(crsitems.camp_lista),liat - 1) + lcColoanaText = [loCauta.] + Left(Alltrim(crsItems.camp_lista), ; + Iif(liat!=0,liat - 1,Len(Alltrim(crsItems.camp_lista)))) + lcValoareText = Evaluate(lcColoanaText) + + lcColoanaId = [loCauta.] + Alltrim(crsItems.id_fisier) + lcValoareId = Alltrim(Str(Evaluate(lcColoanaId))) + + *!* daca locauta nu intoarce nimic, se memoreaza valorile vechi + If pniesire = 2 + lcValoareText = lcValoareTextOld + lcValoareId = lcValoareIdOld + Endif + *!* ^^ + + Select crsReq + Replace valoare_default With lcValoareId, valoare_default_text With lcValoareText + This.Parent.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page2.Nou1.Command1.Click + Select crsReq + Scatter Name oReq + Append Blank + Gather Name oReq + Thisform.nreqnrmax = Thisform.nreqnrmax + 1 + Replace nr_item With Thisform.nreqnrmax, nume_set With crsReq.nume_set , label_item With '' + Do nrord With "crsReq" + This.Parent.Parent.GRIDB1.Refresh + + + + ENDPROC + + PROCEDURE Pageframe1.Page2.Sterge1.Command1.Click + SELECT crsReq + IF crsreq.nr_item = thisform.nreqnrmax + thisform.nreqnrmax = thisform.nreqnrmax - 1 + endif + + DELETE + DO nrord WITH 'crsReq' + THIS.PARENT.parent.GRIDB1.REFRESH + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.InteractiveChange + *tcFis, tcNume, tcId, tcTitlu + locauta = thisform.do_caut_nomenclator('Vnom_valute','nume_val','id_valuta','Numele Valutei') + SELECT crsNote + REPLACE nume_val WITH locauta.nume_val, id_valuta WITH locauta.id_valuta + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1.InteractiveChange + Local lnRec, lnnrcrt + + Select crsNote + *!* lnRec = Recno() + *!* lnnrcrt = nrcrt() + + Replace proc_tva With (jtva_coloane.cota_tva+100)/100, ; + id_jtva_coloana With jtva_coloane.id_jtva_coloana, ; + explicatie_tva with jtva_coloane.denumire IN crsNote + + Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh() + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1.Click + This.Parent.Parent.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1.KeyPress + Lparameters nKeyCode, nShiftAltCtrl + If nKeyCode=13 Or nKeyCode=9 + Thisform.pageframe1.ActivePage=2 + Thisform.pageframe1.page2.gridb1.SetFocus + Else + DoDefault() + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.InteractiveChange + Replace id_partd With 0, partd With '' + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.LostFocus + lcCont = crsNote.xscd + If !Empty(lcCont) + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + If !llReturn + Replace crsNote.xscd With '' + Endif + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.LostFocus + Parameters PlClick + *!* 11.03.2008 + *!* nu verific analiticul + + If !thisform.lVerificareAnalitic + Return + EndIf + *!* 11.03.2008 ^ + Select crsNote + lcCont = xscd + lcAcont = xascd + If !Empty(lcCont) + llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascd','crsNote') && in oOperatii_comune.prg + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.InteractiveChange + REPLACE id_partc WITH 0, partc WITH '' + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.LostFocus + lcCont = crsNote.xscc + If !Empty(lcCont) + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + If !llReturn + Replace crsNote.xscc With '' + Endif + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.LostFocus + Parameters PlClick + *!* 11.03.2008 + *!* nu verific analiticul + If !thisform.lVerificareAnalitic + Return + EndIf + *!* 11.03.2008 ^ + Select crsNote + lcCont = xscc + lcAcont = xascc + If !Empty(lcCont) + llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascc','crsNote') && in oOperatii_comune.prg + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1.LostFocus + *!* PlClick = .f. + + *!* SELECT crsNote + *!* lcContD = scd + *!* lcAcontD = ascd + *!* lcContC = scc + *!* lcAcontC = ascc + + *!* IF EMPTY(ascc) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContC, lcAcontC,'ascc') + *!* *!* IF ll_l + *!* *!* REPLACE crsNote.ASCC WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + *!* IF EMPTY(ascd) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContD, lcAcontD,'ascd') + *!* *!* IF ll_l + *!* *!* REPLACE crsNote.ASCD WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(suma_val) OR !EMPTY(curs) + REPLACE suma WITH ROUND(suma_val * curs,gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(curs) OR !EMPTY(suma_val) + REPLACE suma WITH ROUND(curs*suma_val, gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Nou1.Command1.Click + Select crsNote && append crsNote + Scatter Name oact + Append Blank + GATHER NAME oact + + + This.Parent.Parent.GRIDB1.Refresh + *thisform.pageframe1.page4.pageframe1.Refresh() + + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Sterge1.Command1.Click + Select crsNote + Delete + *This.Parent.Parent.GRIDB1.Refresh + Go Top + Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh() + Thisform.pageframe1.page3.pageframe1.page2.gridb1.Refresh() + Thisform.pageframe1.page3.pageframe1.page3.gridb1.Refresh() + + + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_fdoc','fel_document','id_fdoc','Felul Documentului') + SELECT crsNote + REPLACE fdoc WITH locauta.fel_document, id_fdoc WITH locauta.id_fdoc + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(1,odoc) + DO aleg_document_pereche WITH 1,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode=13 OR nKeyCode=9 + thisform.pageframe1.ActivePage=3 + thisform.pageframe1.page3.gridb1.SetFocus + ELSE + DODEFAULT() + ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(0,odoc) + DO aleg_document_pereche WITH 0,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_sectii','sectie','id_sectie','Sectia') + SELECT crsNote + REPLACE id_sectie WITH locauta.id_sectie, sectie WITH locauta.sectie + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.InteractiveChange + If scd_fara_part = 1 + return + ENDIF + + Local lcCont, lnIdPartd, lnRezultat, lnSucces, lcSql + Local loCauta + Select crsNote + Private pcCont + pcCont = Alltrim(Nvl(xscd,'')) + lnIdPartd = id_partd + If Empty(pcCont) + Return + ENDIF + + Local lnrezultat, lnsucces + lnrezultat = 0 + lnsucces = 0 + lcSql = "select count(*) from config_cont_ireg where cont = ?pcCont" + lnsucces = goExecutor.oSelect2Value(lcSql, @lnrezultat) + + If lnsucces = 1 + If lnrezultat > 0 + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ; + [??lAdaugCorespondente=>1??cCont=>] + pcCont)) + Select crsNote + Replace id_partd With loCauta.id_part, partd With loCauta.nume + If lnIdPartd <> loCauta.id_part + Select crsNote + Replace pereched With 0, id_factd With 0 + Endif + Else + AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare") + Endif + Else + AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare") + Endif + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.InteractiveChange + If scc_fara_part = 1 + Return + Endif + + Local lcCont, lnIdPartc, lnRezultat, lnSucces, lcSql, lnIdPartc + Local loCauta + Select crsNote + Private pcCont + pcCont = Alltrim(Nvl(xscc,'')) + lnIdPartc = id_partc + + If Empty(pcCont) + Return + Endif + Local lnRezultat,lnSucces + lnRezultat=0 + lnSucces=0 + lcSql="select count(*) from config_cont_ireg where cont = ?pcCont" + lnSucces=goExecutor.oSelect2Value(lcSql,@lnRezultat) + + If lnSucces = 1 + If lnRezultat > 0 + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ; + [??lAdaugCorespondente=>1??cCont=>] + pcCont)) + Select crsNote + Replace id_partc With loCauta.id_part, partc With loCauta.nume + If lnIdPartc <> loCauta.id_part + Select crsNote + Replace perechec With 0, id_factc With 0 + Endif + Else + AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare") + Endif + Else + AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare") + Endif + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1.Click + If scc_fara_part = 1 + replace partc WITH '', id_partc WITH 0 + this.Parent.Parent.column18.Refresh() + endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1.Click + If scd_fara_part = 1 + replace partd WITH '', id_partd WITH 0 + this.Parent.Parent.column17.Refresh() + endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_lucrari','nrord','id_lucrare','Lucrarea / Contractul') + SELECT crsNote + REPLACE nrord WITH locauta.nrord, id_lucrare WITH locauta.id_lucrare + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.InteractiveChange + *!* locauta = thisform.do_caut_nomenclator('Vnom_responsabili','nume','id_responsabil','Nume responsabil') + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>] + ; + ALLTRIM(Str(gnIdTipResponsabili)) + [??lAdaugCorespondente=>1])) + Select crsNote + Replace nresp With loCauta.denumire, id_responsabil With loCauta.id_part + Release loCauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_venchel','explicatie','id_venchelt','Cheltuiala / Venit') + SELECT crsNote + REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Init + *!* this.column1.header1.BackColor=this.column1.dynamicBackColor + + + *!* FOR i=1 TO this.ColumnCount + *!* t='this.column'+ALLTRIM(STR(i))+'.header1.backcolor=this.column'+ALLTRIM(STR(i))+'.backcolor' + *!* &t + *!* ENDFOR + *!* this.Refresh + ENDPROC + + PROCEDURE Pageframe1.Page4.But_precedent1.Click + Local lcOnError, llErr, lnIdUtil, lnNrRec + + lnIdUtil = crsDrepturi_utilizatori.id_util + llErr = .F. + lcOnError = [ErrorHandler(Error(),Program(),Lineno())] + On Error llErr = .T. + + Select Count(*) As nr From crsDrepturi_utilizatori Into Cursor crsUtilizRamasi + If nr = 0 + Return + Endif + Use In (Select("crsUtilizRamasi")) + + lnNrRec = Recno() + Begin Transaction + Insert Into crsUtilizatori(id_util, utilizator) ; + values(crsDrepturi_utilizatori.id_util,crsDrepturi_utilizatori.utilizator) + Delete From crsDrepturi_utilizatori Where id_util = lnIdUtil + If llErr + Rollback + &lcOnError + llErr = .F. + ELSE + End Transaction + Endif + + On Error &lcOnError + + Select crsUtilizatori + Locate For id_util = lnIdUtil + Select crsDrepturi_utilizatori + Go Top + *Go Iif(lnNrRec <> 1, lnNrRec - 1, 1) + + *!* Thisform.pageframe1.page5.gridb1.Refresh() + *!* Thisform.pageframe1.page5.gridb2.Refresh() + Thisform.pageframe1.page4.gridb1.Refresh() + Thisform.pageframe1.page4.gridb2.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page4.But_urmator1.Click + Local lcOnError, llErr, lnIdUtil, lnNrRec + + lnIdUtil = crsutilizatori.id_util + llErr = .F. + lcOnError = On("error") + *lcOnError = [ErrorHandler(Error(),Program(),Lineno())] + On Error llErr = .T. + + Select Count(*) As nr From crsutilizatori Into Cursor crsUtilizRamasi + If nr = 0 + Return + Endif + Use In (Select("crsUtilizRamasi")) + + lnNrRec = Recno() + Begin Transaction + Insert Into crsDrepturi_utilizatori(id_util, utilizator) ; + VALUES(crsutilizatori.id_util,crsutilizatori.utilizator) + Delete From crsutilizatori Where id_util = lnIdUtil + If llErr + Rollback + &lcOnError + llErr = .F. + Else + End Transaction + Endif + + On Error &lcOnError + + Select crsDrepturi_utilizatori + Locate For id_util = lnIdUtil + Select crsutilizatori + Go Top + *!* lnGoInreg = Iif(lnNrRec <> 1, lnNrRec - 1, 1) + *!* Go lnGoInreg + + + Thisform.pageframe1.page4.gridb1.Refresh() + Thisform.pageframe1.page4.gridb2.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page4.Gridb1.COLUMN1.Text1.DblClick + this.Parent.Parent.Parent.but_urmator1.Click() + ENDPROC + + PROCEDURE Pageframe1.Page4.Gridb2.COLUMN1.Text1.DblClick + this.Parent.Parent.Parent.but_precedent1.Click() + ENDPROC + +ENDDEFINE diff --git a/Clase/ofundal_sal.vc2 b/Clase/ofundal_sal.vc2 new file mode 100644 index 0000000..af38200 --- /dev/null +++ b/Clase/ofundal_sal.vc2 @@ -0,0 +1,4931 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_sal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class. + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + clastcaption = Microsoft Visual FoxPro + clasticon = + Name = "capplication" + nformcount = 0 + * + + PROCEDURE doform + LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow + LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft + LOCAL lcFormName,lnFormCount + + _screen.visible=.t. + + lcFileName=UPPER(ALLTRIM(tcFileName)) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"") + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx") + ENDIF + IF NOT FILE(lcFileName) + this.FileNotFoundMsgBox(lcFileName) + RETURN .F. + ENDIF + lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass) + IF tlNoMultipleInstances + FOR lnCount = 1 TO this.nFormCount + IF this.aFormNames[lnCount]==lcFormName AND ; + TYPE("this.aForms[lnCount]")=="O" AND ; + NOT ISNULL(this.aForms[lnCount]) + this.aForms[lnCount].Show + RETURN .F. + ENDIF + ENDFOR + ENDIF + this.RefreshFormsCollection + this.nFormCount=this.nFormCount+1 + DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount] + this.aFormNames[this.nFormCount]=lcFormName + IF NOT EMPTY(lcClass) + SET CLASSLIB TO (lcFileName) ADDITIVE + this.aForms[this.nFormCount]=CREATEOBJECT(lcClass) + IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ; + NOT ISNULL(this.aForms[this.nFormCount]) + this.aForms[this.nFormCount].Show + ENDIF + ELSE + DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW + ENDIF + lnFormCount=this.nFormCount + this.RefreshFormsCollection + IF this.lCascadeForms AND this.nFormCount>=lnFormCount + oForm=this.aForms[this.nFormCount] + lnTop=oForm.Top + lnLeft=oForm.Left + lcName=oForm.Name + IF WEXIST(lcName) AND oForm.WindowState#2 + FOR lnCount = 1 TO (this.nFormCount-1) + oForm2=this.aForms[lnCount] + IF TYPE("oForm2")#"O" OR ISNULL(oForm2) + LOOP + ENDIF + IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ; + WLCOL(lcName)=WLCOL(oForm2.Name) + lnTop=lnTop+this.nPixelOffset + lnLeft=lnLeft+this.nPixelOffset + ENDIF + ENDFOR + IF oForm.Top#lnTop + oForm.Top=lnTop + ENDIF + IF oForm.Left#lnLeft + oForm.Left=lnLeft + ENDIF + ENDIF + ENDIF + + *!* modificat 14.12.2004 + *!* liana + IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri)) + this.aForms[this.nFormCount].Show + ENDIF + + ENDPROC + + PROCEDURE onshutdown + If glQuit + Do INCHIDPROG + Quit + Endif + + + OA=Createobject('frm_mesaj','ROA Definirea companiei','intreb.ico','INTREBARE','Doriþi sã ieºiþi din program?') + OA.lbl_mesaj1.FontBold=.T. + OA.lbl_mesaj1.FontSize=12 + OA.lbl_mesaj1.Top=55 + OA.Show(1) + If buton=1 + ON SHUTDOWN + ON ERROR + CLEAR EVENTS + IF _VFP.StartMode <> 0 + QUIT + ENDIF + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_calc AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_calc" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_sucursala = Nvl(ALLTRIM(STR(toRec.id_sucursala)),"") + lcCalc = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire)),['],['']),"") + lcDescriere = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.calculatoare (denumire,id_sucursala,inactiv,descriere) VALUES ('] + lcCalc + [',] + lcid_sucursala +[,]+lcInactiv+ [,']+lcDescriere+[')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.calculatoare SET denumire = '] + lcCalc+[', id_sucursala = ]+lcId_sucursala + [,inactiv = ] + lcinactiv + [,descriere = ']+lcDescriere+[' where id_calc = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update calculatoare set sters=1 where id_calc=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_calcsetari AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_calcsetari" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_calc = Nvl(ALLTRIM(STR(toRec.id_calc)),"") + lcExplicatia = Nvl(STRTRAN(Alltrim(Upper(toRec.explicatia)),['],['']),"") + lcValoare = Nvl(STRTRAN(Alltrim(Upper(toRec.valoare)),['],['']),"") + lcSetare = Nvl(ALLTRIM(toRec.setare),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.calculatoare_setari (explicatia,id_calc,valoare, setare) VALUES ('] +; + lcExplicatia + [',] + lcid_calc + [,'] + lcValoare+ [','] + lcSetare + [')] + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.calculatoare_setari SET explicatia = '] + lcExplicatia+[', id_calc = ]+lcId_calc +; + [,setare = '] + lcSetare + [',valoare = ']+lcValoare+[' where id_calcsetare = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update calculatoare_setari set sters=1 where id_calcsetare=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + *!* STRTOFILE(LCSQL,'C:\DELETE.SQL') + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_gruputil AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_gruputil" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL") + IF EMPTY(toRec.id_tata) OR ISNULL(toRec.id_tata) + lcid_tata = "NULL" + ELSE + lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL") + ENDIF + + lcGrup = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire_grup)),['],['']),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.grupuri_utilizatori (denumire_grup,id_tata,inactiv) VALUES ('] + lcGrup + [',] + lcid_tata +[,]+lcInactiv+ [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.grupuri_utilizatori SET denumire_grup = '] + lcGrup+[', id_tata = ]+lcId_tata + [,inactiv = ] + lcinactiv + [ where id_grup = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update grupuri_utilizatori set sters=1 where id_grup=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + *!* STRTOFILE(LCSQL,'C:\DELETE.SQL') + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_utilizatori AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_utilizatori" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_util = IIF(EMPTY(toRec.id_util),'null',Nvl(ALLTRIM(STR(toRec.id_util)),"null")) + lcid_partener = IIF(EMPTY(toRec.id_partener),'null',Nvl(ALLTRIM(STR(toRec.id_partener)),"null")) + lcid_contact = IIF(EMPTY(toRec.id_contact),'null',Nvl(ALLTRIM(STR(toRec.id_contact)),"null")) + lcid_grup = IIF(EMPTY(toRec.id_grup),'null',Nvl(ALLTRIM(STR(toRec.id_grup)),"null")) + lcid_sucursala = IIF(EMPTY(toRec.id_sucursala) and EMPTY(toRec.sucursala),'null',Nvl(ALLTRIM(STR(toRec.id_sucursala)),"null")) + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.Utilizatori_rol_intern (id_util,id_partener,id_contact,id_grup,id_sucursala,inactiv) VALUES (] +; + lcid_util + [,] + lcid_partener + [,]+lcid_contact +[,] +lcid_grup +[,]+ lcid_sucursala +[,]+lcInactiv+ [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.Utilizatori_rol_intern SET id_util = ] + lcid_util +[, id_partener= ]+lcid_partener +; + [,id_contact= ] + lcid_contact +[,id_grup=]+lcid_grup +[,id_sucursala = ]+lcid_sucursala +[,Inactiv=]+lcInactiv+ [ where id_util = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update Utilizatori_rol_intern set sters=1 where id_util=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + *!* STRTOFILE(LCSQL,'C:\DELETE.SQL') + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calc AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_nom_calc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 393 + Name = "frm_calc" + Width = 404 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 408 + _SHAPE2.Height = 29 + _SHAPE2.Left = 300 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 104 + LB_TITLU_ALB_B121.Caption = "Calculatoare" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 372 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 310, ; + Left = 11, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsCalc", ; + ScrollBars = 2, ; + Top = 77, ; + Width = 384, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "Column1", ; + Column1.Width = 111, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "sucursala", ; + Column2.Name = "Column2", ; + Column2.Width = 132, ; + Column3.ControlSource = "descriere", ; + Column3.Name = "Column3", ; + Column3.Width = 105 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Calculator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 253, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 313, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 282, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 343, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 312, ; + Name = "CMD_CAUTA1", ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "lb_nom_calc", ; + Top = 36, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Calculator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pocalc.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._grdrow1) + pocalc.ca_baza1.cfiltru=lcFiltru + pocalc.ca_baza1.afisare() + restore_grid_tag(thisform._grdrow1) + IF RECCOUNT('crsCalc')>0 + thisform._grdrow1.SetFocus() + ELSE + thisform.Lb_nom_calc.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + DO nom_calculatoare_nou IN onomenclatoare.prg + IF gnButon = 1 + THISFORM.actualizeaza_grid1() + ENDI + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],['']) + + If !Empty(lcNume) + lcFiltru=[denumire like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_excel + lcTabel = This._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Do export_excel_grid With This._grdrow1, "sucursala,denumire" + Else + amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_modifica + Local loRec, lnIdCalculator + + If Reccount('crsCalc')>0 + Select crsCalc + lnIdCalculator = id_calc + Scatter Name loRec + + loRec = nom_calculatoare_modifica(lnIdCalculator) + + If !Isnull(loRec) + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + Select crsCalc + Locate For id_calc = loRec.id_calc + If !Found() + Go Top + Endif + Thisform._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsCalc')>0 + Select crsCalc + Scatter Name lorec + Do STERGE_INREGISTRARE With "calc",lorec.id_calc + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calc_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CUS_ODATA_CALC1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_sucursala" UniqueID="" Timestamp="" /> + + * + *m: do_alege_sucursala + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 193 + Name = "frm_calc_nou" + nid = + orec = + Width = 332 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Left = 258 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + LB_TITLU_ALB_B121.Caption = "Calculator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 7 + BUT_TERMIN1.Left = 300 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + BUT_RENUNT1.Left = 271 + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 5 + BUT_RENUNT1.Top = 1 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 24, ; + Name = "_checkbox1", ; + TabIndex = 6, ; + TabStop = .F., ; + Top = 160 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ; + Left = 17, ; + Name = "Cb_sucursala", ; + TabIndex = 3, ; + Top = 108, ; + _cbbase1.ControlSource = "porec.sucursala", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vnom_sucursale.sucursala", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Sucursala", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 17, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 52, ; + Width = 290, ; + TEXT_SIMPLU1.ControlSource = "porec.denumire", ; + TEXT_SIMPLU1.Format = "!K", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Calculator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 17, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 80, ; + Width = 290, ; + Text_simplu1.ControlSource = "porec.descriere", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'CUS_ODATA_CALC1' AS cus_odata_calc WITH ; + Left = 288, ; + Name = "CUS_ODATA_CALC1", ; + Top = 156 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_sucursala + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + + + DO CASE + CASE EMPTY(porec.denumire) + aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie") + THIS.clb_tx_simplu1.SETFOCUS() + PLRETURN=.F. + CASE EMPTY(porec.sucursala) + aMESSAGEBOX('Nu ati completat sucursala!',0+48,"Atentie") + THIS.cb_sucursala._cbbase1.SETFOCUS() + PLRETURN=.F. + + + OTHERWISE + PLRETURN=THIS.cus_odata_calc1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_calc1.cactiune = tcActiune + ENDPROC + + PROCEDURE Cb_sucursala._cbbase1.Valid + porec.id_sucursala = vnom_sucursale.id_sucursala + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calcsetari AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="clb_calculator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_sucursala" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + cgridsortlist = _grdrow1 + DoCreate = .T. + Height = 465 + Name = "frm_calcsetari" + Width = 596 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 636 + _SHAPE2.Height = 29 + _SHAPE2.Left = 473 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 251 + LB_TITLU_ALB_B121.Caption = "Setari calculatoare" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 9 + BUT_TERMIN1.Left = 565 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 0 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 364, ; + Left = 8, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsCalcsetari", ; + TabIndex = 4, ; + Top = 98, ; + Width = 578, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "calculator", ; + Column1.Name = "Column1", ; + Column1.Width = 115, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "explicatia", ; + Column2.Name = "Column2", ; + Column2.Width = 101, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "valoare_text", ; + Column3.Name = "Column3", ; + Column3.Width = 127, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "setare", ; + Column4.Name = "Column4", ; + Column4.Width = 113, ; + Column5.ColumnOrder = 1, ; + Column5.ControlSource = "sucursala", ; + Column5.Name = "Column5", ; + Column5.Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Calculator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Setare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 505, ; + Name = "But_modifica1", ; + TabIndex = 7, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 474, ; + Name = "But_nou1", ; + TabIndex = 8, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 535, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'clb_calculator' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "clb_calculator", ; + TabIndex = 1, ; + Top = 38, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Calculator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_sucursala' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "clb_sucursala", ; + TabIndex = 2, ; + Top = 66, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Sucursala", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 308, ; + Name = "CMD_CAUTA1", ; + TabIndex = 3, ; + Top = 38 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + Local lcFiltru + lcFiltru=pcFiltru + If Empty(lcFiltru) + lcFiltru=pocalc.ca_baza1.cfiltru + Endif + save_grid_tag(Thisform._grdrow1) + pocalc.ca_baza1.cfiltru=lcFiltru + pocalc.ca_baza1.afisare() + restore_grid_tag(Thisform._grdrow1) + If Reccount('crsCalcsetari')>0 + Thisform._grdrow1.SetFocus() + Else + Thisform.clb_calculator.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_adauga + DO calcsetare_nou IN onomenclatoare.prg + IF gnButon = 1 + THISFORM.actualizeaza_grid1() + ENDI + ENDPROC + + PROCEDURE do_cauta + LOCAL lcFiltru, lcCalculator, lcSucursala + + lcFiltru=[] + lcCalculator = STRTRAN(UPPER(ALLTRIM(THIS.clb_calculator.text_simplu1.VALUE)),['],['']) + lcSucursala = STRTRAN(UPPER(ALLTRIM(THIS.clb_sucursala.text_simplu1.VALUE)),['],['']) + + IF !EMPTY(lcCalculator) + lcFiltru = lcFiltru + [ and calculator like '%] + lcCalculator + [%'] + ENDIF + IF !EMPTY(lcSucursala) + lcFiltru = lcFiltru + [ and sucursala like '%] + lcSucursala + [%'] + ENDIF + IF !EMPTY(lcFiltru) + lcFiltru = SUBSTR(lcFiltru,6) + ELSE + lcFiltru = "2=2" + ENDIF + + THIS.MOUSEPOINTER= 11 + THIS.LOCKSCREEN=.T. + THISFORM.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + THIS.LOCKSCREEN=.F. + THIS.MOUSEPOINTER= 0 + + ENDPROC + + PROCEDURE do_modifica + LOCAL loRec, lnIdUtil + + If Reccount('crsCalcSetari')>0 + Select crsCalcSetari + lnId = id_calcsetare + Scatter Name loRec + + loRec = calcsetare_modifica(lnId) + + IF !ISNULL(loRec) + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + SELECT crsCalcSetari + LOCATE FOR id_calcsetare = lorec.id_calcsetare + IF !FOUND() + GO top + ENDIF + thisform._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsCalcSetari')>0 + Select crsCalcSetari + Scatter Name lorec + Do STERGE_INREGISTRARE With "calcsetari",lorec.id_calcsetare + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calcsetari_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_explicatia" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CUS_ODATA_CALCSETARI1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_calculator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_setare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_valoare" UniqueID="" Timestamp="" /> + + * + *m: do_alege_valoare + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 169 + Name = "frm_calcsetari_nou" + nid = .F. + orec = + Width = 381 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Left = 320 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + LB_TITLU_ALB_B121.Caption = "Setare calculator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 7 + BUT_TERMIN1.Left = 350 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Left = 11 + GRIDSORT1.Name = "GRIDSORT1" + GRIDSORT1.Top = 42 + BUT_RENUNT1.Left = 321 + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 6 + BUT_RENUNT1.Top = 1 + * + + ADD OBJECT 'Cb_calculator' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 23, ; + Name = "Cb_calculator", ; + TabIndex = 1, ; + Top = 48, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.calculator", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 96, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vcalculatoare.denumire", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 225, ; + _lbbase1.Caption = "Calculator", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_setare' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 23, ; + Name = "Cb_setare", ; + TabIndex = 2, ; + Top = 76, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.setare", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 96, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vsetari.setare", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 224, ; + _lbbase1.Caption = "Setare", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_explicatia' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 23, ; + Name = "Clb_explicatia", ; + TabIndex = 3, ; + Top = 104, ; + Width = 326, ; + TEXT_SIMPLU1.ControlSource = "porec.explicatia", ; + TEXT_SIMPLU1.Format = "!K", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 97, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 221, ; + LB_SIMPLU1.Caption = "Explicatie", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_valoare' AS ct_clb_cautare WITH ; + cconditie = Empty(NVL(porec.valoare,'')), ; + cprocedura = thisform.do_alege_valoare, ; + cvar_afisata = porec.valoare_text, ; + Height = 31, ; + Left = 22, ; + Name = "Clb_valoare", ; + TabIndex = 4, ; + Top = 131, ; + Width = 331, ; + img_cautare.Left = 308, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Lb_simplu1.Caption = "Valoare", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.ControlSource = "poRec.valoare", ; + clb_tx_cautare.Text_simplu1.Height = 23, ; + clb_tx_cautare.Text_simplu1.Left = 97, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Text_simplu1.Width = 195, ; + clb_tx_cautare.Width = 300 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'CUS_ODATA_CALCSETARI1' AS cus_odata_calcsetari WITH ; + Left = 9, ; + Name = "CUS_ODATA_CALCSETARI1", ; + Top = 108 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_valoare + LOCAL loHash, lcVarResult, lcVarValoare + + DO CASE + CASE vsetari.tip = 'L' AND !EMPTY(NVL(vsetari.tabel,'')) && L = LISTA; T = TEXT + loHash = GetHash() + WITH loHash + .SetValue("cSelect", "select " + ALLTRIM(NVL(vsetari.coloane,'')) + " from " + ALLTRIM(NVL(vsetari.tabel,''))) + .SetValue("cSchema", ALLTRIM(NVL(vsetari.Schema,''))) + .SetValue("cFiltru", ALLTRIM(NVL(vsetari.Filtru,''))) + .SetValue("cOrder", ALLTRIM(NVL(vsetari.Ordine,''))) + .SetValue("cColoana", ALLTRIM(NVL(vsetari.Coloane,''))) + .SetValue("cTitlu", ALLTRIM(NVL(vsetari.Titlu,''))) + .SetValue("cTitluColoana", ALLTRIM(NVL(vsetari.TitluColoane,''))) + .SetValue("cFiltruOriginal", ALLTRIM(NVL(vsetari.FiltruOriginal,''))) + .SetValue("cPrimaColoana", ALLTRIM(NVL(vsetari.ResultColoana,''))) + .SetValue("cEnums",ALLTRIM(NVL(vsetari.Enums,''))) + + IF '2=2'$ALLTRIM(NVL(vsetari.Filtru,'')) + .SetValue("nPornire", 6) + ENDIF + ENDWITH + + loCauta = cauta_alfa_hash(loHash) && cauta_alfa.prg + lcVarResult = "loCauta." + ALLTRIM(vsetari.resultcoloana) + lcVarValoare = "loCauta." + ALLTRIM(vsetari.idcoloana) + IF !ISNULL(loCauta) + IF !EMPTY(&lcVarResult) + poRec.valoare_text = ALLTRIM(TRANSFORM(EVALUATE(lcVarResult))) + poRec.valoare = ALLTRIM(TRANSFORM(EVALUATE(lcVarValoare))) + ENDIF + ENDIF + + OTHERWISE + lcTip = IIF(vsetari.tip = 'L' and !EMPTY(NVL(vsetari.enums,'')), 'COMBO','EDIT') + lcEnums = ALLTRIM(NVL(vsetari.enums,'')) + poRec.valoare = GetText(GetHash("cTitlu=>" + ALLTRIM(vsetari.setare) + "??cText=>" + ALLTRIM(poRec.valoare)+"??cTip=>" + lcTip + "??cEnums=>" + lcEnums)) && ocautare.prg + poRec.valoare_text = poRec.valoare + ENDCASE + + thisform.Refresh + + + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + + + DO CASE + CASE EMPTY(porec.calculator) + aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie") + THIS.cb_calculator.SETFOCUS() + PLRETURN=.F. + CASE EMPTY(porec.setare) + aMESSAGEBOX('Nu ati completat setarea!',0+48,"Atentie") + THIS.cb_setare.SETFOCUS() + PLRETURN=.F. + CASE EMPTY(porec.valoare_text) + aMESSAGEBOX('Nu ati completat valoarea!',0+48,"Atentie") + THIS.clb_valoare.SETFOCUS() + PLRETURN=.F. + + + OTHERWISE + PLRETURN=THIS.cus_odata_calcsetari1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_calcsetari1.cactiune = tcActiune + + IF UPPER(tcActiune) = 'UPDATE' + this.cb_calculator._cbbase1.Enabled = .F. + this.cb_setare._cbbase1.Enabled = .F. + this.clb_explicatia.SetFocus() + ENDIF + ENDPROC + + PROCEDURE Cb_calculator._cbbase1.Valid + porec.id_calc = vcalculatoare.id_calc + + ENDPROC + + PROCEDURE Cb_setare._cbbase1.Valid + poRec.explicatia = ALLTRIM(vsetari.setare) + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_entitati_conturi_o AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_cont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.ck_tip_entitate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_cod_fiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_reg_comert" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.But_nou3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.But_modifica3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.But_sterge3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.Ck_filtru_cont2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_reset1" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_grid3 + *m: actualizeaza_grid4 + *m: actualizeaza_grid5 + *m: adauga_cont + *m: do_adauga_coresp_tc + *m: do_adauga_tipuri + *m: do_cauta2 + *m: do_modifica_coresp_tc + *m: do_modifica_tipuri + *m: do_reset2 + *m: do_sterge_coresp_tc + *m: do_sterge_tipuri + *m: modifica_cont + *m: sterge_cont + *p: cul_activ + *p: temporar_id_tip_part + *p: temporar_tip_partener + * + + * + BorderStyle = 3 + cgridsortlist = _pageframe1.page1._grdrow1;_pageframe1.page3._grdrow4 + DoCreate = .T. + Height = 420 + Name = "frm_entitati_conturi_o" + temporar_id_tip_part = 0 + temporar_tip_partener = + Width = 697 + WindowState = 0 + WindowType = 1 + _shape1.Anchor = 10 + _shape1.Comment = "*:OnResize=sR" + _shape1.Height = 30 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "W" + _shape1.Top = 0 + _shape1.Width = 698 + _shape2.Anchor = 8 + _shape2.Comment = "*:OnResize=RT" + _shape2.Height = 29 + _shape2.Left = 665 + _shape2.Name = "_shape2" + _shape2.Tag = "L" + _shape2.Top = 1 + _shape2.Width = 32 + Lb_titlu_alb_b121.Caption = "Configurare Entitati" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 19 + Lb_titlu_alb_b121.Tag = "" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Comment = "*:OnResize=RT" + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 666 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 18 + BUT_TERMIN1.Tag = "L" + BUT_TERMIN1.Top = 2 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_pageframe1' AS _pageframe WITH ; + Anchor = 15, ; + Comment = "*:OnResize=sS", ; + ErasePage = .T., ; + Height = 391, ; + Left = 0, ; + Name = "_pageframe1", ; + PageCount = 3, ; + Tag = "WH", ; + Top = 29, ; + Width = 698, ; + PAGE1.BackColor = 255,255,255, ; + PAGE1.Caption = "Entitati", ; + PAGE1.Comment = "", ; + PAGE1.Name = "PAGE1", ; + PAGE1.Tag = "HW", ; + PAGE2.BackColor = 255,255,255, ; + PAGE2.Caption = "Tipuri Entitati - Conturi", ; + PAGE2.Comment = "", ; + PAGE2.Name = "PAGE2", ; + PAGE2.Tag = "HW", ; + Page3.BackColor = 255,255,255, ; + Page3.Caption = "Conturi", ; + Page3.Name = "Page3", ; + Page3.Tag = "HW" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 14, ; + Comment = "*:OnResize=SS", ; + DeleteMark = .F., ; + Height = 296, ; + HighlightStyle = 1, ; + Left = 4, ; + Name = "_grdrow1", ; + nrgbrow = 0, ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .F., ; + RecordSource = "crsparteneri", ; + TabIndex = 14, ; + Tag = "HW", ; + Top = 65, ; + Width = 551, ; + Column1.ControlSource = "crsparteneri.id_part", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 65, ; + Column2.ControlSource = "crsparteneri.nume", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 174, ; + Column3.ControlSource = "crsparteneri.cod_fiscal", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column4.ControlSource = "crsparteneri.reg_comert", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column5.ControlSource = "crsparteneri.adresa", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column6.ControlSource = "crsparteneri.localitate", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column7.ControlSource = "crsparteneri.telefon", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column8.ControlSource = "crsparteneri.banca", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column9.ControlSource = "crsparteneri.cont_banca", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column10.ControlSource = "crsparteneri.zona", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column11.ControlSource = "crsparteneri.bloc", ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column12.ControlSource = "crsparteneri.scara", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column13.ControlSource = "crsparteneri.apartament", ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column14.ControlSource = "crsparteneri.inactiv", ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 49 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Zona", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bloc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scara", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Apartament", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Fiscal / CNP", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Reg. Comert", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Adresa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Banca", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow2' AS _grdrow WITH ; + Anchor = 13, ; + ColumnCount = 1, ; + crgb_row = 255,255,255, ; + DeleteMark = .F., ; + Height = 296, ; + Left = 554, ; + Name = "_grdrow2", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crscoresp_tip_parteneri", ; + TabIndex = 15, ; + Tag = "HL", ; + Top = 65, ; + Width = 131, ; + Column1.ControlSource = "crscoresp_tip_parteneri.tip_partener", ; + Column1.Name = "Column1", ; + Column1.Width = 121 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow2.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow2.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1.But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 491, ; + Name = "But_modifica1", ; + TabIndex = 10, ; + Tag = "L", ; + Top = 34, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 460, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Tag = "L", ; + Top = 34 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 520, ; + Name = "But_sterge1", ; + TabIndex = 12, ; + Tag = "L", ; + Top = 34, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_cod_fiscal' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = cod_fiscal, ; + Caption = "Cod Fiscal", ; + criteriu = 4, ; + criteriu2 = 4, ; + Left = 4, ; + Name = "Ck_cod_fiscal", ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_cont' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = cont, ; + Caption = "Cont", ; + Left = 167, ; + Name = "Ck_filtru_cont", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Denumire", ; + Left = 4, ; + Name = "Ck_filtru_nume", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_reg_comert' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = reg_comert, ; + Caption = "Reg. Comert", ; + criteriu = 4, ; + criteriu2 = 4, ; + Left = 84, ; + Name = "Ck_reg_comert", ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.ck_tip_entitate' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Tip Entitate", ; + FontName = "Arial Narrow", ; + Left = 84, ; + Name = "ck_tip_entitate", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 219, ; + Name = "Cmd_cauta1", ; + TabIndex = 4, ; + Tag = "L", ; + Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.Cmd_executa1' AS cmd_executa WITH ; + Anchor = 8, ; + Caption = "\ + + ADD OBJECT '_pageframe1.PAGE1.Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 219, ; + Name = "Cmd_reset1", ; + Tag = "L", ; + Top = 34 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.Lb_simplu1' AS lb_simplu WITH ; + Caption = "Entitati", ; + FontSize = 10, ; + Left = 4, ; + Name = "Lb_simplu1", ; + Top = 50 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE1.Lb_simplu2' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "Tip/Tipuri ", ; + Comment = "*:OnResize=RT", ; + FontSize = 10, ; + Left = 554, ; + Name = "Lb_simplu2", ; + Tag = "L", ; + Top = 33 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE1.Lb_simplu3' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "Entitate Selectata", ; + Comment = "*:OnResize=RT", ; + FontSize = 10, ; + Left = 554, ; + Name = "Lb_simplu3", ; + Tag = "L", ; + Top = 50 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3' AS _grdrow WITH ; + Anchor = 5, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 296, ; + HighlightStyle = 1, ; + Left = 8, ; + Name = "_grdrow3", ; + nrgbrow = 0, ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crstipuriparteneri", ; + ScrollBars = 2, ; + TabIndex = 16, ; + Tag = "H", ; + Top = 65, ; + Width = 238, ; + Column1.ControlSource = "crstipuriparteneri.id_tip_part", ; + Column1.Name = "Column1", ; + Column1.Width = 47, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "crstipuriparteneri.tip_partener", ; + Column2.Name = "Column2", ; + Column2.Width = 125, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "crstipuriparteneri.inactiv", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 43 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip ", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column3._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Left = 38, ; + Name = "_checkbox1", ; + ReadOnly = .T., ; + Top = 93 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 296, ; + Left = 248, ; + Name = "_grdrow4", ; + nrgbrow = 0, ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crstipuriconturi", ; + ScrollBars = 2, ; + TabIndex = 17, ; + Tag = "HW", ; + Top = 65, ; + Width = 442, ; + Column1.ControlSource = "crstipuriconturi.tip_partener", ; + Column1.Name = "Column1", ; + Column1.Tag = "W", ; + Column1.Width = 68, ; + Column2.ControlSource = "crstipuriconturi.cont", ; + Column2.Name = "Column2", ; + Column2.Width = 72, ; + Column3.ControlSource = "crstipuriconturi.explicatie", ; + Column3.Name = "Column3", ; + Column3.Width = 122, ; + Column4.ControlSource = 'iif(crstipuriconturi.fel_cont<=0,"Activ","Pasiv")', ; + Column4.Name = "Column4", ; + Column4.Width = 71, ; + Column5.ControlSource = "crstipuriconturi.cu_inregistrari", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Sparse = .F., ; + Column5.Width = 83 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "crstipuriconturi.fel_cont", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Left = 28, ; + Name = "_checkbox1", ; + Top = 45 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu Inregistrari", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2.But_modifica2' AS but_modifica WITH ; + caction = do_modifica_tipuri, ; + Comment = "*:OnResize=RT", ; + Left = 186, ; + Name = "But_modifica2", ; + TabIndex = 8, ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_modifica3' AS but_modifica WITH ; + Anchor = 8, ; + caction = do_modifica_coresp_tc, ; + Comment = "*:OnResize=RT", ; + Left = 633, ; + Name = "But_modifica3", ; + TabIndex = 9, ; + Tag = "L", ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_nou2' AS but_nou WITH ; + caction = do_adauga_tipuri, ; + Comment = "*:OnResize=RT", ; + Left = 155, ; + Name = "But_nou2", ; + TabIndex = 6, ; + Top = 35 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_nou3' AS but_nou WITH ; + Anchor = 8, ; + caction = do_adauga_coresp_tc, ; + Comment = "*:OnResize=RT", ; + Left = 602, ; + Name = "But_nou3", ; + TabIndex = 7, ; + Tag = "L", ; + Top = 35 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_sterge2' AS but_sterge WITH ; + caction = do_sterge_tipuri, ; + Comment = "*:OnResize=RT", ; + Left = 215, ; + Name = "But_sterge2", ; + TabIndex = 11, ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_sterge3' AS but_sterge WITH ; + Anchor = 8, ; + caction = do_sterge_coresp_tc, ; + Comment = "*:OnResize=RT", ; + Left = 662, ; + Name = "But_sterge3", ; + TabIndex = 13, ; + Tag = "L", ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.Lb_simplu1' AS lb_simplu WITH ; + Caption = "Tipuri Entitati", ; + FontSize = 10, ; + Left = 8, ; + Name = "Lb_simplu1", ; + Top = 48 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE2.Lb_simplu2' AS lb_simplu WITH ; + Caption = "Conturi", ; + Comment = "*:OnResize=RT", ; + FontSize = 10, ; + Left = 249, ; + Name = "Lb_simplu2", ; + Top = 48 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 297, ; + HighlightStyle = 1, ; + Left = 7, ; + Name = "_grdrow4", ; + nrgbrow = 0, ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsconturi", ; + TabIndex = 17, ; + Tag = "HW", ; + Top = 62, ; + Width = 682, ; + Column1.ControlSource = "cont", ; + Column1.Name = "Column2", ; + Column1.Width = 72, ; + Column2.ControlSource = "explicatie", ; + Column2.Name = "Column3", ; + Column2.Width = 328, ; + Column3.ControlSource = "fel_cont", ; + Column3.Name = "Column4", ; + Column3.Width = 89, ; + Column4.ControlSource = "cu_inregistrari", ; + Column4.Name = "Column5", ; + Column4.ReadOnly = .T., ; + Column4.Sparse = .F., ; + Column4.Width = 83, ; + Column5.ControlSource = "cu_venchelt", ; + Column5.Name = "Column1", ; + Column5.ReadOnly = .T., ; + Column5.Sparse = .F., ; + Column5.Width = 97, ; + Column6.ControlSource = "cu_proc_tva", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Sparse = .F., ; + Column6.Width = 70 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 36, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 24, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Venituri/cheltuieli", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "crstipuriconturi.fel_cont", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column5._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Left = 28, ; + Name = "_checkbox1", ; + Top = 45 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu Inregistrari", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 22, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 24, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.But_modifica3' AS but_modifica WITH ; + Anchor = 8, ; + caction = modifica_cont, ; + Comment = "*:OnResize=RT", ; + Left = 628, ; + Name = "But_modifica3", ; + TabIndex = 9, ; + Tag = "L", ; + Top = 15, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.But_nou3' AS but_nou WITH ; + Anchor = 8, ; + caction = adauga_cont, ; + Comment = "*:OnResize=RT", ; + Left = 598, ; + Name = "But_nou3", ; + TabIndex = 7, ; + Tag = "L", ; + Top = 15 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.But_sterge3' AS but_sterge WITH ; + Anchor = 8, ; + caction = sterge_cont, ; + Comment = "*:OnResize=RT", ; + Left = 657, ; + Name = "But_sterge3", ; + TabIndex = 13, ; + Tag = "L", ; + Top = 15, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.Ck_filtru_cont2' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = cont, ; + Caption = "Cont", ; + Left = 4, ; + Name = "Ck_filtru_cont2", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3.Cmd_cauta1' AS cmd_cauta WITH ; + caction = do_cauta2, ; + Comment = "*:OnResize=RT", ; + Left = 119, ; + Name = "Cmd_cauta1", ; + TabIndex = 4, ; + Tag = "L", ; + Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.Cmd_reset1' AS cmd_reset WITH ; + caction = do_reset2, ; + Comment = "*:OnResize=RT", ; + Left = 119, ; + Name = "Cmd_reset1", ; + Tag = "L", ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + PROCEDURE Activate + thisform.WindowState = 2 + THIS.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poparteneri.ca_baza1.cfiltru + ENDIF + save_grid_comment(This._pageframe1.pAGE1._grdrow1) + poparteneri.ca_baza1.cfiltru=lcfiltru + poparteneri.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.pAGE1._grdrow1) + Select CRSPARTENERI + IF (RECCOUNT()=0) + aMESSAGEBOX("Nu exista rezultate.",0+48,"Atentie") + ENDIF + + ENDPROC + + PROCEDURE actualizeaza_grid2 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poparteneri.ca_baza1.cfiltru + MESSAGE("filtru gol") + ENDIF + save_grid_comment(This._pageframe1.pAGE1._grdrow2) + pocoresp_tip_parteneri.ca_baza1.cfiltru=lcfiltru + pocoresp_tip_parteneri.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.pAGE1._grdrow2) + Select crscoresp_tip_parteneri + Go Top + IF (RECCOUNT()=0) + * WAIT "Acest partener nu are setat tipul." WINDOW NOWAIT + ELSE + ** thisform._grdrow1.SetFocus() + ENDIF + ENDPROC + + PROCEDURE actualizeaza_grid3 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=potipuri_parteneri.ca_baza1.cfiltru + ENDIF + save_grid_comment(This._pageframe1.pAGE2._grdrow3) + potipuri_parteneri.ca_baza1.cfiltru=lcfiltru + potipuri_parteneri.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.pAGE2._grdrow3) + *!* Select crstipuriparteneri + *!* Go Top + + ENDPROC + + PROCEDURE actualizeaza_grid4 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=potipuri_conturi.ca_baza1.cfiltru + ENDIF + save_grid_comment(THIS._pageframe1.pAGE2._grdrow4) + potipuri_conturi.ca_baza1.cfiltru=lcFiltru + potipuri_conturi.ca_baza1.afisare() + restore_grid_comment(THIS._pageframe1.pAGE2._grdrow4) + *!* SELECT crstipuriconturi + *!* GO TOP + *!* IF (RECCOUNT()=0) + *!* * WAIT "Acest tip nu are setate conturi." WINDOW NOWAIT + *!* ELSE + *!* ** thisform._grdrow1.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE actualizeaza_grid5 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poconturi.ca_baza1.cfiltru + ENDIF + save_grid_comment(This._pageframe1.page3._grdrow4) + poconturi.ca_baza1.cfiltru=lcfiltru + poconturi.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.page3._grdrow4) + *!* Select crsconturi + *!* Go Top + + ENDPROC + + PROCEDURE adauga_cont + SELECT crsconturi + SCATTER NAME loRecI BLANK + + lorecI.Fel_cont = 0 + loRecI.cu_inregistrari = 0 + loRecI.cu_venchelt = 0 + loRecI.cu_proc_tva = 0 + + config_ireg() + lnSucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRecI,,"INSERT",.f.,'oAddConfig') + + IF lnSucces > 0 + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid5() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + ENDIF + + close_config_ireg() + + + ENDPROC + + PROCEDURE do_adauga + + SELECT crsparteneri + SCATTER NAME loRec BLANK + pccontinua=.F. + ADDPROPERTY(lorec,"id_tip_part",0) + ADDPROPERTY(lorec,"tip_partener",0) + lorec.adresa="" + + =cclocalitati() + =cctipuri() + =cctipuri_selectate(loRec.id_tip_part) + DO Adauga_Modifica_Inregistrare WITH "parteneri",loRec,,"INSERT" IN oproceduri_ams.prg + =close_cclocalitati() + =close_cctipuri() + =close_cctipuri_selectate() + + IF pccontinua=.T. + thisform.actualizeaza_grid1() + ENDIF + + If Used('localitati') + Use In localitati + Endif + ENDPROC + + PROCEDURE do_adauga_coresp_tc + + SELECT crstipuriconturi + SCATTER NAME loRec BLANK + + lorec.Fel_cont = 0 + loRec.tip_partener = thisform.temporar_tip_partener + + pncontinua = 0 + *!* ADDPROPERTY(lorec,"id_tip_part",0) + + lnSucces = cctipuri() + IF lnSucces < 0 + RETURN + ENDIF + lnSucces = config_ireg() + IF lnSucces < 0 + RETURN + ENDIF + + pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,,"INSERT") + + =close_cctipuri() + =close_config_ireg() + + IF pncontinua = 1 + thisform.actualizeaza_grid4() + ENDIF + + + ENDPROC + + PROCEDURE do_adauga_tipuri + SELECT crstipuriparteneri + SCATTER NAME loRec BLANK + pccontinua=.F. + + DO Adauga_Modifica_Inregistrare WITH "tipuri_parteneri",loRec,,"INSERT" IN oproceduri_ams.prg + + IF pccontinua=.T. + thisform.actualizeaza_grid3() + ENDIF + + + ENDPROC + + PROCEDURE do_cauta + Private lcfiltru,lcval1 + lcfiltru='' + + *!* If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value) + *!* lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value)),['],['']) + *!* lcfiltru=lcfiltru+[ and nume like ']+Iif(lcval1='%',[%'],lcval1+[%']) + *!* Endif + + If ThisForm._pageframe1.pAGE1.Ck_filtru_nume.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_nume.filtru + Endif + + *!* **If !Empty(ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value) + *!* If (ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value <> "") + *!* lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part)) + *!* ENDIF + + If ThisForm._pageframe1.pAGE1.Ck_tip_entitate.Value = 1 + If !empty(ThisForm.temporar_id_tip_part) + lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part)) + ENDIF + ENDIF + + *!* If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value) + *!* lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value)),['],['']) + *!* lcfiltru=lcfiltru+[ and cont like ']+Iif(lcval1='%',[%'],lcval1+[%']) + *!* Endif + + If ThisForm._pageframe1.pAGE1.Ck_filtru_cont.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_cont.filtru + ENDIF + + If ThisForm._pageframe1.pAGE1.Ck_cod_fiscal.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_cod_fiscal.filtru + ENDIF + + If ThisForm._pageframe1.pAGE1.Ck_reg_comert.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_reg_comert.filtru + ENDIF + + If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru + Endif + + + If !Empty(lcfiltru) + lcfiltru=Substr(lcfiltru,5) + Else + *!* MESSAGEBOX("Alegeti un criteriu!",0+48,"Atentie") + *!* ThisForm._pageframe1.pAGE1._grdrow1.setfocus() + *!* RETURN + lcfiltru = [1=1] + ENDIF + + + thisform.actualizeaza_grid1(lcFiltru) + ENDPROC + + PROCEDURE do_cauta2 + Private lcfiltru,lcval1 + lcfiltru='' + + + + If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru + Endif + + + If !Empty(lcfiltru) + lcfiltru=Substr(lcfiltru,5) + Else + + lcfiltru = [1=1] + ENDIF + + + thisform.actualizeaza_grid5(lcFiltru) + ENDPROC + + PROCEDURE do_executa + LOCAL loPart, loCauta, lnIdPartProst, lnIdPartBun, lnAn1, lnAn2, lnLuna1, lnLuna2, lnInit, lnFinal, lcMesaj + LOCAL lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcFiltruOriginal, lcNumeProc, llAllInlist + + SELECT crsParteneri + SCATTER NAME loPart + IF loPart.id_part = 0 + RETURN + ENDIF + + lcParola = INPUTBOX('Parola','Parola','') + IF lcParola # TRANSFORM(YEAR(DATE())) + PADL(TRANSFORM(MONTH(DATE())),2,'0') + PADL(TRANSFORM(DAY(DATE())),2,'0') + RETURN + ENDIF + + + + lcselect = [select p.nume, p.cod_fiscal, p.id_part,p.inactiv FROM ] + gcs + [.Vnom_parteneri p where] + lcfiltru = [] + lcschema = [] + lcorder = [P.NUME] + lccoloane = [nume,cod_fiscal,id_part,inactiv] + lcTitlu = [Alegeti parterul cu Id Partener corect] + lcTitluColoane = [Nume,Cod fiscal,Id Partener, Inactiv] + lcFiltruOriginal = [p.inactiv = 0 and id_part <> ] + TRANSFORM(loPart.id_part) + lcNumeProc = "" + llAllInlist = .F. + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llAllInlist, lcFiltruOriginal) + + + IF locauta.id_part = 0 + RETURN + ENDIF + + pcondper="" + ofrmperioada=CREATEOBJECT('frm_perioada_luni') + ofrmperioada.SHOW(1) + IF gnButon=2 + RETURN + ENDIF + + plPerioada=.F. + lnPoz=AT('_',pcondper) + IF lnPoz>0 + plPerioada=.T. + ENDIF + + + IF plPerioada + lnAn1 = VAL(SUBSTR(pcondper,3,4)) + lnLuna1 = VAL(SUBSTR(pcondper,1,2)) + lnAn2 = VAL(SUBSTR(pcondper,10,4)) + lnLuna2 = VAL(SUBSTR(pcondper,8,2)) + + lnInit = lnAn1 * 12 + lnLuna1 + lnFinal = lnAn2 * 12 + lnLuna2 + lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,8,2)+'/'+SUBSTR(pcondper,10,4) + ELSE + lnAn1 = VAL(SUBSTR(pcondper,3,4)) + lnLuna1 = VAL(SUBSTR(pcondper,1,2)) + lnAn2 = VAL(SUBSTR(pcondper,3,4)) + lnLuna2 = VAL(SUBSTR(pcondper,1,2)) + + lnInit = lnAn1 * 12 + lnLuna1 + lnFinal = lnAn2 * 12 + lnLuna2 + lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ENDIF + + lnRaspuns = aMESSAGEBOX('Doriti sa inlocuiti in registrul jurnal, balanta verificare, balanta partener si inregistrari partener ' + CHR(13) + ; + lcPerioada + CHR(13) + ; + ALLTRIM(loPart.Nume) + '(' + TRANSFORM(loPart.id_part) +')' + CHR(13) + ; + 'cu ' + ALLTRIM(locauta.Nume) + '(' + TRANSFORM(locauta.id_part) +')?',4+32,'Inlocuire ID Partener') + IF lnRaspuns # 6 + RETURN + ENDIF + + + lnIdPartProst = loPart.id_part + lnIdPartBun = locauta.id_part + + lcEroare = '' + lcEroare = modifica_id_partener(lnIdPartProst, lnIdPartBun, lnAn1, lnLuna1, lnAn2, lnLuna2) + IF !EMPTY(lcEroare) + lcMesaj = lcEroare + ELSE + lcMesaj = 'S-au terminat modificarile.' + ENDIF + + aMESSAGEBOX(lcMesaj,0+48,"Atentie") + + + + ENDPROC + + PROCEDURE do_modifica + LOCAL lnRecno + + If Reccount('crsparteneri')>0 + Private pccod_fiscal + Select crsparteneri + Scatter Name loRec + lnRecno = RECNO() + + SELECT crscoresp_tip_parteneri + GO TOP + + lnid_tip_part = crscoresp_tip_parteneri.id_tip_part + lctip_part = crscoresp_tip_parteneri.tip_partener + **BROWSE + **!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + ADDPROPERTY(lorec,"id_tip_part",lnid_tip_part) + ADDPROPERTY(lorec,"tip_partener",lctip_part) + pccod_fiscal=loRec.cod_fiscal + pccontinua=.F. + =cclocalitati() + =cctipuri() + * INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('') + =cctipuri_selectate(loRec.id_part) + Do Adauga_Modifica_Inregistrare With "parteneri",loRec,loRec.ID_part,"UPDATE" IN oproceduri_ams.prg + + =close_cclocalitati() + =close_cctipuri() + =close_cctipuri_selectate() + If pccontinua=.T. + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + SELECT crsParteneri + LOCATE FOR id_part = lorec.id_part + IF !FOUND() + GO top + ENDIF + thisform._pageframe1.pAGE1._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Endif + ENDPROC + + PROCEDURE do_modifica_coresp_tc + If Reccount('crstipuriconturi')>0 + + Select crstipuriconturi + Scatter Name loRec + + loRec.tip_partener = thisform.temporar_tip_partener + + pncontinua = 0 + + lnSucces = cctipuri() + IF lnSucces < 0 + RETURN + ENDIF + lnSucces = config_ireg() + IF lnSucces < 0 + RETURN + ENDIF + + pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,loRec.ID_coresp_tip_cont,"UPDATE") && IN oproceduri_ams.prg + =close_cctipuri() + =close_config_ireg() + + IF pncontinua = 1 + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid4() + + Select crstipuriconturi + LOCATE FOR ID_coresp_tip_cont = loRec.ID_coresp_tip_cont + IF !FOUND() + GO top + ENDIF + + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + ENDIF + + + ENDPROC + + PROCEDURE do_modifica_tipuri + If Reccount('crstipuriparteneri')>0 + + Select crstipuriparteneri + Scatter Name loRec + + pctip_partener = loRec.tip_partener + + pccontinua=.F. + + Do Adauga_Modifica_Inregistrare With "tipuri_parteneri",loRec,loRec.ID_tip_part,"UPDATE" IN oproceduri_ams.prg + If pccontinua=.T. + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid3() + + Select crstipuriparteneri + LOCATE FOR id_tip_part = loRec.ID_tip_part + IF !FOUND() + GO top + ENDIF + this._pageframe1.page2._grdrow3.Refresh() + + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Endif + ENDPROC + + PROCEDURE do_reset + this._pageframe1.page1.clb_tx_simplu1.text_simplu1.Value = "" + this._pageframe1.page1.clb_tx_simplu3.text_simplu1.Value = "" + this._pageframe1.page1.cb_tip_partener._cbbase1.Value = "" + ENDPROC + + PROCEDURE do_reset2 + this._pageframe1.page3.ck_filtru_cont2.Value=0 + this._pageframe1.page3.cmd_cauta1.Click + ENDPROC + + PROCEDURE do_sterge + + + SELECT crsparteneri + SCATTER NAME loRec + SQLSETPROP(gnHandle,"Transactions",2) && tranzactie manuala + llSucces = .F. + lnSucces = -1 + + **llSucces = sterge_inregistrare("parteneri",loRec,loRec.id_part,"DELETE") + llSucces = sterge_inregistrare("parteneri",loRec.id_part) + IF llSucces + lcSql = [DELETE FROM ] + gcS + [.CORESP_TIP_PART WHERE ID_PART = ] + ALLTRIM(STR(loRec.id_part)) + lnSucces = goExecutor.oExecute(lcSql) + ENDIF + IF lnSucces > 0 + SQLCOMMIT(gnHandle) + ELSE + SQLROLLBACK(gnHandle) + ENDIF + SQLSETPROP(gnHandle,"Transactions",1) && tranzactie automata + + IF lnSucces > 0 + SELECT crsParteneri + *!* DELETE + *!* thisform._pageframe1.page1._grdrow1.SetFocus() + *!* thisform._pageframe1.page1._grdrow1.Refresh() + THISFORM.actualizeaza_grid1() + ENDIF + + ENDPROC + + PROCEDURE do_sterge_coresp_tc + Select crstipuriconturi + Scatter Name loRec + Do sterge_inregistrare With "coresp_tipuri_conturi",lorec.id_coresp_tip_cont IN oproceduri_ams.prg + Thisform.actualizeaza_grid4() + ENDPROC + + PROCEDURE do_sterge_tipuri + Select crstipuriparteneri + Scatter Name loRec + Do sterge_inregistrare With "tipuri_parteneri",lorec.id_tip_part IN oproceduri_ams.prg + Thisform.actualizeaza_grid3() + Thisform.actualizeaza_grid4() + ENDPROC + + PROCEDURE Init + DODEFAULT() + + thisform.WindowState = 2 + THIS.Refresh + SELECT crstipuriparteneri + GO TOP + this.temporar_tip_partener = crstipuriparteneri.tip_partener + THIS._pageframe1.PAGE1._grdrow1.SetFocus + + **INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('') + + ENDPROC + + PROCEDURE Load + + + + ENDPROC + + PROCEDURE modifica_cont + SELECT crsconturi + SCATTER NAME loRec + + config_ireg() + lnsucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRec,loRec.ID_cont_ireg,"UPDATE",.f.) + + + IF lnSucces > 0 + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid5() + Select crsconturi + LOCATE FOR ID_cont_ireg = loRec.ID_cont_ireg + IF !FOUND() + GO top + ENDIF + this._pageframe1.page3._grdrow4.Refresh + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + ENDIF + + close_config_ireg() + + + + + ENDPROC + + PROCEDURE Resize + THISFORM.Refresh() + *this.resizer1.onresize + ENDPROC + + PROCEDURE sterge_cont + Select crsconturi + Scatter Name loRec + lnsucces = sterge_inregistrare("config_cont_ireg",lorec.id_cont_ireg) + + Thisform.actualizeaza_grid5() + + ENDPROC + + PROCEDURE _pageframe1.PAGE1.ck_tip_entitate.Valid + IF this.Value = 1 + pcselect = [select tip_partener,id_tip_part from ] + gcs + [.VNOM_TIP_PARTENERI] + pcfiltru = [] + pcschema = [] + pcorder = [tip_partener] + pccoloane = [tip_partener] + pcTitlu = [Tip partener] + pcTitluColoane = [Tip partener] + pcFiltruOriginal = [inactiv = 0] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.f.,pcFiltruOriginal) + + thisform.temporar_id_tip_part = locauta.id_tip_part + ENDIF + ENDPROC + + PROCEDURE _pageframe1.PAGE1.DblClick + THIS.CMD_executa1.Visible = .T. + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.AfterRowColChange + LPARAMETERS nColIndex + DODEFAULT() + + SELECT crsparteneri + lcFiltru2 = [ID_PART=]+ALLTRIM(STR(crsparteneri.id_part)) + thisform.actualizeaza_grid2(lcFiltru2) + + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.Column1.Text1.Click + + + + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.Init + this.SetAll("DynamicBackColor","iif(inactiv = 1, RGB(200,200,200), RGB(255,255,255))","Column") + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.Valid + **thisform._grdrow2.Left=thisform._grdrow2.Left+30 + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.When + **thisform._grdrow2.Left=thisform._grdrow2.Left-30 + ENDPROC + + PROCEDURE _pageframe1.PAGE2._grdrow3.AfterRowColChange + LPARAMETERS nColIndex + DODEFAULT() + + SELECT crstipuriparteneri + lcFiltru4 = [ID_TIP_PART=]+ALLTRIM(STR(crstipuriparteneri.id_tip_part)) + thisform.actualizeaza_grid4(lcFiltru4) + + thisform.temporar_tip_partener=crstipuriparteneri.tip_partener + ENDPROC + + PROCEDURE _shape1.DblClick + IF thisform.WindowState = 2 + thisform.WindowState = 0 + ELSE + thisform.WindowState = 2 + ENDIF + THISFORM.Refresh + THISFORM._pageframe1.Page1._grdrow1.SetFocus() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_gruputil AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_nom_grup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 381 + Name = "frm_gruputil" + Width = 401 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 276 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 132 + LB_TITLU_ALB_B121.Caption = "Grupuri utilizatori" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 369 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 0 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 292, ; + Left = 8, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsGrup", ; + ScrollBars = 2, ; + Top = 78, ; + Width = 384, ; + Column1.ControlSource = "id_grup", ; + Column1.Name = "Column1", ; + Column1.Width = 58, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nume_parinte", ; + Column2.Name = "Column2", ; + Column2.Width = 123, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "denumire_grup", ; + Column3.Name = "Column3", ; + Column3.Width = 168 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Grup", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Grup parinte", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Grup utilizatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 248, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 309, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 279, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 340, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 309, ; + Name = "CMD_CAUTA1", ; + Top = 37 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb_nom_grup' AS clb_tx_simplu WITH ; + Left = 9, ; + Name = "lb_nom_grup", ; + Top = 37, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Grup", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pogrup.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._grdrow1) + pogrup.ca_baza1.cfiltru=lcFiltru + pogrup.ca_baza1.afisare() + restore_grid_tag(thisform._grdrow1) + IF RECCOUNT('crsGrup')>0 + thisform._grdrow1.SetFocus() + ELSE + thisform.Lb_nom_grup.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT crsGrup + SCATTER NAME loRec blank + DO Adauga_Modifica_Inregistrare WITH "gruputil",loRec,,"INSERT" + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_grup.text_simplu1.value)),['],['']) + + If !Empty(lcNume) + lcFiltru=[denumire_grup like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_excel + lcTabel = This._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Do export_excel_grid With This._grdrow1, "denumire_grup" + Else + amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica + If Reccount('crsGrup')>0 + Select crsGrup + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "gruputil",loRec,loRec.id_grup,"UPDATE" + Thisform.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsGrup')>0 + Select crsGrup + Scatter Name lorec + Do STERGE_INREGISTRARE With "gruputil",lorec.id_grup + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_gruputil_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_grup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CUS_ODATA_GRUPUTIL1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="img_parinte" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_parinte" UniqueID="" Timestamp="" /> + + * + *m: do_alege_parinte + *m: do_alege_tata + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 135 + Name = "frm_gruputil_nou" + nid = + orec = + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Name = "_SHAPE2" + LB_TITLU_ALB_B121.Caption = "Grup utilizator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 5 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + GRIDSORT1.Name = "GRIDSORT1" + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 3 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 32, ; + Name = "_checkbox1", ; + TabIndex = 6, ; + TabStop = .F., ; + Top = 113 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_grup' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 25, ; + Name = "Clb_grup", ; + TabIndex = 1, ; + Top = 71, ; + Width = 313, ; + TEXT_SIMPLU1.ControlSource = "porec.denumire_grup", ; + TEXT_SIMPLU1.Format = "!K", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 101, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 206, ; + LB_SIMPLU1.Caption = "Grup", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_parinte' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 25, ; + Name = "clb_parinte", ; + TabIndex = 4, ; + TabStop = .F., ; + ToolTipText = "Pentru modificare, faceti dublu-click!", ; + Top = 43, ; + Width = 313, ; + Text_simplu1.ControlSource = "porec.nume_parinte", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Value = , ; + Text_simplu1.Width = 206, ; + Lb_simplu1.Caption = "Grup parinte", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roaauto\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'CUS_ODATA_GRUPUTIL1' AS cus_odata_gruputil WITH ; + Left = 336, ; + Name = "CUS_ODATA_GRUPUTIL1", ; + Top = 48 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + ADD OBJECT 'img_parinte' AS _image WITH ; + Height = 24, ; + Left = 344, ; + Name = "img_parinte", ; + Picture = ..\comun\grafice\alege.bmp, ; + Stretch = 2, ; + ToolTipText = "Alegeti valuta", ; + Top = 45, ; + Width = 24 + *< END OBJECT: ClassLib="..\..\roaauto\comun\clase\_baza.vcx" BaseClass="image" /> + + PROCEDURE do_alege_parinte + Local loCauta + loCauta = caut_gruputilizatori() + IF ISNULL(loCauta) + RETURN + ENDIF + + IF !EMPTY(loCauta.id_grup) + poRec.id_tata = loCauta.id_grup + poRec.nume_parinte = loCauta.denumire_grup + ELSE + poRec.id_tata = NULL + poRec.nume_parinte = "" + ENDIF + + this.clb_parinte.text_simplu1.Refresh() + + ENDPROC + + PROCEDURE do_alege_tata + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + + + DO CASE + CASE EMPTY(porec.denumire_grup) + aMESSAGEBOX('Nu ati completat denumirea grupului!',0+48,"Atentie") + THIS.clb_grup.text_simplu1.SETFOCUS() + PLRETURN=.F. + + OTHERWISE + PLRETURN=THIS.cus_odata_gruputil1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_gruputil1.cactiune = tcActiune + ENDPROC + + PROCEDURE clb_parinte.Text_simplu1.DblClick + Thisform.do_alege_parinte() + ENDPROC + + PROCEDURE img_parinte.Click + Thisform.do_alege_parinte() + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_listutil AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_optiongrup2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautareSucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrupUtil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautareGrupUtil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_grup + *m: do_cauta_sucursala + *p: nidgest + *p: nvalgrup + *p: nvalselectie + *p: ogruputil + *p: orezult + *p: osucursala + *p: pcnumegest + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 259 + Name = "frm_listutil" + nidgest = .F. + nvalgrup = 1 + nvalselectie = 1 + ogruputil = .NULL. + orezult = .F. + osucursala = .NULL. + pcnumegest = + Width = 375 + _memberdata = + + + + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 312 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 63 + Lb_titlu_alb_b121.Caption = "Listare utilizatori" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 343 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 360 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 6 + But_renunt1.Top = 36 + But_renunt1.Visible = .F. + * + + ADD OBJECT '_label1' AS _label WITH ; + BackColor = 255,255,255, ; + Caption = "Grupare", ; + Left = 22, ; + Name = "_label1", ; + TabIndex = 8, ; + Top = 48 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + BackColor = 255,255,255, ; + Caption = "Selectie", ; + Left = 23, ; + Name = "_label2", ; + TabIndex = 9, ; + Top = 114 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + BackStyle = 0, ; + Caption = "Sucursala", ; + Left = 23, ; + Name = "_label3", ; + TabIndex = 11, ; + Top = 181 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + BackStyle = 0, ; + Caption = "Grup utilizatori", ; + Left = 23, ; + Name = "_label4", ; + TabIndex = 13, ; + Top = 213 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_optiongrup1' AS _optiongrup WITH ; + AutoSize = .F., ; + ControlSource = "thisform.nvalgrup", ; + Height = 46, ; + Left = 13, ; + Name = "_optiongrup1", ; + TabIndex = 1, ; + Top = 60, ; + Width = 305, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Puncte de lucru (sucursale)", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Grupuri de utilizatori", ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_optiongrup2' AS _optiongrup WITH ; + AutoSize = .F., ; + ControlSource = "thisform.nvalselectie", ; + Height = 124, ; + Left = 13, ; + Name = "_optiongrup2", ; + TabIndex = 2, ; + Top = 126, ; + Width = 324, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Angajati (asociere utilizator - partener)", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Colaboratori (asociere utilizator - contact)", ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT 'But_cautareGrupUtil' AS but_cautare WITH ; + caction = do_cauta_grup, ; + Left = 292, ; + Name = "But_cautareGrupUtil", ; + TabIndex = 4, ; + Top = 207 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_cautareSucursala' AS but_cautare WITH ; + caction = do_cauta_sucursala, ; + Left = 292, ; + Name = "But_cautareSucursala", ; + TabIndex = 3, ; + Top = 175 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 313, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'txtGrupUtil' AS _textbox WITH ; + FontItalic = .T., ; + Height = 23, ; + Left = 107, ; + Name = "txtGrupUtil", ; + ReadOnly = .T., ; + TabIndex = 12, ; + TabStop = .F., ; + Top = 210, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtSucursala' AS _textbox WITH ; + FontItalic = .T., ; + Height = 23, ; + Left = 107, ; + Name = "txtSucursala", ; + ReadOnly = .T., ; + TabIndex = 10, ; + TabStop = .F., ; + Top = 178, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE do_cauta + LPARAMETERS tnTip + && tnTip: 1 = sucursala; 2 = grup + + IF tnTip = 1 + This.oSucursala = caut_sucursala() && ocautare.prg + IF !ISNULL(This.oSucursala) + this.txtSucursala.Value = this.oSucursala.sucursala + ENDIF + ELSE + This.oGrupUtil = caut_gruputilizatori() && ocautare.prg + IF !ISNULL(This.oGrupUtil) + this.txtGrupUtil.Value = This.oGrupUtil.denumire_grup + ENDIF + ENDIF + ENDPROC + + PROCEDURE do_cauta_grup + this.do_cauta(2) + ENDPROC + + PROCEDURE do_cauta_sucursala + this.do_cauta(1) + ENDPROC + + PROCEDURE do_listare + *!* DEBUG + *!* SUSPEND + Private pcPartener,pcPctlucru + Local lcCursor, lcMenu, lcOrdine, lcRaport, lcSelect, lcWhere, lnMenu, lnSucces + pcPartener = 'EOF()' + pcPctlucru = 'EOF()' + lcWhere = "" + + lcMenu = [Listare] + IF this.lactiv7 && listare parole cod de bare + lcMenu = m.lcMenu + [;Listare etichete parole cod de bare] + ENDIF + lnMenu = xmenu(m.lcMenu) + IF !INLIST(lnMenu,1,2) + RETURN + ENDIF + lcRaport = [utilizatori.frx] + IF lnMenu = 2 + lcRaport = [utilizatori_parole.lbx] + ENDIF + + If Thisform.nvalgrup = 1 + *!* lcWhere1 = [where id_partener is not null] + pcPctlucru = 'sucursala' + lcOrdine = [ order by sucursala] + *!* pcPartener = 'nume' + Else + pcPctlucru = 'denumire_grup' + lcOrdine = [ order by denumire_grup] + Endif + + If Thisform.nvalselectie = 1 + lcWhere = [where id_partener is not null] + lcOrdine = lcOrdine + [,partener] + Else + lcWhere = [where id_contact is not null] + lcOrdine = lcOrdine + [,contact] + If Thisform.nvalgrup = 1 + pcPctlucru = 'partener' + Endif + ENDIF + IF !ISNULL(This.oSucursala) AND !EMPTY(NVL(This.oSucursala.id_sucursala,0)) + lcWhere = lcWhere + [ and id_sucursala = ] + ALLTRIM(STR(This.oSucursala.id_sucursala)) + ENDIF + + IF !ISNULL(This.oGrupUtil) AND !EMPTY(NVL(This.oGrupUtil.id_grup,0)) + lcWhere = lcWhere + [ and id_grup = ] + ALLTRIM(STR(This.oGrupUtil.id_grup)) + ENDIF + + lcSelect = [select * from vutilizatori_rol_intern ] + lcWhere + lcOrdine + lcCursor = [crsUtilizatori] + lnSucces = goExecutor.oExecute(lcSelect,lcCursor) + If lnSucces < 0 + aMessagebox(goExecutor.cEroare,0+64,"Eroare") + Exit + Endif + If Reccount('crsUtilizatori')>0 + Thisform.AlwaysOnTop = .F. + Select crsUtilizatori + Report Form &lcRaport To Printer Prompt Preview + USE IN (SELECT('crsUtilizatori')) + Thisform.AlwaysOnTop = .F. + Else + aMessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie") + Endif + Return .F. + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_utilizatori AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_nom_calc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cPartener.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cPartener.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cContact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cContact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 414 + Name = "frm_utilizatori" + Width = 598 + _SHAPE1.Height = 29 + _SHAPE1.Left = -2 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 615 + _SHAPE2.Height = 29 + _SHAPE2.Left = 446 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 152 + LB_TITLU_ALB_B121.Caption = "Utilizatorii companiei" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 567 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 326, ; + Left = 16, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsUtil", ; + Top = 80, ; + Width = 572, ; + Column1.ColumnOrder = 4, ; + Column1.ControlSource = "partener", ; + Column1.Name = "cPartener", ; + Column1.Width = 113, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "denumire_grup", ; + Column2.Name = "cDenumire_grup", ; + Column2.Width = 94, ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "inactiv", ; + Column3.CurrentControl = "Check1", ; + Column3.Name = "cInactiv", ; + Column3.Sparse = .F., ; + Column3.Width = 43, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "utilizator", ; + Column4.Name = "cUtilizator", ; + Column4.Width = 126, ; + Column5.ColumnOrder = 1, ; + Column5.ControlSource = "sucursala", ; + Column5.Name = "cSucursala", ; + Column5.Width = 112, ; + Column6.ColumnOrder = 5, ; + Column6.ControlSource = "contact", ; + Column6.Name = "cContact", ; + Column6.Width = 108 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.cContact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contact", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cContact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cDenumire_grup.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Grup", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cDenumire_grup.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cInactiv.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 17, ; + Name = "Check1", ; + Top = 51, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdrow1.cInactiv.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cPartener.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cPartener.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cUtilizator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Utilizator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cUtilizator.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 448, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 506, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 476, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 537, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 318, ; + Name = "CMD_CAUTA1", ; + Top = 39 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ; + Left = 18, ; + Name = "lb_nom_calc", ; + Top = 39, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Utilizator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poutil.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._grdrow1) + poutil.ca_baza1.cfiltru=lcFiltru + poutil.ca_baza1.afisare() + restore_grid_tag(thisform._grdrow1) + IF RECCOUNT('crsUtil')>0 + thisform._grdrow1.SetFocus() + ELSE + thisform.Lb_nom_calc.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + DO utilizatorintern_nou IN onomenclatoare.prg + IF gnButon = 1 + THISFORM.actualizeaza_grid1() + ENDI + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],['']) + + If !Empty(lcNume) + lcFiltru=[utilizator like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_excel + lcTabel = This._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Do export_excel_grid With This._grdrow1, "sucursala,utilizator" + Else + amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica + LOCAL loRec, lnIdUtil + + If Reccount('crsUtil')>0 + Select crsUtil + lnIdUtil = id_util + Scatter Name loRec + + loRec = utilizatorintern_modifica(lnIdUtil) + + IF !ISNULL(loRec) + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + SELECT crsUtil + LOCATE FOR id_util = lorec.id_util + IF !FOUND() + GO top + ENDIF + thisform._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsUtil')>0 + Select crsUtil + Scatter Name lorec + Do STERGE_INREGISTRARE With "utilizatori",lorec.id_util + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + + ENDPROC + + PROCEDURE Init + DODEFAULT() + Thisform._grdrow1.SetAll("DynamicBackColor","IIF(inactiv=1,RGB(128,128,128),RGB(255,255,255))","Column") + Thisform._grdrow1.cPartener.DynamicBackColor = [IIF(inactiv = 1 or part_inactiv = 1,RGB(128,128,128),RGB(255,255,255))] + Thisform._grdrow1.cUtilizator.DynamicBackColor = [IIF(inactiv = 1 or util_inactiv = 1,RGB(128,128,128),RGB(255,255,255))] + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_utilizatori_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_contact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_utilizatori1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_sucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_grup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_utilizator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_partener" UniqueID="" Timestamp="" /> + + * + *m: do_alege_grup + *m: do_alege_sucursala + *m: do_alege_utilizator + *m: do_aleg_persoana + *m: schimb_tip_utilizator + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 221 + Name = "frm_utilizatori_nou" + nid = .F. + orec = .F. + Width = 351 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 287 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 65 + LB_TITLU_ALB_B121.Caption = "Utilizator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 9 + BUT_TERMIN1.Left = 320 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + BUT_RENUNT1.Left = 291 + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 7 + BUT_RENUNT1.Top = 1 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 19, ; + Name = "_checkbox1", ; + TabIndex = 8, ; + TabStop = .F., ; + Top = 198 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cb_grup' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Cb_grup", ; + TabIndex = 4, ; + Top = 129, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.denumire_grup", ; + _cbbase1.Left = 138, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vgrupuri_utilizatori.denumire_grup", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _lbbase1.Caption = "Grup", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Cb_sucursala", ; + TabIndex = 5, ; + Top = 157, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.sucursala", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 138, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vnom_sucursale.sucursala", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 184, ; + _lbbase1.Caption = "Sucursala", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_utilizator' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Cb_utilizator", ; + TabIndex = 1, ; + Top = 45, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.utilizator", ; + _cbbase1.Left = 137, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vutilizatori.utilizator", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _lbbase1.Caption = "Utilizator", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_contact' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Clb_contact", ; + TabIndex = 3, ; + ToolTipText = "Pentru modificare, faceti dublu-click!", ; + Top = 101, ; + Width = 326, ; + TEXT_SIMPLU1.ControlSource = "porec.contact", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 138, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 183, ; + LB_SIMPLU1.Caption = "Persoana contact", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_partener' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Clb_partener", ; + TabIndex = 2, ; + ToolTipText = "Pentru modificare, faceti dublu-click!", ; + Top = 73, ; + Width = 326, ; + Text_simplu1.ControlSource = "porec.partener", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 138, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 183, ; + Lb_simplu1.Caption = "Partener", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_utilizatori1' AS cus_odata_utilizatori WITH ; + Height = 18, ; + Left = 312, ; + Name = "Cus_odata_utilizatori1", ; + Top = 24, ; + Width = 56 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_grup + ENDPROC + + PROCEDURE do_alege_sucursala + ENDPROC + + PROCEDURE do_alege_utilizator + ENDPROC + + PROCEDURE do_aleg_persoana + LPARAMETERS nTipPersoana + && 1 pentru partener, 2 pentru persoana contact + IF nTipPersoana = 1 + LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc + lcselect = [select * FROM ] + gcs + [.vnom_parteneri] + lcfiltru = [1=2] + lcschema = [] + lcorder = [denumire] + lccoloane = [denumire] + lcTitlu = [Alegeti partenerul] + lcTitluColoane = [Denumire] + lcFiltruOriginal = [inactiv=0] + lcNumeProc = "" + lnPornire = 1 + llDesktop = .F. + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop) + IF buton=2 + RETURN + ENDIF + + porec.id_partener = locauta.id_part + porec.partener = locauta.denumire + THISFORM.clb_partener.teXT_SIMPLU1.REFRESH + ENDIF + IF nTipPersoana = 2 + + LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc + lcselect = [select * FROM ] + gcs + [.vpers_contact] + lcfiltru = [1=2] + lcschema = [] + lcorder = [denumire] + lccoloane = [denumire] + lcTitlu = [Alegeti persoana de contact] + lcTitluColoane = [Nume, Prenume] + lcFiltruOriginal = [inactiv=0] + lcNumeProc = "" + lnPornire = 6 + llDesktop = .F. + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop) + IF buton=2 + RETURN + ENDIF + + porec.id_contact = locauta.id_pers + porec.contact = ALLTRIM(locauta.denumire) + THISFORM.clb_contact.teXT_SIMPLU1.REFRESH + ENDIF + + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + DO CASE + CASE EMPTY(poRec.partener) + AMESSAGEBOX('Completati partenerul!',0+48,'Atentie') + THIS.clb_partener.text_simplu1.SETFOCUS() + PLRETURN = .F. + + OTHERWISE + PLRETURN=THIS.cus_odata_utilizatori1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_utilizatori1.cactiune = tcActiune + + *!* modificare v 2.0.11 + If Reccount('vnom_sucursale') = 1 + Select vnom_sucursale + If e_mama = 0 + poRec.id_sucursala = Null + poRec.sucursala = [] + Thisform.RemoveObject('cb_sucursala') + Endif + Else + If !Isnull(gnIdSucursala) + Select vnom_sucursale + Locate For id_sucursala = gnIdSucursala + If Found() + poRec.id_sucursala = id_sucursala + poRec.sucursala = Alltrim(sucursala) + Thisform.RemoveObject('cb_sucursala') + Else + Go Top + Endif + Endif + Endif + *!* modificare v 2.0.11 ^ + + ENDPROC + + PROCEDURE schimb_tip_utilizator + LPARAMETERS tnTip + + THISFORM.do_aleg_persoana(tnTip) && 1 pentru partener, 2 pentru persoana contact + + ENDPROC + + PROCEDURE Cb_grup._cbbase1.Valid + porec.id_grup = vgrupuri_utilizatori.id_grup + + ENDPROC + + PROCEDURE Cb_sucursala._cbbase1.Valid + porec.id_sucursala = vnom_sucursale.id_sucursala + + ENDPROC + + PROCEDURE Cb_utilizator._cbbase1.Valid + porec.id_util = vutilizatori.id_util + + ENDPROC + + PROCEDURE Clb_contact.TEXT_SIMPLU1.DblClick + thisform.schimb_tip_utilizator(2) + + + ENDPROC + + PROCEDURE Clb_contact.TEXT_SIMPLU1.GotFocus + IF EMPTY(poRec.contact) + thisform.schimb_tip_utilizator(2) + ENDIF + + ENDPROC + + PROCEDURE Clb_partener.Text_simplu1.DblClick + thisform.schimb_tip_utilizator(1) + ENDPROC + + PROCEDURE Clb_partener.Text_simplu1.GotFocus + IF EMPTY(poRec.partener) + thisform.schimb_tip_utilizator(1) + ENDIF + + ENDPROC + +ENDDEFINE + +DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx" + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw5" UniqueID="" Timestamp="" /> + + * + ActivePage = 1 + ErasePage = .T. + Height = 422 + Name = "pg_meniu_princ" + PageCount = 4 + Width = 456 + Page1.Caption = "Organizarea companiei" + Page1.Name = "Page1" + Page1.PageOrder = 1 + Page2.Caption = "Liste nomenclatoare" + Page2.Name = "Page2" + Page2.PageOrder = 3 + Page3.BackColor = 255,255,255 + Page3.Caption = "Entitãþi" + Page3.FontCharSet = 238 + Page3.FontSize = 10 + Page3.Name = "Page3" + Page3.PageOrder = 2 + Page4.BackColor = 255,255,255 + Page4.Caption = "Utilitãþi" + Page4.FontCharSet = 238 + Page4.FontSize = 10 + Page4.Name = "Page4" + Page4.PageOrder = 4 + * + + ADD OBJECT 'Page1.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 20, ; + Label_item1.Caption = "Datele firmei", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw11' AS cw WITH ; + Left = 5, ; + Name = "Cw11", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 5, ; + Top = 116, ; + Label_item1.Caption = "Calculatoare", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw12' AS cw WITH ; + Left = 5, ; + Name = "Cw12", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 6, ; + Top = 140, ; + Label_item1.Caption = "Utilizatori", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw13' AS cw WITH ; + Left = 5, ; + Name = "Cw13", ; + nid_cw = 7, ; + ntip = 0, ; + TabIndex = 7, ; + Top = 164, ; + Label_item1.Caption = "Rapoarte", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 2, ; + ntip = 0, ; + TabIndex = 2, ; + Top = 44, ; + Label_item1.Caption = "Sucursale/puncte de lucru", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 3, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 68, ; + Label_item1.Caption = "Departamente/ Secþii", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 92, ; + Label_item1.Caption = "Gestiuni", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Cw1' AS cw WITH ; + Left = 6, ; + Name = "Cw1", ; + nid_cw = 8, ; + ntip = 2, ; + TabIndex = 7, ; + Top = 187, ; + Label_item1.Caption = "Categorii de entitãþi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw2' AS cw WITH ; + Left = 6, ; + Name = "Cw2", ; + nid_cw = 3, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 67, ; + Label_item1.Caption = "Tipuri de documente", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw3' AS cw WITH ; + Left = 6, ; + Name = "Cw3", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 115, ; + Label_item1.Caption = "Judeþe", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw4' AS cw WITH ; + Left = 6, ; + Name = "Cw4", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 43, ; + Label_item1.Caption = "Lucrãri", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw5' AS cw WITH ; + Left = 6, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 5, ; + Top = 139, ; + Label_item1.Caption = "Localitãþi", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw6' AS cw WITH ; + Left = 6, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 2, ; + TabIndex = 6, ; + Top = 163, ; + Label_item1.Caption = "Valute", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw7' AS cw WITH ; + Left = 6, ; + Name = "Cw7", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 91, ; + Label_item1.Caption = "Medii de transmisie", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw9' AS cw WITH ; + Left = 6, ; + Name = "Cw9", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 19, ; + Width = 180, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Tipuri de venituri ºi cheltuieli", ; + Label_item1.Height = 18, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 162, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page3.Cw1' AS cw WITH ; + Left = 7, ; + linactiv = .T., ; + Name = "Cw1", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 104, ; + Visible = .F., ; + Label_item1.Caption = "Angajaþi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw2' AS cw WITH ; + Left = 7, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 42, ; + Label_item1.Caption = "Responsabili", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw4' AS cw WITH ; + Height = 38, ; + Left = 7, ; + Name = "Cw4", ; + nid_cw = 3, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 64, ; + Label_item1.Caption = "Asociere entitãþi-secþii/gestiuni", ; + Label_item1.Height = 34, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 125, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw9' AS cw WITH ; + Left = 7, ; + Name = "Cw9", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 20, ; + Label_item1.Caption = "Entitãþi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 6, ; + Top = 148, ; + LABEL_ITEM1.Caption = "Configurare seturi", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw10' AS cw WITH ; + Left = 6, ; + Name = "Cw10", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 100, ; + Label_item1.Caption = "Opþiuni", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw2' AS cw WITH ; + Left = 6, ; + Name = "Cw2", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 14, ; + Label_item1.Caption = "Deschidere de lunã", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw3' AS cw WITH ; + Enabled = .F., ; + Left = 6, ; + Name = "Cw3", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 76, ; + Label_item1.Caption = "Blocare de lunã", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw4' AS cw WITH ; + Height = 34, ; + Left = 6, ; + Name = "Cw4", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 38, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Vizualizare istoric (re)deschideri luna", ; + Label_item1.Height = 50, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 0, ; + Label_item1.Width = 172, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 5, ; + ntip = 2, ; + Top = 124, ; + LABEL_ITEM1.Caption = "Categorii seturi", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + PROCEDURE Page1.Cw1.do_actiune + DO viz_firme + ENDPROC + + PROCEDURE Page1.Cw11.do_actiune + DO calculatoare.mpr + ENDPROC + + PROCEDURE Page1.Cw12.do_actiune + DO utilizatori.mpr + ENDPROC + + PROCEDURE Page1.Cw13.do_actiune + DO rapoarte.mpr + ENDPROC + + PROCEDURE Page1.Cw5.do_actiune + DO viz_sucursale IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page1.Cw6.do_actiune + DO viz_sectii IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page1.Cw8.do_actiune + DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw1.do_actiune + Do viz_categorii_entitati In oproceduri_roadef.prg + + ENDPROC + + PROCEDURE Page2.Cw2.do_actiune + DO VIZ_FDOC IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw3.do_actiune + DO VIZ_JUDETE IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw4.do_actiune + DO viz_lucrari IN onomenclatoare.prg + ENDPROC + + PROCEDURE Page2.Cw5.do_actiune + DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw6.do_actiune + DO viz_valute IN onomenclatoare.prg + ENDPROC + + PROCEDURE Page2.Cw7.do_actiune + DO viz_medii_transmisie IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw9.do_actiune + DO viz_venchel IN onomenclatoare.prg + ENDPROC + + PROCEDURE Page3.Cw1.do_actiune + DO viz_pers IN osalarii_comun.prg + ENDPROC + + PROCEDURE Page3.Cw2.Click + DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page3.Cw4.do_actiune + Local loCauta, lcSelect, lcTitlu, lcFiltru, lcFiltruOriginal, lcSchema, lcOrder, lcNumeProc, lcTitluColoane + store Null To loCauta + + lcSelect = [select denumire, id_tip, tip from tipuri_asocieri] + lcFiltru = [2=2] + lcSchema = [] + lcOrder = [id_tip] + lccoloane = [denumire, id_tip] + lcFiltruOriginal = [] + + + lcTitlu = "Alegeti tipul de asociere" + lcNumeProc = [] + llToateIreg = .F. + + lcTitluColoane = [Tip asociere,Id] + loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) + + Do CASE + Case Upper(Alltrim(loCauta.tip)) = 'SECTIE' + DO asociere_parteneri_sectii WITH loCauta.id_tip IN oproceduri_roadef.prg + Case Upper(Alltrim(loCauta.tip)) = 'GESTIUNE' + DO asociere_parteneri_gestiuni WITH loCauta.id_tip IN oproceduri_roadef.prg + EndCase + ENDPROC + + PROCEDURE Page3.Cw9.do_actiune + DO entitati.mpr + + ENDPROC + + PROCEDURE Page4.Cw1.do_actiune + Local lcSql, lnSucces + If !glLunaInchisa + + lcSql = [select a.*, 1 as cu_tva from Vact a where 1 = 2] + lcCursor = [actactan] + + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + + If lnSucces >0 + + Select actactan + Scatter Name oAct + + Do update_coresp_tip_part + Do update_coresp_tip_cont + + + Do update_jtva_coloane With [],[],1 + ooo = Createobject('frm_configurare') + ooo.Show(1) + + If Used('coresp_tip_part') + Use In coresp_tip_part + Endif + If Used('coresp_tip_cont') + Use In coresp_tip_cont + Endif + If Used('actactan') + Use In actactan + Endif + If Used('jtva_coloane') + Use In jtva_coloane + Endif + Endif + Else + amessagebox("Aceasta luna este blocata si nu puteti face introduceri!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE Page4.Cw10.do_actiune + DO optiuni.mpr + ENDPROC + + PROCEDURE Page4.Cw2.do_actiune + DO deschidluna WITH .T. IN oredeschid.prg + ENDPROC + + PROCEDURE Page4.Cw3.do_actiune + DO VIZ_LUNI_BLOCATE IN oproceduri_roadef.prg + ENDPROC + + PROCEDURE Page4.Cw4.do_actiune + DO viz_log_redeschid IN oproceduri_roadef.prg + ENDPROC + + PROCEDURE Page4.Cw5.do_actiune + LOCAL lcForm + lcform = CREATEOBJECT("frm_categorii") + lcform.show(1) + ENDPROC + +ENDDEFINE diff --git a/Clase/oparteneri.VCT b/Clase/oparteneri.VCT new file mode 100644 index 0000000..1fce328 Binary files /dev/null and b/Clase/oparteneri.VCT differ diff --git a/Clase/oparteneri.vcx b/Clase/oparteneri.vcx new file mode 100644 index 0000000..50f7a2e Binary files /dev/null and b/Clase/oparteneri.vcx differ diff --git a/Clase/oteste.vc2 b/Clase/oteste.vc2 new file mode 100644 index 0000000..b855c32 --- /dev/null +++ b/Clase/oteste.vc2 @@ -0,0 +1,1693 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oteste.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS afisdebsicred AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_buton1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_buton2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_nract2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_pereche" UniqueID="" Timestamp="" /> + + * + *p: col4 + *p: npereche + *p: sql_act + *p: sql_ireg + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 416 + Name = "afisdebsicred" + sql_act = '' + sql_ireg = '' + Width = 749 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 750 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 715 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 34 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Pereche inregistrari" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Left = 719 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + * + + ADD OBJECT '_grid1' AS _grid WITH ; + ColumnCount = 10, ; + DeleteMark = .F., ; + Height = 319, ; + HighlightStyle = 1, ; + Left = 12, ; + Name = "_grid1", ; + Panel = 1, ; + RecordSource = "v_actcd", ; + Top = 57, ; + Width = 363, ; + ZOrderSet = 5, ; + Column1.ControlSource = "dataact", ; + Column1.Name = "Column1", ; + Column1.Width = 64, ; + Column2.ControlSource = "nract", ; + Column2.Name = "Column2", ; + Column2.Width = 71, ; + Column3.ControlSource = "suma", ; + Column3.InputMask = "999 999 999 999.99", ; + Column3.Name = "Column3", ; + Column3.Width = 81, ; + Column4.BackColor = 252,253,200, ; + Column4.ControlSource = "", ; + Column4.Name = "Column4", ; + Column4.Width = 112, ; + Column5.ControlSource = "explicatia", ; + Column5.Name = "Column5", ; + Column5.Width = 96, ; + Column6.ControlSource = "scc", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "scd", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "", ; + Column8.Name = "Column8", ; + Column9.ControlSource = "dataireg", ; + Column9.Name = "Column9", ; + Column10.ControlSource = "fdoc", ; + Column10.Name = "Column10" + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT '_grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Document pereche", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column4.Text1' AS textbox WITH ; + BackColor = 252,253,200, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont cred", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column7.Header1' AS header WITH ; + Caption = "Cont deb", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column8.Header1' AS header WITH ; + Caption = "Explicatia 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data ireg", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2' AS _grid WITH ; + ColumnCount = 8, ; + DeleteMark = .F., ; + Height = 319, ; + HighlightStyle = 1, ; + Left = 378, ; + Name = "_grid2", ; + Panel = 1, ; + RecordSource = "v_iregcd", ; + Top = 57, ; + Width = 356, ; + ZOrderSet = 5, ; + Column1.ControlSource = "dataact", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "nract", ; + Column2.Name = "Column2", ; + Column2.Width = 69, ; + Column3.ControlSource = "suma", ; + Column3.InputMask = "999 999 999 999.99", ; + Column3.Name = "Column3", ; + Column3.Width = 92, ; + Column4.ControlSource = "achitat", ; + Column4.InputMask = "999 999 999 999.99", ; + Column4.Name = "Column4", ; + Column4.Width = 91, ; + Column5.ControlSource = "fdoc", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "dataireg", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "explicatia", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "acont", ; + Column8.Name = "Column8" + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT '_grid2.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achitat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data ireg", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Height = 372, ; + Left = 4, ; + Name = "_shape3", ; + Style = 3, ; + Top = 36, ; + Width = 741, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. document", ; + Left = 99, ; + Name = "ck_nract", ; + Top = 40 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_nract2' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. document", ; + Left = 456, ; + Name = "ck_nract2", ; + Top = 40 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_pereche' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = pereche, ; + Caption = "Pereche", ; + Left = 240, ; + Name = "Ck_pereche", ; + Top = 40 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_buton1' AS cmd_buton WITH ; + caction = do_listare, ; + Caption = "\ + + ADD OBJECT 'Cmd_buton2' AS cmd_buton WITH ; + caction = do_excel, ; + Caption = "\ + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Caption = "\ + + ADD OBJECT 'Lb_1' AS lb_titlu_alb_b12 WITH ; + Left = 23, ; + Name = "Lb_1", ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_2' AS lb_titlu_alb_b12 WITH ; + Left = 390, ; + Name = "Lb_2", ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Destroy + RELEASE pnPereche1,pnPereche2,pctitlu + + ENDPROC + + PROCEDURE do_cauta + STORE "" TO t1,t2,T3 + lcAct = this._grid1.RecordSource + lcIreg = this._grid2.RecordSource + + + IF thisform.ck_nract.Value=1 + T1 = T1 + thisform.ck_nract.filtru_vfp + ENDIF + if this.ck_pereche.Value=1 + lcControl = this._grid1.column4.ControlSource + val1 = thisform.ck_pereche.cvaloare1 + val2 = thisform.ck_pereche.cvaloare2 + T1=t1+" and (" + lcControl + ">=" + val1 + ") and (" + lcCOntrol +"<=" + val2 + ")" + endif + IF thisform.ck_nract2.Value=1 + T2 = T2 + thisform.ck_nract2.filtru_vfp + ENDIF + + SELECT (lcAct) + IF !EMPTY(t1) + t1=SUBSTR(t1,5) + ELSE + t1=".t." + ENDIF + + SELECT (lcAct) + SET FILTER TO &t1 + *!* SUM suma TO totsumdeb + *!* GO BOTTOM + + + SELECT (lcIreg) + IF !EMPTY(t2) + t2=SUBSTR(t2,5) + ELSE + t2=".t." + ENDIF + SELECT (lcIreg) + SET FILTER TO &t2 + *!* SUM suma TO totsumcred + + *!* GO BOTTOM + thisform.Refresh + ENDPROC + + PROCEDURE do_excel + PRIVATE pctitlu + pctitlu = thisform.lb_2.Caption + lcIreg = this._grid2.RecordSource + SELECT (lcIreg) + thisform.AlwaysOnTop=.f. + REPORT FORM ist_deb_cred TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop=.t. + + ENDPROC + + PROCEDURE do_executa + PRIVATE pcPereche + SELECT v_actcd + SCATTER NAME pcPereche + + lcPereche = thisform._GRID1.coluMN4.ControlSource + + opereche = CREATEOBJECT('cautper') + + + SELECT v_iregcd + LOCATE FOR nract = pcPereche.&lcPereche + opereche.pereche = lcPereche + + *!* opereche.lb._cbbase1.controlsource = 'pcPereche.&lcPereche' + + opereche.show(1) + + IF buton = 1 + thisform.LockScreen = .T. + save_grid(this._grid1) + SAVE_grid(this._grid2) + USE IN v_actcd + lcSql = this.sql_act + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + + USE IN v_iregcd + lcSql = this.sql_ireg + lcCursor = [v_iregcd] &&Ireg + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + restore_grid(this._grid1) + restore_grid(this._grid2) + thisform.LockScreen = .F. + ENDIF + RELEASE opereche + ENDPROC + + PROCEDURE do_listare + PRIVATE pctitlu + pctitlu = thisform.lb_1.Caption + lcAct = this._grid1.RecordSource + SELECT (lcAct) + thisform.AlwaysOnTop=.f. + + REPORT FORM ist_deb_cred TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop=.t. + + ENDPROC + + PROCEDURE ck_nract.Click + thisform.do_cauta + ENDPROC + + PROCEDURE ck_nract2.Click + thisform.do_cauta + ENDPROC + + PROCEDURE Ck_pereche.Click + thisform.do_cauta + ENDPROC + + PROCEDURE _grid1.AfterRowColChange + LPARAMETERS nColIndex + thisform._grid1.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column') + thisform._grid1.column4.BackColor =RGB(252,253,200) + + lcAct = this.RecordSource + lcIreg = thisform._grid2.RecordSource + thisform.npereche = EVALUATE(this.column4.ControlSource) + SELECT (lcIreg) + thisform._grid2.SetAll('DynamicBackColor','iif(nract=thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column') + SELECT (lcAct) + thisform.Refresh + ENDPROC + + PROCEDURE _grid2.AfterRowColChange + LPARAMETERS nColIndex + thisform._grid2.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column') + + lcIreg = this.RecordSource + lcAct = thisform._grid1.RecordSource + *!* this.SetAll("DynamicBackColor","IIF(thisform.rec=RECNO(), RGB(191,223,255) , RGB(255,255,255))", "Column") + thisform.npereche = EVALUATE(this.column2.ControlSource) + thisform.col4=thisform._grid1.column4.ControlSource + SELECT (lcAct) + thisform._grid1.SetAll('DynamicBackColor','iif(EVALUATE(thisform.col4) =thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column') + SELECT (lcIreg) + thisform.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS cautper AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: pereche + *p: valoare + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 89 + Name = "cautper" + pereche = + valoare = 0 + Width = 352 + _shape1.BorderStyle = 2 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 351 + _shape2.Height = 29 + _shape2.Left = 291 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Pereche" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 4 + BUT_TERMIN1.Left = 321 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 291, ; + Name = "But_renunt1", ; + TabIndex = 3, ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb' AS cb_tx_simplu WITH ; + Left = 32, ; + Name = "lb", ; + TabIndex = 1, ; + Top = 48, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_iregcd.nract", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Pereche", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + + lcCod = pcPereche.cod + update_actper(lcCod) + + lnSucces = sqlsetprop(gnhandle,"Transactions",2) + + SELECT actactan + IF lnSucces > 0 + lnSucces = oscrie_in_fisiere(2,.t.) + ENDIF + + IF lnSucces >0 + lcSql = [delete from act_temp] + lnSucces = SQLEXEC(gnHandle,lcSql) + ENDIF + + IF lnSucces>0 + SELECT actactan + LOCATE FOR id_act = pcPereche.id_act + IF FOUND() + GATHER NAME pcPereche + REPLACE id_util WITH gnidutil + ENDIF + lnSucces = oscrie_in_fisiere(0,.t.) + ENDIF + + IF lnSucces < 0 + SQLROLLBACK(gnhandle) + llReturn = .f. + ELSE + SQLCOMMIT(gnhandle) + llReturn = .t. + ENDIF + + lnSucces = sqlsetprop(gnhandle,"Transactions",1) + IF lnSucces < 0 + MESSAGEBOX('Programul a trecut pe tranzactie manuala. Iesiti si intrati din nou!',0,'Atentie!') + ENDIF + + RETURN llReturn + + ENDPROC + + PROCEDURE lb._cbbase1.LostFocus + lcPereche = thisform.pereche + pcPereche.&lcPereche = v_iregcd.nract + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_verificare_globala AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3._editbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_refacere1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_diferente" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 450 + Name = "frm_verificare_globala" + Width = 800 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 800 + _shape2.Height = 29 + _shape2.Left = 697 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 103 + Lb_titlu_alb_b121.Caption = "VERIFICARE GLOBALA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 768 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 735, ; + Name = "But_listare1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_refacere1' AS but_reface WITH ; + Left = 702, ; + Name = "But_refacere1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ck_diferente' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Doar cu diferente", ; + Left = 24, ; + Name = "ck_diferente", ; + TabIndex = 1, ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grid1' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 4, ; + DeleteMark = .F., ; + GridLines = 1, ; + HeaderHeight = 20, ; + Height = 372, ; + Left = 14, ; + Name = "grid1", ; + Panel = 1, ; + RecordSource = "crsverificari", ; + RowHeight = 55, ; + ScrollBars = 2, ; + TabIndex = 2, ; + Top = 60, ; + Width = 778, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "explicatia", ; + Column1.FontBold = .T., ; + Column1.FontName = "Arial Narrow", ; + Column1.FontSize = 10, ; + Column1.Format = "!", ; + Column1.Name = "Column2", ; + Column1.ReadOnly = .T., ; + Column1.Width = 213, ; + Column2.Alignment = 2, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "", ; + Column2.DynamicCurrentControl = "iif(empty(mesaj),'_image1','_image2')", ; + Column2.Name = "Column1", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 46, ; + Column3.ControlSource = "mesaj", ; + Column3.DynamicForeColor = "IIF(selectat=1,RGB(255,0,0),RGB(0,0,0))", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 439, ; + Column4.ControlSource = "selectat", ; + Column4.Name = "Column4", ; + Column4.Sparse = .F., ; + Column4.Width = 46 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid1.Column1._image1' AS _image WITH ; + Height = 32, ; + Left = 28, ; + Name = "_image1", ; + Picture = ..\..\comun\graphics\checkmrk.ico, ; + Top = 23, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1._image2' AS _image WITH ; + Height = 32, ; + Left = 23, ; + Name = "_image2", ; + Picture = ..\..\comun\graphics\pericol.ico, ; + Top = 47, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rezultat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column3._editbox1' AS _editbox WITH ; + FontName = "Arial Narrow", ; + Left = 48, ; + Name = "_editbox1", ; + Top = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mesaj", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column4._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 7, ; + Name = "_checkbox1", ; + Top = 35 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Selectat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + PROCEDURE do_listare + If Reccount('crsverificari')>0 + Thisform.AlwaysOnTop = .F. + raport_mesaje(Thisform.lb_titlu_alb_b121.Caption+" "+Padl(Alltrim(Str(gnLuna)),2,'0')+"/"+Alltrim(Str(gnAn))) + Thisform.AlwaysOnTop = .T. + Else + Messagebox("Nu sunt inregistrari de listat!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_reface + If Used('crsrefaceri') + Use In crsrefaceri + Endif + Select sursa,Cont,tip From crsverificari Where selectat=1 Into Cursor crsrefaceri + + If Reccount('crsrefaceri')>0 + *!* orp=Create('parola') + *!* orp.Show(1) + *!* If buton # 3 + *!* RETURN + *!* ENDIF + Local lcsursa,lccont,lctip + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.AlwaysOnTop=.F. + save_grid_tag(Thisform.grid1) + + + Select crsrefaceri + Scan + lcsursa=Upper(Alltrim(sursa)) + lccont=Alltrim(Cont) + * lctip=tip + lctip = '1' + Do refacere With lcsursa,lctip,lccont In orefaceri.prg + Select crsrefaceri + Endscan + + If Used('crsverificari') + Use In crsverificari + Endif + Create Cursor crsverificari (sursa c(20),Cont c(20),tip c(1),mesaj c(200),selectat N(1),explicatia c(50),luna N(2),an N(4)) + Do VerificareLunaDeschisa In overificari.prg + Select crsverificari + Go Top + restore_grid_tag(Thisform.grid1) + Messagebox("Refacerea s-a incheiat!",0+64,"Info refacere") + Thisform.AlwaysOnTop=.T. + Thisform.LockScreen = .F. + Thisform.MousePointer = 0 + Endif + + Use In crsrefaceri + Thisform.ck_diferente.Value=0 + ENDPROC + + PROCEDURE do_sterge + Do CURATARE + Messagebox('Refacerea s-a incheiat!',0+64,"Info refacere") + + ENDPROC + + PROCEDURE Init + DoDefault() + + Select crsverificari + Go Top + + If m.nivel > 0 + Thisform.but_refacere1.Visible=.F. + Thisform._shape2.Width=Thisform._shape2.Width-Thisform.but_refacere1.Width + Thisform._shape2.Left=Thisform._shape2.Left+Thisform.but_refacere1.Width + Endif + ENDPROC + + PROCEDURE ck_diferente.Click + If This.Value=1 + Select crsverificari + Set Filter To !Empty(mesaj) + Thisform.Refresh + Else + Select crsverificari + Set Filter To + Thisform.Refresh + Endif + + ENDPROC + + PROCEDURE grid1.Column2.Text1.DblClick + lcExplicatia=Upper(Alltrim(This.Value)) + Thisform.AlwaysOnTop=.F. + Do Case + Case lcExplicatia='BALANTA' + Do viz_balanta + Case lcExplicatia='REGISTRUL DE VANZARI' + Do viz_regvanz + Case lcExplicatia='REGISTRUL DE CUMPARARI' + Do viz_regcump + Case Substr(lcExplicatia,1,17)='BALANTA ANALITICA' + Do lans_balanta_parteneri + Case Substr(lcExplicatia,1,12)='INREGISTRARI' + Do lans_ireg_parteneri + Endcase + Thisform.AlwaysOnTop=.T. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_verificare_globala_per AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3._editbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column6._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_refacere1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_explicatia" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + *p: nfinal + *p: ninit + * + + * + DoCreate = .T. + Height = 450 + Name = "frm_verificare_globala_per" + nfinal = 0 + ninit = 0 + Width = 800 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 828 + _shape2.Height = 29 + _shape2.Left = 696 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 105 + Lb_titlu_alb_b121.Caption = "VERIFICARE GLOBALA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 768 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 736, ; + Name = "But_listare1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_refacere1' AS but_reface WITH ; + Left = 703, ; + Name = "But_refacere1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_explicatia' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = explicatia, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Left = 24, ; + Name = "Ck_explicatia", ; + TabIndex = 1, ; + Top = 41 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 108, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 37 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid1' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 6, ; + DeleteMark = .F., ; + GridLines = 1, ; + HeaderHeight = 20, ; + Height = 360, ; + Left = 13, ; + Name = "grid1", ; + Panel = 1, ; + RecordSource = "crsverificari", ; + RowHeight = 41, ; + ScrollBars = 2, ; + TabIndex = 3, ; + Top = 72, ; + Width = 779, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "explicatia", ; + Column1.FontBold = .T., ; + Column1.FontName = "Arial Narrow", ; + Column1.FontSize = 10, ; + Column1.Format = "!", ; + Column1.Name = "Column2", ; + Column1.ReadOnly = .T., ; + Column1.Width = 213, ; + Column2.Alignment = 2, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "", ; + Column2.DynamicCurrentControl = "iif(empty(mesaj),'_image1','_image2')", ; + Column2.Name = "Column1", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 46, ; + Column3.ControlSource = "mesaj", ; + Column3.DynamicForeColor = "IIF(selectat=1,RGB(255,0,0),RGB(0,0,0))", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 392, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "an", ; + Column4.Name = "Column5", ; + Column4.Width = 36, ; + Column5.ColumnOrder = 4, ; + Column5.ControlSource = "luna", ; + Column5.Name = "Column4", ; + Column5.Width = 33, ; + Column6.ControlSource = "selectat", ; + Column6.Name = "Column6", ; + Column6.Sparse = .F., ; + Column6.Width = 47 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid1.Column1._image1' AS _image WITH ; + Height = 32, ; + Left = 28, ; + Name = "_image1", ; + Picture = ..\..\comun\graphics\checkmrk.ico, ; + Top = 23, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1._image2' AS _image WITH ; + Height = 32, ; + Left = 23, ; + Name = "_image2", ; + Picture = ..\..\comun\graphics\pericol.ico, ; + Top = 47, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rezultat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column3._editbox1' AS _editbox WITH ; + FontName = "Arial Narrow", ; + Left = 48, ; + Name = "_editbox1", ; + Top = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mesaj", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column6._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 14, ; + Name = "_checkbox1", ; + Top = 35 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grid1.Column6.Header1' AS header WITH ; + Caption = "Selectat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + PROCEDURE do_cauta + Local lcFiltru + Select crsverificari + Replace selectat With 0 All + lcFiltru=[!EMPTY(mesaj)] + If Thisform.ck_explicatia.Value=1 + lcFiltru=lcFiltru+Thisform.ck_explicatia.filtru_vfp + Endif + Select crsverificari + Set Filter To &lcFiltru + Replace selectat With 1 For &lcFiltru + Go Top + Thisform.Refresh + + ENDPROC + + PROCEDURE do_listare + If Reccount('crsverificari')>0 + Thisform.AlwaysOnTop = .F. + raport_mesaje(thisform.lb_titlu_alb_b121.Caption) + Thisform.AlwaysOnTop = .T. + Else + Messagebox("Nu sunt inregistrari de listat!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_reface + If Used('crsrefaceri') + Use In crsrefaceri + Endif + Select sursa,Cont,tip,luna,an From crsverificari Where selectat=1 Into Cursor crsrefaceri + + If Reccount('crsrefaceri')>0 + Local lcsursa,lccont,lctip,lnAn,lnLuna + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.AlwaysOnTop=.F. + save_grid_tag(Thisform.grid1) + + Select crsrefaceri + Scan + lcsursa=Upper(Alltrim(sursa)) + lccont=Alltrim(Cont) + lctip = '1' + lnAn=an + lnLuna=luna + Do refacere With lcsursa,lctip,lccont,lnLuna,lnAn In orefaceri.prg + Select crsrefaceri + Endscan + + If Used('crsverificari') + Use In crsverificari + Endif + Create Cursor crsverificari (sursa c(20),Cont c(20),tip c(1),mesaj c(200),selectat N(1),explicatia c(50),luna N(2),an N(4)) + lnInit=Thisform.ninit + lnFinal=Thisform.nfinal + For k=lnInit To lnFinal + lnLuna=Mod(k,12) + lnAn=Int(k/12) + If lnLuna=0 + lnLuna=12 + lnAn=lnAn-1 + Endif + Do VerificareLunaDeschisa With lnLuna,lnAn,.F. in overificari.prg + Endfor + Select crsverificari + Go Top + restore_grid_tag(Thisform.grid1) + Thisform.do_cauta + Messagebox("Refacerea s-a incheiat!",0+64,"Info refacere") + Thisform.AlwaysOnTop=.T. + Thisform.LockScreen = .F. + Thisform.MousePointer = 0 + Endif + + Use In crsrefaceri + + ENDPROC + + PROCEDURE do_sterge + *!* Do CURATARE + *!* Messagebox('Refacerea s-a incheiat!',0+64,"Info refacere") + + ENDPROC + + PROCEDURE Init + DoDefault() + + *!* Select crsverificari + *!* Go Top + + *!* If m.nivel > 0 + *!* Thisform.but_refacere1.Visible=.F. + *!* Thisform._shape2.Width=Thisform._shape2.Width-Thisform.but_refacere1.Width + *!* Thisform._shape2.Left=Thisform._shape2.Left+Thisform.but_refacere1.Width + *!* Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS teste_ireg AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_listbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: init_mesaj + *m: init_test + *m: init_test_inregistrari + *m: istoric + *p: activ + *p: lcont + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 395 + Name = "teste_ireg" + Width = 553 + _shape1.Height = 29 + _shape1.Left = -1 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 565 + _shape2.Height = 29 + _shape2.Left = 486 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 68 + Lb_titlu_alb_b121.Caption = "Test inregistrari" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 522 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT '_listbox1' AS _listbox WITH ; + AutoHideScrollbar = 1, ; + Height = 315, ; + Left = 12, ; + Name = "_listbox1", ; + ToolTipText = (this.value), ; + Top = 48, ; + Width = 528 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="listbox" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 490, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Caption = "\ + + PROCEDURE Destroy + IF USED('crslistare') + USE IN crslistare + ENDIF + ENDPROC + + PROCEDURE do_executa + + IF thisform._listbox1.listcount = 0 + thisform.Cmd_executa1.Enabled = .f. + ELSE + thisform.Cmd_executa1.Enabled = .t. + IF thisform._listbox1.listindex = 0 + ofrm_mes = CREATEOBJECT('frm_mesaj','Atentie','exclam2.ico','Avertizare','Selectati un item din lista!') + ofrm_mes.show(1) + RELEASE ofrm_mes + ELSE + lcId_part = thisform.lam[ceiling(thisform._listbox1.listindex/2),3] + lcCont = thisform.lcont + lcAcont = thisform.lam[ceiling(thisform._listbox1.listindex/2),4] + lcActiv = thisform.activ + *!* WAIT WINDOW "Id : " + lcId_part + " Cont : " + lcCont + " Activ : " + lcActiv + thisform.istoric(lcCont,lcAcont,lcId_part,lcActiv) + ENDIF + ENDIF + + ENDPROC + + PROCEDURE do_listare + Thisform.AlwaysOnTop=.F. + *!* gofundal.AlwaysOnTop=.F. + pcTitlu = thisform.lb_titlu_alb_b121.Caption + pcDataOra=get_ora(2) + Select crslistare + Report Format rap_teste To Printer Prompt Preview + *!* gofundal.AlwaysOnTop=.T. + Thisform.AlwaysOnTop=.T. + ENDPROC + + PROCEDURE Init + LPARAMETERS taMesaje,tcCont,tnActiv + DODEFAULT() + + IF !EMPTY(tcCont) AND PCOUNT() > 2 + this.init_test_inregistrari(@taMesaje,tcCont,tnActiv) + ELSE + this.init_mesaj(@taMesaje) + ENDIF + ENDPROC + + PROCEDURE init_mesaj + PARAMETERS taMesaje + LOCAL ICtr + + this.cmd_executa1.Visible = .f. + + EXTERNAL ARRAY taMesaje + + lnLen = aLEN(taMesaje) &&Lungime array parametru + DIMENSION laM(lnLen,1) + ADDPROPERTY(thisform,'lam(lnLen,1)') + + CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100)) + + FOR ICtr = 1 TO lnLen + lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator + lcMesaj = LEFT(taMesaje[Ictr],lcSeparator-1) + + lam[Ictr,1] = lcMesaj + + thisform._listbox1.AddItem(laM[Ictr,1]) + thisform.lam[Ictr,1] = laM[Ictr,1] + + IF '--' $ laM[Ictr,1] + lcmesaj = [] + lcExp1 = laM[Ictr,1] + ELSE + lcmesaj = laM[Ictr,1] + lcExp1 = [] + ENDIF + INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(lcExp1,'',lcmesaj) + ENDFOR + ENDPROC + + PROCEDURE init_test + ENDPROC + + PROCEDURE init_test_inregistrari + PARAMETERS taMesaje, tcCont, tnActiv + + LOCAL ICtr + + EXTERNAL ARRAY taMesaje + + thisform.lcont=TcCont + thisform.activ = ALLTRIM(STR(tnActiv)) + + + lnLen = aLEN(taMesaje) &&Lungime array parametru + DIMENSION laM(lnLen,4) + + ADDPROPERTY(thisform,'lam(lnLen,4)') + IF USED('crslistare') + USE IN crslistare + ENDIF + *CREATE CURSOR crslistare (nume c(50),acont c(4),mesaj c(100)) + CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100)) + + + FOR ICtr = 1 TO lnLen + lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator + lcId_part = LEFT(taMesaje[Ictr],lcSeparator-1) &&Id partener + lcAcont = STREXTRACT(taMesaje[Ictr],';',';',1) &&Analitic + + lcSql = [select id_part,nume from ] + gcS + [.vnom_parteneri where id_part = ] + lcId_Part + lcCursor = [crsParteneri] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces > 0 + SELECT crsParteneri + GO top + laM[Ictr,1] = UPPER(ALLTRIM(nume)) && Nume Partener + laM[Ictr,3] = lcId_part + laM[Ictr,4] = lcAcont + ELSE + MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + laM[Ictr,1] = "" && Nume Partener + laM[Ictr,3] = lcId_part + laM[Ictr,4] = lcAcont + ENDIF + IF USED('crsParteneri') + USE IN crsParteneri + ENDIF + lcSoldBal = STREXTRACT(taMesaje[Ictr],';',';',2) &&Sold balanta parteneri + lcSeparator3 = AT(';',taMesaje[Ictr],3) && Al 3-lea separator + lcSoldIreg = STRTRAN(SUBSTR(taMesaje[Ictr],lcSeparator3+1),'*','') &&Sold inregistrari parteneri + lam[Ictr,2] = "Sold balanta : " + lcSoldBal + " Sold inregistrari : " + lcSoldIreg + " Diferenta : " +; + ALLTRIM(STR(VAL(lcSoldBal) - VAL(lcSoldIreg),14,gnPa)) + + IF !EMPTY(lcAcont) AND ALLTRIM(UPPER(lcAcont)) # 'XXXX' + lcNumesiAna = laM[Ictr,1] + [ - Analitic ] + lcAcont + ELSE + lcNumesiAna = laM[Ictr,1] + ENDIF + * thisform._listbox1.AddItem(laM[Ictr,1]) + thisform._listbox1.AddItem(lcNumesiAna) + thisform._listbox1.AddItem(laM[Ictr,2]) + thisform.lam[Ictr,1] = laM[Ictr,1] + thisform.lam[Ictr,2] = laM[Ictr,2] + thisform.lam[Ictr,3] = laM[Ictr,3] + thisform.lam[Ictr,4] = laM[Ictr,4] + + INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(laM[Ictr,1],[Analitic - ] + laM[Ictr,4],laM[Ictr,2]) + ENDFOR + ENDPROC + + PROCEDURE istoric + LPARAMETERS tcCont,tcAnalitic,tnId,tcActiv + + lcCont = ALLTRIM(tcCont) + lcAcont = ALLTRIM(tcAnalitic) + IF EMPTY(lcAcont) OR ISNULL(lcAcont) + lcAcont = 'xxxx' + ENDIF + lcId = ALLTRIM(tnId) + lnActiv = VAL(tcActiv) + + PRIVATE pnPereche1,pnPereche2 + STORE 0 TO pnPereche1,pnPereche2 + + this.AlwaysOnTop=.f. + + do CASE + case lnActiv = 0 && + PRIVATE pccond + + lcSql_i = [select id_part,nume,dataact,nract,dataireg,preccred+credit as suma,precdeb+debit as achitat,acont,fdoc,explicatia from ] +; + gcS + [.vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ; + [ order by dataireg] + + lcCursor = [v_iregcd] &&Ireg_parteneri + lnSucces = goExecutor.oExecute(lcSql_i,lcCursor) + goExecutor.oReset() + + lcSql_a = [select a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partd,a.pereched from ] + ; + gcS + [.vact a where a.id_partd = ] + lcId + [ and a.scd = '] + lcCont + [' and NVL(a.ascd,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +; + [ order by a.dataact] + + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql_a,lcCursor) + goExecutor.oReset() + + pcPereche='pereched' + ORC=CREATEOBJ("AFisDEBsiCRED") + orc._grid1.column4.controlsource = 'pereched' + ORC.lb_2.CAPTION='CREDIT' + ORC.lb_1.CAPTION='DEBIT' + orc.Sql_act = lcSql_A + orc.Sql_ireg = lcSql_i + + case lnActiv = 1 && + PRIVATE pccond + + lcSql_i = [select id_part,nume,dataact,nract,dataireg,precdeb+debit as suma,preccred+credit as achitat,acont,fdoc,explicatia from ] +; + gcS + [.vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ; + [ order by dataireg] + + lcCursor = [v_iregcd] &&Ireg_parteneri + lnSucces = goExecutor.oExecute(lcSql_i,lcCursor) + goExecutor.oReset() + + lcSql_a = [select a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partc,a.perechec from ] + ; + gcS + [.vact a where a.id_partc = ] + lcId + [ and a.scc = '] + lcCont + [' and NVL(a.ascc,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +; + [ order by a.dataact] + + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql_a,lcCursor) + goExecutor.oReset() + + pcPereche='perechec' + ORC=CREATEOBJ("AFisDEBsiCRED") + orc._grid1.column4.controlsource = 'perechec' + ORC.lb_1.CAPTION='CREDIT' + ORC.lb_2.CAPTION='DEBIT' + orc.Sql_act = lcSql_A + orc.Sql_ireg = lcSql_i + + ENDCASE + + + ORC.SHOW(1) + + + + + ENDPROC + +ENDDEFINE diff --git a/Clase/ovanzcump.vc2 b/Clase/ovanzcump.vc2 new file mode 100644 index 0000000..04a8181 --- /dev/null +++ b/Clase/ovanzcump.vc2 @@ -0,0 +1,3509 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ovanzcump.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_regcump AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_marfa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_achizitii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + + * + *m: butapend + *m: butdrept + *m: filtre + *m: incaspl + *m: istoric + *m: ist_deb_cred + *m: notacontab + *m: plati + * + + * + DoCreate = .T. + Height = 500 + Name = "frm_regcump" + Width = 795 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 11, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + Height = 372, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 120, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 53, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.Width = 67, ; + Column4.ControlSource = "nume", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.Width = 148, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.Width = 66, ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "Column6", ; + Column7.ControlSource = "neimpozab", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "Column7", ; + Column8.ControlSource = "totftvam", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "Column8", ; + Column9.ControlSource = "tvam", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "Column9", ; + Column10.ControlSource = "totftvai", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "Column10", ; + Column11.ControlSource = "tvai", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "Column11" + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neimpozabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 48, ; + Left = 232, ; + Name = "_shape3", ; + Top = 60, ; + Width = 552, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 79, ; + Left = 224, ; + Name = "_shape4", ; + Top = 38, ; + Width = 568, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 702, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 588, ; + Name = "But_modifica1", ; + TabIndex = 13, ; + Top = 0, ; + Visible = .F., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Comment = "*:OnResize=RT", ; + Left = 672, ; + Name = "But_reface1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_achizitii' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Alte achizitii", ; + FontName = "Arial Narrow", ; + Left = 67, ; + Name = "Ck_achizitii", ; + TabIndex = 7, ; + Top = 52, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = dataact, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_dataact", ; + TabIndex = 2, ; + tip = D, ; + Top = 52, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Eroare TVA", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_eroare", ; + TabIndex = 5, ; + Top = 101, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = fdoc, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_fdoc", ; + TabIndex = 3, ; + Top = 68, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_marfa' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Marfa", ; + FontName = "Arial Narrow", ; + Left = 67, ; + Name = "Ck_marfa", ; + TabIndex = 6, ; + Top = 36, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nract", ; + TabIndex = 1, ; + Top = 36, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Numele firmei", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nume", ; + TabIndex = 4, ; + Top = 84, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 135, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Top = 43, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 135, ; + Name = "Cmd_reset1", ; + TabIndex = 22, ; + Top = 76, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total cu TVA", ; + Left = 245, ; + Name = "Lb_simplu1", ; + TabIndex = 23, ; + Top = 53, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Neimpozabil", ; + Left = 335, ; + Name = "Lb_simplu2", ; + TabIndex = 24, ; + Top = 53, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 19%", ; + Left = 420, ; + Name = "Lb_simplu3", ; + TabIndex = 25, ; + Top = 53, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 19%", ; + Left = 529, ; + Name = "Lb_simplu4", ; + TabIndex = 26, ; + Top = 53, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 9%", ; + Left = 607, ; + Name = "Lb_simplu5", ; + TabIndex = 27, ; + Top = 53, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 9%", ; + Left = 715, ; + Name = "Lb_simplu6", ; + TabIndex = 28, ; + Top = 53, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 15, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\..\comun\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Text1' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotctva", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 234, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pnneimpozab", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 325, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 417, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 509, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 600, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 692, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + tw1=Thisform.Width + tl1=Thisform.Height + Thisform.WindowState=2 + tw2=Thisform.Width + tl2=Thisform.Height + + gw1=Thisform._grdbase1.Width + gl1=Thisform._grdbase1.Height + + Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0) + Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0) + + ** ocont2003 + lnlung1=Thisform._shape1.Width + Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0) + lndif=Thisform._shape1.Width-lnlung1 + Thisform._shape2.Left=Thisform._shape2.Left+lndif + thisform.but_excel1.left=thisform.but_excel1.left+lndif + thisform.but_listare1.left=thisform.but_listare1.left+lndif + thisform.but_modifica1.left=thisform.but_modifica1.left+lndif + thisform.but_reface1.left=thisform.but_reface1.left+lndif + thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif + Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif + Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif + ** + + Thisform.Paint + Thisform.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + IF EMPTY(lcFiltru) + lcFiltru = pocump.ca_baza1.cfiltru + ENDIF + + thisform.MousePointer= 11 + + thisform.LockScreen=.F. + save_grid_tag(thisform._grdbase1) + pocump.ca_baza1.cfiltru=lcFiltru + pocump.ca_baza1.afisare() + restore_grid_tag(thisform._grdbase1) + thisform.LockScreen=.F. + + thisform.MousePointer= 0 + + SELECT actcv + CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + GO top + + *thisform.Refresh + WITH thisform + .text1.refresh + .text2.refresh + .text3.refresh + .text4.refresh + .text5.refresh + .text6.refresh + ._grdbase1.SetFocus + ENDWITH + ENDPROC + + PROCEDURE butapend + *!* Local lbMenu[4] + + *!* lbMenu="" + *!* lbMenu[1]="\100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100" + lcFiltru = lcFiltru + [ AND (ABS(TOTFTVAM*(]+ALLTRIM(STR(m.ctvam,5,2))+[-1)-TVAM)>100 ]+; + [OR ABS(TOTFTVAI*(]+ALLTRIM(STR(m.ctvai,5,2))+[-1)-TVAI)>100 ]+; + [OR ABS(TOTFTVAM+TOTFTVAI+NEIMPOZAB+TVAI+TVAM-TOTCTVA)>100)] + ENDIF + + IF thisform.ck_fdoc.Value=1 + lcFiltru = lcFiltru + thisform.ck_fdoc.filtru + ENDIF + + IF thisform.ck_marfa.Value=1 + lcFiltru = lcFiltru + [ AND SUBSTR(scd,1,3)='371'] + ENDIF + + IF thisform.ck_nract.Value=1 + lcFiltru = lcFiltru + thisform.ck_nract.filtru + ENDIF + + IF thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + thisform.ck_nume.filtru + ENDIF + + thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT('actcv')=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + thisform.ck_nract.SetFocus() + ENDIF + + *!* lcFiltru = ".t." + + *!* If this.ck_feldoc.Value = 1 + *!* lcFiltru = lcFiltru + this.Ck_feldoc.filtru_vfp + *!* Endif + + *!* If this.ck_firma.Value = 1 + *!* lcFiltru = lcFiltru + this.Ck_firma.filtru_vfp + *!* Endif + + *!* if bnract==.t. then + *!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)" + *!* lcFiltru = lcFiltru + " AND (nract>=m.nract1) and (nract<=m.nract2)" + *!* endif + + *!* if this.ck_data.Value = 1 + *!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)" + *!* lcFiltru = lcFiltru + " AND (dataact >= pdData1) and (dataact <= pdData2)" + *!* endif + + *!* *!* if Bfirma==.t. then + *!* *!* Tfirma="UPPER(LEFT(nume,LEN(M.nume)))==M.nume" + *!* *!* endif + + *!* if BER==.t. then + *!* *TER='abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100' + *!* lcFiltru = lcFiltru + " AND abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100" + *!* endif + + *!* *!* if Bachitat==.t. then + *!* *!* Tachitat='(abs(totctva-achitat)<1000 or totctva0 + Local i,xlsheet,XLApp,tmpsheet + SET DATE TO DMY + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.recordsource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Else + Messagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + + *!* If Used('actcv') And Reccount('actcv')>0 + *!* Private pniesire,pccale + *!* pccale="" + *!* pniesire=0 + *!* ofrmexcel=Createobject('frm_cale_f_excel') + *!* ofrmexcel.Show(1) + *!* If pniesire=1 + *!* Thisform.MousePointer=11 + *!* Thisform.LockScreen=.T. + *!* poExcel = Createobject("Excel.Application") + *!* poExcel.Visible=.F. + *!* poExcel.WorkBooks.Add + *!* Select actcv + *!* Go Top + *!* poExcel.Cells(1,1).Font.Size=16 + *!* poExcel.Cells(1,1).Font.Bold=.T. + *!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + *!* For i=1 To 6 + *!* lcval="thisform.lb_simplu"+Alltrim(Str(i))+".caption" + *!* poExcel.Cells(3,i)=&lcval + *!* poExcel.Cells(3,i).Font.Bold=.T. + *!* lcval="thisform.text"+Alltrim(Str(i))+".value" + *!* poExcel.Cells(4,i)=&lcval + *!* Endfor + *!* nRows = 6 + *!* With Thisform._grdbase1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + *!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + *!* poExcel.Cells(nRows,nColumn).Font.Bold = .T. + *!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + *!* Endfor + *!* Scan + *!* nRows = nRows + 1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + *!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + *!* Else + *!* poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + *!* Endif + *!* Endfor + *!* Endscan + *!* Endwith + *!* poExcel.ActiveWorkBook.SaveAs(pccale) + *!* poExcel.ActiveWorkBook.Close + *!* poExcel.Quit + *!* Release poExcel + *!* Go Top + *!* Thisform.LockScreen=.F. + *!* Thisform.MousePointer= 0 + *!* Endif + *!* Else + *!* Messagebox("Nu aveti date in cautare!",48,"Atentie") + *!* Thisform.ck_nract.SetFocus() + *!* Endif + + ENDPROC + + PROCEDURE do_listare + THISFORM.ALWAYSONTOP=.F. + + STORE "" TO pctitlu + + if thisform.ck_marfa.value=1 + pctitlu='JURNAL PENTRU CUMPARARI - ACHIZITII MARFA ' + ELSE + if thisform.ck_achizitii.value=1 + pctitlu='JURNAL PENTRU CUMPARARI - ALTE ACHIZITII' + ELSE + pctitlu='JURNAL PENTRU CUMPARARI' + ENDIF + ENDIF + + SELE ACTCV + ai='19%' + am=ai + + + *!* SELE ACTCV + + *!* REPORT FORMAT registru_cumparari_rpt1 to printer prompt PREVIEW + *!* + + + + + x=xmenu("\ 0 + SELECT cont_exceptii + SCAN + lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie) + ENDSCAN + USE IN cont_exceptii + ENDIF + lcListaCampuri = get_lista_Act() + lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'cump', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4426', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;] + + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + RETURN + ENDIF + + THISFORM.actualizeaza_grid1() + + + *** verificare INAINTE_DE + DO inainte WITH "CUMP" IN oinainte_de.prg + + MESSAGEBOX('Refacerea s-a terminat') + + ENDPROC + + PROCEDURE do_reset + thisform.ck_achizitii.Value=0 + thisform.ck_dataact.Value=0 + thisform.ck_eroare.Value=0 + thisform.ck_fdoc.Value=0 + thisform.ck_marfa.Value=0 + thisform.ck_nract.Value=0 + thisform.ck_nume.Value=0 + thisform.Refresh + ENDPROC + + PROCEDURE filtre + *!* Store ".T." To tfirma,TER,Tachitat,Tneachitat + *!* Sele actcv + + *!* If Bfirma==.T. Then + *!* tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" + *!* Endif + + *!* If Bachitat==.T. Then + *!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' + *!* Endif + + *!* If Bneachitat==.T. Then + *!* Tneachitat='ACTCV.totctva#ACTCV.achitat' + *!* Endif + + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact,pcTitlu + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='411 ' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + + Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + &&deb + pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* Select acn2 + *!* Otherwise&&vanzari + *!* &&cred + *!* *!* Sele 0 + ******************* modificare 14.12 + *!* &&deb + *!* pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + ******************* + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* Endcase + pcorder=[dataact,nract] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + ORC=Createobj("frm_debcred") + ORC.lb_titlu_alb_b121.Caption=Proper(pcTitlu) + ORC.lb_titlu1.Caption=pcTitlu + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + *!* Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Store 0 To pnlunanan + + *!* pnlunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_teRMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* *!* Sele ACTan + *!* *!* Do NRORD With "ACTan" + + *!* Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + *!* ['from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)] + *!* pcorder=[dataact,nract] + *!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* *!* Select acn2 + *!* *!* Sum suma To totsum + *!* *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* *!* If totsum#m.achitat + *!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* *!* Endif + *!* *!* Endif + *!* *!* Select acn2 + *!* TITLU="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + + *!* Otherwise&&vanzari + *!* &&cred + *!* *!* Sele 0 + + *!* &&deb + *!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + *!* ['from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)] + *!* pcorder=[dataact,nract] + *!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* *!* Select acn2 + *!* *!* Sum suma To totsum + *!* *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* *!* If totsum#m.achitat + *!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* *!* Endif + *!* *!* Endif + *!* Select acn2 + *!* TITLU="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* Endcase + + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + *!* ORC.Show(1) + + *!* TITLU="" + *!* Thisform.AlwaysOnTop=.T. + *!* Thisform.but_teRMIN1.Enabled=.T. + *!* If Used('acn2') + *!* Use In acn2 + *!* Endif + *!* Release ORC,poact + ENDPROC + + PROCEDURE Init + DODEFAULT() + PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + IF luna_inchisa + thisform.but_modifica1.Visible=.F. + thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width + thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width + ENDIF + thisform.Refresh + ENDPROC + + PROCEDURE istoric + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2 + *!* Store "" To poacn1,poacn2 + *!* Store .F. To llAfisare + *!* lunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_TERMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* *!* Do NRORD With "ACTan" + *!* Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and SUBSTR(scd,1,3)='401'] + *!* pcorder=[dataact,nract] + *!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn1.ca_baza1.afisare() + + *!* &&cred + *!* pcschema=[''] + *!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+; + *!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2'] + *!* pcfiltru=[nume=']+Alltrim(nume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan)) + *!* pcorder=[dataact,nract] + *!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn2.ca_baza1.afisare() + + *!* ORC=Createobj("AFDEBsiCREDA") + *!* ORC.Caption="PERECHI - "+Alltrim(nume) + *!* ORC.grid2.SetAll("DynamicForeColor", ; + *!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + lunanan=gnLuna+gnAn*12 + Select actcv + pcnume=nume + pcschema=['DATAIREG D,DATAACT D,NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataireg] + pcfiltru=[] + llAfisare=.F. + If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI") + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partC=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + Else + pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partD=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + ENDIF + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + ORC=Createobj("frm_debcred") + *!* ORC.alias='ACN1' + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + Messagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE plati + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Select actcv + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + *!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract)) + *!* pcorder=[] + *!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + *!* Select act + *!* Do NRORD With "ACT" + *!* Go Top + *!* Thisform.but_termin1.Enabled=.F. + *!* ORC=Createobj("frm_debcred") + *!* orc.lb_titlu_alb_b121.caption="Plati" + *!* orc.lb_titlu1.caption="PLATI" + *!* ORC.Show(1) + *!* Thisform.but_termin1.Enabled=.T. + *!* Release ORC,poact + ENDPROC + + PROCEDURE cmd_istoric.Click + thisform.istoric() + ENDPROC + + PROCEDURE cmd_notacontab.Click + thisform.notacontab() + ENDPROC + + PROCEDURE _grdbase1.Column1.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column10.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column11.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column2.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column3.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column3.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column4.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column4.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column5.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column6.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column7.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column8.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column9.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regvanz AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column15._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_opext" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_scd" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + + * + *m: butapend + *m: butdrept + *m: filtre + *m: incaspl + *m: istoric + *m: ist_deb_cred + *m: notacontab + *m: plati + * + + * + DoCreate = .T. + Height = 500 + Name = "frm_regvanz" + Width = 795 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 14, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + HeaderHeight = 34, ; + Height = 372, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 120, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 52, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.ControlSource = "nume", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "Column6", ; + Column7.ControlSource = "neimpozab", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "Column7", ; + Column8.ControlSource = "totftvam", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "Column8", ; + Column9.ControlSource = "tvam", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "Column9", ; + Column10.ControlSource = "totftvai", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "Column10", ; + Column11.ControlSource = "tvai", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "Column11", ; + Column12.ControlSource = "scutit", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Sparse = .F., ; + Column12.Width = 63, ; + Column13.ControlSource = "scd", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.Width = 39, ; + Column14.ControlSource = "ext", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "Column15", ; + Column14.ReadOnly = .T., ; + Column14.Sparse = .F., ; + Column14.Width = 50 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column12._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 41, ; + Name = "_checkbox1", ; + ReadOnly = .T., ; + Top = 47 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scutit cu drept de deducere", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column15._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 29, ; + Name = "_checkbox1", ; + ReadOnly = .T., ; + Top = 47 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operatiune externa", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neimpozabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 48, ; + Left = 228, ; + Name = "_shape3", ; + Top = 58, ; + Width = 552, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 79, ; + Left = 220, ; + Name = "_shape4", ; + Top = 36, ; + Width = 568, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 588, ; + Name = "But_modifica1", ; + TabIndex = 13, ; + Top = 0, ; + Visible = .F., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Comment = "*:OnResize=RT", ; + Left = 674, ; + Name = "But_reface1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = dataact, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_dataact", ; + TabIndex = 2, ; + tip = D, ; + Top = 52, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Eroare TVA", ; + FontName = "Arial Narrow", ; + Left = 63, ; + Name = "Ck_eroare", ; + TabIndex = 7, ; + Top = 52, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = fdoc, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_fdoc", ; + TabIndex = 3, ; + Top = 68, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_nract", ; + TabIndex = 1, ; + Top = 36, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Numele firmei", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_nume", ; + TabIndex = 4, ; + Top = 84, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_opext' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Operatiune externa", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_opext", ; + TabIndex = 5, ; + Top = 100, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_scd' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = scd, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Left = 63, ; + Name = "Ck_scd", ; + TabIndex = 6, ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 132, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Top = 43, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 132, ; + Name = "Cmd_reset1", ; + TabIndex = 22, ; + Top = 76, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total cu TVA", ; + Left = 241, ; + Name = "Lb_simplu1", ; + TabIndex = 23, ; + Top = 51, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Neimpozabil", ; + Left = 331, ; + Name = "Lb_simplu2", ; + TabIndex = 24, ; + Top = 51, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 19%", ; + Left = 416, ; + Name = "Lb_simplu3", ; + TabIndex = 25, ; + Top = 51, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 19%", ; + Left = 525, ; + Name = "Lb_simplu4", ; + TabIndex = 26, ; + Top = 51, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 9%", ; + Left = 603, ; + Name = "Lb_simplu5", ; + TabIndex = 27, ; + Top = 51, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 9%", ; + Left = 711, ; + Name = "Lb_simplu6", ; + TabIndex = 28, ; + Top = 51, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 15, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\..\comun\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Text1' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotctva", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 230, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pnneimpozab", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 321, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 413, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 505, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 596, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 688, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + tw1=Thisform.Width + tl1=Thisform.Height + Thisform.WindowState=2 + tw2=Thisform.Width + tl2=Thisform.Height + + gw1=Thisform._grdbase1.Width + gl1=Thisform._grdbase1.Height + + Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0) + Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0) + + ** ocont2003 + lnlung1=Thisform._shape1.Width + Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0) + lndif=Thisform._shape1.Width-lnlung1 + Thisform._shape2.Left=Thisform._shape2.Left+lndif + thisform.but_excel1.left=thisform.but_excel1.left+lndif + thisform.but_listare1.left=thisform.but_listare1.left+lndif + thisform.but_modifica1.left=thisform.but_modifica1.left+lndif + thisform.but_reface1.left=thisform.but_reface1.left+lndif + thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif + Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif + Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif + ** + + Thisform.Paint + Thisform.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + IF EMPTY(lcFiltru) + lcFiltru = povanz.ca_baza1.cfiltru + ENDIF + thisform.MousePointer= 11 + thisform.LockScreen=.F. + + save_grid_tag(thisform._grdbase1) + povanz.ca_baza1.cfiltru=lcFiltru + povanz.ca_baza1.afisare() + restore_grid_tag(thisform._grdbase1) + + thisform.LockScreen=.F. + + thisform.MousePointer= 0 + SELECT actcv + CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + GO top + *thisform.Refresh + WITH thisform + .text1.refresh + .text2.refresh + .text3.refresh + .text4.refresh + .text5.refresh + .text6.refresh + ._grdbase1.SetFocus + ENDWITH + + ENDPROC + + PROCEDURE butapend + *!* LOCAL lbMenu[4] + + *!* lbMenu="" + *!* lbMenu[1]="\100 ]+; + [OR ABS(TOTFTVAI*(]+ALLTRIM(STR(m.ctvai,5,2))+[-1)-TVAI)>100 ]+; + [OR ABS(TOTFTVAM+TOTFTVAI+NEIMPOZAB+TVAI+TVAM-TOTCTVA)>100)] + ENDIF + + IF thisform.ck_fdoc.Value=1 + lcFiltru = lcFiltru + thisform.ck_fdoc.filtru + ENDIF + + IF thisform.ck_nract.Value=1 + lcFiltru = lcFiltru + thisform.ck_nract.filtru + ENDIF + + IF thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + thisform.ck_nume.filtru + ENDIF + + IF thisform.ck_opext.Value=1 + lcFiltru = lcFiltru + [ AND EXT=1] + ENDIF + + thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT('actcv')=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + thisform.ck_nract.SetFocus() + ENDIF + ENDPROC + + PROCEDURE do_excel + If Used('actcv') And Reccount('actcv')>0 + Local i,xlsheet,XLApp,tmpsheet + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.RecordSource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Endif + + + ENDPROC + + PROCEDURE do_listare + PUBLIC totftvam,tvam,a1,a2,AI,AM + PRIVATE pctitlu + STORE '' TO pctitlu + PRIVATE pcRegistru, pcContTVA, pcListaContTVA, pcListaContBaza, pcListaContExceptii + + + x=xmenu("\ 0 + SELECT cont_exceptii + SCAN + lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie) + ENDSCAN + USE IN cont_exceptii + ENDIF + lcListaCampuri = get_lista_Act() + + lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'vanz', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4427', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;] + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + RETURN + ENDIF + + THISFORM.actualizeaza_grid1() + + + *** verificare INAINTE_DE + lcCoresp = ['411'] + lcExceptii = ['667,622'] + do inainte WITH "VANZ",,,,lcExceptii,lcCoresp in oinainte_de.prg + MESSAGEBOX('Refacerea s-a terminat') + + + + ENDPROC + + PROCEDURE do_reset + thisform.ck_scd.Value=0 + thisform.ck_dataact.Value=0 + thisform.ck_eroare.Value=0 + thisform.ck_fdoc.Value=0 + thisform.ck_nract.Value=0 + thisform.ck_nume.Value=0 + thisform.ck_opext.Value=0 + thisform.Refresh + ENDPROC + + PROCEDURE filtre + *!* STORE ".T." TO tfirma,TER,Tachitat,Tneachitat + *!* sele actcv + + *!* if Bfirma==.t. then + *!* Tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" + *!* endif + + *!* if Bachitat==.t. then + *!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' + *!* endif + + *!* if Bneachitat==.t. then + *!* Tneachitat='ACTCV.totctva#ACTCV.achitat' + *!* endif + + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='411 ' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + *!* Sele ACTan + *!* Do NRORD With "ACTan" + pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,nract] + + Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + &&deb + *!* pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + *!* gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + + *!* Otherwise&&vanzari + &&cred + *!* Sele 0 + + &&deb + pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* Endcase + + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + *!* ORC.Show(1) + + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption=pcTitlu + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + DODEFAULT() + PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + IF luna_inchisa + thisform.but_modifica1.Visible=.F. + thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width + thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width + ENDIF + thisform.Refresh + ENDPROC + + PROCEDURE istoric + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2,pcnume + *!* Store "" To poacn1,poacn2,pcnume + *!* Store .F. To llAfisare + *!* lunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_TERMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* *!* Do NRORD With "ACTan" + *!* Select actcv + *!* pcnume=nume + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scd,1,3)='401'] + *!* pcorder=[dataact,nract] + *!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn1.ca_baza1.afisare() + + *!* &&cred + *!* pcschema=[''] + *!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+; + *!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2'] + *!* pcfiltru=[nume=']+Alltrim(pcnume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan)) + *!* pcorder=[dataact,nract] + *!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn2.ca_baza1.afisare() + + *!* ORC=Createobj("AFDEBsiCREDA") + *!* ORC.Caption="PERECHI - "+Alltrim(pcnume) + *!* ORC.grid2.SetAll("DynamicForeColor", ; + *!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact,pcnume + pcschema=['DATAIREG D,DATAACT D,NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataireg] + llAfisare=.F. + lunanan=gnLuna+gnAn*12 + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + Sele actcv + pcnume=nume + If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI" ,"REGISTRUL VANZARI") + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + *!* Do NRORD With "ACT" + Else + pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + *!* Do NRORD With "ACTAN" + Endif + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + *!* ORC=Createobj("AFDEBCRED") + *!* ORC.ali='ACN1' + *!* ORC.LABELTITLU.Caption="NOTA CONTABILA" + *!* ORC.Show(1) + + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + Messagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE plati + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Select actcv + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + *!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract)) + *!* pcorder=[] + *!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + *!* Select act + *!* Do NRORD With "ACT" + *!* Go Top + *!* Thisform.but_termin1.Enabled=.F. + *!* ORC=Createobj("AFDEBCRED") + *!* ORC.LABELTITLU.Caption="Plati" + *!* ORC.Show(1) + *!* Thisform.but_termin1.Enabled=.T. + *!* RELEASE orc,poact + ENDPROC + + PROCEDURE cmd_istoric.Click + thisform.istoric() + ENDPROC + + PROCEDURE cmd_notacontab.Click + thisform.notacontab() + ENDPROC + + PROCEDURE _grdbase1.Column1.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column10.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column11.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column12._checkbox1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column13.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column15._checkbox1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column2.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column2.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column3.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column3.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column4.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column4.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column5.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column6.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column7.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column8.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column9.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE diff --git a/Clase/solution.vc2 b/Clase/solution.vc2 new file mode 100644 index 0000000..1df77bb --- /dev/null +++ b/Clase/solution.vc2 @@ -0,0 +1,65 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="solution.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cmdclose AS commandbutton && Close button + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Cancel = .T. + Caption = "Close" + FontBold = .F. + FontName = "MS Sans Serif" + FontSize = 8 + Height = 23 + Name = "cmdclose" + Width = 72 + * + + PROCEDURE Click + IF TYPE("THISFORM.Parent") = "O" + THISFORMSET.Release + ELSE + THISFORM.Release + ENDIF + ENDPROC + + PROCEDURE Error + LPARAMETERS nError, cMethod, nLine + LOCAL lnChoice + #DEFINE CR CHR(13) + DO CASE + CASE nError = 1545 && Uncommitted changes + *------------------------------------ + #DEFINE MSG1_LOC "Do you want to save your changes?" + #DEFINE MSG2_LOC "Uncommitted Changes" + lnChoice = MESSAGEBOX(MSG1_LOC, 4+48+0, MSG2_LOC) + DO CASE + CASE lnChoice = 6 && yes + =TABLEUPDATE(.T., .T.) + CASE lnChoice = 7 && no + =TABLEREVERT(.T.) + ENDCASE + OTHERWISE && Unanticipated error + *-------------------------------------- + #DEFINE NUM_LOC "Error Number: " + #DEFINE PROG_LOC "Program: " + #DEFINE CAP_LOC "ERROR" + lcMsg = NUM_LOC + ALLTRIM(STR(nError)) + CR + CR + ; + MESSAGE()+ CR + CR + PROG_LOC + PROGRAM(1) + lnChoice = MESSAGEBOX(lcMsg, 2+48+512, CAP_LOC) + DO CASE + CASE lnChoice = 3 &&Abort + CANCEL + CASE lnChoice = 4 &&Retry + RETRY + CASE lnChoice = 5 &&Ignore + RETURN + ENDCASE + ENDCASE + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/ATENTIE1.sc2 b/Ferestre/ATENTIE1.sc2 new file mode 100644 index 0000000..1b4e6e9 --- /dev/null +++ b/Ferestre/ATENTIE1.sc2 @@ -0,0 +1,75 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="atentie1.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Name = "Dataenvironment" + * + +ENDDEFINE + +DEFINE CLASS fatentie1 AS fatentie OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 84 + Name = "Fatentie1" + Width = 353 + WindowType = 0 + Shape1.Height = 75 + Shape1.Left = 4 + Shape1.Name = "Shape1" + Shape1.Top = 4 + Shape1.Width = 344 + IMAGE1.Height = 32 + IMAGE1.Left = 24 + IMAGE1.Name = "IMAGE1" + IMAGE1.Top = 12 + IMAGE1.Width = 32 + Label1.Left = 64 + Label1.Name = "Label1" + Label1.Top = 14 + * + + ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + Caption = "Modificarile sunt ireversibile!", ; + FontSize = 12, ; + Height = 21, ; + Left = 129, ; + Name = "Label2", ; + Top = 14, ; + Width = 200 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Deactivate + thisform.release + ENDPROC + + PROCEDURE LostFocus + thisform.release + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/afisbalx.sc2 b/Ferestre/afisbalx.sc2 new file mode 100644 index 0000000..0f703a7 --- /dev/null +++ b/Ferestre/afisbalx.sc2 @@ -0,0 +1,1318 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="afisbalx.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Height = 200 + Left = 45 + Name = "Dataenvironment" + Top = 86 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist5" UniqueID="" Timestamp="" /> + + * + *m: afisactual + *m: butapend + *m: butdrept + *m: fisacont + *m: rulcred + *m: ruldeb + *m: ruldebcred + *m: totcred + *m: totdeb + *m: totdebcred + * + + * + DoCreate = .T. + Height = 503 + Name = "Ffergen1" + Width = 793 + WindowType = 1 + Line1.Left = -4 + Line1.Name = "Line1" + Line1.Top = 475 + * + + ADD OBJECT 'Cmdlist1' AS cmdlist WITH ; + Left = 648, ; + Name = "Cmdlist1", ; + Top = 564, ; + Visible = .F., ; + Width = 98 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdlist3' AS cmdlist WITH ; + Caption = "", ; + DownPicture = , ; + FontName = "Arial Black", ; + FontSize = 20, ; + ForeColor = 255,255,0, ; + Left = 689, ; + Name = "Cmdlist3", ; + Picture = ..\grafice\new.bmp, ; + ToolTipText = "Linie noua", ; + Top = 300 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdlist4' AS cmdlist WITH ; + Caption = "", ; + DownPicture = ..\grafice\delete.bmp, ; + Left = 689, ; + Name = "Cmdlist4", ; + Picture = ..\grafice\delete.bmp, ; + ToolTipText = "Stergerea liniei selectate", ; + Top = 333 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdlist5' AS cmdlist WITH ; + Caption = "+", ; + DownPicture = , ; + FontName = "Arial Black", ; + FontSize = 20, ; + ForeColor = 0,64,128, ; + Left = 689, ; + Name = "Cmdlist5", ; + ToolTipText = "Recalculare sume", ; + Top = 367 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ; + Height = 27, ; + Left = 689, ; + Name = "Cmdtermin1", ; + TabIndex = 2, ; + Top = 428, ; + Width = 98, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Command4' AS commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Grid1' AS grid WITH ; + BackColor = 254,255,240, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + GridLineColor = 128,128,128, ; + Height = 379, ; + Left = 5, ; + Name = "Grid1", ; + Panel = 1, ; + ReadOnly = .F., ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 17, ; + Width = 672, ; + ZOrderSet = 9, ; + Column1.Alignment = 0, ; + Column1.BackColor = 226,226,226, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "bal.cont", ; + Column1.FontName = "Arial Narrow", ; + Column1.FontSize = 9, ; + Column1.Format = "", ; + Column1.InputMask = "", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .F., ; + Column1.Width = 26, ; + Column2.Alignment = 0, ; + Column2.BackColor = 226,226,226, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "bal.denumire", ; + Column2.FontName = "Arial Narrow", ; + Column2.FontSize = 9, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 68, ; + Column3.Alignment = 1, ; + Column3.BackColor = 249,233,217, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "bal.precdeb", ; + Column3.DynamicForeColor = "IIF(PRECDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column3.FontName = "Arial Narrow", ; + Column3.FontSize = 9, ; + Column3.Format = "r", ; + Column3.InputMask = "999 999 999 999", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Width = 63, ; + Column4.Alignment = 1, ; + Column4.BackColor = 249,233,217, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "bal.preccred", ; + Column4.DynamicForeColor = "IIF(PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column4.FontName = "Arial Narrow", ; + Column4.FontSize = 9, ; + Column4.Format = "r", ; + Column4.InputMask = "999 999 999 999", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Width = 66, ; + Column5.Alignment = 1, ; + Column5.BackColor = 236,242,241, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "bal.ruldeb", ; + Column5.DynamicForeColor = "IIF(RULDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column5.FontName = "Arial Narrow", ; + Column5.FontSize = 9, ; + Column5.Format = "R", ; + Column5.InputMask = "999 999 999 999", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Width = 64, ; + Column6.Alignment = 1, ; + Column6.BackColor = 236,242,241, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "bal.rulcred", ; + Column6.DynamicForeColor = "IIF(RULCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column6.FontName = "Arial Narrow", ; + Column6.FontSize = 9, ; + Column6.Format = "R", ; + Column6.InputMask = "999 999 999 999", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Width = 69, ; + Column7.Alignment = 1, ; + Column7.BackColor = 249,233,217, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "bal.totdeb", ; + Column7.DynamicForeColor = "IIF(TOTDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column7.FontName = "Arial Narrow", ; + Column7.FontSize = 9, ; + Column7.Format = "r", ; + Column7.InputMask = "999 999 999 999", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .F., ; + Column7.Width = 75, ; + Column8.Alignment = 1, ; + Column8.BackColor = 249,233,217, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "bal.totcred", ; + Column8.DynamicForeColor = "IIF(TOTCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column8.FontName = "Arial Narrow", ; + Column8.FontSize = 9, ; + Column8.Format = "r", ; + Column8.InputMask = "999 999 999 999", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Width = 70, ; + Column9.Alignment = 1, ; + Column9.BackColor = 236,242,241, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "bal.soldcred", ; + Column9.DynamicForeColor = "IIF(SOLDCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column9.FontName = "Arial Narrow", ; + Column9.FontSize = 9, ; + Column9.Format = "r", ; + Column9.InputMask = "999 999 999 999", ; + Column9.Name = "Column10", ; + Column9.ReadOnly = .F., ; + Column9.Width = 70, ; + Column10.Alignment = 1, ; + Column10.BackColor = 236,242,241, ; + Column10.ColumnOrder = 9, ; + Column10.ControlSource = "bal.solddeb", ; + Column10.DynamicForeColor = "IIF(SOLDDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column10.FontName = "Arial Narrow", ; + Column10.FontSize = 9, ; + Column10.Format = "r", ; + Column10.InputMask = "999 999 999 999", ; + Column10.Name = "Column9", ; + Column10.ReadOnly = .F., ; + Column10.Width = 66 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'Grid1.Column1.header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header2" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ; + Alignment = 2, ; + Caption = "Prec.Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header3" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ; + Alignment = 2, ; + Caption = "Prec.Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header4" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ; + Alignment = 2, ; + Caption = "Rul.Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header5" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ; + Alignment = 2, ; + BackColor = 192,192,192, ; + Caption = "Rul.Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header6" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderColor = 0,0,0, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ; + Alignment = 2, ; + Caption = "Total Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header7" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ; + Alignment = 2, ; + Caption = "Total Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header8" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Caption = "Editare", ; + Height = 17, ; + Left = 692, ; + Name = "Label1", ; + TabIndex = 13, ; + Top = 276, ; + Width = 40, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "BALANTA DE VERIFICARE", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 255,255,255, ; + Height = 18, ; + Left = 5, ; + Name = "Label10", ; + TabIndex = 21, ; + Top = 0, ; + Width = 271, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 367, ; + Name = "Label11", ; + TabIndex = 20, ; + Top = 431, ; + Width = 35, ; + ZOrderSet = 28 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 367, ; + Name = "Label12", ; + TabIndex = 20, ; + Top = 453, ; + Width = 35, ; + ZOrderSet = 29 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 537, ; + Name = "Label13", ; + TabIndex = 20, ; + Top = 429, ; + Width = 35, ; + ZOrderSet = 30 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label14' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 537, ; + Name = "Label14", ; + TabIndex = 20, ; + Top = 451, ; + Width = 35, ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label15' AS label WITH ; + AutoSize = .F., ; + Caption = "Afisare", ; + Height = 17, ; + Left = 692, ; + Name = "Label15", ; + TabIndex = 13, ; + Top = 108, ; + Visible = .F., ; + Width = 40, ; + ZOrderSet = 35 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Caption = "Rulaje", ; + Height = 17, ; + Left = 244, ; + Name = "Label2", ; + Top = 409, ; + Width = 40, ; + ZOrderSet = 32 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 26, ; + Name = "Label3", ; + TabIndex = 20, ; + Top = 453, ; + Width = 35, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Caption = "Total sume", ; + Height = 17, ; + Left = 394, ; + Name = "Label4", ; + Top = 409, ; + Width = 72, ; + ZOrderSet = 33 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Caption = "Solduri", ; + Height = 17, ; + Left = 572, ; + Name = "Label5", ; + Top = 409, ; + Width = 40, ; + ZOrderSet = 34 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 202, ; + Name = "Label6", ; + TabIndex = 20, ; + Top = 430, ; + Width = 35, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 202, ; + Name = "Label7", ; + TabIndex = 20, ; + Top = 452, ; + Width = 35, ; + ZOrderSet = 27 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Caption = "Total sume precedente", ; + Height = 17, ; + Left = 26, ; + Name = "Label8", ; + TabIndex = 19, ; + Top = 409, ; + Width = 132, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 26, ; + Name = "Label9", ; + TabIndex = 20, ; + Top = 431, ; + Width = 35, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 716, ; + Name = "oMenuShortcut", ; + TabIndex = 0, ; + Top = 48 + *< END OBJECT: ClassLib="..\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; + ButtonCount = 5, ; + ControlSource = "", ; + Height = 120, ; + Left = 684, ; + Name = "Optiongroup1", ; + Top = 115, ; + Value = 1, ; + Visible = .F., ; + Width = 108, ; + ZOrderSet = 1, ; + Option1.AutoSize = .T., ; + Option1.Caption = "\ + + ADD OBJECT 'Shape1' AS shape WITH ; + Height = 77, ; + Left = 3, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 403, ; + Width = 677, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + Height = 463, ; + Left = 684, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 17, ; + Width = 108, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + Height = 121, ; + Left = 684, ; + Name = "Shape3", ; + SpecialEffect = 0, ; + Top = 283, ; + Width = 108, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape4' AS shape WITH ; + Height = 65, ; + Left = 176, ; + Name = "Shape4", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 168, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape5' AS shape WITH ; + Height = 65, ; + Left = 3, ; + Name = "Shape5", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 176, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape6' AS shape WITH ; + Height = 65, ; + Left = 342, ; + Name = "Shape6", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 168, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape8' AS shape WITH ; + Height = 65, ; + Left = 508, ; + Name = "Shape8", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 172, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.sprecdeb", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 61, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 6, ; + Top = 427, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.spreccred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 61, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 7, ; + Top = 451, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.srulcred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 239, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 8, ; + Top = 451, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.sruldeb", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 239, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 10, ; + Top = 427, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.stotdeb", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 404, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 9, ; + Top = 427, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.stotcred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 404, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 11, ; + Top = 451, ; + Width = 90, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text7' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.ssolddeb", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 575, ; + Name = "Text7", ; + ReadOnly = .T., ; + TabIndex = 6, ; + Top = 425, ; + Width = 90, ; + ZOrderSet = 24 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text8' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.ssoldcred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 575, ; + Name = "Text8", ; + ReadOnly = .T., ; + TabIndex = 7, ; + Top = 449, ; + Width = 90, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE afisactual + sele bal + repl all totdeb with ruldeb+precdeb + repl all totcred with rulcred+preccred + repl all solddeb with iif(totdeb-totcred>0,totdeb-totcred,0) + repl all soldcred with iif(totdeb-totcred>0,0,-totdeb+totcred) + thisform.text1.setfocus + thisform.text2.setfocus + thisform.text3.setfocus + thisform.text4.setfocus + thisform.text5.setfocus + thisform.text6.setfocus + thisform.text7.setfocus + thisform.text8.setfocus + + thisform.grid1.refresh + ENDPROC + + PROCEDURE butapend + ENDPROC + + PROCEDURE butdrept + ENDPROC + + PROCEDURE fisacont + ENDPROC + + PROCEDURE Init + SELE BAL + GO TOP + ENDPROC + + PROCEDURE rulcred + ENDPROC + + PROCEDURE ruldeb + ENDPROC + + PROCEDURE ruldebcred + ENDPROC + + PROCEDURE totcred + ENDPROC + + PROCEDURE totdeb + ENDPROC + + PROCEDURE totdebcred + ENDPROC + + PROCEDURE Cmdlist1.Click + THISFORM.WINDOWSTATE=1 + do rapbal97.prg + THISFORM.WINDOWSTATE=0 + ENDPROC + + PROCEDURE Cmdlist3.Click + sele bal + + appe blan + thisform.afisactual + ENDPROC + + PROCEDURE Cmdlist4.Click + sele bal + dele + thisform.afisactual + ENDPROC + + PROCEDURE Cmdlist5.Click + + thisform.afisactual + ENDPROC + + PROCEDURE Cmdtermin1.Valid + DO CALCULEAZABALANTA + ENDPROC + + PROCEDURE Command3.Click + local t1,t2,sem,sumc,sumd,m.cont + + + SELE BAL + SCAN + t1=" " + t2=" " + sem=.f. + SCATTER MEMVAR + M.CONT=SUBS(CONT,1,4) + + SELE ACT + SUM SUMA TO SUMD FOR SCD=M.CONT + SUM SUMA TO SUMC FOR SCC=M.CONT + IF SUMD#M.RULDEB + t1='Cont debitor '+M.CONT+' cu dif. '+STR(M.RULDEB-SUMD,13) + *wait windows 'CONT DEBITOR '+M.CONT+' CU DIF. '+STR(M.RULDEB-SUMD,13) + sem=.t. + ENDIF + IF SUMC#M.RULCRED + t2= 'Cont creditor '+M.CONT+' cu dif. '+STR(M.RULCRED-SUMC,13) + *wait windows 'CONT CREDITOR '+M.CONT+' CU DIF. '+STR(M.RULCRED-SUMC,13) + sem=.t. + ENDIF + if sem==.t. then + ot=createobj("text") + ot.label2.caption=t1 + ot.label3.caption=t2 + ot.show(1) + endif + SELE BAL + ENDSCAN + + if sem==.f. then + OT=CREATEOBJ("TEXT") + OT.LABEL2.CAPTION="Verificarea s-a incheiat." + OT.LABEL3.visible=.f. + ot.show(1) + endif + ENDPROC + + PROCEDURE Command4.Click + + DO REFBAL IN REFverif.PRG + DO VERDIFBAL IN REFverif.PRG + + *do refbalanta + + OT=CREATEOBJ("TEXT") + OT.LABEL2.CAPTION="Balanta este refacuta." + OT.LABEL3.visible=.f. + ot.show(1) + sele bal + ENDPROC + + PROCEDURE Grid1.AfterRowColChange + LPARAMETERS nColIndex + THISFORM.OPTIONGROUP1.OPTION2.ENABLED=.T. + THISFORM.OPTIONGROUP1.OPTION3.ENABLED=.T. + THISFORM.OPTIONGROUP1.OPTION4.ENABLED=.T. + THISFORM.OPTIONGROUP1.OPTION5.ENABLED=.T. + ENDPROC + + PROCEDURE Grid1.Column1.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column1.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column10.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column10.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column2.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column2.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column3.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column3.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column4.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column4.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column5.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column5.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column6.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column6.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column7.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column7.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column8.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column8.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column9.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column9.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.DblClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.When + sele bal + set filter to !deleted() + ENDPROC + + PROCEDURE Optiongroup1.Option1.Click + THIS.PARENT.OPTION2.ENABLED=.F. + THIS.PARENT.OPTION3.ENABLED=.F. + THIS.PARENT.OPTION4.ENABLED=.F. + THIS.PARENT.OPTION5.ENABLED=.F. + + SELE BAL + SET FILTER TO !DELETED() + THISFORM.GRID1.ACTIVATECELL(1,1) + ENDPROC + + PROCEDURE Optiongroup1.Option2.Click + THISFORM.RULDEB + ENDPROC + + PROCEDURE Optiongroup1.Option3.Click + THISFORM.RULCRED + ENDPROC + + PROCEDURE Optiongroup1.Option4.Click + THISFORM.TOTDEB + ENDPROC + + PROCEDURE Optiongroup1.Option5.Click + THISFORM.TOTCRED + ENDPROC + + PROCEDURE Shape2.RightClick + THISFORM.BUTAPEND + ENDPROC + + PROCEDURE Text1.GotFocus + sum precdeb to m.sprecdeb + ENDPROC + + PROCEDURE Text1.Init + sum precdeb to m.sprecdeb + this.refresh + ENDPROC + + PROCEDURE Text1.Refresh + THIS.FORECOLOR=IIF(M.SPRECDEB>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text2.GotFocus + sum preccred to m.spreccred + ENDPROC + + PROCEDURE Text2.Init + + sum preccred to m.spreccred + this.refresh + ENDPROC + + PROCEDURE Text2.Refresh + THIS.FORECOLOR=IIF(M.SPRECCRED>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text3.GotFocus + sum rulcred to m.srulcred + ENDPROC + + PROCEDURE Text3.Init + sum rulcred to m.srulcred + this.refresh + ENDPROC + + PROCEDURE Text3.Refresh + THIS.FORECOLOR=IIF(M.SRULCRED>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text4.GotFocus + sum ruldeb to m.sruldeb + ENDPROC + + PROCEDURE Text4.Init + sum ruldeb to m.sruldeb + this.refresh + ENDPROC + + PROCEDURE Text4.Refresh + THIS.FORECOLOR=IIF(M.SRULDEB>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text5.GotFocus + sum totdeb to m.stotdeb + ENDPROC + + PROCEDURE Text5.Init + sum totdeb to m.stotdeb + this.refresh + ENDPROC + + PROCEDURE Text5.Refresh + THIS.FORECOLOR=IIF(M.STOTDEB>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text6.GotFocus + sum totcred to m.stotcred + ENDPROC + + PROCEDURE Text6.Init + sum totcred to m.stotcred + this.refresh + ENDPROC + + PROCEDURE Text6.Refresh + THIS.FORECOLOR=IIF(M.STOTCRED>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text7.GotFocus + sum solddeb to m.ssolddeb + ENDPROC + + PROCEDURE Text7.Init + sum solddeb to m.ssolddeb + this.refresh + ENDPROC + + PROCEDURE Text8.GotFocus + sum neimpozab to m.sneimpozab + ENDPROC + + PROCEDURE Text8.Init + sum soldcred to m.ssoldcred + this.refresh + ENDPROC + +ENDDEFINE diff --git a/Ferestre/fundal.sc2 b/Ferestre/fundal.sc2 new file mode 100644 index 0000000..db35cd4 --- /dev/null +++ b/Ferestre/fundal.sc2 @@ -0,0 +1,377 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS form1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" /> + + * + *m: jurnal + * + + * + AlwaysOnBottom = .T. + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 0 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Enabled = .T. + FillColor = 0,0,0 + HalfHeightCaption = .F. + Height = 429 + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "FORM1" + Picture = ..\comun\drepturi utilizatori\roadef\ + ShowTips = .T. + Width = 797 + WindowState = 2 + * + + ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ; + ErasePage = .T., ; + Height = 457, ; + Left = -2, ; + Name = "_pgfrmbase1", ; + Top = 60, ; + Page1.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page1.CW1.Name = "CW1", ; + Page1.Cw11.Label_item1.Name = "Label_item1", ; + Page1.Cw11.Name = "Cw11", ; + Page1.Cw12.Label_item1.Name = "Label_item1", ; + Page1.Cw12.Name = "Cw12", ; + Page1.Cw13.Label_item1.Name = "Label_item1", ; + Page1.Cw13.Name = "Cw13", ; + Page1.Cw5.Label_item1.Name = "Label_item1", ; + Page1.Cw5.Name = "Cw5", ; + Page1.Cw6.Label_item1.Name = "Label_item1", ; + Page1.Cw6.Name = "Cw6", ; + Page1.Cw8.Label_item1.Name = "Label_item1", ; + Page1.Cw8.Name = "Cw8", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page1.Pict_meniu1.Name = "Pict_meniu1", ; + Page2.Cw1.Label_item1.Name = "Label_item1", ; + Page2.Cw1.Name = "Cw1", ; + Page2.Cw2.Label_item1.Name = "Label_item1", ; + Page2.Cw2.Name = "Cw2", ; + Page2.Cw3.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page2.Cw3.Name = "Cw3", ; + Page2.Cw4.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page2.Cw4.Name = "Cw4", ; + Page2.Cw5.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page2.Cw5.Name = "Cw5", ; + Page2.Cw6.Label_item1.Name = "Label_item1", ; + Page2.Cw6.Name = "Cw6", ; + Page2.Cw7.Label_item1.Name = "Label_item1", ; + Page2.Cw7.Name = "Cw7", ; + Page2.Cw9.Label_item1.Name = "Label_item1", ; + Page2.Cw9.Name = "Cw9", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 3, ; + Page2.Pict_meniu1.Name = "Pict_meniu1", ; + PAGE3.Cw1.Label_item1.Name = "Label_item1", ; + PAGE3.Cw1.Name = "Cw1", ; + PAGE3.Cw2.Label_item1.Name = "Label_item1", ; + PAGE3.Cw2.Name = "Cw2", ; + PAGE3.Cw4.Label_item1.Name = "Label_item1", ; + PAGE3.Cw4.Name = "Cw4", ; + PAGE3.Cw9.Label_item1.Name = "Label_item1", ; + PAGE3.Cw9.Name = "Cw9", ; + PAGE3.Name = "PAGE3", ; + PAGE3.PageOrder = 2, ; + PAGE3.PICT_MENIU1.Name = "PICT_MENIU1", ; + Page4.Cw1.Label_item1.Name = "Label_item1", ; + Page4.Cw1.Name = "Cw1", ; + Page4.Cw10.Label_item1.Name = "Label_item1", ; + Page4.Cw10.Name = "Cw10", ; + Page4.Cw2.Label_item1.Name = "Label_item1", ; + Page4.Cw2.Name = "Cw2", ; + Page4.Cw3.Label_item1.Name = "Label_item1", ; + Page4.Cw3.Name = "Cw3", ; + Page4.Cw4.Label_item1.Name = "Label_item1", ; + Page4.Cw4.Name = "Cw4", ; + Page4.Cw5.Label_item1.Name = "Label_item1", ; + Page4.Cw5.Name = "Cw5", ; + Page4.Name = "Page4", ; + Page4.PageOrder = 4, ; + Page4.Pict_meniu1.Name = "Pict_meniu1" + *< END OBJECT: ClassLib="..\clase\ofundal_sal.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'Image1' AS image WITH ; + BackStyle = 0, ; + Height = 220, ; + Left = 228, ; + Name = "Image1", ; + Picture = ..\grafice\roadef.bmp, ; + Stretch = 0, ; + Top = 205, ; + Width = 556 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + Height = 63, ; + Left = -11, ; + Name = "Image2", ; + Picture = ..\comun\grafice\f1.jpg, ; + Stretch = 2, ; + Top = -1, ; + Width = 851 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Imagine01' AS imagine WITH ; + Height = 55, ; + Left = 9, ; + Name = "Imagine01", ; + nid_img = 1, ; + picturedown = entitati2.bmp, ; + pictureup = entitati1.bmp, ; + ToolTipText = "Entitati", ; + Top = 1, ; + Width = 45 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine02' AS imagine WITH ; + Height = 55, ; + Left = 67, ; + Name = "Imagine02", ; + picturedown = plcont2.bmp, ; + pictureup = plcont1.bmp, ; + ToolTipText = "Plan conturi si politici contabile", ; + Top = 1, ; + Width = 45 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label1", ; + Top = 381, ; + Width = 53 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nivel de acces:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label2", ; + Top = 401, ; + Width = 85 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ; + Anchor = 9, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 498, ; + Name = "lb_utilizator", ; + Top = 9 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ; + Anchor = 9, ; + Caption = "nume_utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 552, ; + Name = "lb_utilizator1", ; + Top = 9, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 62, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 380, ; + Width = 147 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "m.nivel", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 93, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 400, ; + Width = 28 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + *!* THISFORM.AUTOCENTER=.T. + + LOCAL lnScrH,lnScrW + lnScrW = _screen.Width + lnScrH = _screen.Height + + thisform.image1.Top = lnScrH - thisform.image1.Height - 50 + thisform.image1.Left = lnScrW - thisform.image1.Width - 30 + thisform.image2.Width = lnScrW + 30 + thisform._pgfrmbase1.Width = lnScrW + thisform._pgfrmbase1.Height = thisform.Height-thisform.image2.Height + thisform._pgfrmbase1.page1.Pict_meniu1.Height = thisform._pgfrmbase1.Height + thisform._pgfrmbase1.page2.Pict_meniu1.Height = thisform._pgfrmbase1.Height + thisform._pgfrmbase1.page3.Pict_meniu1.Height = thisform._pgfrmbase1.Height + thisform._pgfrmbase1.page4.Pict_meniu1.Height = thisform._pgfrmbase1.Height + + *!* IF primadata + *!* + *!* DO start_firma IN ostartfirma.prg + *!* primadata = .F. + *!* + *!* verifica_drepturi2('gofundal','_pgfrmbase1') + *!* *!* *!* OSETINSTRUM = createobject('SETINSTRUM') + *!* *!* OSETVIZ = createobject('SETRAPID') + *!* *!* OSETVIZ.tbrprim.buton1.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.buton2.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.buton3.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.buton6.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command1.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command2.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command3.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command4.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command5.ENABLED=.T. + + *!* *!* osetviz.show + *!* *!* *!* this.meniu1.Visible = .t. + *!* ENDIF + + *!* DO lansare_toolbar IN oproceduri_comune.prg + + + ENDPROC + + PROCEDURE Init + *!* THISFORM.AUTOCENTER=.T. + + + ENDPROC + + PROCEDURE jurnal + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + if nkeycode==-1 &&F2 + DO IESIRE + endif + + + + ENDPROC + + PROCEDURE RightClick + *!* set safety off + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + *!* ostart.show(1) + *!* do totv + ENDPROC + + PROCEDURE Show + Lparameters nStyle + DoDefault(nStyle) + Do start_firma In ostartfirma.prg + primadata = .F. + verifica_drepturi('gofundal','_pgfrmbase1') + *!* verifica_drepturi('gofundal','_pgfrmbase1') + Do lansare_toolbar In oproceduri_comune.prg + DO lansare_help IN oproceduri_comune.prg + + gofundal.lb_utilizator1.Caption=Alltrim(gcUserNameApp) + gofundal.lb_utilizator1.Visible=.T. + + + ENDPROC + + PROCEDURE Image1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Imagine01.do_actiune + DO viz_parteneri IN onomenclatoare.prg + ENDPROC + + PROCEDURE Imagine02.do_actiune + DO viz_plcont IN onomenclatoare.prg + ENDPROC + + PROCEDURE _pgfrmbase1.Page1.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE _pgfrmbase1.Page2.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE _pgfrmbase1.PAGE3.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE _pgfrmbase1.Page4.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + +ENDDEFINE diff --git a/Ferestre/inchidluni.sc2 b/Ferestre/inchidluni.sc2 new file mode 100644 index 0000000..c991da8 --- /dev/null +++ b/Ferestre/inchidluni.sc2 @@ -0,0 +1,212 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="inchidluni.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + + * + *p: c + * + + * + AutoCenter = .T. + BorderStyle = 3 + c = oo + DoCreate = .T. + Height = 504 + Name = "Ffergen1" + Width = 359 + LINE1.Left = 0 + LINE1.Name = "LINE1" + LINE1.Top = 509 + * + + ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ; + Left = 244, ; + Name = "Cmdtermin1", ; + TabIndex = 3, ; + Top = 463 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Grid1' AS grid WITH ; + BackColor = 254,255,240, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + GridLineColor = 192,192,192, ; + GridLines = 3, ; + Height = 324, ; + Left = 27, ; + Name = "Grid1", ; + Panel = 1, ; + RecordSource = "calendar", ; + TabIndex = 4, ; + Top = 129, ; + Width = 300, ; + ZOrderSet = 1, ; + Column1.Alignment = 0, ; + Column1.BackColor = 254,255,240, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "nl", ; + Column1.Name = "Column1", ; + Column1.Width = 75, ; + Column2.BackColor = 254,255,240, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "an", ; + Column2.Name = "Column2", ; + Column2.Width = 84, ; + Column3.Alignment = 0, ; + Column3.BackColor = 254,255,240, ; + Column3.ControlSource = "smf", ; + Column3.CurrentControl = "Check1", ; + Column3.Name = "Column3", ; + Column3.Sparse = .F., ; + Column3.Width = 81 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ; + Alignment = 0, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ; + Alignment = 0, ; + Caption = "Anul", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column3.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 27, ; + Name = "Check1", ; + Top = 26, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ; + Alignment = 0, ; + Caption = "Luna inchisa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; + BackColor = 254,255,240, ; + BorderStyle = 0, ; + ControlSource = "", ; + ForeColor = 255,255,240, ; + Margin = 0, ; + Name = "Text1", ; + Value = + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .F., ; + Caption = "In continuare datele din aceste luni vor putea fi vizualizate, dar nu si modificate. De asemenea nu vor fi permise noi introduceri de date/documente in aceste luni contabile.", ; + Height = 61, ; + Left = 28, ; + Name = "Label1", ; + TabIndex = 6, ; + Top = 66, ; + Width = 300, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + Caption = "BLOCARE DE LUNA", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 255,255,255, ; + Height = 22, ; + Left = 25, ; + Name = "Label10", ; + TabIndex = 5, ; + Top = 18, ; + Width = 168, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .F., ; + Caption = "Bifati lunile pe care le doriti inchise.", ; + Height = 22, ; + Left = 28, ; + Name = "Label2", ; + TabIndex = 6, ; + Top = 45, ; + Width = 300, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + Height = 492, ; + Left = 11, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 6, ; + Width = 337, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + PROCEDURE Cmdtermin1.Valid + sele calendar + loca for nl=m.nl and an=m.an + luna_inchisa=smf + ENDPROC + +ENDDEFINE diff --git a/Ferestre/startfirma.sc2 b/Ferestre/startfirma.sc2 new file mode 100644 index 0000000..b0beeec --- /dev/null +++ b/Ferestre/startfirma.sc2 @@ -0,0 +1,783 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Name = "Dataenvironment" + * + +ENDDEFINE + +DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" /> + + * + *m: seriadebaza + *p: ttanul + *p: ttfirma + *p: ttluna + * + + * + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 2 + DoCreate = .T. + Height = 474 + Name = "Ffergen1" + Picture = + Width = 500 + WindowType = 1 + Line1.Name = "Line1" + * + + ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ; + Left = 305, ; + Name = "Cmdrenunt1", ; + TabIndex = 12, ; + Top = 432 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ; + Left = 396, ; + Name = "Cmdtermin1", ; + TabIndex = 11, ; + Top = 432 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 255,0,0, ; + BackStyle = 0, ; + Caption = "Bun Venit! ", ; + FontBold = .T., ; + FontItalic = .T., ; + FontName = "Comic Sans MS", ; + FontShadow = .F., ; + FontSize = 18, ; + ForeColor = 255,0,0, ; + Height = 37, ; + Left = 48, ; + Name = "Label1", ; + TabIndex = 24, ; + Top = 60, ; + Width = 128, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "CONT 2003", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 23, ; + ForeColor = 0,0,0, ; + Height = 39, ; + Left = 21, ; + Name = "Label10", ; + TabIndex = 23, ; + Top = 20, ; + Width = 185, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Anul:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 112, ; + Name = "Label11", ; + TabIndex = 16, ; + Top = 403, ; + Width = 44, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Strada:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 94, ; + Name = "Label12", ; + TabIndex = 19, ; + Top = 296, ; + Width = 62, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Numarul:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 80, ; + Name = "Label13", ; + TabIndex = 17, ; + Top = 321, ; + Width = 74, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "CONT 2003", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 23, ; + ForeColor = 0,0,0, ; + Height = 39, ; + Left = 22, ; + Name = "Label2", ; + TabIndex = 13, ; + Top = 18, ; + Width = 185, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Luna contabila:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 30, ; + Name = "Label3", ; + TabIndex = 20, ; + Top = 373, ; + Width = 126, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Cod fiscal:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 71, ; + Name = "Label4", ; + TabIndex = 22, ; + Top = 150, ; + Width = 87, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Nr. Inreg. R.C.:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 32, ; + Name = "Label5", ; + TabIndex = 14, ; + Top = 177, ; + Width = 123, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Banca:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 97, ; + Name = "Label6", ; + TabIndex = 21, ; + Top = 204, ; + Width = 59, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Cont bancar:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 49, ; + Name = "Label7", ; + TabIndex = 15, ; + Top = 230, ; + Width = 106, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Localitatea:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 60, ; + Name = "Label8", ; + TabIndex = 18, ; + Top = 269, ; + Width = 97, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Numele firmei: ", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 42, ; + Name = "Label9", ; + TabIndex = 25, ; + Top = 122, ; + Width = 122, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BackStyle = 0, ; + Height = 458, ; + Left = 10, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 8, ; + Width = 480, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackStyle = 0, ; + Height = 0, ; + Left = 10, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 356, ; + Width = 480, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.cod_fiscal", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text1", ; + ReadOnly = .F., ; + TabIndex = 2, ; + Top = 148, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text10' AS textbox WITH ; + Alignment = 1, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.numar", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text10", ; + ReadOnly = .F., ; + TabIndex = 8, ; + Top = 319, ; + Value = , ; + Width = 102, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.luU", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text2", ; + ReadOnly = .F., ; + TabIndex = 9, ; + ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ; + Top = 371, ; + Value = , ; + Width = 102, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.an", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text3", ; + ReadOnly = .F., ; + TabIndex = 10, ; + ToolTipText = "Introduceti anul (inclusiv secolul).", ; + Top = 401, ; + Value = , ; + Width = 102, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.flung", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text4", ; + ReadOnly = .F., ; + TabIndex = 1, ; + ToolTipText = "Introduceti numele complet al noii firme", ; + Top = 120, ; + Value = , ; + Width = 225, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.reg_com", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text5", ; + ReadOnly = .F., ; + TabIndex = 3, ; + Top = 175, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.banca", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text6", ; + ReadOnly = .F., ; + TabIndex = 4, ; + Top = 202, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text7' AS textbox WITH ; + Alignment = 1, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.cont_banca", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text7", ; + ReadOnly = .F., ; + TabIndex = 5, ; + Top = 228, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text8' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.localitate", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text8", ; + ReadOnly = .F., ; + TabIndex = 6, ; + Top = 267, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text9' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.strada", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text9", ; + ReadOnly = .F., ; + TabIndex = 7, ; + Top = 293, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + *public m.luU,M.FSCURT + m.luU=alltrim(STR(MONTH(DATE()))) + m.luu=right(alltrim('0'+m.luu),2) + + *M.AN=ALLTRIM(STR(YEAR(DATE()))) + M.AN=STR(YEAR(DATE()),4) + m.nl=m.luu + + + ENDPROC + + PROCEDURE seriadebaza + LOCAL SB,SN,I,T,TIPAR + STORE '' TO SB,SN + T=RAND(-1) + *TIPAR='VOICUIONEMIL' + + DO seriadebaza IN proceduri.prg + + + *!* FOR I=1 TO 5 + *!* SB=SB+LITERA() + *!* NEXT + + *!* SELE CUL + *!* REPL RED WITH SB + *!* SN=GREEN + + + *!* IF SUBSTR(SN,3,1)=SUBSTR(SB,1,1) AND; + *!* SUBSTR(SN,6,1)=SUBSTR(SB,2,1) AND; + *!* SUBSTR(SN,9,1)=SUBSTR(SB,3,1) AND; + *!* SUBSTR(SN,12,1)=SUBSTR(SB,4,1) AND; + *!* SUBSTR(SN,15,1)=SUBSTR(SB,5,1) AND; + *!* SUBSTR(SN,VAL(M.NL)+floor((VAL(M.NL)-1)/2),1)=SUBSTR(TIPAR,VAL(M.NL),1) + *!* *DO MESAJ WITH 'Seria este corecta','' + *!* RETURN + *!* ELSE + + *!* FOR I=1 TO 17 + *!* SN=SN+LITERA() + *!* NEXT + + *!* FOR I=1 TO 5 + *!* SN=STUFF(SN, I*3, 1, SUBSTR(SB,I,1)) + *!* NEXT + *!* SN=STUFF(SN, VAL(M.NL)+floor((VAL(M.NL)-1)/2), 1, SUBSTR(TIPAR,VAL(M.NL),1)) + + *!* SELE CUL + *!* REPL GREEN WITH SN + *!* ENDIF + ENDPROC + + PROCEDURE Cmdtermin1.Click + *DO NOT RELEASE + ENDPROC + + PROCEDURE Cmdtermin1.Valid + PUBLIC LAN,LLUN + LOCAL I,J,NI + LAN='AN'+M.AN + LLUN='DATE'+M.NL + I=.F. + + *SCRIE NUMELE SCURT AL FIRMEI___________________ + sele firma + M.firma=upper(alltrim(m.flung)) + M.FSCURT=M.FIRMA + M.fscurt=upper(alltrim(m.fSCURT))+space(7) + M.fscurt=ALLTRIM(LEFT(ALLTRIM(M.fscurt),8)) + M.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________') + + tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+; + 'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+; + '> exista deja! '+; + 'Este important ca primele 8 caractere sa fie diferite de <' + IF LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)!=LEFT(m.fscurt+"________",8) + ttt=LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.fscurt+"________",8)+'>.' + ELSE + ttt=LEFT(m.fscurt+"________",8)+'>.' + endif + + *!* SCAN + *!* IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) OR UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) THEN + *!* I=.T. + *!* omm=crea('textmare') + *!* omm.label2.caption=tt+ttt + *!* omm.show(1) + *!* RETURN + *!* ENDIF + *!* ENDSCAN + SCAN + IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) + I=.T. + omm=crea('textmare') + omm.label2.caption='Numele noii firme nu trebuie sa coincida cu numele altor firme.' + omm.show(1) + RETURN + ENDIF + ENDSCAN + + SCAN + IF UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) + I=.T. + m.fscurt=LEFT(m.fscurt,2)+LEFT(STRTRAN(TIME(),':',''),6) + exit + ENDIF + ENDSCAN + + + + *DACA FIRMA NU EXISTA DEJA_______________ + IF !I + appe blank + NFSCURT=M.FSCURT + m.calefirm=dirgen+'\'+nfscurt + calefirma=m.calefirm + *m.loctempo='C:\CONTAFIN\TEMP\' + GATHER MEMVAR + repl permis with '*' + REPL locTEMPO WITH '&DIRGEN\' + + *CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________ + set defa to c: + if !directory('contafin') + md contafin + endif + set defa to c:\contafin + if !directory('temp') + md temp + endif + set defa to c:\contafin\temp + MD &NFSCURT + set defa to c:\contafin\temp\&nfscurt + md tempo + SET DEFA TO &DIRGEN + + SET DEFA TO &DIRGEN + MD &NFSCURT + CD &NFSCURT + MD DATEAN + MD LUNA + MD TEMPO + MD &LAN + CD &LAN + MD &LLUN + *COPIEZ FISIERELE STANDARD__________________ + close database + SET DEFA TO &DIRGEN + COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.* + COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.* + COPY FILE _ALFA\TEMPO\*.* TO &NFSCURT\TEMPO\*.* + COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.* + COPY FILE _ALFA\TEMPO\*.* TO c:\contafin\temp\&NFSCURT\TEMPO\*.* + + + *SCRIU IN CALENDAR___________________ + DIRFIRM=DIRGEN+NFSCURT + sele 0 + USE &calefirma\DATEAN\CALENDAR alias cal + APPE BLANK + REPL NL WITH M.NL + REPL AN WITH M.AN + REPL SCONT WITH .T. + M.antet=ALLTRIM(M.FLUNG) + + THISFORM.RELEASE + *____________ + ENDIF + + DO TOTV + + THISFORM.SERIADEBAZA + + SELE LUNILEAN + SEEK (M.NL) + M.LUNA=NUMELUNA + + *schimb titlul__________________ + capapl="CONT2000 Firma "+UPPER(rTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN + goApp.SetCaption(capapl) + + + ENDPROC + + PROCEDURE Text2.Valid + m.nl=RIGHT('0'+ALLTRIM(m.lUU),2) + + + + + ENDPROC + + PROCEDURE Text3.Valid + M.AN=ALLTRIM(THIS.VALUE) + + ENDPROC + + PROCEDURE Text4.MouseMove + LPARAMETERS nButton, nShift, nXCoord, nYCoord + ENDPROC + + PROCEDURE Text4.Valid + if alltrim(m.flung)=="" then + wait wind "Introduceti numele firmei!" + return 0 + endif + + ENDPROC + + PROCEDURE Text4.When + *thisform.label8.caption=thisform.ttFIRMA + ENDPROC + +ENDDEFINE diff --git a/Grafice/C.ico b/Grafice/C.ico new file mode 100644 index 0000000..ce97f71 Binary files /dev/null and b/Grafice/C.ico differ diff --git a/Grafice/CHECKMRK.ICO b/Grafice/CHECKMRK.ICO new file mode 100644 index 0000000..2eb7ca6 Binary files /dev/null and b/Grafice/CHECKMRK.ICO differ diff --git a/Grafice/Cont12.ico b/Grafice/Cont12.ico new file mode 100644 index 0000000..c6360c1 Binary files /dev/null and b/Grafice/Cont12.ico differ diff --git a/Grafice/DKCONTRL.DBF b/Grafice/DKCONTRL.DBF new file mode 100644 index 0000000..a81a1cd Binary files /dev/null and b/Grafice/DKCONTRL.DBF differ diff --git a/Grafice/EYE.ICO b/Grafice/EYE.ICO new file mode 100644 index 0000000..b1c65e6 Binary files /dev/null and b/Grafice/EYE.ICO differ diff --git a/Grafice/HLP.BMP b/Grafice/HLP.BMP new file mode 100644 index 0000000..4fbb501 Binary files /dev/null and b/Grafice/HLP.BMP differ diff --git a/Grafice/H_POINT.CUR b/Grafice/H_POINT.CUR new file mode 100644 index 0000000..6d1096b Binary files /dev/null and b/Grafice/H_POINT.CUR differ diff --git a/Grafice/WZSETUP.INI b/Grafice/WZSETUP.INI new file mode 100644 index 0000000..992baa0 --- /dev/null +++ b/Grafice/WZSETUP.INI @@ -0,0 +1,36 @@ +[Preferences] +DistributionDirectory=C:\VFP\DISTRIB\ +DistributionSourceDirectory=C:\VFP\DISTRIB.SRC\ +SourceDirectory=E:\CONT2000\CONTAB\GRAFICE\ +InstallFoxProRuntime=Y +InstallGraph=N +InstallODBCDrivers=N +AccessDriver=Y +FoxPro2xDriver=Y +dBASEDriver=Y +ParadoxDriver=Y +SQLServerDriver=Y +ExcelDriver=Y +TextDriver=Y +OracleDriver=Y +Oracle7Driver=Y +BtrieveDriver=Y +VFPDriver=Y +InstallWindows95=N +InstallWindowsNT=N +DestinationDirectory=E:\CONTSETUP\ +Make1.44MegDisks=N +Make1.2MegDisks=N +Make720KDisks=N +MakeNetsetup=Y +SetupBanner=gr +Copyright=gr +PostExecute= +UserDefaultDirectory=\GRAFICE\ +ProgManGroup=Visual FoxPro Applications +UserCanModify=1 +SplitSize=363520 +FileCustomizationDelimiter=~ +InstRemoteAuto=N +InstActiveX=N + diff --git a/Grafice/cump.bmp b/Grafice/cump.bmp new file mode 100644 index 0000000..7fc19e4 Binary files /dev/null and b/Grafice/cump.bmp differ diff --git a/Grafice/entitati1.bmp b/Grafice/entitati1.bmp new file mode 100644 index 0000000..ca87f68 Binary files /dev/null and b/Grafice/entitati1.bmp differ diff --git a/Grafice/entitati2.bmp b/Grafice/entitati2.bmp new file mode 100644 index 0000000..2928dfb Binary files /dev/null and b/Grafice/entitati2.bmp differ diff --git a/Grafice/plcont1.bmp b/Grafice/plcont1.bmp new file mode 100644 index 0000000..5dbe8c6 Binary files /dev/null and b/Grafice/plcont1.bmp differ diff --git a/Grafice/plcont2.bmp b/Grafice/plcont2.bmp new file mode 100644 index 0000000..23d4e7d Binary files /dev/null and b/Grafice/plcont2.bmp differ diff --git a/Grafice/roadef.bmp b/Grafice/roadef.bmp new file mode 100644 index 0000000..4b7b730 Binary files /dev/null and b/Grafice/roadef.bmp differ diff --git a/Meniuri/blocaredel.mn2 b/Meniuri/blocaredel.mn2 new file mode 100644 index 0000000..8beffad --- /dev/null +++ b/Meniuri/blocaredel.mn2 @@ -0,0 +1,167 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="blocaredel.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + sele calendar + + loca for nl=m.nl and an=m.an + if smf + do mesaj with 'Luna '+m.nl+' '+m.an+' este inchisa!','' + else + oi=crea('danuinchid') + oi.show(1) + if buton=1 + sele calendar + loca for nl=m.nl and an=m.an + repl smf with .t. + luna_inchisa=.t. + endif + endif +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + Store 0 To lnprogram,lnfirma,lncalendar + Store {//} To lddata + Store '' To lcfirma,lcprogram + Store '' To poLista1 + Store '' To poLista2 + Store '' To poLista3 + Store '' To pcselect + */////////////////////////////////////////////////////////////////////////////////// + *----------- + *!* pcSchema=[''] + *!* pcSelect=[select id_program,denumire from contafin_oracle.nom_programe where 1=2] + *!* pcOrder=[denumire] + *!* pcFiltru = [1=1] + *!* llAfiseaza = .F. + *!* gencursor('poLista1','crsprograme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza) + *!* poLista1.ca_baza1.afisare() + *-------- + + lcsql = "select id_program,denumire from contafin_oracle.nom_programe order by denumire" + *STRTOFILE(lcsql,'c:\seleprograme.txt') + lnSucces=goExecutor.oExecute(lcsql,'crsprograme') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + + Select crsprograme + Go Top + lnprogram=id_program + lcprogram=Alltrim(denumire) + */////////////////////////////////////////////////////////////////////////////////// + + + + */////////////////////////////////////////////////////////////////////////////////// + *--------- + *!* pcSchema=[''] + *!* pcSelect=['select id_firma,schema from contafin_oracle.nom_firme ] + *!* pcOrder=[schema] + *!* pcFiltru = [] + *!* llAfiseaza = .F. + *!* gencursor('poLista2','crsfirme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza) + *!* poLista2.ca_baza1.afisare() + *--------- + + lcsql = "select id_firma,schema from contafin_oracle.nom_firme order by firma" + *STRTOFILE(lcsql,'c:\selefirme.txt') + lnSucces=goExecutor.oExecute(lcsql,'crsfirme') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + + Select crsfirme + Go Top + lnfirma=id_firma + lcfirma=Alltrim(schema) + */////////////////////////////////////////////////////////////////////////////////// + + + + + + + */////////////////////////////////////////////////////////////////////////////////// + * se face un update la tabela de blocari + lcsql= " select id_calendar,nl,an from "+lcfirma+".calendar where ( id_calendar not in "+; + " (select id_calendar from "+lcfirma+".blocatprogramluni where id_program ="+Alltrim(Str(lnprogram))+" ) )" + + lnSucces=goExecutor.oExecute(lcsql,'crsplusluni') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + + Select crsplusluni + *brow + If Reccount()>0 + *MESSAGEBOX("intrat in scan ! ") + Scan + lcsql=" insert into "+lcfirma+".blocatprogramluni(id_program,id_calendar,blocat,lunaan)"+; + " values ( "+Alltrim(Str(lnprogram))+","+Alltrim(Str(id_calendar))+",0,"+; + " to_date("+Alltrim(nl)+"||'/'||"+Alltrim(an)+",'mm/yyyy') )" + Strtofile(lcsql,'c:\insertluni.txt') + lnSucces=goExecutor.oExecute(lcsql) + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + Select crsplusluni + Endscan + Endif + + + *----------- + *!* pcSchema=[''] + *!* pcSelect=['select lunaan,blocat from ]+lcfirma+[.blocatprogramluni where 1=2'] + *!* pcOrder=[lunaan] + *!* pcFiltru = [id_program=]+ALLTRIM(STR(lnprogram)) + *!* llAfiseaza = .F. + *!* gencursor('poLista3','crslunian',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza) + *!* poLista.ca_baza1.afisare() + + *----------- + lcsql = " select lunaan,blocat,id_calendar from "+lcfirma+".blocatprogramluni where "+; + " id_program="+Alltrim(Str(lnprogram))+"order by lunaan " + *STRTOFILE(lcsql,'c:\selelunianblocat.txt') + lnSucces=goExecutor.oExecute(lcsql,'crslunian') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + Select crslunian + + */////////////////////////////////////////////////////////////////////////////////// + ovizblocate=Createobject('frm_viz_blocate') + ovizblocate.Show(1) + + + + + + + + +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/calculatoare.mn2 b/Meniuri/calculatoare.mn2 new file mode 100644 index 0000000..018d333 --- /dev/null +++ b/Meniuri/calculatoare.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="calculatoare.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Nomenclator Calculatoare" +ON SELECTION BAR 1 OF Shortcut do def_calculatoare in oproceduri_roadef.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Setari Calculatoare" +ON SELECTION BAR 2 OF Shortcut do set_calculatoare in oproceduri_roadef.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/calend.mn2 b/Meniuri/calend.mn2 new file mode 100644 index 0000000..3ffd5f0 --- /dev/null +++ b/Meniuri/calend.mn2 @@ -0,0 +1,14 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="calend.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR _MST_DIARY OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/coeficientilunari.mn2 b/Meniuri/coeficientilunari.mn2 new file mode 100644 index 0000000..2c4fe7a --- /dev/null +++ b/Meniuri/coeficientilunari.mn2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="coeficientilunari.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Cote TVA" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Plafoane casa" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + lnAn = gnAn + lnLuna = gnLuna + + DO viz_cote_tva WITH gcs,lnAn,lnLuna +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + lnAn = gnAn + lnLuna = gnLuna + + DO viz_plafon_casa WITH gcs,lnAn,lnLuna IN onomenclatoare.prg + *!* oc=crea('coef') + *!* oc.show(1) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/editscurt.mn2 b/Meniuri/editscurt.mn2 new file mode 100644 index 0000000..fded029 --- /dev/null +++ b/Meniuri/editscurt.mn2 @@ -0,0 +1,61 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="editscurt.mnx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR _med_copy OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/entitati.mn2 b/Meniuri/entitati.mn2 new file mode 100644 index 0000000..ceabf97 --- /dev/null +++ b/Meniuri/entitati.mn2 @@ -0,0 +1,29 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="entitati.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO viz_parteneri IN onomenclatoare.prg +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO viz_entitati_conturi IN onomenclatoare.prg +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/firmanoua.mn2 b/Meniuri/firmanoua.mn2 new file mode 100644 index 0000000..295029f --- /dev/null +++ b/Meniuri/firmanoua.mn2 @@ -0,0 +1,323 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="firmanoua.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* ll2=m.nl + *!* aa2=m.an + + *!* do form startfirma + *!* IF buton=2 + *!* m.an=aa2 + *!* m.nl=ll2 + *!* endif +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF__1mj0sbjsk_FB2P + *!* sele act + *!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + *!* sele 0 + *!* use &loc\&nfscurt\tempo\ytemp alias ytemp + *!* sele ytemp + *!* BUTON=1 + *!* mmm=crea('modiffact') + *!* mmm.decare='FURN' + *!* MMM.SHOW(1) + *!* IF BUTON=2 + *!* DO STERGE + *!* USE IN YTEMP + *!* RETURN + *!* ENDIF + + *!* SELE YTEMP + *!* SCAN + *!* SCAT MEMV + *!* SELE ACT + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* SELE ACTan + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* endscan + + *!* USE IN YTEMP + *!* wait wind 'Se inregistreaza in analiticul de furnizori...' nowait + *!* DO TOTV + *!* DO REFBAL + *!* DO REFFURNIZOR + *!* wait wind 'Se inregistreaza in registrul de cumparari...' nowait + *!* DO TOTV + *!* DO REFCUMP + *!* wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait + *!* do totv + *!* DO REFCUMPLUN + *!* DO TOTV + *!* wait clear +ENDPROC && BAR_1_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_2_OF__1mj0sbjsk_FB2P + *!* sele act + *!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + *!* sele 0 + *!* use &loc\&nfscurt\tempo\ytemp alias ytemp + *!* sele ytemp + *!* BUTON=1 + *!* mmm=crea('modiffact') + *!* mmm.decare='CLI' + *!* MMM.SHOW(1) + *!* IF BUTON=2 + *!* DO STERGE + *!* USE IN YTEMP + *!* RETURN + *!* ENDIF + + *!* SELE YTEMP + *!* SCAN + *!* SCAT MEMV + *!* SELE ACT + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* SELE ACTan + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* endscan + + *!* USE IN YTEMP + *!* wait wind 'Se inregistreaza in analiticul de clienti...' nowait + *!* DO TOTV + *!* DO REFBAL + *!* DO REFCLIENTI + *!* wait wind 'Se inregistreaza in registrul de vanzari...' nowait + *!* DO TOTV + *!* DO REFVANZ + *!* wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait + *!* do totv + *!* DO REFVANZLUN + *!* DO TOTV + *!* wait clear +ENDPROC && BAR_2_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_3_OF__1mj0sbjsk_FB2P + *!* LOCAL m.SUM1,M.SUM2,M.SUM3 + + *!* SELECT CREDITOR + *!* SET FILTER TO !DELETED() + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + + *!* SELE BAL + *!* SEEK '462 ' + *!* SCATTER MEMVAR + *!* IF M.SOLDcred # M.SUM3 + *!* do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3 + *!* endif + + + *!* + *!* m.cont='462 ' + *!* cn=m.cont + + *!* SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred; + *!* from CREDITOR where !deleted() ; + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + *!* + *!* * rename column luat TO deb; + *!* * rename column dat TO cred; + + *!* if file('&LOC\&nfscurt\tempo\xtemp.dbf') + *!* sele xtemp + *!* alter table xtemp ADD COLUMN CONT C(4) + *!* repl all cont with m.cont + + *!* sele xtemp + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* OVIZ=CREATEOBJECT("afsitanalitX") + *!* WITH OVIZ + *!* .command5.visible=.f. + *!* .LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI' + *!* .GRID1.COLUMN2.VISIBLE=.F. + *!* .GRID1.COLUMN2.WIDTH=0 + *!* .GRID1.COLUMN8.VISIBLE=.F. + *!* .GRID1.COLUMN8.WIDTH=0 + *!* ENDWITH + *!* OVIZ.SHOW(1) + *!* use in xtemp + *!* endif +ENDPROC && BAR_3_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_4_OF__1mj0sbjsk_FB2P + *!* SELECT debitor + *!* SET FILTER TO !DELETED() + + *!* SELECT debitor + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + *!* SELE BAL + *!* SEEK '461 ' + *!* SCATTER MEMVAR + *!* IF M.SOLDDEB # M.SUM3 + *!* do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3 + *!* endif + + + *!* SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred; + *!* from debitor where !deleted() ; + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + *!* *alter table xtemp; + *!* * rename column luat TO DEB; + *!* * rename column dat TO CRED; + + *!* sele xtemp + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit' + *!* use in xtemp +ENDPROC && BAR_4_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_5_OF__1mj0sbjsk_FB2P + *!* local m.sum1,m.sum2,m.sum3 + *!* set safety off + + *!* SELECT ACHIT542 + *!* SET FILTER TO !DELETED() + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + + *!* SELE BAL + *!* SEEK '542 ' + *!* SCATTER MEMVAR + *!* IF M.SOLDDEB # M.SUM3 + + *!* ot=createobj('textval') + *!* ot.label2.caption= 'Diferenta soldului este de: ' + *!* ot.valoare=M.SOLDDEB-M.SUM3 + *!* ot.show(1) + *!* ENDIF + + *!* m.cont='542 ' + *!* cn=m.cont + *!* + *!* SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred; + *!* from achit542 where !deleted(); + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + + *!* ** rename column nume_2 TO nume; + *!* * rename column luat TO deb; + *!* * rename column dat TO cred; + *!* + *!* if file('&LOC\&nfscurt\tempo\xtemp.dbf') + *!* sele xtemp + *!* alter table xtemp ADD COLUMN CONT C(4) + *!* repl all cont with m.cont + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* OVIZ=CREATEOBJECT("afsitanalitX") + *!* WITH OVIZ + *!* .command5.visible=.f. + *!* .LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI' + *!* .GRID1.COLUMN2.VISIBLE=.F. + *!* .GRID1.COLUMN2.WIDTH=0 + *!* .GRID1.COLUMN8.VISIBLE=.F. + *!* .GRID1.COLUMN8.WIDTH=0 + *!* ENDWITH + *!* OVIZ.SHOW(1) + *!* use in xtemp + *!* endif +ENDPROC && BAR_5_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_6_OF__1mj0sbjsk_FB2P + *!* SELECT actionar + *!* SET FILTER TO !DELETED() + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + *!* + + *!* SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred; + *!* from actionar where !deleted() ; + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + *!* *alter table xtemp; + *!* * rename column luat TO deb; + *!* * rename column dat TO cred; + + *!* sele xtemp + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat' + *!* use in xtemp +ENDPROC && BAR_6_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_3_OF__1mj0sbbn6_FB2P + *!* sele bal + *!* do form afisbalx +ENDPROC && BAR_3_OF__1mj0sbbn6_FB2P + +* diff --git a/Meniuri/impozitar.mn2 b/Meniuri/impozitar.mn2 new file mode 100644 index 0000000..1f7884a --- /dev/null +++ b/Meniuri/impozitar.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="impozitar.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Lunar" +ON SELECTION BAR 1 OF Shortcut do impozit_luna with .f. in oproceduri_roadef_sal.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Anual" +ON SELECTION BAR 2 OF Shortcut do impozit_luna with .t. in oproceduri_roadef_sal.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/listenomenclatoare.mn2 b/Meniuri/listenomenclatoare.mn2 new file mode 100644 index 0000000..250c843 --- /dev/null +++ b/Meniuri/listenomenclatoare.mn2 @@ -0,0 +1,85 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listenomenclatoare.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO VIZ_FDOC IN ONOMENCLATOARE.PRG +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO viz_sucursale IN ONOMENCLATOARE.PRG +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + DO viz_sectii IN ONOMENCLATOARE.PRG +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_4_OF_Shortcut_FB2P + DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_4_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + DO viz_venchel IN onomenclatoare.prg +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + DO viz_lucrari IN onomenclatoare.prg +ENDPROC && BAR_6_OF_Shortcut_FB2P + +PROCEDURE BAR_7_OF_Shortcut_FB2P + DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_7_OF_Shortcut_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + DO VIZ_JUDETE IN ONOMENCLATOARE.PRG +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_10_OF_Shortcut_FB2P + DO viz_valute IN onomenclatoare.prg +ENDPROC && BAR_10_OF_Shortcut_FB2P + +* diff --git a/Meniuri/nomenclatoare.mn2 b/Meniuri/nomenclatoare.mn2 new file mode 100644 index 0000000..b888efb --- /dev/null +++ b/Meniuri/nomenclatoare.mn2 @@ -0,0 +1,75 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="nomenclatoare.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Nomenclator deduceri" +ON SELECTION BAR 1 OF Shortcut do nom_limded in oproceduri_roadef_sal.prg + +DEFINE BAR 2 OF Shortcut PROMPT "\-=" +ON BAR 2 OF Shortcut ACTIVATE POPUP _1js0sa0gs + + *---------------------------------- + DEFINE POPUP _1js0sa0gs SHORTCUT RELATIVE +DEFINE BAR 3 OF Shortcut PROMPT "Sectii" +ON SELECTION BAR 3 OF Shortcut DO viz_sectii IN onomenclatoare.prg + +DEFINE BAR 4 OF Shortcut PROMPT "Formatii" +ON SELECTION BAR 4 OF Shortcut do nom_formatii in oproceduri_roadef_sal.prg + +DEFINE BAR 5 OF Shortcut PROMPT "Meserii" +ON SELECTION BAR 5 OF Shortcut do nom_meserii in oproceduri_roadef_sal.prg + +DEFINE BAR 6 OF Shortcut PROMPT "Transe" +ON SELECTION BAR 6 OF Shortcut do nom_transe in oproceduri_roadef_sal.prg + +DEFINE BAR 7 OF Shortcut PROMPT "Clase de salarizare" +ON SELECTION BAR 7 OF Shortcut do nom_clasesal in oproceduri_roadef_sal.prg + +DEFINE BAR 8 OF Shortcut PROMPT "Tipuri de contract" +ON SELECTION BAR 8 OF Shortcut do nom_tipctr in oproceduri_roadef_sal.prg + +DEFINE BAR 9 OF Shortcut PROMPT "Cursuri de calificare" +ON SELECTION BAR 9 OF Shortcut do nom_curscal in oproceduri_roadef_sal.prg + +DEFINE BAR 10 OF Shortcut PROMPT "\-" +ON BAR 10 OF Shortcut ACTIVATE POPUP _1iy0x213n + + *---------------------------------- + DEFINE POPUP _1iy0x213n SHORTCUT RELATIVE +DEFINE BAR 11 OF Shortcut PROMPT "Grupe de munca" +ON SELECTION BAR 11 OF Shortcut do nom_grpmun in oproceduri_roadef_sal.prg + +DEFINE BAR 12 OF Shortcut PROMPT "Grad handicap" +ON SELECTION BAR 12 OF Shortcut do nom_grdhand in oproceduri_roadef_sal.prg + +DEFINE BAR 13 OF Shortcut PROMPT "Tipuri intretinere" +ON SELECTION BAR 13 OF Shortcut do nom_tipintret in oproceduri_roadef_sal.prg + +DEFINE BAR 14 OF Shortcut PROMPT "Case de asigurari" +ON SELECTION BAR 14 OF Shortcut do caseasig in oproceduri_roadef_sal.prg + +DEFINE BAR 15 OF Shortcut PROMPT "\-" +ON BAR 15 OF Shortcut ACTIVATE POPUP _1iy0x213o + + *---------------------------------- + DEFINE POPUP _1iy0x213o SHORTCUT RELATIVE +DEFINE BAR 16 OF Shortcut PROMPT "Grila sporuri de vechime" +ON SELECTION BAR 16 OF Shortcut do nom_tabvechimi in oproceduri_roadef_sal.prg + +DEFINE BAR 17 OF Shortcut PROMPT "Grila zile CO" +ON SELECTION BAR 17 OF Shortcut do nom_grilaco in oproceduri_roadef_sal.prg + +DEFINE BAR 18 OF Shortcut PROMPT "Nomenclator ore" +ON SELECTION BAR 18 OF Shortcut do nom_ore in oproceduri_roadef_sal.prg + +DEFINE BAR 19 OF Shortcut PROMPT "Tipuri CM" +ON SELECTION BAR 19 OF Shortcut do nom_tipcm in oproceduri_roadef_sal.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/optiuni.mn2 b/Meniuri/optiuni.mn2 new file mode 100644 index 0000000..adba02f --- /dev/null +++ b/Meniuri/optiuni.mn2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Optiuni \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO viz_optiuni IN oinit_optiuni.prg WITH gcs +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO viz_optiuni WITH gcS IN oinit_optiuni.prg +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + LLL = GCS + DO viz_exceptii WITH lll +ENDPROC && BAR_3_OF_Shortcut_FB2P + +* diff --git a/Meniuri/rapoarte.mn2 b/Meniuri/rapoarte.mn2 new file mode 100644 index 0000000..39dcc88 --- /dev/null +++ b/Meniuri/rapoarte.mn2 @@ -0,0 +1,24 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="rapoarte.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Organizarea punctului de lucru" +ON SELECTION BAR 1 OF Shortcut do list_utilizatori in oproceduri_roadef.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Organizarea calculatoarelor" +ON SELECTION BAR 2 OF Shortcut do list_calculatoare in oproceduri_roadef.prg + +DEFINE BAR 3 OF Shortcut PROMPT "Organizarea gestiunilor" +ON SELECTION BAR 3 OF Shortcut do list_gestiuni in oproceduri_roadef.prg + +DEFINE BAR 4 OF Shortcut PROMPT "Organizarea utilizatorilor" +ON SELECTION BAR 4 OF Shortcut do list_org_util in oproceduri_roadef.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/roadef.mn2 b/Meniuri/roadef.mn2 new file mode 100644 index 0000000..c4cad58 --- /dev/null +++ b/Meniuri/roadef.mn2 @@ -0,0 +1,134 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="roadef.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\.' + +DEFINE PAD _000000003 OF _msysmenu PROMPT "A\ + +* +PROCEDURE BAR_1_OF_Utile_FB2P + *!* do form start00 + DO start_firma IN ostartfirma.prg +ENDPROC && BAR_1_OF_Utile_FB2P + +PROCEDURE BAR_3_OF_Utile_FB2P + Do apeleaza_calc In oproceduri_comune.prg +ENDPROC && BAR_3_OF_Utile_FB2P + +PROCEDURE BAR_4_OF_Utile_FB2P + Do apeleaza_notepad In oproceduri_comune.prg +ENDPROC && BAR_4_OF_Utile_FB2P + +PROCEDURE BAR_6_OF_Utile_FB2P + ies=.t. + + DO IESIRE + +ENDPROC && BAR_6_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + Do arata_manual In oproceduri_comune.prg +ENDPROC && BAR_1_OF_Ajutor_FB2P + +PROCEDURE BAR_3_OF_Ajutor_FB2P + DO arata_modificari IN oproceduri_comune.prg +ENDPROC && BAR_3_OF_Ajutor_FB2P + +PROCEDURE BAR_4_OF_Ajutor_FB2P + DO arata_versiune IN oproceduri_comune.prg +ENDPROC && BAR_4_OF_Ajutor_FB2P + +* diff --git a/Meniuri/utilizatori.mn2 b/Meniuri/utilizatori.mn2 new file mode 100644 index 0000000..63ecdc3 --- /dev/null +++ b/Meniuri/utilizatori.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="utilizatori.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Grupuri Utilizatori" +ON SELECTION BAR 1 OF Shortcut do grupuri_util in oproceduri_roadef.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Utilizatorii companiei" +ON SELECTION BAR 2 OF Shortcut do util_rol_intern in oproceduri_roadef.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Programe/1proverb.prg b/Programe/1proverb.prg new file mode 100644 index 0000000..1b90d6b --- /dev/null +++ b/Programe/1proverb.prg @@ -0,0 +1,107 @@ + +WAIT WIND 'Se genereaza raportul. Asteptati...' nowait +SET SAFETY OFF +COPY FILE &DIRGEN\DEVIZE\DATE\TEMPO\PROVERB.* TO &LOC\&NFSCURT\TEMPO\PROVERB.* + +SELE 0 +USE &LOC\&NFSCURT\TEMPO\PROVERB EXCL ALIAS PROVERB +sele proverb +zap + +public m.g,m.nrinmat,m.tipauto +LOCAL M.DENUMIRE,M.CODMAT,M.CODFURN,M.CANT,M.PRET +STORE '' TO M.DENUMIRE,M.CODMAT,M.CODFURN,m.tipauto +STORE ' ' TO m.nrinmat +STORE 0 TO M.CANT,M.PRET,m.g +sele rul +set filter to subs(nrord,1,1)='G' +SCAN +m.nrord = nrord +M.DENUMIRE = DENUMIRE +M.CODMAT=CODMAT +M.CODFURN=EXP4 +M.CANT=CANTE +M.PRET=PRETV +m.fel = 'A' +do nrcirc +SELE PROVERB +APPE BLANK +GATHER MEMVAR +SELE RUL +ENDSCAN +sele OPER +set filter to subs(nrord,1,1)='G' +SCAN +m.nrord = nrord +M.DENUMIRE = DENOP +M.CODMAT=CODOP +M.CODFURN=codfurn +M.CANT=TIMPN +M.PRET=PRET +m.fel = 'B' +do nrcirc +sele oper +SELE PROVERB +APPE BLANK +GATHER MEMVAR +SELE OPER +ENDSCAN +sele proverb +set order to tag codfel +TOTAL ON DENUMIRE+STR(PRET,10) FIELDS CANT TO &LOC\&NFSCURT\TEMPO\PROVERB1 +SELE 0 +*USE C:\CONTAFIN\AUTOSTAL\TEMPO\PROVERB1 +USE &LOC\&NFSCURT\TEMPO\PROVERB1 +************** +INDEX ON TIPAUTO+CODFURN+DENUMIRE+STR(PRET,10) to &LOC\&NFSCURT\TEMPO\PROVERB1 +*************** +report format proverb TO PRINTER PROMPT preview +USE IN PROVERB +USE IN PROVERB1 +RETURN +************* +procedure nrcirc +m.g=1 +m.tipauto='' +m.nrinmat='' +do case + case subs(nrord,1,1)='/' + m.g=2 + case subs(nrord,2,1)='/' + m.g=3 + case subs(nrord,3,1)='/' + m.g=4 + case subs(nrord,4,1)='/' + m.g=5 + case subs(nrord,5,1)='/' + m.g=6 + case subs(nrord,6,1)='/' + m.g=7 + case subs(nrord,7,1)='/' + m.g=8 + case subs(nrord,8,1)='/' + m.g=9 + case subs(nrord,9,1)='/' + m.g=10 + case subs(nrord,10,1)='/' + m.g=11 + case subs(nrord,11,1)='/' + m.g=12 + case subs(nrord,12,1)='/' + m.g=13 + case subs(nrord,13,1)='/' + m.g=14 + case subs(nrord,14,1)='/' + m.g=15 + case subs(nrord,15,1)='/' + m.g=16 +endcase +m.nrinmat = subs(nrord,m.g,20-m.g) +sele masini +loca for ALLT(m.nrinmat) = ALLT(nrinmat) +if found() +m.tipauto = masina +else +m.tipauto='' +endif +return \ No newline at end of file diff --git a/Programe/actualizari.prg b/Programe/actualizari.prg new file mode 100644 index 0000000..a071f76 --- /dev/null +++ b/Programe/actualizari.prg @@ -0,0 +1,270 @@ + + +SELE CALENDAR +M=4*RECCOUNT()+4 +OP=CREA('PROGRESBAR') +op.titlu.caption='Actualizari' +OP.SHOW() + + + +close database +IF !USED('FISTOTVdev') + do deschidf with '&dirgen\devize\date\datean\','&dirgen\devize\date\datean\','fistotvdev','fistotv','CALE','' +ENDIF + +sele 0 +use &calefirma\datean\calendar alias calendar +sele calendar +J=0 +scan +scatter memvar +date=calefirma+'\AN'+m.an+'\DATE'+M.nl +if file('&date\oper.dbf') +*DO PR WITH J +*do pfactura +DO PR WITH J +do pordl +DO PR WITH J +do poper +DO PR WITH J +do popersal +DO PR WITH J +do psalarii +endif +endscan +*** +DO PR WITH J +do pclie +DO PR WITH J +DO PSECTIE +DO PR WITH J +DO PMECANICI +DO PR WITH J +do pmasini +DO PR WITH J +DO PMARCI +OP.RELEASE +RETURN + + + + +*____________________________________________ +procedure pfactura +dele file &date\facturaa.* +dele file &date\facturav.* +copy file &dirgen\devize\date\date00\factura.* to &date\facturaa.* +sele 0 +use &date\facturaa.dbf AGAIN ALIAS facturaa exclusive +sele facturaa +zap +sele facturaa +append from &date\factura +sele facturaa +reindex +use +rename &date\factura.* to &date\facturav.* +rename &date\facturaa.* to &date\factura.* +*do refRULL +return + +*____________________________________________ +procedure psalarii +dele file &date\salariia.* +dele file &date\salariiv.* +copy file &dirgen\devize\date\date00\salarii.* to &date\salariia.* +sele 0 +use &date\salariia.dbf AGAIN ALIAS salariia exclusive +sele salariia +zap +sele salariia +append from &date\salarii +sele salariia +reindex +use +rename &date\salarii.* to &date\salariiv.* +rename &date\salariia.* to &date\salarii.* +*do refRULL +return + +*____________________________________________ +procedure pordl +dele file &date\ordla.* +dele file &date\ordlv.* +copy file &dirgen\devize\date\date00\ordl.* to &date\ordla.* +sele 0 +use &date\ordla.dbf AGAIN ALIAS ordla exclusive +sele ordla +zap +sele ordla +append from &date\ordl +sele ordla +reindex +use +rename &date\ordl.* to &date\ordlv.* +rename &date\ordla.* to &date\ordl.* +&&&&&&do refact +return + + +*____________________________________________ +procedure poper +dele file &date\opera.* +dele file &date\operv.* +copy file &dirgen\devize\date\date00\oper.* to &date\opera.* +sele 0 +use &date\opera.dbf AGAIN ALIAS opera exclusive +sele opera +zap +sele opera +append from &date\oper +sele opera +reindex +use +rename &date\oper.* to &date\operv.* +rename &date\opera.* to &date\oper.* + +return + +*____________________________________________ +procedure popersal +dele file &date\opersala.* +dele file &date\opersalv.* +copy file &dirgen\devize\date\date00\opersal.* to &date\opersala.* +sele 0 +use &date\opersala.dbf AGAIN ALIAS opersala exclusive +sele opersala +zap +sele opersala +append from &date\opersal +sele opersala +reindex +use +rename &date\opersal.* to &date\opersalv.* +rename &date\opersala.* to &date\opersal.* + +return + + +*______________________________________________________________ +procedure pclie +dele file &calefirma\datean\cliea.* +dele file &calefirma\datean\cliev.* +copy file &dirgen\devize\date\datean\clie.* to &calefirma\datean\cliea.* +sele 0 +use &calefirma\datean\cliea.dbf AGAIN ALIAS cliea exclusive +sele cliea +zap +sele cliea +append from &calefirma\datean\clie +sele cliea +reindex +use + +rename &calefirma\datean\clie.* to &calefirma\datean\cliev.* +rename &calefirma\datean\cliea.* to &calefirma\datean\clie.* +*DO refRUL +return + +*______________________________________________________________ +procedure pSECTIE +dele file &calefirma\datean\SECTIEa.* +dele file &calefirma\datean\SECTIEv.* +copy file &dirgen\devize\date\datean\SECTIE.* to &calefirma\datean\SECTIEa.* +sele 0 +use &calefirma\datean\SECTIEa.dbf AGAIN ALIAS SECTIEa exclusive +sele SECTIEa +zap +sele SECTIEa +append from &calefirma\datean\SECTIE +sele SECTIEa +reindex +use + +rename &calefirma\datean\SECTIE.* to &calefirma\datean\SECTIEv.* +rename &calefirma\datean\SECTIEa.* to &calefirma\datean\SECTIE.* +*DO refRUL +return + +*______________________________________________________________ +procedure pMECANICI +dele file &calefirma\datean\MECANICIa.* +dele file &calefirma\datean\MECANICIv.* +copy file &dirgen\devize\date\datean\MECANICI.* to &calefirma\datean\MECANICIa.* +sele 0 +use &calefirma\datean\MECANICIa.dbf AGAIN ALIAS MECANICIa exclusive +sele MECANICIa +zap +sele MECANICIa +append from &calefirma\datean\MECANICI +sele MECANICIa +reindex +use + +rename &calefirma\datean\MECANICI.* to &calefirma\datean\MECANICIv.* +rename &calefirma\datean\MECANICIa.* to &calefirma\datean\MECANICI.* +*DO refRUL +return + + + + +*______________________________________________________________ +procedure pmasini +dele file &calefirma\datean\masinia.* +dele file &calefirma\datean\masiniv.* +copy file &dirgen\devize\date\datean\masini.* to &calefirma\datean\masinia.* +sele 0 +use &calefirma\datean\masinia.dbf AGAIN ALIAS masinia exclusive +sele masinia +zap +sele masinia +append from &calefirma\datean\masini +sele masinia +reindex +use + +rename &calefirma\datean\masini.* to &calefirma\datean\masiniv.* +rename &calefirma\datean\masinia.* to &calefirma\datean\masini.* +return + +*______________________________________________________________ +procedure pMARCI +dele file &calefirma\datean\MARCIa.* +dele file &calefirma\datean\MARCIv.* +copy file &dirgen\devize\date\datean\MARCI.* to &calefirma\datean\MARCIa.* +sele 0 +use &calefirma\datean\MARCIa.dbf AGAIN ALIAS MARCIa exclusive +sele MARCIa +zap +sele MARCIa +append from &calefirma\datean\MARCI +sele MARCIa +reindex +use + +rename &calefirma\datean\MARCI.* to &calefirma\datean\MARCIv.* +rename &calefirma\datean\MARCIa.* to &calefirma\datean\MARCI.* +return + + + +*____________________________________ +PROC PR +PARAM J +IF J>M +RETURN +ENDIF +OP.PRBAR.VALUE=J +OP.P=ROUND(100*OP.PRBAR.VALUE/OP.PRBAR.MAX,2) +OP.REFRESH +J=J+1 +RETURN + + + + + + + diff --git a/Programe/genhtml.dbf b/Programe/genhtml.dbf new file mode 100644 index 0000000..d357b9a Binary files /dev/null and b/Programe/genhtml.dbf differ diff --git a/Programe/genhtml.fpt b/Programe/genhtml.fpt new file mode 100644 index 0000000..3f89f2d Binary files /dev/null and b/Programe/genhtml.fpt differ diff --git a/Programe/mesaje.prg b/Programe/mesaje.prg new file mode 100644 index 0000000..db77adf --- /dev/null +++ b/Programe/mesaje.prg @@ -0,0 +1,43 @@ +*_________________________________________ +PROCEDURE anunta_rezultat + LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, llInTabel, lnId_ref + IF llInTabel + scrie_in_mesaje(lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref) + ELSE + DO mesaj With lcMesaj, '' + ENDIF +ENDPROC + +PROCEDURE scrie_in_mesaje + LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref + LOCAL lnOrdine + SELECT mesaje + CALCULATE MAX(ordine) TO m.lnOrdine + m.lnOrdine = m.lnOrdine + 1 + APPEND BLANK + replace ordine WITH m.lnOrdine, sursa WITH lcSursa, mesaj WITH lcMesaj, ; + eroare WITH llEroare, categorie WITH lcCategorie, id_ref WITH lnId_ref +ENDPROC + +PROCEDURE sterge_mesaje + ZAP IN mesaje +ENDPROC + +PROCEDURE raport_mesaje + PARAMETERS tcPerioada + PRIVATE pcTitlu,pcPerioada,pcDataOra +*!* PRIVATE toFirma +*!* SELECT FIRMA +*!* LOCATE FOR NFSCURT=FSCURT +*!* SCATTER NAME m.toFirma +*!* SELECT mesaje +*!* IF RECNO() > 0 +*!* SET ORDER TO ordine +*!* REPORT FORM mesaje TO PRINTER PROMPT PREVIEW +*!* ENDIF + pcTitlu=[VERIFICARE GLOBALA] + pcPerioada=[Perioada ] + pcdataora = get_ora(2) + SELECT crsverificari + REPORT FORM rap_mesaje TO PRINTER PROMPT preview +ENDPROC \ No newline at end of file diff --git a/Programe/oparteneri.prg b/Programe/oparteneri.prg new file mode 100644 index 0000000..5d7ecaa --- /dev/null +++ b/Programe/oparteneri.prg @@ -0,0 +1,687 @@ + +*!* 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 ---------------------------------- + diff --git a/Programe/oproceduri_app.prg b/Programe/oproceduri_app.prg new file mode 100644 index 0000000..b291cd5 --- /dev/null +++ b/Programe/oproceduri_app.prg @@ -0,0 +1,196 @@ +Define Class gridDinamic As Grid + Visible = .T. + DeleteMark = .F. + RecordMark = .F. + HighlightStyle = 2 + SplitBar = .F. +Enddefine + + +Define Class pornesteLans As Session + + Procedure text1DblClick + This.lans(crsSets_categorii.id_set) + Endproc + + Procedure text1KeyPress + Parameters nKeyCode, nShiftAltCtrl + If nKeyCode = 13 + This.lans(crsSets_categorii.id_set) + Endif + Endproc + + Procedure lans + Parameters tnId_set + Set DataSession To 1 + Private pl_verificat + pl_verificat = .F. + Private _program + _program = 'cont' + Local lcSql, lnSucces, lnLinii, lnLiniiReq + + lcSql = [select r.valoare_default,r.id_item,i.camp_lista, i.id_fisier,pack_util.GetText(i.fis_lista,] + ; + [i.id_fisier, to_number(r.valoare_default), replace(i.camp_lista, ',' , ' || '' '' || ')) ] + ; + [as valoare_default_text, i.var_item ] + ; + [from xrequest r ] + ; + [join xitems i on i.id_item = r.id_item ] + ; + [where r.id_set = ?tnId_set and r.valoare_default is not null ] + + lnSucces = goExecutor.oExecute(lcSql, [crsRequest]) + If lnSucces < 0 + Messagebox([Eroare]) + Return + Endif + lnLiniiReq = Reccount("crsRequest") * 2 + If lnLiniiReq = 0 + Messagebox([Nu exista note predefinite pentru aceasta categorie]) + Return + Endif + lcSql = [select n.cont,n.id_part,n.id_set, p.nume, n.tip ] + ; + [ from (select n1.xscd as cont, n1.id_partd as id_part, n1.id_set, 'D' as tip ] + ; + [ from xnote n1 ] + ; + [ where nvl(n1.id_partd, 0) <> 0 and n1.id_set = ?tnId_Set ] + ; + [ union ] + ; + [ select n2.xscc as cont, n2.id_partc as id_part, n2.id_set, 'C' as tip ] + ; + [ from xnote n2 ] + ; + [ where nvl(n2.id_partc, 0) <> 0 and n2.id_set = ?tnId_Set ) n ] + ; + [ join nom_parteneri p on n.id_part = p.id_part] + lnSucces = goExecutor.oExecute(lcSql,[crsNumePartener]) + If lnSucces<0 + amessagebox(goExecutor.ceroare,0+16,[Eroare]) + Return + Endif + lnLinii = Reccount("crsNumePartener") * 2 + + Dimension laValori(lnLiniiReq + lnLinii,4) + + Select crsRequest + i = 1 + + Scan + laValori(i,1) = "poAct." + Allt(Nvl(crsRequest.id_fisier,[])) + laValori(i,2) = Allt(Nvl(crsRequest.valoare_default,[])) + laValori(i,3) = .F. + laValori(i,4) = .T. + + laValori(i+1,1) = "poAct." + Allt(Nvl(crsRequest.var_item,[])) + laValori(i+1,2) = Alltrim(Nvl(crsRequest.valoare_default_text,[])) + laValori(i+1,3) = .F. + laValori(i+1,4) = .T. + i = i + 2 + Endscan + + Select crsNumePartener + Scan + laValori(i,1) = "poact.id_vv" + Alltrim(Nvl(crsNumePartener.Cont,[])) + ; + IIF(INLIST(LEFT(cont,2),'51','53'),IIF(tip = 'D' ,'0','1'),'') + laValori(i,2) = Alltrim(Str(Nvl(crsNumePartener.id_part,0))) + laValori(i,3) = !Empty(Nvl(crsNumePartener.id_part,0)) + laValori(i,4) = .T. + + laValori(i+1,1) = "poact.v" + Alltrim(crsNumePartener.Cont)+ ; + IIF(INLIST(LEFT(cont,2),'51','53'),IIF(tip = 'D' ,'0','1'),'') + laValori(i+1,2) = Alltrim(Nvl(crsNumePartener.nume,[])) + laValori(i+1,3) = !Empty(Nvl(crsNumePartener.id_part,0)) + laValori(i+1,4) = .T. + i = i + 2 + Endscan + + Select xsets + If Seek(tnId_set,"xsets") + Scatter Name loxset + If loxset.aleg_cont + Private pcACN, cn, cn2, pcACN2 + Store '' To pcACN, cn, cn2, pcACN2 + Endif + Endif + + lans(tnId_set,.T.,.T.,@laValori) + Use In (Select("crsNumePart")) + Use In (Select("crsRequest")) + Endproc +Enddefine + +*********************************** incaseaza_monetar_50505 *************************** +Procedure incaseaza_monetar_50505 + + Private pl_verificat + pl_verificat = .F. + + Local lnRaspuns, loIm + Private pcCont1, pcAcont1, pcCont2, pcAcont2 + Private pcACN, cn, cn2, pcACN2, loCont, loCont2, _program + _program = 'cont' + lnRaspuns = 6 + Do While lnRaspuns = 6 + Store '' To pcACN, cn, cn2, pcACN2 + loCont = ret_cont("Selectati contul",'704,707') + If gnButon = 2 + lnRaspuns = 7 + Else + pcCont1=loCont.Cont + pcAcont1=loCont.Acont + + loCont2=ret_cont("Selectati contul",'4111') + If gnButon = 2 + lnRaspuns = 7 + Else + pcCont2=loCont2.Cont + pcAcont2=loCont2.Acont + + Do update_jtva_coloane With [JV] + + Create Cursor crsIncasare_monetar (serie c(15),id_part N(10),nr_factura N(14), ; + nr_incasare N(14), numeclient c(60), valctva N(17,gnPa), valftva N(17,gnPa), ; + valtva N(17,gnPa), id_jtva_coloana i(4),cota_tva N(2)) + Select crsIncasare_monetar + + loIm = Createobject('frm_incasare_monetar_50505') + loIm.Show(1) + If Used('crsIncasare_monetar') + Use In crsIncasare_monetar + Endif + + If Used('actactan_o') + Use In actactan_o + Endif + Endif + Endif + + If lnRaspuns <> 7 + lnRaspuns = amessagebox('Doriti sa continuati cu operatii de acest fel?',4+32,"Confirmare") + Endif + Enddo +* Release lnRaspuns,pcCont1,pcAcont1,pcCont2,pcAcont2 + +Endproc && incaseaza_monetar_50505 *************************** + +************* incaseaza_monetar ********************************* +Procedure incaseaza_monetar + Local loIm, lnRaspuns + Private pl_verificat + pl_verificat = .F. + Private pcCont1, pcAcont1, pcCont2, pcAcont2 + Private pcACN, cn, cn2, pcACN2, loCont, loCont2, _program + + lnRaspuns = 6 + Do While lnRaspuns = 6 + + Do update_jtva_coloane With [JV] + + Create Cursor crsIncasare_monetar (serie c(15),id_part N(10),nr_factura N(14), ; + nr_incasare N(14), numeclient c(60), valctva N(17,gnPa), valftva N(17,gnPa), ; + valtva N(17,gnPa), id_jtva_coloana i(4),cota_tva N(2)) + Select crsIncasare_monetar + + loIm = Createobject('frm_incasare_monetar') + loIm.Show(1) + If Used('crsIncasare_monetar') + Use In crsIncasare_monetar + Endif + If lnRaspuns <> 7 + lnRaspuns = amessagebox('Doriti sa continuati cu operatii de acest fel?',4+32,"Confirmare") + Endif + Enddo + +Endproc && incaseaza_monetar ^^ ********************************* \ No newline at end of file diff --git a/Programe/oproceduri_registretva.prg b/Programe/oproceduri_registretva.prg new file mode 100644 index 0000000..8881db0 --- /dev/null +++ b/Programe/oproceduri_registretva.prg @@ -0,0 +1,57 @@ +****************************************************************** +PROCEDURE listare_registru_tva +LPARAMETERS tcRegistru + + pcRegistru = UPPER(ALLTRIM(tcRegistru)) + DO CASE + CASE 'VANZ'$pcRegistru + pcContTVA = [4427] + pcListaContTVA = [411,4111,4112,4113,4114,4115,4116,4117,461,635,5311,5121,428,4281,4282,4426,4428] + pcListaContBaza = [411,4111,4112,4113,4114,4115,4116,4117,461,428,4281,4282] + pcListaContExceptii = [667,419] + OTHERWISE + pcContTVA = [4426] + pcListaContTVA = [401,404,5121,5124,542,4427,4428] + pcListaContBaza = [401,404] + pcListaContExceptii = [767] + ENDCASE + + + lcSql = [{call PACK_REGISTRE_TVA.REGISTRUTVA(?gcS, ?gnAn, ?gnLuna, ] + ; + [?pcRegistru, ?pcContTVA, ?pcListaContTVA, ?pcListaContBaza, ?pcListaContExceptii )}] + lcCursor = 'crsRegistruTemp' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces < 0 + AMESSAGE(goExecutor.cEroare,0+16,"Eroare") + ELSE + + SELECT nract, dataact, PART AS nume, cod_fiscal, fdoc, baza, proc_tva, tva, baza + tva as totctva, 00000000000.0000 as total ; + FROM crsRegistruTemp ; + INTO CURSOR crsRegistru ; + READWRITE ORDER BY nract, dataact, nume + USE IN crsRegistruTemp + + SELECT nract, dataact, nume,sum(totctva) as total ; + from crsRegistru ; + INTO CURSOR tgrup ; + GROUP BY nract, dataact, nume + + SELECT tgrup + SCAN + SCATTER NAME ot + SELECT crsRegistru + LOCATE FOR nume = ot.nume AND nract = ot.nract AND dataact = ot.dataact + IF FOUND() + REPLACE total WITH ot.total + ENDIF + SELECT tgrup + ENDSCAN + USE IN tgrup + + SELECT crsRegistru + REPORT FORM registru_tva_simplu TO PRINTER PROMPT PREVIEW + USE IN crsRegistru + ENDIF +ENDPROC + +****************************************************************** \ No newline at end of file diff --git a/Programe/oproceduri_roadef_sal.prg b/Programe/oproceduri_roadef_sal.prg new file mode 100644 index 0000000..cf01f5a --- /dev/null +++ b/Programe/oproceduri_roadef_sal.prg @@ -0,0 +1,978 @@ +******************************************* +* PROCEDURE inchidprog( ) +* Date : 05/23/05, 11:32:30 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE inchidprog( ) + +RETURN + +ENDPROC +*----------------------------------sfarsit procedura inchidprog---------------------------------- + +*___________________________________________ +Procedure nrord +Parameters ALI +Sele &ALI +A=Reccount() +If A=0 + Return +Endif +If A>65000 + Return 0 +Endif +Declare NROR(A) +K=0 +Scan + K=K+1 + NROR(K)=Recno() +Endscan +Return + +Function NRCRT +NR=Ascan(NROR,Recno()) +Return NR +********************** +*_____________________________________- +PROCEDURE IESIRE + +QUIT +RETURN +*___________________________________________ +Procedure mesaj +Parameters m1,m2 +ot=Create('text') +ot.label2.Caption=m1 +ot.label3.Caption=m2 +ot.Show(1) +Return +*___________________________________________ +Procedure danu +Parameters m1 +od=Create('danu') +od.label1.Caption=m1 +od.Show(1) +RETURN + +*_________________________________________________________ +PROCEDURE caut_alfa_cursor +PARAMETERS NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM +LOCAL MC0,MC1,MC2, llVizibil +SET SAFETY OFF +llVizibil = .t. + +MC0='SELE '+NUMEBAZA +MC1='VARMEM=M.'+NUMECIMP +*MC2='SET order TO TAG '+NUMECIMP +MC2 = [INDEX ON ] +NUMECIMP+ [ TAG nume OF &loc\&nfscurt\tempo\xindex.idx COMPACT ASCENDING ] + + +*!* &MC0 +*!* &MC2 +*!* GO TOP + +LOCAL lcNumeCol2 +STORE '' TO lcNumeCol2 + +LcCol = ALLTRIM(NUMEBAZA) + '.cod_fiscal' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'cod_fiscal' +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.gest' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'gest' +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.id_sectie' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'id_sectie' +ENDIF + +IF EMPTY(lcNumeCol2) + lcNumeCol2 = 'space(4)' + llVizibil = .f. +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.id' +IF TYPE(LcCol) # 'U' + lcNumeCol3 = 'id' +ELSE + lcNumeCol3 = 'space(4)' +ENDIF + +SELECT DISTINCT &NUMECIMP, &lcNumeCol2, &lcNumeCol3 FROM (numebaza) INTO CURSOR tnomenclator READWRITE ORDER BY &NUMECIMP + +OCA=CREATEOBJECT("CAUTALFa") +OCA.CAPTION=CAPTEXT +OCA.GRID1.RECORDSOURCE='tnomenclator' +OCA.GRID1.COLUMN1.CONTROLSOURCE = NUMECIMP +OCA.GRID1.COLUMN2.CONTROLSOURCE = lcNumeCol2 +OCA.GRID1.COLUMN2.visible = llVizibil +OCA.cmdrenunt1.visible=.t. +OCA.command1.visible=.f. +OCA.command2.visible=.f. +OCA.command3.visible=.f. +OCA.SHOW(1) + +*!* &MC0 +*!* SCATTER MEMVAR +*!* SET FILTER TO + +IF buton=2 + USE IN tnomenclator + RETURN +ENDIF + +lcFile = ADDBS(gcTempPath) + 'xindex.idx' +IF FILE(lcFile) + SET INDEX TO + DELETE FILE &lcFile +ENDIF +*!* &MC1 + +SELECT tnomenclator +SCATTER MEMVAR + +&MC1 + + +USE IN tnomenclator +RETURN + +*_________________________________________________________ +Procedure CAUT_ALF +Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM +Local MC0,MC1,MC2 +Set Safety Off +MC0='SELE '+NUMEBAZA +MC1='VARMEM=M.'+NUMECIMP +MC2='SET order TO TAG '+NUMECIMP + +&MC0 +Go Top +If Eof() + Appe Blank +Endif +&MC2 +OCA=Createobject("CAUTALF") +OCA.Caption=CAPTEXT +OCA.GRID1.RecordSource=NUMEBAZA +OCA.GRID1.COLUMN1.ControlSource=NUMECIMP +OCA.Show(1) + +Scatter Memvar +&MC1 + +Return + + +*_________________________________________________________ + + +******************************************* +* PROCEDURE introd_respsal( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE introd_respsal( ) + +Private poresp,pcschema1,pcselect1 +Store '' To poresp +If Used('v_resp') + Use In v_resp +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_responsabil where 1=2'] +pcorder1=[nume,prenume] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('poresp','v_resp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poresp.ca_baza1.afisare() +ofrmresp=Createobject('frm_resp_sal') +ofrmresp.Show(1) +Release poresp + +ENDPROC +*----------------------------------sfarsit procedura introd_respsal---------------------------------- + +******************************************* +* PROCEDURE zile_lucr( ) +* Date : 05/23/05, 15:30:38 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE zile_lucr( ) + +*----------- sarbatori +Private posarbat,pcschema1,pcselect1 +Store '' To posarbat +If Used('v_sarbat') + Use In v_sarbat +Endif +pcschema1=['data d,sarbatoare c(16),id_sarbat n(10)'] +pcselect1=[select data,sarbatoare,id_sarbat from ] + gcS + [.sal_nom_sarbatori where sters = 0] +pcorder1=[data] +pcfiltru1 = [extract(year from data) = ] + ALLTRIM(STR(gnAN)) + [ and sters = 0] +llAfiseaza = .F. +gencursor('posarbat','v_sarbat',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +posarbat.ca_baza1.afisare() +SELECT v_sarbat + + +*----------- zile lucratoare +Private pozile,pcschema2,pcselect2 +Store '' To pozile +If Used('v_zile') + Use In v_zile +Endif +pcschema2=[''] +pcselect2=[select * from ] + gcS + [.sal_calendar where 1=2] +pcorder2=[luna,an] +*!* pcfiltru2 = [ 2 = 2 ] +pcfiltru2 = [ luna = ] + ALLTRIM(STR(gnLuna)) + [ and an = ]+ALLTRIM(STR(gnAn)) + +llAfiseaza = .F. +gencursor('pozile','v_zile',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza) +pozile.ca_baza1.afisare() +SELECT v_sarbat + +*-------------- +PRIVATE pnIdSal,pnZileluc,pnOreluc,pnOrestas +STORE 0 TO pnIdSal,pnZileluc,pnOreluc,pnOrestas + +pnIdSal = v_zile.id_Calendar +pnZileluc = v_zile.zileluc +pnOreluc = v_zile.oreluc +pnOrestas = v_zile.orestas + +ofrmform=Createobject('frm_zileluc') +ofrmform.Show(1) + +IF gnButon == 1 + lcSql = [update ] + gcS +[.sal_calendar set zileluc = ] + ALLTRIM(STR(NVL(pnZileluc,0))) + [,] +; + [ oreluc = ] + ALLTRIM(STR(NVL(pnOreluc,0))) +; + [,orestas = ] + ALLTRIM(STR(NVL(pnOrestas,0))) + [where id_calendar = ] + ALLTRIM(STR(NVL(pnIdSal,0))) + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0 +16,'Eroare') + ENDIF + goExecutor.oReset() + + RETURN lnSucces +ENDIF +Release posarbat,ofrmform + + +ENDPROC +*----------------------------------sfarsit procedura zile_lucr---------------------------------- + +******************************************* +* PROCEDURE nom_formatii( ) +* Date : 05/26/05, 16:37:20 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_formatii( ) +Private poformatii,pcschema1,pcselect1 +Store '' To poformatii +If Used('v_formatii') + Use In v_formatii +Endif +*!* DEBUG +*!* SUSPEND +pcschema1=[''] +*!* pcselect1=[select f.*,s.SECTIE,t.TRANSA from ] + gcS +; +*!* [.sal_nom_formatii f left join ]+gcS; +*!* +[.vnom_sectii s on f.id_sectie = s.ID_SECTIE ]+; +*!* [ left join ]+gcS+[.sal_vnom_transe t on f.id_sectie = t.ID_TRANSA where 1=2] +pcselect1=[select f.*,S.SECTIE,T.TRANSA from ] + gcS + [.sal_nom_formatii f ] + ; + [ LEFT JOIN ] + GCS + [.VNOM_SECTII S ON F.ID_SECTIE = S.ID_SECTIE ] +; + [ LEFT JOIN ] + GCS + [.SAL_VNOM_TRANSE T ON F.ID_TRANSA = T.ID_TRANSA ]+; + [ where 1=2] +pcorder1=[ordine] +pcfiltru1 = [f.sters = 0] +llAfiseaza = .F. +gencursor('poformatii','v_formatii',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poformatii.ca_baza1.afisare() +SELECT V_FORMATII +ofrmform=Createobject('frm_formatii') +ofrmform.Show(1) +Release poformatii + +ENDPROC +*----------------------------------sfarsit procedura nom_formatii---------------------------------- + +******************************************* +* PROCEDURE nom_meserii( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_meserii( ) + +Private poresp,pcschema1,pcselect1 +Store '' To poresp +If Used('v_meserii') + Use In v_meserii +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_mes where 1=2'] +pcorder1=[meserie] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('poresp','v_meserii',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poresp.ca_baza1.afisare() +ofrmresp=Createobject('frm_meserii') +ofrmresp.Show(1) +Release poresp + +ENDPROC +*----------------------------------sfarsit procedura nom_meserii---------------------------------- + + +******************************************* +* PROCEDURE nom_transe( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_transe( ) + +Private potransa,pcschema1,pcselect1 +Store '' To potransa +If Used('v_transe') + Use In v_transe +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_transe where 1=2'] +pcorder1=[transa] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('potransa','v_transe',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +potransa.ca_baza1.afisare() +ofrmresp=Createobject('frm_transe') +ofrmresp.Show(1) +Release potransa + +ENDPROC +*----------------------------------sfarsit procedura nom_transe---------------------------------- +******************************************* +* PROCEDURE nom_clasesal( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_clasesal( ) + +Private poclasesal,pcschema1,pcselect1 +Store '' To poclasesal +If Used('v_clasesal') + Use In v_clasesal +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_clasesal where 1=2'] +pcorder1=[tarifar] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('poclasesal','v_clasesal',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poclasesal.ca_baza1.afisare() +ofrmresp=Createobject('frm_clasesal') +ofrmresp.Show(1) +Release poclasesal + +ENDPROC +*----------------------------------sfarsit procedura nom_clasesal---------------------------------- + +******************************************* +* PROCEDURE nom_tipctr( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tipctr + +Private potipctr,pcschema1,pcselect1 +Store '' To potipctr +If Used('v_tipctr') + Use In v_tipctr +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_tipctr where 1=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('potipctr','v_tipctr',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +potipctr.ca_baza1.afisare() +ofrmresp=Createobject('frm_tipctr') +ofrmresp.Show(1) +Release poclasesal + +ENDPROC + +******************************************* +* PROCEDURE nom_sporuri( ) +* Date : 06/17/05, 09:04:27 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_sporuri( ) +Private ponomspor,pcschema1,pcselect1 +Store '' To ponomspor +If Used('v_nomspor') + Use In v_nomspor +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_sporuri where 1=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomspor','v_nomspor',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomspor.ca_baza1.afisare() +ofrmresp=Createobject('frm_nomspor') +ofrmresp.Show(1) +Release poclasesal + +ENDPROC +*----------------------------------sfarsit procedura nom_sporuri---------------------------------- + + +******************************************* +* PROCEDURE nom_popriri( ) +* Date : 06/17/05, 13:52:11 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_popriri( ) +Private ponompop,pcschema1,pcselect1 +Store '' To ponompop +If Used('v_nompop') + Use In v_nompop +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_popriri where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponompop','v_nompop',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponompop.ca_baza1.afisare() +SELECT v_nompop +ofrmpop=Createobject('frm_nompopriri') +ofrmpop.Show(1) +Release ponompop + + +ENDPROC +*----------------------------------sfarsit procedura nom_popriri---------------------------------- + +******************************************* +* PROCEDURE nom_grpmun( ) +* Date : 06/17/05, 15:03:04 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_grpmun( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomgrp') + Use In v_nomgrp +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_coef_cas where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_nomgrp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomgrp +ofrmpop=Createobject('frm_grpmun') +ofrmpop.Show(1) +Release ponomgrp +*!* SELECT v_nomgrp +*!* USE + +ENDPROC +*----------------------------------sfarsit procedura nom_grpmun---------------------------------- + +******************************************* +* PROCEDURE nom_grdhand( ) +* Date : 06/17/05, 15:10:33 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_grdhand( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp + +If Used('v_nomhand') + Use In v_nomgrd +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_handicap where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_nomhand',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomhand +ofrmpop=Createobject('frm_grdhand') +ofrmpop.Show(1) +Release ponompop + +*!* SELECT v_nomhand +*!* USE +ENDPROC +*----------------------------------sfarsit procedura nom_grdhand---------------------------------- + +******************************************* +* PROCEDURE nom_tipintret( ) +* Date : 06/17/05, 15:13:34 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tipintret( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomintret') + Use In v_nomintret +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_dedsupl where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_nomintret',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomintret +ofrmpop=Createobject('frm_tipintret') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_tipintret---------------------------------- + +******************************************* +* PROCEDURE caseasig( ) +* Date : 06/17/05, 15:20:20 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE caseasig( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_caseasig') + Use In v_caseasig +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vcaseasig where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_caseasig',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_caseasig +ofrmpop=Createobject('frm_caseasig') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura caseasig---------------------------------- + +******************************************* +* PROCEDURE nom_tabvechimi( ) +* Date : 06/21/05, 09:54:04 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tabvechimi( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_tabvechimi') + Use In v_tabvechimi +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vtab_vechimi where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_tabvechimi',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_tabvechimi +ofrmpop=Createobject('frm_tabvechimi') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_tabvechimi---------------------------------- + +******************************************* +* PROCEDURE nom_grilaco( ) +* Date : 06/21/05, 10:54:08 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_grilaco( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_grilaco') + Use In v_grilaco +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_zileco where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_grilaco',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_grilaco +ofrmpop=Createobject('frm_grilaco') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_grilaco---------------------------------- + +******************************************* +* PROCEDURE nom_ore( ) +* Date : 06/21/05, 11:41:51 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_ore( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomore') + Use In v_nomore +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnomore where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ ordine ] +gencursor('ponomgrp','v_nomore',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomore +ofrmpop=Createobject('frm_nomore') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_ore---------------------------------- + +******************************************* +* PROCEDURE nom_tipcm( ) +* Date : 06/22/05, 09:34:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tipcm( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomtipcm') + Use In v_nomtipcm +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_cm where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ ordine ] +gencursor('ponomgrp','v_nomtipcm',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomtipcm +ofrmpop=Createobject('frm_nomcm') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_tipcm---------------------------------- + +******************************************* +* PROCEDURE impozit_luna( ) +* Date : 06/22/05, 11:36:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE impozit_luna(tlImpAn) + +Private ponomgrp,pcschema1,pcselect1,plImpAn +Store '' To ponomgrp + +IF EMPTY(tlImpAn) + STORE .f. TO plImpAn +ELSE + STORE tlImpAn TO plImpAn +ENDIF + +If Used('v_imp') + Use In v_imp +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_impozitar where 2=2'] +pcorder1=[] +IF plImpAn + pcfiltru1 = [sters = 0 and luna = 0 and an = ]+ALLTRIM(STR(gnAn)) +ELSE + pcfiltru1 = [sters = 0 and luna = ]+ALLTRIM(STR(gnLuna))+[ and an = ]+ALLTRIM(STR(gnAn)) +ENDIF + +llAfiseaza = .F. +pcorder1 = [ inf ] +gencursor('ponomgrp','v_imp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_imp +ofrmpop=Createobject('frm_imp') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura impozit_luna---------------------------------- + +******************************************* +* PROCEDURE nom_limded( ) +* Date : 06/22/05, 13:23:29 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_limded( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_deduceri') + Use In v_deduceri +ENDIF + +lcsql=[select NVL(id_calendar,0) as id_calendar,an,luna from ]+gcs+[.sal_calendar where an = ]+str(gnan)+[ and luna = ]+str(gnluna) +lnSucces = goExecutor.oExecute(lcSql,'crsCalendar') + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0 +16,'Eroare') + ENDIF + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vdeduceri where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ nrpers ] +gencursor('ponomgrp','v_deduceri',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_deduceri +ofrmpop=Createobject('frm_limded') +ofrmpop.Show(1) +Release ponompop + +IF USED('crsCalendar') + USE IN crsCalendar +ENDIF + +ENDPROC +*----------------------------------sfarsit procedura nom_limded---------------------------------- +******************************************* +* PROCEDURE nom_curscal( ) +* Date : 06/22/05, 14:01:51 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_curscal( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_curscal') + Use In v_curscal +Endif + + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_curs where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ denumire ] +gencursor('ponomgrp','v_curscal',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_curscal +ofrmpop=Createobject('frm_curscal') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_curscal---------------------------------- +******************************************* +* PROCEDURE sal_coef( ) +* Date : 06/22/05, 15:27:17 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE sal_coef( ) + + +*----------- zile lucratoare +Private pozile,pcschema2,pcselect2 +Store '' To pozile +If Used('v_coef') + Use In v_coef +Endif +pcschema2=[''] +pcselect2=[select * from ] + gcS + [.sal_calendar where 1=2] +pcorder2=[luna,an] +pcfiltru2 = [ luna = ] + ALLTRIM(STR(gnLuna)) + [ and an = ]+ALLTRIM(STR(gnAn)) +llAfiseaza = .F. +*!* WAIT WINDOW ' Luna:'+STR(gnLuna) + ' an:'+STR(gnAn) +gencursor('pozile','v_coef',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza) +pozile.ca_baza1.afisare() + +SELECT v_coef +*-------------- +PRIVATE pnIdSal +STORE 0 TO pnIdSal + +pnIdSal = v_coef.id_Calendar +SELECT v_coef +SCATTER NAME pocoef + +ofrmform=Createobject('frm_salcoef') +ofrmform.Show(1) + +IF gnButon == 1 + lcSql = [update ] + gcS +[.sal_calendar set c_meds = ] + ALLTRIM(STR(NVL(pocoef.c_meds,0),5,3)) + [,] +; + [ c_medp = ] + ALLTRIM(STR(NVL(pocoef.c_medp,0),5,3)) +; + [,c_soms = ] + ALLTRIM(STR(NVL(pocoef.c_soms,0),5,3)) +; + [,c_somp = ] + ALLTRIM(STR(NVL(pocoef.c_somp,0),5,3)) +; + [,c_casp = ] + ALLTRIM(STR(NVL(pocoef.c_casp,0),5,3)) +; + [,salmin = ] + ALLTRIM(STR(NVL(pocoef.salmin,0),16,gnPa)) +; + [,salmed = ] + ALLTRIM(STR(NVL(pocoef.salmed,0),16,gnPa)) +; + [,c_munca = ] + ALLTRIM(STR(NVL(pocoef.c_munca,0),8,6)) +; + [,dedl1 = ] + ALLTRIM(STR(NVL(pocoef.dedl1,0),16,gnPa)) +; + [,dedl2 = ] + ALLTRIM(STR(NVL(pocoef.dedl2,0),16,gnPa)) +; + [,c_faambp = ] + ALLTRIM(STR(NVL(pocoef.c_faambp,0),8,6)) +; + [,zilecmplang = ] + ALLTRIM(STR(NVL(pocoef.zilecmplang,0))) +; + [,BAZA_INGR = ] + ALLTRIM(STR(NVL(pocoef.BAZA_INGR,0))) +; + [,c_cas1 = ] + ALLTRIM(STR(NVL(pocoef.c_cas1,0),6,4)) +; + [,c_cas2 = ] + ALLTRIM(STR(NVL(pocoef.c_cas2,0),6,4)) +; + [,c_cas3 = ] + ALLTRIM(STR(NVL(pocoef.c_cas3,0),6,4)) +; + [,FD_FNUASS = ] + ALLTRIM(STR(NVL(pocoef.FD_FNUASS,0),6,4)) +; + [where id_calendar = ] + ALLTRIM(STR(NVL(pnIdSal,0))) + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0 +16,'Eroare') + ENDIF + goExecutor.oReset() + + RETURN lnSucces +ENDIF +Release posarbat,ofrmform + + +ENDPROC +*----------------------------------sfarsit procedura sal_coef---------------------------------- \ No newline at end of file diff --git a/Programe/ovariabile_globale.prg b/Programe/ovariabile_globale.prg new file mode 100644 index 0000000..88b0b2a --- /dev/null +++ b/Programe/ovariabile_globale.prg @@ -0,0 +1,12 @@ +PUBLIC gcCondLuna +*!* gcCondLuna = [((((extract(month from datafact) =]+Alltrim(Str(gnLuna))+; +*!* [ and extract(year from datafact) =]+Alltrim(Str(gnAn))+[) or (datafact is null )); +*!* and ]+; +*!* [ (extract (month from datai)<=]+Alltrim(Str(gnLuna)) + [ and extract(year from datai)<= ]+Alltrim(Str(gnAn))+[))]+; +*!* [ or ((extract (month from dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from dataoravalid)>=]+Alltrim(Str(gnAn)) +[)]+; +*!* [ and id_tip > 1)]+ [)] + +*!* lcDataFact= [ (a.facturat=1 and (extract(month from a.datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from a.datafact) =]+Alltrim(Str(gnAn))+[))] +*!* lcDataValid = [ (a.validat=1 and (extract (month from a.dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from a.dataoravalid)>=]+Alltrim(Str(gnAn)) +[)) ] +*!* gcCondLuna = [ ((extract (month from a.datai)=]+Alltrim(Str(gnLuna)) + [ and extract(year from a.datai)= ]+Alltrim(Str(gnAn))+[) or ]+; +*!* [ (a.id_tip=1 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip>1 and (a.validat=0 or ] + lcDataValid + [))) ] \ No newline at end of file diff --git a/Programe/pmenu.prg b/Programe/pmenu.prg new file mode 100644 index 0000000..dd829b6 --- /dev/null +++ b/Programe/pmenu.prg @@ -0,0 +1,4578 @@ +*-------------------------------------------- +Function deschide_menu +Parameters tabela, cc1,cc2,mnrtata,stinga,sus,ONT + +Public nt,no,m +nt=Alltrim(tabela)+'_'+Alltrim(Str(mnrtata)) + +If Upper(Left(tabela,6))='_MENU1' + no='o'+nt + zz='SELECT '+cc1+' AS C1, '+cc2+' AS C2,nrnod,PROCEDURA,TATAFIU,ID_SET,LISTA_NOTE FROM '+; + tabela+' WHERE NRTATA='+Alltrim(Str(mnrtata))+' INTO CURSOR '+nt +Else + no='o_'+nt + zz='SELECT '+cc1+' AS C1, '+cc2+' AS C2,nrnod,PROCEDURA,TATAFIU,ID_SET FROM '+; + tabela+' WHERE NRTATA='+Alltrim(Str(mnrtata))+' INTO CURSOR '+nt +Endif +&zz + + +m=0 + + + +Select &nt +Scan + mm=Len(Alltrim(c1)) + m=Iif(m>mm,m,mm) +Endscan + +ta=_Tally +If ta=0 + Return '0' +Endif + +If Type("&no")!='O' + Public &no + zz=no+'=crea("menuclasic")' + &zz + + With &no + wm=m*7 + .NUME=no + .ONUMETATA=ONT + .Left=stinga + .Top=sus + .tabela=tabela + .camp1=cc1 + .camp2=cc2 + .sursa=nt + .Width=wm+2*.margine + .NRFII=ta + .rh=.container1.cwm1.Height + .Height=(.rh+1)*.NRFII+2*.margine+2 +*.show() + Endwith +Endif + +Release nt,m +Return no + + + +*------------------------------------------------------------------------------------------ +Procedure deschide_menuuri +*!* If !Used('menu1') +*!* Use &DIRGEN\CONTAB\Date\menu1 In 0 Alias menu1 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu2') +*!* Use &DIRGEN\CONTAB\Date\menu2 In 0 Alias menu2 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu3') +*!* Use &DIRGEN\CONTAB\Date\menu3 In 0 Alias menu3 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu4') +*!* Use &DIRGEN\CONTAB\Date\menu4 In 0 Alias menu4 Order Tag 'nrnod' +*!* Endif + +*!* If PRIMADATA +*!* Do CE_WINDOWS +*!* omenuvertical=Crea('menuvertical') +*!* omenuvertical.Show() +*!* Endif +*deschide_menu(tabela, cc1,cc2,mnrtata,stinga,sus,ONT +Return + + + + +*-------------------------------------- +Procedure CE_WINDOWS +Local vermajor,verminor +Public TIP_MENU,COL_MENU,cewin +Store '' To cewin +Store 0 To vermajor,verminor,TIP_MENU + +vermajor=Val(Os(3)) +verminor=Val(Os(4)) +Do Case +Case vermajor<4 + cewin='95' +Case vermajor=4 + cewin='98' +Case vermajor>=5 + Do Case + Case verminor=0 + cewin='2000' + Case verminor=1 + cewin='XP' + Otherwise + cewin='MAINOU' + Endcase +Endcase + + +*IF INLIST(CEWIN,'95','98','2000') +TIP_MENU=0&&'RAISED' +*ELSE +*TIP_MENU=2&&'FLAT' +*ENDIF + +*!* Do Case +*!* Case Inlist(cewin,'95','98') +*!* COL_MENU=Rgb(192,192,192)&&GRI +*!* Case cewin='2000' +*!* COL_MENU=Rgb(212,208,200)&&NISIP GRI +*!* Case cewin='XP' +*!* COL_MENU=Rgb(236,233,216)&&NISIP BEJ +*!* Otherwise +COL_MENU=Rgb(255,255,255)&&ALB +*!* Endcase + + +Return + + + + +*-------------------------------------- +Function SCRIE_IN_FISIERE +Parameters INFORMGEST + +*!* DEBUG +*!* SUSPEND +Local M.DEB,M.CRED,COND +Store 0 To M.DEB, M.CRED +Public OZ +COND='(Empty(SUMA) AND INLIST(XSETS.ID_SET,70))'&&INREGISTRARI CU SUMA 0 + + +*!* SELECT actactan +*!* SCAN +*!* SCATTER NAME loCont +*!* IF EMPTY(loCont.ascd) +*!* SELECT plcontana +*!* LOCATE FOR cont=locont.scd +*!* IF FOUND() +*!* loCont.ascd='0000' +*!* ENDIF +*!* ENDIF +*!* IF EMPTY(loCont.ascc) +*!* SELECT plcontana +*!* LOCATE FOR cont=locont.scc +*!* IF FOUND() +*!* loCont.ascc='0000' +*!* ENDIF +*!* ENDIF +*!* SELECT actactan +*!* GATHER NAME loCont +*!* ENDSCAN +*!* RELEASE loCont + +DD=Datetime() +Do CODARE +Select ACTACTAN +Replace All COD With M.COD +Replace All UTIL With UTILIZATOR, DATAORA With DD +Go Top +Scatter Name OZ + + + +Select ACTACTAN +Scan For !Empty(SUMA) OR &COND + Scatter Memv + Select ACT + If Flock() + Append Blank + Gather Memv + Endif + Unlock + Select ACTAN + If Flock() + Append Blank + Gather Memv + Endif + Unlock + Select ACTACTAN +Endscan + +Do Case +Case Left(Upper(INFORMGEST),3)='NIR' + Do SCRIE_NIR +Case Left(Upper(INFORMGEST),3)='BON' + Select IESIRI + Replace All COD With M.COD + IF !INLIST(M.ID_SET,70) + Do IERULAJMAGAZII + Do IESTOCURIMAGAZII + ENDIF + If Inlist(M.ID_SET,74,75,76)&&TRANSFER + Select INTRARI + Replace All COD With M.COD + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII + Endif +Case Upper(INFORMGEST)='SCHIMBPRET' + Select INTRARI + Replace All COD With M.COD + Select IESIRI + Replace All COD With M.COD + Do IERULAJMAGAZII + Do IESTOCURIMAGAZII + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII +Endcase + + +&& TABELA DE CONTURI +*!* IF USED('conturi') +*!* USE IN conturi +*!* ENDIF + +*!* IF USED('cc') +*!* USE IN cc +*!* ENDIF + + + +IF _program='cont' + Select Distinct SCD As Cont,ascd as acont,99999999999999 As DEB,; + 99999999999999 As CRED,99999999999999.99 As DEBVAL,99999999999999.99 As CREDVAL; + FROM ACTACTAN Into Table &LOC\&NFSCURT\TEMPO\CONTURI +ELSE + Select Distinct SCD As Cont,ascd as acont,99999999999999 As DEB,; + 99999999999999 As CRED,99999999999999.99 As DEBVAL,99999999999999.99 As CREDVAL; + FROM ACTACTAN Into Table &LOC\&NFSCURT\TEMPO\CONTURI_g + USE IN conturi_g + USE &LOC\&NFSCURT\TEMPO\CONTURI_g IN 0 ALIAS conturi +ENDIF + +Select CONTURI +Replace All DEB With 0, CRED With 0,DEBVAL With 0, CREDVAL With 0 +Select Distinct SCC As Cont,ascc as acont From ACTACTAN; + WHERE SCC+ASCC Not In (Sele Distinct Cont+ACONT From CONTURI); + INTO Cursor CC +Select CONTURI +Append From Dbf('CC') + +Select CONTURI +Scan + Scatter Memv + Select ACTACTAN + Sum SUMA To M.DEB For SCD=M.CONT AND ascd=m.acont + Sum SUMA To M.CRED For SCC=M.CONT AND ascc=m.acont + Sum SUMA_2 To M.DEBVAL For SCD=M.CONT AND ascd=m.acont + Sum SUMA_2 To M.CREDVAL For SCC=M.CONT AND ascc=m.acont + Select CONTURI + Gather Fields DEB, CRED,DEBVAL,CREDVAL Memv +Endscan + + +&& SCRIE IN BALANTA +Select CONTURI +Scan + Scatter Memv + Select BAL + If Flock() + LOCATE FOR cont=M.CONT + If !Found() + Sele PLCONT + Locate For Left(CIMP1,4)=Left(M.CONT,4) + If Found() + Do MESAJ With 'Se introduce in balanta contul',M.CONT + Scatter Memvar + m.CONT=M.CIMP1 + m.denumire=m.cimp2 + Sele BAL + If Flock() + Append Blank + Gather Memvar + Endif + Unlock + Else + Do MESAJ With 'Contul '+M.CONT+' nu este introdus','nici in planul de conturi si nici in balanta!' + Do Form contnou + Endif + Endif + Select BAL + Replace RULDEB With RULDEB+M.DEB, TOTDEB With TOTDEB+M.DEB,; + RULCRED With RULCRED+M.CRED, TOTCRED With TOTCRED+M.CRED + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0), SOLDCRED With Iif(SOLD<0,-SOLD,0) + Endif + Unlock + Select CONTURI +Endscan + +&&scrie in balanta analitica +Select ascd,ascc From ACTACTAN Where !Empty(ascd) Or !Empty(ascc) Into Cursor aacont +If _Tally<>0 + Select balana + If Flock() + Select ACTACTAN + Scan + Scatter Memv + &&deb + IF !EMPTY(m.ascd) + Select balana + Seek m.SCD+m.ascd + If !Found() + Seek m.SCD+'0000' + If !Found() + Append Blank + Replace Cont With m.SCD + Replace acont With '0000' + Endif + Endif + Replace RULDEB With RULDEB+M.suma, TOTDEB With TOTDEB+M.suma + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0) + endif + &&cred + IF !EMPTY(m.ascc) + Select balana + Seek m.SCc+m.ascc + If !Found() + Seek m.SCc+'0000' + If !Found() + Append Blank + Replace Cont With m.SCc + Replace acont With '0000' + Endif + Endif + Replace RULcred With RULcred+M.suma, TOTcred With TOTcred+M.suma + SOLD=TOTDEB-TOTCRED + Replace SOLDcred With Iif(SOLD<0,-SOLD,0) + endif + Select ACTACTAN + Endscan + Endif + Unlock In balana +Endif + +&& SCRIE IN FISIERE +Select Distinct A.Cont,b.acont,A.FPROC,B.DEB,B.CRED,B.DEBVAL,B.CREDVAL From INFISIERE A, CONTURI B ; + WHERE A.Cont=B.Cont ; + INTO Cursor COM + +*!* SELECT com +*!* BROWSE + +Select COM +Scan + Scatter Memv + zz='Do '+Alltrim(FPROC)+' with m.deb,m.cred,M.DEBVAL,M.CREDVAL' + &zz +SELECT COM +Endscan + +SELECT com +LOCATE FOR INLIST(cont,'4426','4427') +IF !FOUND() + DO caut_neimpozab WITH 'actactan' +ENDIF + +m.NNIR=OZ.NNIR +If Type('OXSET')='O' + If !Empty(OXSET.LISTARE) + zz=Alltrim(OXSET.LISTARE) + zz='DO '+zz + If !Empty(OXSET.PARAM2) + zz=zz+' WITH '+OXSET.PARAM2 + Endif + &zz + Endif +Endif + +DO inchid_actcv +Do STERGE +Release OZ +Return 0 + + + + + +*----------------------------------------------- +Procedure _401 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZOR +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum neimpozab To din For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum SUMA_2 To div For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount valuta + +&&&&&&&&&&&CUMPLUN +Local nui +Select cumplun +Set Order To nract +&&creditul=factura + +If credit!=0 OR din!=0 && discount neimpozabil + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter NAME o401 + + Select cumplun + Seek o401.nract + If Found() + Locate For nract=o401.nract And dataact=o401.dataact And NUME=o401.NUME AND acont=o401.ascc + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0,SUMAVAL WITH 0 + Endif + Replace totctva With totctva+credit-di + Replace SUMAVAL With SUMAVAL+VALcredit-div + REPLACE cursschimb WITH o401.suma_3 + REPLACE ACONT WITH o401.ascc + Endif + Unlock +Endif + +RELEASE o401 +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) && atunci cand sunt sume cu + si -, cu total 0 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select cumplun + DO CASE + CASE !(COD=M.COD) AND !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'cumplun','ascd','nume' + OTHERWISE + Select cumplun + If Flock() + Replace achitat With achitat+debit-di + Replace achitatVAL With achitatVAL+VALdebit-div + Endif + Unlock + ENDCASE +Endif + +Select cumplun +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR din!=0 && discount neimpozabil + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT AND ascc=m.acont +*!* m.neimpozab=m.neimpozab-din + +*!* * Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT &&discount + +*!* m.totctva=credit-di +*!* +*!* * Sum suma To m.tvam For Left(scd,3)='442' AND SCC=m.CONT AND ascc=m.acont +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* ** m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +Return + + +*----------------------------------------------- +Procedure _404 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select FURNIZ404 +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +UNLOCK + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum neimpozab To din For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum SUMA_2 To div For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount valuta + +&&&&&&&&&&&CUMPLUN +Local nui +Select cumplun404 +Set Order To nract +&&creditul=factura +If credit!=0 OR din!=0 && discount neimpozabil + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + *Scatter Memv + SCATTER NAME o404 + + Select cumplun404 + Seek o404.nract + If Found() + Locate For nract=o404.nract And dataact=o404.dataact And NUME=o404.NUME AND acont=o404.ascc + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + GATHER NAME o404 + Replace totctva With 0,SUMAVAL WITH 0 + Endif + Replace totctva With totctva+credit-di + Replace SUMAVAL With SUMAVAL+VALcredit-div + REPLACE cursschimb WITH o404.suma_3 + REPLACE ACONT WITH o404.ascc + Endif + Unlock +Endif + +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select cumplun404 + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'cumplun404','ascd','nume' + OTHERWISE + Select cumplun404 + If Flock() + Replace achitat With achitat+debit-di + Replace achitatVAL With achitatVAL+VALdebit-div + Endif + Unlock + ENDCASE +Endif + +Select cumplun404 +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR din!=0 && discount neimpozabil + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* m.neimpozab=m.neimpozab-din +*!* * Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT &&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* **m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +RETURN + + +*----------------------------------------------- +PROCEDURE _4426 +Parameters debit,credit,VALDEBIT,VALCREDIT +Store 0 To m.totctvam,m.totftvam,m.tvam,neimpozab,totftvai,tvai + +SELECT infisiere +LOCATE FOR cont='4426' +SCATTER NAME ofis +lcCoresp_d=ALLTRIM(ofis.coresp_d) +lcCoresp_c=ALLTRIM(ofis.coresp_c) + + +SELECT actactan +SUM suma TO tvam_deb FOR scd='4426' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvam_cred FOR scc='4426' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvam=tvam_deb-tvam_cred +SUM suma TO tvai_deb FOR scd='4426' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvai_cred FOR scc='4426' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvai=tvai_deb-tvai_cred + + +IF debit#0 OR (credit=0 AND debit=0) + *m.tvam=debit-credit + + SELECT SUM(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),neimpozab,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0))) as neimpozab; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),suma,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0))) as totctvam; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),suma,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0))) as totctvai; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RELEASE o4426 + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scd='4426' + IF !FOUND() OR scc='4428' + GO top + ENDIF + SCATTER NAME o4426 + o4426.scd=o4426.scc + + Select cump + Locate For nract=o4426.nract AND cod=o4426.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather NAME o4426 + GATHER MEMVAR + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +IF credit#0 + *m.tvam=debit-credit + SELECT SUM(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-neimpozab,0)) as neimpozab ; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0)) as totctvam ; + FROM actactan WHERE proc_tva=m.ctvam; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0)) as totctvai ; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RELEASE o4426 + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scc='4426' + SCATTER NAME o4426 + + + Select cump + Locate For nract=o4426.nract AND cod=o4426.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather NAME o4426 + GATHER MEMVAR + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +RELEASE ofis +RELEASE o4426 +RETURN + +*----------------------------------------------- +Procedure _408 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ana408 +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + + +SELECT DISTINCT scd as cont,ascd as acont,proc_tva,sum(suma) as suma408,sum(suma_2) as suma408_2,"D" as tip ; +from actactan WHERE scd='408 ' AND ascd=m.acont GROUP BY ascd,proc_tva INTO CURSOR t408 ; +UNION ; +SELECT DISTINCT scc as cont,ascc as acont,proc_tva,sum(suma) as suma408,sum(suma_2) as suma408_2,"C" as tip ; +from actactan WHERE scc='408 ' AND ascc=m.acont GROUP BY ascc,proc_tva; +order BY tip + +SELECT t408 +SCAN FOR tip='C' + SCATTER MEMVAR +&&&&&&&&&&& FACT408 +Local nui +Select fact408 +Set Order To nract + +Select fact408 +&&creditul=factura +*If credit!=0 + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont AND proc_tva=m.proc_tva + Scatter Memv + + Select fact408 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont AND proc_tva=m.proc_tva + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Replace SUMAVAL With 0 + Endif + + Select fact408 + Replace totctva With totctva+m.suma408 &&credit + Replace SUMAVAL With SUMAVAL+m.suma408_2 &&VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + ENDIF + Unlock +*Endif +ENDSCAN +&&debitul=plata + +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select fact408 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'fact408','ascd','nume' + Else + Select fact408 + If Flock() + Replace achitat With achitat+debit + Replace achitatVAL With achitatVAL+VALdebit + Endif + Unlock + Endif +Endif + +Select fact408 +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* LOCAL di +*!* If credit!=0 +*!* +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* SUM suma TO di FOR LEFT(scc,1)='7' AND SCd=m.CONT&&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For LEFT(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-cred +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select cump +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* Unlock +*!* Endif + +Return + + + + +*------------------------------------------------------------- +Procedure _409 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select AVANS409 +If debit#0 + If Flock() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME + If !Found() + Append Blank + Gather Fields Except achitat,facturat,achitatval,factval Memv + Endif + Replace achitat With achitat+debit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +ENDIF + +If credit#0 +*!* If Used('actcv1') +*!* Select actcv1 +*!* Scan For ALES +*!* Scatter Name av +*!* Select AVANS409 +*!* Locate For nract=av.nract And dataact=av.dataact And NUME=av.NUME +*!* If Flock() +*!* Replace facturat With facturat+av.sumaachi +*!* Replace factVAL With factVAL+av.sumaachi2 +*!* Endif +*!* Unlock +*!* Select actcv1 +*!* ENDSCAN +*!* Release av +*!* ELSE &&la modificare + SELECT actactan + LOCATE FOR LEFT(scc,3)='409' + SCATTER NAME omodif +*!* lcDat=Right(Allt(omodif.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(omodif.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS409 + Locate For nract=omodif.pereche2 And NUME=omodif.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+CREDIT + Replace factVAL With factVAL+valCREDIT + Endif + UNLOCK + ENDIF + Release omodif +*!* ENDIF +*!* +Endif + + +Select FURNIZOR +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace avans With avans+debit-credit + Replace avansVAL With avansVAL+VALdebit-VALcredit +Endif +Unlock +IF USED('actcv1') + USE IN actcv1 +ENDIF +Return + +*----------------------------------------------- +Procedure _411 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select clienti + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +UNLOCK + + +IF id_set=10421 + DO regularizare_clienti + IF USED('actcv') + USE IN actcv + ENDIF + RETURN +ENDIF + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum neimpozab To din For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum SUMA_2 To div For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount valuta + +&&&&&&&&&&&vanzLUN +Local nui +Select vanzlun +Set Order To nract +&&debitul=factura +If (debit!=0 OR din!=0) &&AND xsets.id_set!=10421 && discount neimpozabil + regularizari avans-facturi(e uraaaaaaaaaaaaaaaaaat) + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + +*!* IF m.ctvam#m.ctvai +*!* SUM suma TO m.totftvam FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND proc_tva=m.ctvam +*!* SUM suma TO m.tvam FOR SCc='4427' AND ascd=m.acont AND proc_tva=m.ctvam +*!* SUM suma TO m.totftvai FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND proc_tva=m.ctvai +*!* SUM suma TO m.tvai FOR SCc='4427' AND ascd=m.acont AND proc_tva=m.ctvai +*!* SUM suma TO m.neimpozab FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND neimpozab#0 +*!* ENDIF + + Select vanzlun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + ENDIF + + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + + Replace totctva With totctva+debit-di + Replace SUMAVAL With SUMAVAL+VALdebit-div +*!* REPLACE totftvam WITH totftvam+m.totftvam-di,totftvai WITH totftvai+m.totftvai-di,tvam WITH tvam+m.tvam,tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select vanzlun + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'vanzlun','ascc','nume' + OTHERWISE + Select vanzlun + If Flock() + Replace achitat With achitat+credit-di + Replace achitatVAL With achitatVAL+VALcredit-div + Endif + Unlock + ENDCASE + +Endif + +Select vanzlun +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* If debit!=0 OR din!=0 && discount neimpozabil +*!* m.totctva=debit-di +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCD=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For Left(SCD,3)=Left(m.CONT,3) +*!* m.neimpozab=m.neimpozab-din + +*!* Select CONTURI +*!* Locate For Cont='4427' +*!* If Found() +*!* m.tvam=CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +Return + + +*----------------------------------------------- + +PROCEDURE _4427 +Parameters debit,credit,VALDEBIT,VALCREDIT +Store 0 To m.totctvam,m.totftvam,m.tvam,m.neimpozab,m.totftvai,m.tvai + +SELECT infisiere +LOCATE FOR cont='4427' +SCATTER NAME ofis +lcCoresp_c=ALLTRIM(ofis.coresp_c) +lcCoresp_d=ALLTRIM(ofis.coresp_d) + +SELECT actactan +SUM suma TO tvam_deb FOR scd='4427' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvam_cred FOR scc='4427' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvam=tvam_cred-tvam_deb +SUM suma TO tvai_deb FOR scd='4427' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvai_cred FOR scc='4427' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvai=tvai_cred-tvai_deb + + +IF credit#0 OR (credit=0 AND debit=0) + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),neimpozab,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-neimpozab,0))) as neimpozab ; + FROM ACTACTAN INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),suma,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0))) as totctvam; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),suma,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0))) as totctvai; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scc='4427' + IF !FOUND() OR scd='4428' + GO top + ENDIF + SCATTER FIELDS EXCEPT neimpozab MEMVAR + + Select vanz + Locate For nract=m.nract AND cod=m.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather Memv + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +IF debit#0 +*!* SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctva,; +*!* sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0)) as neimpozab ; +*!* FROM actactan ; +*!* INTO CURSOR tva +*!* +*!* SELECT tva +*!* SCATTER MEMVAR +*!* m.tvam=credit-debit +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0)) as neimpozab ; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctvam ; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctvai ; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scd='4427' + SCATTER FIELDS EXCEPT neimpozab MEMVAR + m.scd=m.scc + + Select vanz + Locate For nract=m.nract AND cod=m.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather Memv + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + + + +RELEASE ofis +RETURN +*---------------------------------------------------------------- + +Procedure _4118 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select client4118 + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +&&&&&&&&&&&vanzLU4118 +Local nui +Select vanzlu4118 +Set Order To nract +&&debitul=factura +If debit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select vanzlu4118 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + Endif + Replace totctva With totctva+debit + Replace SUMAVAL With SUMAVAL+VALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select vanzlu4118 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'vanzlu4118','ascc','nume' + Else + Select vanzlu4118 + If Flock() + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Unlock + Endif + +Endif + + +Select vanzlu4118 +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* if debit!=0 +*!* SELECT vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* If Found() +*!* IF FLOCK() +*!* REPLACE scd WITH m.cont +*!* ENDIF +*!* ENDIF + +*!* *!* m.totctva=debit +*!* *!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* *!* Select ACTACTAN +*!* *!* Locate For SCD=m.CONT +*!* *!* Scatter Memv +*!* *!* Sum neimpozab To m.neimpozab For Left(SCC,3)=Left(m.CONT,3) + + +*!* *!* Select CONTURI +*!* *!* Locate For Cont='4427' +*!* *!* If Found() +*!* *!* m.tvam=CRED +*!* *!* Endif + +*!* *!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* *!* Select vanz +*!* *!* If Flock() +*!* *!* Append Blank +*!* *!* Gather Memv +*!* *!* Endif +*!* *!* Unlock +*!* Endif + + +RETURN + +*----------------------------------------------- +Procedure _418 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select ana418 + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +*!* &&&&&&&&&&&vanzLUN +*!* Local nui +*!* Select fact418 +*!* Set Order To nract +*!* &&debitul=factura +*!* If debit!=0 +*!* nui=.F. +*!* Select ACTACTAN +*!* Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont +*!* Scatter Memv + +*!* Select fact418 +*!* Seek m.nract +*!* If Found() +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont +*!* If !Found() +*!* nui=.T. +*!* Endif +*!* Else +*!* nui=.T. +*!* Endif +*!* If Flock() +*!* If nui +*!* Append Blank +*!* Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv +*!* Endif +*!* Replace totctva With totctva+debit +*!* Replace SUMAVAL With SUMAVAL+VALdebit +*!* REPLACE cursschimb WITH m.suma_3 +*!* REPLACE ACONT WITH m.ascd +*!* Endif +*!* Unlock +*!* Endif + + +SELECT DISTINCT scd as cont,ascd as acont,proc_tva,sum(suma) as suma418,sum(suma_2) as suma418_2,"D" as tip ; +from actactan WHERE scd='418 ' AND ascd=m.acont GROUP BY ascd,proc_tva INTO CURSOR t418 ; +UNION ; +SELECT DISTINCT scc as cont,ascc as acont,proc_tva,sum(suma) as suma418,sum(suma_2) as suma418_2,"C" as tip ; +from actactan WHERE scc='418 ' AND ascc=m.acont GROUP BY ascc,proc_tva; +order BY tip + +&&&&&&&&&&& FACT418 +SELECT t418 +SCAN FOR tip='D' + SCATTER MEMVAR + Local nui + Select fact418 + Set Order To nract + + Select fact418 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont AND proc_tva=m.proc_tva + Scatter Memv + + Select fact418 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont AND proc_tva=m.proc_tva + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Replace SUMAVAL With 0 + Endif + + Select fact418 + Replace totctva With totctva+m.suma418 &&credit + Replace SUMAVAL With SUMAVAL+m.suma418_2 &&VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + ENDIF + UNLOCK +ENDSCAN +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select fact418 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'fact418','ascc','nume' + Else + Select fact418 + If Flock() + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Unlock + Endif + +Endif + + +Select fact418 +Set Order To Tag dataireg + +Return + +*----------------------------------------------- +Procedure _461 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT +Select debitor + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + +LOCAL di,din +SELECT actactan +Sum SUMA To di For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum neimpozab To din For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum SUMA_2 To div For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount valuta + +&&&&&&&&&&&vanzLUN +Local nui +Select deblun +Set Order To nract +&&debitul=factura +If tndebit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select deblun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + Replace totctva With totctva+TnDebit-di + Replace SUMAVAL With SUMAVAL+TnVALdebit-div + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If tnCredit!=0 OR (tnCredit=0 AND tnDebit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select deblun + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'deblun','ascc','nume' + OTHERWISE + Select deblun + If Flock() + Replace achitat With achitat+tnCredit-di + Replace achitatVAL With achitatVAL+TnVALcredit-div + Endif + Unlock + ENDCASE + +Endif + + +Select deblun +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* If tnDebit!=0 OR din!=0 && discount neimpozabil +*!* m.totctva=tndebit-di +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCD=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For Left(SCD,3)=Left(m.CONT,3) +*!* m.neimpozab=m.neimpozab-din + +*!* Select CONTURI +*!* Locate For Cont='4427' +*!* If Found() +*!* m.tvam=CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + + +Return +*----------------------------------------------- +Procedure _462 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT +Select CREDITOR + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + +&&&&&&&&&&&CREDLUN +Local nui +Select CREDlun +Set Order To nract +&&creditul=factura +If TNcredit!=0 + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter Memv + + Select CREDlun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except totctva Memv + Endif + Replace totctva With totctva+TNcredit + Replace SUMAVAL With SUMAVAL+TnVALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + Endif + Unlock +Endif + + +&&debitul=plata +If TNdebit!=0 OR (TNcredit=0 AND TNdebit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select CREDlun + DO CASE + CASE !(COD=M.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'CREDlun','ascd','nume' + OTHERWISE + Select CREDlun + If Flock() + Replace achitat With achitat+TNdebit + Replace achitatVAL With achitatVAL+TnVALdebit + Endif + Unlock + ENDCASE +Endif + +Select CREDlun +Set Order To Tag dataireg + +&&&&&&&&&&& CUMP NU STIU ???????????????? + +*!* Local di +*!* If credit!=0 + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT&&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* *m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* Unlock +*!* Endif + +Return + + +*----------------------------------------------- +Procedure _419 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS419 +If credit#0 + If Flock() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME + If !Found() + Append Blank + Gather Fields Except achitat,facturat,achitatval,factval Memv + Endif + Replace achitat With achitat+credit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + Endif + Unlock +Endif +If debit#0 +*!* If Used('actcv1') +*!* Select actcv1 +*!* Scan For ALES +*!* Scatter Name av +*!* Select AVANS419 +*!* Locate For nract=av.nract And dataact=av.dataact And NUME=av.NUME +*!* If Flock() +*!* Replace facturat With facturat+av.sumaachi +*!* Replace factVAL With factVAL+av.sumaachi2 +*!* Endif +*!* Unlock +*!* Select actcv1 +*!* Endscan +*!* Release av +*!* ELSE &&la modificare + SELECT actactan + LOCATE FOR LEFT(scd,3)='419' + SCATTER NAME omodif +*!* lcDat=Right(Allt(omodif.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(omodif.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS419 + Locate For nract=omodif.pereche And NUME=omodif.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+debit + Replace factVAL With factVAL+valdebit + Endif + UNLOCK + ENDIF + Release omodif +*!* Endif +Endif + + +Select clienti +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace avans With avans-debit+credit + Replace avansVAL With avansVAL-VALdebit+VALcredit +Endif +Unlock + +DO inchid_actcv + +Return + +*----------------------------------------------- +Procedure _5311 +Parameters debit,credit,VALDEBIT,VALCREDIT +STORE 0 TO m.plati,m.incasari + +&&credit=casa plateste + +IF CREDIT#0 + Select ACTACTAN + Locate For SCC=m.CONT + Scatter Memv + *m.casa=m.CASACRED + m.casa=ALLTRIM(m.nume_3) + + Select casa + If Flock() + Append Blank + Gather Memv + Replace plati With credit + Endif + Unlock + + Select casanume + *Locate For casa=m.casaCRED + Locate For ALLTRIM(casa)=m.casa + If Flock() + If !Found() + Append Blank + *Gather Fields casa Memv + REPLACE CASA WITH M.CASA + Endif + Replace plati With plati+credit + Endif + Unlock +ENDIF + +&&debit=casa incas +IF DEBIT#0 + Select ACTACTAN + Locate For SCD=m.CONT + Scatter Memv + *m.casa=m.CASADEB + m.casa=ALLTRIM(m.nume_3) + + Select casa + If Flock() + Append Blank + Gather Memv + Replace incasari With debit + Endif + Unlock + + Select casanume + Locate For ALLTRIM(casa)=m.casa + If Flock() + If !Found() + Append Blank + *Gather Fields casa Memv + REPLACE CASA WITH M.CASA + Endif + Replace incasari With incasari+debit + Endif + Unlock +ENDIF + + +Return + +*----------------------------------------------- +Procedure _5314 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +&&credit=casa plateste +IF CREDIT#0 + IF EMPTY(M.CASAVALCRE) && pt modificare + Select ACTACTAN + Locate For SCC=m.CONT + M.CASAVALCRE=nume_5 + ENDIF + Select casVnume + Locate For NUME_5=M.CASAVALCRE + If Flock() + If !Found() + Append Blank + REPLACE NUME_5 WITH M.CASAVALCRE + *Gather Fields NUME_5 Memv + Endif + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCC=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + *m.casa=m.nume_5 + M.CASA=M.CASAVALCRE + Select casaVAL + If Flock() + Append Blank + Gather Memv + Replace plati With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace platiVAL With m.suma_2 + Endif + UNLOCK + SELECT actactan + ENDSCAN +ENDIF + +&&debit=casa incas +IF DEBIT#0 + IF EMPTY(M.CASAVALDEB) && pt modificare + Select ACTACTAN + Locate For SCD=m.CONT + M.CASAVALDEB=nume_5 + ENDIF + + Select casVnume + Locate For NUME_5=m.CASAVALDEB + SELECT casvnume + If Flock() + If !Found() + Append Blank + *Gather Fields NUME_5 Memv + REPLACE NUME_5 WITH m.CASAVALDEB + Endif + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCD=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + *m.casa=m.nume_5 + M.CASA=m.CASAVALDEB + + Select casaVAL + If Flock() + Append Blank + Gather Memv + Replace incasari With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace incasVAL With m.suma_2 + Endif + UNLOCK + + SELECT actactan + ENDSCAN +ENDIF +Return + +*----------------------------------------------- +Procedure _5121 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari + +&&credit=banca plateste +IF CREDIT#0 + Select ACTACTAN + Locate For SCC=m.CONT + Scatter Memv + m.BANCACRED=ALLTRIM(m.nume_2) + m.banca=m.BANCACRED + + Select banca + If Flock() + Append Blank + Gather Memv + Replace plati With credit + Endif + Unlock + + Select bannume + Locate For ALLTRIM(nume_2)=m.bancaCRED + If Flock() + If !Found() + Append Blank + *Gather Fields nume_2 Memv + REPLACE NUME_2 WITH M.BANCACRED + Endif + Replace plati With plati+credit + Endif + Unlock +ENDIF + +&&debit=banca incas +IF DEBIT#0 + Select ACTACTAN + Locate For SCD=m.CONT + Scatter Memv + m.bancadeb=ALLTRIM(m.nume_2) + m.banca=m.BANCADEB + + Select banca + If Flock() + Append Blank + Gather Memv + Replace incasari With debit + Endif + Unlock + + Select bannume + Locate For ALLTRIM(nume_2)=m.bancaDEB + If Flock() + If !Found() + Append Blank + *Gather Fields nume_2 Memv + REPLACE NUME_2 WITH m.bancaDEB + Endif + Replace incasari With incasari+debit + Endif + Unlock +ENDIF + +Return + +*----------------------------------------------- +Procedure _5124 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +&&credit=banca plateste +IF CREDIT#0 + IF EMPTY(m.banvalcred) && pt modificare + Select ACTACTAN + Locate For SCC=m.CONT + m.BANVALCRED=nume_3 + ENDIF + + Select banVnume + Locate For nume_3=m.BANVALCRED + If Flock() + If !Found() + Append Blank + *Gather Fields nume_3 Memv + REPLACE NUME_3 WITH m.BANVALCRED + Endif + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCC=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + m.banca=m.BANVALCRED + + Select bancaVAL + If Flock() + Append Blank + Gather Memv + Replace plati With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace platiVAL With m.suma_2 + Endif + UNLOCK + Select ACTACTAN + ENDSCAN +ENDIF + +&&debit=banca incas +IF DEBIT#0 + IF EMPTY(m.banvaldeb) && pt modificare + Select ACTACTAN + Locate For SCD=m.CONT + m.BANVALDEB=nume_3 + ENDIF + + Select banVnume + Locate For nume_3=m.BANVALDEB + If Flock() + If !Found() + Append Blank + *Gather Fields nume_3 Memv + REPLACE NUME_3 WITH m.BANVALDEB + Endif + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + + Select ACTACTAN + SCAN For SCD=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + m.banca=m.BANVALDEB + + Select bancaVAL + If Flock() + Append Blank + Gather Memv + Replace incasari With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace incasVAL With m.suma_2 + Endif + UNLOCK + Select ACTACTAN + ENDSCAN +ENDIF +Return + + + +*----------------------------------------------- +Procedure _542 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT + + +Select achit542 +If Flock() + If Alltrim(NUME_2)!=Alltrim(M.NUME_2) + Seek Alltrim(M.NUME_2) + If !Found() + Append Blank + Gather Fields NUME_2,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + + +&&&&&&&&&&& achiLUN +Local nui +Select achilun +Set Order To nract +&&debitul=factura +If tndebit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select achilun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME_2 AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + Replace totctva With totctva+TnDebit + Replace SUMAVAL With SUMAVAL+TnVALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE nume WITH m.nume_2 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If tnCredit!=0 OR (tnCredit=0 AND tnDebit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select achilun +*!* DO CASE +*!* CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'achilun','ascc','nume_2' +*!* OTHERWISE +*!* Select achilun +*!* If Flock() +*!* Replace achitat With achitat+tnCredit +*!* Replace achitatVAL With achitatVAL+TnVALcredit +*!* Endif +*!* Unlock +*!* ENDCASE + +Endif + + +Select achilun +Set Order To Tag dataireg + +*!* Parameters debit,credit,VALDEBIT,VALCREDIT +*!* &&&&&&&&&&& achit542 +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT Or SCD=m.CONT +*!* Scatter Fields nume_2 Memv + +*!* Select achit542 +*!* If Flock() +*!* If Upper(Alltrim(nume_2))!=Upper(Alltrim(M.nume_2)) +*!* Seek Upper(Alltrim(M.nume_2)) +*!* If !Found() +*!* Append Blank +*!* Gather Fields nume_2 Memv +*!* Endif +*!* Endif +*!* Replace dat With dat+credit, luat With luat+debit +*!* Endif +*!* Unlock +Endproc +*----------------------------------------------- +Procedure _455 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select actionar +If Flock() + If Upper(Alltrim(nume_2))!=Upper(Alltrim(M.nume_2)) + Seek Upper(Alltrim(M.nume_2)) + If !Found() + Append Blank + Gather Fields nume_2 Memv + Endif + Endif + Replace dat With dat+debit, luat With luat+credit +Endif +Unlock +Endproc + + +*-------------------------------------------------------- +Procedure _471 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Local nui +Select chavans +Set Order To nract + +Select chavans + +If debit!=0 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + Select chavans + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Endif + + Select chavans + Replace totctva With totctva+debit + Endif + Unlock +Endif + +&&debitul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter Memv + Select chavans + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'chavans','ascc','nume' + ELSE + Select chavans + * LOCATE FOR ALLTRIM(nume)=ALLTRIM(m.nume) AND ALLTRIM(dst_chlt)=ALLTRIM(m.dst_chlt) + * IF FOUND() + If Flock() + Replace achitat With achitat+credit + Endif + UNLOCK + * ENDIF + Endif +Endif + +Select chavans +Set Order To Tag dataireg +Endproc + +*-------------------------------------------------------- + +Procedure _472 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Local nui +Select vnavans +Set Order To nract + +Select vnavans + +If credit!=0 + nui=.F. + Select ACTACTAN + Locate For SCc=m.CONT AND ascc=m.acont + Scatter Memv + Select vnavans + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Endif + + Select vnavans + Replace totctva With totctva+credit + Endif + Unlock +Endif + +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascd=m.acont + Scatter Memv + Select vnavans + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'vnavans','ascd','nume' + ELSE + Select vnavans + * LOCATE FOR ALLTRIM(nume)=ALLTRIM(m.nume) AND ALLTRIM(dst_chlt)=ALLTRIM(m.dst_chlt) + * IF FOUND() + If Flock() + Replace achitat With achitat+credit + Endif + UNLOCK + * ENDIF + Endif +Endif + +Select vnavans +Set Order To Tag dataireg +ENDPROC + +*----------------------------------------------------------------- +Procedure _5112 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ACTACTAN +Locate For SCD=m.CONT Or SCC=m.CONT +Scatter Memv + +Select cecnume +If Flock() + If Upper(Alltrim(cec))!=Upper(Alltrim(M.explicatia)) + Seek Upper(Alltrim(M.explicatia)) + If !Found() + Append Blank + Replace cec With m.explicatia + Endif + Endif + Replace incarcat With incarcat+debit,plati With plati+credit +Endif +Unlock +Sele cec +If Flock() + Go Bottom + Appe Blank + m.plati=credit + m.incarcat=debit + Gather Memvar +Endif +Unlock +Endproc +*-------------------------------------------------------- + +*!* PROCEDURE _667 +*!* PARAMETERS debit,credit,valdebit,valcredit + +*!* SELECT actactan +*!* LOCATE FOR scd=m.cont +*!* lcScc=scc +*!* SELECT infisiere +*!* LOCATE FOR cont=lcScc +*!* SCATTER NAME ofis +*!* SELECT (ofis.fisier) + +*!* ENDPROC + + + +Procedure SCRIE_NIR + +DD=Datetime() +Select INTRARI +Replace All COD With M.COD +Replace All UTIL With UTILIZATOR +Replace All DATAORA With DD +Do INRULAJMAGAZII +Do INSTOCURIMAGAZII +Return + + +*-------------------------------------------------------- +Function LANS +Parameters IDS + +*DO STERGE + +m.ID_SET=IDS +Select XSETS +Seek IDS +Scatter Name OXSET +oitem=Crea('actbaza') +oitem.ID_SET=IDS +oitem.Show(1) +If OXSET.nu_sterg=.F. And buton!=2 + Do danu With 'Doriti sa continuati cu operatii de acest fel?' + If buton=1 + LANS(IDS) + Endif +Endif +Release OXSET +Return + + + + +*---------------------------------------------- +Procedure afis_operatii +PARAMETERS tcFis,tlVisible +SELECT (tcFis) +Scatter Fields COD,SCD,SCC,nume_2 Memvar +Select * From &tcFis Where &tcFis..COD=m.COD Into Cursor AAA NOFILTER +Select AAA +N=Reccount() + +Public camp +Scatter Name camp + +Do Form vizpage +*ov=CREATEOBJECT('vizpage') && NU MERGE SI NU INTELEG DE CE :( +*ov.bandablOC1.visible=tlVisible +*ov.banda21.visible=!tlVisible +*ov.blocbuton1.visible=!tlVisible +*ov.show() + +Release camp +Select rull +Set Filter To +Select &tcfis +Endproc + + + + + + + +*!* *------------------------------------------- + +*!* Function BLOCHEZ_NIR +*!* Select NRNIR +*!* Flock() + +*!* DO case +*!* case nr_bonuri=0 +*!* Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST +*!* m=m+1 +*!* m.NNIR='1'+Str(NR_GEST,1,0)+Str(m.GEST,3,0)+Str(m,5,0) +*!* m.NNIR=Strtran(M.NNIR,' ','0') +*!* case nr_bonuri=1 +*!* Calculate Max(NR) To m +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* case nr_bonuri=2 +*!* Calculate Max(NR) To m For NRGEST=idutil +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* Endcase +*!* Append Blank +*!* Gather Fields NNIR Memv +*!* Replace NRGEST With idutil,NR With m +*!* *Replace NRGEST With m.nr_gest,NR With m +*!* Unlock +*!* Return M.NNIR + +*------------------------------------------- +Function BLOCHEZ_NIR +LOCAL G,M +STORE 0 TO M,G +Select NRNIR +Flock() + +DO case +case nr_bonuri=0 + Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST + m=m+1 + m.NNIR='1'+Str(NR_GEST,1,0)+Str(m.GEST,3,0)+Str(m,5,0) + m.NNIR=Strtran(M.NNIR,' ','0') + G= m.nr_gest +case nr_bonuri=1 + Calculate Max(NR) To m + m=m+1 + m.NNIR=Alltrim(Str(m)) +case nr_bonuri=2 + Calculate Max(NR) To m For NRGEST=idutil + m=m+1 + m.NNIR=Alltrim(Str(m)) + G= idutil +ENDCASE +Select NRNIR +Append Blank +Gather Fields NNIR,GEST Memv +*Replace NRGEST With idutil,NR With m +*Replace NRGEST With m.nr_gest,NR With m +REPLACE NR WITH M,NRGEST WITH G +Unlock +Return M.NNIR + + + + +*---------------------------------- +Function ELIB_NIR +Parameters N +Select NRNIR +Seek N +If Found() + If Flock() + Delete + Endif + Unlock +Endif +Return + + + +*!* *------------------------------------------- + +*!* Function BLOCHEZ_BON +*!* Select nrbon +*!* Flock() +*!* DO case +*!* case nr_bonuri=0 +*!* Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST +*!* m=m+1 +*!* m.NNIR='2'+Str(NR_GEST,1,0)+Str(M.GEST,3,0)+Str(m,5,0) +*!* m.NNIR=Strtran(M.NNIR,' ','0') +*!* case nr_bonuri=1 +*!* Calculate Max(NR) To m +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* case nr_bonuri=2 +*!* Calculate Max(NR) To m For NRGEST=idutil +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* Endcase +*!* Append Blank +*!* Gather Fields NNIR Memv +*!* Replace NRGEST With idutil,NR With m +*!* *!* Gather Fields NNIR,gest Memv +*!* *!* Replace NRGEST With m.nr_gest,NR With m +*!* Unlock +*!* Return M.NNIR + +*------------------------------------------- +Function BLOCHEZ_BON +LOCAL G,M +STORE 0 TO G,M +Select nrbon +Flock() + +DO case +case nr_bonuri=0 + Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST + m=m+1 + m.NNIR='2'+Str(NR_GEST,1,0)+Str(M.GEST,3,0)+Str(m,5,0) + m.NNIR=Strtran(M.NNIR,' ','0') + G= m.nr_gest +case nr_bonuri=1 + Calculate Max(NR) To m + m=m+1 + m.NNIR=Alltrim(Str(m)) +case nr_bonuri=2 + Calculate Max(NR) To m For NRGEST=idutil + m=m+1 + m.NNIR=Alltrim(Str(m)) + G= idutil +ENDCASE +SELECT NRBON +Append Blank +Gather Fields NNIR,GEST Memv +*Replace NRGEST With idutil,NR With m +*!* Gather Fields NNIR,gest Memv +*!* Replace NRGEST With m.nr_gest,NR With m +REPLACE NR WITH M,NRGEST WITH G +Unlock +Return M.NNIR + +*---------------------------------- + +Function ELIB_BON +Parameters N +Select nrbon +Seek N +If Found() + If Flock() + Delete + Endif + Unlock +Endif +Return +*______________________________________________________________________________ + +Procedure aleg_doc_plata +Parameters tcfis,tcNume,tlval,tcFelCont + +If Used('actcv') + Use In actcv +Endif + +tcNume=Upper(Alltrim(tcNume)) +tcfis=Alltrim(tcfis) +IF tlval + lccond=[ABS(&tcfis..sumaval-&tcfis..achitatval)>0] +ELSE + IF existacamp('&tcfis','sumaval') + lccond=[&tcfis..sumaval-&tcfis..achitatval=0] + ELSE + lccond='.t.' + ENDIF +ENDIF + + +Sele distinct &tcfis..* ; + FROM &tcfis ; + WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) And ; + !(Abs(&tcfis..totctva-&tcfis..achitat)=0 Or (&tcfis..totctva<&tcfis..achitat And &tcfis..totctva>0)) and ; + &lccond ; + into TABLE &LOC\&NFSCURT\TEMPO\actcv order by &tcfis..dataact + + +*!* SELECT DISTINCT actan.cod,actan.nrord FROM actan,&tcfis WHERE actan.cod=&tcfis..cod AND actan.NRACT=&tcfis..NRACT ; +*!* INTO CURSOR actfis +*!* SELECT &tcfis..*,actfis.nrord ; +*!* FROM (&tcfis left join actfis on &tcfis..cod=actfis.cod) ; +*!* WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) And ; +*!* !(Abs(&tcfis..totctva-&tcfis..achitat)=0 Or (&tcfis..totctva<&tcfis..achitat And &tcfis..totctva>0)) and ; +*!* &lccond ; +*!* into TABLE &LOC\&NFSCURT\TEMPO\actcv order by &tcfis..dataact +*!* USE IN actfis + + +DO CASE + CASE ALLTRIM(UPPER(tcFelCont))='A' + ALTER TABLE actcv rename COLUMN ACONT to ascc + CASE ALLTRIM(UPPER(tcFelCont))='P' + ALTER TABLE actcv rename COLUMN ACONT to ascd +ENDCASE + +Alter Table actcv Add Column ALES L Add Column sumaachi N(14) Add Column SUMAACHI2 N(14,2) Add Column achilei N(14) +IF tlval + Alter Table actcv ADD COLUMN difplus n(14) ADD COLUMN difminus n(14) Add Column cursval n(7) Add Column cursdif n(7) +ENDIF + +Sele actcv +Go Top + +Endproc && aleg_doc_plata + +*______________________________________________________________________________ + +Procedure trezorerie_plati +Parameters tcfis,tcAcont,tcCol + +tcAcont=ALLTRIM(tcAcont) +lcAcont='trez.'+tcAcont +lcCol='trez.'+ALLTRIM(tcCol) + +*!* IF USED('actcv') +*!* Select actcv +*!* Scan For ALES +*!* Scatter Name trez +*!* +*!* IF existacamp('actcv',tcAcont) +*!* Select (tcfis) +*!* IF TYPE('actcv.proc_tva')#'U' +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME AND acont=&lcAcont AND proc_tva=trez.proc_tva +*!* ELSE +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME AND acont=&lcAcont +*!* ENDIF +*!* ELSE +*!* Select (tcfis) +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME +*!* ENDIF +*!* If Flock() +*!* Replace achitat With achitat+trez.sumaachi +*!* IF existacamp('&tcfis','achitatval') +*!* Replace achitatval With achitatval+trez.sumaachi2 +*!* ENDIF +*!* Endif +*!* UNLOCK +*!* Select actcv +*!* ENDSCAN +*!* ELSE && pt modificare sau analitice diferite + + SELECT actactan + Scan For pereche#0 AND &tcAcont=m.acont + Scatter Name trez + IF TYPE(tcfis+'.acont')#'U' + Select (tcfis) + IF TYPE(tcfis+'.proc_tva')#'U' + Locate For nract=trez.pereche And NUME=&lcCol AND acont=&lcAcont AND proc_tva=trez.proc_tva + ELSE + Locate For nract=trez.pereche And NUME=&lcCol AND acont=&lcAcont + ENDIF + ELSE + Select (tcfis) + Locate For nract=trez.pereche And NUME=&lcCol + ENDIF + + IF FOUND() + If Flock() + Replace achitat With achitat+trez.suma + IF TYPE(tcfis+'.achitatval')#'U' + Replace achitatval With achitatval+trez.suma_2 + ENDIF + ENDIF + UNLOCK + ENDIF + + Select actactan + ENDSCAN +*!* ENDIF +Release trez + +IF USED('actcv') + USE IN actcv +ENDIF +Endproc && trezorerie_incasari_plati + +*______________________________________________________________________________ + +Procedure trezorerie_incasari +Parameters tcfis,tcAcont,tcCol + + +tcAcont=ALLTRIM(tcAcont) +lcAcont='trez.'+tcAcont +lcCol='trez.'+ALLTRIM(tcCol) + +SELECT actactan +Scan For pereche2#0 AND &tcAcont=m.acont + Scatter Name trez + IF TYPE(tcfis+'.acont')#'U' + Select (tcfis) + IF TYPE(tcfis+'.proc_tva')#'U' + Locate For nract=trez.pereche2 And NUME=&lcCol AND acont=&lcAcont AND proc_tva=trez.proc_tva + ELSE + Locate For nract=trez.pereche2 And NUME=&lcCol AND acont=&lcAcont + ENDIF + ELSE + Select (tcfis) + Locate For nract=trez.pereche2 And NUME=&lcCol + ENDIF + + IF FOUND() + If Flock() + Replace achitat With achitat+trez.suma + IF TYPE(tcfis+'.achitatval')#'U' + Replace achitatval With achitatval+trez.suma_2 + ENDIF + ENDIF + UNLOCK + ENDIF + + Select actactan +ENDSCAN + +Release trez + +IF USED('actcv') + USE IN actcv +ENDIF +Endproc && trezorerie_incasari +*------------------------------------------------------------------------------ + + + +PROCEDURE test_facturi +Parameters tcfis,tccont,tcNume,tcfel + +tcNume=Upper(Alltrim(tcNume)) +tcfis=Alltrim(tcfis) + + LcCond=upper(allt(ofis.camp_verif))+[=']+tcnume+[' AND ]+tcfel+[=']+Tccont+['] && ofis.camp_verif---> vezi procedura viz_fact + SELE 0 + USE &DATE/ACT.DBF AGAIN ALIAS ACn1 + + SELECT ACN1 + SET FILTER TO &Lccond + + select &tcfis..nume,&tcfis..dataact,&tcfis..nract,&tcfis..dataireg,&tcfis..totctva as suma,; + &tcfis..achitat,&tcfis..achitat as pereche,&tcfis..fdoc,&tcfis..fdoc as scc,&tcfis..fdoc as scd,&tcfis..fdoc as nume_2,&tcfis..fdoc as explicatia; + FROM &tcfis; + WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) ; + into cursor acn2 order by dataireg + +RETURN LcCond +ENDPROC + +*________________________________________________________________________________ + +PROCEDURE imperechere_fact_avans +PARAMETERS tcfis,tcNume,TnSuma,tlval,tcPereche + +PRIVATE PlStrict +STORE .f. to PlStrict + +tcfis=UPPER(ALLTRIM(tcfis)) +tcNume=Upper(Alltrim(tcNume)) +lcPereche='m.'+ALLTRIM(tcPereche) +IF tlval + lccond=[&tcfis..achitatval-&tcfis..factval>0] +ELSE + lccond=[&tcfis..achitatval-&tcfis..factval=0] +ENDIF + +IF USED('actcv1') + USE IN actcv1 +ENDIF + +SELECT * ; + from &tcfis; + where Upper(Alltrim(&tcfis..NUME))==tcNume AND &tcfis..achitat-&tcfis..facturat#0 AND &lccond; + into Table &loc\&nfscurt\tempo\actcv1 order by dataact + ALTER TABLE actcv1 ADD COLUMN ales l ADD COLUMN sumaachi n(14) ADD COLUMN sumaachi2 n(14,2) ; + ADD COLUMN difplus n(14) ADD COLUMN difminus n(14) + +IF _tally=0 + DO mesaj with 'Nu exista avansuri inregistrate','la acest partener !' + DO STERGE + DO inchid_actcv + DO deschid_actc + RETURN +ENDIF + + +IF xsets.id_set=10421 && regularizari clienti creditori + SELECT actcv + REPLACE ALL sumaachi WITH sumaachi/m.ctva FOR neimpozab=0 AND ales + REPLACE ALL neimpozab WITH sumaachi FOR neimpozab#0 AND ales + SUM sumaachi TO tnsuma FOR ales +ENDIF + +*m.suma=tnsuma + +SELECT actcv1 +IF !tlval + oavans=CREATEOBJECT('avansales') + oavans.suma=tnSuma +ELSE + oavans=CREATEOBJECT('avansval') + oavans.suma_2=m.suma_2 +ENDIF + +oavans.pcfis='AVANS' +oavans.show(1) + +IF buton=2 + DO sterge + DO inchid_actcv + DO deschid_actc + RETURN +ENDIF + +SELECT ACTCV1 +LOCATE FOR ALES +SCATTER NAME av + + +IF av.proc_tva=0 + m.proc_tva=m.ctvam +ELSE + m.proc_tva=av.proc_tva +ENDIF + +lnSumaAchi=av.sumaachi +lnSumaAchiVal=av.sumaachi2 + +NRAVANS=NRACT +DATAAVANS=DATAACT +LcNRORD=ALLT(STR(NRAVANS))+' / '+ALLT(DTOC(DATAAVANS)) + +*!* IF USED('actactan') +*!* USE IN actactan +*!* ENDIF +*!* IF USED('actc') +*!* USE IN actc +*!* ENDIF + +*!* USE &LOC\&NFSCURT\TEMPO\ACTc IN 0 again ALIAS ACTACTAN exclusive ORDER TAG nr_nota +*!* SET DELETED ON + +SELECT actactan +PACK + +IF lnSumaAchi0 OR sumaachi2-LnminVal>0 + REPLACE sumaachi WITH LnMin + REPLACE sumaachi2 WITH LnMinVal + ENDIF + LnSumaAchi=LnSumaAchi-LnMin + LnSumaAchiVal=LnSumaAchiVal-LnMinVal + + SELECT actactan + GOTO lni + + SELECT actactan + REPLACE suma WITH LnMinAct + REPLACE suma_2 WITH LnMinVal + REPLACE &tcPereche WITH av.nract +* REPLACE neimpozab WITH lnNeimpozab + + SELECT actactan + IF tlval + IF suma_3>av.cursschimb + SCATTER NAME oaa + APPEND BLANK + GATHER NAME oaa + IF tcfis='AVANS419' + REPLACE scd WITH '665 ',suma WITH (oaa.suma_3-av.cursschimb)*LnMinVal,; + explicatia WITH 'DIFERENTE NEFAVORABILE',suma_2 WITH 0,suma_3 WITH av.cursschimb + ELSE + REPLACE scc WITH '765 ',suma WITH (oaa.suma_3-av.cursschimb)*LnMinVal,; + explicatia WITH 'DIFERENTE FAVORABILE',suma_2 WITH 0,suma_3 WITH av.cursschimb + ENDIF + ENDIF + IF suma_3m.precdeb Or apreccred<>m.preccred Or aruldeb<>m.RULDEB Or arulcred<>m.RULCRED + Select BALANA + Seek m.cont+acontvid + If !Found() + Append Blank + Gather Memv + REPLACE acont WITH acontvid + Endif + Replace precdeb With m.precdeb-aprecdeb + Replace preccred With m.preccred-apreccred + Replace RULDEB With m.RULDEB-aruldeb + Replace RULCRED With m.RULCRED-arulcred + Endif + Select cc +ENDSCAN + +ENDIF +UNLOCK IN balana +SELECT balana +SET FILTER TO +return + + + +*_______________________________________ +Procedure CALCULEAZABALANTA_ANA +Select BALANA +If Flock() + Replace All TOTDEB With RULDEB+precdeb; + totcred With RULCRED+preccred +Endif +Unlock +Scan + If Flock() + If TOTDEB-totcred>0 + Replace SOLDDEB With TOTDEB-totcred; + SOLDCRED With 0 + Else + Replace SOLDCRED With totcred-TOTDEB; + SOLDDEB With 0 + Endif + Endif + Unlock +Endscan +Return +******************************************** + +PROCEDURE introducere_compacta +PARAMETERS tcfis,tcscd,tcscc,tl_calcTVA,tl_plata,tctitlu,tctva,tn_idset + +*!* tcfis=fisierul din calefirma (achi_mat.dbf) +*!* tcscd=simbol cont debitor +*!* tcscc=simbol cont creditor +*!* tl_calctva=daca se calculeaza TVA-ul per total +*!* tl_plata=daca se achita factura respectiva +*!* tctitlu=titlul formularului frm_introd_compact +*!* tctva=contul de TVA (daca tl_calctva=.t.) +*!* tn_idset=parametrul functiei lans() + +IF USED('introdc') + USE IN introdc +ENDIF + +SELECT (tcfis) +COPY STRUCTURE TO &loc\&nfscurt\tempo\introdc WITH CDX +USE &loc\&nfscurt\tempo\introdc IN 0 SHARED + +SELECT introdc +APPEND FROM &CALEFIRMA\DATEAN\&tcfis FOR id_set=tn_idset +SET ORDER TO tag ordine + +SELECT introdc +IF FLOCK() + IF INLIST(tn_idset,10467,10468) && PLATI IMPOZITE + REPLACE ALL nrcrt WITH 0 + ELSE + REPLACE ALL NRCRT WITH ordine + ENDIF + + IF !EMPTY(tcscd) + REPLACE ALL scd WITH tcscd FOR EMPTY(scd) OR UPPER(scd)='X' + ENDIF + + IF !EMPTY(tcscc) + REPLACE ALL scc WITH tcscc FOR EMPTY(scc) OR UPPER(scc)='X' + ENDIF + + IF m.ctva-1=0 + REPLACE ALL bifa WITH .t. + REPLACE ALL ptva WITH 0 + ENDIF +ENDIF +UNLOCK + +SELECT actactan +ZAP + +SELECT introdc +GO TOP +obj=CREATEOBJECT('FRM_INTROD_COMPACT') +obj.gridb1.column3.backcolor=RGB(255,255,255) +obj.gridb1.column4.backcolor=RGB(255,255,255) + +IF !tl_plata + obj.container2.visible=.f. + obj.container2.optiongroup1.value=0 + OBJ.HEIGHT=obj.container2.TOP +ELSE +obj.container2.optiongroup1.value=1 +ENDIF + +IF !tl_calcTVA + obj.container1.visible=.f. + OBJ.HEIGHT=obj.container1.TOP+10 +ENDIF + +obj.titlufrumos1.caption=tctitlu +obj.show(1) + +IF BUTON=2 + DO deschid_actc + RETURN +ENDIF + +*!* IF tn_idset=10455 && rate leasing +*!* lans(10411) +*!* ENDIF + +SELECT actactan +REPLACE ALL id_set WITH tn_idset + +SELECT actactan +SCRIE_IN_FISIERE(' ') + +DO deschid_actc +ENDPROC &&introducere_compacta + +*___________________________________________________ +PROCEDURE deschid_actc + +IF USED('actactan') + USE IN actactan +ENDIF + +IF !USED('ACTc') + DO DES WITH 'ACTc' +ENDIF + +ENDPROC && deschid_actc + +*____________________________________________________ +PROCEDURE inchid_actcv + +IF USED('actcv') + USE IN actcv +ENDIF + +IF USED('ACTcv1') + USE IN 'ACTcv1' +ENDIF + +ENDPROC && inchid_actcv + + +*_____________________________________________________________________________________________________________________ +PROCEDURE viz_facturi +PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + + +SELECT infisiere +LOCATE FOR VAL(cont)=tnCont +SCATTER NAME ofis + +*!* SELECT(tcfis1) +*!* If EXISTACIMP(tcfis1,'TOTDEB') +*!* If Flock() +*!* DO CASE +*!* CASE UPPER(ofis.fel)='A' +*!* Replace All totdeb With precdeb+productie,totcred With preccred+incasat +*!* CASE UPPER(ofis.fel)='P' +*!* Replace All totdeb With precdeb+platit,totcred With preccred+achizit +*!* ENDCASE +*!* Endif +*!* UNLOCK +*!* ENDIF + +SELECT(tcfis1) +If EXISTACIMP(tcfis1,'TOTDEB') + Replace All totdeb With precdeb+&TcColDeb,totcred With preccred+&TcColCred +ENDIF + + +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 tlCuTest + SELECT (tcfis2) + Set Filter To + lcProc='inainte_'+ALLTRIM(tcfis2) + Do &lcProc In inaintede.prg + If buton=2 + Return + ENDIF +ENDIF + +If Used('ACTCV') + Use In actcv +ENDIF + +lcCale='&Date\'+ALLTRIM(tcfis2) +Use &lcCale In 0 Again Alias actcv SHARED order dataireg + +Sele actcv +*!* Index On &C Tag nd Of &loc\&nfscurt\tempo\actcv +*!* Index On DATAireg Tag DATAireg Of &loc\&nfscurt\tempo\actcv additive +*!* Set Order To Tag DATAireg + +PRIVATE pcAnalitic +STORE '' TO pcAnalitic + +Oreg=Createobject("AFCUMPVANZanp") +With Oreg + .LABEL10.Caption=PROPER(tcTitlu) + .grid1.column12.Visible=.T. + .cont=tnCont + .fisier=ALLTRIM(tcFis2) + .CHECK2.Visible=tlVisible + .CHECK6.Visible=tlVisible + .CHECK7.Visible=tlVisible + .CHECK9.Visible=tlVisible + *.command1.Visible=tlVisible + *.command3.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 +Endwith +*OREG.cmdlist1.VISIBLE=.f. +Oreg.Show(1) +IF USED('actcv') + Use In actcv +ENDIF +RELEASE ofis +RELEASE oreg + +*?????? Do totv + +ENDPROC && viz_facturi + + + +*-------------------------------------- +Function STERGE_DIN_FISIERE +Parameters PlConfirmare,pnCod +Local M.DEB,M.CRED,COND +Store 0 To M.DEB, M.CRED + +CREATE TABLE &loc\&nfscurt\tempo\conturi.dbf FREE (cont c(4),ana c(4),deb n(14),cred n(14),debval n(14.2),credval n(14.2)) + +SELECT conturi +APPEND BLANK +APPEND BLANK + +DD=Datetime() + +IF PlConfirmare + IF USED('actactan') + USE IN actactan + ENDIF + + SELECT * from actjur WHERE cod=pnCod INTO CURSOR actactan + overif=CREATEOBJECT('verificare') + overif.show(1) + IF buton=2 + USE IN conturi + Release Overif + RETURN + ENDIF +ENDIF + + + +&& sterg efectele neimpozab,TVA si baza din cump si vanz pt toate inregistrarile din nota +&& in loc sa fac o procedura sterg_4426 si sterg_4427 +DO sterg_TVA WITH "actactan" + + +Select ACTJUR +SET FILTER TO +SCAN FOR cod=pnCod +SCATTER NAME osterg + + Replace UTILS With UTILIZATOR, DATAORAS With DD + DELETE + + Select ACTAN + SET DELETED ON + If Flock() + LOCATE FOR cod=osterg.cod AND scd=osterg.scd AND scc=osterg.scc AND suma=osterg.suma + IF FOUND() + DELETE + ENDIF + Endif + UNLOCK + + SELECT conturi + GOTO 1 + REPLACE cont WITH osterg.scd,ana WITH osterg.ascd,deb WITH -osterg.suma,debval WITH -osterg.suma_2 + GOTO 2 + REPLACE cont WITH osterg.scc,ana WITH osterg.ascc,cred WITH -osterg.suma,credval WITH -osterg.suma_2 + + && sterge din balanta si balanta analitica + + Select conturi + SCAN + Scatter Memv + Select BAL + If Flock() + Seek ALLTRIM(M.CONT) + If !Found() + Do MESAJ With 'Contul '+M.CONT+' nu se regaseste in balanta!','' + ELSE + Select BAL + Replace RULDEB With RULDEB+M.DEB, TOTDEB With TOTDEB+M.DEB,; + RULCRED With RULCRED+M.CRED, TOTCRED With TOTCRED+M.CRED + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0), SOLDCRED With Iif(SOLD<0,-SOLD,0) + Endif + Endif + UNLOCK + + SELECT balana + IF FLOCK() + IF !EMPTY(m.ana) + Seek m.cont+m.ana + IF FOUND() + Replace RULDEB With RULDEB+M.deb, TOTDEB With TOTDEB+M.deb, ; + RULcred With RULcred+M.cred, TOTcred With TOTcred+M.cred + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0),SOLDcred With Iif(SOLD<0,-SOLD,0) + ENDIF + ENDIF + ENDIF + UNLOCK + Select conturi + ENDSCAN + + Select Distinct A.Cont,b.ana as acont,A.FPROC,B.DEB,B.CRED,B.DEBVAL,B.CREDVAL From INFISIERE A, conturi B ; + WHERE A.Cont=B.Cont ; + INTO Cursor COM + + Select COM + SCAN + Scatter Memv + zz='Do '+'sterg'+Alltrim(FPROC)+' with m.deb,m.cred,M.DEBVAL,M.CREDVAL' + &zz + SELECT com + ENDSCAN +Select ACTJUR +ENDSCAN + + +&&in gestiuni ???? +sele RUL +set filter to +if flock() + DELETE for cod=osterg.cod +endif +unlock in rul + +sele RULL +set filter to +if flock() + SCAN FOR cod=osterg.cod + IF PlConfirmare + scat memv + sele stoc + if flock() + loca for allt(denumire)=allt(m.denumire) and allt(codmat)=allt(m.codmat) and pret=m.pret and gest=m.gest and scd=m.scd + if found() + if m.cant#0 + repl cant with cant-m.cant + else + repl cante with cante-m.cante + endif + endif + ENDIF + UNLOCK + ENDIF + sele rull + delete + endscan +endif + +unlock in rull + +USE IN conturi +Do STERGE +Release Osterg +Return 0 + + + + + +*----------------------------------------------- +Procedure sterg_401 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZOR +If Flock() + + Seek Alltrim(osterg.NUME) + + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND osterg.ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& CUMPLUN +Select cumplun +IF credit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit+di + Replace SUMAVAL With SUMAVAL+VALcredit+div + Replace achitat With achitat+debit+di + Replace achitatVAL With achitatVAL+VALdebit+div + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=credit+di + +*!* IF Left(osterg.scd,3)='442' +*!* m.tvam=credit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select cump +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + + +*----------------------------------------------- +Procedure sterg_404 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZ404 +If Flock() + + Seek Alltrim(osterg.NUME) + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND osterg.ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +Select cumplun404 +IF credit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit+di + Replace SUMAVAL With SUMAVAL+VALcredit+div + Replace achitat With achitat+debit+di + Replace achitatVAL With achitatVAL+VALdebit+div + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +&&&&&&&&&&&CUMP + +*!* If (credit!=0 OR di#0) AND osterg.neimpozab#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=credit+di + +*!* IF Left(osterg.scd,3)='442' +*!* m.tvam=credit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select cump +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + +*---------------------------------------------- + +Procedure sterg_408 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ana408 +If Flock() + Seek Alltrim(osterg.NUME) + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + + +Select fact408 +IF credit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit + Replace SUMAVAL With SUMAVAL+VALcredit + Replace achitat With achitat+debit + Replace achitatVAL With achitatVAL+VALdebit + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +*!* IF debit#0 && pt regularizari 408-401,4426-4428 +*!* LOCAL lnSUma +*!* lnSuma=0 +*!* SELECT cump +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* lnSuma=ROUND(debit*(m.ctva-1)/m.ctva,0) +*!* REPLACE tvam WITH tvam+lnSuma +*!* REPLACE totftvam WITH totftvam-lnSuma +*!* ENDIF +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +RETURN + +*----------------------------------------------- +PROCEDURE sterg_4426 +Parameters debit,credit,VALDEBIT,VALCREDIT +*** vezi sterg_TVA +RETURN + + +*----------------------------------------------- +PROCEDURE sterg_4427 +Parameters debit,credit,VALDEBIT,VALCREDIT +*** vezi sterg_TVA +RETURN + +*----------------------------------------------- +Procedure sterg_409 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS409 +If debit#0 + If Flock() + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME + If Found() + Replace achitat With achitat+debit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALdebit + Endif + Endif + Unlock +Endif +If credit#0 +*!* lcDat=Right(Allt(osterg.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(osterg.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + + Select AVANS409 + Locate For nract=osterg.pereche2 And NUME=osterg.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+credit + Replace factVAL With factVAL+valcredit + Endif + UNLOCK + ENDIF +ENDIF + +SELECT avans409 +IF achitat=0 AND facturat=0 AND achitatval=0 AND factval=0 + DELETE +ENDIF +Select FURNIZOR +If Flock() + Seek Alltrim(osterg.NUME) + If Found() + Replace avans With avans+debit-credit + Replace avansVAL With avansVAL+VALdebit-VALcredit + Endif +Endif +UNLOCK + +Return +*------------------------------------------------------------- +Procedure sterg_419 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS419 +If credit#0 + If Flock() + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME + If Found() + Replace achitat With achitat+credit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Endif + Unlock +ENDIF + +If debit#0 +*!* lcDat=Right(Allt(osterg.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(osterg.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS419 + Locate For nract=osterg.pereche And NUME=osterg.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+debit + Replace factVAL With factVAL+valdebit + Endif + UNLOCK + ENDIF +Endif +SELECT avans419 + +IF achitat=0 AND facturat=0 AND achitatval=0 AND factval=0 + DELETE +ENDIF + +Select clienti +If Flock() + Seek Alltrim(osterg.NUME) + If Found() + Replace avans With avans-debit+credit + Replace avansVAL With avansVAL-VALdebit+VALcredit + Endif +Endif +UNLOCK + +*--------------------------------------------------------------------- + +Procedure sterg_462 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& CREDITORI + +Select CREDITOR +If Flock() + Seek Alltrim(osterg.NUME) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& CREDLUN + +Select credlun +IF TNcredit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+TNcredit+di + Replace SUMAVAL With SUMAVAL+TnVALcredit+div + Replace achitat With achitat+TNdebit+di + Replace achitatVAL With achitatVAL+TnVALdebit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +*---------------------------------------------- + +Procedure sterg_411 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& CLIENTI + +Select clienti +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +Local di,din,div,reg +STORE 0 TO di,din,div,reg + +DO CASE + CASE Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 + CASE osterg.id_set=10421 AND osterg.scc='4427' &®ularizare facturi-avans + reg=osterg.suma +ENDCASE + +&&&&&&&&&&& VANZLUN + +Select vanzlun +IF (debit#0 OR di#0) AND osterg.id_set#10421 &&discount + regularizare avans-factura + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit+di+reg + Replace SUMAVAL With SUMAVAL+VALdebit+div + Replace achitat With achitat+credit+di+reg + Replace achitatVAL With achitatVAL+VALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + + +&&&&&&&&&&&VANZ + +*!* If debit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=debit+di + +*!* IF Left(osterg.scc,3)='442' +*!* m.tvam=debit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* +*!* Select vanz +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT vanz +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +RETURN + +*---------------------------------------------- + +Procedure sterg_461 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& DEBITORI + +Select debitor +If Flock() + Seek Alltrim(osterg.NUME) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.ascc &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& DEBLUN + +SELECT deblun +IF tnDebit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+tndebit+di + Replace SUMAVAL With SUMAVAL+tnVALdebit+div + Replace achitat With achitat+tncredit+di + Replace achitatVAL With achitatVAL+tnVALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +&&&&&&&&&&&VANZ + +*!* If tnDebit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=tnDebit+di + +*!* IF Left(osterg.scc,3)='442' +*!* m.tvam=tnCredit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select vanz +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT vanz +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + +*--------------------------------------------------------------------------- + +Procedure sterg_4118 +Parameters debit,credit,VALDEBIT,VALCREDIT + +&&&&&&&&&&& CLIENT4118 +Select client4118 +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + + +&&&&&&&&&&& VANZLU4118 +Select vanzlu4118 +IF debit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit+di + Replace SUMAVAL With SUMAVAL+VALdebit+div + Replace achitat With achitat+credit+di + Replace achitatVAL With achitatVAL+VALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +RETURN + +*--------------------------------------------------------------------------- + +Procedure sterg_418 +Parameters debit,credit,VALDEBIT,VALCREDIT + +&&&&&&&&&&& ANA418 +Select ana418 +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +UNLOCK + + +&&&&&&&&&&& FACT418 +Select Fact418 +IF debit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit + Replace SUMAVAL With SUMAVAL+VALdebit + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + ENDIF + UNLOCK +ENDIF + +*----------------------------------------------------------------------------------- + +Procedure sterg_471 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select chavans +Set Order To nract + +Select chavans +IF debit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF + +If Found() + If Flock() + Replace totctva With totctva+debit + * Replace SUMAVAL With SUMAVAL+VALdebit + Replace achitat With achitat+credit + * Replace achitatVAL With achitatVAL+VALcredit + Endif + UNLOCK + IF totctva=0 AND achitat=0 + DELETE + ENDIF +ENDIF + +Select chavans +Set Order To Tag dataireg +ENDPROC + +*---------------------------------------------------------------------------------- + +Procedure sterg_472 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select vnavans +Set Order To nract + +Select vnavans +IF credit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche AND NUME=osterg.NUME AND acont=m.acont +ENDIF + +If Found() + If Flock() + Replace totctva With totctva+credit + * Replace SUMAVAL With SUMAVAL+VALcredit + Replace achitat With achitat+debit + * Replace achitatVAL With achitatVAL+VALdebit + Endif + UNLOCK + IF totctva=0 AND achitat=0 + DELETE + ENDIF +ENDIF + +Select vnavans +Set Order To Tag dataireg +ENDPROC + +*---------------------------------------------------------------------------------- + + +Procedure sterg_455 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select actionar +If Flock() + Seek Upper(Alltrim(osterg.nume_2)) + If Found() + Replace dat With dat+debit, luat With luat+credit + Endif +Endif +UNLOCK + +ENDPROC + +*-------------------------------------------------------- + +Procedure sterg_5311 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT casa +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select casanume +Locate For ALLTRIM(casa)=osterg.nume_3 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace plati With plati+credit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5314 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +SELECT casaval +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select casvnume +Locate For ALLTRIM(nume_5)=osterg.nume_5 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5121 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT banca +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select bannume +Locate For ALLTRIM(nume_2)=osterg.nume_2 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace plati With plati+credit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5124 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT bancaval +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select banvnume +Locate For ALLTRIM(nume_3)=osterg.nume_3 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + Endif +Endif +Unlock + +*-------------------------------------------------------- +Procedure sterg_5112 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Sele cec +If Flock() + LOCATE FOR cod=osterg.cod + IF FOUND() + DELETE + ENDIF +Endif +UNLOCK + +Select cecnume +If Flock() + LOCATE FOR UPPER(ALLTRIM(cec))=Upper(Alltrim(osterg.explicatia)) + If Found() + Replace incarcat With incarcat+debit,plati With plati+credit + Endif +Endif +UNLOCK + +ENDPROC + +*-------------------------------------------------------- + +Procedure sterg_542 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& DEBITORI + +Select achit542 +If Flock() + Seek Alltrim(osterg.NUME_2) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +&&&&&&&&&&& achiLUN + +SELECT achilun +IF tnDebit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME_2 AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME_2 AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+tndebit + Replace SUMAVAL With SUMAVAL+tnVALdebit + Replace achitat With achitat+tncredit + Replace achitatVAL With achitatVAL+tnVALcredit + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +*!* Parameters debit,credit,VALDEBIT,VALCREDIT +*!* &&&&&&&&&&& achit542 +*!* Select achit542 +*!* If Flock() +*!* Seek Upper(Alltrim(osterg.nume_2)) +*!* If Found() +*!* Replace dat With dat+credit, luat With luat+debit +*!* Endif +*!* Endif +*!* Unlock + +ENDPROC + +*----------------------------------------------------------------------- +*** INCEPUT PROCEDURA INTRODUC_TVA +PROCEDURE caut_neimpozab +PARAMETERS tcAlias + + +LOCAL lcAlias, lcTVAD,lcTVAC,llvanz,llcump + +lcAlias = ALLTRIM(tcAlias) +lcTVAD = "4426" +lcTVAC = "4427" + +SELECT infisiere +LOCATE FOR cont=lcTVAD +lclstcDD=coresp_d && lista corespondentelor 4426 pe debit +lclstcDC=coresp_c && lista corespondentelor 4426 pe credit +LOCATE FOR cont=lcTVAC +lclstcCD=coresp_d && lista corespondentelor 4427 pe debit +lclstcCC=coresp_c && lista corespondentelor 4427 pe credit + +STORE .F. to llvanz, llcump + +IF !USED(lcAlias) + RETURN +ENDIF + +*** caut daca exista inregistrari care afecteaza tva-ul +SELECT (lcAlias) +LOCATE FOR neimpozab!=0 +IF !FOUND() + RETURN +ENDIF + +SELECT (lcAlias) +LOCATE FOR neimpozab != 0 +IF FOUND() + IF INLIST(ALLTRIM(scd),&lclstcCC) OR INLIST(ALLTRIM(scc),&lclstcCD) + llvanz = .T. + ENDIF + IF INLIST(ALLTRIM(scd),&lclstcDC) OR INLIST(ALLTRIM(scc),&lclstcDD) + llcump = .T. + ENDIF +ENDIF + + +IF llcump + DO _4426 WITH 0,0,0,0 +ENDIF + +IF llvanz + DO _4427 WITH 0,0,0,0 +ENDIF + +RETURN +*----------------------------------------------------------------------- +*** INCEPUT PROCEDURA STERG_TVA +PROCEDURE sterg_TVA +PARAMETERS tcAlias + + +LOCAL lcAlias, lcTVAD,lcTVAC,llvanz,llcump + +lcAlias = ALLTRIM(tcAlias) +lcTVAD = "4426" +lcTVAC = "4427" + + +lclstcCD = [411;4111;4112;4113;4114;4115;4116;4117;4118;4119;4428] && lista corespondentelor 4427 pe debit +lclstcCC = [411;4111;4112;4113;4114;4115;4116;4117;4118;4119;461;5121;5124;5311;5314;428;635] && lista corespondentelor 4427 pe credit +lclstcDD = [401;404;5121;5124;542] && lista corespondentelor 4426 pe debit +lclstcDC = [4427;4424;635] && lista corespondentelor 4426 pe credit + +STORE .F. to llvanz, llcump + +IF !USED(lcAlias) + RETURN +ENDIF + +*** caut daca exista inregistrari care afecteaza tva-ul +SELECT (lcAlias) +LOCATE FOR neimpozab!=0 OR INLIST(scd,lcTVAD,lcTVAC) OR INLIST(scc,lcTVAD,lcTVAC) +IF !FOUND() + RETURN +ENDIF + +SELECT (lcAlias) +GO top +SCATTER NAME losterg + + +*** verific daca trebuie sa sterg din vanz sau din cump +SELECT (lcAlias) +LOCATE FOR INLIST(lcTVAD,scd,scc) +IF FOUND() + llcump = .T. +ELSE + LOCATE FOR INLIST(lcTVAC,scd,scc) + IF FOUND() + llvanz = .T. + ENDIF +ENDIF + +IF !(llcump OR llvanz) && daca nu am gasit inreg cu TVA caut neimpozab + SELECT (lcAlias) + LOCATE FOR neimpozab != 0 + IF FOUND() + IF ALLTRIM(scd)$lclstcCD OR ALLTRIM(scc)$lclstcCD OR ALLTRIM(scc)$lclstcCC OR ALLTRIM(scd)$lclstcCC + llvanz = .T. + ENDIF + IF ALLTRIM(scc)$lclstcDC OR ALLTRIM(scd)$lclstcDC OR ALLTRIM(scd)$lclstcDD OR ALLTRIM(scc)$lclstcDD + llcump = .T. + ENDIF + ENDIF +ENDIF + +IF llvanz + SELECT vanz + LOCATE FOR cod=losterg.cod AND nract=losterg.nract + IF FOUND() + IF FLOCK() + DELETE + UNLOCK + ENDIF + ENDIF +ENDIF + +IF llcump + SELECT cump + LOCATE FOR cod=losterg.cod AND nract=losterg.nract + IF FOUND() + IF FLOCK() + DELETE + UNLOCK + ENDIF + ENDIF +ENDIF + +ENDPROC && sterg_TVA +*----------------------------------------------- + +PROCEDURE regularizare_clienti + +&&&&&&&&&vanzlun +SELECT actactan +SCAN FOR INLIST(m.acont,ascc,ascd) + SCATTER NAME oreg + SELECT vanzlun + IF FLOCK() + DO CASE + CASE LEFT(OREG.scc,3)='411' + LOCATE FOR nract=oreg.pereche2 AND NUME=oreg.NUME AND acont=oreg.ascc + IF FOUND() + REPLACE achitat WITH achitat+oreg.suma + ENDIF + CASE LEFT(OREG.scd,3)='411' + LOCATE FOR nract=oreg.pereche2 AND NUME=oreg.NUME AND acont=oreg.ascd + IF FOUND() + REPLACE achitat WITH achitat-oreg.suma + ENDIF + ENDCASE + ENDIF + UNLOCK + + SELECT actactan +ENDSCAN +RELEASE oreg + +ENDPROC +*---------------------------------------------------------------------------------------------- + +PROCEDURE afis_sold_casabanca +PARAMETERS tcTip,tcFis,tcTitlu,TcCont,TcNumeCol1,TcNumeCol2,tlVisibil + +Private m.sum1,m.sum2,m.sum3,m.sumA2,m.sumA3,m.sumA4,m.sumA5,m.sumA6,m.sumA7,m.sumA8,m.sumA9,m.sumA10,m.sumA11,m.sumA12,m.sumA13,pcnumele,M.NUMEVAL,; + m.tincasari,m.tplati,sold +STORE 0 TO m.sum1,m.sum2,m.sum3,m.sumA2,m.sumA3,m.sumA4,m.sumA5,m.sumA6,m.sumA7,m.sumA8,m.sumA9,m.sumA10,m.sumA11,m.sumA12,m.sumA13,; + m.tincasari,m.tplati,sold +STORE '' TO pcnumele,M.NUMEVAL +Sele &tcFis + +m.SOLDDEB=0 +m.SOLDCRED=0 +Sum &TcNumeCol2,PLATI To m.sum1,M.sum2 +m.sum3=M.sum1-M.sum2 + +Sele Bal +Seek TcCont +If Found() + Scatter Memvar + If M.SOLDDEB-M.SOLDCRED # M.sum3 + Do mesajval With 'Diferenta este:',M.SOLDDEB-M.SOLDCRED-M.sum3 + Endif +*!* Else +*!* Do mesajval With '',M.SOLDDEB +Endif + +Sele &tcFis + +Obancana=Createobject("afbancanav") +WITH Obancana + .tip=tcTip + .grid1.column1.ControlSource=TcNumeCol1 + .grid1.column3.ControlSource=TcNumeCol2 + .grid1.column3.DynamicForeColor='IIF('+TcNumeCol2+'>=0, RGB(0,0,0), RGB(255,0,0))' + .grid1.column9.ControlSource=TcNumeCol2+'-PLATI' + .grid1.column9.DynamicForeColor='IIF('+TcNumeCol2+'-plati>=0, RGB(0,0,0), RGB(255,0,0))' + .grid1.column3.header3.caption=PROPER(TcNumeCol2) + .TitluFrumos1.Caption=TcTitlu + .check1.visible=TlVisibil + .check3.visible=TlVisibil + .check5.visible=TlVisibil + .check7.visible=TlVisibil + .TEXT14.VISIBLE=TlVisibil + .TEXT15.VISIBLE=TlVisibil + .TEXT16.VISIBLE=TlVisibil + .LABEL2.VISIBLE=TlVisibil + .GRID1.column5.visible=TlVisibil + .GRID1.column6.visible=TlVisibil + .GRID1.column7.visible=TlVisibil + .GRID1.column8.visible=TlVisibil +ENDWITH +Obancana.Show() + +ENDPROC + +*-------------------------------------------------------------------- +procedure umple_log +PARAMETERS textul,textmare +LOCAL datatext +datatext="" +*----------------FACE INREGISTRARI IN LOG_TEXT. +datatext=calefirma+"\logs\contab\log_"+ALLTRIM(STR(DAY(DATE())))+"_"+ALLTRIM(STR(MONTH(DATE())))+"_"+ALLTRIM(STR(YEAR(DATE())))+".txt" +CD &CALEFIRMA +If !Directory("LOGS") + md logs +ENDIF +CD &calefirma\logs +If !Directory("contab") + Md contab +ENDIF +Set Textmerge On +Set Textmerge Noshow +Set Textmerge To &datatext ADDITIVE +\\<>,<>,<>,<> +\ +Set Textmerge To +CD &dirgen + +RETURN &&-------umple_log + + diff --git a/Programe/quitapp.prg b/Programe/quitapp.prg new file mode 100644 index 0000000..bd26e33 --- /dev/null +++ b/Programe/quitapp.prg @@ -0,0 +1,340 @@ +* Program: QUITAPP.PRG +* Description: Client-side of remote termination of applications. +* Created: 07/11/2003 +* Developer: Gregory L Reichert +* Copyright: Copyright (c) 2003 GLR software +*------------------------------------------------------------ +* Id Date By Description +* 1 07/11/2003 Gregory L Reichert Initial Creation +* +*------------------------------------------------------------ + +*!* Overview + +*!* The component is the client-side portion of a Remote Application Killer. +*!* With the use of a shared table, an network administrator can determine +*!* what workstation has what application running, and instruct that application +*!* to quit. + +*!* An administrator can monitor which applications are running, and instruct them +*!* termination themselves. + +*!* Instructions + +*!* This component is based on a Timer class with a one minute interval. Each minute +*!* the application check to see if the administrator wishs the application to +*!* quit. If discovered so, the countdown begins (default 10 minutes). During the +*!* Countdown, a message is displayed notifing the user that the automatic termination of +*!* the application is underway. They can manual exit the application, or wait for the +*!* automatic. Either way, it is intended for the user to complete their current task. +*!* At the end of the countdown, the application issues a QUIT command. + +*!* Call this routine, and a object reference is returned. This object should +*!* remain active throughout the life of the application. + +*!* PRIVATE oQuitApp +*!* oQuitApp = QuitApp( "\\MyServer\MyDrive\CommonFiles\" ) +*!* +*!* When the administrator wish to terminate one or more application, they place +*!* a True (.T.) in the "lQuit" field of the QuitApp.dbf table. As the Application continues +*!* countdown to automated termination, the "Remain" field indicates the number of minutes +*!* remaining. If the Admin changes the value of "Remain", the countdown continues from +*!* that new value. If a value less then zero (0) is entered, the application terminates +*!* the next time the QuitApp timer is fired. + + +*!* Two exposed method are provided to inform the routine that the application +*!* is performing critical operations and can not be interupted. These are called +*!* EnterCritical() and LeaveCritical(). The EnterCritical() should be called when the +*!* critical section begins, and the LeaveCritical() should be called when the section +*!* ends. + +*!* The administrator can check to see a application is running, or if it crashed before hand, +*!* by set the "aLiveTest" field of the QuitApp.dbf to False (.F.). After a couple of minutes, +*!* if the application is still alive, the field will revert to True (.T.). + +*!* The form called Admin_QuitApp.scx is used by the administrator to monitor and control the +*!* remote applications. + +*!* ===================================================================================== + +LPARAMETERS tcPath, tcQuitName + +RETURN CREATEOBJECT("QuitApp", tcPath, tcQuitName) + + +#DEFINE kQuitMax 10 && Wait 10 minutes before auto-quit + +*------------------------------------------------------------ +* Description: QuitApp class +*------------------------------------------------------------ +* Id Date By Description +* 1 07/11/2003 Gregory L Reichert Initial Creation +* +*------------------------------------------------------------ +DEFINE CLASS QuitApp AS TIMER + + INTERVAL = (60*1000) && check once a minute. + ENABLE = .T. + cPath = tcPath + cQuitName ="QuitApp" + cQFile ="QuitApp" + cAlias = "QuitApp" + && Full URN to QuitApp.dbf. Must be at a shared network location for all running application to gain access. + + *------------------------------------------------------------ + * Description: Error Trap + * Parameters: internal + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE ERROR( a,b,c ) + *-- ignore all error from this class + RETURN + ENDPROC + + *------------------------------------------------------------ + * Description: Initializes the timer + * Parameters: cPath: path to the shared QuitApp.dbf - path only + * Return: N/A + * Use: ox = CreateObject( "QuitApp","\\myserver\shared\CommonFiles\" ) + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE INIT( cPath, cQuitName ) + LOCAL lc + lc = SELECT() + + + cPath = ADDBS(IIF(EMPTY(cPath),"", cPath)) + cQuitName = IIF(EMPTY(cQuitName),"QuitApp",JUSTSTEM(cQuitName)) + cQFile = cPath+cQuitName+".dbf" + cAlias = "QuitApp" + + this.cPath = cPath + this.cQuitName = cQuitName + this.cQFile = cQFile + this.cAlias = cAlias + *------------------------------------- + * create QuitApp table if missing. + *------------------------------------- + IF NOT FILE(this.cQFile) + SELECT 0 + CREATE TABLE (this.cQFile) (ws c(40),ID N(10,0), cCaption c(100),lQuit L, remain N(3), Critical L, aLiveTest L) + USE + ENDIF + + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Timer routine + * Parameters: n/a + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE TIMER + + + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + LOCATE FOR ID=_VFP.HWND AND cCaption=_VFP.CAPTION AND NOT DELETED() + IF NOT FOUND() + + *------------------------------------- + * Add an instence for this workstation / application + INSERT INTO (this.cQFile) (ws,ID,cCaption,lQuit,remain, Critical, aLiveTest) ; + VALUES ( UPPER(SYS(0)),_VFP.HWND, _VFP.CAPTION, .F., kQuitMax, .F., .T.) + ENDIF + + *- Each time, reset the aLiveTest field. + REPLACE aLiveTest WITH .T. + + IF NOT Critical AND TXNLEVEL()=0 + *- do only if not in Critical Section of the code, + * and not in a Transaction block + IF lQuit + *------------------------------------- + * if still timing out, display remaining time. + *------------------------------------- + IF remain>0 + IF remain=kQuitMax + * - if first time displaying the warning, force application on top. + _SCREEN.ALWAYSONTOP=.T. + _SCREEN.ALWAYSONTOP=.F. + ENDIF + *- decrement the counter, and display warning. + REPLACE remain WITH remain -1 + osh=CREATEOBJECT('shell.application') + osh.minimazeall + _screen.windowstate=2 + WAIT WINDOW NOCLEAR NOWAIT "Programul se va inchide automat in " +ALLTRIM(STR(remain,10))+" minute." + ?? CHR(7) + osh.undominimazeall + RELEASE osh + ELSE + *------------------------------------- + * otherwise, quit the application. + *------------------------------------- + USE IN (this.cAlias) + CLEAR EVENTS + glQuit = .T. + QUIT + ENDIF + ELSE + *------------------------------------- + * if nolonger quiing, reset counter. + *------------------------------------- + REPLACE remain WITH kQuitMax + WAIT CLEAR + ENDIF + ENDIF + + USE IN (this.cAlias) + THIS.RESET + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Called when entering a Critical Section of the code. + * Parameters: n/a + * Return: True + * Use: .EnterCritical + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE EnterCritical() + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + UPDATE (this.cQFile) SET Critical=.T. WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Called when exitting a Critical Section of the code. + * Parameters: n/a + * Return: True + * Use: .LeaveCritical + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE LeaveCritical() + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + UPDATE (this.cQFile) SET Critical=.F. WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Destroy this object + * Parameters: n/a + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE DESTROY + *----------------------------------------------- + * On destroy, remove the application reference from the QuitApp table. + *----------------------------------------------- + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + DELETE FROM (this.cQFile) WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + +ENDDEFINE + + + +&& ------------------------------INCEPUT: Quit_Automat ------------------------------ +*!* Procedura: Quit_Automat +*!* Parametri: tlQuit +*!* Data/Ora generarii: 19/02/2004 12:48 +*!* Autor: MARIUS.MUTU +PROCEDURE Quit_Automat +LPARAMETERS tlQuit + +IF tlQuit + QUIT +ENDIF + +ENDPROC +&& ------------------------------SFARSIT: Quit_Automat ------------------------------ + +* Eof QUITAPP.PRG +*************************** +*!* FUNCTION AppInstance +*!* PARAMETERS WindowName + +*!* #DEFINE GW_OWNER 4 +*!* #DEFINE GW_HWNDFIRST 0 +*!* #DEFINE GW_HWNDNEXT 2 +*!* #DEFINE SW_MAXIMIZE 3 +*!* #DEFINE SW_NORMAL 1 + +*!* DECLARE integer SetForegroundWindow in win32api long lnhWnd +*!* DECLARE integer GetWindowText in win32api integer, string, integer +*!* DECLARE integer GetWindow in win32api integer,INTEGER +*!* DECLARE integer IsWindowVisible in win32api integer +*!* DECLARE integer GetActiveWindow in win32api +*!* DECLARE integer ShowWindow in user32 INTEGER lnhWnd, INTEGER lnCmdShow + +*!* IsWindEx = .F. +*!* if len(WindowName) < 1 +*!* return .t. +*!* endif + +*!* foxhwnd = GetActiveWindow() +*!* hwndNext = GetWindow(foxhwnd,GW_HWNDFIRST) + +*!* DO WHILE hwndNext <> 0 +*!* IF (hwndnext <> foxhwnd .AND. GetWindow(hwndnext,GW_OWNER) = 0) +*!* Stuffer = SPACE(64) +*!* x = GetWindowText(hwndnext,@Stuffer,64) +*!* IF WindowName $ Stuffer +*!* IsWindEx = .T. +*!* =SetForegroundWindow(hwndnext) +*!* =ShowWindow(hwndNext,SW_MAXIMIZE) +*!* EXIT +*!* ENDIF +*!* ENDIF +*!* hwndNext = GetWindow(hwndnext,GW_HWNDNEXT) +*!* ENDDO + +*!* RETURN IsWindEx +*!* ENDFUNC \ No newline at end of file diff --git a/Programe/rapbal97.prg b/Programe/rapbal97.prg new file mode 100644 index 0000000..40f0093 --- /dev/null +++ b/Programe/rapbal97.prg @@ -0,0 +1,104 @@ +public wbal +dirfirm=loc+'\'+nfscurt +WBAL=0 + +sele bal +set filter to SUBS(CONT,1,1)='7' +TOTAL ON subs(cont,5,1) TO &dirfirm\tempo\TOTTOT7 +SELE BAL +set filter to SUBS(CONT,1,1)='6' +TOTAL ON SUBS(CONT,5,1) TO &dirfirm\tempo\TOTTOT6 + +SELE 0 +USE &dirfirm\tempo\TOTTOT7 +REPL DENUMIRE WITH 'TOTAL VENITURI'; + CONT WITH '7998' +SELE 0 +USE &dirfirm\tempo\TOTTOT6 +REPL DENUMIRE WITH 'TOTAL CHELTUIELI'; + CONT WITH '6998' +SELE BAL +SET FILTER TO + +SELE BAL +TOTAL ON SUBSTR(CONT,1,3) TO &dirfirm\tempo\TOTBAL + +SELE 0 +*USE DATEAN\TOTBAL +USE &dirfirm\tempo\totbal.dbf exclusive + +SELE BAL +COPY TO &dirfirm\tempo\RAPBAL + +SELE 0 +USE &dirfirm\tempo\RAPBAL +TOTAL ON SUBS(CONT,5,1) TO &dirfirm\tempo\TOTTOT + +SELE TOTBAL +REPL ALL DENUMIRE WITH 'TOTAL '+SUBSTR(CONT,1,3); + cont WITH substr(cont,1,3)+'A' +SELE 190 +USE &dirfirm\tempo\TOTTOT +REPL DENUMIRE WITH 'TOTAL GENERAL'; + CONT WITH '9999' +SELE TOTBAL +USE + +SELE TOTTOT +USE +SELE TOTTOT7 +USE +SELE TOTTOT6 +USE + + +SELE RAPBAL + +APPE FROM &dirfirm\tempo\TOTBAL +APPE FROM &dirfirm\tempo\TOTTOT +APPE FROM &dirfirm\tempo\TOTTOT7 +APPE FROM &dirfirm\tempo\TOTTOT6 + +INDEX ON CONT TO &dirfirm\tempo\BALRAP.CDX +GO TOP +GCONT=CONT +kg=0 +SCAN +SCATTER MEMVAR + +if subs(m.cont,1,3)=subs(gcont,1,3) +kg=kg+1 +else +kg=1 +endif +IF SUBS(M.CONT,4,1)='A' and kg=2 +DELETE +kg=0 +ENDIF +GCONT=M.CONT +ENDSCAN + +m.titlu='' +if a4 + REPORT FORMAT RAPBALa4.FRX TO PRINTER PROMPT preview +else + REPORT FORMAT RAPBALa3.FRX TO PRINTER PROMPT preview +endif + +SELE RAPBAL +USE +ERASE &dirfirm\tempo\RAPBAL.DBF + +ERASE &dirfirm\tempo\BALrap.cdx + +ERASE &dirfirm\tempo\TOTTOT.DBF + +ERASE &dirfirm\tempo\TOTTOT7.DBF + +ERASE &dirfirm\tempo\TOTTOT6.DBF + +ERASE &dirfirm\tempo\totBAL.DBF + + + +RETURN \ No newline at end of file diff --git a/Programe/refverif.prg b/Programe/refverif.prg new file mode 100644 index 0000000..a225bd1 --- /dev/null +++ b/Programe/refverif.prg @@ -0,0 +1,7489 @@ +PROCEDURE REFClienti && REFCLI +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\clienti.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'clienti.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\clienti.DBF IN 0 ALIAS clientiU + +SELECT clientiU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('clientiu.totdeb') = 'U' + SELECT NUME,COD_FISCAL,avans AS precavans,productie AS precdeb,incasat AS preccred FROM clientiU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + productie, totcred WITH preccred + incasat, totvaldeb WITH precvaldeb + prodval, totvalcre WITH precvalcre + incasval + REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('clientiu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + productie) AS precdeb, SUM(preccred+incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM clientiU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + productie) AS precdeb, SUM(preccred+incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM clientiU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN clientiU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '411', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '411' AND scc # '4118', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '411' AND scd # '4118', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '411' AND scc # '4118', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '411' AND scd # '4118', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE (LEFT(scd, 3)='411' AND scd # '4118') OR (LEFT(scc, 3)='411' AND scc # '4118'); +INTO CURSOR t411 GROUP BY 1, 2, 3 + +SELECT t411 +SCAN + SCATTER NAME o411 + SELECT rcli + SEEK LEFT(o411.NUME,30) + o411.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o411.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o411.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o411.acont + ELSE + APPEND BLANK + GATHER NAME o411 + ENDIF + ENDIF + REPLACE productie WITH productie + o411.debit, incasat WITH incasat + o411.credit, prodval WITH prodval + o411.valdebit, incasval WITH incasval + o411.valcredit + + SELECT t411 +ENDSCAN +RELEASE o411 +USE IN t411 + +SELECT NUME, ; +IIF(LEFT(scd,3) = '419', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '419', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '419', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '419', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '419', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('419',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t419 GROUP BY 1, 2 + + +SELECT t419 +SCAN + SCATTER NAME o419 + SELECT rcli + SEEK LEFT(o419.NUME,30) + o419.acont + IF !FOUND() + LOCATE FOR ALLTRIM(nume) = ALLTRIM(o419.NUME) + IF !FOUND() + APPEND BLANK + GATHER NAME o419 + ENDIF + ENDIF + REPLACE avans WITH avans - o419.debit + o419.credit + REPLACE avansval WITH avansval - o419.valdebit + o419.valcredit + SELECT t419 +ENDSCAN +RELEASE o419 +USE IN t419 + + +SELECT rcli +REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb+prodval,totvalcre WITH precvalcre+incasval,totavansv WITH precavansv+avansval + +SELECT clienti +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +*USE IN clientiU + +SELECT clienti +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ +PROCEDURE REFFurnizor && REFFUR +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\FURNIZOR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'FURNIZOR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\FURNIZOR.DBF IN 0 ALIAS FURNIZORU + +SELECT FURNIZORU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('FURNIZORu.totdeb') = 'U' + SELECT NUME, COD_FISCAL, avans AS precavans, platit AS precdeb, achizit AS preccred FROM FURNIZORU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit , totvaldeb WITH precvaldeb + platival, totvalcre WITH precvalcre + achizitval + REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('FURNIZORu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + platit) AS precdeb, SUM(preccred + achizit) AS preccred, ; + SUM(precvaldeb + platival) AS precvaldeb, SUM(precvalcre + achizitval) AS precvalcre ; + FROM FURNIZORU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + platit) AS precdeb, SUM(preccred + achizit) AS preccred, ; + SUM(precvaldeb + platival) AS precvaldeb, SUM(precvalcre + achizitval) AS precvalcre ; + FROM FURNIZORU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN FURNIZORU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '401', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '401', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '401', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '401', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '401', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('401',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t401 GROUP BY 1, 2, 3 + +SELECT t401 +SCAN + SCATTER NAME o401 + SELECT rcli + SEEK LEFT(o401.NUME,30) + o401.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o401.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o401.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o401.acont + ELSE + APPEND BLANK + GATHER NAME o401 + ENDIF + ENDIF + REPLACE platit WITH platit + o401.debit, achizit WITH achizit + o401.credit, platival WITH platival + o401.valdebit, achizitval WITH achizitval + o401.valcredit + + SELECT t401 +ENDSCAN +RELEASE o401 +USE IN t401 + +SELECT NUME, ; +IIF(LEFT(scd,3) = '409', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '409', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '409', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '409', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '409', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('409',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t409 GROUP BY 1, 2 + + + +SELECT t409 +SCAN + SCATTER NAME o409 + SELECT rcli + SEEK LEFT(o409.NUME,30) + o409.acont + IF !FOUND() + LOCATE FOR ALLTRIM(nume) = ALLTRIM(o409.NUME) + IF !FOUND() + APPEND BLANK + GATHER NAME o409 + ENDIF + ENDIF + REPLACE avans WITH avans + o409.debit - o409.credit + REPLACE avansval WITH avansval + o409.valdebit - o409.valcredit + SELECT t409 +ENDSCAN +RELEASE o409 +USE IN t409 + + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit, totavans WITH precavans + avans +REPLACE ALL totvaldeb WITH precvaldeb + platival, totvalcre WITH precvalcre + achizitval, totavansv WITH precavansv + avansval + +SELECT FURNIZOR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +*USE IN FURNIZORU + +SELECT FURNIZOR +SET ORDER TO TAG NANA +RETURN + + + +*!* LOCAL nla,nlb,ana,anb + +*!* IF !se_reface() +*!* RETURN +*!* ENDIF + +*!* nlb=m.nl +*!* anb=m.an +*!* dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +*!* SELE calendar +*!* LOCATE FOR nl=m.nl AND an=m.an +*!* SKIP -1 +*!* IF !BOF() +*!* nla=nl +*!* ana=an +*!* dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +*!* ELSE +*!* dateA=dirgen+'\_alfa\an0000\date00\' +*!* ENDIF + + +*!* SET SAFETY OFF +*!* COPY FILE &dirgen\_alfa\an0000\date00\FURNIZOR.* TO &loc\&nfscurt\tempo\rcli.* + +*!* USE &dateA\FURNIZOR.DBF IN 0 ALIAS FURNIZORU +*!* SELECT FURNIZORU +*!* SET ORDER TO 1 && NUME +*!* TOTAL TO &loc\&nfscurt\tempo\FURNIZORA ON NUME +*!* USE &loc\&nfscurt\tempo\FURNIZORA IN 0 ALIAS FURNIZORA +*!* SELECT FURNIZORA +*!* IF TYPE('FURNIZORa.totdeb') # 'U' +*!* * SUM TOTcred, achizit TO M.TOTcred, M.achizit +*!* REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit +*!* ELSE +*!* SUM platit TO M.platit +*!* m.totdeb=0 +*!* ENDIF + + + +*!* USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +*!* &&precedente--------- +*!* IF TYPE('FURNIZORa.totdeb') = "U" +*!* SELECT NUME,COD_FISCAL,avans AS precavans,platit AS precdeb,achizit AS preccred FROM FURNIZORA INTO CURSOR rrr +*!* ELSE +*!* * Select NUME,COD_FISCAL,totavans As precavans,totdeb As precdeb,totcred As preccred From FURNIZORa Into Cursor rrr +*!* SELECT NUME,COD_FISCAL,NUMEVAL,; +*!* totavans AS precavans,totdeb AS precdeb,totcred AS preccred,; +*!* totavansV AS precavansV,totVALdeb AS precVALdeb,totVALcre AS precVALcre; +*!* FROM FURNIZORA INTO CURSOR rrr +*!* ENDIF + +*!* USE IN FURNIZORA + +*!* SELECT rcli +*!* APPEND FROM DBF('rrr') +*!* USE IN rrr + + +*!* &&rulaje------------ +*!* SELE rcli +*!* SET ORDER TO TAG NUME +*!* DO REDAU WITH 'SCC="401 " ','RCLI','M.NUME','ACHIZIT' +*!* DO REDAU WITH 'SCD="401 " ','RCLI','M.NUME','PLATIT' +*!* DO REDAU WITH 'SCD="409 " ','RCLI','M.NUME','AVANS' +*!* DO REDAUsc WITH 'SCc="409 " ','RCLI','M.NUME','AVANS' + +*!* DO REDAUVAL WITH 'SCC="401 " ','RCLI','M.NUME','ACHIZITVAL' +*!* DO REDAUVAL WITH 'SCD="401 " ','RCLI','M.NUME','PLATIVAL' +*!* DO REDAUVAL WITH 'SCD="409 " ','RCLI','M.NUME','AVANSVAL' +*!* DO REDAUscVAL WITH 'SCc="409 " ','RCLI','M.NUME','AVANSVAL' + +*!* SELECT rcli +*!* REPLACE ALL totdeb WITH precdeb+platit,; +*!* totcred WITH preccred+achizit,; +*!* totavans WITH precavans+avans +*!* REPLACE ALL totVALdeb WITH precVALdeb+PLATIVAL,; +*!* totVALcre WITH precVALcre+ACHIZITVAL,; +*!* totavansV WITH precavansV+AVANSVAL + +*!* *Do suprapune WITH 'FURNIZOR','rcli' +*!* SELECT FURNIZOR +*!* IF FLOCK() +*!* DELETE ALL +*!* APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +*!* ENDIF +*!* UNLOCK +*!* USE IN rcli +*!* USE IN FURNIZORU + +*!* SELECT FURNIZOR +*!* SET ORDER TO TAG NUME +*!* RETURN + + +*_________________________________________ +PROCEDURE VERBAL +LOCAL btotdeb,btotcred,bpreccred,bprecdeb,dateA,dateb,tsuma,ttotdeb,ttotcred +*i=1 +*STARE=1 +*orm=createobj('textmult') +OTEXT=CREATE('text_TREE') +STARE=1 + +CLOSE DATABASE +SELECT 0 +USE datEAN\calendar.DBF; +AGAIN ALIAS calendar ; +ORDER 0 +btotdeb=0 +btotcred=0 +bprecdeb=0 +bpreccred=0 +SELE calendar +SCAN + SCATTER MEMVAR + dateA=calefirma+'\an'+m.an+'\'+'date'+M.nl + + SELE 0 + USE &dateA\BAL.DBF SHARED + SELE 0 + USE &dateA\act.DBF SHARED + SELE BAL + SUM precdeb,preccred,RULDEB,RULCRED TO bprecdeb,bpreccred,ttotdeb,ttotcred + SELE act + SUM suma TO tsuma + + IF ttotdeb# tsuma + m.DENUMIRE='Diferente pe debit in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Diferente pe debit in luna '+M.NL+' '+M.AN + ENDIF + + IF ttotcred# tsuma + m.DENUMIRE='Diferente pe credit' + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Diferente pe credit' + ENDIF + + SELE BAL + IF btotdeb# bprecdeb OR btotcred # bpreccred + m.DENUMIRE='Eroare de preluare in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Eroare de preluare in luna '+M.NL+' '+M.AN + ELSE + m.DENUMIRE='Preluare corecta in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Preluare corecta in luna '+M.NL+' '+M.AN + ENDIF + + IF M.nl='12' + SUM SOLDDEB,SOLDCRED TO btotdeb,btotcred + ELSE + SUM totdeb,totcred TO btotdeb,btotcred + ENDIF + + SELE BAL + USE + SELE act + USE +ENDSCAN + +IF STARE!=1 + OTEXT.DEUNDE='C' + OTEXT.label10.CAPTION='RAPORT VERIFICARE BALANTA' + OTEXT.CMDLIST1.VISIBLE=.F. + OTEXT.CMDLIST2.VISIBLE=.F. + OTEXT.CMDRENUNT1.VISIBLE=.F. + OTEXT.SHOW(1) +ENDIF + +DO TOTV.PRG +RETURN + + +*_________________________________________ +PROCEDURE vercasa +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5311 ') +SCATTER MEMVAR +SELE CASA +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA CASA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + DO mesaj WITH 'Diferenta la casa: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10),'' + +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA CASA IN LUNA '+NL+' ANUL '+M.AN + DO mesaj WITH 'Nu sunt deferente la casa in luna: '+nl+' '+M.an,'' + +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE verBANCA +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5121 ') +SCATTER MEMVAR +SELE BANCA +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA BANCA IN VALUTA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + DO mesaj WITH 'Diferenta la banca in valuta: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10),'' + +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA BANCA IN VALUTA IN LUNA '+NL+' ANUL '+M.AN + DO mesaj WITH 'Nu sunt deferente la banca in valuta in luna: '+nl+'$'+M.an,'' + +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE verVALBANCA +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5124 ') +SCATTER MEMVAR +SELE BANCAVAL +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA BANCA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta la banca: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA BANCA IN LUNA '+NL+' ANUL '+M.AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la banca in luna: '+nl+' '+M.an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERCUMP +SELE CUMP +SUM totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; +TO m.Stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; +M.StotftvaM,m.StvaM + +m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; +M.StotftvaM+m.StvaM + +SELE BAL +SEEK '401 ' +SCATTER MEMVAR +m.f401=m.RULCRED +SEEK '404 ' +SCATTER MEMVAR +m.f404=m.RULCRED +m.f401404=m.f401+m.f404 +IF M.Stotctva-M.ADUN#0 +***WAIT WINDOWS 'DIFERENTA ESTE DE '+STR(M.STOTCTVA-M.ADUN,12,0) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta este: '+STR(M.Stotctva-M.ADUN,12,0) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +IF M.Stotctva-M.f401404#0 +***WAIT WINDOWS 'DIFERENTA FATA DE 401+404 ESTE DE '+STR(M.STOTCTVA-M.f401404,12,0)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta fata de 401+404 este: '+STR(M.Stotctva-M.f401404,12,0) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE FATA DE 401+404'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente fata de 401+404'+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERVANZ +SELE VANZ +SUM totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; +TO m.Stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; +M.StotftvaM,m.StvaM + +m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; +M.StotftvaM+m.StvaM +SELE BAL +SEEK '411 ' +SCATTER MEMVAR +m.f411=m.RULDEB + +IF M.Stotctva-M.ADUN#0 +***WAIT WINDOWS 'DIFERENTA ESTE DE '+STR(M.STOTCTVA-M.ADUN,12,0) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta este de: '+STR(M.Stotctva-M.ADUN,12,0) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +IF M.Stotctva-M.f411#0 +***WAIT WINDOWS 'DIFERENTA FATA DE 411 ESTE DE '+STR(M.STOTCTVA-M.f411,12,0)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta fata de 411 este de: '+STR(M.Stotctva-M.f411,12,0) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE FATA DE 411'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente fata de 411 in luna: '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERFUR +SELE FURNIZOR +SUM achizit,platit,avans TO M.TACHIZIT,M.TPLATIT,M.TAVANS +SELE BAL +SEEK '401 ' +SCATTER MEMVAR +m.SOLD=M.SOLDCRED +SEEK '404 ' +SCATTER MEMVAR +m.SOLD=M.SOLDCRED+M.SOLD +IF M.SOLD # m.TACHIZIT-M.TPLATIT +***WAIT WINDOWS 'DIFERENTA LA SOLD ESTE DE '+STR(M.SOLD+M.TPLATIT-M.TACHIZIT)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta la sold este '+STR(M.SOLD+M.TPLATIT-M.TACHIZIT) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA FURNIZORI'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la furnizori'+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERCLI +SELECT clienti + +SUM avans,incasat,productie TO m.SUM1,M.SUM2,M.SUM3 +m.SUM4=m.SUM3-M.SUM2 +SELE BAL +SEEK '411 ' +SCATTER MEMVAR + +IF M.SOLDDEB # M.SUM3-M.SUM2 +***WAIT WINDOWS 'DIFERENTA IN SOLD FATA DE 411 ESTE DE '+STR(M.SOLDDEB-M.SUM3+M.SUM2)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta in sold fata de 411 este '+STR(M.SOLDDEB-M.SUM3+M.SUM2) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA CLIENTI'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la clienti '+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERACHI +SELECT ACHIT542 +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '542 ' +SCATTER MEMVAR +IF M.SOLDDEB # M.SUM3 +***WAIT WINDOWS 'DIFERENTA SOLDULUI CONT.542 ESTE DE '+STR(M.SOLDDEB-M.SUM3)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta soldului cont.542 este de: '+STR(M.SOLDDEB-M.SUM3) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA 542'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la 542'+' in luna: '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________________________________ +PROCEDURE REFCasa +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\casanume IN 0 SHARED ALIAS CASANUMEP +IF TYPE('casanumep.precdeb') # 'U' + SELECT casa, precdeb + incasari as precdeb, preccred + plati as preccred FROM casanumeP ; + INTO CURSOR tprec ORDER BY casa +ELSE + SELECT casa, incasari as precdeb, plati as preccred FROM casanumeP ; + INTO CURSOR tprec ORDER BY casa +ENDIF + +SELE CASA +IF FLOCK() + DELETE ALL + m.casa = 'SOLD' + m.DATAIREG = {} + m.COD = -1 + m.INCASARI = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + SELE CASA + GOTO BOTTOM + APPE BLANK + m.INCASARI=M.precdeb-M.preccred + m.PLATI=0 + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_3 as casa, scd, scc,; + IIF(scd = '5311', suma, 00000000000000) as incasari, ; + IIF(scc = '5311', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5311' OR scc = '5311' ; + INTO CURSOR tact + +SELECT casa +APPEND FROM DBF('tact') +USE IN tact + + +SELECT CASANUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT nume_3 as casa, ; + sum(IIF(scd = '5311', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5311', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5311' OR scc = '5311' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT casanume + LOCATE FOR ALLTRIM(casa) = ALLTRIM(ot.casa) + IF !FOUND() + APPEND blank + REPLACE casa WITH ot.casa + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN CASANUMEP + +*!* SELE act +*!* SCAN FOR scd='5311' +*!* SCATTER MEMVAR +*!* IF LEFT(m.nume_3,2)=' ' +*!* REPL nume_3 WITH 'CENTRALA' +*!* m.nume_3='CENTRALA' +*!* ENDIF +*!* SELE CASA +*!* m.CASA=M.nume_3 +*!* m.INCASARI=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5311' +*!* SCATTER MEMVAR +*!* IF LEFT(m.nume_3,2)=' ' +*!* REPL nume_3 WITH 'CENTRALA' +*!* m.nume_3='CENTRALA' +*!* ENDIF +*!* SELE CASA +*!* m.CASA=M.nume_3 +*!* m.PLATI=M.suma +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +****WAIT WIND 'J' + + +*!* SELE 0 +*!* USE &DATE\casanume + + +*!* IF FLOCK() + +*!* SELE CASA +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE casanume +*!* LOCA FOR CASA=ALLTRIM(M.CASA) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL CASA WITH M.CASA +*!* ENDIF +*!* SELE CASA +*!* ENDSCAN + +*!* SELE casanume +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASA +*!* SUM INCASARI,PLATI TO M.INCASARI,M.PLATI FOR ALLTRIM(CASA)=ALLTRIM(M.CASA) +*!* SELE casanume + +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* SELE casanume +*!* ENDSCAN +*!* ENDIF + +*!* UNLOCK IN CASA +*!* UNLOCK IN casanume + +SELE CASA +SET ORDER TO TAG DATAIREG +RETURN + + + + + + +*__________________________________________________ +PROCEDURE REFBANCA +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +USE &dateA\bannume IN 0 SHARED ALIAS banNUMEP +IF TYPE('bannumep.precdeb') # 'U' + SELECT nume_2, precdeb + incasari as precdeb, preccred + plati as preccred FROM bannumeP ; + INTO CURSOR tprec ORDER BY nume_2 +ELSE + SELECT nume_2, incasari as precdeb, plati as preccred FROM bannumeP ; + INTO CURSOR tprec ORDER BY nume_2 +ENDIF + +SELE banca +IF FLOCK() + DELETE ALL + m.DATAIREG = {} + m.COD = -1 + m.INCASARI = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.banca = m.nume_2 + SELE banca + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_2 as banca, scd, scc,; + IIF(scd = '5121', suma, 00000000000000) as incasari, ; + IIF(scc = '5121', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5121' OR scc = '5121' ; + INTO CURSOR tact + +SELECT banca +APPEND FROM DBF('tact') +USE IN tact + + +SELECT banNUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT nume_2 as banca, ; + sum(IIF(scd = '5121', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5121', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5121' OR scc = '5121' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT bannume + LOCATE FOR ALLTRIM(nume_2) = ALLTRIM(ot.banca) + IF !FOUND() + APPEND blank + REPLACE nume_2 WITH ot.banca + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN banNUMEP + +*!* SELE BANCA +*!* SET ORDER TO TAG COD +*!* IF FLOCK() +*!* DELE ALL + + +*!* SELE BANNUME +*!* USE +*!* SELE 0 +*!* USE &dateA\BANNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.scd='' +*!* m.scc='' +*!* SELE BANNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.BANCA=m.nume_2 +*!* SELE BANCA +*!* GOTO BOTTOM +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.PLATI=0 +*!* GATHER MEMVAR +*!* SELE BANNUME +*!* ENDSCAN +*!* SELE BANNUME +*!* USE +*!* SELE BANCA +*!* m.BANCA='BANCA COMPENSARI' +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR + +*!* SELE act +*!* SCAN FOR scd='5121' +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* m.BANCA=M.nume_2 +*!* m.INCASARI=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5121' +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* m.BANCA=M.nume_2 +*!* m.PLATI=M.suma +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF + + +*!* SELE 0 +*!* USE &DATE\BANNUME +*!* IF FLOCK() +*!* DELE ALL +*!* &&&exclusive +*!* &&&zap + +*!* SELE BANCA +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANNUME +*!* LOCA FOR nume_2=ALLTRIM(M.BANCA) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_2 WITH M.BANCA +*!* ENDIF +*!* SELE BANCA +*!* ENDSCAN + +*!* SELE BANNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* SUM INCASARI,PLATI TO M.INCASARI,M.PLATI FOR BANCA=M.nume_2 +*!* SELE BANNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* SELE BANNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN BANCA +*!* UNLOCK IN BANNUME + +SELE BANCA +SET ORDER TO TAG DATAIREG +RETURN + + + + +*_________________________________________ +PROCEDURE REFBancaVal && REFVALBANCA +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\banvnume IN 0 SHARED ALIAS banvnumeP +IF TYPE('banvnumep.precdeb') # 'U' + SELECT nume_3, numeval, ; + precdeb + incasari as precdeb, preccred + plati as preccred, ; + precvaldeb + incasval as precvaldeb, precvalcre + platival as precvalcre ; + FROM banvnumeP ; + INTO CURSOR tprec ORDER BY nume_3 +ELSE + SELECT nume_3, numeval, incasari as precdeb, plati as preccred, incasval as precvaldeb, platival as precvalcre ; + FROM banvnumeP ; + INTO CURSOR tprec ORDER BY nume_3 +ENDIF + +SELE bancaval +IF FLOCK() + DELETE ALL + m.DATAIREG={} + m.COD=-1 + m.INCASARI=0 + m.PLATI=0 + m.incasval=0 + m.platival=0 + m.scd='' + m.scc='' + m.CURSSCHIMB=0 + m.CURSBNR=0 + + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.INCASval = M.precvaldeb-M.precvalcre + m.PLATIval = 0 + m.banca = m.nume_3 + SELE bancaval + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_3 as banca, scd, scc, suma_3 as cursschimb, nume_4 as numeval, ; + IIF(scd = '5124', suma, 00000000000000) as incasari, ; + IIF(scc = '5124', suma, 00000000000000) as plati, ; + IIF(scd = '5124', suma_2, 000000000000.00) as incasval, ; + IIF(scc = '5124', suma_2, 000000000000.00) as platival ; + FROM act WHERE scd = '5124' OR scc = '5124' ; + INTO CURSOR tact + +SELECT bancaval +APPEND FROM DBF('tact') +USE IN tact + + +SELECT banvnume +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + +SELECT nume_3 as bancaval, nume_4 as numeval, ; + sum(IIF(scd = '5124', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5124', suma, 00000000000000)) as plati, ; + sum(IIF(scd = '5124', suma_2, 000000000000.00)) as incasval, ; + sum(IIF(scc = '5124', suma_2, 000000000000.00)) as platival ; + FROM act WHERE scd = '5124' OR scc = '5124' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT banvnume + LOCATE FOR ALLTRIM(nume_3) = ALLTRIM(ot.bancaval) + IF !FOUND() + APPEND blank + REPLACE nume_3 WITH ot.bancaval + REPLACE numeval WITH ot.numeval + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + REPLACE incasval WITH incasval + ot.incasval, platival WITH platival + ot.platival + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN banvnumeP + +*!* SELE BANCAVAL +*!* IF FLOCK() +*!* DELE ALL +*!* SET ORDER TO TAG COD +*!* &&&ZAP + +*!* SELE BANVNUME +*!* USE + +*!* SELE 0 +*!* USE &dateA\BANVNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.incasval=0 +*!* m.platival=0 +*!* m.scd='' +*!* m.scc='' +*!* m.CURSSCHIMB=0 +*!* m.CURSBNR=0 +*!* SELE BANVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.BANCA=m.nume_3 +*!* SELE BANCAVAL +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.incasval=M.incasval-M.platival +*!* m.PLATI=0 +*!* m.platival=0 +*!* GATHER MEMVAR +*!* SELE BANVNUME +*!* ENDSCAN + +*!* SELE BANVNUME +*!* USE +*!* SELE BANCAVAL +*!* m.BANCA='BANCA COMPENSARI' +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* APPE BLANK +*!* GATHER MEMVAR + +*!* SELE act +*!* SCAN FOR scd='5124' +*!* SCATTER MEMVAR +*!* SELE BANCAVAL +*!* m.BANCA=M.nume_3 +*!* m.INCASARI=M.suma + +*!* m.incasval=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 + +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.PLATI=0 +*!* m.platival=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SELE act +*!* SCAN FOR scc='5124' +*!* SCATTER MEMVAR +*!* SELE BANCAVAL +*!* m.BANCA=M.nume_3 +*!* m.PLATI=M.suma +*!* m.platival=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +*!* &&REFACERE BANVNUME DUPA BANCAVAL===================== +*!* SELE 0 +*!* USE &DATE\BANVNUME +*!* IF FLOCK() +*!* DELE ALL + +*!* &&NUMELE BANCILOR============= +*!* SELE BANCAVAL +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANVNUME +*!* LOCA FOR nume_3=M.BANCA +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_3 WITH M.BANCA +*!* ENDIF +*!* SELE BANVNUME +*!* REPL NUMEVAL WITH m.NUMEVAL +*!* SELE BANCAVAL +*!* ENDSCAN +*!* &&VALORILE========== +*!* SELE BANVNUME +*!* SCAN +*!* SCATTER FIEL nume_3 MEMVAR +*!* SELE BANCAVAL +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR ALLT(BANCA)=ALLT(M.nume_3) +*!* IF EMPTY(ALLT(M.nume_3)) +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR EMPTY(ALLT(BANCA)) +*!* ENDIF +*!* SELE BANVNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* REPL incasval WITH M.incasval +*!* REPL platival WITH M.platival +*!* SELE BANVNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN BANCA +*!* UNLOCK IN BANCAVAL + +SELE BANCAVAL +SET ORDER TO TAG DATAIREG +RETURN + + + + +*__________________________________________________ +PROCEDURE REFCec +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\CECnume IN 0 SHARED ALIAS CECNUMEP +IF TYPE('CECnumep.precdeb') # 'U' + SELECT CEC, precdeb + INCARCAT as precdeb, preccred + plati as preccred FROM CECnumeP ; + INTO CURSOR tprec ORDER BY CEC +ELSE + SELECT CEC, INCARCAT as precdeb, plati as preccred FROM CECnumeP ; + INTO CURSOR tprec ORDER BY CEC +ENDIF + +SELE CEC +IF FLOCK() + DELETE ALL + m.CEC = 'SOLD' + m.DATAIREG = {} + m.COD = -1 + m.INCARCAT = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + SELE CEC + GOTO BOTTOM + APPE BLANK + m.INCARCAT=M.precdeb-M.preccred + m.PLATI=0 + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, CEC, scd, scc,; + IIF(scd = '5112', suma, 00000000000000) as INCARCAT, ; + IIF(scc = '5112', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5112' OR scc = '5112' ; + INTO CURSOR tact + +SELECT CEC +APPEND FROM DBF('tact') +USE IN tact + + +SELECT CECNUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT CEC, ; + sum(IIF(scd = '5112', suma, 00000000000000)) as INCARCAT, ; + sum(IIF(scc = '5112', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5112' OR scc = '5112' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT CECnume + LOCATE FOR ALLTRIM(CEC) = ALLTRIM(ot.CEC) + IF !FOUND() + APPEND blank + REPLACE CEC WITH ot.CEC + ENDIF + REPLACE INCARCAT WITH INCARCAT + ot.INCARCAT, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN CECNUMEP + + + +*!* SELE cec +*!* *set order to tag cod +*!* IF FLOCK() +*!* DELE ALL + + +*!* SELE cecnume +*!* USE +*!* IF !FILE('&DATEA\cecnume.dbf') +*!* COPY FILE &dirgen\_alfa\an0000\date00\cecnume.* TO &dateA\*.* +*!* ENDIF +*!* SELE 0 +*!* USE &dateA\cecnume + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INcarcat=0 +*!* m.PLATI=0 +*!* m.scd='' +*!* m.scc='' +*!* ********incarcare solduri precedente +*!* SELE cecnume +*!* SCAN +*!* SCATTER MEMVAR +*!* *m.cec=m.explicatia +*!* SELE cec +*!* GOTO BOTTOM +*!* APPE BLANK +*!* m.INcarcat=M.INcarcat-M.PLATI +*!* m.PLATI=0 +*!* GATHER MEMVAR +*!* SELE cecnume +*!* ENDSCAN +*!* SELE cecnume +*!* USE + +*!* **********************incarcare in cec lunca curenta +*!* SELE act +*!* SCAN FOR scd='5112' +*!* SCATTER MEMVAR +*!* SELE cec +*!* m.cec=m.EXPLICATIA +*!* m.INcarcat=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5112' +*!* SCATTER MEMVAR +*!* SELE cec +*!* m.cec=m.EXPLICATIA +*!* m.PLATI=M.suma +*!* m.INcarcat=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF + + +*!* SELE 0 +*!* USE &DATE\cecnume +*!* IF FLOCK() +*!* DELE ALL +*!* &&&exclusive +*!* &&&zap +*!* ********************incarcare denumiri in ccecnume +*!* SELE cec +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE cecnume +*!* LOCA FOR ALLTRIM(cec)=ALLTRIM(M.cec) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL cec WITH M.cec +*!* ENDIF +*!* SELE cec +*!* ENDSCAN +*!* *************************incarcare soduri in cecnume +*!* SELE cecnume +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE cec +*!* SUM INcarcat,PLATI TO M.INcarcat,M.PLATI FOR cec=M.cec +*!* SELE cecnume +*!* REPL INcarcat WITH M.INcarcat +*!* REPL PLATI WITH M.PLATI +*!* SELE cecnume +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN cec +*!* UNLOCK IN cecnume + +SELE cec +SET ORDER TO TAG DATAIREG +RETURN + + + +*_________________________________________ +PROCEDURE REDAU +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF + +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP +M.suma +*!* IF INLIST(UPPER(ALI),'FURNIZOR','CLIENTI',"RCLI",'ANA408','CLIENT4118') +*!* REPL COD_FISCAL WITH m.COD_FISCAL +*!* ENDIF + lcCod = m.COD_FISCAL + IF EMPTY(COD_FISCAL) AND !EMPTY(lcCod) + REPLACE COD_FISCAL WITH lcCod + ENDIF + + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma + IF INLIST(UPPER(ALI),'FURNIZOR','CLIENTI',"RCLI",'ANA408','CLIENT4118') + REPL COD_FISCAL WITH m.COD_FISCAL + ENDIF + GO TOP + ENDIF + SELE act +ENDSCAN +RETURN + + +*_________________________________________ +PROCEDURE REDAUVAL +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + IF M.SUMA_3#0 + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 +*If Inlist(Upper(ALI),'FURNIZOR','CLIENTI') +* REPL COD_FISCAL WITH m.COD_FISCAL +*Endif + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + REPL COD_FISCAL WITH m.COD_FISCAL + GO TOP + ENDIF + ENDIF + SELE act +ENDSCAN +RETURN + +************ +PROCEDURE REDAUsc +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP -M.suma + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma + GO TOP + ENDIF + SELE act +ENDSCAN +RETURN + +************ +PROCEDURE REDAUscVAL +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + IF M.SUMA_3#0 + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP -M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + GO TOP + ENDIF + ENDIF + SELE act +ENDSCAN +RETURN + + + + +*_________________________________________ + +PROCEDURE REFDEBITOR +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\DEBITOR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'DEBITOR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\DEBITOR.DBF IN 0 ALIAS DEBITORU + +SELECT DEBITORU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('DEBITORu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, LUAT AS precdeb, DAT AS preccred FROM DEBITORU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('DEBITORu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM DEBITORU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM DEBITORU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN DEBITORU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '461', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '461', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '461', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '461', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '461', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('461',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t461 GROUP BY 1, 2, 3 + +SELECT t461 +SCAN + SCATTER NAME o461 + SELECT rcli + SEEK LEFT(o461.NUME,30) + o461.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o461.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o461.debit, credit WITH credit + o461.credit, valdebit WITH valdebit + o461.valdebit, valcredit WITH valcredit + o461.valcredit + ELSE + SEEK LEFT(o461.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o461.acont + REPLACE debit WITH debit + o461.debit, credit WITH credit + o461.credit, valdebit WITH valdebit + o461.valdebit, valcredit WITH valcredit + o461.valcredit + ELSE + APPEND BLANK + GATHER NAME o461 + ENDIF + ENDIF + + SELECT t461 +ENDSCAN +RELEASE o461 +USE IN t461 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT DEBITOR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT DEBITOR +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ + +PROCEDURE REFCreditor +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\creditor.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'creditor.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\creditor.DBF IN 0 ALIAS creditorU + +SELECT creditorU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('creditoru.totdeb') = 'U' + SELECT NUME,COD_FISCAL, DAT AS precdeb, LUAT AS preccred FROM creditorU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('creditoru.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM creditorU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM creditorU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN creditorU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA +SELECT IIF(LEFT(scc,3) = '462' AND INLIST(LEFT(scd,3),'411','451') AND !EMPTY(nume_2), nume_2, NUME) AS NUME, ; +IIF(LEFT(scd,3) = '462', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '462', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '462', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '462', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '462', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('462',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t462 GROUP BY 1, 2, 3 + +SELECT t462 +SCAN + SCATTER NAME o462 + SELECT rcli + SEEK LEFT(o462.NUME,30) + o462.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o462.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o462.debit, credit WITH credit + o462.credit, valdebit WITH valdebit + o462.valdebit, valcredit WITH valcredit + o462.valcredit + ELSE + SEEK LEFT(o462.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o462.acont + REPLACE debit WITH debit + o462.debit, credit WITH credit + o462.credit, valdebit WITH valdebit + o462.valdebit, valcredit WITH valcredit + o462.valcredit + ELSE + APPEND BLANK + GATHER NAME o462 + ENDIF + ENDIF + + SELECT t462 +ENDSCAN +RELEASE o462 +USE IN t462 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT creditor +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT creditor +SET ORDER TO TAG NANA +RETURN + +*_________________________________________ +PROCEDURE VERdebitor +SELECT DEBITOR +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '461 ' +SCATTER MEMVAR +IF M.SOLDDEB # M.SUM3 + DO mesajval WITH 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3 +*** +ELSE + DO mesaj WITH 'Nu sunt diferente la 461',' in luna: '+nl+' '+an +*** +ENDIF +RETURN + +*_________________________________________ +PROCEDURE VERcreditor +SELECT creditor +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '462 ' +SCATTER MEMVAR +IF M.SOLDCRED # M.SUM3 + DO mesajval WITH 'Diferenta soldului cont.462 este de: ',M.SOLDDEB-M.SUM3 +*** +ELSE + DO mesaj WITH 'Nu sunt diferente la 462',' in luna: '+nl+' '+an +*** +ENDIF +RETURN + + + +*____________________________________________________________________________________________________________ +*** INCEPUT PROCEDURA REFCUMP +PROCEDURE REFCump && refcumpnou + + +LOCAL lnTipTVA,llProcTva + + +llProcTva=.F. +SELECT act +IF TYPE('act.proc_tva')!="U" && daca exista campul proc_tva + llProcTva=.T. +ENDIF +DO CASE + CASE m.ctvam = 1 AND m.ctvai = 1 OR !llProcTva && firma neplatitoare de TVA + lnTipTVA = 1 + CASE (m.ctvam >1 AND m.ctvai = m.ctvam) OR !llProcTva && firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 + CASE (m.ctvam >=1 AND m.ctvai != m.ctvam) AND llProcTva && firma platitoare de TVA cu TVA REDUS adica am coloana proc_tva + lnTipTVA = 3 + OTHERWISE && consider firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 +ENDCASE + +locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426'))] +IF gle4511 + SELECT * FROM act WHERE (&locCond OR COD IN (SELE DISTINCT COD FROM act WHERE (scc = '4511' AND (scd = '4426' OR !EMPTY(neimpozab))))) AND scc # '767 ' ; + INTO CURSOR tact +ELSE + SELECT * FROM act WHERE &locCond INTO CURSOR tact +ENDIF + + +*!* IF gle4511 +*!* locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426') OR (scc = '4511' and (scd = '4426' or !EMPTY(neimpozab))))] +*!* ELSE +*!* locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426'))] +*!* ENDIF + +SELE CUMP +IF FLOCK() + DELE ALL + + + SELE tact +*SET FILTER TO SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426') +*SET FILTER TO &locCond + + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR fdoc#'Nota modificare stoc' + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scc,scd MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + APPE BLAN + GATH MEMV +* REPLACE scd WITH m.scc && nu-i bine din cauza selectiei : Marfa - Alte achizitii + ENDIF + SELE tact + ENDSCAN +******* +SELECT cump + + + SELE CUMP + SCAN + SCAT MEMV + SELE tact + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + IF USED('tact5') + USE IN tact5 + ENDIF + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SELECT suma,neimpozab,scd,scc FROM tact ; + WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract ; + INTO CURSOR tact5 NOFILTER + OTHERWISE + SELECT suma,neimpozab,scd,scc,IIF(proc_tva=0 AND neimpozab=0,m.ctvam,proc_tva) AS proc_tva FROM tact ; + WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract ; + INTO CURSOR tact5 NOFILTER + + ENDCASE + SELECT tact5 + SCAN + DO CASE + CASE scd='4426' + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.tvaM=M.tvaM+suma + OTHERWISE && dupa tva redus + IF proc_tva=m.ctvam OR proc_tva=0 + m.tvaM=M.tvaM+suma + ELSE + IF proc_tva=m.ctvai + m.tvaI=m.tvaI+suma + ENDIF + ENDIF + ENDCASE + + + CASE scd#'4426' + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totftvaM=M.totftvaM+(suma-neimpozab) + OTHERWISE + IF proc_tva=m.ctvam OR (proc_tva=0 AND neimpozab=0) + m.totftvaM=M.totftvaM+(suma-neimpozab) + ELSE + IF proc_tva=m.ctvai + m.totftvaI=M.totftvaI+(suma-neimpozab) + ENDIF + ENDIF + ENDCASE + + + m.neimpozab=m.neimpozab+neimpozab + + IF LEFT(scd,3)='371' + m.scd=scd + ENDIF +*!* IF SCD='635 ' + +*!* m.neimpozab=m.neimpozab+SUMA +*!* DO CASE +*!* CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +*!* m.totftvaM=m.totftvaM-SUMA +*!* OTHERWISE +*!* IF proc_tva=m.ctvam OR (proc_tva=0 AND neimpozab=0) +*!* m.totftvaM=m.totftvaM-SUMA +*!* ELSE +*!* IF proc_tva=m.ctvai +*!* m.totftvaI=m.totftvaI-SUMA +*!* ENDIF +*!* ENDIF +*!* ENDCASE +*!* ENDIF + ENDCASE + + + ENDSCAN + IF USED('tact5') + USE IN tact5 + ENDIF + +*!* Scan For NUME=m.NUME And dataact=m.dataact And nract=m.nract +*!* Do Case +*!* Case SCD='4426' +*!* m.tvaM=M.tvaM+SUMA + +*!* Case SCD#'4426' +*!* m.totftvaM=M.totftvaM+(SUMA-neimpozab) +*!* m.neimpozab=m.neimpozab+neimpozab +*!* If Left(SCD,3)='371' +*!* m.SCD=SCD +*!* Endif +*!* If SCD='635 ' +*!* m.neimpozab=m.neimpozab+SUMA +*!* m.totftvaM=m.totftvaM-SUMA +*!* Endif +*!* Endcase +*!* ENDSCAN + + +*********** + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + OTHERWISE + m.totctva=M.tvaM+M.totftvaM+m.tvaI+m.totftvaI+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + tvaI WITH M.tvaI; + totftvaI WITH M.totftvaI; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + ENDCASE +*************************************** + SELECT FURNIZOR + LOCATE FOR NUME = m.NUME + IF FOUND() + lcCodFiscal = COD_FISCAL + SELECT CUMP + REPLACE COD_FISCAL WITH lcCodFiscal + ENDIF +**************************************** + SELECT CUMP + + ENDSCAN + +************** + + SELE act +* SCAN FOR SCD='408 ' + SCAN FOR scd='4426' AND scc='4428' &&&&&&& modificare la 11 martie 2004, Georgiana + SCAT MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF FOUND() + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + IF totftvaM # 0 && pt 4426 = 4428 fara baza + REPL totftvaM WITH totftvaM - m.suma + ENDIF + REPL totctva WITH totftvaM+tvaM+neimpozab + OTHERWISE + IF m.proc_tva=m.ctvam OR (m.proc_tva=0 AND m.neimpozab=0) +* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + IF totftvaM # 0 && pt 4426 = 4428 fara baza + REPLACE totftvaM WITH totftvaM - m.suma + ENDIF + ELSE + IF m.proc_tva=m.ctvai +* REPLACE totftvai WITH ROUND(tvai/(m.ctvai-1),0) + IF totftvaI # 0 && pt 4426 = 4428 fara baza + REPLACE totftvaI WITH totftvaI - m.suma + ENDIF + ENDIF + ENDIF + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab + ENDCASE + + ENDIF + SELE act + ENDSCAN + + + IF gle4511 + LlCondScan = [INLIST(LEFT(scd, 3), '401', '404', '451')] + ELSE + LlCondScan = [INLIST(LEFT(scd, 3), '401', '404')] + ENDIF + SELE act + SET FILTER TO + SCAN FOR scc='767 ' AND &LlCondScan &&INLIST(LEFT(scd, 3), '401', '404', '451') + + SCAT MEMV + SELE CUMP + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + IF FOUND() + IF m.neimpozab#0 + REPLACE neimpozab WITH neimpozab-M.suma + ELSE + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + REPL totftvaM WITH totftvaM-m.suma + OTHERWISE + IF M.proc_tva=m.ctvam OR (M.proc_tva=0 AND M.neimpozab=0) + REPL totftvaM WITH totftvaM - m.suma + ELSE + IF M.proc_tva=m.ctvai + REPL totftvaI WITH totftvaI-m.suma + ENDIF + ENDIF + ENDCASE + ENDIF + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + REPL totctva WITH totftvaM+tvaM+neimpozab + OTHERWISE + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab + ENDCASE + ENDIF + SELE act + ENDSCAN + + SELE act + SET FILTER TO + IF USED('tact') + USE IN tact + ENDIF + +ENDIF +UNLOCK IN CUMP + + +ENDPROC +*** SFARSIT PROCEDURA REFCUMP +*_________________________________________________________________________________________________ +*_________________________________________________________________________________________________ +*** INCEPUT PROCEDURA REFVANZ +PROCEDURE REFVanz +LOCAL lnTipTVA,llProcTva + +llProcTva=.F. +SELECT act +IF TYPE('act.proc_tva')!="U" && daca exista campul proc_tva + llProcTva=.T. +ENDIF +DO CASE + CASE (m.ctvam = 1 AND m.ctvai = 1) OR !llProcTva && firma neplatitoare de TVA + lnTipTVA = 1 + CASE (m.ctvam >1 AND m.ctvai = m.ctvam) OR !llProcTva && firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 + CASE (m.ctvam >=1 AND m.ctvai != m.ctvam) AND llProcTva && firma platitoare de TVA cu TVA REDUS adica am coloana proc_tva + lnTipTVA = 3 + OTHERWISE && consider firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 +ENDCASE + +COPY FILE &dirgen\_alfa\an0000\date00\VANZ.* TO &loc\&nfscurt\tempo\vanz0.* + +USE &loc\&nfscurt\tempo\vanz0 IN 0 ALIAS vanz0 EXCLUSIVE +SELECT vanz0 +INDEX ON NUME+DTOC(dataact)+STR(nract,14)+scd TAG ndn OF &loc\&nfscurt\tempo\vanz0 +SET ORDER TO TAG ndn + + +*!* Sele VANZ +*!* If Flock() +*!* Dele All +SELECT vanz0 + +IF gle4511 + locCond = [(LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427') OR (scd = '4511' AND (SCC='4427' OR neimpozab # 0))] +ELSE + locCond = [(LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427')] +ENDIF + +&& adaug inregistrari pt prima oara--------------------------------------------------- +SELECT act +*SET FILTER TO (LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427') && OR (LEFT(SCD,3)='428' AND SCC='4427') OR (SCD='4428' AND SCC='4427') +SET FILTER TO &locCond +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd MEMV + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPEND BLAN + GATH MEMV + ENDIF + SELE act +ENDSCAN + + +SELECT act +SET FILTER TO + +SELECT DISTINCT COD FROM act WHERE scd='461 ' AND (scc='4427' OR neimpozab # 0) INTO CURSOR C461 +SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,suma,scd FROM act; +WHERE COD IN (SELECT DISTINCT COD FROM C461); +INTO CURSOR CC461 ORDER BY dataact + +SELECT CC461 +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd MEMV + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPE BLAN + GATH MEMV + ENDIF + SELE CC461 +ENDSCAN +USE IN CC461 + +*!* SELECT DISTINCT COD FROM ACT WHERE SCC='4118' AND SCD='4427' INTO CURSOR C4118 +*!* SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SUMA,SCD FROM ACT; +*!* WHERE COD IN (SELECT DISTINCT COD FROM C4118); +*!* INTO CURSOR CC4118 ORDER BY dataact + +*!* SELECT CC4118 +*!* STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +*!* SCAN +*!* SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SCD MEMV +*!* SELE vanz0 +*!* SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14) +*!* IF !FOUND() +*!* DO CASE +*!* IF scd#4427 +*!* m.totftvam=-suma +*!* ELSE +*!* m.tvam=-suma +*!* ENDIF +*!* ENDCASE +*!* +*!* SELE vanz0 +*!* APPE BLAN +*!* GATH MEMV + +*!* +*!* ENDIF +*!* SELE CC4118 +*!* ENDSCAN +*!* USE IN CC4118 + +SELECT DISTINCT COD FROM act WHERE scc='4118' AND scd='4427' INTO CURSOR C4118 +SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SUM(IIF(scd='4427',-suma,0)) AS tvaM ,SUM(IIF(scd#'4427',-suma,0)) AS totftvaM,scd ; +FROM act GROUP BY act.COD ; +WHERE COD IN (SELECT DISTINCT COD FROM C4118); +INTO CURSOR CC4118 ORDER BY dataact + +SELECT CC4118 +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd,tvaM,totftvaM MEMV + m.totctva=m.totftvaM+m.tvaM + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPE BLAN + GATH MEMV + REPLACE scd WITH '4118' + ENDIF + SELE CC4118 +ENDSCAN +USE IN CC4118 +******* + +SELE vanz0 +SCAN FOR scd#'4118' + SCAT MEMV + SELE act + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SELECT suma,neimpozab,scc,scd FROM act WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract; + AND (scd=m.scd OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427')); + INTO CURSOR act4 + OTHERWISE + SELECT IIF(LEFT(scd,3) # '419', suma, -suma) AS suma, neimpozab, scc, scd,IIF(neimpozab=0 AND proc_tva=0,m.ctvam,proc_tva) AS proc_tva FROM act WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract; + AND (scd=m.scd OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427') OR INLIST('419',LEFT(scd,3),LEFT(scc,3))); + INTO CURSOR act4 + ENDCASE + + + SELECT act4 + GO TOP + IF (LEFT(scd,3) = '419' AND LEFT(scc,3) = '411') OR (LEFT(scc,3) = '419' AND LEFT(scd,1) = '5') + lnScd = '419' + ELSE + lnScd = m.scd + ENDIF + +******* de completat + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SUM suma TO m.tvaM FOR scc='4427' + SUM suma-neimpozab,neimpozab TO m.totftvaM,m.neimpozab FOR scc#'4427' + OTHERWISE + SUM suma TO m.tvaM FOR scc='4427' AND proc_tva=m.ctvam + SUM suma TO m.tvaI FOR scc='4427' AND proc_tva=m.ctvai + SUM IIF(proc_tva=m.ctvam,suma-neimpozab,0),IIF(proc_tva=m.ctvai,suma-neimpozab,0),neimpozab TO m.totftvaM,m.totftvaI,m.neimpozab FOR scc#'4427' + ENDCASE + + USE IN act4 + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE vanz0 + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva, scd WITH lnScd + OTHERWISE + m.totctva=M.tvaM+M.totftvaM+M.tvaI+M.totftvaI+M.neimpozab + SELE vanz0 + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + tvaI WITH M.tvaI; + totftvaI WITH M.totftvaI; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva, scd WITH lnScd + ENDCASE + +ENDSCAN + + +*********************** +SELE act +SET FILTER TO +*!* SCAN FOR (SCD='667 ' AND LEFT(SCC,3)='411') OR SCC='418 ' +SCAN FOR (INLIST(LEFT(scd,3),'667','622') AND INLIST(LEFT(scc,3),'411', '451')) OR (scd='4428' AND scc='4427') && modificat la 11 martie 2004, Georgiana, 622 - 27 august 2004 Marius + SCAT FIEL NUME,nract,dataact,scc,suma MEMV + IF m.scc = '4427' + m.scc = '411' + ENDIF + m.scd=m.scc + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF FOUND() + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +*!* IF m.SCC='418 ' +*!* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) +*!* REPL totctva WITH totftvaM+tvaM+neimpozab +*!* ELSE + IF m.ctvam # 1 + REPL totftvaM WITH totftvaM-m.suma + ELSE + REPLACE neimpozab WITH neimpozab-m.suma + ENDIF + + REPL totctva WITH totftvaM+tvaM+neimpozab +*!* ENDIF + OTHERWISE + m.proc_tva=act.proc_tva + IF m.proc_tva=0 AND neimpozab=0 + m.proc_tva=m.ctvam + ENDIF +*!* IF m.SCC='418 ' +*!* IF m.proc_tva=m.ctvam +*!* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) +*!* ENDIF +*!* IF m.proc_tva=m.ctvai +*!* REPL totftvaI WITH ROUND(tvaI/(m.ctvaI-1),0) +*!* ENDIF +*!* REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab +*!* ELSE + IF m.proc_tva=m.ctvam + REPL totftvaM WITH totftvaM-m.suma + ENDIF + IF m.proc_tva=m.ctvai + REPL totftvaI WITH totftvaI-m.suma + ENDIF + + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab +*!* ENDIF + ENDCASE + + ENDIF + SELE act +ENDSCAN + +***************** + +SELECT VANZ +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\vanz0 + +ENDIF +UNLOCK IN VANZ +USE IN vanz0 + +*** SFARSIT PROCEDURA REFVANZ************************************************************************ + +*____________________________________________________________________________________________________ + +*** REFACERE BALANTA ANALITICA FARA PRECEDENTE******************************************************* +PROCEDURE REFBALANTA_ANA &&REFBAL_ANA +IF !se_reface() + RETURN +ENDIF + +SELE BALANA +IF FLOCK() + DELETE ALL FOR EMPTY(acont) + REPLACE ALL RULDEB WITH 0; + RULCRED WITH 0 + SCAN + SCATTER MEMVAR + SELE act + IF m.acont#'0000' + SUM suma TO m.RULDEB FOR scd=m.cont AND ASCD=M.acont + SUM suma TO m.RULCRED FOR scc=m.cont AND ASCC=M.acont + ELSE + SUM suma TO m.RULDEB FOR scd=m.cont AND (ASCD=M.acont OR EMPTY(ASCD)) + SUM suma TO m.RULCRED FOR scc=m.cont AND (ASCC=M.acont OR EMPTY(ASCC)) + ENDIF + + SELE BALANA + REPL RULDEB WITH M.RULDEB; + RULCRED WITH M.RULCRED + + ENDSCAN + + IF TYPE('PRECDEB1')!="U" + DELETE ALL FOR PRECDEB1 = 0 AND PRECCRED1 = 0 AND precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ELSE + DELETE ALL FOR precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ENDIF + +ENDIF + +DO CALCULEAZABALANTA_ANA +*UNLOCK +RETURN + + + + +*** REFACERE BALANTA SINTETICA FARA PRECEDENTE******************************************************* +PROCEDURE REFBalanta && REFBAL +IF !se_reface() + RETURN +ENDIF + +SELE BAL +IF FLOCK() + REPLACE ALL RULDEB WITH 0; + RULCRED WITH 0 + SCAN + SCATTER MEMVAR + SELE act + SUM suma TO m.RULDEB FOR scd=SUBS(m.cont,1,4) + SUM suma TO m.RULCRED FOR scc=SUBS(m.cont,1,4) + SELE BAL + REPL RULDEB WITH M.RULDEB; + RULCRED WITH M.RULCRED + + ENDSCAN + + IF TYPE('PRECDEB1')!="U" + DELETE ALL FOR PRECDEB1 = 0 AND PRECCRED1 = 0 AND precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ELSE + DELETE ALL FOR precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ENDIF + +ENDIF +DO CALCULEAZABALANTA +*UNLOCK +RETURN + + + +PROCEDURE VERDIFBAL +SELE BAL +IF FLOCK() + SUM RULDEB TO M.RULDEB + SUM RULCRED TO M.RULCRED + SELE act + SUM suma TO M.suma + IF M.RULDEB #M.suma + DO VERDIFDEB + DO REFBalanta + ENDIF + IF M.RULCRED #M.suma + DO VERDIFCRED + DO REFBalanta + ENDIF +ENDIF +UNLOCK IN BAL +RETURN + +************* +PROCEDURE VERDIFDEB +SELE act +DEB=' ' +SCAN + SCATTER MEMVAR + IF M.scd#DEB + DEB=M.scd + SELE BAL + SEEK DEB + IF ! FOUND() +*WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN BALANTA' +**** + WAIT WIND 'Se introduce in balanta contul '+ DEB NOWAIT + SELE PLCONT +*LOCATE FOR LEFT(CIMP1,4)=LEFT(DEB,4) + LOCATE FOR ALLTRIM(CIMP1)=ALLTRIM(DEB) + IF FOUND() + SCATTER MEMVAR + m.cont=M.CIMP1 + m.DENUMIRE=m.cimp2 + SELE BAL + APPEND BLANK +*GATHER MEMVAR + REPL CONT WITH M.cont + REPL DENUMIRE WITH M.DENUMIRE + ELSE + WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN PLANUL DE CONTURI' + ENDIF + +***** + ENDIF + SELE act + ENDIF +ENDSCAN +RETURN + +PROCEDURE VERDIFCRED +SELE act +DEB=' ' +SCAN + SCATTER MEMVAR + IF M.scc#DEB + DEB=M.scc + SELE BAL + SEEK DEB + IF ! FOUND() +*WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN BALANTA' + WAIT WIND 'Se introduce in balanta contul'+DEB NOWAIT + SELE PLCONT +*LOCATE FOR LEFT(CIMP1,4)=LEFT(DEB,4) + LOCATE FOR ALLTRIM(CIMP1)=ALLTRIM(DEB) + IF FOUND() + SCATTER MEMVAR + m.cont=M.CIMP1 + m.DENUMIRE=m.cimp2 + SELE BAL + APPEND BLANK +*GATHER MEMVAR + REPL CONT WITH M.cont + REPL DENUMIRE WITH M.DENUMIRE + ELSE + WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN PLANUL DE CONTURI' + ENDIF + ENDIF + SELE act + ENDIF + +ENDSCAN +RETURN + + + + +*___________________________________________________________________ +PROCEDURE refstocinloc &&REFSTOC + +IF !se_reface() + RETURN +ENDIF + + +SELE rull +M=3*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Stocuri' +OP.SHOW() +j=0 + +SELE inloc +*Set Order To Tag CODMAT2 +REPL ALL CANT WITH 0; +CANTE WITH 0 +SELE rull +SET ORDER TO TAG COD +SCAN + SCATTER MEMVAR + SELE W50 + SEEK M.COD + IF NOT FOUND() + SELE rull + IF FLOCK() + DELETE + ENDIF + UNLOCK + ENDIF + DO pr WITH j + SELE rull +ENDSCAN + +SELECT rull +IF FLOCK() + REPLACE ALL pretvtva WITH ROUND(pretv+tvav,0) FOR !EMPTY(pretv) AND !EMPTY(tvav) AND EMPTY(pretvtva) + REPLACE ALL DATAIN WITH dataact FOR CANT#0 AND EMPTY(DATAIN) + REPLACE ALL DATAOUT WITH dataact FOR CANTE#0 AND EMPTY(DATAOUT) +ENDIF +UNLOCK + +SELE inloc +REPL ALL CANT WITH 0; +CANTE WITH 0 + +*********** +&&gestiuni la pret de achizitie: +SELECT rull.* FROM rull WHERE rull.scd # '8039' AND gest in (sele DISTINCT gest FROM numegest WHERE nrg<>6 ) ; +INTO CURSOR rullachi + +SELECT inloc +SET ORDER TO TAG achi + +SELE rullachi +SCAN + m.cants=0 + m.CANT=0 + m.CANTE=0 + SCATTER MEMVAR + SELE inloc + SEEK STR(m.gest,3)+m.scd+STR(m.PRET,14,2)+m.CODMAT+m.DENUMIRE + IF FOUND() + REPL CANTE WITH CANTE+M.CANTE + REPL CANT WITH CANT+M.CANT + IF M.CANT#0 + REPLACE DATAIN WITH M.DATAIN + ELSE + REPLACE DATAOUT WITH M.DATAOUT + ENDIF + ELSE + APPEND BLANK + GATHER MEMV + ENDIF + + DO pr WITH j + SELE rullachi +ENDSCAN +USE IN rullachi + +&&gestiuni la pret de vanzare: +SELECT rull.* FROM rull WHERE gest in (sele DISTINCT gest FROM numegest WHERE nrg=6 ); +INTO CURSOR rullvanz + +SELECT inloc +SET ORDER TO TAG VANZ + +SELE rullvanz +SCAN + m.cants=0 + m.CANT=0 + m.CANTE=0 + SCATTER MEMVAR + SELE inloc + SEEK STR(m.gest,3)+m.scd+STR(m.PRET,14,2)+STR(m.pretvtva,14,2)+ m.CODMAT+m.DENUMIRE + +*!* Loca For GEST=M.GEST And SCD=M.SCD ; +*!* AND PRET=M.PRET AND PRETvtva=M.PRETvtva ; +*!* And Allt(CODMAT)=Allt(M.CODMAT) And Allt(DENUMIRE)=Allt(M.DENUMIRE) + IF FOUND() + REPL CANTE WITH CANTE+M.CANTE + REPL CANT WITH CANT+M.CANT + IF M.CANT#0 + REPLACE DATAIN WITH M.DATAIN + ELSE + REPLACE DATAOUT WITH M.DATAOUT + ENDIF + ELSE + APPEND BLANK + GATHER MEMV + ENDIF + + DO pr WITH j + SELE rullvanz +ENDSCAN +USE IN rullvanz + +OP.RELEASE +RETURN + + +*________________________________________________________________ +PROCEDURE refstoc &&refstint +LOCAL lp,ap +_SCREEN.MOUSEPOINTER=11 + +SET SAFETY OFF + +SELE calendar +LOCA FOR nl=m.nl AND an=m.an +SKIP -1 +IF BOF() + + dateA=dirgen+'\_alfa\an0000\date00' +ELSE + lp=nl + ap=an + dateA=calefirma+'\an'+ap+'\'+'date'+lp +ENDIF +dateb=calefirma+'\an'+m.an+'\'+'date'+M.nl + +SELE rull +SET FILTER TO + +SELE STOC +SET FILTER TO + +&&refacere fisier inlocuitor inloc +COPY FILE &dateA\STOC.* TO &loc\&nfscurt\tempo\inloc.* + +USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL +SELECT inloc +REPL ALL cants WITH cants+CANT-CANTE +DELE ALL FOR cants=0 +DELETE ALL FOR scd = '8039' +PACK + +SELECT inloc +INDEX ON STR(gest,3)+scd+STR(PRET,14,2)+ CODMAT+DENUMIRE TAG achi OF &loc\&nfscurt\tempo\inloc +INDEX ON STR(gest,3)+scd+STR(PRET,14,2)+STR(pretvtva,14,2)+ CODMAT+DENUMIRE TAG VANZ OF &loc\&nfscurt\tempo\inloc + + +DO refstocinloc &&REFSTOC + +SELECT inloc +ALTER TABLE inloc ADD COLUMN detoate c(175) +SET FILTER TO +INDEX ON detoate TAG detoate OF &loc\&nfscurt\tempo\inloc +SET ORDER TO TAG detoate +REPLACE ALL detoate WITH STR(gest,3)+scd+STR(PRET,14,2)+STR(pretvtva,14,2)+ CODMAT+DENUMIRE + +SELECT inloc +SET FILTER TO +TOTAL TO &loc\&nfscurt\tempo\inloctot ON detoate FIELDS CANT,CANTE,cants + + +USE &loc\&nfscurt\tempo\inloctot IN 0 ALIAS inloctot + +*DO suprapune WITH 'stoc','inloc' +SELECT STOC +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\inloctot +ENDIF +UNLOCK +USE IN inloc +USE IN inloctot + +SELECT STOC +SET ORDER TO TAG DENUMIRE + +_SCREEN.MOUSEPOINTER=0 +RETURN + + + + + + + +*________________________________________________________________ +PROCEDURE REFCumpAn && refcumpnouAN +LOCAL L,A +LOCAL M.BAZA, M.NE, M.TX + +L=M.nl +A=M.an + +SELE actan +M=3*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Total Cumparari' +OP.SHOW() +j=0 + +SELE CUMPAN +USE +SELE CUMP +USE +SELE act +USE +SELECT 0 +USE &datEAN\CUMPAN.DBF EXCLUSIVE ALIAS CUMP +ZAP +SELE actan +SET FILTER TO scc='401 ' OR scc='404 ' OR (scc='4428' AND scd='4426') +*SET FILTER TO SCC='401 ' OR SCC='404 ' OR SCC='4428' +*SET FILTER TO SCC='401 ' OR SCC='404 ' +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + GO BOTTOM + APPE BLAN + GATH MEMV + ENDIF + DO pr WITH j + SELE actan +ENDSCAN +******* +SELE CUMP +SCAN + SCAT MEMV + SELE actan + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + DO CASE + CASE scd='4426' + m.tvaM=M.tvaM+suma + + CASE scd#'4426' + m.totftvaM=M.totftvaM+(suma-neimpozab) + m.neimpozab=m.neimpozab+neimpozab + IF scd='635 ' +*M.TX=.T. + m.neimpozab=m.neimpozab+suma + m.totftvaM=m.totftvaM-suma + ENDIF + ENDCASE + + ENDSCAN + +*********** + + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + DO pr WITH j +ENDSCAN +SELE actan +SCAN FOR scd='408 ' + SCAT MEMV + SELE CUMP + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM + REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + REPL totctva WITH totftvaM+tvaM+neimpozab + DO pr WITH j + SELE actan +ENDSCAN + +SELE CUMP +USE + +OP.RELEASE +*SELECT 0 +*USE &dateAN\cumpAN.dbf alias cumpan + +************DO RC1.PRG +m.an=A +m.nl=L +CLOSE DATABASE +DO TOTV.PRG +RETURN + + +*___________________________________________________________________________________________ +PROCEDURE refVANZAN +LOCAL L,A +LOCAL M.BAZA, M.NE, M.TX + +L=M.nl +A=M.an + +SELE actan +M=2*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Total Vanzari' +OP.SHOW() +j=0 + +SELE VANZAN +USE +SELE VANZ +USE +SELE CUMP +USE +SELE act +USE +SELECT 0 +USE &datEAN\VANZAN.DBF EXCLUSIVE ALIAS CUMP +ZAP +SELE actan +SET FILTER TO INLIST(scd,'411 ','461 ','4118') OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427') +&&SET FILTER TO SCd='411 ' or (scd='4428' and scc='4427') +*OR (SCD='635 ' AND SCC='4427') +*SET FILTER TO SCD='411 ' or (scd='4428' and !inlist(left(scc,3),'371','408')) +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + GO BOTTOM + APPE BLAN + GATH MEMV + ENDIF + DO pr WITH j + SELE actan +ENDSCAN +******* +SELE CUMP +SCAN + SCAT MEMV + SELE actan + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + DO CASE + CASE scc='4427' + m.tvaM=M.tvaM+suma + + CASE scc#'4427' + m.totftvaM=M.totftvaM+(suma-neimpozab) + m.neimpozab=m.neimpozab+neimpozab + m.sumaval=m.sumaval+suma_2 + m.NUMEVAL=nume_4 + m.CURSSCHIMB=SUMA_3 + + + ENDCASE + + ENDSCAN + +*********** + + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + DO pr WITH j + SELE actan +ENDSCAN + +SELE CUMP +USE + +SELECT 0 +USE &datEAN\VANZAN.DBF ALIAS VANZAN + +OP.RELEASE +*********************DO RV1.PRG +m.an=A +m.nl=L +CLOSE DATABASE +DO TOTV.PRG +RETURN + +*-------------------------------------------------------------- + +*** REFACERE BALANTA SINTETICA CU PRECEDENTE +PROCEDURE REFBal && REFBalanta +LOCAL dateA + +IF !se_reface() + RETURN +ENDIF +SET SAFETY OFF + + +*** adaug in balanta curenta balanta din luna precedenta +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +IF FOUND() + SKIP -1 + IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla + ELSE + dateA=dirgen+'\_alfa\an0000\date00\' && 'Aceasta este prima luna deschisa!','' + ENDIF + DATE=calefirma+'\an'+m.an+'\date'+m.nl +ELSE + DO mesaj WITH 'Fisierul Calendar.dbf este defect!','' + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +SELE BAL +IF FLOCK() + DELE ALL + APPE FROM &dateA\BAL.DBF FOR !DELETED() + UNLOCK +ENDIF + + +*** verific daca am campurile de solduri la 1 ianuarie +llNuSold=.F. +IF TYPE('precdeb1')!="U" && am campurile precdeb1, deci trebuie sa completez soldul de la 1 ianuarie + llNuSold=.T. +ENDIF + + +*** caut prima balanta din anul curent care are campuri cu solduri de la 1 ianuarie +llgasit=.F. +lcBal1ian=calefirma+'\an'+m.an+'\date01\bal.dbf' +IF llNuSold + lnan=VAL(m.an) + + FOR i=1 TO 12 + SELECT calendar + LOCATE FOR VAL(an)=lnan AND VAL(nl)=i AND VAL(nl)!=VAL(m.nl) + IF FOUND() + lcBal1ian=calefirma+'\an'+calendar.an+'\date'+calendar.nl+'\bal.dbf' + IF FILE(lcBal1ian) + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT bal1ian + IF TYPE("precdeb1")!="U" && exxista campul precdeb1 in balanta selectata + USE IN bal1ian + llgasit=.T. + EXIT + ENDIF + USE IN bal1ian + ENDIF + ENDIF + ENDFOR +ENDIF + + + +*** daca am campul de sold la 1 ianuarie le preiau din prima balanta cu solduri la 1 ianuarie din anul respectiv +IF llNuSold + IF llgasit && daca am gasit prima balanta sintetica cu solduri la 1 ianuarie + + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT CONT,PRECDEB1,PRECCRED1 FROM bal1ian INTO CURSOR t1ian ORDER BY CONT + SELECT BAL + IF FLOCK() + REPLACE ALL PRECDEB1 WITH 0,PRECCRED1 WITH 0 + SCAN + lcCont=CONT + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + + SELECT t1ian + LOCATE FOR CONT=lcCont + IF FOUND() + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + ENDIF + + SELECT BAL + REPLACE PRECDEB1 WITH lnprecdeb1,PRECCRED1 WITH lnpreccred1 + ENDSCAN + UNLOCK IN BAL + ENDIF + USE IN bal1ian + USE IN t1ian + ENDIF + +ENDIF + + +SELE BAL +SET ORDER TO TAG CONT + +SELE BAL +IF FLOCK() + IF m.nl='01' + REPL ALL precdeb WITH 0,preccred WITH 0 + REPL ALL precdeb WITH SOLDDEB,preccred WITH SOLDCRED + IF llNuSold && AM CAMPURILE DE SOLDURI LA 1 IANUARIE + REPLACE ALL PRECDEB1 WITH SOLDDEB,PRECCRED1 WITH SOLDCRED + ENDIF + ELSE + + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL RULDEB WITH 0, RULCRED WITH 0 + REPL ALL precdeb WITH totdeb, preccred WITH totcred + ENDIF + UNLOCK +ENDIF + +DO REFBalanta +DO VERDIFBAL +DO CALCULEAZABALANTA + + +DO REFBALANA +RETURN + +*_______________________________________________________________________________________ + +*** REFACERE BALANTA ANALITICA CU PRECEDENTE*** +PROCEDURE REFBALANA && RefBalanta_ana +LOCAL dateA + +IF !se_reface() + RETURN +ENDIF + +SET SAFETY OFF + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' && 'Aceasta este prima luna deschisa!','' +ENDIF +DATE=calefirma+'\an'+m.an+'\date'+m.nl + + +*** caut bal si balana din prima luna din anul curent pt soldurile de la 1 ianuarie in caz ca nu gasesc in balanta precedenta +llgasit=.F. +lcBal1ian=calefirma+'\an'+m.an+'\date01\bal.dbf' +lnan=VAL(m.an) + +FOR i=1 TO 12 + SELECT calendar + LOCATE FOR VAL(an)=lnan AND VAL(nl)=i + IF FOUND() + lcBal1ian=calefirma+'\an'+calendar.an+'\date'+calendar.nl+'\balana.dbf' + IF FILE(lcBal1ian) + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT bal1ian + IF TYPE("precdeb1")!="U" && exxista campul precdeb1 in balanta selectata + USE IN bal1ian + llgasit=.T. + EXIT + ENDIF + USE IN bal1ian + ENDIF + ENDIF +ENDFOR + +SELE BALANA +IF FLOCK() + DELE ALL + IF FILE('&dateA\BALANA.DBF') + APPE FROM &dateA\BALANA.DBF FOR !DELETED() + ENDIF + + +*** verific daca am soldurile de la 1 ianuarie + llNuSold=.F. + STORE 0 TO lnprecdeb1,lnpreccred1 + IF existacamp('bal','precdeb1') +*!* CALCULATE sum(precdeb1),sum(preccred1) TO lnprecdeb1,lnpreccred1 +*!* +*!* IF lnprecdeb1=0 && nu am soldurile de la 1 ianuarie + llNuSold=.T. +*!* ENDIF + ENDIF + +*** Daca nu am soldurile de la 1 ianuarie dupa ce am facut append inseamna ca nu le am nici in balanta precedenta, +*** deci o sa le caut in prima balanta din anul respectiv + IF llNuSold + IF llgasit && daca am gasit prima balanta analitica + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + IF existacamp('bal1ian','precdeb1') AND existacamp('bal1ian','preccred1') + SELECT CONT,acont,PRECDEB1,PRECCRED1 FROM bal1ian INTO CURSOR t1ian ORDER BY CONT + SELECT BALANA + SCAN + lcCont=CONT + lcACont=acont + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + + SELECT t1ian + LOCATE FOR CONT=lcCont AND acont=lcACont + IF FOUND() + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + ENDIF + + SELECT BALANA + REPLACE PRECDEB1 WITH lnprecdeb1,PRECCRED1 WITH lnpreccred1 + ENDSCAN + USE IN bal1ian + USE IN t1ian + ENDIF + ENDIF + ENDIF + + + + SELE BALANA + SET ORDER TO TAG CONTACONT + + SELECT PLCONTANA + SCAN + SCATTER MEMV + SELECT BALANA + SEEK M.cont+M.acont + IF !FOUND() + APPEND BLANK + REPLACE CONT WITH M.cont, acont WITH M.acont, DENUMIRE WITH M.DENUMIRE + ENDIF + SELECT PLCONTANA + ENDSCAN + + SELECT DISTINCT scd AS CONT,ASCD AS acont ; + FROM act ; + WHERE !EMPTY(ASCD) AND LEFT(scd,4)+LEFT(ASCD,4) NOT IN ; + (SELE LEFT(CONT,4)+LEFT(acont,4) FROM BALANA) ; + INTO CURSOR tscd + + SELE BALANA + APPEND FROM DBF('tscd') + USE IN tscd + + SELECT DISTINCT scc AS CONT,ASCC AS acont ; + FROM act ; + WHERE !EMPTY(ASCC) AND LEFT(scc,4)+LEFT(ASCC,4) NOT IN ; + (SELE LEFT(CONT,4)+LEFT(acont,4) FROM BALANA) ; + INTO CURSOR tscc + + SELE BALANA + APPEND FROM DBF('tscc') + USE IN tscc + + IF m.nl='01' + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL precdeb WITH SOLDDEB, preccred WITH SOLDCRED + IF llNuSold && AM CAMPURILE DE SOLDURI LA 1 IANUARIE + REPLACE ALL PRECDEB1 WITH SOLDDEB,PRECCRED1 WITH SOLDCRED + ENDIF + + ELSE + + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL RULDEB WITH 0, RULCRED WITH 0 + REPL ALL precdeb WITH totdeb, preccred WITH totcred + ENDIF + + DO REFBALANTA_ANA +*DO VERDIFBAL_ANA + DO verif_balana + DO CALCULEAZABALANTA_ANA +ENDIF +UNLOCK IN BALANA +RETURN + +*______________________________________________________ + +PROCEDURE REFCasaVal && REFVALCASA +LOCAL ap,lp,D +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +USE &dateA\casvnume IN 0 SHARED ALIAS casvnumeP +IF TYPE('casvnumep.precdeb') # 'U' + SELECT nume_5, numeval, ; + precdeb + incasari as precdeb, preccred + plati as preccred, ; + precvaldeb + incasval as precvaldeb, precvalcre + platival as precvalcre ; + FROM casvnumeP ; + INTO CURSOR tprec ORDER BY nume_5 +ELSE + SELECT nume_5, numeval, incasari as precdeb, plati as preccred, incasval as precvaldeb, platival as precvalcre ; + FROM casvnumeP ; + INTO CURSOR tprec ORDER BY nume_5 +ENDIF + +SELE casaval +IF FLOCK() + DELETE ALL + m.DATAIREG={} + m.COD=-1 + m.INCASARI=0 + m.PLATI=0 + m.incasval=0 + m.platival=0 + m.scd='' + m.scc='' + m.CURSSCHIMB=0 + m.CURSBNR=0 + + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.INCASval = M.precvaldeb-M.precvalcre + m.PLATIval = 0 + m.casa = m.nume_5 + SELE casaval + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_5 as casa, scd, scc, suma_3 as cursschimb, nume_4 as numeval, ; + IIF(scd = '5314', suma, 00000000000000) as incasari, ; + IIF(scc = '5314', suma, 00000000000000) as plati, ; + IIF(scd = '5314', suma_2, 000000000000.00) as incasval, ; + IIF(scc = '5314', suma_2, 000000000000.00) as platival ; + FROM act WHERE scd = '5314' OR scc = '5314' ; + INTO CURSOR tact + +SELECT casaval +APPEND FROM DBF('tact') +USE IN tact + + +SELECT casvnume +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + +SELECT nume_5 as casaval, nume_4 as numeval, ; + sum(IIF(scd = '5314', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5314', suma, 00000000000000)) as plati, ; + sum(IIF(scd = '5314', suma_2, 000000000000.00)) as incasval, ; + sum(IIF(scc = '5314', suma_2, 000000000000.00)) as platival ; + FROM act WHERE scd = '5314' OR scc = '5314' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT casvnume + LOCATE FOR ALLTRIM(nume_5) = ALLTRIM(ot.casaval) + IF !FOUND() + APPEND blank + REPLACE nume_5 WITH ot.casaval + REPLACE numeval WITH ot.numeval + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + REPLACE incasval WITH incasval + ot.incasval, platival WITH platival + ot.platival + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN casvnumeP + + +*!* SELE CASAVAL +*!* SET ORDER TO TAG COD +*!* IF FLOCK() +*!* DELE ALL + +*!* SELE CASVNUME +*!* USE + +*!* IF !FILE('&DATEA\CASVNUME.DBF') +*!* COPY FILE &dirgen\_alfa\an0000\date00\CASVNUME.* TO &dateA\CASVNUME.* +*!* ENDIF +*!* SELE 0 +*!* USE &dateA\CASVNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.incasval=0 +*!* m.platival=0 +*!* m.scd='' +*!* m.scc='' +*!* m.CURSSCHIMB=0 +*!* m.CURSBNR=0 + +*!* &&REFACERE SOLDURI IN CASAVAL DUPA CASVNUME DIN LUNA PRECEDENTA======================= +*!* SELE CASVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.CASA=m.nume_5 +*!* SELE CASAVAL +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.incasval=M.incasval-M.platival +*!* m.PLATI=0 +*!* m.platival=0 +*!* GATHER MEMVAR +*!* SELE CASVNUME +*!* ENDSCAN + +*!* SELE CASVNUME +*!* USE + +*!* &&REFACERE SUME IN CASAVAL DUPA ACT====================== +*!* &&IN DEB====================== +*!* SELE act +*!* SCAN FOR scd='5314' +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* m.CASA=M.nume_5 +*!* m.INCASARI=M.suma +*!* m.incasval=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.PLATI=0 +*!* m.platival=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN&& +*!* &&IN CRED======================= +*!* SELE act +*!* SCAN FOR scc='5314' +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* m.CASA=M.nume_5 +*!* m.PLATI=M.suma +*!* m.platival=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +*!* &&REFACERE CASVNUME DUPA CASAVAL=================== +*!* SELE 0 +*!* USE &DATE\CASVNUME +*!* &&& exclusive +*!* &&&zap +*!* IF FLOCK() +*!* DELE ALL +*!* &&NUMELE CASELOR=========== +*!* SELE CASAVAL +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASVNUME +*!* LOCA FOR nume_5=M.CASA +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_5 WITH M.CASA +*!* ENDIF +*!* REPL NUMEVAL WITH m.NUMEVAL +*!* SELE CASAVAL +*!* ENDSCAN +*!* &&VALORILE=============== +*!* SELE CASVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR ALLT(CASA)=ALLT(M.nume_5) +*!* IF EMPTY(ALLT(M.nume_5)) +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR EMPTY(ALLT(CASA)) +*!* ENDIF +*!* SELE CASVNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* REPL incasval WITH M.incasval +*!* REPL platival WITH M.platival +*!* SELE CASVNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN CASAVAL +*!* UNLOCK IN CASVNUME +SELE CASAVAL +SET ORDER TO TAG DATAIREG +RETURN + + + +***____________________________________________________ +PROCEDURE CURATARE &&CURATARE INREGISTRARI STERSE +DO CURATARE1 +ON ERROR +RETURN + +*______________________ +PROCEDURE CURATARE1 +SELECT REFACERI +SCAN + LcFisier=ALLTRIM(tabel) + DO pack_fisier WITH LcFisier + SELECT REFACERI +ENDSCAN + +DO pack_fisier WITH 'BALANA' +DO pack_fisier WITH 'BALANTA_PARTENER' + +RETURN + +*___________________________ +*** INCEPUT PROCEDURA PACK_FISIER +PROCEDURE pack_fisier +PARAM numefis + +SELE &numefis +USE +SELE 0 + +lcOldError=ON("error") +ON ERROR DO daca_ruleaza1 +USE &DATE\&numefis EXCL ALIAS &numefis +PACK +SELE &numefis +USE + +DO des WITH numefis +ON ERROR &lcOldError +ENDPROC +*** SFARSIT PROCEDURA PACK_FISIER + +*_______________________ +PROC daca_ruleaza1 +DO daca_ruleaza +RETURN TO CURATARE + +*_______________________ +PROC daca_ruleaza +DO mesajmare WITH ' Inainte de a executa aceasta operatiune trebuie sa va asigurati ca programul nu mai ruleaza pe alte statii din retea.'+; ++SPACE(50)+'Inchideti programele CONTAFIN deschise pe toate celelalte statii si apoi reveniti.' +semafor1=.T. +RETURN +RETURN + + + + + + + +*_________________________________________ +PROCEDURE REFCumplun +LOCAL nla,nlb,ana,anb,cond,cond1 + +IF !se_reface() + RETURN +ENDIF + + +cond='(year(dataireg)0 + SCAT MEMV + SELE cumplun + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + REPL totftvaM WITH totftvaM-M.suma + REPL neimpozab WITH M.suma + + REPL totctva WITH totftvaM+tvaM+neimpozab + SELE act + ENDSCAN +*************BILETE MASA********* + SELE act + SCAN FOR scd='5328' AND LEFT(EXPLICATIA,7)='TICHETE' AND neimpozab=0 + SCAT MEMV + SELE cumplun + LOCA FOR nract=m.nract AND NUME=m.NUME +* BROWSE +* SELECT cumplun +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + REPL totftvaM WITH totftvaM-M.suma + REPL neimpozab WITH M.suma + + REPL totctva WITH totftvaM+tvaM+neimpozab +* BROWSE + SELE act + ENDSCAN +************* + SELE act + SET FILTER TO +*SCAN FOR SCc='4428' and LEFT(scd,3)='371' +*SCAT MEMV +*SELE cumplun +*loca for nract=m.nract and nume=m.nume + +*if found() +*m.neimpozab=totftvam*(-1) +*REPL TOTFTVAM WITH totftvam+m.neimpozab +*REPL neimpozab WITH m.neimpozab +*REPL TOTCTVA WITH TOTFTVAM+TVAM+neimpozab +*endif +*SELE act +*ENDSCAN +*endif + + SELE cumplun + SET FILTER TO + GO TOP +*BROW + +&&ca in rc1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + SELE cumplun + REPL ALL achitat WITH 0 FOR !&cond + + SELE act + SET ORDER TO TAG PERECHE +*Set Filter To (ACT.SCD='401 ' Or ACT.SCD='404 ') And PERECHE#0 + SET FILTER TO act.scd='401 ' AND PERECHE#0 + + SELE act + GO TOP + DO WHILE !EOF() + m.achitat=0 + m.achitatval=0 + SCAT MEMV + DO WHILE PERECHE=M.PERECHE AND ALLTR(NUME)=ALLT(M.NUME) AND ASCD=m.ASCD + m.achitat=m.achitat+suma + m.achitatval=m.achitatval+suma_2 + SKIP + ENDDO + SELE cumplun + LOCA FOR nract=m.PERECHE AND ALLTR(NUME)=ALLT(M.NUME) AND acont=m.ASCD + IF !FOUND() + LOCATE FOR nract=m.PERECHE AND ALLT(NUME)=ALLT(M.NUME) + ENDIF + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH m.achitatval+achitatval + ENDIF +*SET FILTER TO ACHITAT=0 + SELE act + ENDDO + + +ENDIF +UNLOCK IN cumplun +SELE cumplun +SET FILTER TO +SELECT act +SET FILTER TO +RETURN + + +*------------------------------------------------------------------------------------ + +PROCEDURE REFvanzlun +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +*** actualizez act cu pereche si pereche2 daca am optiunea refac=.T. +DO refac_act WITH "411" IN actualizare_act.PRG + +cond='(year(dataireg)'4118') AND !(LEFT(scd,3)='411' AND scc='4427') AND id_set != 90501 AND ; + NUME+'/'+DTOC(dataact)+'/'+STR(nract,14)+'/'+ASCD NOT IN (SELE NUME+'/'+DTOC(dataact)+'/'+STR(nract,14)+'/'+ACONT FROM vanzlun) ; + INTO CURSOR tact ; + GROUP BY NUME,dataact,nract,ASCD + + + lnrec = _TALLY + SELECT vanzlun + APPEND FROM DBF('tact') + USE IN tact + + + +************************************************************************************************* + lcfis = ALLTRIM(loc) + [\] + ALLTRIM(nfscurt) + [\tempo\tact.dbf] + + + SELE NUME,nract,dataact,ASCD, ; + SUM(suma) AS totctva, SUM(suma_2) AS sumaval ; + FROM act ; + WHERE LEFT(scd,3)='411' AND scd<>'4118' ; + INTO TABLE (lcfis) ; + GROUP BY NUME,dataact,nract,ASCD ; + ORDER BY NUME,dataact,nract,ASCD + + SELECT tact + INDEX ON NUME+[\]+DTOC(dataact)+[\]+STR(nract)+[\]+ASCD TAG ordine + SET ORDER TO ordine + + SELECT vanzlun + SET FILTER TO !&cond + SCAN + lcFactura = NUME+[\]+DTOC(dataact)+[\]+STR(nract)+[\]+acont + lnSumaVal=sumaval + lnTotctva = totctva + + SELECT tact + IF SEEK(lcFactura) + + lnTotctva = lnTotctva + totctva + lnSumaVal = lnSumaVal + sumaval + SELECT vanzlun + REPL totctva WITH lnTotctva, sumaval WITH lnSumaVal + ENDIF + SELECT vanzlun + + ENDSCAN + + USE IN tact +************************************************************************************************* + + + SELE act + SET FILTER TO + SCAN FOR INLIST(LEFT(scd,3),'667','622') AND LEFT(scc,3)='411' && 622 la 27 august 2004 Marius (Conpress - comision agent vanzare) + SCAT MEMV + SELE vanzlun + LOCA FOR nract=m.nract AND NUME=m.NUME AND acont=m.ASCC + + IF FOUND() + REPLACE totctva WITH totctva - m.suma + ENDIF + SELE act + ENDSCAN + + + lModifAct=.T. +******** + SELE vanzlun + SET FILTER TO + + REPL ALL achitat WITH 0 FOR !&cond + + +&& id_set = 90501 diferente de curs provenite din actualizarea facturilor la 31.12.NN + SELECT nract, NUME, ASCC AS acont, pereche2, ; + SUM(suma) AS achitat, SUM(suma_2) AS achitatval ; + FROM act WHERE LEFT(scc,3)='411' AND scc<>'4118' AND pereche2#0 AND id_set != 90501; + GROUP BY pereche2, NUME, ASCC ; + INTO CURSOR t411 + + SELECT t411 + SCAN + SCATTER NAME o411 + SELECT vanzlun + LOCATE FOR nract=o411.pereche2 AND ALLT(NUME)=ALLTRIM(o411.NUME) AND acont=o411.acont + IF !FOUND() + LOCATE FOR nract=o411.pereche2 AND ALLTRIM(NUME)=ALLTRIM(o411.NUME) + ENDIF + + IF FOUND() + REPLACE achitat WITH achitat + o411.achitat + REPLACE achitatval WITH achitatval + o411.achitatval + ENDIF + SELECT t411 + ENDSCAN + + RELEASE o411 + USE IN t411 + + + + +*** actualizarea soldurilor facturilor in valuta la 31.12.NN + SELECT nract, NUME, IIF(LEFT(scd,3)='411',ASCD,ASCC) AS acont, pereche2, ; + IIF(LEFT(scd,3)='411',suma,(-1)*suma) AS diferenta, SUMA_3 AS CURSSCHIMB ; + FROM act WHERE (LEFT(scc,3)='411' OR LEFT(scd,3)='411') AND scc<>'4118' AND pereche2#0 AND id_set = 90501; + INTO CURSOR tactualizare + + SELECT tactualizare + SCAN + SCATTER NAME lo501 + SELECT vanzlun + LOCATE FOR nract = lo501.pereche2 AND ALLT(NUME)=ALLTRIM(lo501.NUME) AND acont=lo501.acont + IF FOUND() + REPLACE totctva WITH totctva + lo501.diferenta, CURSSCHIMB WITH lo501.CURSSCHIMB + ENDIF + SELECT tactualizare + ENDSCAN + RELEASE lo501 + USE IN tactualizare + + + SELE act + SET FILT TO +******* +&&pt regularizare clienti creditori +&& and id_set#10421 + + + SELE DISTINCT COD,pereche2 FROM &DATE\act WHERE scd='419 ' AND LEFT(scc,3)='411' INTO CURSOR c419 ORDER BY COD &&pt regularizare clienti creditori + SELE act + SET FILT TO + SELE c419 + SCAN + SCAT FIEL COD,pereche2 MEMV + SELE act + LOCA FOR COD=m.COD AND pereche2=m.pereche2 AND LEFT(scd,3)='411' AND scd#'4118' AND scc='4427' + IF !FOUND() + LOOP + ENDIF + SCAT MEMV + + SELE vanzlun + LOCA FOR NUME=m.NUME AND nract=m.pereche2 AND acont=m.ASCD + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.pereche2 + ENDIF + IF FOUND() + REPL achitat WITH achitat+ABS(m.suma) + ENDIF + SELE c419 + ENDSCAN + USE IN c419 +&&pt regularizare clienti creditori +ENDIF +UNLOCK IN vanzlun +SELE vanzlun +SET FILTER TO +RETURN + +*_________________________________________ +PROCEDURE REFobinvent +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELECT rull +SCAN FOR scd = '8039' AND EMPTY(nresp) + lnR = RECNO() + lnC = COD + LOCATE FOR COD = lnC AND !EMPTY(nresp) + lcResp = nresp + IF FOUND() + GOTO lnR + REPLACE nresp WITH lcResp + ELSE + GOTO lnR + ENDIF + + SELECT rull +ENDSCAN + + +SELE obinvent +IF FLOCK() + DELE ALL + APPEND FROM &DATE\rull FOR scd = '8039' +ENDIF +UNLOCK IN obinvent + +SELE rull +SET FILTER TO + +SELE STOC_obinv +SET FILTER TO + + +&&refacere stoc obiecte de inventar aflate in folosinta +lcfis = dateA+'\stoc_obinv.Dbf' +lcStoc = dateA+'\stoc.Dbf' + +IF FILE(lcfis) + COPY FILE &dateA\STOC_obinv.* TO &loc\&nfscurt\tempo\inloc.* + USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL +ELSE + COPY FILE &dirgen\_alfa\an0000\date00\STOC_obinv.* TO &loc\&nfscurt\tempo\inloc.* + USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL + SELECT inloc + APPEND FROM &lcStoc FOR scd = '8039' +ENDIF + + +SELECT inloc +REPL ALL cants WITH cants+CANT-CANTE +DELE ALL FOR cants=0 +PACK +REPL ALL CANT WITH 0, CANTE WITH 0 + +SELECT inloc +INDEX ON STR(PRET,14,2)+ nresp+ CODMAT + DENUMIRE TAG achi OF &loc\&nfscurt\tempo\inloc + +SELECT rull +SCAN FOR scd = '8039' + SCATTER NAME orull + SELECT inloc + SEEK STR(orull.PRET,14,2)+ orull.nresp+ orull.CODMAT+orull.DENUMIRE +*LOCATE FOR GEST = orull.gest AND PRET = orull.pret AND CODMAT = orull.codmat AND DENUMIRE = orull.denumire AND nresp = orull.nresp + IF FOUND() + IF FLOCK() + REPLACE CANT WITH CANT + orull.CANT, CANTE WITH CANTE + orull.CANTE, DATAOUT WITH orull.DATAOUT + ENDIF + UNLOCK + ELSE + APPEND BLANK + GATHER NAME orull + ENDIF +ENDSCAN + +SELECT inloc +ALTER TABLE inloc ADD COLUMN detoate c(175) +SET FILTER TO +INDEX ON detoate TAG detoate OF &loc\&nfscurt\tempo\inloc +SET ORDER TO TAG detoate +REPLACE ALL detoate WITH STR(PRET,14,2)+ nresp+ CODMAT+DENUMIRE + +SELECT inloc +SET FILTER TO +TOTAL TO &loc\&nfscurt\tempo\inloctot ON detoate FIELDS CANT,CANTE,cants + + +USE &loc\&nfscurt\tempo\inloctot IN 0 ALIAS inloctot + +SELECT STOC_obinv +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\inloctot +ENDIF +UNLOCK +USE IN inloc +USE IN inloctot + +SELECT STOC_obinv +SET ORDER TO TAG DENUMIRE + +RETURN + +*_________________________________________ + + +PROCEDURE REFrespons +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELE respons +IF FLOCK() + DELE ALL + + APPEND FROM &dateA\respons.DBF FOR !DELETED() AND !EMPTY(nume_2) + + SELE DISTINCT act.nresp FROM act INTO CURSOR ttt + SELE ttt + SCAN + SCAT MEMV + SELE respons + LOCA FOR ALLT(m.nresp)=ALLT(nume_2) + IF !FOUND() + APPE BLAN + REPL nume_2 WITH m.nresp + ENDIF + SELE ttt + ENDSCAN + +ENDIF +UNLOCK IN respons +RETURN + + + + +*----------------------------------------- +PROCEDURE refavans409 +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "409" IN actualizare_act.PRG + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&dateA\avans409.dbf') + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELE avans409 +IF FLOCK() + DELE ALL + APPEND FROM &dateA\avans409.DBF FOR achitat<>facturat OR achitatval<>factval + SELE nract,dataact,COD,NUME,fdoc,suma AS achitat,suma_2 AS achitatval,SUMA_3 AS CURSSCHIMB,; + nume_4 AS NUMEVAL,DATAIREG,datascad,m.nl AS nl,m.an AS an, scd as cont, ASCD AS acont ; + FROM act WHERE LEFT(scd, 3)='409' INTO CURSOR aaa ORDER BY dataact + + SELE avans409 + APPE FROM DBF('aaa') + + SELE act + SCAN FOR LEFT(scc,3) = '409' + SCAT MEMV + SELE avans409 + LOCA FOR NUME=m.NUME AND nract=m.pereche2 AND cont = m.scc and acont=m.ASCC &&And dataact=DAT + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.pereche2 + ENDIF + IF FOUND() + REPL facturat WITH facturat+m.suma + REPL factval WITH factval+m.suma_2 + ENDIF + SELE act + ENDSCAN + + +ENDIF +UNLOCK IN avans409 + +RETURN + +*----------------------------------------- +PROCEDURE refavans419 +LOCAL nla,nlb,ana,anb + + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "419" IN actualizare_act.PRG + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&dateA\avans419.dbf') + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +SELE avans419 +IF FLOCK() + DELE ALL + APPEND FROM &dateA\avans419.DBF FOR achitat<>facturat OR achitatval<>factval + + SELE nract,dataact,COD,NUME,fdoc,suma AS achitat,suma_2 AS achitatval,SUMA_3 AS CURSSCHIMB,; + nume_4 AS NUMEVAL,DATAIREG,datascad,m.nl AS nl,m.an AS an, ASCC AS acont, scc as cont ; + FROM act WHERE LEFT(scc, 3) = '419' INTO CURSOR aaa ORDER BY dataact + + SELE avans419 + APPE FROM DBF('aaa') + + SELE act + SCAN FOR ALLTRIM(scd)='419' + SCAT MEMV + SELE avans419 + LOCA FOR NUME=m.NUME AND nract=m.PERECHE AND acont=m.ASCD &&And dataact=DAT + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.PERECHE + ENDIF + IF FOUND() + REPL facturat WITH facturat+m.suma + REPL factval WITH factval+m.suma_2 + ENDIF + SELE act + ENDSCAN + + +ENDIF +UNLOCK IN avans419 +RETURN + + + + + + +*-------------------------------------------------------------------------------------- +PROCEDURE completeaza_analitic +SET SAFETY OFF +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&datea\analitic.dbf') + COPY FILE _alfa\an0000\date00\analitic.* TO &dateA\analitic.* +ENDIF + +WAIT WINDOW 'Se calculeaza precedentele conturilor bifate...' NOWAIT +&& precedente pentru toate conturile recalculabile------------------- +USE &dateA\analitic.DBF IN 0 ALIAS analitica +SELECT analitica +*BROW +IF existacimp('analitica','totdeb') + SELECT CONT,NUME,totdeb AS precdeb,totcred AS preccred FROM analitica ; + WHERE CONT IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); + INTO CURSOR rrr +ELSE + SELECT CONT,NUME,DEB AS precdeb,cred AS preccred FROM analitica INTO CURSOR rrr +ENDIF +USE IN analitica +SELECT rrr +*BROW + +WAIT WINDOW 'Se readuc precedentele conturilor NEbifate...' NOWAIT +* conturi nerecalculabile------------------------ +SELECT * FROM analitic ; +WHERE CONT NOT IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); +INTO CURSOR sss + + + +*aduc in ana-------------------- +SELE analitic +COPY STRUCTURE TO &loc\&nfscurt\tempo\ana WITH CDX + +USE &loc\&nfscurt\tempo\ana IN 0 EXCL ALIAS ana ORDER TAG cn +SELE ana +APPEND FROM DBF('rrr') +APPEND FROM DBF('sss') + +USE IN rrr +USE IN sss + +WAIT WINDOW 'Se calculeaza rulajele...' NOWAIT + +SELECT * FROM act WHERE ; +scd IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales) OR ; +scc IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); +INTO CURSOR aaa + +SELECT A.*,b.NUME AS numescd FROM aaa A FULL JOIN f_analitic b; +ON A.scd=b.CONT AND b.ales INTO CURSOR bbb + +SELECT A.*,b.NUME AS numescc FROM bbb A FULL JOIN f_analitic b; +ON A.scc=b.CONT AND b.ales INTO CURSOR actmic ORDER BY DATAIREG + +SELECT actmic +*brow + +*refacere ana--- +SELE actmic +*!* Set Filter To +*!* Set Order To DATAIREG +SCAN FOR !ISNULL(COD) + SCAT MEMV + + IF !ISNULL(numescd) + T='m.nume='+numescd + &T +* WAIT WINDOW t +* WAIT WINDOW m.nume + WAIT WINDOW 'Data: '+DTOC(DATAIREG) NOWAIT + SELE ana + SEEK m.scd+m.NUME + + IF FOUND() + REPL DEB WITH DEB+m.suma + ELSE + m.cont=m.scd + m.DEB=m.suma + m.cred=0 + APPE BLAN + GATH FIEL CONT,DEB,NUME MEMV + ENDIF + ENDIF + + SELE actmic + IF !ISNULL(numescc) + T='m.nume='+numescc + &T + SELE ana + SEEK m.scc+m.NUME + IF FOUND() + REPL cred WITH cred+m.suma + ELSE + m.cont=m.scc + m.cred=m.suma + m.DEB=0 + APPE BLAN + GATH FIEL CONT,cred,NUME MEMV + ENDIF + ENDIF + SELE actmic +ENDSCAN +SELE ana +DELE FOR EMPTY(CONT) +IF existacimp('ana','totdeb') + REPLACE ALL totdeb WITH DEB+precdeb,totcred WITH preccred+cred +ENDIF +PACK +*din ana in analitic----- +WAIT WINDOW 'Se salveaza datele...' NOWAIT +DO suprapune WITH 'analitic','ana' +SELECT analitic +SET ORDER TO TAG NUME + +USE IN ana + +RETURN + + + +*------------------------------------------------------------------------------- +PROCEDURE suprapune +PARAMETERS DEST,sursa +LOCAL R +R=0 +**golire +SELECT &DEST +SCATTER MEMVAR BLANK +SCAN + GATHER MEMV +ENDSCAN + +SELECT &DEST +SET ORDER TO +ON ERROR APPE BLAN +GOTO 1 +*BROWSE TITLE 'DEST' +IF FLOCK() + RECALL ALL + + SELECT &sursa + SET ORDER TO +*BROWSE TITLE 'SURSA' + SCAN + R=RECNO() + SCATTER MEMV + SELECT &DEST +*SKIP +*!* If Eof() +*!* Append Blank +*!* ELSE + ON ERROR APPE BLAN + GOTO R +*!* ENDIF + GATHER MEMV + SELECT &sursa + ENDSCAN + + SELECT &DEST + R=RECNO() + DELETE FOR RECNO()>R + +ENDIF +UNLOCK IN &DEST + +RETURN + + + + +*-------------------------------------------------------------------------------------------------------------- +FUNCTION se_reface +LOCAL SE,PRIMALUNA,ACTGOL +SE=.T. +STORE .F. TO PRIMALUNA,ACTGOL + +&&E PRIMA LUNA? +SELECT calendar +GO TOP +IF an=M.an AND nl=M.nl + PRIMALUNA=.T. +ENDIF +SELECT * FROM act INTO CURSOR bbb +IF _TALLY<3 + ACTGOL=.T. +ENDIF + +buton=1 +IF PRIMALUNA AND !ACTGOL + OTM=CREA('TEXTMARER') + OTM.label2.CAPTION='Aceasta este prima luna deschisa. Prin refacere se sterg toate acele date de initializare inscrise'+; + ' manual direct in fisiere si carora nu le corespund inregistrari in registrul jurnal. Doriti ca totusi sa execute refacerea?' + OTM.SHOW(1) + IF buton=2 + RETURN .F. + ENDIF +ENDIF + +SE=!(PRIMALUNA AND ACTGOL) +IF !SE + DO mesaj WITH 'Aceasta este prima luna iar registrul jurnal este gol.','Refacerea nu se executa!' +ENDIF +RETURN SE + + + + + + +*_________________________________________ +PROCEDURE REFcredlun +LOCAL nla,nlb,ana,anb,cond,cond1 + +IF !se_reface() + RETURN +ENDIF + + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF + SELE act + ENDDO + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN deblun +SELE deblun +SET FILTER TO +RETURN + + +*---------------------------------------------------------------------------------------------- +PROCEDURE refchavans +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "471" IN actualizare_act.PRG + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF +* SET FILTER TO ACHITAT=0 + SELE act + ENDDO + +ENDIF + +UNLOCK IN vanzlu4118 +SELE vanzlu4118 +SET FILTER TO +SELECT act +SET FILTER TO +RETURN + + + +*_______________________________________ +PROCEDURE CALCULEAZABALANTA +SELECT BAL +IF FLOCK() + REPLACE ALL totdeb WITH RULDEB+precdeb; + totcred WITH RULCRED+preccred +ENDIF +UNLOCK +SCAN + IF FLOCK() + IF totdeb-totcred>0 + REPLACE SOLDDEB WITH totdeb-totcred; + SOLDCRED WITH 0 + ELSE + REPLACE SOLDCRED WITH totcred-totdeb; + SOLDDEB WITH 0 + ENDIF + ENDIF + UNLOCK +ENDSCAN +RETURN + +*_________________________________________ + +PROCEDURE RefAna418 +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\ANA418.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'ANA418.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\ANA418.DBF IN 0 ALIAS ANA418U + +SELECT ANA418U + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('ANA418u.totdeb') = 'U' + SELECT NUME,COD_FISCAL, productie AS precdeb,incasat AS preccred FROM ANA418U INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + productie, totcred WITH preccred + incasat, totvaldeb WITH precvaldeb + prodval, totvalcre WITH precvalcre + incasval +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('ANA418u.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(PRECdeb + productie) AS precdeb, SUM(preccred + incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM ANA418U INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(PRECdeb + productie) AS precdeb, SUM(preccred + incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM ANA418U INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN ANA418U + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '418', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '418', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '418', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '418', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '418', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('418',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t418 GROUP BY 1, 2, 3 + +SELECT t418 +SCAN + SCATTER NAME o418 + SELECT rcli + SEEK LEFT(o418.NUME,30) + o418.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o418.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o418.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o418.acont + ELSE + APPEND BLANK + GATHER NAME o418 + ENDIF + ENDIF + REPLACE productie WITH productie + o418.debit, incasat WITH incasat + o418.credit, prodval WITH prodval + o418.valdebit, incasval WITH incasval + o418.valcredit + + SELECT t418 +ENDSCAN +RELEASE o418 +USE IN t418 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb+prodval,totvalcre WITH precvalcre+incasval &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT ANA418 +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT ANA418 +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ +PROCEDURE RefFact418 +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "418" IN actualizare_act.PRG + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF +* SET FILTER TO ACHITAT=0 + SELE act + ENDDO + +ENDIF +UNLOCK IN Fact418 +SELECT act +SET FILTER TO +SELE Fact418 +SET FILTER TO +RETURN + + +*---------------------------------------------------------------------------------------------- +PROCEDURE REFVNAvans && refVENITavans +LOCAL nla,ana,anb,cond,cond1,dateA +*Store 0 To M.SUMA_2, M.achitatval,M.SUMA,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + REPLACE nume_4 WITH m.EXPLICATIA + ENDIF + SELE act + ENDDO + + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN ACHILUN +SELE ACHILUN +SET FILTER TO +RETURN + +*___________________________________________________________________________ + +PROCEDURE REFdividende +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\dividende.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'dividende.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\dividende.DBF IN 0 ALIAS dividendeU + +SELECT dividendeU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('dividendeu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, LUAT AS precdeb, DAT AS preccred FROM dividendeU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('dividendeu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM dividendeU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM dividendeU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN dividendeU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '457', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '457', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '457', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '457', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '457', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('457',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t457 GROUP BY 1, 2, 3 + +SELECT t457 +SCAN + SCATTER NAME o457 + SELECT rcli + SEEK LEFT(o457.NUME,30) + o457.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o457.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o457.debit, credit WITH credit + o457.credit, valdebit WITH valdebit + o457.valdebit, valcredit WITH valcredit + o457.valcredit + ELSE + SEEK LEFT(o457.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o457.acont + REPLACE debit WITH debit + o457.debit, credit WITH credit + o457.credit, valdebit WITH valdebit + o457.valdebit, valcredit WITH valcredit + o457.valcredit + ELSE + APPEND BLANK + GATHER NAME o457 + ENDIF + ENDIF + + SELECT t457 +ENDSCAN +RELEASE o457 +USE IN t457 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT dividende +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT dividende +SET ORDER TO TAG NANA +RETURN + +*_________________________________________ + +PROCEDURE refdivLUN +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + REPLACE nume_4 WITH m.EXPLICATIA + ENDIF + SELE act + ENDDO + + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN divLUN +SELE divLUN +SET FILTER TO +RETURN + +*________________________________________________________ + +PROCEDURE REFActionar +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\ACTIONAR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'ACTIONAR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\ACTIONAR.DBF IN 0 ALIAS ACTIONARU + +SELECT ACTIONARU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('ACTIONARu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, DAT AS precdeb, LUAT AS preccred FROM ACTIONARU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('ACTIONARu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM ACTIONARU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM ACTIONARU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN ACTIONARU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '455', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '455', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '455', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '455', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '455', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('455',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t455 GROUP BY 1, 2, 3 + +SELECT t455 +SCAN + SCATTER NAME o455 + SELECT rcli + SEEK LEFT(o455.NUME,30) + o455.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o455.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o455.debit, credit WITH credit + o455.credit, valdebit WITH valdebit + o455.valdebit, valcredit WITH valcredit + o455.valcredit + ELSE + SEEK LEFT(o455.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o455.acont + REPLACE debit WITH debit + o455.debit, credit WITH credit + o455.credit, valdebit WITH valdebit + o455.valdebit, valcredit WITH valcredit + o455.valcredit + ELSE + APPEND BLANK + GATHER NAME o455 + ENDIF + ENDIF + + SELECT t455 +ENDSCAN +RELEASE o455 +USE IN t455 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT ACTIONAR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT ACTIONAR +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ + +PROCEDURE ref_balanta_partener +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SET SAFETY OFF +COPY FILE &dirgen\_alfa\an0000\date00\balanta_partener.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'balanta_partener.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\balanta_partener.DBF IN 0 ALIAS balanta_partenerU + +SELECT balanta_partenerU +SELECT * FROM balanta_partenerU WHERE CONT = loCont.CONT INTO CURSOR balanta_partenerA READWRITE +USE IN balanta_partenerU + +SELECT balanta_partenerA +REPLACE ALL precdeb WITH precdeb + debit, preccred WITH preccred + credit, ; +precvaldeb WITH precvaldeb + valdebit, precvalcre WITH precvalcre + valcredit + +REPLACE ALL debit WITH 0, credit WITH 0, valdebit WITH 0, valcredit WITH 0 + +*!* SELECT SUM(IIF(SCD = loCont.CONT, SUMA, 0)) AS debit, SUM(IIF(SCC = loCont.CONT, SUMA, 0)) AS credit, ; +*!* SUM(IIF(SCD = loCont.CONT, SUMA_2, 0)) AS VALDEBIT, SUM(IIF(SCC = loCont.CONT, SUMA_2, 0)) AS VALCREDIT, ; +*!* id_partd, id_partc, IIF(SCD = loCont.CONT, ASCD, IIF(SCC = loCont.CONT, ASCC, '')) AS acont ; +*!* FROM ACT ; +*!* WHERE (!EMPTY(id_partd) OR !EMPTY(id_partc)) AND INLIST(loCont.CONT,SCD,SCC) ; +*!* INTO CURSOR tact ; +*!* GROUP BY id_part, acont + +SELECT SUM(suma) AS debit, SUM(suma_2) AS valdebit, id_partd, ASCD ; +FROM act ; +WHERE !EMPTY(id_partd) AND scd = loCont.CONT ; +INTO CURSOR tactd ; +GROUP BY id_partd, ASCD + +&&& debit +SELECT tactd +SCAN + SCATTER NAME oact + SELECT balanta_partenerA + LOCATE FOR IDpart = oact.id_partd AND CONT = loCont.CONT AND acont = oact.ASCD + IF FLOCK() + IF !FOUND() + APPEND BLANK + GATHER NAME oact + REPLACE IDpart WITH oact.id_partd, CONT WITH loCont.CONT, acont WITH oact.ASCD + ELSE + REPLACE debit WITH debit + oact.debit, ; + valdebit WITH valdebit + oact.valdebit + ENDIF + + ENDIF + UNLOCK + SELECT tactd +ENDSCAN +RELEASE oact +USE IN tactd + +&&& credit +SELECT SUM(suma) AS credit, SUM(suma_2) AS valcredit, id_partc, ASCC ; +FROM act ; +WHERE !EMPTY(id_partc) AND scc = loCont.CONT ; +INTO CURSOR tactc ; +GROUP BY id_partc, ASCC + +SELECT tactc +SCAN + SCATTER NAME oact + SELECT balanta_partenerA + LOCATE FOR IDpart = oact.id_partc AND CONT = loCont.CONT AND acont = oact.ASCC + IF FLOCK() + IF !FOUND() + APPEND BLANK + GATHER NAME oact + REPLACE IDpart WITH oact.id_partc, CONT WITH loCont.CONT, acont WITH oact.ASCC + ELSE + REPLACE credit WITH credit + oact.credit, ; + valcredit WITH valcredit + oact.valcredit + ENDIF + ENDIF + UNLOCK + SELECT tactc +ENDSCAN +RELEASE oact +USE IN tactc + +SELECT balanta_partenerA +REPLACE ALL totdeb WITH precdeb + debit, totvaldeb WITH precvaldeb + valdebit +REPLACE ALL totcred WITH preccred + credit, totvalcre WITH precvalcre + valcredit + +SELECT balanta_partener +SET FILTER TO +IF FLOCK() + DELETE ALL FOR CONT = loCont.CONT + APPEND FROM DBF('balanta_partenerA') +ENDIF +UNLOCK + + +USE IN balanta_partenerA + +ENDPROC && ref_balanta_partener diff --git a/Programe/roadef.prg b/Programe/roadef.prg new file mode 100644 index 0000000..2d12823 --- /dev/null +++ b/Programe/roadef.prg @@ -0,0 +1,981 @@ +*!* 17.03.2011 +*!* marius.mutu +*!* nu se mai verifica seria hdd + +Parameters tparam + +Local lchost, lcUserName, lcPassword, lnIdUtil, lnIdProgram, lcUserNameApp,lcPasswordApp +Store '' To lchost, lcUserName, lcPassword, lcUserNameApp,lcPasswordApp +Store 0 To lnIdUtil, lnIdProgram +Private gcNumeProgram +gcNumeProgram=[ROADEF] +If !Like(gcNumeProgram + '*', Upper(Alltrim(Juststem(Sys(16,0))))) + Messagebox("Nu puteti porni acest program!",0+16,"Atentie") + Return +Endif +_Screen.Icon=gcNumeProgram + [.ICO] + +Set Century On +Set Deleted On +Set Date To Dmy +Set Exclusive Off +Set Cpdialog Off +Set Talk Off +Set Safety Off +Set Escape Off +Set Exact On +Set Mark To '/' +Set Ansi On +Set Console Off +Set Notify Off +Set Seconds Off +Set NullDisplay To '' +Set Decimals To 4 +_Screen.Visible=.F. +_Screen.AutoCenter=.T. + + + +*VARIABILE_______ +Local lcMainClassLib +Local lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown + + +*VARIABILE__________________________________________________________________________ +Declare nror[65000] +Declare RTVA[22,2] + +Public CRLF,CR,LF,Tab +Store Chr(13) + Chr(10) To CRLF +Public pcNl,pcAn +Store "" To pcNl,pcAn && se initializeaza in start00 +CR=Chr(13) +LF=Chr(10) +Tab=Chr(9) + +Public pcTitlu,pl_verificat,gnid_prg_owner +Store "" To pcTitlu +Store .F. To pl_verificat +Public BUTON, luna_inchisa, luna_neplatita, PRIMADATA, m.ctva, m.ctvam, m.ctvai, antet, m.nivel +Public OStart,OSETVIZ,OSETTULBAR,OSETINSTRUM,orm,OTEXT,OJUR,osetgest,tlbr_INSTR,tlbr_VIZ,oprinc,DIRGEN +Public pcapsocsub,pcapsocvar +pcapsocsub=0 +pcapsocvar=0 +Public a4 +a4=.T. +m.nrgrup=999 + +Store .F. To luna_inchisa,tlbr_INSTRum,tlbr_VIZ +Store 1 To BUTON,col_menu +Store .T. To PRIMADATA,luna_neplatita + + +*** DECLARATII DE VARIABILE PUBLICE + +********************************************************************************************** +*-- Save and configure environment.*********************** +lcLastSetTalk=Set("TALK") +Set Talk Off +lcLastSetPath=Set("PATH") + +Public gcAppPath,gcAppName,gcTempPath, gcCaleServerDate, gcUserNameApp, gcPasswordApp,gcDirMare +Store '' To gcUserNameApp, gcPasswordApp, gnNivelUtilizator, gnGrupUtilizator, gcAcces,gcDirMare +*!* PUBLIC gcSchemaPath +*!* STORE '' TO gcSchemaPath + +Set Procedure To "D:\ROA\ROADEF\COMUN\UTILE\web\WWUTILS.PRG" Additive +Set Procedure To "D:\ROA\ROADEF\COMUN\UTILE\web\WWAPI.PRG" Additive + +gcAppPath = Addbs(ShortPath(GetAppStartPath())) +If Right(gcAppPath ,9)="PROGRAME\" + gcAppPath = Substr(gcAppPath ,1,Len(gcAppPath )-9) +Endif +gcAppName=Allt(Uppe(Juststem(Sys(16,0)))) + +*!* gcAppDataPath=gcAppPath+"Date_"+gcAppName+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI +gcUtilizatoriPath = gcAppPath + "UTILIZATORI\" +liat=Rat("\",gcAppPath,2) +gcDirMare=Addbs(Left(gcAppPath,liat-1)) +dirgen = gcDirMare + +Store "" To gcTempPath, gcCaleServerDate + +Set Default To (gcAppPath) +lcPath = gcAppPath + 'Date;' + ; + gcAppPath + 'Include;' + ; + gcAppPath + 'FERESTRE;' + ; + gcAppPath + 'GRAFICE;' + ; + gcAppPath + 'CLASE;' + ; + gcAppPath + 'MENIURI;' + ; + gcAppPath + 'PROGRAME;' + ; + gcAppPath + 'RAPOARTE;' + ; + gcAppPath + 'COMUN\CLASE;' + ; + gcAppPath + 'COMUN\FERESTRE;' + ; + gcAppPath + 'COMUN\PROGRAME;' + ; + gcAppPath + 'COMUN\GRAFICE;' + ; + gcAppPath + 'COMUN\RAPOARTE;' + ; + gcAppPath + 'COMUN\UTILE\CTL32;' + ; + gcAppPath + 'COMUN\UTILE\HPDF;' + ; + gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ; + gcAppPath + 'COMUN\UTILE\WEB;' + ; + gcAppPath + 'COMUN\UTILE\NFJSON;' + ; + Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] + +*!*Set Path To Date;Include;FERESTRE;GRAFICE;Help;CLASE;MENIURI;PROGRAME;RAPOARTE;PROGS;LIBS + +Set Path To &lcPath Additive + +Push Menu _Msysmenu +lcLastSetClassLib=Set("CLASSLIB") +lcMainClassLib = gcAppPath + "clase\ofundal_sal" + +*CLASE__________________________________________________________ +Set Classlib To (lcMainClassLib) Additive +*!* SET CLASSLIB TO baza ADDITIVE +*!* SET CLASSLIB TO ferestrebaza ADDITIVE +Set Classlib To CAUT Additive +Set Classlib To ooptiuni Additive +*!* SET CLASSLIB TO oteste ADDITIVE +*!* SET CLASSLIB TO ovanzcump ADDITIVE +*!* SET CLASSLIB TO oparteneri ADDITIVE +Set Classlib To ferestre_cere_date Additive +Set Classlib To oblocare Additive +*!* SET CLASSLIB TO overificari ADDITIVE +*!* SET CLASSLIB TO FERESTREBAZA ADDITIVE +*!* SET CLASSLIB TO CONT ADDITIVE +Set Classlib To registry Additive +*!* SET CLASSLIB TO odevize ADDITIVE +Set Classlib To decabaza Additive +Set Classlib To onomenclatoare Additive +*!* SET CLASSLIB TO onom_devize ADDITIVE +Set Classlib To onom_sal Additive +Set Classlib To cauta_alfa_forms Additive +*!* SET CLASSLIB TO ointroduceri additive +Set Classlib To ferestre_oracle Additive +Set Classlib To caut_ora Additive +Set Classlib To otoolbar Additive +*!* 19.07.2006 +*!* MARIUS MUTU +Set Classlib To Messagebox Additive +Set Classlib To opersonal Additive +Set Classlib To oasociere Additive +Set Classlib To ofirma Additive +Set Classlib To ferestre_roadef Additive +*!* 21.04.2009 +*!* alex.lepadatu +Set Classlib To oconfigurare_seturi.vcx ADDITIVE +*!* v 2.0.16 +SET CLASSLIB TO wwdialogs.vcx additive +*!* v 2.0.16 ^ +SET CLASSLIB TO overificari.vcx additive && v 2.0.25 +set classlib to comun.vcx additive && v 2.1.0 +SET CLASSLIB TO appwiz.vcx additive && v 2.1.2 +SET CLASSLIB TO accessibility.vcx additive && v 2.1.2 +*PROCEDURI______________________________________________________ +*Set Procedure To acces_meniu2 Additive +Set Procedure To acces_meniu Additive +Set Procedure To ooperatii_comune Additive +Set Procedure To quitapp Additive +Set Procedure To init_program Additive +Set Procedure To proceduri_comune Additive +Set Procedure To oproceduri_comune Additive +Set Procedure To gencursor.prg Additive +Set Procedure To updateserver.prg Additive +Set Procedure To oproceduri_maintenance.prg Additive +Set Procedure To onomenclatoare Additive +Set Procedure To oproceduri_ams Additive +Set Procedure To ocautare Additive +Set Procedure To oproceduri_roadef_sal Additive +Set Procedure To oinit_optiuni Additive +Set Procedure To osecurity Additive +Set Procedure To oproceduri_roadef Additive +*!* 16.06.2006 +*!* marius.mutu +Set Procedure To wwcodeupdate.prg Additive +Set Procedure To wwxmlhttp.prg Additive +Set Procedure To ini.prg Additive +Set Procedure To osalarii_comun.prg Additive + +Set Procedure To wwutils.prg Additive + +Set Procedure To proceduri_Excel.prg Additive +Set Procedure To cauta_alfa.prg Additive +*!* 21.04.2009 +*!* alex.lepadatu +Set Procedure To oproceduri_app.prg Additive +*!* v 2.0.16 +SET PROCEDURE TO iniacces.prg ADDITIVE +SET PROCEDURE TO oupdate.prg additive +SET PROCEDURE TO procese.prg additive +SET PROCEDURE TO version.prg additive +SET PROCEDURE TO xmlaccess.prg additive +SET PROCEDURE TO xmlparser.prg additive +SET PROCEDURE TO filebringer.prg additive +SET PROCEDURE TO wwcodeupdate.prg additive +SET PROCEDURE TO wwhttp.prg ADDITIVE +Set Procedure To wwApi.prg Additive +Set Procedure To validare.prg Additive +SET PROCEDURE TO nfjsonread.prg ADDITIVE + +Declare Integer GetPrivateProfileString In Kernel32 ; + string, String, String, String @, Integer, String +Declare Integer WritePrivateProfileString In Kernel32 ; + string, String, String, String +Declare Integer CopyFile In kernel32; + STRING lpExistingFileName,; + STRING lpNewFileName,; + INTEGER bFailIfExists +Declare Integer URLDownloadToFile In urlmon.Dll; + INTEGER pCaller, String szURL, String szFileName,; + INTEGER dwReserved, Integer lpfnCB +Declare Integer PathFileExists In shlwapi; + STRING pszPath +*!* v 2.0.16 ^ +*---------------------------------------------------------------------------- +If Pcount() = 1 And Type('tparam') = 'C' + glParametri = .T. + Private laParametri + Declare laParametri[1] + lcParam = Alltrim(tparam) + lnNr = lista2array(lcParam,@laParametri,";") + If lnNr < 5 + Messagebox('Numar incorect de parametri',0+16,'Eroare') + Return + Endif + lchost = laParametri[1] + lcUserName = laParametri[2] + lcPassword = laParametri[3] + lnIdUtil = Round(Val(laParametri[4]),0) + lnIdProgram = Round(Val(laParametri[5]),0) +Else + glParametri = .F. + lchost = 'JCSSERVER' + lcUserName = 'CONTAFIN_ORACLE' + lcPassword = '' + lnIdUtil = 0 + lnIdProgram = 0 + +Endif + + +*------------------------------------- +Public glVerificTabel && daca se verifica structura tabelelor in totv.prg +glVerificTabel=.T. + +Public glQuit +glQuit = .F. + +Public gnIdIstoric +gnIdIstoric = 0 + + + + + +Private gcGeneralIniFile, gcSettingsFile +gcGeneralIniFile = m.gcDirMare + "settings.ini" +gcSettingsFile = m.gcGeneralIniFile +If !File(gcGeneralIniFile) + + TEXT TO lcSettings NOSHOW +[errors] +host=http://83.103.197.79:3000/errors/create_xml + ENDTEXT + + Strtofile(lcSettings, gcGeneralIniFile) +Endif + + +gcSecurityPath = DIRGEN + 'Security\' +gcSecurityFile = gcSecurityPath + 'ROA_SECURITY.TXT' + +*** Tin conexiunea deschisa. La wert??? apare eroarea odbc "timeout occured" daca se lasa peste 1 minut programul fara sa se lucreze +LOCAL lcKeepAlive, lnKeepAlive +PRIVATE goKeepAlive +lcKeepAlive = NVL(getini(m.gcGeneralIniFile,'update','keepalive_seconds'), '') +lnKeepAlive = 0 +IF EMPTY(m.lcKeepAlive) + setini(m.gcGeneralIniFile,'update','keepalive_seconds', '0') + lnKeepAlive = 0 +ELSE + lnKeepAlive = VAL(m.lcKeepAlive) +ENDIF +IF m.lnKeepAlive >= 5 && minim 5 secunde + goKeepAlive = NEWOBJECT("keepalive","utility.vcx") + goKeepAlive.interval = m.lnKeepAlive * 1000 + goKeepAlive.enabled = .T. +ENDIF + + +Private poLog,goLog && obiect pt logarea mesajelor sistemului +poLog = Newobject("Log_Mesaje","Log_Mesaje.prg") +goLog = poLog + +*!* public poLog && obiect pt logarea mesajelor sistemului +*!* poLog = NEWOBJECT("Log_Mesaje","Log_Mesaje.prg") + + +Public glQuit +glQuit = .F. + +*!* modificare v 2.1.2 +*!* Public gnIdIstoric +*!* gnIdIstoric = 0 +*!* If verificari() +*!* _Screen.Visible=.T. +*!* Do mesaj With "Se fac verificari programului","Va rugam reveniti" +*!* glQuit= .T. +*!* Quit +*!* Endif +*!* If !Debug_Start() +*!* lcParam=tparam +*!* If Empty(tparam) Or (Type('tParam')='C' And !verific_start(tparam,DIRGEN,gcAppName)) +*!* _Screen.Visible=.T. +*!* Do mesaj With "Programul trebuie pornit doar din START","" +*!* Quit +*!* Endif +*!* Endif +*!* modificare v 2.1.2 ^ +*** verificare serie permanenta +*!* Public tipar,SER_PERM,SER_PERI,VERSIUNE +*!* Store .F. To SER_PERM,SER_PERI + + +***************************** VARIABILE ORACLE +Private goUtilizator +Private gnHandle,gnidutil,GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA,GNDIFZILE, gcUserNameApp, gcPasswordApp +Private gnButon && variabila pentru renunt si terminat +Store 2 To gnButon +Store '' To GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA, gcUserNameApp, gcPasswordApp, gcNivelUtilizator, gcGrupUtilizator, gcAcces +gnHandle = -1 +gnidutil = 0 + +Private gcHost, gcUserName, gcPassword,gofundal, gnIdProgram +gnIdProgram = 0 +gofundal='' + +Private goFirma,gnIdFirma,gcFirma,gnAn,gnLuna && ,gnPA,gnPC +&& STORE 0 TO gnPA,gnPC && nr. de zecimale afisare, calcul +Store Null To goFirma +Store 0 To gnIdFirma,gnAn,gnLuna +Store '' To gcFirma + +Private glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +Store .F. To glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +***toolbar*** +Private otool,ohelp +Store '' To otool,ohelp + + +Private gcS && schema firmei +Store 'DEMO' To gcS + +If Type('laparametri',1)="A" + If Alen(laParametri,1)=10 + gnAn = Val(laParametri[7]) + gnLuna = Val(laParametri[8]) &&lansare noua + gcS = laParametri[9] + gnIdFirma = Val(laParametri[10]) + Endif +Endif + +&& obiect global wrap pt sqlexec cu text eroare si succes +Private goExecutor +goExecutor = Createobject("oExecutor") + +&& obiect global wrap pentru sqlconnect, sqldisconnect; apeleaza proceduri postconectare pentru setare variabile sesiune +Private goConn +goConn = Createobject("oConn") + +Private goMyXMLHTTP +lcHostErrors = getini(gcGeneralIniFile,'errors','host') +goMyXMLHTTP = Createobject("MyXMLHTTP", lcHostErrors) + +&& obiect global pt luna aleasa din calendar +Private goCalendar +Store Null To goCalendar + +gcHost = lchost +gcUserName = lcUserName +gcPassword = lcPassword +gcUserNameApp = lcUserNameApp +gcPasswordApp = lcPasswordApp +gnidutil = lnIdUtil +gnIdProgram = lnIdProgram + + +If !glParametri + lnValid = getcrsSecurity(gcSecurityFile) + If lnValid > 0 + If Used('crsHost') + Select crsHost + Go Top + gcHost = Alltrim(Host) + gcUserName = Alltrim(schema) + gcPassword = Alltrim(pwd) + Use In crsHost + Endif + Endif +Endif + +*!* IF glParametri +*!* gcHost = lcHost +*!* gcUserName = lcUserName +*!* gcPassword = lcPassword +*!* gcUserNameApp = lcUserNameApp +*!* gcPasswordApp = lcPasswordApp +*!* gnIdUtil = lnIdUtil +*!* gnIdProgram = lnIdProgram +*!* ELSE +*!* gcHost = "jcsserver" +*!* gcUserName = "contafin_ORACLE" +*!* gcPassword = "123" +*!* gcUserNameApp = '' +*!* gcPasswordApp = '' +*!* gnIdUtil = 1 +*!* gnIdProgram = 8 +*!* ENDIF +***************************** VARIABILE ORACLE + + +*!* 17.03.2011 +*!* Use &gcAppPath\SER In 0 Alias SER Shared +*!* Select SER +*!* Go Top +*!* tipar=TIP +*!* SER_PERM=SER_PERMAN +*!* SER_PERI=SER_PERIOD +*!* VERSIUNE=VERcont +*!* MODEL_PROGRAM=MODEL +*!* Use In SER +*!* parolamea=Substr(tipar,Month(Date()),1) +*!* parolamea=parolamea+Allt(Str(Day(Date())))+Allt(Str(Month(Date()))) + +*!* If !_DEBUG() +*!* If SER_PERM And !verif_ser_perm() +*!* Quit +*!* Endif +*!* Endif +*!* 17.03.2011 ^ + +Public cales,eserver,loc,numestatie +eserver=.F. +Store '' To cales,loc,numestatie + +Public NUMEPROGRAM,FUNDALPROGRAM + +NUMEPROGRAM='ROADEF' +*!* MENIUPROGRAM=gcAppPath+"meniuri\cont2000.mpr" +*!* FUNDALPROGRAM=gcAppPath+"FERESTRE\FUNDAL.scx" +_program='roadef' + + + + +lcOnShutdown="ShutDown()" +On Shutdown &lcOnShutdown +On Error ErrorHandler(Error(),Program(),Lineno()) +*!* _Shell="DO Cleanup IN progs\ROADEF" + +*-- Instantiate application object.*************************** +Release goApp +Public goApp +goApp=Createobject("cApplication") + +*-- Configure application object.***************************** +NUMEPROGRAM = 'ROA - Definirea Companiei' +Local laVersion +Dimension laVersion(12) +If Agetfileversion(laVersion, Sys(16,0)) > 0 + NUMEPROGRAM = laVersion(10) +Endif +Release laVersion + +goApp.SetCaption(NUMEPROGRAM) +goApp.cStartupMenu = gcAppPath + "meniuri\Roadef" +goApp.cStartupForm = gcAppPath + 'COMUN\ferestre\frm_login.scx' + +_Screen.WindowState=2 +*-- Show application. +goApp.Show +*-- Release application. +Release goApp + +*-- Restore default menu. +*!* Pop Menu _Msysmenu + +*-- Restore environment. +On Error +On Shutdown +If Not lcLastSetClassLib==Set("classlib") + Release Classlib (lcMainClassLib) +Endif +If Empty(lcLastSetPath) + Set Path To +Else + Set Path To &lcLastSetPath +Endif +If lcLastSetTalk=="ON" + Set Talk On +Else + Set Talk Off +Endif + +cleanup() + +Return + + + + +* FUNCTII______________________________________________________________________ +Function ErrorHandler(nError,cMethod,nLine) + Local lcErrorMsg,lcCodeLineMsg + + Wait Clear + lcErrorMsg=Message()+Chr(13)+Chr(13) + lcErrorMsg=lcErrorMsg+"Method: "+cMethod + lcCodeLineMsg=Message(1) + If Between(nLine,1,10000) And Not lcCodeLineMsg="..." + lcErrorMsg=lcErrorMsg+Chr(13)+"Line: "+Alltrim(Str(nLine)) + If Not Empty(lcCodeLineMsg) + lcErrorMsg=lcErrorMsg+Chr(13)+Chr(13)+lcCodeLineMsg + Endif + Endif + + If Type('goMyXMLHTTP') = 'O' + lcLunaHTTP = Iif(Type('gnLuna') = 'N', Transform(gnLuna) + "/","") + Iif(Type('GNAN') = 'N', Transform(gnAn),"") + lcErrorMsgHTTP = Sys(0) + ":" + Iif(Type('GCS')='C'," " + gcS,"") + ": " + lcLunaHTTP + Chr(13) +Chr(10) + lcErrorMsg + ; + CHR(13) +Chr(10) + Chr(13) + Chr(10) + GETCALLSTACK() + lcUserName = gcUserNameApp + lcProgram = Juststem(Sys(16,0)) + goMyXMLHTTP.postError(lcErrorMsgHTTP, lcUserName, lcProgram) + Endif + + If AMESSAGEBOX(lcErrorMsg,17,_Screen.Caption)#1 + If _vfp.StartMode = 0 + Set Step On + Else + Quit + Endif + Endif +Endfunc + + + +Function Shutdown +*!* =End_Istoric(gnIdIstoric, Addbs(DIRGEN)+"DATERETEA\", "START_ISTORIC") + If Type("goApp")=="O" And Not Isnull(goApp) + Return goApp.OnShutDown() + Endif +*!* modificare v 2.1.2 +*!* ON SHUTDOWN +*!* ON ERROR +*!* CLEAR EVENTS + Cleanup() + Quit +*!* modificare v 2.1.2 ^ +Endfunc + + +Function cleanup + + If Cntbar("_msysmenu")=7 + Return + Endif + On Error + On Shutdown + Set Classlib To + Set Path To + Clear All +* Close All + Pop Menu _Msysmenu + Return + + + + *----------------------------------------------------- + +Function verif_ser_perm + Clear + + Return PORNIRE() + ******** + *?pornire() + +Function PORNIRE + Set Exact On + Private calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp,ser1,ser2,key1,KEY2 + Store '' To calewin,serinreg,serdisk,calesys,serdisktemp,catehd,ser1,ser2,key1,KEY2 + Store 0 To checksum1,checksum2 + Store .T. To valret + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + #Define CSIDL_SYSTEM 37 + #Define CSIDL_PROGRAMS 38 + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + calewin=Left(lcPath,At(Chr(0),lcPath)-1) + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath) + calesys=Left(lcPath,At(Chr(0),lcPath)-1) + &&se verifica existenta celor trei fisiere + If (Not File(calesys+'\diskserial.dll')) Or (Not File(calesys+'\getmacip.dll')) Or (Not File(calewin+'\comdir.snr')) + valret=.F. + Endif + If valret + file1=Filetostr(calesys+'\diskserial.dll') + checksum1=Sys(2007,file1) + file2=Filetostr(calesys+'\getmacip.dll') + checksum2=Sys(2007,file2) + &&severifica daca dll-urile nu au fost modificate + If (Val(checksum1) != 58755) Or (Val(checksum2) != 30476) + valret=.F. + Endif + Endif + &&se citesc seriile tutturor celor patru hard disk-uri posibile(pe IDE primary master,primary slave...) + &&se tine minte primul cu seria nenula-daca nu s-a putut citi seria de la nici unul se pune o serie default + &&seria default este "NUAREHAR" + If valret + Declare Integer GetSerialNumber In diskSerial.Dll Integer ,String + catehd=0 + For i=0 To 3 + serdisktemp=Space(40) + GetSerialNumber(i,@serdisktemp) + If (Len(Alltrim(serdisktemp))!=0) And (catehd=0) + serdisktemp=sircaracter(serdisktemp) + serdisk=serdisktemp + catehd=catehd+1 + Endif + Endfor + If (Len(Alltrim(serdisk))=0) + serdisk='NUAREHAR' + Else + If ((Len(Alltrim(serdisk))>0) And (Len(Alltrim(serdisk))<8)) + serdisk=serdisk+Replicate('1',8-Len(Alltrim(serdisk))) + Endif + Endif + serdisk=Substr(Alltrim(serdisk),Len(Alltrim(serdisk))-7,8) + Endif + &&se citeste din comdir.snr seria de inregistrare si se verifica egalitatea cu seria obtinuta anterior + If valret + gnFileHandle = Fopen(calewin+'\comdir.snr') + nSize = Fseek(gnFileHandle, 0, 2) && Move pointer to EOF + If nSize!=9 + valret=.F. + Else + = Fseek(gnFileHandle, 0, 0) && Move pointer to BOF + cString = Fread(gnFileHandle,9) + ser1=Substr(cString,1,4) + ser2=Substr(cString,5,4) + key1=Substr(cString,9,1) + KEY2=DECTOBIN(Alltrim(HEXDEC(key1))) + serinreg=decodare1(Alltrim(Upper(ser1)),KEY2)+decodare1(Alltrim(Upper(ser2)),KEY2) + If serdisk!=serinreg + valret=.F. + Endif + Endif + = Fclose(gnFileHandle) + Endif + seriedisk1=serdisk + serieinreg1=serinreg + On Error valret=.F. + Return valret + ************* +Function decodare1 + Parameters lstring,CHEIE + Local lens,poz1,poz2,POZ3,lret,LRET2,lcstring,val1,lret1 + lret='' + lret1='' + LRET2='' + lcstring=Alltrim(Upper(lstring)) + lens=Len(lcstring) + For i=1 To 4 + poz1=Substr(lcstring,i,1) + val1=Asc(poz1) + POZ3=Substr(CHEIE,i,1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+Int(Val(POZ3)))<=10 + poz2=Chr(val1+Int(Val(POZ3))) + Else + poz2=Chr(val1+Int(Val(POZ3))-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*Int(Val(POZ3)))<=26 + poz2=Chr(val1+2*Int(Val(POZ3))) + Else + poz2=Chr(val1+2*Int(Val(POZ3))-26) + Endif + Endcase + LRET2=LRET2+poz2 + Endfor + For i=1 To lens + poz1=Substr(LRET2,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+i)<=10 + poz2=Chr(val1+i) + Else + poz2=Chr(val1+i-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*i)<=26 + poz2=Chr(val1+2*i) + Else + poz2=Chr(val1+2*i-26) + Endif + Endcase + lret=lret+poz2 + Endfor + lens=Len(lret) + For i=1 To lens + poz1=Substr(lret,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + poz2=Chr(val1+17)&& din 0-9 in A-J + Case val1>=65 And val1<=74 + poz2=Chr(val1-17)&& din A-J in 0-9 + Case val1>=75 And val1<=82 + poz2=Chr(val1+8)&&din K-R in S-Z + Case val1>=83 And val1<=90 + poz2=Chr(val1-8)&&din S-Z in K-R + Endcase + lret1=lret1+poz2 + Endfor + Return lret1 + *********** + &&transformarea in decimal a unui caracter hexa +Function HEXDEC + Lparameters LC + Local LV + Do Case + Case LC=='0' + LV='0' + Case LC=='1' + LV='1' + Case LC=='2' + LV='2' + Case LC=='3' + LV='3' + Case LC=='4' + LV='4' + Case LC=='5' + LV='5' + Case LC=='6' + LV='6' + Case LC=='7' + LV='7' + Case LC=='8' + LV='8' + Case LC=='9' + LV='9' + Case LC=='A' + LV='10' + Case LC=='B' + LV='11' + Case LC=='C' + LV='12' + Case LC=='D' + LV='13' + Case LC=='E' + LV='14' + Case LC=='F' + LV='15' + Endcase + Return LV + **************** + &&codarea binara din hexa pe patru biti +Function DECTOBIN + Parameters sc + Local lretf + Do Case + Case sc=='0' + lretf='0000' + Case sc=='1' + lretf='0001' + Case sc=='2' + lretf='0010' + Case sc=='3' + lretf='0011' + Case sc=='4' + lretf='0100' + Case sc=='5' + lretf='0101' + Case sc=='6' + lretf='0110' + Case sc=='7' + lretf='0111' + Case sc=='8' + lretf='1000' + Case sc=='9' + lretf='1001' + Case sc=='10' + lretf='1010' + Case sc=='11' + lretf='1011' + Case sc=='12' + lretf='1100' + Case sc=='13' + lretf='1101' + Case sc=='14' + lretf='1110' + Case sc=='15' + lretf='1111' + Endcase + Return lretf + *********** +Function ECARACTER + Parameters strg1 + Private pz,ch,lcstring,vret,lg1 + Store 0 To pz,lg1 + Store '' To ch,lcstring + Store .T. To vret + lcstring=Upper(strg1) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If (Not Between(Asc(ch),48,57)) And (Not Between(Asc(ch),65,90)) + vret=.F. + Exit + Endif + Endfor + Return vret + ************ +Function sircaracter + Parameters strg1 + Private pz,ch,lcstring,vret,lg1,lciesire + Store 0 To pz,lg1 + Store '' To ch,lcstring,lciesire + Store .T. To vret + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul ' + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul " + lcstring=Upper(Alltrim(strg1)) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If Between(Asc(ch),48,57) Or Between(Asc(ch),65,90) + lciesire=lciesire+ch + Endif + Endfor + Return lciesire + + + + ***------------------------------------- +Procedure _DEBUG + + Private lcret,lcfisier,lcPath,lccalewin + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + + + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + lccalewin=Left(lcPath,At(Chr(0),lcPath)-1) + + lcret=.F. + lcfisier=Addbs(lccalewin)+[DEBUG.TXT] + + lcLog = '1 ' + lcfisier + poLog.Log(lcLog,Program()) + + If File(lcfisier) + LCVAL=Filetostr(lcfisier) + + LNVAL1=Mod(Val(Right(LCVAL,1)),2) && restul 1 sau 0; daca e impar e 1 + lnval2=Val(Left(LCVAL,Len(LCVAL)-1)) + + lcLog = Transform(LNVAL1) + ' ' + Transform(lnval2) + poLog.Log(lcLog,Program()) + + If LNVAL1=1 Or Year(Date())-Month(Date())=lnval2 + lcret=.T. + Endif + Endif + + lcLog = Transform(lcret) + poLog.Log(lcLog,Program()) + + Return lcret + +Endproc + + +Function Start_Nou + *!* llExista_Branch = Exista_Branch(,,dirgen) + + *!* lcLog = TRANSFORM(llExista_Branch) + *!* poLog.log(lcLog,PROGRAM()) + Return Exista_Branch(,,DIRGEN) + Return llExista_Branch + +Endfunc && start_nou + +Procedure Debug_Start + + lcFile = gcAppPath + "debug.txt" + If File(lcFile) + lcLog = 'debug_start' + poLog.Log(lcLog,Program()) + Else + lcLog = '!debug_start' + poLog.Log(lcLog,Program()) + Endif + + If File(lcFile) Or !Start_Nou() + Return .T. + Endif + Return .F. + +Endproc && Debug_Start +************************************************************************ +Procedure verificari + Parameters tcFisierVerif + + lcverificari = Addbs(gcAppPath)+gcAppName+".txt" + + + If File(lcverificari) + Return .T. + Endif + Return .F. + +Endproc && verificari*************** + +Procedure myinstance + Parameters myApp + =Ddesetoption("SAFETY",.F.) + ichannel = Ddeinitiate(myApp,"ZOOM") + If ichannel =>0 + =Ddeterminate(ichannel) + Quit + Endif + =Ddesetservice(myApp,"define") + =Ddesetservice(myApp,"execute") + =Ddesettopic(myApp,"","ddezoom") + Return + ****************************************** +Procedure ddezoom + Parameter ichannel,saction,sitem,sdata,sformat,istatus + Zoom Window Screen Norm + Return + ********************************************************** + ** EOF + ********************************************************** diff --git a/Programe/shutdown.prg b/Programe/shutdown.prg new file mode 100644 index 0000000..91623e3 --- /dev/null +++ b/Programe/shutdown.prg @@ -0,0 +1,3 @@ +IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) + RETURN goApp.OnShutDown() +ENDIF diff --git a/Programe/update_nomenclator.prg b/Programe/update_nomenclator.prg new file mode 100644 index 0000000..39425ab --- /dev/null +++ b/Programe/update_nomenclator.prg @@ -0,0 +1,20 @@ +********************************************************** +PROCEDURE update_nomenclator + + *** tabele meniu deschise din proiect + LOCAL lcCaleDateMenu + + lcCaleDateMenu=gcAppPath+[DATEMENU\] + + + IF !USED('INFISIERE') + USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE + ENDIF + + IF !USED('refaceri') + USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri + ENDIF + + CREATE CURSOR dual (dummy c(10)) + INSERT INTO dual (dummy) VALUES ("") +ENDPROC && update_nomenclator \ No newline at end of file diff --git a/Programe/update_roadef_sal.prg b/Programe/update_roadef_sal.prg new file mode 100644 index 0000000..d3bcb68 --- /dev/null +++ b/Programe/update_roadef_sal.prg @@ -0,0 +1,119 @@ + +******************************************* +* PROCEDURE update_responsabil( ) +* Date : 05/23/05, 12:25:08 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_responsabil( ) +If Used('v_resp') + Use In v_resp +Endif + +lcSql = [select * from ] + gcS + [.sal_responsabil where ales = 1 and sters = 0] +lcCursor = [v_resp] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +ENDPROC +*----------------------------------sfarsit procedura update_responsabil---------------------------------- + +******************************************* +* PROCEDURE update_sectie( ) +* Data/ora : 12/16/04, 14:26:22 +* autor : liana.macinic +* descriere: + +****** PARAMETER BLOCK ************** +* Parametri : 0 +* +******************************************* +Procedure update_sectie( ) +If Used('v_sectie') + Use In v_sectie +Endif + +lcSql = [select * from ] + gcS + [.vnom_sectii order by sectie]&& where inactiv = 0] +lcCursor = [v_sectie] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +Endproc +******************************************* +* PROCEDURE update_transe( ) +* Date : 05/26/05, 16:25:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_transe( ) +If Used('v_transe') + Use In v_sectie +Endif + +lcSql = [select * from ] + gcS + [.SAL_NOM_TRANSE where inactiv = 0 and sters = 0] +lcCursor = [v_transe] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_transa---------------------------------- +******************************************* +* PROCEDURE update_ore( ) +* Date : 05/26/05, 16:25:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_ore( ) +If Used('v_nomore') + Use In v_nomore +Endif + +lcSql = [select * from ] + gcS + [.SAL_NOMORE where inactiv = 0 and sters = 0] +lcCursor = [v_nomore] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_ore---------------------------------- +******************************************* +* PROCEDURE update_calcdin( ) +* Date : 06/17/05, 12:52:29 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_calcdin( ) +If Used('v_calcdin') + Use In v_calcdin +Endif + +lcSql = [select id_calcdin,camp,denumire as nume_camp,tabel from ] + gcS + [.sal_nom_calcdin where 2=2] +lcCursor = [v_calcdin] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_calcdin---------------------------------- \ No newline at end of file diff --git a/Programe/verifica.prg b/Programe/verifica.prg new file mode 100644 index 0000000..080865f --- /dev/null +++ b/Programe/verifica.prg @@ -0,0 +1,1486 @@ +&& ------------------------------ INCEPUT: VerFurnizor ------------------------------ +*!* Procedura: VerFurnizor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 15:18:03 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerFurnizor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta de furnizori' + + SELE FURNIZOR + SET FILTER TO + SUM PLATIT, TOTDEB, totcred TO M.PLATIT, M.TOTDEB, m.totcred + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit, TOTAVANS WITH PRECAVANS+AVANS + UNLOCK + ENDIF + SUM totcred, totdeb, totAVANS TO M.TACHIZIT, M.TPLATIT, M.TAVANS + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='401' + M.SOLD=M.SOLDCRED + SUM totdeb-totcred TO m.solddeb FOR LEFT(cont,3)='409' + + if m.tavans # m.solddeb + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta avans fata de sold debitor 409 este ' + LTRIM(STR(M.solddeb-M.TAVANS,12)), .T., llInTabel, lnId_ref + ENDIF + + m.sold=m.sold-m.solddeb + + IF M.sold # m.Tachizit-M.TPLATIT-M.TAVANS + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + '401;409 Diferenta in sold este de: '+ LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel, lnId_ref + + *'Diferenta fata de sold creditor 401-sold debitor 409 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold creditor 401-sold debitor 409.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC + +&& ------------------------------ SFARSIT: VerFurnizor ------------------------------ + +&& ------------------------------ INCEPUT: VerCumpLun ------------------------------- +*!* Procedura: VerCumpLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:38:37 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCumpLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi cumparari' + + LOCAL soldcump + SELE CUMPlun + SET FILTER TO + SUM totctva-achitat TO m.soldcump + + SELECT furnizor + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold furnizor si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente Diferenta intre sold furnizor si sold facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCumpLun ------------------------------ + +&& ------------------------------INCEPUT: Verfurniz404 ------------------------------ +*!* Procedura: Verfurniz404 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 10:08:37 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verfurniz404 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta furnizori imobilizari' + + SELE furniz404 + SET FILTER TO + SUM PLATIT,TOTDEB,totcred TO M.PLATIT,M.TOTDEB,m.totcred + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit + UNLOCK + ENDIF + SUM totcred,totdeb TO M.TACHIZIT, M.TPLATIT + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='404' + m.sold=m.soldCRED + + IF M.sold # m.Tachizit-M.TPLATIT + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 404 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 404 .', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verfurniz404 ------------------------------ + +&& ------------------------------ INCEPUT: VerCumpLun404 ------------------------------ +*!* Procedura: VerCumpLun404 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:27:19 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCumpLun404 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi cumparari 404' + + LOCAL soldcump + SELECT cumplun404 + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + SELECT furniz404 + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica de facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica de facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCumpLun404 ------------------------------ + +&& ------------------------------INCEPUT: Verana408 ------------------------------ +*!* Procedura: Verana408 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 10:21:58 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verana408 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta facturi nesosite' + + SELE ANA408 + SET FILTER TO + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit,totcred WITH preccred+achizit + UNLOCK + ENDIF + SUM totcred,totdeb TO M.TACHIZIT,M.TPLATIT + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='408' + M.SOLD=M.SOLDCRED + *!* M.SOLD=M.SOLDCRED+M.SOLD + + IF M.sold # m.Tachizit-M.TPLATIT + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 408 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 408.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verana408 ------------------------------ + +&& ------------------------------ INCEPUT: VerFact408 ------------------------------ +*!* Procedura: VerFact408 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:19:38 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerFact408 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi nesosite' + + LOCAL soldcump + SELECT FACT408 + SET FILTER TO + SUM totctva - achitat to m.soldcump + + SELECT ANA408 + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica facturi 408 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica facturi 408.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerFact408 ------------------------------ + + + + + + + + + +&& ------------------------------ INCEPUT: verClienti ------------------------------ +*!* Procedura: verClienti +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 14:46:21 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerClienti + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta de clienti' + + LOCAL M.SUM1,M.SUM2,M.SUM3,M.SUM4 + + SELECT CLIENTI + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb + PRODUCTIE, ; + totcred WITH preccred + INCASAT, ; + TOTAVANS WITH PRECAVANS + AVANS + UNLOCK + ENDIF + + SUM TOTAVANS, totcred, TOTDEB TO m.SUM1, M.SUM2, M.SUM3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='411' AND CONT<>"4118" + SUM totcred-totdeb TO M.SOLDcred FOR LEFT(CONT,3)='419' + + m.SOLD = m.SOLD + m.SOLDcred + m.SUM4 = M.SUM3-M.SUM2 + m.SUM1 + + IF M.SOLD # M.SUM4 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + '411+419 Diferenta soldului este de: '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref + + *'Diferenta fata de sold debitor 411-sold creditor 419 este ' + LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold debitor 411-sold creditor 419.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: verClienti ------------------------------ + +&& ------------------------------ INCEPUT: VerVanzLun ------------------------------ +*!* Procedura: VerVanzLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:51:07 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanzLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Facturi de vanzari' + + LOCAL soldvanz + SELECT VANZlun + SET FILTER TO + SUM totctva-achitat TO m.soldvanz + + SELECT clienti + SET FILTER TO + SUM totdeb-totcred TO m.sold + + IF m.sold <> m.soldvanz + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de clienti este ' + LTRIM(STR(m.sold - m.soldvanz, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de clienti.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanzLun ------------------------------ + +&& ------------------------------INCEPUT: VerClient4118 ------------------------------ +*!* Procedura: VerClient4118 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 12:57:43 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerClient4118 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta clienti incerti' + + Local M.SUM2,M.SUM3 + Select CLIENT4118 + Set Filter To + If Flock() + Replace All TOTDEB With precdeb+PRODUCTIE,totcred With preccred+INCASAT + Endif + Unlock + Sum totcred, TOTDEB To M.SUM2,M.SUM3 + + Sele BAL + Set Filter To + Sum SOLDDEB To M.sold For Left(Cont,4)='4118' + + IF M.sold#M.SUM3-M.SUM2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 4118 este ' + LTRIM(STR(-(M.sold-M.SUM3+M.SUM2),12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 4118.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerClient4118 ------------------------------ + +&& ------------------------------ INCEPUT: VerVanzLu4118 ------------------------------ +*!* Procedura: VerVanzLu4118 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:47:03 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanzLu4118 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Facturi clienti incerti sau in litigiu' + + LOCAL soldcump + SELECT VANZlu4118 + SET FILTER TO + SUM totctva - achitat TO soldcump + + SELECT client4118 + SET FILTER TO + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold clienti si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold client si sold facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanzLu4118 ------------------------------ + +&& ------------------------------INCEPUT: Verana418 ------------------------------ +*!* Procedura: Verana418 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 12:30:51 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verana418 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta facturi neintocmite' + + LOCAL M.SUM2,M.SUM3,M.SUM4 + SELECT ANA418 + SET FILTER TO + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat + ENDIF + UNLOCK + + sum totcred, totdeb to M.SUM2, M.SUM3 + + M.SUM4=m.sum3-M.SUM2 + + SELE BAL + SET FILTER TO + SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='418' + + IF M.SOLD#M.SUM4 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 418 este '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 418.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verana418 ------------------------------ + +&& ------------------------------ INCEPUT: VerFact418 ------------------------------ +*!* Procedura: VerFact418 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:56:05 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerFact418 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Clienti - facturi de intocmit' + + LOCAL soldcump + SELECT Fact418 + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + SELECT ana418 + SET FILTER TO + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold 418 si sold facturi 418 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold 418 si sold facturi 418.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerFact418 ------------------------------ + + + + + + + + + + + + +&& ------------------------------ INCEPUT: VerDebitor ------------------------------ +*!* Procedura: VerDebitor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 16:35:34 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerDebitor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de debitori' + + Local m.SUM1,M.SUM2,M.SUM3,M.SUM4 + + Select DEBITOR + Set Filter To + + Select DEBITOR + If Flock() + Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT + Unlock + Endif + Sum totcred,TOTDEB To M.SUM2, M.SUM3 + m.Sum3 = m.Sum3 - m.sum2 + + Sele BAL + Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='461' + m.SOLD=m.SOLDDEB-m.SOLDcred + + IF M.SOLD # m.Sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 461 este ' + LTRIM(STR(m.Sum3-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 461.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerDebitor ------------------------------ + +&& ------------------------------ INCEPUT: VerCreditor ------------------------------ +*!* Procedura: VerCreditor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 16:43:56 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCreditor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de creditori' + + LOCAL M.SUM2,M.SUM3 + + SELECT CREDITOR + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='462' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 462 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 462.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerCreditor ------------------------------ + +&& ------------------------------ INCEPUT: VerDividende ------------------------------ +*!* Procedura: VerDividende +*!* Parametrii: llInTabel, lnId_ref +*!* Data/Ora generarii: 14-04-2004 12:51:56 +*!* Autor: GEORGIANA.VOICU +PROCEDURE VerDividende + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta dividende' + + LOCAL M.SUM2,M.SUM3 + + SELECT dividende + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='457' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 457 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 457.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerDividende ------------------------------ + +&& ------------------------------ INCEPUT: VerDebLun ------------------------------ +*!* Procedura: VerDebLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:12:53 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerDebLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari debitori diversi' + + LOCAL solddeb + SELECT deblun + SET FILTER TO + sum totctva - achitat TO m.solddeb + + SELECT debitor + set filter to + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.solddeb + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica debitori este ' + LTRIM(STR(m.sold - m.solddeb, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica debitori.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerDebLun ------------------------------ + +&& ------------------------------ INCEPUT: VerCredLun ------------------------------ +*!* Procedura: VerCredLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:57:39 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCredLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari creditori diversi' + + LOCAL soldcred + + SELECT credlun + SET FILTER TO + sum totctva - achitat to m.soldcred + + SELECT creditor + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcred + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica creditori este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica creditori.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCredLun ------------------------------ + +&& ------------------------------ INCEPUT: VerDivLun ------------------------------ +*!* Procedura: VerDivLun +*!* Parametrii: llInTabel, lnId_ref +*!* Data/Ora generarii: 14-04-2004 12:47:39 +*!* Autor: GEORGIANA.VOICU +PROCEDURE VerDivLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari dividende' + + LOCAL soldcred + + SELECT divlun + SET FILTER TO + sum totctva - achitat to m.soldcred + + SELECT dividende + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcred + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta dividende este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta dividende.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerDivLun ------------------------------ + +&& ------------------------------ INCEPUT: VerActionar ------------------------------ +*!* Procedura: VerActionar +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 10:18:05 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerActionar + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de actionari' + + LOCAL M.SUM2,M.SUM3 + + SELECT actionar + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='455' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 455 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 455.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + + +ENDPROC +&& ------------------------------ SFARSIT: VerActionar ------------------------------ + + + + + + + + + +&& ------------------------------INCEPUT: VerCasaNume ------------------------------ +*!* Procedura: VerCasaNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:05:56 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasaNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Solduri case' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CASANUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5311' + IF FOUND() + Scatter Memvar + ENDIF + + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5311 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5311.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC + +&& ------------------------------SFARSIT: VerCasaNume ------------------------------ + +&& ------------------------------ INCEPUT: VerCasa ------------------------------ +*!* Procedura: VerCasa +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasa + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Registrul de casa' + +*!* SELECT BAL +*!* LOCATE FOR cont='5311' +*!* m.solddeb = solddeb + Sele CASANUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CASA + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de de solduri case.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCasa ------------------------------ + +&& ------------------------------INCEPUT: VerCASVNUME ------------------------------ +*!* Procedura: VerCASVNUME +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 13:52:28 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerCASVNUME + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Solduri case in valuta' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CASVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + + Sele Bal + Seek '5314' + m.SOLDDEB=0 + m.SOLDCRED=0 + If Found() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5314 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5314.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerCASVNUME ------------------------------ + +&& ------------------------------ INCEPUT: VerCasaVal ------------------------------ +*!* Procedura: VerCasaVal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasaVal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Registrul de casa in valuta' + +*!* SELECT BAL +*!* LOCATE FOR cont='5314' +*!* m.solddeb = solddeb + Sele CASVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CASAVal + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri case.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCasaVal ------------------------------ + + + + + + + + + + + +&& ------------------------------INCEPUT: VerBanNume ------------------------------ +*!* Procedura: VerBanNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:23:52 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Solduri banci' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele BANNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + + Sele Bal + Seek '5121' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5121 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5121.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerBanNume ------------------------------ + +&& ------------------------------ INCEPUT: VerBanca ------------------------------ +*!* Procedura: VerBanca +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanca + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Registrul de banca' + +*!* SELECT BAL +*!* LOCATE FOR cont='5121' +*!* m.solddeb = solddeb + Sele BANNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE BANCA + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerBanca ------------------------------ + +&& ------------------------------INCEPUT: VerBanVNume ------------------------------ +*!* Procedura: VerBanVNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:18:18 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanVNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Solduri banci in valuta' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele BANVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5124' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5124 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5124.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerBanVNume ------------------------------ + +&& ------------------------------ INCEPUT: VerBancaVal ------------------------------ +*!* Procedura: VerBancaVal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBancaVal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Registrul de banca in valuta' + +*!* SELECT BAL +*!* LOCATE FOR cont='5124' +*!* m.solddeb = solddeb + Sele BANVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE BANCAVal + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerBancaVal ------------------------------ + + + + + + + +&& ------------------------------INCEPUT: VerCecNume ------------------------------ +*!* Procedura: VerCecNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:30:32 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCecNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Cec - Solduri' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CecNume + Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5112' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5112 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5112.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerCecNume ------------------------------ + +&& ------------------------------ INCEPUT: VerCec ------------------------------ +*!* Procedura: VerCec +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCec + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Cec - Registrul de operatiuni' + +*!* SELECT BAL +*!* LOCATE FOR cont='5112' +*!* m.solddeb = solddeb + Sele CecNume + Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CEC + SUM INCARCAT, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri CEC este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri CEC.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCec ------------------------------ + +&& ------------------------------ INCEPUT: VerAchit542 ------------------------------ +*!* Procedura: VerAchit542 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 09:51:54 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAchit542 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Balanta de achizitori' + + Local m.SUM1,M.SUM2,M.SUM3,M.SUM4 + Select achit542 + Set Filter To + + IF Flock() + Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT + UNLOCK + ENDIF + Sum totcred, TOTDEB To M.SUM2, M.SUM3 + M.SUM1 = M.Sum3-m.sum2 + + Sele BAL + Set Filter To + Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='542' + m.SOLD=m.SOLDDEB-m.SOLDcred + + If M.SOLD # M.SUM1 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 542 este ' + LTRIM(STR(m.Sum1-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 542.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerAchit542 ------------------------------ + +&& ------------------------------ INCEPUT: VerAchiLun ------------------------------ +*!* Procedura: VerAchiLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 16:08:22 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAchiLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Avansuri de trezorerie' + + LOCAL soldcump + SELE achilun + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + sele achit542 + set filter to + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold achizitori si sold inregistrari este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold achizitori si sold inregistrari.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerAchiLun ------------------------------ + + + + + + +&& ------------------------------ INCEPUT: VerCump ------------------------------ +*!* Procedura: VerCump +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 11:33:20 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCump + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Registrul de cumparari' + + LOCAL llDiferente + m.stotctva=0 + SELE act + SUM suma TO m.f767 FOR LEFT(scc,3) = '767' AND INLIST(LEFT(scd,3),'401','404') + + SELECT BAL +*!* SEEK '767 ' +*!* m.f767=rulcred + SEEK '401 ' + m.f401=rulcred + SEEK '404 ' + m.f404=rulcred + m.f401404=m.f401+m.f404-M.F767 + seek '4426' + m.f4426=ruldeb + + SELECT CUMP + SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; + TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM + M.ADUN=m.Sneimpozab + m.StotftvaI + m.StvaI + m.StotftvaM + m.StvaM + IF M.STOTCTVA # M.ADUN + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + SELECT cump + SUM totctva TO m.stotctva FOR INLIST(LEFT(scc,3),'401','404') + + IF M.STOTCTVA # M.f401404 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de 401+404 este ' + LTRIM(STR(M.STOTCTVA-M.f401404, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF m.f4426 # m.StvaM + m.stvai + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de TVA este ' + LTRIM(STR(m.f4426-m.StvaM-m.stvai, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCump ------------------------------ + +&& ------------------------------ INCEPUT: VerVanz ------------------------------ +*!* Procedura: VerVanz +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 11:48:29 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanz + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Registrul de vanzari' + + LOCAL m.f461, llDiferente + SELECT vanz + SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; + TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM + M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM + + IF M.STOTCTVA # M.ADUN + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + SELE act + SUM suma TO m.f667 FOR LEFT(scd,3) = '667' AND INLIST(LEFT(scc,3),'411') + + SELE BAL +*!* SEEK '667 ' +*!* m.f667=rulDEB + + SEEK '461 ' + m.f461=IIF(FOUND(), rulDEB, 0) + + SUM RULDEB TO M.RULDEB FOR LEFT(CONT,3)='411' AND cont<>'4118' + + sele vanz + Sum totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; + TO m.stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; + M.StotftvaM,m.StvaM For Left(SCD,3)='411' And scd<>'4118' + + SUM tvam, tvai TO tvam419, tvai419 FOR LEFT(scd,3) = '419' + + m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; + M.StotftvaM+m.StvaM + + If M.stotctva + (tvam419 + tvai419) != M.ruldeb - M.f667 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de 411 este: '+ LTRIM(STR(M.stotctva + (tvam419 + tvai419)-M.ruldeb+M.f667,12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + +*!* SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; +*!* TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM ; +*!* FOR LEFT(SCD,3)='411' AND cont<>'4118' +*!* +*!* M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM +*!* +*!* IF M.STOTCTVA != M.RULDEB-M.F667 +*!* DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; +*!* 'Diferenta fata de 411 este ' + LTRIM(STR(M.STOTCTVA-M.RULDEB+M.F667, 12)), .T., llInTabel, lnId_ref +*!* llDiferente = .T. +*!* ENDIF + + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanz ------------------------------ + +&& ------------------------------ INCEPUT: VerBal ------------------------------- +*!* Procedura: VerBal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 12:00:13 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = '' + lcSursa = 'Balanta' + + local trd, trc, s, pd, pc, td, tc, llDiferente + store 0 to trd,trc,s,pd,pc,td,tc + SELECT ACT + SET FILTER TO + SUM SUMA to S + + SELE BAL + SUM RULDEB, RULCRED, precdeb, preccred TO TRD, TRC, pd, pc + IF TRD<>TRC + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF TRc<>s + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferente intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF TRD<>s + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferente intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + SELECT calendar + LOCATE FOR nl=pcnl and an=pcan + SKIP -1 + if bof() OR !FOUND() + RETURN + ENDIF + dateprec = calefirma+'\an'+an+'\date'+nl + use &dateprec\bal in 0 alias bal_prec + SELECT bal_prec + SUM totdeb, totcred, solddeb, soldcred to td, tc, sd, sc + + IF m.nl<>'01' + IF pd<>td + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-td, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF pc<>tc + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-tc, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + ELSE + IF pd<>sd + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-sd, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF pc<>sc + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-sc, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + ENDIF + use in bal_prec + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF + +m.nl=pcnl +m.an=pcan + +ENDPROC +&& ------------------------------ SFARSIT: VerBal ------------------------------ + +&& ------------------------------ INCEPUT: VerAct ------------------------------ +*!* Procedura: VerAct +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 12:14:27 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAct + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Diverse' + lcSursa = 'Registrul jurnal' + + local trd,trc,s,pd,pc,td,tc, llDiferente + store 0 to trd,trc,s,pd,pc,td,tc + SELECT ACT + SET FILTER TO + sum SUMA to S + + SELE BAL + SUM RULDEB,RULCRED,precdeb,preccred TO TRD,TRC,pd,pc + IF TRD<>TRC + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF (TRc<>s) + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + endif + IF (TRD<>s) + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerAct ------------------------------------- + +&& ------------------------------INCEPUT: VerificareLunaDeschisa ------------------------------ +*!* Procedura: VerificareLunaDeschisa +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:39:07 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerificareLunaDeschisa + LPARAMETERS llInTabel + sterge_mesaje() + +&& Diverse + DO VerBal IN verifica WITH llInTabel, 1 + + *DO VerAct IN verifica WITH llInTabel, 36 + +&& Terti - Furnizori + DO VerCump IN verifica WITH llInTabel, 11 + + DO VerFurnizor IN verifica WITH llInTabel, 9 + DO VerCumpLun IN verifica WITH llInTabel, 10 + + DO Verfurniz404 IN verifica WITH llInTabel, 13 + DO VerCumpLun404 IN verifica WITH llInTabel, 14 + + DO Verana408 IN verifica WITH llInTabel, 19 + DO VerFact408 IN verifica WITH llInTabel, 20 + +* DO VerAvans409 in verifica WITH llInTabel + +&& Terti - Clienti + DO VerVanz IN verifica WITH llInTabel, 5 + + DO VerClienti IN verifica WITH llInTabel, 3 + DO VerVanzLun IN verifica WITH llInTabel, 4 + + DO VerClient4118 IN verifica WITH llInTabel, 7 + DO VerVanzLu4118 IN verifica WITH llInTabel, 8 + + DO Verana418 IN verifica WITH llInTabel, 25 + DO VerFact418 IN verifica WITH llInTabel, 26 + +* DO VerAvans419 in verifica WITH llInTabel + +&& Terti - Alti + DO VerDebitor IN verifica WITH llInTabel, 15 + DO VerDebLun IN verifica WITH llInTabel, 16 + + DO VerCreditor IN verifica WITH llInTabel, 17 + DO VerCredLun IN verifica WITH llInTabel, 18 + + DO VerDividende IN verifica WITH llInTabel, 34 + DO VerDivLun IN verifica WITH llInTabel, 35 + + DO VerActionar IN verifica WITH llInTabel, 36 + +&& Trezorerie - Casa + DO VerCasaNume IN verifica WITH llInTabel, 21 + DO VerCasa IN verifica WITH llInTabel, 21 + + DO VerCASVNUME IN verifica WITH llInTabel, 22 + DO VerCASAVal IN verifica WITH llInTabel, 22 + +&& Trezorerie - Banca + DO VerBanNume IN verifica WITH llInTabel, 23 + DO VerBanca IN verifica WITH llInTabel, 23 + + DO VerBanVNume IN verifica WITH llInTabel, 24 + DO VerBancaVal IN verifica WITH llInTabel, 24 + +&& Trezorerie - Alte + DO VerCecNume IN verifica WITH llInTabel, 31 + DO VerCec IN verifica WITH llInTabel, 31 + + DO VerAchit542 IN verifica WITH llInTabel, 28 + DO VerAchiLun IN verifica WITH llInTabel, 29 + + + +*!* if(llInTabel) +*!* raport_mesaje() +*!* ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerificareLunaDeschisa ------------------------------ \ No newline at end of file diff --git a/Rapoarte/balanta_parteneri_rpt1.fr2 b/Rapoarte/balanta_parteneri_rpt1.fr2 new file mode 100644 index 0000000..9f74f11 --- /dev/null +++ b/Rapoarte/balanta_parteneri_rpt1.fr2 @@ -0,0 +1,683 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="balanta_parteneri_rpt1.frx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + +