romfast/roagest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Clase/atentie.vc2 Normal file
View File

@@ -0,0 +1,6 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="atentie.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*

2316
Clase/gestiuni.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

137
Clase/oavize.vc2 Normal file
View File

@@ -0,0 +1,137 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oavize.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_date_aviz 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_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_serie_act" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_altele
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 146
Name = "frm_date_aviz"
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 312
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 65
Lb_titlu_alb_b121.Caption = "Date aviz"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 344
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 132
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
But_renunt1.Left = 315
But_renunt1.Name = "But_renunt1"
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_serie_act' AS clb_serie_act WITH ;
cvariabila = serie_act, ;
cvariabiladoc = nract, ;
Left = 12, ;
Name = "Clb_serie_act", ;
nid_tipdoc = 6, ;
pcobj = poDate, ;
Top = 41, ;
Width = 314, ;
Text_simplu1.Name = "Text_simplu1", ;
_cbbase1.Name = "_cbbase1", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu2", ;
Top = 69, ;
Width = 314, ;
Text_simplu1.ControlSource = "poDate.nract", ;
Text_simplu1.InputMask = (get_mask(14,0)), ;
Text_simplu1.Left = 125, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Lb_simplu1.Caption = "Numarul avizului", ;
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(poDate.listaid,'')), ;
cprocedura = thisform.do_cauta_altele, ;
cvar_afisata = poDate.descriere, ;
Left = 12, ;
Name = "Ct_clb_cautare1", ;
Top = 103, ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Gestiune destinatie", ;
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
clb_tx_cautare.Name = "clb_tx_cautare", ;
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
PROCEDURE do_cauta_altele
Local loCauta
loCauta = caut_gestiune_dest(poDate.id_client)
If !Isnull(loCauta) And !Empty(Nvl(loCauta.id_gestiune,0))
poDate.listaid = loCauta.id_gestiune
poDate.descriere = loCauta.nume_gestiune
poDateGestiuneDest.id_gestiune = loCauta.id_gestiune
poDateGestiuneDest.id_tipgest = loCauta.id_tipgest
poDateGestiuneDest.Cont = Nvl(loCauta.Cont,[XXXX])
poDateGestiuneDest.acont = Nvl(loCauta.acont,[XXXX])
This.ct_clb_cautare1.Refresh()
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
Local llReturn
Store .T. To llReturn
Do Case
Case Empty(Nvl(poDate.nract,0))
amessagebox("Numarul avizului trebuie sa fie diferit de 0!",48,"Atentie")
llReturn = .F.
Thisform.clb_tx_simplu2.SetFocus()
Case Empty(Nvl(poDate.listaid,''))
amessagebox("Nu ati ales gestiunea destinatie!",48,"Atentie")
llReturn = .F.
Thisform.ct_clb_cautare1.SetFocus()
Otherwise
llReturn = .T.
Endcase
Return llReturn
ENDPROC
PROCEDURE Init
DoDefault()
With Thisform
If Inlist(poDate.rezultat_serii,1,3)
Thisform.clb_serie_act.do_initializeaza(poDate.rezultat_serii)
Thisform.clb_serie_act.SetFocus()
Else
lnHeight = lnHeight - Thisform.clb_serie_act.Height
laPozitii(Thisform.clb_serie_act.TabIndex,2)=1
Thisform.RemoveObject('clb_serie_act')
Thisform.clb_nract.SetFocus()
Endif
Endwith
ENDPROC
ENDDEFINE

490
Clase/oimportxml.vc2 Normal file
View File

@@ -0,0 +1,490 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oimportxml.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_atenterori 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="_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="_grdrow2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow2.Column9.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nidgestiune
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 482
Name = "frm_atenterori"
nidgestiune = 0
Width = 797
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 876
_shape2.Left = 744
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "Atentionari / Erori"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 764
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
Height = 276, ;
Left = 12, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "crsAtentionari ", ;
Top = 48, ;
Width = 768, ;
Column1.ControlSource = "mesaj", ;
Column1.Name = "Column1", ;
Column1.Width = 539, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "iif(afara,'Eroare','Atentionare')", ;
Column2.Name = "Column2", ;
Column3.ColumnOrder = 2, ;
Column3.ControlSource = "nrord", ;
Column3.Name = "Column3", ;
Column3.Width = 120
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Mesaj", ;
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 ;
Caption = "", ;
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 ;
Caption = "Lucrare", ;
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 '_grdrow2' AS _grdrow WITH ;
ColumnCount = 8, ;
DeleteMark = .F., ;
Height = 136, ;
Left = 12, ;
Name = "_grdrow2", ;
Panel = 1, ;
ReadOnly = .F., ;
RecordSource = "v_stoc", ;
Top = 336, ;
Width = 768, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "denumire", ;
Column1.Name = "Column2", ;
Column1.ReadOnly = .F., ;
Column1.Width = 191, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "codmat", ;
Column2.Name = "Column3", ;
Column2.ReadOnly = .F., ;
Column2.Width = 132, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "stoc", ;
Column3.Name = "Column4", ;
Column3.ReadOnly = .F., ;
Column3.Width = 98, ;
Column4.ColumnOrder = 5, ;
Column4.ControlSource = "pret", ;
Column4.Name = "Column5", ;
Column4.ReadOnly = .F., ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "nume_gestiune", ;
Column5.Name = "Column6", ;
Column5.ReadOnly = .F., ;
Column5.Width = 141, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "cgest", ;
Column6.Name = "Column7", ;
Column6.ReadOnly = .F., ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "id_articol", ;
Column7.Name = "Column8", ;
Column7.ReadOnly = .F., ;
Column8.ColumnOrder = 1, ;
Column8.ControlSource = "ales", ;
Column8.CurrentControl = "Check1", ;
Column8.Name = "Column9", ;
Column8.ReadOnly = .F., ;
Column8.Sparse = .F., ;
Column8.Width = 48
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow2.Column2.Header1' AS header WITH ;
Caption = "Denumire", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow2.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow2.Column3.Header1' AS header WITH ;
Caption = "Codmat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow2.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow2.Column4.Header1' AS header WITH ;
Caption = "Stoc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow2.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow2.Column5.Header1' AS header WITH ;
Caption = "Pret", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow2.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow2.Column6.Header1' AS header WITH ;
Caption = "Gestiune", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow2.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow2.Column7.Header1' AS header WITH ;
Caption = "Cgest", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow2.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow2.Column8.Header1' AS header WITH ;
Caption = "Id articol", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow2.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 '_grdrow2.Column9.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
ControlSource = "ales", ;
Height = 17, ;
Left = 11, ;
Name = "Check1", ;
Top = 47, ;
Value = 0, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT '_grdrow2.Column9.Header1' AS header WITH ;
Caption = "Ales", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 729, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE Activate
DODEFAULT()
this._grdrow1.AfterRowColChange
ENDPROC
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru,lnid_coloana
SELECT v_stoc
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=poStoc.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform._grdrow2)
poStoc.ca_baza1.cfiltru=lcFiltru
poStoc.ca_baza1.afisare()
restore_grid_tag(thisform._grdrow2)
*!* IF RECCOUNT('v_mecanici')>0
IF crsAtentionari.rezolvat
SELECT v_stoc
REPLACE ales WITH 1 FOR ALLTRIM(codmat) = ALLTRIM(crsAtentionari.codmat) AND pret = crsAtentionari.pret
ENDIF
this._grdrow2.AutoFit
*!* this._grdrow2.ReadOnly = .f.
ENDPROC
PROCEDURE inainte_de_do_termin
SELECT crsAtentionari
LOCATE FOR afara = .f. AND rezolvat = .f.
IF FOUND()
aMESSAGEBOX('Rezolvati atentionarile!',0+16,_screen.Caption )
RETURN .f.
ENDIF
ENDPROC
PROCEDURE _grdrow1.AfterRowColChange
LPARAMETERS nColIndex
*!* save_grid_tag(thisform._grdrow2)
*!* lcSql = [select a.cants+a.cant-a.cante as stoc,a.* from vstoc a where a.an = ?gnAn and a.luna = ?gnluna and a.codmat = ']+ALLTRIM(crsAtentionari.codmat)+[' ]
*!* lcCursor = [v_stoc]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* goExecutor.oReset()
*!* IF lnSucces < 0
*!* aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* RETURN
*!* ENDIF
*!* thisform._grdrow2.RecordSource = 'v_stoc'
*!* restore_grid_tag(thisform._grdrow2)
*!* thisform._grdrow2.AutoFit
IF afara = .f.
lcFiltru = [ a.an = ?gnAn and a.luna = ?gnluna and a.codmat = ']+ALLTRIM(crsAtentionari.codmat)+[' and a.id_gestiune = ]+ALLTRIM(STR(thisform.nidgestiune ))
ELSE
lcFiltru = [ 1=2 ]
ENDIF
Thisform.actualizeaza_grid1(lcFiltru)
ENDPROC
PROCEDURE _grdrow2.Column9.Check1.Click
LOCAL lnid_Articol
lnid_Articol = v_stoc.id_articol
lnPret = v_stoc.pret
IF this.Value = 1
SELECT v_stoc
REPLACE ALL ales WITH 0 FOR !(id_articol = lnid_Articol AND pret = lnPret)
LOCATE FOR id_articol = lnid_Articol AND pret = lnPret
SELECT crsBonTOT
REPLACE ALL id_articol WITH lnid_Articol,pret WITH lnPret FOR ALLTRIM(codmat) = ALLTRIM(v_stoc.codmat) AND id_lucrare = crsAtentionari.id_lucrare AND time = crsAtentionari.time
SELECT crsAtentionari
REPLACE rezolvat WITH .t.,pret WITH lnPret
ELSE
SELECT v_stoc
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_lucrari_sume 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="_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="" />
*<PropValue>
DoCreate = .T.
Height = 262
Name = "frm_lucrari_sume"
Width = 624
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 636
_shape2.Left = 552
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "."
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 594
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Left = 565
But_renunt1.Name = "But_renunt1"
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT '_grdbase1' AS _grdbase WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
Height = 200, ;
Left = 12, ;
Name = "_grdbase1", ;
Panel = 1, ;
ReadOnly = .F., ;
RecordSource = "crsIesiritot", ;
Top = 48, ;
Width = 600, ;
Column1.ControlSource = "nrord", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .F., ;
Column1.Width = 393, ;
Column2.ControlSource = "suma_imp", ;
Column2.InputMask = (get_mask(12,gnPc)), ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .F., ;
Column3.ControlSource = "suma", ;
Column3.InputMask = (get_mask(12,gnPc)), ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .F., ;
Column3.Width = 97
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ;
Caption = "Lucrare", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ;
Caption = "Suma import", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ;
Caption = "Suma modificata", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ENDDEFINE

853
Clase/orapoarte_gestiuni.vc2 Normal file
View File

@@ -0,0 +1,853 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_gestiuni.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_cerere_cont_gestiune 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="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_data_referinta" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_gestiune
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 123
Name = "frm_cerere_cont_gestiune"
Width = 353
_shape1.Name = "_shape1"
_shape2.Left = 280
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "Introduceti contul si gestiunea"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 6
BUT_TERMIN1.Left = 322
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Left = 293
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 5
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_data_referinta' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 17, ;
Name = "Clb_data_referinta", ;
TabIndex = 3, ;
Top = 89, ;
Width = 207, ;
Text_simplu1.ControlSource = "pdDataReferinta", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 118, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 85, ;
Lb_simplu1.Caption = "Data de referinta", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_grup' AS ct_clb_cautare_var WITH ;
cconditie = EMPTY(NVL(pnId_gestiune,0)), ;
cprocedura = thisform.do_cauta_gestiune, ;
cvar_afisata = pcGestiune, ;
Height = 31, ;
Left = 16, ;
Name = "Ct_clb_grup", ;
TabIndex = 2, ;
Top = 60, ;
Width = 337, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 305, ;
img_cautare.Left = 310, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Gestiune", ;
lb_cautare.Name = "lb_cautare", ;
tx_cautare.Left = 119, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Cont:", ;
Height = 17, ;
Left = 26, ;
Name = "Label1", ;
TabIndex = 7, ;
Top = 39, ;
Width = 31
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text2' AS textbox WITH ;
ControlSource = "pcCont", ;
Format = "k", ;
Height = 23, ;
Left = 136, ;
Name = "Text2", ;
TabIndex = 1, ;
Top = 36, ;
Width = 84
*< END OBJECT: BaseClass="textbox" />
PROCEDURE do_cauta_gestiune
Local loCauta
loCauta = caut_gestiune(0,gnidUtil,.t.)
If gnButon <> 2
pnid_gestiune = loCauta.id_gestiune
pcGestiune = loCauta.nume_gestiune
Thisform.but_termin1.SetFocus()
Else
pnid_gestiune = Null
pcGestiune = []
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_date_rapoarte_rulaje AS frm_date_rapoarte_gen OF "..\comun\clase\orapoarte.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_selectie1.Ct_selectie_valoutvanzctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_um2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_articol" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_lucrare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_gestiune" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_dataact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_nnir" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_serie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_codmat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_subgrupa" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_sectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_pretach" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_pretv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_partener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_responsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_pretvtva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valinvanzctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valadaosie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valadaosin" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valoutvz" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valinvz" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valoutach" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valinach" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cante" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cant" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valtvavanzie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valtvavanzin" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_furnizor" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cant_bax" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_an" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_luna" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
ctitluraportinitial = Rapoarte bazate pe rulaje
DoCreate = .T.
Height = 572
Name = "frm_date_rapoarte_rulaje"
nidformularraport = 1
Width = 696
_memberdata = <VFPData>
<memberdata name="craport" type="property" display="cRaport" favorites="True"/>
<memberdata name="lreadonly" type="property" display="lReadOnly" favorites="True"/>
</VFPData>
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 696
_shape1.ZOrderSet = 2
_shape2.Height = 29
_shape2.Left = 604
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 90
_shape2.ZOrderSet = 3
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
GRIDSORT1.Left = 480
GRIDSORT1.Name = "GRIDSORT1"
GRIDSORT1.Top = 36
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 9
BUT_TERMIN1.ZOrderSet = 5
But_listare1.Name = "But_listare1"
But_listare1.TabIndex = 8
But_excel1.Name = "But_excel1"
But_excel1.TabIndex = 7
But_excel1.Visible = .T.
But_help1.Name = "But_help1"
But_help1.TabIndex = 2
But_cautare1.Name = "But_cautare1"
But_cautare1.TabIndex = 4
But_nou1.Name = "But_nou1"
But_nou1.TabIndex = 3
But_sterge1.Name = "But_sterge1"
But_sterge1.TabIndex = 6
Ct_selectie1.cnumetabela = vrapoarte_rul
Ct_selectie1.Ct_grupare1.Height = 187
Ct_selectie1.Ct_grupare1.lblAtentie.Name = "lblAtentie"
Ct_selectie1.Ct_grupare1.lb_grupare.Name = "lb_grupare"
Ct_selectie1.Ct_grupare1.Left = 6
Ct_selectie1.Ct_grupare1.Name = "Ct_grupare1"
Ct_selectie1.Ct_grupare1.TabIndex = 30
Ct_selectie1.Ct_grupare1.Top = 331
Ct_selectie1.Ct_grupare1.Width = 360
Ct_selectie1.Ct_grupare1.ZOrderSet = 11
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_jos1.Name = "But_jos1"
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_sus1.Name = "But_sus1"
Ct_selectie1.Ct_grupare1._scrollcontainer1.Name = "_scrollcontainer1"
Ct_selectie1.Ct_ordonare1.Height = 176
Ct_selectie1.Ct_ordonare1.lb_ordonare.Name = "lb_ordonare"
Ct_selectie1.Ct_ordonare1.Left = 6
Ct_selectie1.Ct_ordonare1.Name = "Ct_ordonare1"
Ct_selectie1.Ct_ordonare1.TabIndex = 31
Ct_selectie1.Ct_ordonare1.Top = 156
Ct_selectie1.Ct_ordonare1.Width = 360
Ct_selectie1.Ct_ordonare1.ZOrderSet = 12
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_jos1.Name = "But_jos1"
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_sus1.Name = "But_sus1"
Ct_selectie1.Ct_ordonare1._scrollcontainer1.Name = "_scrollcontainer1"
Ct_selectie1.Height = 527
Ct_selectie1.lb_coloane.Name = "lb_coloane"
Ct_selectie1.lb_coloane.TabIndex = 32
Ct_selectie1.lb_coloane.ZOrderSet = 13
Ct_selectie1.Left = 12
Ct_selectie1.ltitlucoloanesuma = .T.
Ct_selectie1.Name = "Ct_selectie1"
Ct_selectie1.TabIndex = 1
Ct_selectie1.Top = 36
Ct_selectie1.Width = 372
ed_explicatii_filtru.Height = 500
ed_explicatii_filtru.Left = 396
ed_explicatii_filtru.Name = "ed_explicatii_filtru"
ed_explicatii_filtru.TabIndex = 11
ed_explicatii_filtru.Top = 63
ed_explicatii_filtru.Width = 288
But_salveaza1.lvizibil = .F.
But_salveaza1.Name = "But_salveaza1"
But_salveaza1.TabIndex = 5
But_reset2.Name = "But_reset2"
But_reset2.TabIndex = 10
LB_RAPORT_PREDEFINIT.Name = "LB_RAPORT_PREDEFINIT"
LB_RAPORT_PREDEFINIT.TabIndex = 13
But_start_criterii1.Name = "But_start_criterii1"
But_start_criterii1.TabIndex = 12
*</PropValue>
ADD OBJECT 'Ct_selectie1.Ct_selectie_an' AS ct_selectie_camp WITH ;
ccamp = an, ;
cnumecamp = An, ;
Left = 2, ;
lgrupare = .T., ;
lordine = .T., ;
lsuma = .F., ;
Name = "Ct_selectie_an", ;
nid_container = 16, ;
TabIndex = 19, ;
Top = 11, ;
ZOrderSet = 27, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "An", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_articol' AS ct_selectie_camp WITH ;
ccamp = denumire, ;
cnumecamp = Articol, ;
Left = 2, ;
Name = "Ct_selectie_articol", ;
nid_container = 5, ;
TabIndex = 5, ;
Top = 96, ;
ZOrderSet = 2, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Articol", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_cant' AS ct_selectie_camp WITH ;
ccamp = cant, ;
cnumecamp = Intrari, ;
Left = 117, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_cant", ;
nid_container = 15, ;
TabIndex = 18, ;
Top = 140, ;
ZOrderSet = 28, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Intrari", ;
ck_camp.Left = 9, ;
ck_camp.Name = "ck_camp", ;
ck_camp.Top = 1
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_cant_bax' AS ct_selectie_camp WITH ;
ccamp = cant_bax, ;
cnumecamp = Cant.impach., ;
Left = 117, ;
Name = "Ct_selectie_cant_bax", ;
nid_container = 28, ;
TabIndex = 10, ;
Top = 14, ;
ZOrderSet = 31, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Cant.impach.", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_cante' AS ct_selectie_camp WITH ;
ccamp = cante, ;
cnumecamp = Iesiri, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_cante", ;
nid_container = 16, ;
TabIndex = 19, ;
Top = -2, ;
ZOrderSet = 27, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Iesiri", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_codmat' AS ct_selectie_camp WITH ;
ccamp = codmat, ;
cnumecamp = Cod material, ;
Left = 2, ;
Name = "Ct_selectie_codmat", ;
nid_container = 4, ;
TabIndex = 4, ;
Top = 81, ;
ZOrderSet = 9, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Cod material", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_cont' AS ct_selectie_camp WITH ;
ccamp = cont, ;
cnumecamp = Cont, ;
Left = 2, ;
Name = "Ct_selectie_cont", ;
nid_container = 7, ;
TabIndex = 7, ;
Top = 125, ;
ZOrderSet = 7, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Cont", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_dataact' AS ct_selectie_camp WITH ;
ccamp = dataact, ;
cnumecamp = Data, ;
Left = 2, ;
Name = "Ct_selectie_dataact", ;
nid_container = 2, ;
TabIndex = 2, ;
Top = 53, ;
ZOrderSet = 5, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Data", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_furnizor' AS ct_selectie_camp WITH ;
ccamp = furnizor, ;
cnumecamp = Furnizor, ;
Left = 117, ;
lgrupare = .T., ;
Name = "Ct_selectie_furnizor", ;
nid_container = 27, ;
TabIndex = 12, ;
Top = 56, ;
ZOrderSet = 17, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Furnizor", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_gestiune' AS ct_selectie_camp WITH ;
ccamp = NUME_GESTIUNE, ;
cidcamp = id_gestiune, ;
cnumecamp = Gestiune, ;
Left = 117, ;
Name = "Ct_selectie_gestiune", ;
nid_container = 9, ;
TabIndex = 9, ;
Top = 0, ;
ZOrderSet = 4, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Gestiune", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_lucrare' AS ct_selectie_camp WITH ;
ccamp = nrord, ;
cidcamp = id_lucrare, ;
cnumecamp = Lucrare, ;
Left = 2, ;
Name = "Ct_selectie_lucrare", ;
nid_container = 8, ;
TabIndex = 8, ;
Top = 140, ;
ZOrderSet = 3, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Lucrare", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_luna' AS ct_selectie_camp WITH ;
ccamp = luna, ;
cnumecamp = Luna, ;
Left = 2, ;
lgrupare = .T., ;
lordine = .T., ;
lsuma = .F., ;
Name = "Ct_selectie_luna", ;
nid_container = 16, ;
TabIndex = 19, ;
Top = 25, ;
ZOrderSet = 27, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Luna", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_nnir' AS ct_selectie_camp WITH ;
ccamp = nnir, ;
cnumecamp = NIR/Bon, ;
Left = 2, ;
lgrupare = .F., ;
Name = "Ct_selectie_nnir", ;
nid_container = 1, ;
TabIndex = 1, ;
Top = 39, ;
ZOrderSet = 6, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "NIR/Bon", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_partener' AS ct_selectie_camp WITH ;
ccamp = partener, ;
cnumecamp = Partener, ;
Left = 117, ;
lgrupare = .T., ;
Name = "Ct_selectie_partener", ;
nid_container = 27, ;
TabIndex = 12, ;
Top = 42, ;
ZOrderSet = 17, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Partener", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_pretach' AS ct_selectie_camp WITH ;
ccamp = pret, ;
cnumecamp = Pret achizitie, ;
Left = 117, ;
Name = "Ct_selectie_pretach", ;
nid_container = 12, ;
TabIndex = 15, ;
Top = 98, ;
ZOrderSet = 15, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Pret achizitie", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_pretv' AS ct_selectie_camp WITH ;
ccamp = pretv, ;
cnumecamp = Pret vanzare, ;
Left = 117, ;
Name = "Ct_selectie_pretv", ;
nid_container = 13, ;
TabIndex = 16, ;
Top = 112, ;
ZOrderSet = 16, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Pret vanzare", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_pretvtva' AS ct_selectie_camp WITH ;
ccamp = pretvtva, ;
cnumecamp = Pret vanz cu TVA, ;
Height = 19, ;
Left = 117, ;
Name = "Ct_selectie_pretvtva", ;
nid_container = 14, ;
TabIndex = 17, ;
Top = 126, ;
Width = 120, ;
ZOrderSet = 19, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Pret vanz. cu TVA", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_responsabil' AS ct_selectie_camp WITH ;
ccamp = nresp, ;
cnumecamp = Responsabil, ;
Left = 117, ;
lgrupare = .T., ;
Name = "Ct_selectie_responsabil", ;
nid_container = 11, ;
TabIndex = 14, ;
Top = 84, ;
ZOrderSet = 18, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Responsabil", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_sectie' AS ct_selectie_camp WITH ;
ccamp = sectie, ;
cnumecamp = Sectie, ;
Left = 117, ;
Name = "Ct_selectie_sectie", ;
nid_container = 10, ;
TabIndex = 13, ;
Top = 70, ;
ZOrderSet = 14, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Sectie", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_serie' AS ct_selectie_camp WITH ;
ccamp = serie, ;
cnumecamp = Serie, ;
Left = 2, ;
lgrupare = .T., ;
Name = "Ct_selectie_serie", ;
nid_container = 6, ;
TabIndex = 6, ;
Top = 111, ;
ZOrderSet = 8, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Serie", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_subgrupa' AS ct_selectie_camp WITH ;
ccamp = subgrupa, ;
cidcamp = id_subgrupa, ;
cnumecamp = Subgrupa articol, ;
Height = 19, ;
Left = 2, ;
Name = "Ct_selectie_subgrupa", ;
nid_container = 3, ;
TabIndex = 3, ;
Top = 67, ;
Width = 131, ;
ZOrderSet = 10, ;
ck_camp.Alignment = 0, ;
ck_camp.AutoSize = .T., ;
ck_camp.Caption = "Subgrupa articol", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_um2' AS ct_selectie_camp WITH ;
ccamp = um2, ;
cnumecamp = U.M.2, ;
Left = 117, ;
Name = "Ct_selectie_um2", ;
nid_container = 27, ;
TabIndex = 11, ;
Top = 28, ;
ZOrderSet = 1, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "U.M. 2", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valadaosie' AS ct_selectie_camp WITH ;
ccamp = round(decode(proc_tvav,0,cante*pretv,(cante*(pretv+tvav)/proc_tvav)),pack_sesiune.getoptiunefirma('PC')) - (cante*pret), ;
cnumecamp = Val.adaos iesiri, ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valadaosie", ;
nid_container = 22, ;
TabIndex = 25, ;
Top = 82, ;
Width = 132, ;
ZOrderSet = 21, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.adaos iesiri", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valadaosin' AS ct_selectie_camp WITH ;
ccamp = round(decode(proc_tvav,0,cant*pretv,(cant*(pretv+tvav)/proc_tvav)),pack_sesiune.getoptiunefirma('PC'))-(cant*pret), ;
cnumecamp = Val.adaos intrari, ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valadaosin", ;
nid_container = 21, ;
TabIndex = 24, ;
Top = 67, ;
Width = 132, ;
ZOrderSet = 22, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.adaos intrari", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valinach' AS ct_selectie_camp WITH ;
ccamp = round(cant*pret,pack_sesiune.getoptiunefirma('PC')), ;
cnumecamp = Val.intrari ach., ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valinach", ;
nid_container = 17, ;
TabIndex = 20, ;
Top = 11, ;
Width = 132, ;
ZOrderSet = 26, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.intrari ach.", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valinvanzctva' AS ct_selectie_camp WITH ;
ccamp = round(cant*(pretv+tvav),pack_sesiune.getoptiunefirma('PC')), ;
cnumecamp = Val.intrari vz.cu TVA, ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valinvanzctva", ;
nid_container = 23, ;
TabIndex = 26, ;
Top = 97, ;
Width = 140, ;
ZOrderSet = 20, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.intrari vz.cu TVA", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valinvz' AS ct_selectie_camp WITH ;
ccamp = decode(nr_pag,6,round((pretv + tvav) * cant,?gnPc) - round(round((pretv + tvav) * cant,?gnPc) * (proc_tvav - 1) / proc_tvav,?gnPc) , round(pretv * cant,?gnPc) ), ;
cnumecamp = Val.intrari vz., ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valinvz", ;
nid_container = 19, ;
TabIndex = 22, ;
Top = 39, ;
Width = 132, ;
ZOrderSet = 24, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.intrari vz.", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valoutach' AS ct_selectie_camp WITH ;
ccamp = round(cante*pret,pack_sesiune.getoptiunefirma('PC')), ;
cnumecamp = Val.iesiri ach., ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valoutach", ;
nid_container = 18, ;
TabIndex = 21, ;
Top = 25, ;
Width = 132, ;
ZOrderSet = 25, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.iesiri ach.", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valoutvanzctva' AS ct_selectie_camp WITH ;
ccamp = round(cante*(pretv+tvav),pack_sesiune.getoptiunefirma('PC')), ;
cnumecamp = Val.iesiri vz.cu TVA, ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valoutvanzctva", ;
nid_container = 24, ;
TabIndex = 27, ;
Top = 111, ;
Width = 140, ;
ZOrderSet = 0, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.iesiri vz.cu TVA", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valoutvz' AS ct_selectie_camp WITH ;
ccamp = decode(nr_pag,6,round((pretv + tvav) * cante,?gnPc) - round(round((pretv + tvav) * cante,?gnPc) * (proc_tvav - 1) / proc_tvav,?gnPc), round(pretv * cante,?gnPc) ), ;
cnumecamp = Val.iesiri vz., ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valoutvz", ;
nid_container = 20, ;
TabIndex = 23, ;
Top = 53, ;
Width = 132, ;
ZOrderSet = 23, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.iesiri vz.", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valtvavanzie' AS ct_selectie_camp WITH ;
ccamp = decode(proc_tvav,0,0,ROUND(cante*(pretv+tvav)*(proc_tvav-1)/proc_tvav,pack_sesiune.getoptiunefirma('PC'))), ;
cnumecamp = Val.TVA vz. iesiri, ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valtvavanzie", ;
nid_container = 26, ;
TabIndex = 29, ;
Top = 140, ;
Width = 140, ;
ZOrderSet = 29, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.TVA vz. iesiri", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_valtvavanzin' AS ct_selectie_camp WITH ;
ccamp = decode(proc_tvav,0,0,ROUND(cant*(pretv+tvav)*(proc_tvav-1)/proc_tvav,pack_sesiune.getoptiunefirma('PC'))), ;
cnumecamp = Val.TVA vz. intrari, ;
Height = 19, ;
Left = 232, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_valtvavanzin", ;
nid_container = 25, ;
TabIndex = 28, ;
Top = 126, ;
Width = 140, ;
ZOrderSet = 30, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Val.TVA vz. intrari", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
PROCEDURE Init
Lparameters tnIdRaport, tlDrepturi
DoDefault(tnIdRaport, tlDrepturi)
This.ct_selectie1.ct_selectie_valinach.ccamp = [case when id_subgrupa = pack_sesiune.getoptiunefirma('ID_SUBGRUPA_BILETE') ] + ;
[then ROUND((pretv + tvav) * cant, ?gnPc) - round(round((pretv + tvav) * cant, ?gnPc) * ] + ;
[(proc_tvav - 1) / proc_tvav, ?gnPc) ] + ;
[else round(pret * cant, ?gnPc) end]
This.ct_selectie1.ct_selectie_valoutach.ccamp = [case when id_subgrupa = pack_sesiune.getoptiunefirma('ID_SUBGRUPA_BILETE') ] + ;
[then ROUND((pretv + tvav) * cante, ?gnPc) - round(round((pretv + tvav) * cante, ?gnPc) * ] + ;
[(proc_tvav - 1) / proc_tvav, ?gnPc) ] + ;
[else round(pret * cante, ?gnPc) end]
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
PARAMETERS tacriterii
EXTERNAL ARRAY tacriterii
#DEFINE crlf CHR(13)+CHR(10)
lcStringCriterii="Denumire articol\denumire\T\id_articol\nom_articol"+ crlf + ;
"Cod material\codmat\T\none\" + crlf + ;
"Serie articol\serie\T\none\" + crlf + ;
"Grupa articol\none\I\id_grupa\nom_grupa_articol" + crlf + ;
"Subgrupa articol\none\I\id_subgrupa\nom_subgrupa_articol"+ crlf + ;
"Cod bare\codbare\T\none\"+ crlf + ;
"Nr. document\nract\N\none\" + crlf + ;
"Serie document\serie_act\T\none\" + crlf + ;
"Data document\dataact\D\none\" + crlf + ;
"Nr. NIR/bon\nnir\N\none\" + crlf + ;
"Pret achizitie\pret\N|get_mask(12,gnPpret)\none\"+ crlf + ;
"Pret vz.\pretv\N|get_mask(12,gnPpret)\none\"+ crlf + ;
"Pret vz. TVA\(pretv + tvav)\N|get_mask(12,gnPpret)\none\"+ crlf + ;
"Pret valuta\pretd\N|get_mask(12,gnPPretval)\none\" + crlf + ;
"Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ;
"Intrari\cant\N|get_mask(12,gnPCant)\none\" + crlf + ;
"Iesiri\cante\N|get_mask(12,gnPCant)\none\" + crlf + ;
"Cont\cont\T\none\"+ crlf + ;
"Cont analitic\acont\T\none\"+ crlf + ;
"Data document\dataact\D\none\" + crlf + ;
"Partener\partener\T\ID_PART\nom_parteneri" + crlf + ;
"Furnizor\furnizor\T\ID_PART_FZ\nom_parteneri" + crlf + ;
"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
"Grupa gestiuni\|E|" + ;
[id_gestiune in ( ] + ;
[ select c.id_gestiune ] + ;
[ from vgest_coresp_grupe_gestiuni c ] + ;
[ where id_grupe in (select id_grupe ] + ;
[ from gest_nom_grupe ] + ;
[ where sters = 0 ] + ;
[ start with id_grupe = <<VALOARE>> ] + ;
[ connect by prior id_grupe = parent_id))\I\none\nom_grupa_gestiune] + crlf + ;
"Gestiune\none\I\id_gestiune\nom_gestiune" + crlf + ;
"Gestiune coresp.\none\I\id_gestiunec\nom_gestiune" + crlf + ;
"Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
"Responsabil\responsabil\T\ID_RESPONSABIL\nom_responsabil" + crlf + ;
"Tip rulaj\none\I\id_tip_rulaj\nom_tip_rulaj" + crlf + ;
"Tip operatie\id_set\N\none\" + crlf + ;
"Data introducerii\trunc(dataora)\D\none\"
DODEFAULT()
ENDPROC
ENDDEFINE

6
Clase/ovizrul.vc2 Normal file
View File

@@ -0,0 +1,6 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ovizrul.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*