romfast/roacontracte
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roacontracte/Clase/ferestre_contracte.vc2
Marius Mutu 8e158f082e sync SVN r17950
2026-08-03 02:05:35 +03:00

17944 lines
550 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ferestre_contracte.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
*< LIBCOMMENT: Application Wizard framework class library. />
*
DEFINE CLASS ct_contracte AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cNume.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cNume.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cDurata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cDurata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cTipc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cTipc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cValctva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cValctva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column16.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column16.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column17.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column17.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column18.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column18.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column20.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column20.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cSucursala.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.cSucursala.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column23.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column23.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column24.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column24.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column24.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_lbbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou_gri1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="but_factura" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: arata_linkuri
*m: dblclick_bind
*m: do_adauga_act_aditional
*p: cfiltru
*p: nireg
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 255,255,255
cfiltru =
cgridsortlist = grid_contracte
Height = 362
Name = "ct_contracte"
nireg = 0
Width = 800
Gridsort1.Left = 180
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 7
_ct_controller_keypress1.Name = "_ct_controller_keypress1"
*</PropValue>
ADD OBJECT '_lbbase1' AS _lbbase WITH ;
BackColor = 255,255,255, ;
Caption = "Lista contractelor", ;
ForeColor = 255,255,255, ;
Left = 8, ;
Name = "_lbbase1", ;
TabIndex = 21, ;
Top = 5
*< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" />
ADD OBJECT '_shape1' AS _shape WITH ;
Anchor = 11, ;
BackColor = 0,64,128, ;
BorderColor = 0,64,128, ;
Height = 24, ;
Left = 0, ;
Name = "_shape1", ;
Top = 0, ;
Width = 804, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 711, ;
Name = "But_excel1", ;
TabIndex = 18, ;
ToolTipText = "Fisier Excel", ;
Top = -2, ;
Visible = .T., ;
ZOrderSet = 13
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'but_factura' AS commandbutton WITH ;
Anchor = 9, ;
BackColor = 255,255,255, ;
Caption = "", ;
Height = 27, ;
Left = 770, ;
Name = "but_factura", ;
Picture = ..\comun\grafice\factura.bmp, ;
SpecialEffect = 1, ;
ToolTipText = "Factura", ;
Top = -2, ;
Width = 29
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 683, ;
Name = "But_listare1", ;
TabIndex = 17, ;
ToolTipText = "Listare", ;
Top = -2, ;
Visible = .T., ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ;
Anchor = 9, ;
Height = 27, ;
Left = 626, ;
Name = "BUT_MODIFICA1", ;
Picture = ..\comun\grafice\modific_sus.bmp, ;
TabIndex = 15, ;
ToolTipText = "Modificare", ;
Top = -2, ;
Visible = .T., ;
Width = 34
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 9, ;
Left = 596, ;
Name = "But_nou1", ;
Picture = ..\comun\grafice\nou_sus.bmp, ;
TabIndex = 14, ;
ToolTipText = "Adaugare contract", ;
Top = -2, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou_gri1' AS but_nou_gri WITH ;
Anchor = 9, ;
caction = do_adauga_act_aditional, ;
Left = 740, ;
Name = "But_nou_gri1", ;
Picture = ..\comun\grafice\nou_sus_dis.bmp, ;
TabIndex = 19, ;
ToolTipText = "Adaugare act aditional", ;
Top = -2
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
Anchor = 9, ;
Left = 534, ;
Name = "But_reset_criterii1", ;
Top = -2
*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RT", ;
Left = 565, ;
Name = "But_start_criterii1", ;
Top = -2
*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Left = 655, ;
Name = "But_sterge1", ;
TabIndex = 16, ;
ToolTipText = "Stergere", ;
Top = -2, ;
Visible = .T., ;
ZOrderSet = 9
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Anchor = 12, ;
Height = 27, ;
Left = 632, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 23, ;
Top = 331, ;
Width = 153, ;
ZOrderSet = 10, ;
Text_simplu1.ControlSource = "this.parent.parent.nIreg", ;
Text_simplu1.Height = 21, ;
Text_simplu1.Left = 76, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 72, ;
LB_SIMPLU1.Caption = "<22>nregistr<74>ri", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'grid_contracte' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 24, ;
DeleteMark = .F., ;
FontSize = 10, ;
GridLineColor = 192,192,192, ;
HeaderHeight = 34, ;
Height = 304, ;
HighlightStyle = 2, ;
Left = 8, ;
Name = "grid_contracte", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .T., ;
RecordSource = "cContracte", ;
RowHeight = 19, ;
TabIndex = 20, ;
Top = 24, ;
Width = 784, ;
ZOrderSet = 3, ;
Column1.ColumnOrder = 3, ;
Column1.ControlSource = "denumire", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "cNume", ;
Column1.ReadOnly = .T., ;
Column1.Width = 193, ;
Column2.ColumnOrder = 14, ;
Column2.ControlSource = "durata", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "cDurata", ;
Column2.ReadOnly = .T., ;
Column2.Width = 57, ;
Column3.ColumnOrder = 11, ;
Column3.ControlSource = "nume_val", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Name = "cNume_val", ;
Column3.ReadOnly = .T., ;
Column3.Width = 63, ;
Column4.ColumnOrder = 2, ;
Column4.ControlSource = "iif(tip_istoric='A',numar_aa,numar)", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Name = "cNr_ctr", ;
Column4.ReadOnly = .T., ;
Column4.Width = 98, ;
Column5.ColumnOrder = 4, ;
Column5.ControlSource = "data", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.Format = "d", ;
Column5.Name = "cData_ctr", ;
Column5.ReadOnly = .T., ;
Column5.Width = 89, ;
Column6.ColumnOrder = 9, ;
Column6.ControlSource = "valftva", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.Format = "rk", ;
Column6.InputMask = (get_mask(14,MAX(gnPc,gnPVal))), ;
Column6.Name = "cValvaluta", ;
Column6.ReadOnly = .T., ;
Column6.Width = 107, ;
Column7.ColumnOrder = 15, ;
Column7.ControlSource = "denumire_tip", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.Name = "cTipc", ;
Column7.ReadOnly = .T., ;
Column7.Width = 170, ;
Column8.ColumnOrder = 10, ;
Column8.ControlSource = "valctva", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.Format = "rk", ;
Column8.InputMask = (get_mask(14,MAX(gnPc,gnPVal))), ;
Column8.Name = "cValctva", ;
Column8.ReadOnly = .T., ;
Column8.Width = 95, ;
Column9.Alignment = 2, ;
Column9.ColumnOrder = 17, ;
Column9.ControlSource = "semnat", ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.Name = "cSemnat", ;
Column9.ReadOnly = .T., ;
Column9.Sparse = .F., ;
Column9.Width = 64, ;
Column10.Alignment = 2, ;
Column10.ColumnOrder = 18, ;
Column10.ControlSource = "abs(incetat-1)", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Name = "cIncetat", ;
Column10.ReadOnly = .T., ;
Column10.Sparse = .F., ;
Column10.Width = 72, ;
Column11.Alignment = 2, ;
Column11.ColumnOrder = 20, ;
Column11.ControlSource = "abs(inactiv-1)", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Name = "cInactiv", ;
Column11.ReadOnly = .T., ;
Column11.Sparse = .F., ;
Column11.Width = 45, ;
Column12.ColumnOrder = 8, ;
Column12.ControlSource = "descriere", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column13.ColumnOrder = 16, ;
Column13.ControlSource = "selectie", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.Name = "Column13", ;
Column13.ReadOnly = .T., ;
Column14.ColumnOrder = 6, ;
Column14.ControlSource = "numar_intern", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.Name = "Column14", ;
Column14.ReadOnly = .T., ;
Column14.Width = 86, ;
Column15.ColumnOrder = 7, ;
Column15.ControlSource = "data_intern", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.Name = "Column15", ;
Column15.ReadOnly = .T., ;
Column15.Width = 96, ;
Column16.ColumnOrder = 12, ;
Column16.ControlSource = "data_inceput", ;
Column16.FontName = "Arial", ;
Column16.FontSize = 10, ;
Column16.Name = "Column16", ;
Column16.ReadOnly = .T., ;
Column16.Width = 70, ;
Column17.ColumnOrder = 13, ;
Column17.ControlSource = "data_sfarsit", ;
Column17.FontName = "Arial", ;
Column17.FontSize = 10, ;
Column17.Name = "Column17", ;
Column17.ReadOnly = .T., ;
Column17.Width = 69, ;
Column18.ColumnOrder = 19, ;
Column18.ControlSource = "data_incetat", ;
Column18.FontName = "Arial", ;
Column18.FontSize = 10, ;
Column18.Name = "Column18", ;
Column18.ReadOnly = .T., ;
Column18.Width = 79, ;
Column19.ColumnOrder = 5, ;
Column19.ControlSource = "numar_ult_aa", ;
Column19.FontName = "Arial", ;
Column19.FontSize = 10, ;
Column19.Name = "Column20", ;
Column19.ReadOnly = .T., ;
Column19.Width = 69, ;
Column20.ColumnOrder = 1, ;
Column20.Comment = "are_link", ;
Column20.CurrentControl = "Command1", ;
Column20.DynamicCurrentControl = "iif(are_link=1,'command1','command2')", ;
Column20.FontName = "Arial", ;
Column20.FontSize = 10, ;
Column20.Name = "cAre_link", ;
Column20.ReadOnly = .T., ;
Column20.Sparse = .F., ;
Column20.Width = 51, ;
Column21.ColumnOrder = 22, ;
Column21.ControlSource = "sucursala", ;
Column21.FontName = "Arial", ;
Column21.FontSize = 10, ;
Column21.Name = "cSucursala", ;
Column21.ReadOnly = .T., ;
Column21.Width = 141, ;
Column22.ColumnOrder = 23, ;
Column22.ControlSource = "responsabil", ;
Column22.FontName = "Arial", ;
Column22.FontSize = 10, ;
Column22.Name = "Column22", ;
Column22.ReadOnly = .T., ;
Column22.Width = 112, ;
Column23.ColumnOrder = 24, ;
Column23.ControlSource = "sectie", ;
Column23.FontName = "Arial", ;
Column23.FontSize = 10, ;
Column23.Name = "Column23", ;
Column23.ReadOnly = .T., ;
Column23.Width = 83, ;
Column24.ColumnOrder = 21, ;
Column24.ControlSource = "suspendat", ;
Column24.CurrentControl = "Check1", ;
Column24.FontName = "Arial", ;
Column24.FontSize = 10, ;
Column24.Name = "Column24", ;
Column24.ReadOnly = .T., ;
Column24.Sparse = .F.
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_contracte.cAre_link.Command1' AS commandbutton WITH ;
Caption = "", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 27, ;
Left = 18, ;
Name = "Command1", ;
Picture = ..\comun\grafice\attach_mic.bmp, ;
SpecialEffect = 1, ;
Top = 72, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid_contracte.cAre_link.Command2' AS commandbutton WITH ;
Caption = "", ;
Height = 27, ;
Left = 30, ;
Name = "Command2", ;
SpecialEffect = 1, ;
Top = 60, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid_contracte.cAre_link.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Atasa- mente", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
Picture = ..\comun\grafice\attach_mic.bmp, ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cAre_link.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cData_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cData_ctr.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cDurata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Durata (Luni)", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cDurata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cInactiv.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 33, ;
Name = "Check1", ;
Top = 60, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_contracte.cInactiv.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Activ", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cIncetat.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 37, ;
Name = "Check1", ;
Top = 24, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_contracte.cIncetat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "In desfasurare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cNr_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cNr_ctr.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cNume.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cNume.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cNume_val.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Descriere", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column12.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Mod selectie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. inregistrare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inregistrare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column15.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inceput", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column16.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data sfarsit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column17.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column18.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data incetare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column18.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column20.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ultimul act ad.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column20.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column22.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column23.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column23.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column24.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
ControlSource = "suspendat", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 10, ;
Left = 10, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 47, ;
Width = 10
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_contracte.Column24.Header1' AS header WITH ;
Caption = "Suspendat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column24.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cSemnat.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 46, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 24, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_contracte.cSemnat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Semnat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cSucursala.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cSucursala.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cTipc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cTipc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cValctva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare contract (cu TVA)", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cValctva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cValvaluta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare contract (fara TVA)", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cValvaluta.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
PROCEDURE actualizeaza_grid1
Lparameters pcFiltru
Local lcFiltru
lcFiltru = pcFiltru
If Empty(lcFiltru)
lcFiltru = [1=2]
Endif
save_grid_tag(This.grid_contracte)
poCtr.ca_baza1.cfiltru = lcFiltru
poCtr.ca_baza1.afisare()
Select cContracte
If Reccount()>0
This.nireg = Reccount()
Else
This.nireg = 0
Endif
restore_grid_tag(This.grid_contracte)
If Reccount('cContracte')>0
Select cContracte
Locate For id_ctr = goContract.id_ctr
If !Found()
Go Top
Endif
This.grid_contracte.SetFocus()
Endif
ENDPROC
PROCEDURE arata_linkuri
DO arata_linkuri IN oproceduri_atasamente.prg
this.grid_contracte.Refresh
ENDPROC
PROCEDURE dblclick_bind
loGrid = this.grid_contracte
For j = 1 To loGrid.ColumnCount
*loHeader = loGrid.Columns(j).Header1
*Bindevent(loHeader, "DblClick", This, "grid_sort")
IF TYPE('THIS.grid_contracte.COLUMNS[J].Text1')<>'U'
BINDEVENT(THIS.grid_contracte.COLUMNS[J].Text1,"DblClick",THIS,"inainte_de_do_modifica")
ENDIF
Endfor
ENDPROC
PROCEDURE do_adauga
Local lcAlias, lnId_ctr, lcNumar, llNou
lcAlias = This.grid_contracte.RecordSource
Store '' To lcNumar
Store 0 To lnId_ctr
llNou = .T.
Release poGeneratorNumere
Do declarare_generator_numere In oproceduri_roacontracte.prg
poGeneratorNumere.creeaza_cursor_serii(13)
pnGNnumar = poGeneratorNumere.aloca_numar(13)
lcNumar = Alltrim(Str(pnGNnumar))
lnId_ctr = adauga_contract(lcAlias, lcNumar)
pnGNnumar=0
Select (lcAlias)
Scatter Name goContract Memo Blank
*SCATTER MEMO BLANK TO aContract
goContract.id_ctr = lnId_ctr
goContract.id_tip_ctr = Iif(gnParametru_prog=1,-1,-2)
goContract.denumire_tip = Iif(gnParametru_prog=1,'CLIENT','FURNIZOR')
goContract.numar = lcNumar
goContract.data = TTOD(Get_Ora())
***------------
Do make_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele
DO make_crsNote In oproceduri_roacontracte.prg
DO make_crsValute In oproceduri_roacontracte.prg
DO make_crsSectii In oproceduri_roacontracte.prg
DO make_crsTip_ctr In oproceduri_roacontracte.prg
DO make_crsSelectii In oproceduri_roacontracte.prg
**--
Select cCtrScadentar
Select crsAtasamente
Select cCtrArt
lcCtrN = Createobject('frm_contracte_nou',llNou)
lcCtrN.lb_titlu_alb_b121.Caption = "Contract nou"
lcCtrN.Show(1)
If buton = 1
Select (lcAlias)
APPEND BLANK
GATHER NAME goContract MEMO
ENDIF
Do inchide_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele
DO inchide_crsNote In oproceduri_roacontracte.prg
DO inchide_crsValute In oproceduri_roacontracte.prg
DO inchide_crsSectii In oproceduri_roacontracte.prg
DO inchide_crsTip_ctr In oproceduri_roacontracte.prg
DO inchide_crsSelectii In oproceduri_roacontracte.prg
This.grid_contracte.Refresh()
This.grid_contracte.SetFocus()
ENDPROC
PROCEDURE do_adauga_act_aditional
Local lcAlias
lcAlias = This.grid_contracte.RecordSource
Select cContracte
Scatter Name loRec Blank
Do Adauga_Modifica_Inregistrare With 'actaditional',loRec,,"INSERT" In oproceduri_ams.prg
this.do_cauta()
ENDPROC
PROCEDURE do_cauta
Parameters tlReset
Local lcFiltru
Store '' To lcFiltru
*!* If This.ck_nume.Value = 1
*!* lcFiltru = lcFiltru + This.ck_nume.filtru
*!* Endif
*!* If This.ck_nr_ctr.Value = 1
*!* lcFiltru = lcFiltru + This.ck_nr_ctr.filtru
*!* Endif
*!* If This.ck_data_ctr.Value = 1
*!* lcFiltru = lcFiltru + This.ck_data_ctr.filtru
*!* Endif
*!* If This.ck_nume_val.Value = 1
*!* lcFiltru = lcFiltru + This.ck_nume_val.filtru
*!* Endif
*!* If This.ck_denumire_tip.Value = 1
*!* lcFiltru = lcFiltru + This.ck_denumire_tip.filtru
*!* Endif
*!* If This.ck_tipc.Value = 1
*!* lcFiltru = lcFiltru + This.ck_tipc.filtru
*!* ENDIF
*!* If This.ck_responsabil.Value = 1
*!* lcFiltru = lcFiltru + This.ck_responsabil.filtru
*!* ENDIF
*!* If This.ck_sectie .Value = 1
*!* lcFiltru = lcFiltru + This.ck_sectie .filtru
*!* Endif
*!* Do Case
*!* Case This.optIncetat.Value = 1
*!* lcFiltru = lcFiltru + [ and c.incetat = 0]
*!* Case This.optIncetat.Value = 2
*!* lcFiltru = lcFiltru + [ and c.incetat = 1]
*!* Case This.optIncetat.Value = 3
*!* lcFiltru = lcFiltru + [ and (c.incetat = 0 or c.incetat = 1)]
*!* Endcase
*!* Do Case
*!* Case This.optInactiv.Value = 1 && active
*!* lcFiltru = lcFiltru + [ and c.inactiv = 0]
*!* Case This.optInactiv.Value = 2 && inactive
*!* lcFiltru = lcFiltru + [ and c.inactiv = 1]
*!* Case This.optInactiv.Value = 3 && toate
*!* lcFiltru = lcFiltru + [ and (c.inactiv = 0 or c.inactiv = 1)]
*!* Endcase
*!* If This.ck_istoric.Value = 1 AND This.ck_aa.Value = 0
*!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'I')]
*!* Endif
*!* If This.ck_aa.Value = 1 AND This.ck_istoric.Value = 0
*!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'A')]
*!* ENDIF
*!* IF This.ck_istoric.Value = 0 AND This.ck_aa.Value = 0
*!* lcFiltru = lcFiltru + [ and c.tip_istoric = 'C']
*!* ENDIF
*!* IF This.ck_istoric.Value = 1 AND This.ck_aa.Value = 1
*!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'A' or c.tip_istoric = 'I')]
*!* ENDIF
If !'ACT ADITIONAL'$Upper(Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro))
lcFiltru = [ AND c.tip_istoric <> 'A' ] + lcFiltru
Endif
If !'ISTORIC'$Upper(Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro))
lcFiltru = [ AND c.tip_istoric <> 'I' ] + lcFiltru
Endif
lcCondSucursala = Iif(!Isnull(gnIdSucursala), ' AND c.id_sucursala = '+Alltrim(Str(gnIdSucursala)), '')
If Len(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty)>0
lcFiltru = lcFiltru+" and (" + Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty) + ")"
Endif
If !Empty(lcFiltru)
lcFiltru = lcFiltru + lcCondSucursala
Endif
If !Empty(lcFiltru)
lcFiltru = Substr(lcFiltru,6)
Else
lcFiltru = []
Endif
This.cFiltru = lcFiltru
*!* MESSAGEBOX(lcFiltru)
*!* _cliptext=lcFiltru
This.actualizeaza_grid1(lcFiltru)
If Reccount('cContracte')=0
If !tlReset
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
Endif
Select cContracte
Scatter Name goContract Memo Blank
Endif
Select cContracte
This.grid_contracte.SetFocus()
ENDPROC
PROCEDURE inainte_de_do_excel
DO export_excel_grid WITH this.grid_contracte
ENDPROC
PROCEDURE inainte_de_do_listare
*Thisform.AlwaysOnTop = .F.
Private plToate, pcDataOra && toate contractele
Store .F. To plToate
pcDataOra = get_ora(2)
lcmenu="\<Fisa contractului;\<Fisa contractului pentru contractele selectate;\<Centralizator;\<Lista contractelor;\-;Situatia facturarii contractelor-rate;\-;Situatia facturat-incasat"
lnx=xmenu(lcmenu)
Do Case
Case lnx=1
save_grid(This.grid_contracte)
Do make_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele
Do make_cCtrActeAditionale In oproceduri_roacontracte.prg
Select cContracte
Set Filter To id_ctr = goContract.id_ctr
Select cCtrArt
Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx'
Select cCtrScadentar
Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx'
Select cCtrFactGarant
Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx'
Select cCtrActeAditionale
Index On id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx'
Select cCtrFacturatIncasat
Index On id_ctr To Addbs(gcTempPath) + 'cCtrFacturatIncasat.idx'
Select cContracte
Set Relation To
Select cContracte
Set Relation To id_ctr Into cCtrArt Additive
Select cContracte
Set Relation To id_ctr Into cCtrFactGarant Additive
Select cContracte
Set Relation To id_ctr Into cCtrScadentar Additive
Select cContracte
Set Relation To id_ctr Into cCtrActeAditionale Additive
Select cContracte
Set Relation To id_ctr Into cCtrFacturatIncasat Additive
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale, cCtrFacturatIncasat
lcSetData = Set('date')
Set Date German
Select cContracte
Report Form fisa_contractului.frx To Printer Prompt Preview
Set Date To &lcSetData
Select cContracte
Set Filter To
Set Relation Off Into 'cCtrArt'
Set Relation Off Into 'cCtrFactGarant'
Set Relation Off Into 'cCtrScadentar'
Set Relation Off Into 'cCtrActeAditionale'
Set Relation Off Into 'cCtrFacturatIncasat'
If Used('cCtrScadentar')
Use In cCtrScadentar
Endif
If Used('cCtrFactGarant')
Use In cCtrFactGarant
Endif
If Used('cCtrArt')
Use In cCtrArt
Endif
If Used('cCtrLink')
Use In cCtrLink
Endif
If Used('cCtrActeAditionale')
Use In cCtrActeAditionale
Endif
If Used('cCtrFacturatIncasat')
Use In cCtrFacturatIncasat
Endif
restore_grid(This.grid_contracte)
Case lnx = 2
plToate = .T.
Do make_cursoare_ctr With plToate,This.cfiltru In oproceduri_roacontracte.prg && imi creeaza cursoarele
Do make_cCtrActeAditionale With plToate In oproceduri_roacontracte.prg
Select cCtrArt
Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx'
Select cCtrScadentar
Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx'
Select cCtrFactGarant
Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx'
Select cCtrActeAditionale
Index On id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx'
Select cCtrFacturatIncasat
Index On id_ctr To Addbs(gcTempPath) + 'cCtrFacturatIncasat.idx'
Select cContracte
Set Relation To
Select cContracte
Set Relation To id_ctr Into cCtrArt Additive
Select cContracte
Set Relation To id_ctr Into cCtrFactGarant Additive
Select cContracte
Set Relation To id_ctr Into cCtrScadentar Additive
Select cContracte
Set Relation To id_ctr Into cCtrActeAditionale Additive
Select cContracte
Set Relation To id_ctr Into cCtrFacturatIncasat Additive
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale, cCtrFacturatIncasat
lcSetData = Set('date')
Set Date German
Select cContracte
Report Form fisa_contractului.frx To Printer Prompt Preview
Set Date To &lcSetData
Select cContracte
Set Filter To
Set Relation Off Into 'cCtrArt'
Set Relation Off Into 'cCtrFactGarant'
Set Relation Off Into 'cCtrScadentar'
Set Relation Off Into 'cCtrActeAditionale'
Set Relation Off Into 'cCtrFacturatIncasat'
If Used('cCtrScadentar')
Use In cCtrScadentar
Endif
If Used('cCtrFactGarant')
Use In cCtrFactGarant
Endif
If Used('cCtrArt')
Use In cCtrArt
Endif
If Used('cCtrLink')
Use In cCtrLink
Endif
If Used('cCtrActeAditionale')
Use In cCtrActeAditionale
Endif
If Used('cCtrFacturatIncasat')
Use In cCtrFacturatIncasat
Endif
Case lnx = 3
Private pcTitlu
pcTitlu = "Centralizator contracte"
goExport.export2frx(This.grid_contracte.RecordSource,[rContracte_centralizator])
Case lnx=4
Private pcTitlu
pcTitlu = "Lista contractelor"
goExport.export2frx(This.grid_contracte.RecordSource,[rContracte])
Case lnx = 6
If Reccount('cContracte')=0
Return
Endif
Private pcDataOra, pcFiltru, pnGroupResponsabil, pcGroup1, pnRestDeFacturat
pcDataOra = get_ora(2)
pcFiltru = This.cfiltru
Store 0 To pnGroupResponsabil, pnRestDeFacturat
pcGroup1 = '1=1'
*---
lorfm = Createobject('frm_restdefacturat_mic')
lorfm.Show(1)
If buton = 2
Return
Endif
If pnGroupResponsabil = 1
pcGroup1 = 'crsrestdefacturat.id_responsabil'
Else
pcGroup1 = '1=1'
Endif
If pnRestDeFacturat=1
pcFiltru = pcFiltru + [ and round(sel2.valrata, ?gnPc) - round(sel2.valfact, ?gnPc) <> 0 ]
Endif
lcSel = [{call pack_crm.restdefacturat(?pcFiltru, ?pnGroupResponsabil)}]
lcCursor = 'crsRestDeFacturat'
if goExecutor.oExecuta(lcSel, lcCursor)
goExport.export2frx(lcCursor,[rctrrestdefact])
Use In (lcCursor)
endif
Case lnx = 8
Select cContracte
If Reccount('cContracte')=0
Return
Endif
Private pcFiltru,pcTitlu,pcGrup,pnGrupResponsabil,pnFacturatIncasat
Store 0 To pnGrupResponsabil, pnFacturatIncasat
pcGrup = '1=1'
pcFiltru = This.cfiltru
lorfm = Createobject('frm_facturat_incasat')
lorfm.Show(1)
If buton = 2
Return
Endif
If pnGrupResponsabil = 1
pcGrup = 'cFacturi.id_responsabil'
Else
pcGrup = '1=1'
Endif
lcSelect = [select c.id_ctr, p.denumire,i.id_part,c.contract,c.numar,c.data,]+;
IIF(pnGrupResponsabil = 1,[i.id_responsabil,],[]) +;
Iif(pnGrupResponsabil = 1,[r.denumire],[''])+[ as nresp,v.nume_val,v.moneda_nationala,c.valftva, ] +;
[ SUM(] + Iif(gnParametru_prog = 1,[i.debit],[i.credit]) + [) as tot_fact, ] +;
[ SUM(] + Iif(gnParametru_prog = 1,[i.credit],[i.debit]) + [) as tot_achit, ] +;
[ cast(0 as number(20,4)) as sold_contract, cast(0 as number(20,4)) as sold_part ] +;
[ from ireg_parteneri i join vcontracte_toate c on i.id_ctr=c.id_ctr ] +;
[ LEFT JOIN NOM_PARTENERI P ON I.ID_PART = P.ID_PART ] +;
IIF(pnGrupResponsabil = 1,[ LEFT JOIN NOM_PARTENERI R ON I.ID_RESPONSABIL = R.ID_PART ],[]) +;
[ LEFT JOIN VNOM_VALUTE V ON I.ID_VALUTA = V.ID_VALUTA ] +;
[ LEFT JOIN VNOM_VENCHEL VC ON I.ID_VENCHELT = VC.ID_VENCHELT ] +;
[ where ] + pcFiltru +;
[ group by c.id_ctr, p.denumire,i.id_part,c.contract,c.numar,c.data,] +;
IIF(pnGrupResponsabil = 1,[i.id_responsabil,],[]) +;
Iif(pnGrupResponsabil = 1,[r.denumire,],[]) +;
[ v.nume_val,v.moneda_nationala,c.valftva ] +;
[ order by v.nume_val, c.data, c.numar]
lcCursor = [cFacturi]
if goExecutor.oExecuta(lcSelect,lcCursor)
pcTitlu = [Situa<75>ie facturat-<2D>ncasat]
If pnFacturatIncasat = 1
Select (lcCursor)
Set Filter To tot_fact - tot_achit <> 0
Else
Select (lcCursor)
Endif
goExport.export2frx(lcCursor,[rap_facturat_incasat])
Use In (lcCursor)
endif
Endcase
*Thisform.AlwaysOnTop = .T.
ENDPROC
PROCEDURE inainte_de_do_modifica
Do make_cursoare_ctr In oproceduri_roacontracte.prg && creeaza cursoarele
DO make_crsNote In oproceduri_roacontracte.prg
DO make_crsValute In oproceduri_roacontracte.prg
DO make_crsSectii In oproceduri_roacontracte.prg
DO make_crsTip_ctr In oproceduri_roacontracte.prg
DO make_crsSelectii In oproceduri_roacontracte.prg
**--
Select cCtrScadentar
Select crsAtasamente
Select cCtrArt
loctrn = Createobject('frm_contracte_nou')
loctrn.Show(1)
Do inchide_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele
DO inchide_crsNote In oproceduri_roacontracte.prg
DO inchide_crsValute In oproceduri_roacontracte.prg
DO inchide_crsSectii In oproceduri_roacontracte.prg
DO inchide_crsTip_ctr In oproceduri_roacontracte.prg
DO inchide_crsSelectii In oproceduri_roacontracte.prg
ENDPROC
PROCEDURE inainte_de_do_sterge
PRIVATE pnId_ctr, pnTip
LOCAL lnRaspuns, lcSql, lnSucces, lcId, lcId_util
STORE 0 TO lnRaspuns, lnSucces
STORE '' TO lcSql
IF !EMPTY(goContract.id_ctr)
lnRaspuns = amessage('Doriti sa stergeti contractul?',4+32,_SCREEN.CAPTION)
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
RETURN
ENDIF
lcId = ALLTRIM(STR(goContract.id_ctr))
lcId_util = ALLTRIM(STR(gnIdUtil))
lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare")
RETURN
ENDIF
THIS.actualizeaza_grid1()
ENDIF
ENDPROC
PROCEDURE Init
DoDefault()
This.dblclick_bind()
Select cContracte
If Reccount()>0
This.nireg = Reccount()
Else
This.nireg = 0
Endif
This.clb_tx_simplu1.text_simplu1.Refresh
If gnParametru_prog=2
This.but_factura.Visible = .F.
Endif
ENDPROC
PROCEDURE but_factura.Click
lnOptiune = xmenu('Factura lei;Invoice;Factura fiscala in valuta')
DO CASE
CASE m.lnOptiune = 1
DO facturare_contracte WITH 'FACTURA LEI' IN oproceduri_facturare.prg
CASE m.lnOptiune = 2
DO facturare_contracte WITH 'INVOICE' IN oproceduri_facturare.prg
CASE m.lnOptiune = 3
DO facturare_contracte WITH 'FACTURA VALUTA' IN oproceduri_facturare.prg
ENDCASE
ENDPROC
PROCEDURE But_reset_criterii1.Click
Local llcautare
Thisform.pagefr1.page2.ct_contracte1.filtru_pretty = ""
Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro = ""
Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro_full = ""
If Type ("thisform.pagefr1.page2.ct_contracte1.but_start_criterii1") = 'O'
Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.ToolTipText=Thisform.pagefr1.page2.ct_contracte1.filtru_pretty
Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.SetFocus
Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.pornit = "nu"
Endif
DODEFAULT()
lcfiltru = [Stare;nofiled;1;]
*!* llcautare = This.Parent.but_start_criterii1.lcautare
*!* This.Parent.but_start_criterii1.lcautare = .F.
Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru)
*!* This.Parent.but_start_criterii1.lcautare = llcautare
*Thisform.pagefr1.page2.ct_contracte1.do_cauta(.T.)
Thisform.pagefr1.page2.ct_contracte1.Refresh
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
Parameters tacriterii
External Array tacriterii
#Define crlf Chr(13)+Chr(10)
SELECT cContracte
lcStringCriterii = "Data ctr.\data\D\none\" + crlf + ;
"Nr.ctr.\c.numar_aa\T\none\" + crlf + ;
"Responsabil\c.responsabil\T\c.ID_RESPONSABIL\nom_parteneri" + crlf + ;
"Partener\c.denumire\T\c.ID_PART\nom_parteneri" + crlf + ;
"Valoarea contractului\c.valftva\N\none" + crlf + ;
"Tip contract\c.denumire_tip\T\c.ID_TIP_CTR\tipuri_contracte" + crlf + ;
"Articole\|E|" + ;
"instr(',' || c.ids_articol || ',', ','||<<VALOARE>>||',') > 0"+;
"\I\none\nom_articol" + crlf + ;
"Valuta\c.nume_val\T\c.ID_VALUTA\nom_valuta" + crlf + ;
"Stare\nofiled\A\In desfasurare si active,Incetate,Active,Inactive,Suspendate,Nesuspendate,Toate#c.incetat=0 and c.inactiv=0,c.incetat=1,c.inactiv=0,c.inactiv=1,c.suspendat=1,c.suspendat=0,1=1\" + crlf + ;
"Istoric\nofiled\E\1=1" + crlf + ;
"Act aditional\nofiled\E\1=1" + crlf + ;
"Sectie\c.sectie\T\c.ID_SECTIE\nom_sectie"
DoDefault()
ENDPROC
PROCEDURE grid_contracte.AfterRowColChange
LPARAMETERS nColIndex
LOCAL lcTabel
lcTabel = this.RecordSource
SELECT (lcTabel)
SCATTER NAME goContract MEMO
ENDPROC
PROCEDURE grid_contracte.cAre_link.Command1.Click
this.Parent.Parent.Parent.arata_linkuri()
ENDPROC
PROCEDURE grid_contracte.cAre_link.Command2.Click
this.Parent.Parent.Parent.arata_linkuri()
ENDPROC
PROCEDURE grid_contracte.cNume.Text1.RightClick
Private plToate, pcDataOra
Store .F. To plToate
pcDataOra = get_ora(2)
lcmenu = "Fisa contractului;Lista facturilor pentru contractul selectat"
lnx = xmenu(lcmenu)
Do Case
Case lnx=1
save_grid(This.Parent.Parent.Parent.grid_contracte)
Do make_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele
Do make_cCtrActeAditionale In oproceduri_roacontracte.prg
Select cContracte
Set Filter To id_ctr = goContract.id_ctr
Select cCtrArt
Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx'
Select cCtrScadentar
Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx'
Select cCtrFactGarant
Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx'
Select cCtrActeAditionale
Index On id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx'
Select cCtrFacturatIncasat
Index On id_ctr To Addbs(gcTempPath) + 'cCtrFacturatIncasat.idx'
Select cContracte
Set Relation To
Select cContracte
Set Relation To id_ctr Into cCtrArt Additive
Select cContracte
Set Relation To id_ctr Into cCtrFactGarant Additive
Select cContracte
Set Relation To id_ctr Into cCtrScadentar Additive
Select cContracte
Set Relation To id_ctr Into cCtrActeAditionale Additive
Select cContracte
Set Relation To id_ctr Into cCtrFacturatIncasat Additive
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale, cCtrFacturatIncasat
lcSetData = Set('date')
Set Date German
Select cContracte
Report Form fisa_contractului.frx To Printer Prompt Preview
Set Date To &lcSetData
Select cContracte
Set Filter To
Set Relation Off Into 'cCtrArt'
Set Relation Off Into 'cCtrFactGarant'
Set Relation Off Into 'cCtrScadentar'
Set Relation Off Into 'cCtrActeAditionale'
Set Relation Off Into 'cCtrFacturatIncasat'
If Used('cCtrScadentar')
Use In cCtrScadentar
Endif
If Used('cCtrFactGarant')
Use In cCtrFactGarant
Endif
If Used('cCtrArt')
Use In cCtrArt
Endif
If Used('cCtrLink')
Use In cCtrLink
Endif
If Used('cCtrActeAditionale')
Use In cCtrActeAditionale
Endif
If Used('cCtrFacturatIncasat')
Use In cCtrFacturatIncasat
Endif
restore_grid(This.Parent.Parent.Parent.grid_contracte)
Case lnx = 2
llContract = .T.
Do Case
Case gnParametru_prog = 1
Do lans_ireg_parteneri With .F., gcCont411, .T.,,,,,llContract
Case gnParametru_prog = 2
Do lans_ireg_parteneri With .F.,'401', .F.,,,,,llContract
Endcase
Endcase
ENDPROC
PROCEDURE grid_contracte.Init
this.SetAll("DynamicBackColor","iif(inactiv=1,RGB(200,200,200),RGB(255,255,255))","Column")
this.SetAll("DynamicForeColor","iif(tip_istoric='I',RGB(0,128,0),IIF(tip_istoric='A',RGB(0,0,128),RGB(0,0,0)))","Column")
ENDPROC
ENDDEFINE
DEFINE CLASS ct_date_generale AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="outlook2003bar1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol2" UniqueID="" Timestamp="" />
*<PropValue>
BackColor = 255,255,255
Height = 401
Name = "ct_date_generale"
Width = 800
*</PropValue>
ADD OBJECT 'outlook2003bar1' AS outlook2003bar WITH ;
Anchor = 7, ;
Left = 5, ;
Name = "outlook2003bar1", ;
Top = 1, ;
Panes.ErasePage = .T., ;
Panes.Height = 328, ;
Panes.Name = "Panes", ;
Panes.PageCount = 7, ;
Panes.Pane1.Caption = "Date generale", ;
Panes.Pane1.Name = "Pane1", ;
Panes.Pane1.picture16 = Email Envelope 16.png, ;
Panes.Pane1.picture24 = Email Envelope 24.png, ;
Panes.Pane2.Caption = "Obiectul si valoarea contractului", ;
Panes.Pane2.Name = "Pane2", ;
Panes.Pane2.picture16 = Contacts 16.png, ;
Panes.Pane2.picture24 = Contacts 24.png, ;
Panes.Pane3.Caption = "Termene de facturare si achitare", ;
Panes.Pane3.Name = "Pane3", ;
Panes.Pane3.picture16 = Favourites 16.png, ;
Panes.Pane3.picture24 = Favourites 24.png, ;
Panes.Pane4.Caption = "Termene de livrare/receptie si garantii", ;
Panes.Pane4.Enabled = .F., ;
Panes.Pane4.Name = "Pane4", ;
Panes.Pane4.picture16 = Calendar Multiweek 16.png, ;
Panes.Pane4.picture24 = Calendar Multiweek 24.png, ;
Panes.Pane5.Caption = "Facturare", ;
Panes.Pane5.Name = "Pane5", ;
Panes.Pane5.picture16 = Games 16.png, ;
Panes.Pane5.picture24 = Games 24.png, ;
Panes.Pane6.Caption = "Clauze speciale si observatii", ;
Panes.Pane6.Name = "Pane6", ;
Panes.Pane6.picture16 = Help 2 16.png, ;
Panes.Pane6.picture24 = Help 2 24.png, ;
Panes.Pane7.Caption = "Documente atasate", ;
Panes.Pane7.Name = "Pane7", ;
Panes.Pane7.picture16 = Music Player 1 16.png, ;
Panes.Pane7.picture24 = Music Player 1 24.png, ;
Panes.Top = 33, ;
overflowpanel.MenuButton.imgPicture.Height = 16, ;
overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ;
overflowpanel.MenuButton.imgPicture.Width = 16, ;
overflowpanel.MenuButton.Name = "MenuButton", ;
overflowpanel.Name = "overflowpanel", ;
SplitBar.imgSplitter.Height = 3, ;
SplitBar.imgSplitter.Name = "imgSplitter", ;
SplitBar.imgSplitter.Width = 35, ;
SplitBar.Name = "SplitBar", ;
Panel.Name = "Panel", ;
Splitter.Name = "Splitter", ;
Title.lblCaption.Name = "lblCaption", ;
Title.linBorder.Name = "linBorder", ;
Title.Name = "Title"
*< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" />
ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol1' AS olecontrol WITH ;
Anchor = 15, ;
Height = 328, ;
Left = 0, ;
Name = "Olecontrol1", ;
Top = 0, ;
Width = 198
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAigAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA8BAAAAAAAABwAAAAIAAAD+////BAAAAAUAAAAGAAAACQAAAAgAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAAB3FAAA5iEAALE8wWoBAAYAIgAAAD0AMgCNAQAACAAAAHFIHwAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTEBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaNYaADwAAAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwAAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAuQAoAAABMYWJlbEVkaXQACQAAAEkKAAAAAQAAAAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAQAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAA4AAABQYXRoU2VwYXJhdG9yAAoAAABIAAAAAAEAAABcDAAAAE9MRURyYWdNb2RlAAkAAABJCgAAAAAAAAAMAAAAT0xFRHJvcE1vZGUACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsAAAFAEBKHwAGAAAAAAAAAAUAAIBs5xIAAQAAAFwAH97svQEABQCx5xIAA1LjC5GPzhGd4wCqAEu4UQEAAACQAURCAQAFQXJpYWxCAV0gWwB4AxUASMIaADUAbAB7AD0AYwBkAFIAJgBhAEYAIQBaAFoAdQBbAEwAfQAtADkAKwBlAAkAAABJCgAAAAAAAAAAJQB5AEkAeAA5AGoAXQB5AFUANgBgAHsAPQB0ADYAQQBzADIAWgB4AEoAMwBFAFUAKgA0AEMAXQB9AFcAdgBQAHQALABeAD8AVQBbACgAQwAoAHMAcABaAHUAYgBtAC4ANAAlAGIALgBDAHoAMgA9AHgAQwBYAFEAQABBACUAagBQAFAARQBlAC0AKwBtACgAXgBdAE8APQBxAEEAawBBAHMAYQB7AHEALgAhAE8ARABzAEMATgBYAFEAXgB9AEAAMgBbADQAPQBhAEUAMQBTAHYAawBCACgAVAAsAHMAaABtAFgAQwA/ACgAMwBYAFEAYABZAHcAQAA2AF8AQwB0AGUAJQBrAHoAWABeAG4AOABAAGoALQB6AGEAWABdAEgAdwBOAFMAVABxAE0AeABFAD0AQABZAD0AKQApAFcAJQBvACYAcwBpADIAZQA0AHsAJABhAD0ASQBNACUANgA/AGUAdgBhAGwANgB4AHUAcgB3AGMAQgBiAHUAdwAuACUAcgBwAFYAOQArAFQAbgBTAC0AbgAsAGUATABDAFYARgBvAGwAJgAhAGwAMABWAD8A" />
ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol2' AS olecontrol WITH ;
Height = 150, ;
Name = "Olecontrol2", ;
Visible = .F., ;
Width = 200
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+////BQAAAAYAAAAHAAAACAAAAAkAAAAKAAAACwAAABYAAAANAAAADgAAAA8AAAAQAAAAEQAAABIAAAATAAAAFAAAABUAAAAEAAAAFwAAABgAAAD+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAAABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAADikAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAFcAAAAAAAAAAQAAAP7///8DAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9cAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAJAAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADkzNjgyNjVFLTg1RkUtMTFkMS04QkUzLTAwMDBGODc1NERBMSQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RQEAAIAMAAAASW1hZ2VIZWlnaHQACQAAAEkKAAAAEAAAAAsAAABJbWFnZVdpZHRoAAkAAABJCgAAABAAAAANAAAAVXNlTWFza0NvbG9yAAUAAABMAQAAAABJCgAAABgAAAALAAAASW1hZ2V3aWR0aAAJAAAASQoAAAAYAAAADQAAI38kLJGF0RGxagDA8Cg2KCFDNBIIAAAA7QMAAO0DAACAfuHmAAAGAAgAAAAQABAAwMDAAP//AAAB782rAAAFAOBLHwAGAAAA/////wUAAIAAAAAADAAAAAETAAAARABhAHQAZQBsAGUAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABEAAAAEMAYQBpAHgAYQAgAGQAZQAgAGUAbgB0AHIAYQBkAGEAAQ4AAABDAGEAaQB4AGEAIABkAGUAIABzAGEA7QBkAGEAAQ4AAABJAHQAZQBuAHMAIABlAG4AdgBpAGEAZABvAHMAAQ8AAABJAHQAZQBuAHMAIABlAHgAY///5I50/+3h/+bU/tjE/cy2/sSr67+yT6rnA7P/D5H+XpTShn98qKio4ODg+/v7////55N4/MWq+7ma+8au/+LR/+jW8trTMdL1AMf/B7P+H474PHmsg4ODtra25eXl+/v79+Tf/fDj+97P8KOH85Ry/MCl/cCniMbMBNz+AMH/DK79I4/5SXighoaGubm56enp/////O3d//bs++nh8aB+/9/G/9vC+c65bNjkAtv/AL//JanwXozCcXN5jIyMxsbG/////////OjX/u/i+7uY/9S0/97D/+XL793ORt3xJdTzi6DITl7aID3ZX2B/qamp//////////38+eXa97OT/93G/+XK/+HE/+DB2eDYfrPMe4fvRGv/EUT/Hj3UtLS0/////////////v797rKg4o555peC8bik+9vI/9vGt3N2gJTwVXr/OGD+Xnbe3Nzc/////////////////////v39+enl7Lqs5J6K435e2aqhubvfg5btoazr3d/p+Pj4BwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398/Pz6Ojo5+fn6+vr8fHx+Pj4/f39/////////////////////////v7+/Pz89PT01tbWsrKyqKiosrKyvb29y8vL2tra5eXl7+/v+fn5/v7+////////9/f34uLi2Lmt4LGhx56QsYBxn3ZqkHt1i4aFlZWVpaWlvr6+4ODg+fn5/////f39zdnhmqu2k46R/9/O//fs/u/i+9/O88Sx3aOQv4FvpnFjkoaCwsLC8fHx////9PT0VazcDrz+U6HC+tfH//Dl/dfI/tW9/9zA/+XL//Df+93Mp3tvuLi47u7u/v7+stHlFbLzHcv/dcTS/+bX//Pr/eTc/dG9/s+0/+LJ//jt/eTTr4R4u7u78PDw+/v7b7viEcT+Mcj2tc7I//Pp/uba/dC9/c22/cy1/cmy/smq/drFpH1wubm57+/v5+7zNrnrGMv/S8To693N//38/eDV/dfH/c+7/c+5/Myz/9a689HAf3yCsLCw6+vrvtrrL8n6INH/e8LV//Lm//z7/+ff/+jh/ePa/dfG/ciu/9zF39DCVpe1qqqq6Ojols3oO9j/Ndb+p8PF+e3p9erm89jO+NbK/drO/dnM/dfG/+PSzdvNZKrCqqqq5+fngcfoTeT/Rt3+qry75byo17OmyZyQxLa0/f///////////OznwdrOba7Gra2t6Ojods3tZvP/U9/7l+P2+f32//Hh9MKvzquh////////////8eHbuNfWdq3FsbGx6urqgs3ubOr8aer8atz3huX6z+7x+trJ2L60////////////9ePax9rae6rEwsLC8PDw9fr90Of2sNvwktLscsnrZdLypNfhybes8ufc8+PW4drS3MjA3uDdkrvV4uLi+Pj4/////////////////v7++Pz+4fD5gsTlhPT1gvT2cebxaafIq8bY1uTt+vr6/v7+////////////////////////////1en2h9Dud9jxcs3sz93m9fX1/v7+////////CAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////+vr67u7u6Ojo8fHx/Pz8/////////////////////v7++fn59/f3+vr6/v7+////7e3twsLCrKyswcHB4uLi8vLy+Pj4/f39////////9vb23d3dy8vL1dXV5+fn8vLy3J2K3KSIm3Bjh4eHqampwsLC2NjY8/Pz/////v7+y9rkfqnBg4ySk5OTrKyswL296IRj//jR+d+5qXFekW1jmXtzr6+v5+fn////9/f3Wa7dGr74JrHmQZC4YoCRjXl1+Jhw/ujB//DI/ezF/O3G2a+Qo6Oj5OTk////y97pFrX1KcX5Mdj/Kdn/SbHSw4p7/8Sb/du0/d63/uS9//PMyZp/p6en5ubm/v7+gcDjEsL9NMj3Ref/dcHM7LCL/7+W/Mqk/Mym/dGr/dav/+W+uoZwo6Oj5eXl+Pn5TrvpHMr/Pcz3Wuv6gM3S5sWj/8We/LuV+76Y+8Se/Mmj/9avx410o6Oj5OTk3OnxNcT1KNL/SdH2s8zBn8O8hL6+srSh+saf/LKM+7eS/riQ/bqU15J1ra2t6enpttfrPtX8NdX/VtX04+bU/8ur9cSns6yd1sCi/7aO/6B43KOGqsi9mYB6t7e37u7un9TrT+D+Rdv+cNr04tC89cq4/9bB08i6s7+z/6yB1YVuitDemPf3f5uovLy87+/vjs/tafL/Wub+ft35ydvT7NvQ//Ho3NjPmtTgn6uzjsjch9v0o9/tfaS1xMTE8vLyodXwadr0Z+b6Zdv2ct/6h+P2neLztubvvvb+vfn/vvX/seHwv+TsiKe61dXV+Pj4/f7+8Pj8zub1rNvwk9XubsjsYNHxXNj2bNz3f973lOH4td3uw+DusMfW7u7u/f39////////////////////////9fv9i9HuePj/dfr/XuL5iLDJvNLh8PP1/f39////////////////////////////////4fD5n9jwhdLtjMrn7e3t+vr6////////////CQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+/Pz89/f37e3t5ubm5eXl5eXl6+vr9fX1+/v7/v7+////////////////////+Pj44+PjzMzMtbW1pqampKSkpaWlsLCwyMjI39/f9fX1////////////////////5N3ss6XFlnHApWvojmLBoGjgkWPHfW+Ni4CXsrKy6Ojo/////v7+9fX16Ojo6Ojot4Txs3H/tXb9vIP/vIH/vIL/t3r+s3H/mmLcmpqa4ODg////9/f31tbWr6+vqampqnXowIr/v4j/v4n/wIr/wIn/v4f/v4n/pW3nmpqa4ODg////ytznPq3gQKLLWYOcmmrYxZT/xJP/xpT/xpX/xZT/xJH/xJD/p3Dmmpqa4ODg/Pz8crvhGr74LtP/Ls/9i3rwzKD/y5//zaL/0qX/zqL/ypz/zZ7/rHjmmpqa4ODg6+/zLrXsHsD4Rt3+RuH/k4r40ar/0an/zqj6tpXexJ7w0ab/t5LkmmzOmpqa4ODguNboIcf8J8f7YtrwX+HympD51rP/2LL/oI63LC4tbGN3wKTgUVJSUTlto6Oj5OTkfMTmM9j/MdD+r9XQ0ryjq4jh3Lz/2rv+sqfBrrGtop2puaPSub20oYPDvb297+/vacXqROL/QNH6wOLd/8qt353A0an/6NL/49L0xbXXybHn2rn+xabqqYjP4eHh+/v7YdTzWu7/V9j7ydnS/9nI/+DNrYri1rP/7+D/79z/4sb/0ar/roHh4eDj+fn5////cczuZ+H3Z+H5iuXzoNvoueTwuebsqL/4s6P5uJn3oYblqI/F4N/h/Pz8////////+fz+4O/4tt3xlNXuasvuWtLzY9z4f9/3k9/2wuPxqMjb39/f9/f3/////////////////////////////f7+4/H6btjyev3/Wtr1l7bJytrl+vr6/v7+////////////////////////////////////wuP1kNXvmM3o8fHx+/v7////////////////////CgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////+vr67Ozs4uLi6enp+Pj4/////////v7+/v7+/////////////////f39+vr6+/v76+vrv7+/oKCgs7Oz4ODg+Pj48vLy4uLi4ODg8PDw/Pz8/////v7+8fHx2tra1dXVfHR1STs/QUBCgYGBwsLC6urqzMzMn5+foKCgyMjI8fHx////+fn5tcnXkKOtkpKSp3Bz2IyRbkxRVlZXs7Ozvbu8W0lNPzY5WltcoaGh4+Pj////2uXrLKzmHrnyN5TAdX+V9KSmrGZqUlFToKCgrJWX2I6Vr3N5QTk7m5ub3d3d/f39hcHgFrj2LdD+LNb/Ksr5U63JY3aHXG6Ce31+kJGUxIiE5JaaYUVKr6+v4uLi8vT2PLbqGMD7QtX7R+D/RuD/Pun/TLDJYpOpQrjfUnuPaHR/iXuAeWJktra25eXlyd7sIsL5IMb7Udr6V+v/W+7/XfP/YbTDbJ+rVvb/Xff/VOD0VoihcGJop6en4+PjlMvnLNH/J87/cdHlqca6gMzPbOXsd8TOq4GJjJiheKiybsLGU6rAZ1lelpaW3d3ddMPnPNz/NNH9jNzm/9q8+cCh2r6mjp+cz3eB0G92ql5khFNYWENIOzM2nJyc4ODgZsjsTub/QtT8od7j8c67/865/82ysMG6nauzo4+XkG15f1ZgY0JGNy4xvLy87+/vY9b0Y/L/V9f4quvy4cu4/ujd/+rgvdfVhOX7gNnvhtXsgrzRgqKuc3Fz2dnZ+/v7ac7wbev7ZuT5c973h+T4nOHyvuTpwOvxv/T9v/X9p+T4suLwotbnsbKy5+fn////7/f7yuP0qtrwjc/sbcvtXdDyWdT1a9v4ft33leH3ruX34fL1nsjg19na9PT0/////////////////////f7+8fj8yOP0Zdv1d/z/bfT+WsLlmrjNwdfm+Pj4/f39////////////////////////////////rtzyhtPud9fvos3k8PDw+/v7////////////CwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+9vb26+vr6Ojo6+vr8vLy+/v7////////////////////////////////////+vr639/fuLi4qqqqsLCwwcHB3d3d9PT0/v7+////////////////+/v77+/v6Ojo5dfS4rqpw5mIwJmHpIN2hIKBoqKiysrK5+fn9/f3/f39/////v7+7Ozsw8PDrKysuaii//To/+bU/+zd/uXS0Z+Jh3Vujo6OsLCw1tbW9fX1////+vr6iLzbPKraTYuqhZyn0+S4993J+eLS//Pj/+/c67idrXtolH11tbW16+vr////3ufuKLDsJtL/KND/jtDLgNZ258m344Fd7bmX/+vW/+zY/+TGzZJ6t7e37u7u/v7+mMfhFb/7OM/7Str8rta6v+ojfyQskYXREbFqAMDwKDYoIUM0EggAAADtAwAA7QMAAIB+4eYAAAYAugEAABAAEADAwMAA//8AAAHvzasAAAUA4EsfAAYAAAD/////BQAAgAAAAAAMAAAAARMAAABEAGEAdABlAGwAZQAgAGMAbwBuAHQAcgBhAGMAdAB1AGwAdQBpAAEQAAAAQwBhAGkAeABhACAAZABlACAAZQBuAHQAcgBhAGQAYQABDgAAAEMAYQBpAHgAYQAgAGQAZQAgAHMAYQDtAGQAYQABDgAAAEkAdABlAG4AcwAgAGUAbgB2AGkAYQBkAG8AcwABDwAAAEkAdABlAG4AcwAgAGUAeABjAGwAdQDtAGQAbwBzAAEJAAAAUgBhAHMAYwB1AG4AaABvAHMAASEAAABPAGIAaQBlAGMAdAB1AGwAIABzAGkAIAB2AGEAbABvAGEAcgBlAGEAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABIAAAAFQAZQByAG0AZQBuAGUAIABkAGUAIABmAGEAYwB0AHUAcgBhAHIAZQAgAHMAaQAgAGEAYwBoAGkAdABhAHIAZQABBQAAAEoAbwBnAG8AcwABBwAAAE0A+gBzAGkAYwBhAHMAAQUAAABGAG8AdABvAHMAAQYAAABWAO0AZABlAG8AcwAMAAAAAQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////+/v77u7u5ubm7Ozs9/f3/f39////////////////////////////////////////7e3twsLCp6ensrKyzMzM4+Pj8vLy+/v7////////////////////////////+/v715iH13NVrGtYi3JrjIyMpqamwMDA2NjY6+vr9/f3/f39////////////////8Ojm1WNE7ohj8Y9r4XpZuWhQlGldh399mJiYsrKyzMzM4+Pj8vLy+/v7/v7+////4bOo3GNA6YRf9aJ+9Jx385dy74pm0nJVpmVTi3JrjIyMpaWlw8PD4uLi+fn5/f392Ypz4G9L6IZi96+K9KaB9KJ99KB79J158pVw4X9dumlRlm1ij4aEu7u77e3t9e/t3XlZ5HxY6Ytm+LWN+rGI/LGJ+K2H9KeC9KWA9KN99J5575FssG5apqam5ubm683F5oJf6Ydh6ZFtsbmzqKmf0aiO66yI97WO9bGL9a2I9KmE9qyHx39kp6en5ubm5bSn7JRv7I9p6pdyr93egub5e8ncia6236+P+8Ka97yW9reS97aRxIxzq6ur6Ojo4aKP8aR+7pZw66WBt+Dfi9v0ddL1hd/1xKqU9q2F8rKM9bqU88CcwpR9ra2t6Ojo45yE9bKM8qB69biQjdbfjtHqs+f7oODzyLKc9raN8LON7qeC6bOQwZmDsLCw6enp6Z2B/MWe97SO9LKK3tG0xdjR3OfixeHk5dKy98ig8LWQ8bWP5rSRw52Hs7Oz6enp7bWl66WH7qWD75969qqC9a2E8bOM7cOg9s+o+dy1/Oa/+Nex59WzyqiSw8PD7u7u/////fn49d3X8dHH6bOh55+H6p1+7Jhz8aiD8KmD8K2I7bSO5NCx17Og4+Pj9/f3/////////////////////////fj27Lao+b+Y/caf+r+Z14Rnyayk6NTO+vr6/v7+/////////////////////////////PXz66mT66aI76aD37Gl7+/v/Pz8////////AgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////////////////v7++Pj46+vr5ubm7+/v+/v7/////////////////f399fX18vLy+Pj4/v7+/v7+8vLy1tbWs7OzpqamwMDA6enp/f39////////////8fHx0dHRwcHBz8/P4+Pj5eXltsC2WKZmVMx1T4ZXjY2NxcXF8fHx/v7+////+/v72rWrvH9ujn15jo6OpKSkjqKPN6pKR+lxVPSDUed+WnZdm5ub1tbW+Pj4////8Ovq1WZJ7odj5X1bwWZRaGxLEJcnMtdTO9xfRONsVPOCRr5jdn52uLi47u7u/v7+4LOn3GM/7Itn9p9795h1kIdEIooXDaggL9JOO9teReRtU/OCTZRZs7Oz7Ozs+/v72YVt4XFN6o1o+K+I9aaB/6GEqZZWB6gXIsk+MNNQO9xfQeFoQKBWxMTE9PT08+nm33lX5HxY6ZNu6bOS9a2F/7KOuKloELckGcEwJcpBK9pTW6ZGhYF3yMjI9vb26Ma96Ilk6YZh5Jl4kcTNmbi5wKmen6ZuI8g+DbgiFr0rGc4+cKtSoHlyxcXF9PT05K6e75x27ZNs6aaFrOnxeNz7dNPza7GiPshTLNJQJdVNFM09c65aqYF3xcXF8vLy46KN9KyF8p946LaVetHpldXwmuT9pMjMza+Bsbt8is1+jbNr0LKPr4t/ysrK9PT06J+G+8Kc9KuE9cCZttbMyeDgyuz0vNHP9sOd/bmW8qiF66eF4b6hrYl+0tLS9/f37bSj7KSE76WB76B796Z+77GM7LuZ8sij+tu0+du1+dmy6cyp3sOlvKGZ4eHh+/v7/////fr5+u3o78q/7b2t56GJ6JZ38aB78aeB8KmD8LGL37eY4bKW4NPQ9PT0/v7+/////////////////////////vv66qeP/MSe/MSe6pRxzLWv6NnV+vr6/v7+////////////////////////////////+Ofj8MOz7LWg5bir8/Pz/Pz8////////////AwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398fHx2dnZycnJy8vLyMjItra2t7e32NjY9fX1/v7+////////////+fn57Ozs4ODgtL60bY5tb4Jveoh8RYlLQpBNeYF6pKSk2NjY+Pj4/////////Pz85eXlu7u7gpmMGJkaKchEMcBMKqtALLhGVO2CR65gc3pzqqqq39/f+vr6////8fLyZbDXPaLYL4ViGsQqKM1EMtZTPN9iQuBoS+l3WvmLPo1KgICAsLCw4uLi/v7+rc/jFbn2JcD/IJ+RMNNJIcY7Isc9Lc9LNthZP95lSul0Ue19Q4NLh4eHv7+/+vr6W7jkFML8NcH8KKWTT+5zH8Q3E7onIcU6Ks5HM9VUPNxhSOhyTux6S4hSvr6+4OrwJr3zGcL7P8f8K6SqSdttOttVGsMsFr4rHcI1KMtDMdRQONtYOs1QUZhW2dnZr9ToJcv9IsX7WNj4S7DUJ5uiLLKaIrJcE7AmE70nF8AqHsAyNMVmR5GMqKio5ubmhMXlM9f/J8r9e9vo17qhuLawgam8S5i/JqtjLdFEIrBEUM+lffT1X6DDo6Oj4+PjaMHoROL/NM/9gdrn+d3G/8mr/8ilvJaLPKeYY9qzh+71lP//mfv7cbnNnqCg4ODgVc/zU+j/RNf+nNjf8r2j98++/97L1burftDtgN/+iOT5heL2ouzwh8zcoqWm4+PjXdn2aPT/Wtr5oez64NO/+dvN/+jd4sKyjdPkjN/1j9/0itjxsubshb3Sq62t6OjocdPxaeb5aOf7ceP6ddj1m9fku+Lnwd/mzvz+xvj+s+v4ruT0xeXsfarDv7+/7u7u7PT7yeX0tOHxhM3rcNXwYtT0XNb2beP8eNz3it32sOv6x+v24vT6jrnT39/f9/f3////////////////////8vj8z+b1c9Duefz/cfX/Zen8aazQscna1OHq+Pj4/v7+////////////////////////////xuP1e8/uct7zcdXuxNbi9PT0/f39////////BAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA+/v77Ozs2dnZy8vLyMjIwsLCsLCwsrKy19fX9vb2/v7+////////////////////6enps7u0dY12aIFoan9rOn89K5U1d313o6Oj1tbW9fX1/v7+////////////////gbKGRctmPtViNM1SKL5BHbk0G8UyJI0uc3lzoKCgy8vL4+Pj7+/v+Pj4/f39////S89uW/yOTvF9PedqLtVOIsg8GL4tDrggHIUgenhyjIyMo6Ojubm5zc3N4ODg8fHxZuiNdveiYNd6a9F2QtBiLdFMFcAsF8k4HL88u7aI0J6Mq4x+koN9i4uLpaWl0dHRmO+2HaItcpZC/62Xl6lqHMdFQNJhZMFopcKN/+vb/+7c/+bT+dK73aGHrYt/v7+/gdmYPrpQpbN4/+zl06yDlK5u3MCX/tbE//fz//ry//Lo/uDP/tfA+syxu5OEyMjI0OTSbMR9y8ej//r1/+ze/+HUyLm/lqrB+O7m9OHZ/NbE/+HP/+zc8ci0r5+Y19fX////6e7n5trI//jx2tDPd6fJQKXgP6fiZqHJWZrGqbK9//bm//fs2rCdsaWg4+Pj/////OHZ8dnSlLjOXLfjVsX4Xsf4XMX2UsD3Tb/4Uarc1c3N///4y6GRurOx7e3t/////fbzhavFT7nnZcnxZMXtZcfwZMfxYcXxYcXyWsn5d7bY+OTbwqedzs7O9vb2////////6/L2abTYb8vre9r2c9Lxb83vbMzvasrvZ8jvV8Dtl6q70buz6+vr/f39////////////6fL3crfYedPtiOX4huP4hOL5geD4cM3sVabOpLjH7+/v/Pz8////////////////////6/P4drvZg9vtk+35i+X1b8Tib6HA1dvf+Pj4/v7+////////////////////////////6vL3erzYgNXna7PRnrjJ7Ozs/Pz8////////////////////////////////////////0ePujbnVxNfj9fX1/f39////////////////////BQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////+fn54+PjxcXFr6+vpKSkpaWlsrKyv7+/u7u7qqqqoaGho6OjtLS02NjY9vb2/Pz84+PjwZiNv4VwyYVrx4xyso98knJpl29lu11ExmhNxnNZuGtWhnh1qamp4ODg9PLx14t19KB7+riS+8Ga/+O7+ty15H9b3Fg16HhU+6WA/aR+/Jp2wWtShYSEwsLC6MO57YFd8KJ9+ryW8qaA/dCq8beR4mtH6nVR+a6I8JFt4WdE9I5q+ZVxlmtfrKys57Gf6YBb65Zx97aQ7ZZx+8qj7a2H5GlG9JFs/cag6Yhj6HFO631a+p14vG5Yo6Oj5a6c53tW6o5q9a+J54Ne+MCZ6qJ9739b+6mE/NKs/ceh9aB764Rg8o5qx3ZcpaWl5Kua5XVQ6Ilk9KuF4GxJ87SO6Zt37o5p/cWe/d+4/dCq+LiS86yG7pdzxXBWsbGx5KiX5nZS43lV8Z143WM/6JJs5Y5q5oRf/uG6/uvE/d62/dCq8amE76WAuntmyMjI4aKR53ZS53dT75Zy9rqV9s6o77mU6Jdy/vHJ//3V/u/I/d63+MOd9KuGvJ2U5ubm4aOS8IVh/bGM+rWQ+biS+8ag/+C5+sym9LmT/daw//nR//rT/dy21ZmF4+Pj+vr65JmC+K6J5oBc425J6G5M8YFd9Ypm8Ypm9pp2z3JVxYh03aaR6MK08fHx+/v7////6KqP5X9b1kon31876HBP8YVh9Ytn5WpH7HxXsW1asLCw6+vr////////////////6qaM+JZy4GE+3l065GdF7XlV8IJe6n1Z+Z14vXVgwsLC8vLy////////////////7LWh/a6J+ZVx8Y1p741o8Zp1+LOM/baR+6WAw5KE4+Pj+/v7////////////////+/Px7LGY+aeD+qB7/76Y/9Ks/smi+K6K2ZaD5ePj+fn5////////////////////////////9NbL8ce07K6U5qSM5rel6c/H9vb2/f39////////////////////////BgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////f395ubmuLi4nZ2do6OjtbW1yMjI2dnZ5eXl8PDw+Pj4/f39////////////////9PT04LSe7bSUzKCHspB9koV9jImGlZWVp6enu7u7zc3N3d3d6+vr+Pj4/v7+/v7+59HI9cKq/////vj1/ObZ+tbA5byiyJyCpoR1kIJ8jIqJmpqaubm54+Pj+/v7+vr6462Y/fPu//Pv/uff/////////u/q+7ed+q+S96eH3pl9wpF6oJuZ19fX+vr68enm7LGb//////fy/NLC/Mq4/NDB+7ih+7GX+7ii+7ig+7mj+8Cev7Sr5eXl/f395r+x9tDC//n1/dvN/vDq//r2//Dq/7ie/KaH+qWH+7qj+9XFyquX0dDP+Pj4////4qWR+uHX//rz/t7Q/M28/Mu59sOw3p6H+7ad/8Om/+jf676ks6yo5+fn/v7+////4JeA/vHo/uHR/dfG/ure//nx0b+2Qk5hdqbYgLnt8OHbyJd8u7u77+/v/////7X1y7rgkGvuiGTBn2Hf8MP/5866hXLNzc34+Pj3+PhSt+Ubyf9E0vlo5Pfl3cXz6NLUu6tOlc6EdXFVklOI04jlv66ZjovX19f8/PzR4+4wxvcnz/9X1vTCzr386d391cOqj4YngsIlSmEkZ6LUw7ShsLWPkpTU1NT6+vqo0eg61v401P9n2vLw2b/67eTvuaPym3rTmIGjcl16amz0zLePy9KAk57S0tL5+fmFyehQ5P9J3P6H4vLw07v/8+r449f70r3/yaz/xqr/vaDk08GP1eGDlqLU1NT6+vp4zO1n8v9c4fyi8fza3c763cv/6Nnl0L2+zsywwcfD09O519ma1uSJm6Xa2tr8/PyBz+907/tp6vxy3veB4Pig5vTK7e3D6+6y9f+19P+o6vyx4e6h0uOqs7jm5ub+/v7v9/vZ7PfH5vOt2vCg2u+Azexiye9w3fmD6/uI5vqQ4Pe+3e2bxd7c3t/19fX////////////////////////////1+v140O98//9z+v9X1PObs8PM2+X6+vr+/v7////////////////////////////////K5/aI1O902fGNx+Tt7e36+vr///////////8MAAAAbHQAADYDAABCTTYDAAAAAAAANgAAACgAAAAQAAAAEAAAAAEAGAAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAD////////////////////////////////8/Pzy8vLn5+fm5ubx8fH8/Pz////////////////+/v77+/v6+vr9/f3////+/v7s7OzGxsapqamnp6fCwsLn5+f7+/v////////////29vbg4ODT09Pd3d3t7e3x8fGVlJVaUFNjTVFfW1yKioq4uLjj4+P6+vr////9/f3R2uCPqLeNkJKbm5u2trapp6cuKC2VgHLLspx5UFdbVFeIiIi+vr7v7+/////v8fNHruAawfsuqdpOi6hxgIlYZ3FfQzn/zKT/7sTYwqmWZmlyYWS7u7vu7u7///+01OcTuPcsy/wv1/8w0/410PUtbYpFKyTKkHT/2K7CrJR1UFNwX2HZ2dn4+Pj9/f1nvOUUxf8/zfhL4v9J4P9M7v80gpNFLCdHNzSAZlhMODpTUVadnZ3d3d38/Pzu8/U1vO8cyf5G0Pdd6PpZ7P9i/f87g5OcZFDfl3ZXOTMyRkxMnbyIjI7Nzc339/fE3OwvzPslzf9X0fG9uqeVvrl93dtHfoiicV//w5bFeFxOeHt19f5xjp/IyMj19fWa0eo/2f401P9p1vD/17v/xqj2yKuHcWl7XVbwt5Kxc1lWjpOR8vJ0kaLJycn19fWDyOdR5f9I3v+H3O3vv6fxy7r/2MCfgXtsS01tUE1KMy9ZhYyl7O10kaLKysr19fV0zu5q9v9Y4v2L3vXewKr21cXh1c+NaGvswKHgq4xNNTNcg5Kq5Ox2k6TMzMz39/eJ0e9u5fhr6/xt3vh+4feQoqepaWvZqpr/8cbksZNlSEicw83B6O+GorTa2tr6+vr5/P7e8Pi02/Ch3/J2zexTmbRzip2MhIqXfXhubHF2orfY8fe+3u2/zNXu7u7+/v7////////////////////3/P7k8/pmxOZ26u118/ln6f+Irsa30OHz9PX8/Pz////////////////////////////////M5/eV2/J41/CN0Ons7Oz6+vr///////////8=" />
PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.Init
With This
.Imagelist = .Parent.oleControl2
With .Nodes
Local laNos[12,3]
Store Null To laNos
laNos[1,1] = "Datele contractului"
laNos[2,1] = "Caixa de entrada"
laNos[3,1] = "Caixa de sa<73>da"
laNos[4,1] = "Itens enviados"
laNos[5,1] = "Itens exclu<6C>dos"
laNos[6,1] = "Rascunhos"
laNos[7,1] = "Obiectul si valoarea contractului"
laNos[8,1] = "Termene de facturare si achitare"
laNos[9,1] = "Jogos"
laNos[10,1] = "M<>sicas"
laNos[11,1] = "Fotos"
laNos[12,1] = "V<>deos"
*!* Store laNos[1,1] To laNos[2,2], laNos[3,2], laNos[4,2], laNos[5,2], laNos[6,2]
*!* Store 4 To laNos[2,3], laNos[3,3], laNos[4,3], laNos[5,3], laNos[6,3]
*!* Local lnNo
*!* For lnNo=1 To Alen(laNos,1)
*!* .Add(laNos[lnNo,2],laNos[lnNo,3],laNos[lnNo,1],laNos[lnNo,1],laNos[lnNo,1])
*!* Endfor
ENDWITH
*!* Local loNo
*!* loNo = .Nodes(0)
*!* loNo.Expanded = .T.
*!* .SelectedItem = loNo
*!* loNo = Null
Endwith
ENDPROC
PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.NodeClick
*** ActiveX Control Event ***
LPARAMETERS node
LOCAL TX
TX = THIS.SelectedItem.TEXT
MESSAGEBOX(tx)
ENDPROC
ENDDEFINE
DEFINE CLASS ct_dg AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 356
Name = "ct_dg"
Width = 698
*</PropValue>
ENDDEFINE
DEFINE CLASS ct_dg_cu_banda AS ct_dg OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" 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="_label1" UniqueID="" Timestamp="" />
*<PropValue>
Name = "ct_dg_cu_banda"
*</PropValue>
ADD OBJECT '_label1' AS _label WITH ;
BackStyle = 0, ;
Left = 6, ;
Name = "_label1", ;
Top = 7
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT '_shape3' AS _shape WITH ;
Anchor = 11, ;
BorderStyle = 0, ;
Height = 24, ;
Left = 1, ;
Name = "_shape3", ;
Top = 1, ;
Width = 804, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\..\roaregistratura\comun\clase\_baza.vcx" BaseClass="shape" />
ENDDEFINE
DEFINE CLASS ct_dg_date_generale AS ct_dg OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDescriere" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtMotiv_incetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_intern" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_incetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDurata" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_incetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNumar_intern" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_inactiv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_semnat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_valute" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_inceput" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_sfarsit" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_sectii" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdResponsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtResponsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_tip_ctr" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: newdata_sfarsit
*p: nid_valuta_new
*p: nid_valuta_old
*p: olddata_sfarsit
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
*<PropValue>
Height = 221
Name = "ct_dg_date_generale"
newdata_sfarsit = {}
nid_valuta_new = 0
nid_valuta_old = 0
olddata_sfarsit = {}
Width = 429
_memberdata = <VFPData>
<memberdata name="nid_valuta_new" type="property" display="nId_valuta_new"/>
<memberdata name="nid_valuta_old" type="property" display="nId_valuta_old"/>
</VFPData>
*</PropValue>
ADD OBJECT 'cbo_sectii' AS _combobox WITH ;
ControlSource = "goContract.sectie", ;
FontSize = 10, ;
Height = 21, ;
Left = 307, ;
Name = "cbo_sectii", ;
RowSource = "crsSectii.sectie,id_sectie", ;
RowSourceType = 2, ;
TabIndex = 12, ;
Top = 153, ;
Width = 113, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'cbo_tip_ctr' AS _combobox WITH ;
ControlSource = "goContract.denumire_tip", ;
FontSize = 10, ;
Height = 21, ;
Left = 88, ;
Name = "cbo_tip_ctr", ;
RowSource = "crsTip_ctr.denumire_tip,id_tip_ctr", ;
RowSourceType = 2, ;
TabIndex = 4, ;
Top = 53, ;
Width = 113, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'cbo_valute' AS _combobox WITH ;
ControlSource = "goContract.nume_val", ;
FontSize = 10, ;
Height = 21, ;
Left = 89, ;
Name = "cbo_valute", ;
RowSource = "crsValute.nume_val,id_valuta", ;
RowSourceType = 2, ;
TabIndex = 11, ;
Top = 153, ;
Width = 113, ;
ZOrderSet = 22
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'ck_inactiv' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Inactiv", ;
ControlSource = "goContract.inactiv", ;
FontSize = 10, ;
Height = 18, ;
Left = 97, ;
Name = "ck_inactiv", ;
TabIndex = 15, ;
Top = 201, ;
Width = 55, ;
ZOrderSet = 19
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'ck_incetat' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "<22>ncetat", ;
ControlSource = "goContract.incetat", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 8, ;
Name = "ck_incetat", ;
TabIndex = 9, ;
Top = 127, ;
Width = 58, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'ck_semnat' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Semnat", ;
ControlSource = "goContract.semnat", ;
FontSize = 10, ;
Height = 18, ;
Left = 8, ;
Name = "ck_semnat", ;
TabIndex = 14, ;
Top = 201, ;
Width = 64, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'cmdResponsabil' AS commandbutton WITH ;
Caption = "", ;
FontName = "Arial Narrow", ;
Height = 21, ;
Left = 204, ;
Name = "cmdResponsabil", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 16, ;
Top = 175, ;
Width = 28, ;
ZOrderSet = 27
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data <20>nceput", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 8, ;
Name = "Label1", ;
TabIndex = 28, ;
Top = 82, ;
Width = 75, ;
ZOrderSet = 21
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Durata (luni)", ;
FontSize = 10, ;
Height = 18, ;
Left = 8, ;
Name = "Label10", ;
TabIndex = 21, ;
Top = 104, ;
Width = 72, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label12' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Tip contract", ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label12", ;
TabIndex = 25, ;
Top = 55, ;
Width = 70, ;
ZOrderSet = 17
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label14' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Responsabil", ;
FontSize = 10, ;
Height = 18, ;
Left = 8, ;
Name = "Label14", ;
TabIndex = 24, ;
Top = 176, ;
Width = 73, ;
ZOrderSet = 28
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label17' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valuta", ;
FontSize = 10, ;
Height = 18, ;
Left = 8, ;
Name = "Label17", ;
TabIndex = 22, ;
Top = 154, ;
Width = 39, ;
ZOrderSet = 12
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data <20>ncet<65>rii", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 221, ;
Name = "Label2", ;
TabIndex = 26, ;
Top = 104, ;
Width = 78, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label20' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Sec<65>ie", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 221, ;
Name = "Label20", ;
TabIndex = 23, ;
Top = 154, ;
Width = 39, ;
ZOrderSet = 32
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label21' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Motiv <20>ncetare", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 221, ;
Name = "Label21", ;
TabIndex = 19, ;
Top = 127, ;
Width = 82, ;
ZOrderSet = 18
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Descriere", ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label4", ;
TabIndex = 20, ;
Top = 33, ;
Width = 57, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data sf<73>r<EFBFBD>it", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 221, ;
Name = "Label5", ;
TabIndex = 27, ;
Top = 82, ;
Width = 68, ;
ZOrderSet = 24
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr./data <20>nreg.", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label6", ;
TabIndex = 17, ;
Top = 10, ;
Width = 84, ;
ZOrderSet = 6
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "/", ;
FontSize = 10, ;
Height = 18, ;
Left = 208, ;
Name = "Label9", ;
TabIndex = 18, ;
Top = 10, ;
Width = 6, ;
ZOrderSet = 30
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape1' AS shape WITH ;
BackStyle = 0, ;
Height = 221, ;
Left = 0, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 0, ;
Width = 429, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape3' AS shape WITH ;
BackStyle = 0, ;
Height = 0, ;
Left = 5, ;
Name = "Shape3", ;
SpecialEffect = 0, ;
Top = 150, ;
Width = 418, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape5' AS shape WITH ;
BackStyle = 0, ;
Height = 0, ;
Left = 5, ;
Name = "Shape5", ;
SpecialEffect = 0, ;
Top = 200, ;
Width = 418, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape7' AS shape WITH ;
BackStyle = 0, ;
Height = 0, ;
Left = 5, ;
Name = "Shape7", ;
SpecialEffect = 0, ;
Top = 77, ;
Width = 418, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtData_inceput' AS textbox WITH ;
ControlSource = "goContract.data_inceput", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 89, ;
Name = "txtData_inceput", ;
TabIndex = 5, ;
Top = 80, ;
Width = 113, ;
ZOrderSet = 23
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_incetat' AS textbox WITH ;
ControlSource = "goContract.data_incetat", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 307, ;
Name = "txtData_incetat", ;
TabIndex = 8, ;
Top = 102, ;
Width = 113, ;
ZOrderSet = 14
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_intern' AS textbox WITH ;
ControlSource = "goContract.data_intern", ;
FontSize = 10, ;
Height = 21, ;
Left = 217, ;
Name = "txtData_intern", ;
TabIndex = 2, ;
Top = 8, ;
Width = 113, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_sfarsit' AS textbox WITH ;
ControlSource = "goContract.data_sfarsit", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 307, ;
Name = "txtData_sfarsit", ;
TabIndex = 7, ;
Top = 80, ;
Width = 113, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtDescriere' AS textbox WITH ;
ControlSource = "goContract.descriere", ;
FontSize = 10, ;
Format = "!k", ;
Height = 21, ;
Left = 88, ;
Name = "txtDescriere", ;
TabIndex = 3, ;
Top = 31, ;
Width = 331, ;
ZOrderSet = 3
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtDurata' AS textbox WITH ;
ControlSource = "goContract.durata", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 89, ;
Name = "txtDurata", ;
TabIndex = 6, ;
Top = 102, ;
Width = 113, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtMotiv_incetat' AS textbox WITH ;
ControlSource = "goContract.motiv_incetat", ;
FontSize = 10, ;
Format = "!k", ;
Height = 21, ;
Left = 307, ;
Name = "txtMotiv_incetat", ;
TabIndex = 10, ;
Top = 125, ;
Width = 113, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtNumar_intern' AS textbox WITH ;
ControlSource = "goContract.numar_intern", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 88, ;
Name = "txtNumar_intern", ;
TabIndex = 1, ;
Top = 8, ;
Width = 113, ;
ZOrderSet = 16
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtResponsabil' AS textbox WITH ;
ControlSource = "goContract.responsabil", ;
DisabledBackColor = 255,255,255, ;
FontSize = 10, ;
Format = "!k", ;
Height = 21, ;
Left = 89, ;
Name = "txtResponsabil", ;
ReadOnly = .T., ;
TabIndex = 13, ;
Top = 175, ;
Width = 113, ;
ZOrderSet = 29
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Init
this.nId_valuta_old = goContract.id_valuta
ENDPROC
PROCEDURE cbo_sectii.Valid
goContract.id_sectie = crsSectii.id_sectie
goContract.sectie = crsSectii.sectie
ENDPROC
PROCEDURE cbo_tip_ctr.Valid
goContract.id_tip_ctr = crsTip_ctr.id_tip_ctr
goContract.denumire_tip = crsTip_ctr.denumire_tip
ENDPROC
PROCEDURE cbo_valute.Valid
goContract.id_valuta = crsValute.id_valuta
goContract.nume_val = crsValute.nume_val
goContract.moneda_nationala = crsValute.moneda_nationala && modificare v 2.0.46
This.Parent.nId_valuta_new = goContract.id_valuta
If Nvl(This.Parent.nId_valuta_old,0) <> Nvl(This.Parent.nId_valuta_new,0)
If Reccount('cCtrArt')>0
AMESSAGEBOX('Modificati valuta si in obiectul contractului!',0+48,'Atentie')
Endif
This.Parent.nId_valuta_old = goContract.id_valuta
Endif
ENDPROC
PROCEDURE cmdResponsabil.Click
locauta = caut_responsabil()
IF buton=2
RETURN
ENDIF
goContract.id_responsabil = locauta.id_responsabil
goContract.responsabil = locauta.nume
this.Parent.txtResponsabil.Refresh
ENDPROC
PROCEDURE txtData_incetat.Valid
IF !EMPTY(goContract.data_inceput) AND goContract.data_incetat <= goContract.data_inceput
aMESSAGEBOX('Introduceti data incetarii mai mare decat data de inceput a contractului !',0+48,"Atentie")
*goContract.data_incetat = goContract.data_inceput + 1
ENDIF
this.Parent.txtData_inceput.Refresh
ENDPROC
PROCEDURE txtData_sfarsit.Valid
If !Empty(goContract.data_inceput) And goContract.data_sfarsit <= goContract.data_inceput
aMESSAGEBOX('Introduceti data de sfarsit mai mare decat data de inceput a contractului !',0+48,"Atentie")
* goContract.data_sfarsit = goContract.data_inceput + 1
Endif
If !Empty(Nvl(goContract.data_inceput,{})) And !Empty(Nvl(goContract.data_sfarsit,{}))
goContract.durata = Int((Year(goContract.data_sfarsit)*12 + Month(goContract.data_sfarsit)) - (Year(goContract.data_inceput)*12 + Month(goContract.data_inceput)))
ELSE
goContract.durata = 0
ENDIF
This.Parent.txtDurata.Refresh
ENDPROC
PROCEDURE txtDurata.Valid
goContract.data_sfarsit = GOMONTH(goContract.data_inceput, goContract.durata)
this.Parent.txtData_sfarsit.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS ct_dg_date_generale_frz AS ct_dg OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtOfertanti" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_selectii" UniqueID="" Timestamp="" />
*<PropValue>
Height = 53
Name = "ct_dg_date_generale_frz"
Width = 364
*</PropValue>
ADD OBJECT 'cbo_selectii' AS _combobox WITH ;
ControlSource = "goContract.selectie", ;
FontSize = 10, ;
Height = 21, ;
Left = 109, ;
Name = "cbo_selectii", ;
RowSource = "crsSelectii.selectie,id_selectie", ;
RowSourceType = 2, ;
TabIndex = 2, ;
Top = 28, ;
Width = 113, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Modul de selec<65>ie", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label3", ;
TabIndex = 4, ;
Top = 30, ;
Width = 104, ;
ZOrderSet = 37
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Ofertan<61>i", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label7", ;
TabIndex = 3, ;
Top = 7, ;
Width = 51, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape1' AS shape WITH ;
BackStyle = 0, ;
Height = 54, ;
Left = 0, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 0, ;
Width = 364, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtOfertanti' AS textbox WITH ;
ControlSource = "goContract.ofertanti", ;
FontSize = 10, ;
Height = 21, ;
Left = 109, ;
Name = "txtOfertanti", ;
TabIndex = 1, ;
Top = 5, ;
Width = 245, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
PROCEDURE cbo_selectii.Valid
goContract.id_selectie = crsSelectii.id_selectie
goContract.selectie = crsSelectii.selectie
ENDPROC
ENDDEFINE
DEFINE CLASS ct_dg_fact AS ct_dg OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_text_standard" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboNote" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lbNota" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_opt_facturare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*<PropValue>
Height = 96
Name = "ct_dg_fact"
Width = 364
*</PropValue>
ADD OBJECT '_shape1' AS _shape WITH ;
BackStyle = 0, ;
Height = 96, ;
Left = 0, ;
Name = "_shape1", ;
SpecialEffect = 0, ;
Top = 0, ;
Width = 364, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'cbo_opt_facturare' AS _combobox WITH ;
ControlSource = "gocontract.opt_facturare", ;
FontSize = 10, ;
Height = 24, ;
Left = 106, ;
Name = "cbo_opt_facturare", ;
RowSource = "Denumirea ratei + valoarea ratei urmatoare,Primul art.din lista de art. (obiectul ctr.) + valoarea ratei urm.,Articole la alegere din lista de art. cu preturile din lista de art.", ;
RowSourceType = 1, ;
TabIndex = 1, ;
Top = 26, ;
Width = 250, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'cboNote' AS combobox WITH ;
BoundColumn = 2, ;
BoundTo = .T., ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "300,20", ;
ControlSource = "gocontract.id_nota", ;
FontSize = 10, ;
Height = 24, ;
Left = 106, ;
Name = "cboNote", ;
RowSource = "crsNote.denumire,id_nota", ;
RowSourceType = 2, ;
Style = 2, ;
TabIndex = 2, ;
Top = 52, ;
Width = 250, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'ck_text_standard' AS checkbox WITH ;
Alignment = 0, ;
BackStyle = 0, ;
Caption = 'Text suplimentar standard: "Cf. contract nr ... / data..."', ;
ControlSource = "gocontract.text_standard", ;
FontSize = 10, ;
Height = 17, ;
Left = 7, ;
Name = "ck_text_standard", ;
TabIndex = 3, ;
Top = 77, ;
Width = 357, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Ce se factureaz<61>", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label1", ;
TabIndex = 5, ;
Top = 30, ;
Width = 100, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Facturare", ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label2", ;
TabIndex = 6, ;
Top = 4, ;
Width = 57, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lbNota' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nota contabil<69>", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "lbNota", ;
TabIndex = 4, ;
Top = 56, ;
Width = 85, ;
ZOrderSet = 3
*< END OBJECT: BaseClass="label" />
PROCEDURE cboNote.InteractiveChange
gocontract.id_nota = crsNote.id_nota
ENDPROC
PROCEDURE cboNote.Valid
gocontract.id_nota = crsNote.id_nota
ENDPROC
PROCEDURE cbo_opt_facturare.Init
this.Value = gocontract.opt_facturare
IF this.Value = 1 OR this.Value = 2
this.Parent.lbNota.Visible = .T.
this.Parent.cboNote.Visible = .T.
ELSE
this.Parent.lbNota.Visible = .F.
this.Parent.cboNote.Visible = .F.
ENDIF
ENDPROC
PROCEDURE cbo_opt_facturare.Valid
Local lnInreg
Store 0 To lnInreg
If This.Value = 1 Or This.Value = 2
This.Parent.lbNota.Visible = .T.
This.Parent.cboNote.Visible = .T.
Else
This.Parent.lbNota.Visible = .F.
This.Parent.cboNote.Visible = .F.
Endif
Do Case
Case This.Value = 1
Select cCtrScadentar
Calculate Cnt() For !Deleted() To lnInreg
If lnInreg = 0
aMessagebox('Adaugati rate!',0+48,'Atentie')
Endif
Case This.Value = 2
Select cCtrArt
Calculate Cnt() For !Deleted() To lnInreg
If lnInreg = 0
aMessagebox('Adaugati obiectul contractului!',0+48,'Atentie')
Endif
Select cCtrScadentar
Calculate Cnt() For !Deleted() To lnInreg
If lnInreg = 0
aMessagebox('Adaugati rate!',0+48,'Atentie')
Endif
Endcase
ENDPROC
ENDDEFINE
DEFINE CLASS ct_dg_obiectul AS ct_dg_cu_banda OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cNume_art.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cNume_art.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cUm.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cUm.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cValoare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cValoare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cCoef_discount.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cCoef_discount.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cPret_cu_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cPret_cu_tva.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDiscount" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValcdiscount" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValDiscount" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtProc_tva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCoef_discount" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValDiscountTotal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_pret_cu_tva" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: actualizeaza_zecimale
*p: ncoef_discount
*p: ndiscountmediu
*p: noldproctva
*p: nsumaarticole
*p: nvalcdiscount
*p: nvaldiscount
*p: nzecimalepret
*p: nzecimalesuma
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
*<PropValue>
Height = 208
Name = "ct_dg_obiectul"
ncoef_discount = 0
ndiscountmediu = 0
noldproctva = 0
nsumaarticole = 0
nvalcdiscount = 0
nvaldiscount = 0
nzecimalepret = gnPPretV
nzecimalesuma = gnPc
Width = 795
_memberdata = <VFPData>
<memberdata name="noldproctva" display="nOldProcTVA"/>
</VFPData>
_shape3.Height = 24
_shape3.Left = 1
_shape3.Name = "_shape3"
_shape3.Top = 1
_shape3.Width = 812
_shape3.ZOrderSet = 0
_label1.Caption = "Obiectul <20>i valoarea contractului"
_label1.FontSize = 10
_label1.Left = 7
_label1.Name = "_label1"
_label1.ZOrderSet = 7
*</PropValue>
ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
Anchor = 15, ;
ccolwithlabel = column1, ;
csourcegrid = grid_articole, ;
csumcolumns = cvaloare,cValcDiscount, ;
ctotallabelexpression = 'TOTAL', ;
FontSize = 10, ;
Height = 22, ;
Left = 0, ;
Name = "_grdfooter1", ;
RowHeight = 19, ;
Top = 120, ;
Visible = .T., ;
Width = 794, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 9, ;
caction = do_adauga_obiectul, ;
Left = 734, ;
Name = "But_nou1", ;
TabIndex = 6, ;
Top = 1, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
caction = inainte_de_do_sterge_obiectul, ;
Left = 764, ;
Name = "But_sterge1", ;
TabIndex = 5, ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 13
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ck_pret_cu_tva' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 8, ;
AutoSize = .T., ;
Caption = "Pre<72>uri cu TVA", ;
FontBold = .T., ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 605, ;
Name = "ck_pret_cu_tva", ;
Top = 9, ;
Width = 111
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_articole' AS _grid WITH ;
Anchor = 15, ;
ColumnCount = 12, ;
DeleteMark = .F., ;
FontSize = 10, ;
GridLineColor = 192,192,192, ;
HeaderHeight = 36, ;
Height = 113, ;
HighlightStyle = 2, ;
Left = 0, ;
Name = "grid_articole", ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "cCtrArt", ;
RowHeight = 19, ;
Top = 30, ;
Width = 794, ;
ZOrderSet = 2, ;
Column1.ControlSource = "recno()", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 35, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "nume_articol", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "cNume_art", ;
Column2.ReadOnly = .T., ;
Column2.Width = 287, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "um", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Name = "cUm", ;
Column3.ReadOnly = .T., ;
Column3.Width = 41, ;
Column4.ControlSource = "cant", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Format = "rk", ;
Column4.InputMask = (get_mask(10,gnPCant)), ;
Column4.Name = "cCant", ;
Column4.Width = 49, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "pret_unitar", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.Format = "rk", ;
Column5.InputMask = (get_mask(14,This.nZecimalePret)), ;
Column5.Name = "cPret_unitar", ;
Column5.Width = 60, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "valoare", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.Format = "rk", ;
Column6.InputMask = (get_mask(14,This.nZecimaleSuma)), ;
Column6.Name = "cValoare", ;
Column6.ReadOnly = .T., ;
Column6.Width = 50, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "coef_discount", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.Format = "rk", ;
Column7.InputMask = (get_mask(10,2)), ;
Column7.Name = "cCoef_discount", ;
Column7.Width = 49, ;
Column8.ColumnOrder = 9, ;
Column8.ControlSource = "val_discount", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.Format = "rk", ;
Column8.InputMask = (get_mask(10,This.nZecimalePret)), ;
Column8.Name = "cVal_discount", ;
Column8.Width = 53, ;
Column9.ColumnOrder = 10, ;
Column9.ControlSource = "pret_unitar-(coef_discount*pret_unitar)/100", ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.Format = "rk", ;
Column9.InputMask = (get_mask(10,This.nZecimalePret)), ;
Column9.Name = "Column9", ;
Column9.ReadOnly = .T., ;
Column9.Width = 71, ;
Column10.ColumnOrder = 11, ;
Column10.ControlSource = "cant *(pret_unitar-(coef_discount*pret_unitar)/100)", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Format = "rk", ;
Column10.InputMask = (get_mask(20,This.nZecimaleSuma)), ;
Column10.Name = "cValcDiscount", ;
Column10.ReadOnly = .T., ;
Column10.Width = 62, ;
Column11.ColumnOrder = 12, ;
Column11.ControlSource = "nume_val", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Name = "cNume_val", ;
Column11.Width = 44, ;
Column12.ColumnOrder = 5, ;
Column12.ControlSource = "pret_cu_tva", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Name = "cPret_cu_tva", ;
Column12.ReadOnly = .T., ;
Column12.Sparse = .F., ;
Column12.Width = 37
*< END OBJECT: ClassLib="c:\program files (x86)\microsoft visual foxpro 9\ffc\_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_articole.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cantitate", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cCant.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cCoef_discount.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Discount (%)", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cCoef_discount.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cNume_art.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Articol", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cNume_art.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cNume_val.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. crt.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret unitar diminuat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cPret_cu_tva.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 34, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 53, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_articole.cPret_cu_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret cu TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cPret_unitar.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret unitar", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cPret_unitar.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cUm.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Um", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cUm.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cVal_discount.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Discount", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cVal_discount.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cValcDiscount.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare - Discount", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cValcDiscount.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cValoare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cValoare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label1' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent mediu discount articole", ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label1", ;
TabIndex = 14, ;
Top = 157, ;
Width = 185, ;
WordWrap = .F., ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
FontSize = 10, ;
Height = 18, ;
Left = 479, ;
Name = "Label10", ;
TabIndex = 22, ;
Top = 157, ;
Width = 14, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label15' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 745, ;
Name = "Label15", ;
TabIndex = 23, ;
Top = 157, ;
Width = 28, ;
ZOrderSet = 16
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label16' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 777, ;
Name = "Label16", ;
TabIndex = 22, ;
Top = 178, ;
Width = 12, ;
ZOrderSet = 18
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valoare articole cu discount", ;
FontSize = 8, ;
Height = 16, ;
Left = 7, ;
Name = "Label3", ;
TabIndex = 21, ;
Top = 212, ;
Visible = .F., ;
Width = 161, ;
ZOrderSet = 14
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent discount general", ;
FontSize = 10, ;
Height = 18, ;
Left = 273, ;
Name = "Label4", ;
TabIndex = 16, ;
Top = 157, ;
Width = 146, ;
ZOrderSet = 19
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valoare discount articole", ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label5", ;
TabIndex = 18, ;
Top = 178, ;
Width = 173, ;
WordWrap = .F., ;
ZOrderSet = 15
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare discount general", ;
FontSize = 10, ;
Height = 18, ;
Left = 273, ;
Name = "Label6", ;
TabIndex = 20, ;
Top = 178, ;
Width = 145, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total general - f<>r<EFBFBD> TVA", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 500, ;
Name = "Label7", ;
TabIndex = 17, ;
Top = 157, ;
Width = 138, ;
ZOrderSet = 21
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total general - cu TVA", ;
FontSize = 10, ;
Height = 18, ;
Left = 500, ;
Name = "Label8", ;
TabIndex = 15, ;
Top = 178, ;
Width = 131, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
FontSize = 10, ;
Height = 18, ;
Left = 244, ;
Name = "Label9", ;
TabIndex = 22, ;
Top = 157, ;
Width = 14, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape5' AS shape WITH ;
Anchor = 15, ;
BackStyle = 0, ;
Height = 208, ;
Left = 0, ;
Name = "Shape5", ;
SpecialEffect = 0, ;
Top = -1, ;
Width = 796, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtCoef_discount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nCoef_discount", ;
FontSize = 10, ;
Format = "rk", ;
Height = 20, ;
InputMask = (get_mask(4,2)), ;
Left = 419, ;
Name = "txtCoef_discount", ;
TabIndex = 2, ;
Top = 155, ;
Width = 58, ;
ZOrderSet = 22
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtDiscount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nDiscountMediu", ;
FontSize = 10, ;
Format = "rk", ;
Height = 20, ;
InputMask = (get_mask(4,2)), ;
Left = 191, ;
Name = "txtDiscount", ;
ReadOnly = .T., ;
TabIndex = 8, ;
Top = 155, ;
Width = 51, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtProc_tva' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.proc_tva", ;
FontSize = 10, ;
Format = "rk", ;
Height = 20, ;
InputMask = "99", ;
Left = 738, ;
Name = "txtProc_tva", ;
TabIndex = 4, ;
Top = 176, ;
Width = 38, ;
ZOrderSet = 17
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValcdiscount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nValcdiscount", ;
FontSize = 8, ;
Format = "rk", ;
Height = 20, ;
InputMask = (get_mask(8,gnPA)), ;
Left = 172, ;
Name = "txtValcdiscount", ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 210, ;
Visible = .F., ;
Width = 86, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValctva' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.valctva", ;
FontSize = 10, ;
Format = "rk", ;
Height = 20, ;
InputMask = (get_mask(8,This.nZecimaleSuma)), ;
Left = 636, ;
Name = "txtValctva", ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 176, ;
Width = 86, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValDiscount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nValDiscount", ;
FontSize = 10, ;
Format = "rk", ;
Height = 20, ;
InputMask = (get_mask(8,This.nZecimaleSuma)), ;
Left = 191, ;
Name = "txtValDiscount", ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 177, ;
Width = 78, ;
ZOrderSet = 6
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValDiscountTotal' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.val_discount", ;
FontSize = 10, ;
Format = "rk", ;
Height = 20, ;
InputMask = (get_mask(8,This.nZecimaleSuma)), ;
Left = 419, ;
Name = "txtValDiscountTotal", ;
TabIndex = 3, ;
Top = 176, ;
Width = 66, ;
ZOrderSet = 24
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValftva' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.valftva", ;
FontSize = 10, ;
Format = "rk", ;
Height = 20, ;
InputMask = (get_mask(8,This.nZecimaleSuma)), ;
Left = 636, ;
Name = "txtValftva", ;
ReadOnly = .T., ;
TabIndex = 11, ;
Top = 155, ;
Width = 86, ;
ZOrderSet = 23
*< END OBJECT: BaseClass="textbox" />
PROCEDURE actualizeaza_zecimale
Lparameters tnZecimalePret, tnZecimaleSuma
This.nzecimalepret = tnZecimalePret
This.nzecimalesuma = tnZecimaleSuma
With This.grid_articole
.cpret_unitar.InputMask = get_mask(14,This.nzecimalepret)
.cValoare.InputMask = get_mask(14,This.nzecimaleSuma)
.cVal_discount.InputMask = get_mask(10,This.nzecimaleSuma)
.Column9.InputMask = get_mask(10,This.nzecimalepret)
.cValcDiscount.InputMask = get_mask(20,This.nzecimalesuma)
Endwith
This.txtvalcdiscount.InputMask = get_mask(8,This.nzecimalesuma)
This.txtValDiscount.InputMask = get_mask(8,This.nzecimalesuma)
This.txtvalftva.InputMask = get_mask(8,This.nzecimalesuma)
This.txtValctva.InputMask = get_mask(8,This.nzecimalesuma)
ENDPROC
PROCEDURE ck_pret_cu_tva.Valid
SELECT cCtrArt
REPLACE ALL pret_cu_tva WITH this.Value
Thisform.afisactual_obiectul
ENDPROC
PROCEDURE grid_articole.cCant.Text1.LostFocus
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
Thisform.afisactual_obiectul
This.Parent.Parent.Parent._grdfooter1.calctotal
ENDPROC
PROCEDURE grid_articole.cCoef_discount.Text1.LostFocus
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
Replace val_discount With round(pret_unitar * cant * coef_discount / 100,This.Parent.Parent.Parent.nzecimalesuma)
Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
Thisform.afisactual_obiectul
This.Parent.Parent.Parent._grdfooter1.calcTotal
ENDPROC
PROCEDURE grid_articole.cNume_val.Text1.DblClick
If gnParametru_prog =2
Local locauta
locauta = caut_valuta()
If buton = 2
Return
Endif
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
Replace id_valuta With locauta.id_valuta, nume_val With locauta.nume_val
*IF THISFORM.cOldValue <> THISFORM.cNewValue
Thisform.do_modifica_ctr_art()
*ENDIF
This.Parent.Parent.Refresh
Endif
ENDPROC
PROCEDURE grid_articole.cPret_unitar.Text1.LostFocus
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
Thisform.afisactual_obiectul
This.Parent.Parent.Parent._grdfooter1.calctotal
ENDPROC
PROCEDURE grid_articole.cVal_discount.Text1.LostFocus
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
If pret_unitar * cant <> 0
Replace coef_discount With round(val_discount / (pret_unitar * cant) * 100,2)
Endif
Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
Thisform.afisactual_obiectul
This.Parent.Parent.Parent._grdfooter1.calctotal
ENDPROC
PROCEDURE txtCoef_discount.Valid
* IF EMPTY(goContract.val_discount)
*goContract.val_discount = ROUND(THISFORM.nValcdiscount * THISFORM.nCoef_discount / 100,gnPC)
goContract.val_discount = ROUND(THISFORM.nSumaArticole * THISFORM.nCoef_discount / 100,This.Parent.nzecimalesuma)
*goContract.valftva = THISFORM.nValcdiscount - goContract.val_discount
goContract.valftva = THISFORM.nSumaArticole - goContract.val_discount
goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma)
thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscountTotal.REFRESH
thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.REFRESH
thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.REFRESH
* ENDIF
ENDPROC
PROCEDURE txtProc_tva.Valid
goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma)
thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.REFRESH
ENDPROC
PROCEDURE txtProc_tva.When
This.Parent.nOldProcTVA = goContract.proc_tva
ENDPROC
PROCEDURE txtValDiscountTotal.Valid
*thisform.nCoef_discount = ROUND(goContract.val_discount / thisform.nValcdiscount * 100, gnPC)
Thisform.nCoef_discount = Round(goContract.val_discount / Thisform.nSumaArticole * 100, 2)
*goContract.valftva = thisform.nValcdiscount - goContract.val_discount
goContract.valftva = Thisform.nSumaArticole - goContract.val_discount
goContract.valctva = Round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma)
Thisform._pageframe1.page1.ct_dg_obiectul1.txtCoef_discount.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS ct_dg_tf AS ct_dg_cu_banda OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValvaluta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValvaluta.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cPret_cu_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cPret_cu_tva.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cProc_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cProc_tva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrataftva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrataftva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValratactva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValratactva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cRest.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cRest.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtScadenta_incasare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCoef_penalitati" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdMultiplicaRate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdAplicaScadenta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_pret_cu_tva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_afisare_scadenta" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: actualizeaza_zecimale
*p: nzecimalepret
*p: nzecimalesuma
*</DefinedPropArrayMethod>
*<PropValue>
Height = 479
Name = "ct_dg_tf"
nzecimalepret = gnPPretV
nzecimalesuma = gnPc
Width = 795
_SHAPE3.BackStyle = 0
_SHAPE3.Name = "_SHAPE3"
_SHAPE3.ZOrderSet = 1
_label1.Caption = "Termene de facturare <20>i achitare"
_label1.FontSize = 10
_label1.Left = 7
_label1.Name = "_label1"
_label1.TabIndex = 1
_label1.Top = 8
_label1.ZOrderSet = 2
*</PropValue>
ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
ccolwithlabel = cDen_rata, ;
csourcegrid = grid_scadentar, ;
csumcolumns = cprocent,cvalrataftva,cvalratactva,cvalvaluta,crest, ;
FontSize = 10, ;
Left = 0, ;
Name = "_grdfooter1", ;
RowHeight = 19, ;
TabIndex = 13, ;
Top = 408, ;
Width = 794, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_shape1' AS _shape WITH ;
Height = 479, ;
Left = 0, ;
Name = "_shape1", ;
SpecialEffect = 0, ;
Top = 0, ;
Width = 795, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
caction = inainte_de_do_listare_rate, ;
Left = 762, ;
Name = "But_listare1", ;
TabIndex = 14, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 9, ;
caction = do_adauga_rate, ;
Left = 701, ;
Name = "But_nou1", ;
TabIndex = 3, ;
Top = 1, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
caction = inainte_de_do_sterge_rate, ;
Left = 731, ;
Name = "But_sterge1", ;
TabIndex = 4, ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 5
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ck_afisare_scadenta' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 6, ;
AutoSize = .T., ;
Caption = "Se afi<66>eaz<61> data scaden<65>ei pe factur<75>", ;
ControlSource = "goContract.afisare_scadenta", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 282, ;
Name = "ck_afisare_scadenta", ;
TabIndex = 11, ;
Top = 453, ;
Width = 237
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'ck_pret_cu_tva' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 8, ;
AutoSize = .T., ;
Caption = "Pre<72>uri cu TVA", ;
FontBold = .T., ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 581, ;
Name = "ck_pret_cu_tva", ;
TabIndex = 15, ;
Top = 7, ;
Width = 111
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'cmdAplicaScadenta' AS commandbutton WITH ;
Anchor = 6, ;
Caption = "Aplic<69>", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 22, ;
Left = 211, ;
Name = "cmdAplicaScadenta", ;
TabIndex = 6, ;
ToolTipText = "Inlocuieste data scadenta cu data facturarii + perioada scadenta", ;
Top = 450, ;
Width = 60, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'cmdMultiplicaRate' AS commandbutton WITH ;
Anchor = 6, ;
Caption = "Instrument de multiplicare rate", ;
FontSize = 10, ;
Height = 27, ;
Left = 522, ;
Name = "cmdMultiplicaRate", ;
TabIndex = 5, ;
Top = 448, ;
Visible = .F., ;
Width = 96, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid_scadentar' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 13, ;
DeleteMark = .F., ;
FontSize = 10, ;
GridLineColor = 192,192,192, ;
HeaderHeight = 19, ;
Height = 400, ;
HighlightStyle = 2, ;
Left = 0, ;
Name = "grid_scadentar", ;
Panel = 1, ;
Partition = 0, ;
ReadOnly = .F., ;
RecordMark = .F., ;
RecordSource = "cCtrScadentar", ;
RowHeight = 19, ;
TabIndex = 2, ;
Top = 30, ;
Width = 794, ;
ZOrderSet = 3, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "nr_rata", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "cNr_rata", ;
Column1.ReadOnly = .F., ;
Column1.Width = 26, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "data_rata", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "cData_rata", ;
Column2.ReadOnly = .F., ;
Column2.Width = 72, ;
Column3.ColumnOrder = 7, ;
Column3.ControlSource = "valrata", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(20,This.nZecimalePret)), ;
Column3.Name = "cValrata", ;
Column3.ReadOnly = .F., ;
Column3.Width = 74, ;
Column4.ColumnOrder = 2, ;
Column4.ControlSource = "den_rata", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Name = "cDen_rata", ;
Column4.ReadOnly = .F., ;
Column4.Width = 135, ;
Column5.ColumnOrder = 5, ;
Column5.ControlSource = "procent", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.Format = "rk", ;
Column5.InputMask = (get_mask(20,2)), ;
Column5.Name = "cProcent", ;
Column5.ReadOnly = .F., ;
Column5.Width = 39, ;
Column6.BackColor = 225,223,217, ;
Column6.ColumnOrder = 12, ;
Column6.ControlSource = "nume_val", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.Name = "cNume_val", ;
Column6.ReadOnly = .T., ;
Column6.Width = 39, ;
Column7.ColumnOrder = 4, ;
Column7.ControlSource = "data_scadenta", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.Name = "cData_scadenta", ;
Column7.ReadOnly = .F., ;
Column7.Width = 70, ;
Column8.BackColor = 225,223,217, ;
Column8.ColumnOrder = 10, ;
Column8.ControlSource = "valvaluta", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.Format = "rk", ;
Column8.InputMask = (get_mask(20,This.nZecimaleSuma)), ;
Column8.Name = "cValvaluta", ;
Column8.ReadOnly = .T., ;
Column8.Width = 92, ;
Column9.Alignment = 2, ;
Column9.ColumnOrder = 6, ;
Column9.ControlSource = "pret_cu_tva", ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.Name = "cPret_cu_tva", ;
Column9.ReadOnly = .T., ;
Column9.Sparse = .F., ;
Column9.Width = 79, ;
Column10.BackColor = 225,223,217, ;
Column10.ColumnOrder = 13, ;
Column10.ControlSource = "proc_tva", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Format = "rk", ;
Column10.InputMask = "99", ;
Column10.Name = "cProc_tva", ;
Column10.ReadOnly = .T., ;
Column10.Width = 36, ;
Column11.BackColor = 225,223,217, ;
Column11.ColumnOrder = 8, ;
Column11.ControlSource = "valrataftva", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Format = "rk", ;
Column11.InputMask = (get_mask(20,This.nZecimalePret)), ;
Column11.Name = "cValrataftva", ;
Column11.ReadOnly = .T., ;
Column11.Width = 73, ;
Column12.BackColor = 225,223,217, ;
Column12.ColumnOrder = 9, ;
Column12.ControlSource = "valratactva", ;
Column12.DynamicBackColor = "", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Format = "rk", ;
Column12.InputMask = (get_mask(20,This.nZecimalePret)), ;
Column12.Name = "cValratactva", ;
Column12.ReadOnly = .T., ;
Column12.Width = 75, ;
Column13.BackColor = 225,223,217, ;
Column13.ColumnOrder = 11, ;
Column13.ControlSource = "valrataftva - valvaluta", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.InputMask = (get_mask(20,This.nZecimaleSuma)), ;
Column13.Name = "cRest", ;
Column13.ReadOnly = .F., ;
Column13.Width = 95
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data facturarii", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cData_scadenta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadentei", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cData_scadenta.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire rata", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
Enabled = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. rata", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
Enabled = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ;
BackColor = 225,223,217, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cPret_cu_tva.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 29, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 29, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_scadentar.cPret_cu_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret cu TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cProc_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Proc TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cProc_tva.Text1' AS textbox WITH ;
BackColor = 225,223,217, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cProcent.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent (%)", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cProcent.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cRest.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Rest de facturat fara TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cRest.Text1' AS textbox WITH ;
BackColor = 225,223,217, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare rata", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cValratactva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare rata cu TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cValratactva.Text1' AS textbox WITH ;
BackColor = 225,223,217, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cValrataftva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare rata fara TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cValrataftva.Text1' AS textbox WITH ;
BackColor = 225,223,217, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cValvaluta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare facturata fara TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cValvaluta.Text1' AS textbox WITH ;
BackColor = 225,223,217, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label13' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Coef.penalit<69><74>i", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 625, ;
Name = "Label13", ;
TabIndex = 12, ;
Top = 453, ;
Visible = .F., ;
Width = 84, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "zile", ;
FontSize = 10, ;
Height = 18, ;
Left = 179, ;
Name = "Label4", ;
TabIndex = 10, ;
Top = 453, ;
Width = 22, ;
ZOrderSet = 12
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Scaden<65><6E> <20>ncasare", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 7, ;
Name = "Label6", ;
TabIndex = 9, ;
Top = 453, ;
Width = 110, ;
ZOrderSet = 6
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtCoef_penalitati' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "goContract.coef_penalitati", ;
FontSize = 10, ;
Height = 23, ;
Left = 714, ;
Name = "txtCoef_penalitati", ;
TabIndex = 8, ;
Top = 450, ;
Visible = .F., ;
Width = 57, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtScadenta_incasare' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.scadenta_incasare", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = "999", ;
Left = 117, ;
Name = "txtScadenta_incasare", ;
TabIndex = 7, ;
Top = 450, ;
Width = 58, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="textbox" />
PROCEDURE actualizeaza_zecimale
Lparameters tnZecimalePret, tnZecimaleSuma
This.nzecimalepret = tnZecimalePret
This.nzecimalesuma = tnZecimaleSuma
With This.grid_scadentar
.cValrata.InputMask = get_mask(20,This.nzecimaleSuma)
.cValrataftva.InputMask = get_mask(20,This.nzecimaleSuma)
.cValratactva.InputMask = get_mask(20,This.nzecimaleSuma)
.cValvaluta.InputMask = get_mask(20,This.nzecimaleSuma)
.cRest.InputMask = get_mask(20,This.nZecimalesuma)
Endwith
ENDPROC
PROCEDURE Init
this.grid_scadentar.HeaderHeight = 38
ENDPROC
PROCEDURE cmdAplicaScadenta.Click
LOCAL lnZileScadenta, lcTabelRate
lnZileScadenta = this.Parent.txtscadenta_incasare.Value
lcTabelRate = this.Parent.grid_scadentar.RecordSource
SELECT (lcTabelRate)
REPLACE ALL data_scadenta WITH data_rata + lnZileScadenta
this.Parent.grid_scadentar.Refresh
ENDPROC
PROCEDURE cmdMultiplicaRate.Click
Private pnNrRate, pdDataI, pnValRata, pnId_valuta, pnFrecventa, pcDen_rata, pnPtLuna
Store 1 To pnNrRate, pnFrecventa, pnPtLuna
Select cCtrScadentar
pdDataI = data_rata
pnId_valuta = id_valuta
pcNume_val = Alltrim(nume_val)
pnValRata = goContract.valftva
lomr = Createobject("frm_multiplica_rate")
lomr.Show(1)
If buton = 2
Return
Endif
pcId_ctr = Alltrim(Str(goContract.id_ctr))
pcDataI = Alltrim(Dtos(pdDataI))
*!* modificare v 2.0.6
*!* lcSql = [begin pack_crm.multiplica_rate(] + pcId_ctr + [,] + ALLTRIM(STR(pnNrRate)) + [, TO_DATE('] + IIF(!EMPTY(pcDataI) and !ISNULL(pcDataI),pcDataI,[NULL]) + [','YYYYMMDD'), ] + ;
*!* ALLTRIM(STR(pnValRata,20,gnPC)) + [,'] + SUBSTR(ALLTRIM(pcDen_rata),1,30) + [',] + NVL(ALLTRIM(STR(pnId_valuta)),[NULL]) + [,] ;
*!* + ALLTRIM(STR(pnFrecventa)) + [,] + ALLTRIM(STR(pnPtLuna)) + [); end;]
lcSql = [begin pack_crm.multiplica_rate(] + pcId_ctr + [,] + Alltrim(Str(pnNrRate)) + [,] + ;
[TO_DATE('] + Iif(!Empty(pcDataI) And !Isnull(pcDataI),pcDataI,[NULL]) + [','YYYYMMDD'), ] + ;
ALLTRIM(Str(pnValRata,20,This.Parent.nzecimalepret)) + [,'] + Substr(Alltrim(pcDen_rata),1,80) + [',] + ;
NVL(Alltrim(Str(pnId_valuta)),[NULL]) + [,] + Alltrim(Str(pnFrecventa)) + [,] + ;
ALLTRIM(Str(pnPtLuna)) + [); end;]
*!* modificare v 2.0.6 ^
if goExecutor.oExecuta(lcSql)
Thisform.actualizeaza_grid1()
Endif
ENDPROC
PROCEDURE grid_scadentar.cData_rata.Text1.LostFocus
LOCAL lcTabel
lcTabel = this.Parent.Parent.RecordSource
SELECT (lcTabel)
REPLACE data_scadenta WITH data_rata + NVL(goContract.scadenta_incasare,0)
this.Parent.Parent.Refresh
ENDPROC
PROCEDURE grid_scadentar.cProcent.Text1.LostFocus
LOCAL lnProc
lnProc = this.Value
IF lnProc*0 = 0 AND goContract.valftva*0 = 0&& <> *************
REPLACE valrata WITH round(NVL(goContract.valftva,0) * lnProc/100,This.Parent.Parent.Parent.nzecimalepret)
ELSE
REPLACE valrata WITH 0
ENDIF
this.Parent.Parent.Parent._grdfooter1.calctotal
ENDPROC
PROCEDURE grid_scadentar.cValrata.Text1.LostFocus
If goContract.valftva <> 0 And goContract.valftva*0 = 0 && <> *************
Replace procent With valrata/goContract.valftva * 100
Else
Replace procent With 0
Endif
If pret_cu_tva = 1
Replace valrataftva With round(valrata / (1+proc_tva/100),This.Parent.Parent.Parent.nzecimalepret), valratactva With valrata
Else
Replace valrataftva With valrata, valratactva With round(valrata * (1+proc_tva/100),This.Parent.Parent.Parent.nzecimalepret)
Endif
This.Parent.Parent.Parent._grdfooter1.calctotal
ENDPROC
PROCEDURE grid_scadentar.Init
* NU STERGE
ENDPROC
ENDDEFINE
DEFINE CLASS ct_dg_tf_2 AS ct_dg_cu_banda OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="grid_fact_atas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSumaRate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSumaFacturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optFactAtas" UniqueID="" Timestamp="" />
*<PropValue>
Height = 428
Name = "ct_dg_tf_2"
Width = 809
_shape3.Name = "_shape3"
_label1.Caption = "Facturi asociate la scaden<65>ar"
_label1.Name = "_label1"
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 725, ;
Name = "But_listare1", ;
Top = 33, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Left = 755, ;
Name = "But_sterge1", ;
Top = 33, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Anchor = 3, ;
AutoSize = .F., ;
Caption = "Ata<74>are facturi", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 29, ;
Left = 240, ;
Name = "Command1", ;
Top = 36, ;
Width = 120, ;
WordWrap = .T.
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid_fact_atas' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 10, ;
DeleteMark = .F., ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 323, ;
Left = 372, ;
Name = "grid_fact_atas", ;
Panel = 1, ;
RecordSource = "cFactAtas", ;
Top = 69, ;
Width = 423, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "id_fact", ;
Column1.Name = "Column1", ;
Column1.Width = 50, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "valvaluta", ;
Column2.Format = "rk", ;
Column2.InputMask = (get_mask(14,max(gnPc,gnPVal))), ;
Column2.Name = "Column2", ;
Column2.Width = 81, ;
Column3.ColumnOrder = 5, ;
Column3.ControlSource = "curs", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(10,gnPCurs)), ;
Column3.Name = "Column3", ;
Column3.Width = 48, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "nume_val", ;
Column4.Name = "Column4", ;
Column4.Width = 55, ;
Column5.ColumnOrder = 8, ;
Column5.ControlSource = "nract", ;
Column5.Name = "Column5", ;
Column5.Width = 56, ;
Column6.ColumnOrder = 9, ;
Column6.ControlSource = "ttod(dataact)", ;
Column6.Name = "Column6", ;
Column6.Width = 41, ;
Column7.ColumnOrder = 7, ;
Column7.ControlSource = "fdoc", ;
Column7.Name = "Column7", ;
Column7.Width = 53, ;
Column8.ColumnOrder = 10, ;
Column8.ControlSource = "explicatia", ;
Column8.Name = "Column8", ;
Column8.Width = 111, ;
Column9.ColumnOrder = 3, ;
Column9.ControlSource = "valvalutactva", ;
Column9.InputMask = (get_mask(14,max(gnPc,gnPVal))), ;
Column9.Name = "Column9", ;
Column9.Width = 84, ;
Column10.ColumnOrder = 4, ;
Column10.ControlSource = "proctva", ;
Column10.Name = "Column10", ;
Column10.Width = 47
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_fact_atas.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "ID fact.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Proc TVA (%)", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta (fara TVA)", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr fact", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data fact", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_fact_atas.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta (cu TVA)", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar' AS _grdrow WITH ;
Anchor = 7, ;
ColumnCount = 5, ;
DeleteMark = .F., ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 323, ;
HighlightStyle = 2, ;
Left = 12, ;
Name = "grid_scadentar", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cCtrScadentar", ;
RowHeight = 18, ;
TabIndex = 1, ;
Top = 69, ;
Width = 351, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "nr_rata", ;
Column1.FontName = "Arial", ;
Column1.Name = "cNr_rata", ;
Column1.ReadOnly = .T., ;
Column1.Width = 29, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "data_rata", ;
Column2.FontName = "Arial", ;
Column2.Name = "cData_rata", ;
Column2.ReadOnly = .T., ;
Column2.Width = 55, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "valrata", ;
Column3.FontName = "Arial", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(20,max(gnPc,gnPVal))), ;
Column3.Name = "cValrata", ;
Column3.ReadOnly = .T., ;
Column3.Width = 97, ;
Column4.ColumnOrder = 2, ;
Column4.ControlSource = "den_rata", ;
Column4.FontName = "Arial", ;
Column4.Name = "cDen_rata", ;
Column4.ReadOnly = .T., ;
Column4.Width = 99, ;
Column5.ColumnOrder = 5, ;
Column5.ControlSource = "nume_val", ;
Column5.FontName = "Arial", ;
Column5.Name = "cNume_val", ;
Column5.ReadOnly = .T., ;
Column5.Width = 45
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data facturarii", ;
FontName = "Arial", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire rata", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. rata", ;
FontName = "Arial", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare rata valuta (fara TVA)", ;
FontName = "Arial", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label1' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valoare rate", ;
FontSize = 10, ;
Height = 18, ;
Left = 105, ;
Name = "Label1", ;
Top = 400, ;
Width = 100
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valori facturi", ;
FontSize = 10, ;
Height = 18, ;
Left = 536, ;
Name = "Label2", ;
Top = 400, ;
Width = 102
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'optFactAtas' AS optiongroup WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
ButtonCount = 2, ;
Height = 37, ;
Left = 374, ;
Name = "optFactAtas", ;
Top = 30, ;
Value = 1, ;
Width = 243, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Facturile ata<74>ate la rat<61>", ;
Option1.FontCharSet = 238, ;
Option1.FontSize = 10, ;
Option1.Height = 18, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 2, ;
Option1.Value = 1, ;
Option1.Width = 156, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Toate facturile ata<74>ate la contract", ;
Option2.FontCharSet = 238, ;
Option2.FontSize = 10, ;
Option2.Height = 18, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 16, ;
Option2.Width = 212
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'txtSumaFacturi' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "thisform.nSumaFact", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(14,gnPA)), ;
Left = 642, ;
Name = "txtSumaFacturi", ;
Top = 397, ;
Width = 153
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtSumaRate' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nSumaRate", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(14,gnPA)), ;
Left = 210, ;
Name = "txtSumaRate", ;
Top = 397, ;
Width = 153
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Command1.Click
Local lcSel, lcCursor, lnSucces, lcScadentar, lnId_fact, lnId_rata, lcSql, lnSucces
*!* lcSel = [{call pack_crm.facturi_neatasate(] + ALLTRIM(STR(gnParametru_prog))+ [,] + ALLTRIM(STR(goContract.id_part)) + [,]+ALLTRIM(STR(goContract.id_ctr))+ [)}]
*!* lcCursor = 'cFact_neatas'
*!* lnSucces = goExecutor.oExecute(lcSel, lcCursor)
*!* IF lnSucces < 0
*!* amessage(goExecutor.cEroare,0+16,"Eroare")
*!* RETURN
*!* ENDIF
Private poFactGaran
Store '' To poFactGaran
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal
lcOrder = [dataact desc]
lcgroup = []
lcFiltru = [ 1=1 ]
Do Case
Case gnParametru_prog=1
lcSchema = []
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, ]+;
[(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+;
[ from vireg_emise_in_perioada ]
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
Case gnParametru_prog=2
lcSchema = []
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, ]+;
[(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+;
[ from vireg_emise_in_perioada ]
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
Otherwise
lcFiltruOriginal = []
Endcase
llAfiseaza = .F.
llModParam = .T.
gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poFactGaran.ca_baza1.afisare()
***----------------------------
lcScadentar = Thisform.grid_scadentar.RecordSource
Select cFact_neatas
loip = Createobject('frm_atas_fact_iregpart')
loip.lb_titlu_alb_b121.Caption = 'Facturi fara contract sau corespunzatoare contractului '+Alltrim(goContract.numar) + ' / ' + Dtoc(goContract.Data)
loip.Show(1)
If buton = 2
Return
Endif
Private pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_valctva, pnFA_curs, pnFA_id_valuta, pcFA_nume_val, pnValRata
Store 0 To pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_curs, pnFA_id_valuta, pnValRata
Store '' To pcFA_nume_val
pnFA_valctva = cFact_neatas.suma
Select (lcScadentar)
lnId_rata = id_rata
pnFA_id_valuta = id_valuta
pcFA_nume_val = Upper(Alltrim(nume_val))
pnValRata = valrata && ca sa aflu cursul
pnFA_valvaluta = pnValRata
pnFA_procTVA = goContract.proc_tva
pnFA_valvalutacTVA = Round(pnFA_valvaluta * (1+pnFA_procTVA/100),gnPC)
*IF pnFA_valctva <> 0
If pnFA_valvalutacTVA <> 0
pnFA_curs = Round(pnFA_valctva/pnFA_valvalutacTVA,gnPCurs)
Endif
loafc = Createobject('frm_atas_fact_curs')
loafc.Show(1)
If buton = 2
Return
Endif
lnId_fact = cFact_neatas.id_fact
If !Empty(lnId_fact)
lcSql = [begin pack_crm.adauga_rata_fact(] + Alltrim(Str(lnId_rata)) + [,] + Alltrim(Str(lnId_fact)) + [,] ;
+ Alltrim(Str(pnFA_valvaluta,14,gnPC)) + [,] + Alltrim(Str(pnFA_valvalutacTVA,14,gnPC)) + [,] + Alltrim(Str(pnFA_procTVA)) + [,] ;
+ Alltrim(Str(pnFA_curs,12,gnPCurs)) + [,] + Alltrim(Str(pnFA_id_valuta)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX('pack_crm.cauta_ctr_art'+goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Thisform.actualizeaza_grid2()
*!* lcId_ctr = ALLTRIM(STR(goContract.id_ctr))
*!* lcId_fact = ALLTRIM(STR(lnId_fact))
*!* lcSql = [update act set id_ctr=] + lcId_ctr + [ where id_fact=]+lcId_fact + [ and id_ctr is null and sters=0]
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* IF lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* RETURN
*!* ENDIF
Endif
ENDPROC
PROCEDURE grid_fact_atas.AfterRowColChange
LPARAMETERS nColIndex
SELECT cFactAtas
lnId_fact = id_fact
lcTabelScadentar = thisform.grid_scadentar.RecordSource
UPDATE (lcTabelScadentar) SET lid_fact = 0
IF USED('cRate')
USE IN cRate
ENDIF
SELECT id_rata FROM cFactAtas WHERE id_fact = lnId_fact INTO CURSOR cRate
UPDATE (lcTabelScadentar) SET lid_fact = 1 WHERE id_rata in (select id_rata from cRate)
thisform.grid_scadentar.SetAll('DynamicBackColor','IIF(cCtrScadentar.Lid_fact=1, RGB(217,217,255), RGB(255,255,255))','Column')
ENDPROC
PROCEDURE grid_scadentar.AfterRowColChange
LPARAMETERS nColIndex
LOCAL lcTabelFactAtas
lcTabelFactAtas = thisform.grid_fact_atas.RecordSource
IF thisform.optFactAtas.Value = 1
SELECT (lcTabelFactAtas)
SET FILTER TO id_rata = cCtrScadentar.id_rata
ELSE
SELECT (lcTabelFactAtas)
SET FILTER TO
ENDIF
thisform.grID_FACT_ATAS.SetAll("DynamicBackColor","IIF(id_rata = cCtrScadentar.id_rata, RGB(206,255,255), RGB(255,255,255))", "Column")
thisform.afisactual
thisform.grid_fact_atas.Refresh
thisform.Refresh
ENDPROC
PROCEDURE optFactAtas.Valid
thisform.grid_scadentar.AfterRowColChange
ENDPROC
ENDDEFINE
DEFINE CLASS ct_dg_tl AS ct_dg_cu_banda OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_pv_nr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_proc_ret" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_val_ret" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_alerta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_proc_alerta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_pv_data" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cNract.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cNract.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cDataact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cDataact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cValftva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cValftva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cGarantie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.cGarantie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_perioada" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_attach1" UniqueID="" Timestamp="" />
*<PropValue>
Height = 479
Name = "ct_dg_tl"
Width = 795
_SHAPE3.Name = "_SHAPE3"
_SHAPE3.ZOrderSet = 0
_label1.Caption = "Termene de livrare/receptie si Garantii"
_label1.FontCharSet = 1
_label1.FontName = "Arial"
_label1.FontSize = 10
_label1.Name = "_label1"
_label1.ZOrderSet = 2
*</PropValue>
ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
ccolwithlabel = cNract, ;
csourcegrid = grid_Fact_garant, ;
csumcolumns = cValftva,cGarantie, ;
ctotallabelexpression = 'TOTAL', ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 20, ;
Left = 455, ;
Name = "_grdfooter1", ;
RowHeight = 19, ;
TabIndex = 29, ;
Top = 240, ;
Width = 338, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_shape1' AS _shape WITH ;
Height = 479, ;
Left = 0, ;
Name = "_shape1", ;
SpecialEffect = 0, ;
Top = 0, ;
Width = 795, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_attach1' AS but_attach WITH ;
Anchor = 9, ;
caction = do_ataseaza_garantie, ;
Left = 673, ;
Name = "But_attach1", ;
TabIndex = 9, ;
ToolTipText = "Atasare factura la contract;Facturile din contabilitate ale partenerului de pe contract care sunt atasate la contractul selectat sau nu sunt atasate la nici un contract", ;
Top = 1, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ;
Anchor = 9, ;
caction = inainte_de_do_modifica_garantie, ;
Left = 733, ;
Name = "BUT_MODIFICA1", ;
TabIndex = 11, ;
ToolTipText = "Modificare", ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 25
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 9, ;
caction = do_adauga_garantie, ;
Left = 703, ;
Name = "But_nou1", ;
TabIndex = 10, ;
ToolTipText = "Se alege dintre facturile din contabilitate ale partenerului de pe contract care sunt atasate la contractul selectat; facturi de 4111 pentru contracte-clienti si 401 sau 404 pentru contracte-furnizori", ;
Top = 1, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
caction = inainte_de_do_sterge_garantie, ;
Left = 763, ;
Name = "But_sterge1", ;
TabIndex = 12, ;
ToolTipText = "Stergere", ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 26
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_Fact_garant' AS _grdbase WITH ;
Anchor = 15, ;
ColumnCount = 4, ;
DeleteMark = .F., ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 232, ;
Left = 455, ;
Name = "grid_Fact_garant", ;
Panel = 1, ;
RecordSource = "cCtrFactGarant", ;
RowHeight = 19, ;
TabIndex = 13, ;
Top = 28, ;
Width = 338, ;
ZOrderSet = 18, ;
Column1.ControlSource = "nract", ;
Column1.FontCharSet = 1, ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "cNract", ;
Column1.Width = 67, ;
Column2.ControlSource = "dataact", ;
Column2.FontCharSet = 1, ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "cDataact", ;
Column2.Width = 65, ;
Column3.ControlSource = "valftva", ;
Column3.FontCharSet = 1, ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(12,gnPc)), ;
Column3.Name = "cValftva", ;
Column3.Width = 98, ;
Column4.ControlSource = "garantie", ;
Column4.FontCharSet = 1, ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Format = "rk", ;
Column4.InputMask = (get_mask(12,gnPc)), ;
Column4.Name = "cGarantie", ;
Column4.Width = 70
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_Fact_garant.cDataact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.cDataact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_Fact_garant.cGarantie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Garantii retinute", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.cGarantie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_Fact_garant.cNract.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.cNract.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_Fact_garant.cValftva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare (fara TVA)", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.cValftva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "PV predare-primire final<61>", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label1", ;
TabIndex = 26, ;
Top = 164, ;
Width = 144, ;
ZOrderSet = 3
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Facturi - Garantii retinute", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 464, ;
Name = "Label10", ;
TabIndex = 17, ;
Top = 9, ;
Width = 146, ;
ZOrderSet = 19
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label12' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Perioad<61> garantie", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label12", ;
TabIndex = 20, ;
Top = 189, ;
Width = 103, ;
ZOrderSet = 21
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label13' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "(nr. luni)", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 201, ;
Name = "Label13", ;
TabIndex = 22, ;
Top = 189, ;
Width = 49, ;
ZOrderSet = 23
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare garantie retinut<75>", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label2", ;
TabIndex = 25, ;
Top = 86, ;
Width = 143, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Returnare partial<61>", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label3", ;
TabIndex = 21, ;
Top = 112, ;
Width = 104, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent garantie retinut", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label4", ;
TabIndex = 16, ;
Top = 60, ;
Width = 137, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "(nr. zile)", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 201, ;
Name = "Label5", ;
TabIndex = 23, ;
Top = 112, ;
Width = 49, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent returnare", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label6", ;
TabIndex = 24, ;
Top = 138, ;
Width = 102, ;
ZOrderSet = 12
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "/", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 232, ;
Name = "Label7", ;
TabIndex = 28, ;
Top = 164, ;
Width = 6, ;
ZOrderSet = 15
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 201, ;
Name = "Label8", ;
TabIndex = 19, ;
Top = 60, ;
Width = 14, ;
ZOrderSet = 16
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 201, ;
Name = "Label9", ;
TabIndex = 18, ;
Top = 138, ;
Width = 14, ;
ZOrderSet = 17
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtGrnt_alerta1' AS textbox WITH ;
ControlSource = "goContract.grnt_alerta1", ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = "9999", ;
Left = 157, ;
Name = "txtGrnt_alerta1", ;
TabIndex = 3, ;
Top = 109, ;
Width = 43, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_perioada' AS textbox WITH ;
ControlSource = "goContract.grnt_perioada", ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = "9999", ;
Left = 157, ;
Name = "txtGrnt_perioada", ;
TabIndex = 8, ;
Top = 186, ;
Width = 43, ;
ZOrderSet = 22
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_proc_alerta1' AS textbox WITH ;
ControlSource = "goContract.grnt_proc_alerta1", ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(4,0)), ;
Left = 157, ;
Name = "txtGrnt_proc_alerta1", ;
TabIndex = 4, ;
Top = 135, ;
Width = 43, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_proc_ret' AS textbox WITH ;
ControlSource = "goContract.grnt_proc_ret", ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(4,0)), ;
Left = 157, ;
Name = "txtGrnt_proc_ret", ;
TabIndex = 1, ;
Top = 57, ;
Width = 43, ;
ZOrderSet = 6
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_pv_data' AS textbox WITH ;
ControlSource = "goContract.grnt_pv_data", ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
Left = 241, ;
Name = "txtGrnt_pv_data", ;
TabIndex = 7, ;
Top = 161, ;
Width = 72, ;
ZOrderSet = 14
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_pv_nr' AS textbox WITH ;
ControlSource = "goContract.grnt_pv_nr", ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = "9999999999", ;
Left = 157, ;
Name = "txtGrnt_pv_nr", ;
TabIndex = 6, ;
Top = 161, ;
Width = 72, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_val_ret' AS textbox WITH ;
ControlSource = "goContract.grnt_val_ret", ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(10,gnPc)), ;
Left = 157, ;
Name = "txtGrnt_val_ret", ;
TabIndex = 2, ;
Top = 83, ;
Width = 156, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="textbox" />
PROCEDURE txtGrnt_proc_ret.Valid
IF !ISNULL(gocontract.valftva)
goContract.grnt_val_ret = gocontract.valftva * goContract.grnt_proc_ret / 100
thisform.txtGrnt_val_ret.Refresh
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS ct_part_nr_data AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="cmdDenumire" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: blocheaza_campuri
*m: deblocheaza_campuri
*p: llock
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 197,214,254
Height = 62
llock = .T.
Name = "ct_part_nr_data"
Width = 600
*</PropValue>
ADD OBJECT 'cmdDenumire' AS commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
Height = 22, ;
Left = 525, ;
Name = "cmdDenumire", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 2, ;
Top = 5, ;
Width = 29
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Anchor = 3, ;
Caption = "Modific<69>", ;
FontBold = .T., ;
FontCharSet = 238, ;
FontSize = 10, ;
ForeColor = 0,0,255, ;
Height = 47, ;
Left = 8, ;
Name = "Command2", ;
Picture = ..\comun\grafice\lock.bmp, ;
SpecialEffect = 0, ;
TabIndex = 1, ;
Top = 4, ;
Width = 131
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Partener", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 163, ;
Name = "Label3", ;
TabIndex = 6, ;
Top = 8, ;
Width = 57
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. contract ", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 163, ;
Name = "Label4", ;
TabIndex = 7, ;
Top = 30, ;
Width = 79
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data contract ", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 359, ;
Name = "Label9", ;
TabIndex = 8, ;
Top = 30, ;
Width = 90
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_actAd' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. act ad.", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 163, ;
Name = "lb_actAd", ;
TabIndex = 8, ;
Top = 43, ;
Visible = .F., ;
Width = 67
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtClient' AS textbox WITH ;
ControlSource = "goContract.denumire", ;
FontSize = 10, ;
Height = 21, ;
Left = 240, ;
Name = "txtClient", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 6, ;
Width = 283
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_ctr' AS textbox WITH ;
ControlSource = "goContract.data", ;
FontSize = 10, ;
Height = 21, ;
Left = 452, ;
Name = "txtData_ctr", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 28, ;
Width = 102
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtNumar' AS textbox WITH ;
ControlSource = "goContract.numar", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 241, ;
Name = "txtNumar", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 28, ;
Width = 113
*< END OBJECT: BaseClass="textbox" />
PROCEDURE blocheaza_campuri
this.cmdDenumire.Enabled = .F.
this.txtNumar.ReadOnly = .T.
this.txtData_ctr.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
this.cmdDenumire.Enabled = .T.
this.txtNumar.ReadOnly = .F.
this.txtData_ctr.ReadOnly = .F.
ENDPROC
PROCEDURE cmdDenumire.Click
LOCAL lcIdTipPart, lcTitlu
STORE '' TO lcIdTipPart, lcTitlu
* loCauta = caut_partener(lcIdTipPart, lcTitlu)
DO CASE
CASE gnParametru_prog = 1 && contracte clienti
lcIdTipPart = [-1]
lcTitlu = 'Clienti'
lcLista = ['4111']
lcContul = '4111'
CASE gnParametru_prog = 2 && contracte furnizori
lcIdTipPart = [-2]
lcTitlu = 'Furnizori'
lcLista = ['401','404']
lcContul = '401'
ENDCASE
lnIdTipPart = GetContIdTipPart(lcContul)
*!* IF !EMPTY(lcLista)
*!* lcSql = [select distinct c.cont as cont_part, c.explicatie as explic_cont, c.id_tip_part as tip ] + ;
*!* [from vcoresp_tip_cont c ] + ;
*!* [where c.cont in (] + lcLista + [) ]
*!* ENDIF
*!* lcCursor = 'xcont'
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* IF lnSucces < 0
*!* aMessagebox('Eroare!',0+48, 'Atentie!')
*!* RETURN
*!* ENDIF
*!* SELECT xcont
*!* BROWSE
*!* SELECT xcont
*!* LOCATE FOR VAL(cont_part) = VAL(lcContul)
*!* lcContul = cont_part
*!* lcTip = ALLTRIM(STR(tip))
locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart))))
IF buton = 2
RETURN
ENDIF
goContract.id_part = loCauta.id_part
goContract.denumire = loCauta.denumire
THIS.PARENT.txtClient.REFRESH
* THISFORM.pageframe1.page1.txtClient.REFRESH
ENDPROC
PROCEDURE Command2.Click
Parameters tlNou
&& la adaugarea unui contract nou, intra cu butonul de modificare "apasat"
*!* If Alltrim(goContract.tip_istoric) <> 'C' && pentru istoric Acte aditionale, sa nu mai pot face modificari, doar vizualizari
*!* AMESSAGEBOX('Nu se poate modifica istoricul unui contract!',0+48,'Atentie!')
*!* Return
*!* Endif
Local llNou
llNou = tlNou
If This.Parent.lLock
If !llNou
AMESSAGEBOX('Toate modificarile au efect imediat! Nu puteti da renuntare!',0+48,'Atentie!')
Endif
This.Picture = 'unlock.bmp'
This.Parent.lLock = .F.
This.Caption = 'Salveaza'
This.Parent.deblocheaza_campuri()
******
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.deblocheaza_campuri()
Endif
If Type('podg_ob.but_termin1') <> 'U'
podg_ob.deblocheaza_campuri()
Endif
If Type('podg_tf.but_termin1') <> 'U'
podg_tf.deblocheaza_campuri()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.deblocheaza_campuri()
Endif
If Type('podg_fact.but_termin1') <> 'U'
podg_fact.deblocheaza_campuri()
Endif
If Type('podg_tl.but_termin1') <> 'U'
podg_tl.deblocheaza_campuri()
Endif
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.deblocheaza_campuri()
Endif
******
Else
If Type('podg_fact.but_termin1') <> 'U'
If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And Empty(Nvl(goContract.id_nota,0))
AMESSAGEBOX('Alegeti nota contabila !',0+48)
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.blocheaza_campuri()
Endif
If Type('podg_ob.but_termin1') <> 'U'
podg_ob.blocheaza_campuri()
Endif
If Type('podg_tf.but_termin1') <> 'U'
podg_tf.blocheaza_campuri()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.blocheaza_campuri()
Endif
If Type('podg_fact.but_termin1') <> 'U'
podg_fact.blocheaza_campuri()
Endif
If Type('podg_tl.but_termin1') <> 'U'
podg_tl.blocheaza_campuri()
Endif
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.blocheaza_campuri()
Endif
Return
Endif
Endif
This.Picture = 'lock.bmp'
This.Parent.lLock = .T.
This.Caption = 'Modifica'
This.Parent.blocheaza_campuri()
If Empty(Nvl(goContract.id_part,0))
AMESSAGEBOX('Alegeti partenerul!')
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.blocheaza_campuri()
Endif
If Type('podg_ob.but_termin1') <> 'U'
podg_ob.blocheaza_campuri()
Endif
If Type('podg_tf.but_termin1') <> 'U'
podg_tf.blocheaza_campuri()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.blocheaza_campuri()
Endif
If Type('podg_fact.but_termin1') <> 'U'
podg_fact.blocheaza_campuri()
Endif
If Type('podg_tl.but_termin1') <> 'U'
podg_tl.blocheaza_campuri()
Endif
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.blocheaza_campuri()
Endif
This.Parent.cmdDenumire.SetFocus()
Return
Endif
If pnGNnumar<>0 And Upper(Alltrim(Str(pnGNnumar))) <> Upper(Alltrim(goContract.numar))
poGeneratorNumere.dezaloca_numar(13)
Endif
Do modifica_ctr_dg With goContract In oproceduri_roacontracte.prg
&& sa nu mai faca de fiecare data do_cauta (sa aduca toate contactele de pe server)
Select cContracte
Locate For id_ctr = goContract.id_ctr
If Found()
Gather Name goContract Memo
Endif
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.blocheaza_campuri()
Endif
If Type('podg_ob.but_termin1') <> 'U'
podg_ob.blocheaza_campuri()
Endif
If Type('podg_tf.but_termin1') <> 'U'
podg_tf.blocheaza_campuri()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.blocheaza_campuri()
Endif
If Type('podg_fact.but_termin1') <> 'U'
podg_fact.blocheaza_campuri()
Endif
If Type('podg_tl.but_termin1') <> 'U'
podg_tl.blocheaza_campuri()
Endif
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.blocheaza_campuri()
Endif
Endif
ENDPROC
PROCEDURE Command2.Refresh
IF THIS.PARENT.lLock
THIS.PICTURE = 'lock.bmp'
THIS.CAPTION = 'Modifica'
ELSE
THIS.PICTURE = 'unlock.bmp'
THIS.CAPTION = 'Salveaza'
ENDIF
ENDPROC
PROCEDURE Label3.Init
DO CASE
CASE gnParametru_prog = 1
THIS.CAPTION = 'Client'
CASE gnParametru_prog = 2
THIS.CAPTION = 'Furnizor'
ENDCASE
ENDPROC
ENDDEFINE
DEFINE CLASS ct_part_nr_data_2 AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdDenumire" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: blocheaza_campuri
*m: deblocheaza_campuri
*p: llock
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 206,241,255
Height = 34
llock = .T.
Name = "ct_part_nr_data_2"
Width = 795
*</PropValue>
ADD OBJECT '_shape1' AS _shape WITH ;
Height = 34, ;
Left = 0, ;
Name = "_shape1", ;
SpecialEffect = 0, ;
Top = 0, ;
Width = 795, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'cmdDenumire' AS commandbutton WITH ;
Caption = "", ;
Height = 22, ;
Left = 371, ;
Name = "cmdDenumire", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 2, ;
Top = 5, ;
Width = 29
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Partener", ;
FontBold = .T., ;
FontSize = 10, ;
ForeColor = 255,0,0, ;
Height = 18, ;
Left = 7, ;
Name = "Label3", ;
TabIndex = 6, ;
Top = 9, ;
Width = 57
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. / Data contract", ;
FontBold = .T., ;
FontSize = 10, ;
ForeColor = 255,0,0, ;
Height = 18, ;
Left = 440, ;
Name = "Label4", ;
TabIndex = 7, ;
Top = 9, ;
Width = 116
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "/", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 674, ;
Name = "Label9", ;
TabIndex = 8, ;
Top = 9, ;
Width = 6
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_actAd' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. act ad.", ;
FontBold = .T., ;
FontSize = 8, ;
Height = 16, ;
Left = 440, ;
Name = "lb_actAd", ;
TabIndex = 8, ;
Top = 18, ;
Visible = .F., ;
Width = 55
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtClient' AS textbox WITH ;
ControlSource = "goContract.denumire", ;
DisabledBackColor = 255,255,255, ;
FontSize = 10, ;
Format = "!k", ;
Height = 21, ;
Left = 80, ;
Name = "txtClient", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 6, ;
Width = 289
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_ctr' AS textbox WITH ;
ControlSource = "goContract.data", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 686, ;
Name = "txtData_ctr", ;
TabIndex = 4, ;
Top = 6, ;
Width = 102
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtNumar' AS textbox WITH ;
ControlSource = "goContract.numar", ;
FontSize = 10, ;
Format = "k", ;
Height = 21, ;
Left = 554, ;
Name = "txtNumar", ;
TabIndex = 3, ;
Top = 6, ;
Width = 113
*< END OBJECT: BaseClass="textbox" />
PROCEDURE blocheaza_campuri
this.cmdDenumire.Enabled = .F.
this.txtNumar.ReadOnly = .T.
this.txtData_ctr.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
this.cmdDenumire.Enabled = .T.
this.txtNumar.ReadOnly = .F.
this.txtData_ctr.ReadOnly = .F.
ENDPROC
PROCEDURE cmdDenumire.Click
LOCAL lcIdTipPart, lcTitlu
STORE '' TO lcIdTipPart, lcTitlu
* loCauta = caut_partener(lcIdTipPart, lcTitlu)
DO CASE
CASE gnParametru_prog = 1 && contracte clienti
lcIdTipPart = [-1]
lcTitlu = 'Clienti'
lcLista = ['4111']
lcContul = '4111'
CASE gnParametru_prog = 2 && contracte furnizori
lcIdTipPart = [-2]
lcTitlu = 'Furnizori'
lcLista = ['401','404']
lcContul = '401'
ENDCASE
lnIdTipPart = GetContIdTipPart(lcContul)
*!* IF !EMPTY(lcLista)
*!* lcSql = [select distinct c.cont as cont_part, c.explicatie as explic_cont, c.id_tip_part as tip ] + ;
*!* [from vcoresp_tip_cont c ] + ;
*!* [where c.cont in (] + lcLista + [) ]
*!* ENDIF
*!* lcCursor = 'xcont'
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* IF lnSucces < 0
*!* aMessagebox('Eroare!',0+48, 'Atentie!')
*!* RETURN
*!* ENDIF
*!* SELECT xcont
*!* BROWSE
*!* SELECT xcont
*!* LOCATE FOR VAL(cont_part) = VAL(lcContul)
*!* lcContul = cont_part
*!* lcTip = ALLTRIM(STR(tip))
locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart))))
IF buton = 2
RETURN
ENDIF
goContract.id_part = loCauta.id_part
goContract.denumire = loCauta.denumire
THIS.PARENT.txtClient.REFRESH
* THISFORM.pageframe1.page1.txtClient.REFRESH
ENDPROC
PROCEDURE Label3.Init
DO CASE
CASE gnParametru_prog = 1
THIS.CAPTION = 'Client'
CASE gnParametru_prog = 2
THIS.CAPTION = 'Furnizor'
ENDCASE
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_actaditional AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_actaditional"
*</PropValue>
PROCEDURE make_sql
LPARAMETERS toRec,tnId
lcActiune = ALLTRIM(THIS.cActiune)
lcId_util = ALLTRIM(STR(gnidutil))
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_ctr = NVL(ALLTRIM(STR(goContract.id_ctr)),"0")
lcId_part = NVL(ALLTRIM(STR(goContract.id_part)),"0")
lcId_tip_ctr = NVL(ALLTRIM(STR(goContract.id_tip_ctr)),"0")
lcNumar = NVL(ALLTRIM(toRec.numar),"0")
lcData = ALLTRIM(DTOS(toRec.data))
lcDescriere = NVL(ALLTRIM(toRec.descriere),"")
ENDIF
Do Case
Case lcActiune = "INSERT"
lcSql = [begin pack_crm.adauga_act_aditional(]+lcId_ctr+ [,]+lcId_part+ [,] + lcId_tip_ctr+[,']+ lcNumar+[',]+;
[to_date(']+lcData+[','YYYYMMDD'),']+lcDescriere+ [',]+lcId_util+[); end;]
Case lcActiune = "UPDATE"
lcSql = [begin pack_def.modifica_contract(]+lcId+[,']+lcNumar+[',]+;
[to_date(']+lcData+[','YYYYMMDD'),]+lcId_tip_ctr + [,]+lcInactiv+[,]+lcId_util+[); end;]
Case lcActiune = "DELETE"
lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;]
ENDCASE
this.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_selectie AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_selectie"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
lcId_util = Alltrim(Str(gnIdUtil))
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')
lcSelectie = Strtran(Alltrim(toRec.selectie),['],[''])
ENDIF
Do Case
Case lcActiune = "INSERT"
lcSql = [begin PACK_CTR_FURNIZORI.adauga_selectie('] + lcSelectie + [',]+lcId_util+[); end;]
Case lcActiune = "UPDATE"
lcSql = [begin PACK_CTR_FURNIZORI.modifica_selectie(]+lcId +[,']+lcSelectie+ [',]+ lcId_util+[); end;]
Case lcActiune = "DELETE"
* lcSql = [begin pack_nomenclatoare.sterge_tip_ctr(]+lcId+[,]+lcId_util+[); end;]
lcSql = [begin PACK_CTR_FURNIZORI.sterge_selectie(]+lcId+ [,]+ lcId_util+[); end;]
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS frm_actaditional_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="Clb_data" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_numar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_descriere" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_actaditional1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 143
Name = "frm_actaditional_nou"
nid = .F.
orec = .NULL.
Width = 353
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 293
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 61
Lb_titlu_alb_b121.Caption = "ACT ADI<44>IONAL"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 6
BUT_TERMIN1.Left = 324
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
Gridsort1.Left = 96
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 8
*</PropValue>
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Left = 295, ;
Name = "BUT_RENUNT1", ;
TabIndex = 5, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_data' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 7, ;
Name = "Clb_data", ;
TabIndex = 2, ;
Top = 68, ;
Width = 314, ;
ZOrderSet = 7, ;
TEXT_SIMPLU1.ControlSource = "poRec.data", ;
TEXT_SIMPLU1.Format = "!K", ;
TEXT_SIMPLU1.Left = 114, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
Lb_simplu1.Caption = "Data", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_descriere' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 7, ;
Name = "Clb_descriere", ;
TabIndex = 3, ;
Top = 105, ;
Width = 314, ;
ZOrderSet = 7, ;
Text_simplu1.ControlSource = "poRec.descriere", ;
Text_simplu1.Format = "!K", ;
Text_simplu1.Left = 114, ;
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_numar' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 7, ;
Name = "Clb_numar", ;
TabIndex = 1, ;
Top = 40, ;
Width = 314, ;
ZOrderSet = 7, ;
Text_simplu1.ControlSource = "poRec.numar", ;
Text_simplu1.Format = "!K", ;
Text_simplu1.Left = 114, ;
Text_simplu1.Name = "Text_simplu1", ;
Lb_simplu1.Caption = "Num<75>r", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_actaditional1' AS cus_odata_actaditional WITH ;
Left = 180, ;
Name = "Cus_odata_actaditional1", ;
Top = 8
*< END OBJECT: ClassLib="ferestre_contracte.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.numar)
amessagebox('Nu ati completat numarul actului aditional!',0+48,"Atentie")
this.clb_numar.texT_SIMPLU1.SetFocus()
plReturn=.F.
Case Empty(porec.data)
amessagebox('Nu ati completat data actului aditional!',0+48,"Atentie")
this.clb_data.texT_SIMPLU1.SetFocus()
plReturn=.F.
Case Empty(porec.descriere)
amessagebox('Nu ati completat desrierea actului aditional!',0+48,"Atentie")
this.clb_descriere.texT_SIMPLU1.SetFocus()
plReturn=.F.
Otherwise
plReturn=This.cus_odata_actaditional1.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_actaditional1.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_alerte 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="Ck_data_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cNumar.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cNumar.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cData.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cData.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cValidat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cValidat.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cNr_alerta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cNr_alerta.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cDescriere.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_alerte.cDescriere.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="opt_validat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="opt_Instiintat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_alerta" UniqueID="" Timestamp="" />
*<PropValue>
cgridsortlist = grid_alerte
DoCreate = .T.
Height = 573
Name = "frm_alerte"
Width = 708
_SHAPE1.Anchor = 11
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 948
_SHAPE2.Anchor = 9
_SHAPE2.Height = 29
_SHAPE2.Left = 613
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 92
LB_TITLU_ALB_B121.Caption = "Alerte garan<61>ii"
LB_TITLU_ALB_B121.Left = 6
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 12
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 677
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 11
BUT_TERMIN1.Top = 1
GRIDSORT1.Left = 192
GRIDSORT1.Name = "GRIDSORT1"
GRIDSORT1.Top = 6
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 645, ;
Name = "But_excel1", ;
TabIndex = 10, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
caction = do_listare, ;
Left = 614, ;
Name = "But_listare1", ;
TabIndex = 9, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = data, ;
Caption = "Data ctr.", ;
FontName = "Arial Narrow", ;
Left = 72, ;
Name = "Ck_data_ctr", ;
TabIndex = 2, ;
tip = D, ;
Top = 34, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_alerta' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = nr_alerta, ;
Caption = "Nr. alert<72>", ;
FontName = "Arial Narrow", ;
Left = 72, ;
mask = 9, ;
Name = "Ck_nr_alerta", ;
TabIndex = 4, ;
Top = 53
*< END OBJECT: ClassLib="..\..\roacont\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = numar, ;
Caption = "Nr. ctr.", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_nr_ctr", ;
TabIndex = 1, ;
Top = 34, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = denumire, ;
Caption = "Partener", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_nume", ;
TabIndex = 3, ;
Top = 53, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 547, ;
Name = "Cmd_cauta1", ;
TabIndex = 7, ;
Top = 42, ;
Width = 67, ;
ZOrderSet = 21
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 619, ;
Name = "Cmd_reset1", ;
TabIndex = 17, ;
Top = 42, ;
Width = 67, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_alerte' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 7, ;
DeleteMark = .F., ;
GridLines = 0, ;
HeaderHeight = 38, ;
Height = 429, ;
Left = 6, ;
Name = "grid_alerte", ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "cAlerte", ;
ScrollBars = 2, ;
TabIndex = 8, ;
Top = 90, ;
Width = 695, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "denumire", ;
Column1.Name = "cDenumire", ;
Column1.Width = 157, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "numar", ;
Column2.Name = "cNumar", ;
Column2.Width = 33, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "ttod(data)", ;
Column3.Name = "cData", ;
Column3.Width = 70, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "validat", ;
Column4.Name = "cValidat", ;
Column4.Sparse = .F., ;
Column4.Width = 41, ;
Column5.ColumnOrder = 7, ;
Column5.ControlSource = "nr_alerta", ;
Column5.Name = "cNr_alerta", ;
Column5.Width = 33, ;
Column6.ColumnOrder = 5, ;
Column6.ControlSource = "Instiintat", ;
Column6.CurrentControl = "Check1", ;
Column6.FontName = "Arial", ;
Column6.Name = "cInstiintat", ;
Column6.Sparse = .F., ;
Column6.Width = 35, ;
Column7.ColumnOrder = 4, ;
Column7.ControlSource = "descriere", ;
Column7.Name = "cDescriere", ;
Column7.Width = 298
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_alerte.cData.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data contr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_alerte.cData.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_alerte.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_alerte.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_alerte.cDescriere.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Descriere alerta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_alerte.cDescriere.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_alerte.cInstiintat.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
FontName = "Arial", ;
Height = 17, ;
Left = 21, ;
Name = "Check1", ;
Top = 89, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_alerte.cInstiintat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Insti- intat", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_alerte.cInstiintat.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_alerte.cNr_alerta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr alerta", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_alerte.cNr_alerta.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_alerte.cNumar.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. contr.", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_alerte.cNumar.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_alerte.cValidat.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
FontName = "Arial", ;
Height = 17, ;
Left = 33, ;
Name = "Check1", ;
Top = 59, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_alerte.cValidat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Validat", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Label1' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. alert<72>:", ;
FontCharSet = 238, ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 6, ;
Name = "Label1", ;
TabIndex = 13, ;
Top = 519, ;
Width = 44
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "1 - dep<65><70>ire termen contractual", ;
FontCharSet = 238, ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 50, ;
Name = "Label2", ;
TabIndex = 14, ;
Top = 519, ;
Width = 129
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "2 - restituire procent par<61>ial din garan<61>ia re<72>inut<75> la factur<75> (dup<75> nr. zile de la PVR)", ;
FontCharSet = 238, ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 50, ;
Name = "Label3", ;
TabIndex = 15, ;
Top = 531, ;
Width = 339
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "3 - restituirea restului de garan<61>ie de pe toate facturile emise conform contractului (dup<75> perioada de garan<61>ie)", ;
FontCharSet = 238, ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 50, ;
Name = "Label4", ;
TabIndex = 16, ;
Top = 543, ;
Width = 445
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "4 - apropiere ultima rat<61> definit<69>", ;
FontCharSet = 238, ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 50, ;
Name = "Label5", ;
TabIndex = 18, ;
Top = 555, ;
Width = 130
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'opt_Instiintat' AS optiongroup WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
ButtonCount = 3, ;
Height = 51, ;
Left = 271, ;
Name = "opt_Instiintat", ;
TabIndex = 6, ;
Top = 34, ;
Value = 1, ;
Width = 97, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Alerte ne<6E>n<EFBFBD>tiin<69>ate", ;
Option1.FontCharSet = 238, ;
Option1.FontName = "Arial Narrow", ;
Option1.Height = 18, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 1, ;
Option1.Value = 1, ;
Option1.Width = 92, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Alerte <20>n<EFBFBD>tiin<69>ate", ;
Option2.FontCharSet = 238, ;
Option2.FontName = "Arial Narrow", ;
Option2.Height = 18, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 16, ;
Option2.Width = 82, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Toate alertele", ;
Option3.FontName = "Arial Narrow", ;
Option3.Height = 18, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 32, ;
Option3.Width = 72
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'opt_validat' AS optiongroup WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
ButtonCount = 3, ;
Height = 51, ;
Left = 168, ;
Name = "opt_validat", ;
TabIndex = 5, ;
Top = 36, ;
Value = 1, ;
Width = 97, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Alerte nevalidate", ;
Option1.FontName = "Arial Narrow", ;
Option1.Height = 18, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 1, ;
Option1.Value = 1, ;
Option1.Width = 87, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Alerte validate", ;
Option2.FontName = "Arial Narrow", ;
Option2.Height = 18, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 16, ;
Option2.Width = 77, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Toate alertele", ;
Option3.FontName = "Arial Narrow", ;
Option3.Height = 18, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 32, ;
Option3.Width = 72
*< END OBJECT: BaseClass="optiongroup" />
PROCEDURE actualizeaza_grid1
Lparameters pcFiltru
Local lcFiltru
lcFiltru = pcFiltru
If Empty(lcFiltru)
lcFiltru = poAlerte.ca_baza1.cfiltru
Endif
save_grid_tag(This.grid_alerte)
poAlerte.ca_baza1.cfiltru = lcFiltru
poAlerte.ca_baza1.afisare()
restore_grid_tag(This.grid_alerte)
If Reccount('cAlerte')>0
Select cAlerte
Go Top
This.grid_alerte.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru = ""
If This.ck_nume.Value = 1
lcFiltru = lcFiltru + This.ck_nume.filtru
Endif
If This.ck_nr_ctr.Value = 1
lcFiltru = lcFiltru + This.ck_nr_ctr.filtru
Endif
If This.ck_data_ctr.Value = 1
lcFiltru = lcFiltru + This.ck_data_ctr.filtru
Endif
If This.ck_nr_alerta.Value = 1
lcFiltru = lcFiltru + This.ck_nr_alerta.filtru
ENDIF
Do Case
Case This.opt_validat.Value = 1
lcFiltru = lcFiltru + [ and validat = 0]
Case This.opt_validat.Value = 2
lcFiltru = lcFiltru + [ and validat = 1]
ENDCASE
Do Case
Case This.opt_Instiintat.Value = 1
lcFiltru = lcFiltru + [ and instiintat = 0]
Case This.opt_Instiintat.Value = 2
lcFiltru = lcFiltru + [ and instiintat = 1]
Endcase
If !Empty(lcFiltru)
lcFiltru = Substr(lcFiltru,6)
Else
lcFiltru = [1=1]
Endif
This.actualizeaza_grid1(lcFiltru)
If Reccount('cAlerte')=0
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
Endif
this.grid_alerte.SetFocus()
ENDPROC
PROCEDURE do_listare
thisform.AlwaysOnTop=.f.
pcdataora = get_Ora(2)
SELECT cAlerte
REPORT FORM ralerte TO PRINTER PROMPT PREVIEW
thisform.AlwaysOnTop=.t.
ENDPROC
PROCEDURE do_reset
With This
For i=1 To .Objects.Count
If Upper(.Objects(i).BaseClass)='CHECKBOX'
.Objects(i).Value=0
Endif
Endfor
ENDWITH
this.opt_validat.Value = 1
this.opt_Instiintat.Value = 1
this.ck_nr_ctr.SetFocus()
ENDPROC
PROCEDURE inainte_de_do_excel
DO export_excel_grid WITH this.grid_alerte
ENDPROC
PROCEDURE grid_alerte.cInstiintat.Check1.Valid
Private pnId_ctr, pnNr_alerta
Store 0 To pnId_ctr, pnNr_alerta
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
pnId= id
lcSql = [update ctr_log_alerte set instiintat = 1,ID_UTIL_INST = ?gnIdUtil,dataora_inst = sysdate where id=?pnId;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
*!* Else
*!* AMESSAGEBOX('Nu se poate modifica starea unei alerte validate deja!')
*!* Endif
ENDPROC
PROCEDURE grid_alerte.cInstiintat.Check1.When
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
If instiintat = 1
Return .F.
Endif
ENDPROC
PROCEDURE grid_alerte.cValidat.Check1.LostFocus
thisform.grid_alerte.Refresh
ENDPROC
PROCEDURE grid_alerte.cValidat.Check1.Valid
Private pnId_ctr, pnNr_alerta
Store 0 To pnId_ctr, pnNr_alerta
*!* If instiintat <> 1
*!* Messagebox('Pentru a valida o alerta, aceasta trebuie sa fie instiintata',0+16,'Atentie')
*!* Replace Validat With 0
*!* Return
*!* Endif
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
pnId_ctr = id_ctr
pnNr_alerta = nr_alerta
lcSql = [begin pack_crm.valideaza_alerta(?pnId_ctr, ?pnNr_alerta, ?gnIdUtil); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
thisform.grid_alerte.Refresh
*!* Else
*!* AMESSAGEBOX('Nu se poate modifica starea unei alerte validate deja!')
*!* Endif
ENDPROC
PROCEDURE grid_alerte.cValidat.Check1.When
Local lcTabel
lcTabel = This.Parent.Parent.RecordSource
Select (lcTabel)
If Validat = 1
Return .F.
ENDIF
If instiintat <> 1
aMessagebox('Pentru a valida o alerta, aceasta trebuie sa fie instiintata!',48,'Atentie')
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Label5.Init
IF gnParametru_prog=1
this.Visible= .T.
ELSE
this.Visible= .F.
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_atas_fact_curs 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="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValvaluta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCurs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValvalutactva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtProc_tva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 146
Name = "frm_atas_fact_curs"
Width = 344
_shape1.Anchor = 11
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 324
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 281
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 60
Lb_titlu_alb_b121.Caption = "Date suplimentare"
Lb_titlu_alb_b121.Left = 10
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 8
Lb_titlu_alb_b121.Top = 6
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 313
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
Gridsort1.Left = 180
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 6
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 283, ;
Name = "But_renunt1", ;
TabIndex = 7, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdValuta' AS commandbutton WITH ;
Caption = "", ;
FontName = "Arial Narrow", ;
Height = 25, ;
Left = 258, ;
Name = "cmdValuta", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 5, ;
Top = 114, ;
Width = 28
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare valut<75> (f<>r<EFBFBD> TVA)", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 10, ;
Name = "Label1", ;
TabIndex = 12, ;
Top = 91, ;
Width = 135
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label17' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valuta", ;
Height = 17, ;
Left = 10, ;
Name = "Label17", ;
TabIndex = 15, ;
Top = 117, ;
Width = 36
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Curs", ;
Height = 17, ;
Left = 10, ;
Name = "Label2", ;
TabIndex = 13, ;
Top = 39, ;
Width = 29
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare valut<75> (cu TVA)", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 10, ;
Name = "Label3", ;
TabIndex = 11, ;
Top = 65, ;
Width = 127
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Proc TVA", ;
FontName = "Arial Narrow", ;
Height = 35, ;
Left = 262, ;
Name = "Label4", ;
TabIndex = 9, ;
Top = 56, ;
Width = 20, ;
WordWrap = .T.
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 325, ;
Name = "Label5", ;
TabIndex = 10, ;
Top = 65, ;
Width = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtCurs' AS textbox WITH ;
ControlSource = "pnFA_curs", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(10,gnPCurs)), ;
Left = 155, ;
Name = "txtCurs", ;
TabIndex = 1, ;
Top = 36, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtProc_tva' AS textbox WITH ;
ControlSource = "pnFA_procTva", ;
Format = "rk", ;
Height = 23, ;
InputMask = "99", ;
Left = 286, ;
Name = "txtProc_tva", ;
TabIndex = 3, ;
Top = 62, ;
Width = 39
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValuta' AS textbox WITH ;
ControlSource = "pcFA_nume_val", ;
Height = 23, ;
Left = 155, ;
Name = "txtValuta", ;
ReadOnly = .T., ;
TabIndex = 14, ;
Top = 114, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValvaluta' AS textbox WITH ;
ControlSource = "pnFA_valvaluta", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(10,gnPc)), ;
Left = 155, ;
Name = "txtValvaluta", ;
TabIndex = 4, ;
Top = 88, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValvalutactva' AS textbox WITH ;
ControlSource = "pnFA_valvalutacTVA", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(10,gnPc)), ;
Left = 155, ;
Name = "txtValvalutactva", ;
TabIndex = 2, ;
Top = 62, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
PROCEDURE cmdValuta.Click
locauta = caut_valuta()
If buton=2
Return
Endif
pnFA_id_valuta = locauta.id_valuta
pcFA_nume_val = locauta.nume_val
*!* modificare v 2.0.46
With Thisform.txtVALVALUTA
.InputMask = get_mask(10,Iif(locauta.moneda_nationala=1,gnPc,gnPVal))
.Refresh()
Endwith
With Thisform.txtValvalutactva
.InputMask = get_mask(10,Iif(locauta.moneda_nationala=1,gnPc,gnPVal))
.Refresh()
Endwith
*!* modificare v 2.0.46 ^
Thisform.txtValuta.Refresh
ENDPROC
PROCEDURE txtProc_tva.LostFocus
pnFa_valvaluta = pnFa_valvalutactva / (1 + pnFA_procTva/100)
thisform.txtValvaluta.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS frm_atas_fact_iregpart 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_Fact_iregPart" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*<PropValue>
cgridsortlist = grid_Fact_iregPart
DoCreate = .T.
Height = 480
Name = "frm_atas_fact_iregpart"
Width = 757
_SHAPE1.Anchor = 11
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 765
_SHAPE2.Anchor = 9
_SHAPE2.Height = 29
_SHAPE2.Left = 695
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 61
LB_TITLU_ALB_B121.Caption = "Facturi partener"
LB_TITLU_ALB_B121.Left = 6
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 727
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 168
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 9
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 696, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = dataact, ;
Caption = "Data fact.", ;
FontName = "Arial Narrow", ;
Left = 63, ;
Name = "Ck_data_fact", ;
TabIndex = 1, ;
tip = D, ;
Top = 36, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = nract, ;
Caption = "Nr. fact.", ;
FontName = "Arial Narrow", ;
Left = 6, ;
mask = (replicate('9',12)), ;
Name = "Ck_nr_fact", ;
TabIndex = 4, ;
Top = 36, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 432, ;
Name = "Cmd_cauta1", ;
TabIndex = 34, ;
Top = 33, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 522, ;
Name = "Cmd_reset1", ;
TabIndex = 45, ;
Top = 33, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
AutoSize = .T., ;
Caption = "Ata<74>eaz<61> factura la contract", ;
FontCharSet = 238, ;
Height = 27, ;
Left = 357, ;
Name = "Command1", ;
Top = 444, ;
Width = 167
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
AutoSize = .T., ;
Caption = "Deta<74>eaz<61> factura de pe contract", ;
FontCharSet = 238, ;
Height = 27, ;
Left = 545, ;
Name = "Command2", ;
Top = 444, ;
Width = 197
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid_Fact_iregPart' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 8, ;
DeleteMark = .F., ;
HeaderHeight = 38, ;
Height = 363, ;
HighlightStyle = 2, ;
Left = 6, ;
Name = "grid_Fact_iregPart", ;
Panel = 1, ;
RecordSource = "cFact_neatas", ;
Top = 68, ;
Width = 743, ;
Column1.ControlSource = "fdoc", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "nract", ;
Column2.Name = "Column2", ;
Column3.ControlSource = "ttod(dataact)", ;
Column3.Name = "Column3", ;
Column4.ControlSource = "suma", ;
Column4.Format = "rk", ;
Column4.InputMask = (get_mask(14,gnPc)), ;
Column4.Name = "Column4", ;
Column4.Width = 113, ;
Column5.ControlSource = "explicatia", ;
Column5.Name = "Column5", ;
Column5.Width = 122, ;
Column6.ControlSource = "id_fact", ;
Column6.Name = "Column6", ;
Column7.ControlSource = "cod", ;
Column7.Name = "Column7", ;
Column8.ControlSource = "contract", ;
Column8.Name = "Column8", ;
Column8.Width = 94
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_Fact_iregPart.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.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_Fact_iregPart.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.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_Fact_iregPart.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.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_Fact_iregPart.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma lei cu TVA", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.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_Fact_iregPart.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.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_Fact_iregPart.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "ID fact", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.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 'grid_Fact_iregPart.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.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 'grid_Fact_iregPart.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_iregPart.Column8.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 = poFactGaran.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform.grid_Fact_iregPart)
poFactGaran.ca_baza1.cfiltru = lcFiltru
poFactGaran.ca_baza1.afisare()
restore_grid_tag(thisform.grid_Fact_iregPart)
IF RECCOUNT('cFact_neatas')>0
thisform.grid_Fact_iregPart.SetFocus()
ENDIF
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru = ""
If This.ck_nr_fact.Value = 1
lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru
Endif
If This.ck_data_fact.Value = 1
lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru
Endif
lcFiltru = [ and id_part = ]+ Alltrim(Str(goContract.id_part))+;
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + lcFiltru
lcFiltru = Substr(lcFiltru,6)
Thisform.actualizeaza_grid1(lcFiltru)
Thisform.grid_Fact_iregPart.SetFocus()
ENDPROC
PROCEDURE do_reset
With This
For i=1 To .Objects.Count
If Upper(.Objects(i).BaseClass)='CHECKBOX'
.Objects(i).Value=0
Endif
Endfor
ENDWITH
ENDPROC
PROCEDURE Command1.Click
LOCAL lnId_fact, lnCod
STORE 0 TO lnId_fact, lnCod
SELECT cFact_neatas
lnId_fact = id_fact
lnCod = cod
lcSql=[update act set id_ctr=]+ALLTRIM(STR(goContract.id_ctr))+;
[where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod))
lnSucces=goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
ENDIF
lcSql=[update ireg_parteneri set id_ctr=]+ALLTRIM(STR(goContract.id_ctr))+;
[where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod))
lnSucces=goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
ENDIF
thisform.do_cauta()
ENDPROC
PROCEDURE Command2.Click
LOCAL lnId_fact, lnCod
STORE 0 TO lnId_fact, lnCod
SELECT cFact_neatas
lnId_fact = id_fact
lnCod = cod
lcSql=[update act set id_ctr = NULL ]+;
[where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod))
lnSucces=goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
ENDIF
lcSql=[update ireg_parteneri set id_ctr = NULL ]+;
[where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod))
lnSucces=goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
ENDIF
thisform.do_cauta()
ENDPROC
PROCEDURE grid_Fact_iregPart.Init
this.SetAll("DynamicBackColor","IIF(atasata=1, RGB(206,255,255), RGB(255,255,255))", "Column")
ENDPROC
ENDDEFINE
DEFINE CLASS frm_atasare_facturi 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_fact_atas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSumaRate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSumaFacturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optFactAtas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_part_nr_data1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual
*p: nsumafact
*p: nsumarate
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cgridsortlist = grid_scadentar;grid_fact_atas
DoCreate = .T.
Height = 514
Name = "frm_atasare_facturi"
nsumafact = 0
nsumarate = 0
Width = 795
_SHAPE1.Anchor = 11
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 792
_SHAPE2.Anchor = 9
_SHAPE2.Height = 29
_SHAPE2.Left = 727
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 70
LB_TITLU_ALB_B121.Caption = "Facturi asociate la scadentar"
LB_TITLU_ALB_B121.Left = 12
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.Top = 6
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 763
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 204
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 5
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 732, ;
Name = "But_listare1", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Left = 746, ;
Name = "But_sterge1", ;
Top = 118, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Anchor = 3, ;
AutoSize = .T., ;
Caption = "Ata<74>are facturi", ;
FontCharSet = 238, ;
Height = 27, ;
Left = 258, ;
Name = "Command1", ;
Top = 118, ;
Width = 84, ;
WordWrap = .T.
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Ct_part_nr_data1' AS ct_part_nr_data WITH ;
BorderColor = 255,255,255, ;
Height = 70, ;
Left = 3, ;
Name = "Ct_part_nr_data1", ;
Top = 36, ;
Width = 600, ;
CMDDENUMIRE.Name = "CMDDENUMIRE", ;
CMDDENUMIRE.Visible = .F., ;
CMDDENUMIRE.ZOrderSet = 2, ;
LABEL3.Left = 16, ;
LABEL3.Name = "LABEL3", ;
LABEL3.Top = 13, ;
LABEL3.ZOrderSet = 3, ;
TXTCLIENT.Left = 87, ;
TXTCLIENT.Name = "TXTCLIENT", ;
TXTCLIENT.Top = 10, ;
TXTCLIENT.ZOrderSet = 4, ;
LABEL4.Left = 16, ;
LABEL4.Name = "LABEL4", ;
LABEL4.Top = 41, ;
LABEL4.ZOrderSet = 5, ;
TXTNUMAR.Left = 87, ;
TXTNUMAR.Name = "TXTNUMAR", ;
TXTNUMAR.Top = 38, ;
TXTNUMAR.ZOrderSet = 6, ;
LABEL9.Left = 209, ;
LABEL9.Name = "LABEL9", ;
LABEL9.Top = 40, ;
LABEL9.ZOrderSet = 7, ;
TXTDATA_CTR.Left = 288, ;
TXTDATA_CTR.Name = "TXTDATA_CTR", ;
TXTDATA_CTR.Top = 37, ;
TXTDATA_CTR.ZOrderSet = 8, ;
COMMAND2.Name = "COMMAND2", ;
COMMAND2.Visible = .F., ;
COMMAND2.ZOrderSet = 0, ;
lb_actAd.Name = "lb_actAd"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ADD OBJECT 'grid_fact_atas' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 10, ;
DeleteMark = .F., ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 323, ;
Left = 363, ;
Name = "grid_fact_atas", ;
Panel = 1, ;
RecordSource = "cFactAtas", ;
Top = 154, ;
Width = 423, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "id_fact", ;
Column1.Name = "Column1", ;
Column1.Width = 50, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "valvaluta", ;
Column2.Format = "rk", ;
Column2.InputMask = (get_mask(14,MAX(gnPC,gnPVal))), ;
Column2.Name = "Column2", ;
Column2.Width = 81, ;
Column3.ColumnOrder = 5, ;
Column3.ControlSource = "curs", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(10,gnPCurs)), ;
Column3.Name = "Column3", ;
Column3.Width = 48, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "nume_val", ;
Column4.Name = "Column4", ;
Column4.Width = 55, ;
Column5.ColumnOrder = 8, ;
Column5.ControlSource = "nract", ;
Column5.Name = "Column5", ;
Column5.Width = 56, ;
Column6.ColumnOrder = 9, ;
Column6.ControlSource = "ttod(dataact)", ;
Column6.Name = "Column6", ;
Column6.Width = 41, ;
Column7.ColumnOrder = 7, ;
Column7.ControlSource = "fdoc", ;
Column7.Name = "Column7", ;
Column7.Width = 53, ;
Column8.ColumnOrder = 10, ;
Column8.ControlSource = "explicatia", ;
Column8.Name = "Column8", ;
Column8.Width = 111, ;
Column9.ColumnOrder = 3, ;
Column9.ControlSource = "valvalutactva", ;
Column9.InputMask = (get_mask(20,MAX(gnPC,gnPVal))), ;
Column9.Name = "Column9", ;
Column9.Width = 84, ;
Column10.ColumnOrder = 4, ;
Column10.ControlSource = "proctva", ;
Column10.Name = "Column10", ;
Column10.Width = 47
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_fact_atas.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "ID fact.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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_fact_atas.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Proc TVA (%)", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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 'grid_fact_atas.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta (fara TVA)", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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_fact_atas.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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_fact_atas.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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_fact_atas.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr fact", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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_fact_atas.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data fact", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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 'grid_fact_atas.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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 'grid_fact_atas.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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 'grid_fact_atas.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta (cu TVA)", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_fact_atas.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 'grid_scadentar' AS _grdrow WITH ;
Anchor = 7, ;
ColumnCount = 5, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 323, ;
HighlightStyle = 2, ;
Left = 3, ;
Name = "grid_scadentar", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cCtrScadentar", ;
RowHeight = 18, ;
TabIndex = 1, ;
Top = 154, ;
Width = 351, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "nr_rata", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cNr_rata", ;
Column1.ReadOnly = .T., ;
Column1.Width = 29, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "data_rata", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cData_rata", ;
Column2.ReadOnly = .T., ;
Column2.Width = 55, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "valrata", ;
Column3.FontName = "Arial Narrow", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(20,MAX(gnPC,gnPVal))), ;
Column3.Name = "cValrata", ;
Column3.ReadOnly = .T., ;
Column3.Width = 97, ;
Column4.ColumnOrder = 2, ;
Column4.ControlSource = "den_rata", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cDen_rata", ;
Column4.ReadOnly = .T., ;
Column4.Width = 99, ;
Column5.ColumnOrder = 5, ;
Column5.ControlSource = "nume_val", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "cNume_val", ;
Column5.ReadOnly = .T., ;
Column5.Width = 45
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data facturarii", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cData_rata.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 'grid_scadentar.cDen_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire rata", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cDen_rata.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 'grid_scadentar.cNr_rata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. rata", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cNr_rata.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 'grid_scadentar.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cNume_val.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 'grid_scadentar.cValrata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare rata valuta (fara TVA)", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cValrata.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 'Label1' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valoare rate", ;
Height = 17, ;
Left = 96, ;
Name = "Label1", ;
Top = 485, ;
Width = 96
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valori facturi", ;
Height = 17, ;
Left = 527, ;
Name = "Label2", ;
Top = 482, ;
Width = 97
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'optFactAtas' AS optiongroup WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
ButtonCount = 2, ;
Height = 37, ;
Left = 444, ;
Name = "optFactAtas", ;
Top = 115, ;
Value = 1, ;
Width = 161, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Facturile ata<74>ate la rat<61>", ;
Option1.FontCharSet = 238, ;
Option1.FontName = "Arial Narrow", ;
Option1.Height = 18, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 2, ;
Option1.Value = 1, ;
Option1.Width = 113, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Toate facturile ata<74>ate la contract", ;
Option2.FontCharSet = 238, ;
Option2.FontName = "Arial Narrow", ;
Option2.Height = 18, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 16, ;
Option2.Width = 151
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'txtSumaFacturi' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "thisform.nSumaFact", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(14,gnPc)), ;
Left = 633, ;
Name = "txtSumaFacturi", ;
Top = 482, ;
Width = 153
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtSumaRate' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nSumaRate", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(14,gnPc)), ;
Left = 201, ;
Name = "txtSumaRate", ;
Top = 482, ;
Width = 153
*< END OBJECT: BaseClass="textbox" />
PROCEDURE actualizeaza_grid2
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru = pcFiltru
IF EMPTY(lcFiltru)
lcFiltru = poFact_atas.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform.grid_fact_atas)
poFact_atas.ca_baza1.cfiltru = lcFiltru
poFact_atas.ca_baza1.afisare()
restore_grid_tag(thisform.grid_fact_atas)
IF RECCOUNT('cFactAtas')>0
thisform.grid_fact_atas.SetFocus()
ENDIF
ENDPROC
PROCEDURE afisactual
LOCAL lcTabelFact
lcTabelFact = thisform.grid_fact_atas.RecordSource
SELECT (lcTabelFact)
CALCULATE SUM(ROUND(NVL(valvaluta,0),gnPC)) TO thisform.nSumafact
thisform.txtSumaFacturi.Refresh
ENDPROC
PROCEDURE inainte_de_do_listare
lcSel = [{call pack_crm.situatie_rate(] + Alltrim(Str(goContract.id_ctr)) + [)}]
lcCursor = 'cSitRate'
If goExecutor.oExecuta(lcSel, lcCursor)
Private pcPartener, pcNrData, pcValuta
pcPartener = Nvl(Alltrim(goContract.denumire),'')
pcNrData = Nvl(Alltrim(goContract.numar),'')+' / ' + Nvl(Dtoc(goContract.Data),'')
pcValuta = Nvl(Alltrim(goContract.nume_val),'')
pcTitlu = 'Situa<75>ia ratelor'
Thisform.AlwaysOnTop = .F.
***
Select * From (lcCursor) Into Cursor cList Readwrite
Use In (lcCursor)
Select id_rata, Cnt(id_rata) As Cnt ;
FROM cList ;
HAVING Cnt > 1 ;
GROUP By 1 Order By 2 ;
INTO Cursor crsDuplicate
Select crsDuplicate
Scan
lnId_rata = id_rata
lnCount = Cnt - 1
lnGasit = 0
Select cList
Locate For id_rata = lnId_rata
Do While Found( )
lnGasit = lnGasit + 1
If lnGasit > 1
Replace nr_rata With .Null., den_rata With .Null., data_rata With .Null., valrata With .Null., sumvalrate With .Null., valfact With .Null.
Endif
Continue
Enddo
Endscan
***
If Used('crsDuplicate')
Use In crsDuplicate
Endif
goExport.export2frx([cList],[rRate_facturi_extins])
If Used('cList')
Use In cList
Endif
Thisform.AlwaysOnTop = .T.
Endif
ENDPROC
PROCEDURE inainte_de_do_sterge
LOCAL lcFact_atas, lnId_rata, lnId_fact, lcSql, lnSucces
lcFact_atas = THISFORM.grID_FACT_ATAS.RECORDSOURCE
SELECT (lcFact_atas)
lnId_rata = id_rata
lnId_fact = id_fact
lcSql = [begin pack_crm.sterge_rata_fact(] + ALLTRIM(STR(lnId_rata)) + [,] ;
+ ALLTRIM(STR(lnId_fact)) + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
THISFORM.actualizeaza_grid2()
ENDPROC
PROCEDURE Init
DODEFAULT()
LOCAL lcTabelRate, lcTabelFact
lcTabelRate = thisform.grid_scadentar.RecordSource
lcTabelFact = thisform.grid_fact_atas.RecordSource
SELECT (lcTabelRate)
CALCULATE SUM(ROUND(NVL(valrata,0),gnPC)) TO thisform.nSumarate
SELECT (lcTabelFact)
CALCULATE SUM(ROUND(NVL(valvaluta,0),gnPC)) TO thisform.nSumafact
thisform.txtSumaRate.Refresh
thisform.txtSumaFacturi.Refresh
ENDPROC
PROCEDURE Release
IF USED('cRate')
USE IN cRate
ENDIF
ENDPROC
PROCEDURE Command1.Click
Local lcSel, lcCursor, lnSucces, lcScadentar, lnId_fact, lnId_rata, lcSql, lnSucces
*!* lcSel = [{call pack_crm.facturi_neatasate(] + ALLTRIM(STR(gnParametru_prog))+ [,] + ALLTRIM(STR(goContract.id_part)) + [,]+ALLTRIM(STR(goContract.id_ctr))+ [)}]
*!* lcCursor = 'cFact_neatas'
*!* lnSucces = goExecutor.oExecute(lcSel, lcCursor)
*!* IF lnSucces < 0
*!* amessage(goExecutor.cEroare,0+16,"Eroare")
*!* RETURN
*!* ENDIF
Private poFactGaran
Store '' To poFactGaran
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal
lcOrder = [dataact desc]
lcgroup = []
lcFiltru = [ 1=1 ]
Do Case
Case gnParametru_prog=1
lcSchema = []
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, ]+;
[(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+;
[ from vireg_emise_in_perioada ]
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
Case gnParametru_prog=2
lcSchema = []
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, ]+;
[(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+;
[ from vireg_emise_in_perioada ]
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
Otherwise
lcFiltruOriginal = []
Endcase
llAfiseaza = .F.
llModParam = .T.
gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poFactGaran.ca_baza1.afisare()
***----------------------------
lcScadentar = Thisform.grid_scadentar.RecordSource
Select cFact_neatas
loip = Createobject('frm_atas_fact_iregpart')
loip.lb_titlu_alb_b121.Caption = 'Facturi fara contract sau corespunzatoare contractului '+Alltrim(goContract.numar) + ' / ' + Dtoc(goContract.Data)
loip.Show(1)
If buton = 2
Return
Endif
Private pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_valctva, pnFA_curs, pnFA_id_valuta, pcFA_nume_val, pnValRata
Store 0 To pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_curs, pnFA_id_valuta, pnValRata
Store '' To pcFA_nume_val
pnFA_valctva = cFact_neatas.suma
Select (lcScadentar)
lnId_rata = id_rata
pnFA_id_valuta = id_valuta
pcFA_nume_val = Upper(Alltrim(nume_val))
pnValRata = valrata && ca sa aflu cursul
pnFA_valvaluta = pnValRata
pnFA_procTVA = goContract.proc_tva
pnFA_valvalutacTVA = Round(pnFA_valvaluta * (1+pnFA_procTVA/100),gnPC)
*IF pnFA_valctva <> 0
If pnFA_valvalutacTVA <> 0
pnFA_curs = Round(pnFA_valctva/pnFA_valvalutacTVA,gnPCurs)
Endif
loafc = Createobject('frm_atas_fact_curs')
loafc.Show(1)
If buton = 2
Return
Endif
lnId_fact = cFact_neatas.id_fact
If !Empty(lnId_fact)
lcSql = [begin pack_crm.adauga_rata_fact(] + Alltrim(Str(lnId_rata)) + [,] + Alltrim(Str(lnId_fact)) + [,] ;
+ Alltrim(Str(pnFA_valvaluta,14,gnPC)) + [,] + Alltrim(Str(pnFA_valvalutacTVA,14,gnPC)) + [,] + Alltrim(Str(pnFA_procTVA)) + [,] ;
+ Alltrim(Str(pnFA_curs,10,gnPCurs)) + [,] + Alltrim(Str(pnFA_id_valuta)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX('pack_crm.cauta_ctr_art'+goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Thisform.actualizeaza_grid2()
*!* lcId_ctr = ALLTRIM(STR(goContract.id_ctr))
*!* lcId_fact = ALLTRIM(STR(lnId_fact))
*!* lcSql = [update act set id_ctr=] + lcId_ctr + [ where id_fact=]+lcId_fact + [ and id_ctr is null and sters=0]
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* IF lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* RETURN
*!* ENDIF
Endif
ENDPROC
PROCEDURE grid_fact_atas.AfterRowColChange
LPARAMETERS nColIndex
SELECT cFactAtas
lnId_fact = id_fact
lcTabelScadentar = thisform.grid_scadentar.RecordSource
UPDATE (lcTabelScadentar) SET lid_fact = 0
IF USED('cRate')
USE IN cRate
ENDIF
SELECT id_rata FROM cFactAtas WHERE id_fact = lnId_fact INTO CURSOR cRate
UPDATE (lcTabelScadentar) SET lid_fact = 1 WHERE id_rata in (select id_rata from cRate)
thisform.grid_scadentar.SetAll('DynamicBackColor','IIF(cCtrScadentar.Lid_fact=1, RGB(217,217,255), RGB(255,255,255))','Column')
ENDPROC
PROCEDURE grid_scadentar.AfterRowColChange
LPARAMETERS nColIndex
LOCAL lcTabelFactAtas
lcTabelFactAtas = thisform.grid_fact_atas.RecordSource
IF thisform.optFactAtas.Value = 1
SELECT (lcTabelFactAtas)
SET FILTER TO id_rata = cCtrScadentar.id_rata
ELSE
SELECT (lcTabelFactAtas)
SET FILTER TO
ENDIF
thisform.grID_FACT_ATAS.SetAll("DynamicBackColor","IIF(id_rata = cCtrScadentar.id_rata, RGB(206,255,255), RGB(255,255,255))", "Column")
thisform.afisactual
thisform.grid_fact_atas.Refresh
thisform.Refresh
ENDPROC
PROCEDURE optFactAtas.Valid
thisform.grid_scadentar.AfterRowColChange
ENDPROC
ENDDEFINE
DEFINE CLASS frm_contracte_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="_pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale1.ck_suspendat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_fact1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_part_nr_data_21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_obiectul1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale_frz1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page2.Ct_dg_tf1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3.Ct_atasamente1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page4.Ct_dg_tl1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual_obiectul
*m: do_adauga_garantie
*m: do_adauga_obiectul
*m: do_adauga_rate
*m: do_ataseaza_garantie
*m: do_download
*m: do_open
*m: do_upload
*m: inainte_de_do_listare_rate
*m: inainte_de_do_modifica_garantie
*m: inainte_de_do_sterge_atasament
*m: inainte_de_do_sterge_garantie
*m: inainte_de_do_sterge_obiectul
*m: inainte_de_do_sterge_rate
*p: clistaidarticole
*p: cxmlarticole
*p: llnou
*p: ncoef_discount
*p: ndiscountmediu
*p: nsumaarticole
*p: nvalcdiscount
*p: nvaldiscount
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
clistaidarticole =
cxmlarticole =
DoCreate = .T.
Height = 546
llnou = .F.
Name = "frm_contracte_nou"
ncoef_discount = 0
ndiscountmediu = 0
nsumaarticole = 0
nvalcdiscount = 0
nvaldiscount = 0
Width = 808
_memberdata = <VFPData>
<memberdata name="cxmlarticole" type="property" display="cXMLArticole"/>
</VFPData>
_shape1.Anchor = 11
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 876
_shape2.Anchor = 12
_shape2.Left = 737
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "Contract"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 4
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 779
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
Gridsort1.Left = 204
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 6
But_renunt1.Anchor = 9
But_renunt1.Left = 750
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 3
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT '_pageframe1' AS _pageframe WITH ;
Anchor = 15, ;
ErasePage = .T., ;
Height = 560, ;
Left = 0, ;
Name = "_pageframe1", ;
PageCount = 4, ;
TabIndex = 1, ;
Top = 28, ;
Width = 810, ;
Page1.BackColor = 255,255,255, ;
Page1.Caption = "Date generale", ;
Page1.FontBold = .T., ;
Page1.FontName = "Arial", ;
Page1.Name = "Page1", ;
Page1.PageOrder = 1, ;
Page2.BackColor = 255,255,255, ;
Page2.Caption = "Rate", ;
Page2.FontBold = .T., ;
Page2.FontName = "Arial", ;
Page2.Name = "Page2", ;
Page2.PageOrder = 2, ;
Page3.BackColor = 255,255,255, ;
Page3.Caption = "Doc. ata<74>ate", ;
Page3.FontBold = .T., ;
Page3.FontCharSet = 238, ;
Page3.FontName = "Arial", ;
Page3.Name = "Page3", ;
Page3.PageOrder = 3, ;
Page4.BackColor = 255,255,255, ;
Page4.Caption = "Garan<61>ii", ;
Page4.FontBold = .T., ;
Page4.FontCharSet = 238, ;
Page4.FontName = "Arial", ;
Page4.Name = "Page4", ;
Page4.PageOrder = 4
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale1' AS ct_dg_date_generale WITH ;
Anchor = 3, ;
Left = 5, ;
Name = "Ct_dg_date_generale1", ;
TabIndex = 2, ;
Top = 49, ;
Shape1.Name = "Shape1", ;
Shape3.Name = "Shape3", ;
Shape7.Name = "Shape7", ;
txtDescriere.Name = "txtDescriere", ;
Shape5.Name = "Shape5", ;
txtMotiv_incetat.Name = "txtMotiv_incetat", ;
Label6.Name = "Label6", ;
txtData_intern.Name = "txtData_intern", ;
ck_incetat.Alignment = 0, ;
ck_incetat.Name = "ck_incetat", ;
Label10.Name = "Label10", ;
txtDurata.Name = "txtDurata", ;
Label4.Name = "Label4", ;
Label17.Name = "Label17", ;
Label2.Name = "Label2", ;
txtData_incetat.Name = "txtData_incetat", ;
txtNumar_intern.Name = "txtNumar_intern", ;
Label12.Name = "Label12", ;
Label21.Name = "Label21", ;
ck_inactiv.Alignment = 0, ;
ck_inactiv.Name = "ck_inactiv", ;
ck_semnat.Alignment = 0, ;
ck_semnat.Name = "ck_semnat", ;
Label1.Name = "Label1", ;
cbo_valute.ControlSource = "goContract.nume_val", ;
cbo_valute.Name = "cbo_valute", ;
txtData_inceput.Name = "txtData_inceput", ;
Label5.Name = "Label5", ;
txtData_sfarsit.Name = "txtData_sfarsit", ;
cbo_sectii.Name = "cbo_sectii", ;
cmdResponsabil.Name = "cmdResponsabil", ;
Label14.Name = "Label14", ;
txtResponsabil.Name = "txtResponsabil", ;
Label9.Name = "Label9", ;
Label20.Name = "Label20", ;
cbo_tip_ctr.Name = "cbo_tip_ctr"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale1.ck_suspendat' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Suspendat", ;
ControlSource = "goContract.suspendat", ;
Left = 179, ;
Name = "ck_suspendat", ;
Top = 202
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale_frz1' AS ct_dg_date_generale_frz WITH ;
Anchor = 0, ;
Left = 437, ;
Name = "Ct_dg_date_generale_frz1", ;
TabIndex = 4, ;
Top = 152, ;
Shape1.Name = "Shape1", ;
Label7.Name = "Label7", ;
txtOfertanti.Name = "txtOfertanti", ;
Label3.Name = "Label3", ;
cbo_selectii.Name = "cbo_selectii"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ADD OBJECT '_pageframe1.Page1.Ct_dg_fact1' AS ct_dg_fact WITH ;
Anchor = 0, ;
Left = 437, ;
Name = "Ct_dg_fact1", ;
TabIndex = 3, ;
Top = 49, ;
_shape1.Name = "_shape1", ;
ck_text_standard.Alignment = 0, ;
ck_text_standard.Name = "ck_text_standard", ;
cboNote.Name = "cboNote", ;
lbNota.Name = "lbNota", ;
cbo_opt_facturare.Name = "cbo_opt_facturare", ;
Label2.Name = "Label2", ;
Label1.Name = "Label1"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ADD OBJECT '_pageframe1.Page1.Ct_dg_obiectul1' AS ct_dg_obiectul WITH ;
Anchor = 14, ;
Left = 5, ;
Name = "Ct_dg_obiectul1", ;
TabIndex = 5, ;
Top = 278, ;
_shape3.Name = "_shape3", ;
Shape5.Name = "Shape5", ;
grid_articole.cCant.Header1.Name = "Header1", ;
grid_articole.cCant.Name = "cCant", ;
grid_articole.cCant.Text1.Name = "Text1", ;
grid_articole.cCoef_Discount.Header1.Name = "Header1", ;
grid_articole.cCoef_Discount.Name = "cCoef_Discount", ;
grid_articole.cCoef_Discount.Text1.Name = "Text1", ;
grid_articole.cNume_art.Header1.Name = "Header1", ;
grid_articole.cNume_art.Name = "cNume_art", ;
grid_articole.cNume_art.Text1.Name = "Text1", ;
grid_articole.cNume_val.Header1.Name = "Header1", ;
grid_articole.cNume_val.Name = "cNume_val", ;
grid_articole.cNume_val.Text1.Name = "Text1", ;
grid_articole.Column1.Header1.Name = "Header1", ;
grid_articole.Column1.Name = "Column1", ;
grid_articole.Column1.Text1.Name = "Text1", ;
grid_articole.COLUMN9.Header1.Name = "Header1", ;
grid_articole.COLUMN9.Name = "COLUMN9", ;
grid_articole.COLUMN9.Text1.Name = "Text1", ;
grid_articole.cPret_cu_tva.Check1.Alignment = 0, ;
grid_articole.cPret_cu_tva.Check1.Name = "Check1", ;
grid_articole.cPret_cu_tva.Header1.Name = "Header1", ;
grid_articole.cPret_cu_tva.Name = "cPret_cu_tva", ;
grid_articole.cPret_unitar.Header1.Name = "Header1", ;
grid_articole.cPret_unitar.Name = "cPret_unitar", ;
grid_articole.cPret_unitar.Text1.Name = "Text1", ;
grid_articole.cUM.Header1.Name = "Header1", ;
grid_articole.cUM.Name = "cUM", ;
grid_articole.cUM.Text1.Name = "Text1", ;
grid_articole.cValcDiscount.Header1.Name = "Header1", ;
grid_articole.cValcDiscount.Name = "cValcDiscount", ;
grid_articole.cValcDiscount.Text1.Name = "Text1", ;
grid_articole.cValoare.Header1.Name = "Header1", ;
grid_articole.cValoare.Name = "cValoare", ;
grid_articole.cValoare.Text1.Name = "Text1", ;
grid_articole.cVal_discount.Header1.Name = "Header1", ;
grid_articole.cVal_discount.Name = "cVal_discount", ;
grid_articole.cVal_discount.Text1.Name = "Text1", ;
grid_articole.Name = "grid_articole", ;
_grdfooter1.Height = 35, ;
_grdfooter1.Left = 0, ;
_grdfooter1.Name = "_grdfooter1", ;
_grdfooter1.Top = 108, ;
_grdfooter1.Width = 794, ;
txtDiscount.Name = "txtDiscount", ;
txtValcdiscount.Name = "txtValcdiscount", ;
txtValDiscount.Name = "txtValDiscount", ;
_label1.Name = "_label1", ;
txtValctva.Name = "txtValctva", ;
Label9.Name = "Label9", ;
Label1.Name = "Label1", ;
Label10.Name = "Label10", ;
But_nou1.Name = "But_nou1", ;
But_sterge1.Name = "But_sterge1", ;
Label3.Name = "Label3", ;
Label5.Name = "Label5", ;
Label15.Name = "Label15", ;
txtProc_tva.Name = "txtProc_tva", ;
Label16.Name = "Label16", ;
Label4.Name = "Label4", ;
Label6.Name = "Label6", ;
Label7.Name = "Label7", ;
txtCoef_discount.Name = "txtCoef_discount", ;
txtValftva.Name = "txtValftva", ;
txtValDiscountTotal.Name = "txtValDiscountTotal", ;
Label8.Name = "Label8", ;
ck_pret_cu_tva.Alignment = 0, ;
ck_pret_cu_tva.Name = "ck_pret_cu_tva"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ADD OBJECT '_pageframe1.Page1.Ct_part_nr_data_21' AS ct_part_nr_data_2 WITH ;
Anchor = 0, ;
Left = 5, ;
Name = "Ct_part_nr_data_21", ;
TabIndex = 1, ;
Top = 7, ;
_shape1.Name = "_shape1", ;
cmdDenumire.Name = "cmdDenumire", ;
Label3.Name = "Label3", ;
txtClient.Name = "txtClient", ;
Label4.Name = "Label4", ;
txtNumar.Name = "txtNumar", ;
Label9.Name = "Label9", ;
txtData_ctr.Name = "txtData_ctr", ;
lb_actAd.Name = "lb_actAd"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ADD OBJECT '_pageframe1.Page2.Ct_dg_tf1' AS ct_dg_tf WITH ;
Anchor = 15, ;
Left = 5, ;
Name = "Ct_dg_tf1", ;
Top = 7, ;
_shape1.Name = "_shape1", ;
_shape3.Name = "_shape3", ;
_label1.Name = "_label1", ;
grid_scadentar.cData_rata.Header1.Name = "Header1", ;
grid_scadentar.cData_rata.Name = "cData_rata", ;
grid_scadentar.cData_rata.Text1.Name = "Text1", ;
grid_scadentar.cData_scadenta.Header1.Name = "Header1", ;
grid_scadentar.cData_scadenta.Name = "cData_scadenta", ;
grid_scadentar.cData_scadenta.Text1.Name = "Text1", ;
grid_scadentar.cDen_rata.Header1.Name = "Header1", ;
grid_scadentar.cDen_rata.Name = "cDen_rata", ;
grid_scadentar.cDen_rata.Text1.Name = "Text1", ;
grid_scadentar.cNr_rata.Header1.Name = "Header1", ;
grid_scadentar.cNr_rata.Name = "cNr_rata", ;
grid_scadentar.cNr_rata.Text1.Name = "Text1", ;
grid_scadentar.cNume_val.Header1.Name = "Header1", ;
grid_scadentar.cNume_val.Name = "cNume_val", ;
grid_scadentar.cNume_val.Text1.Name = "Text1", ;
grid_scadentar.cPret_cu_tva.Check1.Alignment = 0, ;
grid_scadentar.cPret_cu_tva.Check1.Name = "Check1", ;
grid_scadentar.cPret_cu_tva.Header1.Name = "Header1", ;
grid_scadentar.cPret_cu_tva.Name = "cPret_cu_tva", ;
grid_scadentar.cProcent.Header1.Name = "Header1", ;
grid_scadentar.cProcent.Name = "cProcent", ;
grid_scadentar.cProcent.Text1.Name = "Text1", ;
grid_scadentar.cProc_tva.Header1.Name = "Header1", ;
grid_scadentar.cProc_tva.Name = "cProc_tva", ;
grid_scadentar.cProc_tva.Text1.Name = "Text1", ;
grid_scadentar.cRest.ControlSource = "valrataftva - valvaluta", ;
grid_scadentar.cRest.Header1.Name = "Header1", ;
grid_scadentar.cRest.Name = "cRest", ;
grid_scadentar.cRest.Text1.Name = "Text1", ;
grid_scadentar.cValrata.Header1.Name = "Header1", ;
grid_scadentar.cValrata.Name = "cValrata", ;
grid_scadentar.cValrata.Text1.Name = "Text1", ;
grid_scadentar.cValratactva.Header1.Name = "Header1", ;
grid_scadentar.cValratactva.Name = "cValratactva", ;
grid_scadentar.cValratactva.Text1.Name = "Text1", ;
grid_scadentar.cValrataftva.Header1.Name = "Header1", ;
grid_scadentar.cValrataftva.Name = "cValrataftva", ;
grid_scadentar.cValrataftva.Text1.Name = "Text1", ;
grid_scadentar.cValvaluta.Header1.Name = "Header1", ;
grid_scadentar.cValvaluta.Name = "cValvaluta", ;
grid_scadentar.cValvaluta.Text1.Name = "Text1", ;
grid_scadentar.HeaderHeight = 37, ;
grid_scadentar.Name = "grid_scadentar", ;
But_nou1.Name = "But_nou1", ;
But_sterge1.Name = "But_sterge1", ;
Label6.Name = "Label6", ;
txtScadenta_incasare.Name = "txtScadenta_incasare", ;
Label13.Name = "Label13", ;
txtCoef_penalitati.Name = "txtCoef_penalitati", ;
cmdMultiplicaRate.Name = "cmdMultiplicaRate", ;
cmdAplicaScadenta.Name = "cmdAplicaScadenta", ;
Label4.Name = "Label4", ;
_grdfooter1.Name = "_grdfooter1", ;
But_listare1.Name = "But_listare1", ;
ck_pret_cu_tva.Alignment = 0, ;
ck_pret_cu_tva.Name = "ck_pret_cu_tva", ;
ck_afisare_scadenta.Alignment = 0, ;
ck_afisare_scadenta.Name = "ck_afisare_scadenta"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ADD OBJECT '_pageframe1.Page3.Ct_atasamente1' AS ct_atasamente WITH ;
Anchor = 15, ;
Left = 5, ;
Name = "Ct_atasamente1", ;
Top = 7, ;
_shape1.Name = "_shape1", ;
grid_linkuri.Column1.Header1.Name = "Header1", ;
grid_linkuri.Column1.Name = "Column1", ;
grid_linkuri.Column1.Text1.Name = "Text1", ;
grid_linkuri.Column2.Header1.Name = "Header1", ;
grid_linkuri.Column2.Name = "Column2", ;
grid_linkuri.Column2.Text1.Name = "Text1", ;
grid_linkuri.Column3.Header1.Name = "Header1", ;
grid_linkuri.Column3.Name = "Column3", ;
grid_linkuri.Column3.Text1.Name = "Text1", ;
grid_linkuri.Column4.Header1.Name = "Header1", ;
grid_linkuri.Column4.Name = "Column4", ;
grid_linkuri.Column4.Text1.Name = "Text1", ;
grid_linkuri.Column5.Header1.Name = "Header1", ;
grid_linkuri.Column5.Name = "Column5", ;
grid_linkuri.Column5.Text1.Name = "Text1", ;
grid_linkuri.Name = "grid_linkuri", ;
But_sterge1.Name = "But_sterge1", ;
But_edit1.Name = "But_edit1", ;
But_attach1.Name = "But_attach1", ;
But_attach2.Name = "But_attach2", ;
Label1.Name = "Label1"
*< END OBJECT: ClassLib="..\comun\clase\ferestre_atasamente.vcx" BaseClass="container" />
ADD OBJECT '_pageframe1.Page4.Ct_dg_tl1' AS ct_dg_tl WITH ;
Anchor = 15, ;
Left = 5, ;
Name = "Ct_dg_tl1", ;
Top = 7, ;
_shape3.Name = "_shape3", ;
_shape1.Name = "_shape1", ;
_label1.Name = "_label1", ;
Label1.Name = "Label1", ;
txtGrnt_pv_nr.Name = "txtGrnt_pv_nr", ;
Label4.Name = "Label4", ;
txtGrnt_proc_ret.Name = "txtGrnt_proc_ret", ;
Label2.Name = "Label2", ;
txtGrnt_val_ret.Name = "txtGrnt_val_ret", ;
Label3.Name = "Label3", ;
txtGrnt_alerta1.Name = "txtGrnt_alerta1", ;
Label5.Name = "Label5", ;
Label6.Name = "Label6", ;
txtGrnt_proc_alerta1.Name = "txtGrnt_proc_alerta1", ;
txtGrnt_pv_data.Name = "txtGrnt_pv_data", ;
Label7.Name = "Label7", ;
Label8.Name = "Label8", ;
Label9.Name = "Label9", ;
grid_Fact_garant.cDataact.Header1.Name = "Header1", ;
grid_Fact_garant.cDataact.Name = "cDataact", ;
grid_Fact_garant.cDataact.Text1.Name = "Text1", ;
grid_Fact_garant.cGarantie.Header1.Name = "Header1", ;
grid_Fact_garant.cGarantie.Name = "cGarantie", ;
grid_Fact_garant.cGarantie.Text1.Name = "Text1", ;
grid_Fact_garant.cNract.Header1.Name = "Header1", ;
grid_Fact_garant.cNract.Name = "cNract", ;
grid_Fact_garant.cNract.Text1.Name = "Text1", ;
grid_Fact_garant.cValftva.Header1.Name = "Header1", ;
grid_Fact_garant.cValftva.Name = "cValftva", ;
grid_Fact_garant.cValftva.Text1.Name = "Text1", ;
grid_Fact_garant.Name = "grid_Fact_garant", ;
Label10.Name = "Label10", ;
_grdfooter1.Height = 35, ;
_grdfooter1.Name = "_grdfooter1", ;
Label12.Name = "Label12", ;
txtGrnt_perioada.Name = "txtGrnt_perioada", ;
Label13.Name = "Label13", ;
But_nou1.Name = "But_nou1", ;
BUT_MODIFICA1.Name = "BUT_MODIFICA1", ;
But_sterge1.Name = "But_sterge1", ;
But_attach1.Name = "But_attach1"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
PROCEDURE afisactual_obiectul
Parameters tlDiscount_salvat
Local lcTabelArticole, lnPret_cu_tva, lnZecimalePret, lnZecimaleSuma
lcTabelArticole = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource
Store 0 To lnPret_cu_tva
lnPret_cu_tva = This._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value
*!* modificare v 2.0.46 : am adaugat ROUND
lnZecimalePret = iif(goContract.moneda_nationala=1,gnPPretV,gnPVal)
lnZecimaleSuma = iif(goContract.moneda_nationala=1,gnPC,gnPVal)
Select (lcTabelArticole)
*CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0)) TO THISFORM.nSumaArticole
Calculate Sum(round(Nvl(cant,0)* Iif(lnPret_cu_tva=1,round(Nvl(pret_unitar,0)/(1+goContract.proc_tva/100),lnZecimalePret),Nvl(pret_unitar,0)),lnZecimaleSuma))To Thisform.nSumaArticole
Calculate Sum(round(Nvl(cant,0)*round(Nvl(pret_unitar,0)*Nvl(coef_discount,0)/100,lnZecimalePret),lnZecimaleSuma)) To Thisform.nValDiscount
Calculate Avg(Nvl(coef_discount,0)) To Thisform.nDiscountMediu
Calculate Sum(round(Nvl(cant,0)*Nvl(pret_unitar,0),lnZecimaleSuma) - round(Nvl(val_discount,0),lnZecimaleSuma)) To Thisform.nValcdiscount
Thisform.nDiscountMediu = round(Thisform.nDiscountMediu,lnZecimaleSuma)
*!* Thisform.nSumaArticole = Round(Thisform.nSumaArticole, gnPC)
*!* Thisform.nValDiscount = Round(Thisform.nValDiscount, gnPC)
*!* Thisform.nDiscountMediu = Round(Thisform.nDiscountMediu, gnPC)
*!* Thisform.nValcdiscount = Round(Thisform.nValcdiscount, gnPC)
*!* modificare v 2.0.46 ^
*thisform._pageframe1.page1.ct_dg_obiectul1.txtSumaArticole.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtDiscount.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh
***
If tlDiscount_salvat && cand arat obiectul si valoarea contractului, pe show, sa iau datele salvate
If Thisform.nSumaArticole <> 0
Thisform.nCoef_discount = Round(Nvl(goContract.val_discount,0) / Thisform.nSumaArticole * 100, 2)
Endif
Else && cand calculez, trebuie sa arat cat imi da
Thisform.nCoef_discount = Thisform.nDiscountMediu
goContract.val_discount = Thisform.nValDiscount
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscountTotal.Refresh
Endif
*goContract.valftva = THISFORM.nValcdiscount - NVL(goContract.val_discount,0)
If lnPret_cu_tva=1
goContract.valctva = Thisform.nValcdiscount
goContract.valftva = round(goContract.valctva / (1+goContract.proc_tva/100),lnZecimaleSuma)
Else
goContract.valftva = Thisform.nSumaArticole - Nvl(goContract.val_discount,0) && Thisform.nValcdiscount
goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),lnZecimaleSuma)
Endif
Thisform._pageframe1.page1.ct_dg_obiectul1.txtCoef_discount.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscount.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.Refresh
ENDPROC
PROCEDURE do_adauga_garantie
Private poFactGaran
Store '' To poFactGaran
Local lnId_fact, lnNrAct, ldDataAct, lnCod, lnId_fact
Store 0 To lnId_fact, lnNrAct, ldDataAct, lnCod, lnId_fact
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal
lcOrder = [ dataact desc]
lcgroup = []
lcFiltru = [ 1=1 ]
Do Case
Case gnParametru_prog=1
lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,]+alltrim(str(gnPc))+[)]
lcSelect = [select id_fact, nract, dataact, cod, debit as valctva from ireg_parteneri ]
lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+;
[ and id_part = ] + Alltrim(Str(goContract.id_part))+;
[ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+;
[ and cont = '4111' ]
Case gnParametru_prog=2
lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,]+alltrim(str(gnPc))+[)]
lcSelect = [select id_fact, nract, dataact, cod, credit as valctva from ireg_parteneri ]
lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+;
[ and id_part = ] + Alltrim(Str(goContract.id_part))+;
[ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+;
[ and (cont = '401' or cont='404') ]
Otherwise
lcFiltruOriginal = []
Endcase
llAfiseaza = .F.
llModParam = .T.
gencursor('poFactGaran','cFactGaran', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poFactGaran.ca_baza1.afisare()
Select cFactGaran
lofc = Createobject('frm_facturi_ctr')
lofc.Show(1)
If buton = 2
Return
Endif
***--------------------
Private pnFactValftva, pnGarantieRetinuta
Store 0 To pnFactValftva, pnGarantieRetinuta
Select cFactGaran
lnId_fact = id_fact
lnNrAct = nract
ldDataAct = dataact
lnId_fact = id_fact
lnCod = cod
Do Case
Case gnParametru_prog=2
If Year(ldDataAct)>=2007
lcSql = [select totctva -(ro19bct+ro19bvt+ro19bft+ro09bct+ro09bvt+ro09bft+fo19bct+fo19bvt+fo19bft+fo09bct+fo09bvt+fo09bft+cebct+cebvt+cebft+ti19bct+ti19bvt+ti19bft+ti09bvt+ti09bft) as valftva ] +;
[ from jc2007 ]+;
[ where cod = ]+Alltrim(Str(lnCod))
Else
lcSql = [select totctva -(tvai+tvam) as valftva ] +;
[ from cump ]+;
[ where cod = ]+Alltrim(Str(lnCod))
Endif
lcCursor = [cJC_fact]
lnSucces = goExecutor.oExecute(lcSql, lcCursor)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Select cJC_fact
pnFactValftva = valftva
If Used('cJC_fact')
Use In cJC_fact
Endif
Endcase
pnGarantieRetinuta = Round(pnFactValftva * goContract.grnt_proc_ret / 100,gnPC)
lofg = Createobject('frm_fact_garant')
lofg.Show(1)
If buton = 2
Return
Endif
Insert Into cCtrFactGarant (id_fact, nract, dataact, valftva, garantie) ;
Values (lnId_fact, lnNrAct, ldDataAct, pnFactValftva, pnGarantieRetinuta)
Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh
Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.SetFocus
Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal()
Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh
*!* lcSql = [begin pack_crm.adauga_factura_garantie(]+Alltrim(Str(goContract.id_ctr))+[,] + Alltrim(Str(lnId_fact))+[,]+;
*!* ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;]
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* Endif
*!* Thisform.actualizeaza_grid1()
*!* Thisform.grid_Fact_garant.Refresh
ENDPROC
PROCEDURE do_adauga_obiectul
Local lcCtrArt, lnPret_cu_tva
lcCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource
lnPret_cu_tva = This._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value
IF EMPTY(NVL(goContract.id_valuta,0)) AND !INLIST(UPPER(ALLTRIM(NVL(goContract.nume_val,''))), 'LEI', 'RON')
AMESSAGEBOX('Nu ati ales valuta contractului',0+48,'Atentie!')
Return
Endif
Do Case
Case gnParametru_prog = 1 && clienti
*!* modificare v 2.0.48 : gnIdSucursala
lcSel = [{call pack_crm.get_politici_grup(] + Alltrim(Str(gnIdUtil)) + [,] + Alltrim(Str(goContract.id_valuta)) + [,?gnIdSucursala)}]
lcCursor = 'crsPoliticiGrup1'
lnSucces = goExecutor.oExecute(lcSel, lcCursor)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
*!* modificare v 2.0.48 : am adaugat moneda_nationala
Select id_politica, nume_lista_preturi, Ttod(datai) As datai, Ttod(DataS) As DataS, ;
nume_val, id_valuta, moneda_nationala ;
FROM crsPoliticiGrup1 ;
INTO Cursor crsPoliticiGrup
If Used('crsPoliticiGrup1')
Use In crsPoliticiGrup1
Endif
fpp = Createobject("frm_politica_preturi")
fpp.Show(1)
If Used('crsPoliticiGrup')
Use In crsPoliticiGrup
Endif
If Used("cPol_pret_art")
*!* modificare 08.05.2007 ( PRETFTVA in loc de PRET )
Select *, PRETFTVA As pret_unitar, 1 As cant, Pret As valoare, ;
0 As coef_discount, 0 As val_discount, ;
lnPret_cu_tva as pret_cu_tva ;
FROM cPol_pret_art With (Buffering = .T.) ;
WHERE ales = 1 ;
INTO Cursor cAles
Select * From cAles ;
Where id_pol_art In (Select id_pol_art From (lcCtrArt)) ;
Into Cursor cExista
If _Tally > 0
Select cExista
Scan
lcArticole = Alltrim(nume_articol)+', '
Endscan
lcArticole = Substr(lcArticole,1,Len(lcArticole)-2)
If Reccount('cExista')=1
AMESSAGEBOX('Articolul '+lcArticole+ ' exista in obiectul contractului. Stergeti si adaugati cu alte valori!',0+48,'Atentie')
Else
AMESSAGEBOX('Articolele '+lcArticole+ ' exista in obiectul contractului. Stergeti si adaugati cu alte valori!',0+48,'Atentie')
Endif
Endif
Select * From cAles Where id_pol_art Not In (Select id_pol_art From cExista) ;
INTO Cursor cAles2
If Used('cExista')
Use In cExista
Endif
Select (lcCtrArt)
Append From Dbf('cAles2')
Select (lcCtrArt)
Replace valoare With cant * pret_unitar
If Used('cAles')
Use In cAles
Endif
If Used('cAles2')
Use In cAles2
Endif
If Used('cPol_pret_art')
Use In cPol_pret_art
Endif
Endif
Case gnParametru_prog = 2 && firnizori
Local lcArticole, lcXMLArticole
lcXMLArticole = caut_articol(0, .F., .T., .T.)
This.cXMLArticole = lcXMLArticole
If !Empty(lcXMLArticole)
Xmltocursor(lcXMLArticole, "crsArticole")
lcArticole = cursor2lista("crsArticole", "denumire", ",")
This.cListaIdArticole = cursor2lista("crsArticole","id_articol",",")
Select crsArticole.*, denumire As nume_articol ;
From crsArticole ;
Into Cursor crsArticole2
Select c.*, 00000 As id_valuta, Space(4) As nume_val,;
0 as cant, ;
lnPret_cu_tva as pret_cu_tva ;
FROM crsArticole2 c ;
Into Cursor crsArticole3 READWRITE
Select crsArticole3
Replace All id_valuta With goContract.id_valuta, ;
nume_val With goContract.nume_val, ;
cant WITH 1
Select (lcCtrArt)
Append From Dbf('crsArticole3')
Use In crsArticole
Use In crsArticole2
Use In crsArticole3
Endif
Endcase
Thisform.afisactual_obiectul()
Thisform._pageframe1.page1.ct_dg_obiectul1._grdfooter1.calctotal
Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.SetFocus()
ENDPROC
PROCEDURE do_adauga_rate
Local lcScadentar, lnNr_rata, lnPret_cu_tva
lcScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource
lnPret_cu_tva = this._pageframe1.page2.ct_dg_tf1.ck_pret_cu_tva.Value
IF EMPTY(NVL(goContract.id_valuta,0)) AND !INLIST(UPPER(ALLTRIM(NVL(goContract.nume_val,''))), 'LEI', 'RON')
AMESSAGEBOX('Nu ati ales valuta contractului',0+48,'Atentie!')
Return
Endif
Select (lcScadentar)
Calculate Max(Nvl(nr_rata,0)) To lnNr_rata
lnNr_rata = lnNr_rata + 1
Select (lcScadentar)
Append Blank
Select (lcScadentar)
Replace id_valuta With goContract.id_valuta, ;
nume_val With goContract.nume_val, ;
nr_rata With lnNr_rata, ;
pret_cu_tva WITH lnPret_cu_tva, ;
proc_tva with goContract.proc_tva
Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.Refresh
Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.SetFocus
ENDPROC
PROCEDURE do_ataseaza_garantie
Private poFactGaran
Store '' To poFactGaran
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal
lcOrder = [dataact desc]
lcgroup = []
lcFiltru = [ 1=1 ]
Do Case
Case gnParametru_prog=1
lcSchema = []
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, 0 as atasata ]+;
[ from vireg_emise_in_perioada ]
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
Case gnParametru_prog=2
lcSchema = []
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, 0 as atasata ]+;
[ from vireg_emise_in_perioada ]
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
Otherwise
lcFiltruOriginal = []
Endcase
llAfiseaza = .F.
llModParam = .T.
gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poFactGaran.ca_baza1.afisare()
Select cFact_neatas
lofc = Createobject('frm_atas_fact_iregpart')
lofc.Show(1)
Release poFactGaran
ENDPROC
PROCEDURE do_download
Lparameters tcFisSalvat
Private poLink
Store '' To poLink
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal
Local lcTabel, lcFisSalvat, lnIdAtas, lcFisier
lcTabel = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource
Select (lcTabel)
If Reccount() >0
If Pcount() = 0 Or Type('tcFisSalvat') <> 'C'
lcDir = Getdir('c:\',"Director","Directorul unde doriti sa salvati fisierul",64)
If Empty(lcDir)
Return
Endif
If !Empty(nume_fisier)
lcFisSalvat = Addbs(lcDir)+Alltrim(nume_fisier)
Endif
Else
lcFisSalvat = tcFisSalvat
Endif
If !Empty(lcFisSalvat)
lnIdAtas = id_atas
lcSchema = [fisier w ]
lcSelect = [select fisier from atas_atasamente where id_atas = ] + Alltrim(Str(lnIdAtas))
lcOrder = []
lcgroup = []
lcFiltru = []
lcFiltruOriginal = []
llModParam = .T.
llAfiseaza = .F.
gencursor('poLink','cRegFisierTemp', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poLink.ca_baza1.afisare()
If Used('cRegFisierTemp')
lcFisier = fisier
Use In (Select('cRegFisierTemp'))
Strtofile(lcFisier, lcFisSalvat)
open_default_app(lcFisSalvat)
Endif
Endif
Endif
ENDPROC
PROCEDURE do_open
Local lcTabel, lcFisSalvat
lcTabel = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource
Select (lcTabel)
If Reccount() >0
IF !EMPTY(NVL(nume_fisier,''))
lcFisSalvat = Addbs(gcTempPath)+ALLTRIM(nume_fisier)
thisform.do_download(lcFisSalvat)
ENDIF
Endif
ENDPROC
PROCEDURE do_upload
Local lcTabelLinkuri
lcTabelLinkuri = Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource
***---
Private pnId_entitate, pnTip_entitate, pcLink, pcDescriere, pcFis_name, pcFisier, pnId_atas
Store 0 To pnId_entitate, pnTip_entitate, pnId_atas
Store "" To pcDescriere, pcFis_name, pcFisier, pcLink
* pcLink - private - folosit in frm_atas_nou
Local llReturn,lcSql,lnSucces
llReturn = .T.
Select (lcTabelLinkuri)
Scatter Name poLink Blank Memo
AddProperty(poLink,'id_proiect',0)
AddProperty(poLink,'proiect','')
AddProperty(poLink,'id_ctr',0)
AddProperty(poLink,'contract','')
lodn = Createobject("frm_atas_nou")
lodn.Show(1)
If gnButon = 2
Return
Endif
pnId_entitate = goContract.id_ctr
pnTip_entitate = 2
pcDescriere = Upper(Alltrim(poLink.descriere))
pcFis_name = Upper(Alltrim(poLink.nume_fisier))
If Empty(pcLink)
Return
Endif
pcFisier = Filetostr(pcLink)
Select (lcTabelLinkuri)
Append Blank
Gather Name poLink Memo
Replace fisier With pcFisier, id_atas With pnId_atas, nume_fisier With pcFis_name, descriere With pcDescriere, dataora With Datetime(), utilizator With gcUserNameApp
Replace are_link With 1 In cContracte
***---
Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.Refresh
ENDPROC
PROCEDURE inainte_de_do_listare_rate
Private pcPartener, pcNrData, pcValuta, cTitlu, pcDataOra
pcPartener = Nvl(Alltrim(goContract.denumire),'')
pcNrData = Nvl(Alltrim(goContract.numar),'')+' / ' + Nvl(Dtoc(goContract.Data),'')
pcValuta = Nvl(Alltrim(goContract.nume_val),'')
pcDataOra = get_ora(2)
lcmenu = "Rate - Valoare facturata;Rate - Facturi aferente;Rate - facturi aferente (extins)"
lnx = xmenu(lcmenu)
Thisform.AlwaysOnTop = .F.
Do Case
Case lnx = 1
pcTitlu = 'RATE'
Local lcScadentar, lnNr_rata
goExport.export2frx(Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource,[rrate])
Case lnx = 2 Or lnx = 3
lcSel = [{call pack_crm.situatie_rate(] + Alltrim(Str(goContract.id_ctr)) + [)}]
lcCursor = 'cSitRate'
If goExecutor.oExecuta(lcSel, lcCursor)
***
Select * From cSitRate Into Cursor cList Readwrite
If Used('cSitRate')
Use In cSitRate
Endif
Select id_rata, Cnt(id_rata) As Cnt ;
FROM cList ;
HAVING Cnt > 1 ;
GROUP By 1 Order By 2 ;
INTO Cursor crsDuplicate
Select crsDuplicate
Scan
lnId_rata = id_rata
lnCount = Cnt - 1
lnGasit = 0
Select cList
Locate For id_rata = lnId_rata
Do While Found( )
lnGasit = lnGasit + 1
If lnGasit > 1
Replace nr_rata With .Null., den_rata With .Null., data_rata With .Null., valrata With .Null., sumvalrate With .Null., valfact With .Null.
Endif
Continue
Enddo
Endscan
***
If Used('crsDuplicate')
Use In crsDuplicate
Endif
If lnx = 2
pcTitlu = 'RATE - FACTURI AFERENTE'
goExport.export2frx([cList],[rRate_facturi])
Else
pcTitlu = 'RATE - FACTURI AFERENTE (EXTINS)'
goExport.export2frx([cList],[rRate_facturi_extins])
Endif
If Used('cList')
Use In cList
Endif
Endif
Endcase
Thisform.AlwaysOnTop = .T.
ENDPROC
PROCEDURE inainte_de_do_modifica_garantie
Private pnFactValftva, pnGarantieRetinuta
Store 0 To pnFactValftva, pnGarantieRetinuta
Local lnId_ctr_fact_garan
Store 0 To lnId_ctr_fact_garan
lcTabelgarantii = Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource
Select (lcTabelgarantii)
Select Cnt(*) As nr_inreg From (lcTabelgarantii) ;
INTO Cursor cInreg
Select cInreg
lnInreg = nr_inreg
If lnInreg > 0
Select (lcTabelgarantii)
lnId_ctr_fact_garan = id_ctr_fact_garan
pnFactValftva = valftva
pnGarantieRetinuta = garantie
lofg = Createobject('frm_fact_garant')
lofg.Show(1)
If buton = 2
Return
Endif
Select (lcTabelgarantii)
Replace valftva With pnFactValftva, garantie With pnGarantieRetinuta
Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh
Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal()
Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh
Endif
*!* lcSql = [begin pack_crm.modifica_factura_garantie(]+ALLTRIM(STR(lnId_ctr_fact_garan))+[,]+;
*!* ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;]
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* thisform.actualizeaza_grid1()
*!* thisform.grid_Fact_garant.Refresh
ENDPROC
PROCEDURE inainte_de_do_renunt
Local llNou
llNou = Thisform.llNou
If llNou
* sterge contract
poGeneratorNumere.dezaloca_numar(13)
*-
lcId = Alltrim(Str(goContract.id_ctr))
lcId_util = Alltrim(Str(gnIdUtil))
lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare")
Return .F.
Endif
Select cContracte
Locate For id_ctr = goContract.id_ctr
If Found()
Delete
ENDIF
Select cContracte
GO BOTTOM
Endif
Return .T.
ENDPROC
PROCEDURE inainte_de_do_sterge_atasament
Local lcTabelLinkuri, lnRaspuns, lnInreg
lcTabelLinkuri = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource
Store 0 To lnRaspuns, lnInreg
Select Cnt(*) As nr_inreg From (lcTabelLinkuri) ;
INTO Cursor cInreg
Select cInreg
lnInreg = nr_inreg
If lnInreg > 0
lnRaspuns = amessagebox('Doriti sa stergeti documentul?',4+32,"Confirmare stergere document")
If lnRaspuns = 7 && 7 = No ; 6 = Yes
Return
Endif
Select (lcTabelLinkuri)
Delete
thisform._pageframe1.page3.ct_atasamente1.SetFocus()
Endif
ENDPROC
PROCEDURE inainte_de_do_sterge_garantie
Local lcTabelgarantii, lnInreg, lnRaspuns
lcTabelgarantii = Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource
Select (lcTabelgarantii)
Select Cnt(*) As nr_inreg From (lcTabelgarantii) ;
INTO Cursor cInreg
Select cInreg
lnInreg = nr_inreg
If lnInreg > 0
lnRaspuns = AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,"Confirmare stergere inregistrare")
If lnRaspuns = 7 && 7 = No ; 6 = Yes
Return
Endif
Select (lcTabelgarantii)
Delete
Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh
Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.SetFocus
Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal()
Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh
Endif
*!* lnId_ctr_fact_garan = id_ctr_fact_garan
*!* lcSql = [begin pack_crm.sterge_factura_garantie(]+Alltrim(Str(lnId_ctr_fact_garan))+[); end;]
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* thisform.actualizeaza_grid1()
*!* thisform.grid_Fact_garant.Refresh
ENDPROC
PROCEDURE inainte_de_do_sterge_obiectul
Private pcId_ctr, pcId_pol_art
Store '' To pcId_ctr, pcId_pol_art
Local lcTabelCtrArt, lnRaspuns, lnInreg
Store 0 To lnRaspuns, lnInreg
lcTabelCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource
Select Cnt(*) As nr_inreg From (lcTabelCtrArt) ;
INTO Cursor cInreg
Select cInreg
lnInreg = nr_inreg
If lnInreg > 0
lnRaspuns = amessagebox('Doriti sa stergeti?',4+32,"Confirmare stergere")
If lnRaspuns = 7 && 7 = No ; 6 = Yes
Return
Endif
pcId_ctr = Alltrim(Str(goContract.id_ctr))
Select (lcTabelCtrArt)
Do Case
Case gnParametru_prog = 1
pcId_pol_art = Alltrim(Str(id_pol_art))
Case gnParametru_prog = 2
pcId_pol_art = Alltrim(Str(id_articol))
Endcase
Select (lcTabelCtrArt)
DELETE
thisform.afisactual_obiectul()
Thisform._pageframe1.page1.ct_dg_obiectul1._grdfooter1.calctotal
Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.Refresh
Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.SetFocus
Endif
ENDPROC
PROCEDURE inainte_de_do_sterge_rate
Local lcScadentar
lcScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource
Select Cnt(*) As nr_inreg From (lcScadentar) ;
INTO Cursor cInreg
Select cInreg
lnInreg = nr_inreg
If lnInreg > 0
lnRaspuns = amessagebox('Doriti sa stergeti rata?',4+32,"Confirmare stergere rata")
If lnRaspuns = 7 && 7 = No ; 6 = Yes
Return
Endif
Select (lcScadentar)
Delete
Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.Refresh
Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.SetFocus
thisform._pageframe1.paGE2.ct_dg_tf1._grdfooter1.calctotal()
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
Private pcParametru_prog, pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta
Store '' To pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta
Local llNou, lnRaspuns, lcTabelCtrArt, lcTabelScadentar, lcTabelAtasamente, lcTabelGarantii, lnInreg
llNou = Thisform.llNou
lcTabelCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource
lcTabelScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource
lcTabelAtasamente = Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource
lcTabelGarantii = thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource
lnInreg = 0
lnRaspuns = AMESSAGEBOX('Doriti sa salvati modificarile facute?',4+32,'Confirmare salvare')
If lnRaspuns = 7 && NU
If llNou
* sterge contract
poGeneratorNumere.dezaloca_numar(13)
*-
lcId = Alltrim(Str(goContract.id_ctr))
lcId_util = Alltrim(Str(gnIdUtil))
lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare")
Return .F.
Endif
Select cContracte
Locate For id_ctr = goContract.id_ctr
If Found()
Delete
Endif
Select cContracte
Go Bottom
Endif
Return .T.
Else && DA
*poGeneratorNumere.reset(13)
pcId_ctr = Alltrim(Str(goContract.id_ctr))
pcParametru_prog = Alltrim(Str(gnParametru_prog))
If Empty(Nvl(goContract.id_part,0))
AMESSAGEBOX('Nu ati ales partenerul!',48,"Atentie")
Return .F.
Endif
If Empty(Nvl(goContract.numar,0))
AMESSAGEBOX('Nu ati completat numarul contractului!',48,"Atentie")
Thisform._pageframe1.page1.ct_part_nr_data_21.txtNUMAR.SetFocus
Return .F.
Endif
If Empty(Nvl(goContract.Data,{}))
AMESSAGEBOX('Nu ati completat data contractului!',48,"Atentie")
Thisform._pageframe1.page1.ct_part_nr_data_21.txtDATA_CTR.SetFocus
Return .F.
ENDIF
IF EMPTY(NVL(goContract.opt_facturare,0))
AMESSAGEBOX('Nu ati ales ce se factureaza!',48,"Atentie")
ENDIF
If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And Empty(Nvl(goContract.id_nota,0))
AMESSAGEBOX('Alegeti nota contabila !',,48,"Atentie")
Return .F.
Endif
Do Case
Case goContract.opt_facturare = 1
Select (lcTabelScadentar)
Calculate Cnt() For !Deleted() To lnInreg
If lnInreg = 0
AMESSAGEBOX('Adaugati rate!',0+48,'Atentie')
Return .F.
Endif
Case goContract.opt_facturare = 2
Select (lcTabelCtrArt) && modificare v 2.1.11
Calculate Cnt() For !Deleted() To lnInreg
If lnInreg = 0
AMESSAGEBOX('Adaugati obiectul contractului!',0+48,'Atentie')
Return .F.
Endif
Select (lcTabelScadentar) && modificare v 2.1.11
Calculate Cnt() For !Deleted() To lnInreg
If lnInreg = 0
AMESSAGEBOX('Adaugati rate!',0+48,'Atentie')
Return .F.
Endif
Endcase
Select (lcTabelScadentar)
Locate For Empty(data_rata)
If Found()
AMESSAGEBOX('Completati data ratelor!',0+48,'Atentie')
Return .F.
Endif
Select (lcTabelScadentar)
Locate For Empty(valrata)
If Found()
AMESSAGEBOX('Completati valoarea ratelor!',0+48,'Atentie')
Return .F.
Endif
If pnGNnumar<>0 And Upper(Alltrim(Str(pnGNnumar))) <> Upper(Alltrim(goContract.numar))
poGeneratorNumere.dezaloca_numar(13)
Endif
lnSucces = SQLSetprop(gnhandle,"Transactions",2)
If lnSucces < 0
AMESSAGEBOX("Programul nu a reusit sa treaca pe tranzactie manuala! Reintrati in program si incercati din nou!",48,"Atentie")
ELSE
lnSucces = modifica_ctr_dg(goContract) && In oproceduri_roacontracte.prg
If lnSucces > 0
lnSucces = salveaza_obiectul(lcTabelCtrArt)
If lnSucces > 0
lnSucces = salveaza_rate(lcTabelScadentar)
If lnSucces > 0
lnSucces = salveaza_atasamente(lcTabelAtasamente)
IF lnSucces > 0
lnSucces = salveaza_garantii(lcTabelGarantii)
ENDIF
Endif
Endif
Endif
Endif
If lnSucces < 0
lcSql = "ROLLBACK"
Else
lcSql = "COMMIT"
Endif
lnSucces2 = goExecutor.oExecute(lcSql)
If lnSucces2 < 0
AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
Endif
lnSucces2 = SQLSetprop(gnhandle,"Transactions",1)
If lnSucces2 < 0
AMESSAGEBOX('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!',0+48,'Atentie!')
Else
If lcSql = "COMMIT"
&& sa nu mai faca de fiecare data do_cauta (sa aduca toate contactele de pe server)
Select cContracte
Locate For id_ctr = goContract.id_ctr
If Found()
Gather Name goContract Memo
ENDIF
ELSE
Return .F.
Endif
Endif
Endif
Return .T.
ENDPROC
PROCEDURE Init
PARAMETERS tlNou
DODEFAULT()
thisform.llnou = tlNou
*!* modificare v 2.0.46
if goContract.moneda_nationala = 1
This._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPPretV,gnPc)
This._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPPretV,gnPc)
else
This._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPVal,gnPVal)
This._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPVal,gnPVal)
endif
*!* modificare v 2.0.46 ^
ENDPROC
PROCEDURE Show
Lparameters nStyle
LOCAL lnPret_cu_tva
STORE 0 TO lnPret_cu_tva
If gnParametru_prog = 1
This._pageframe1.page1.ct_dg_date_generale_frz1.Visible = .F.
Endif
Select Max(pret_cu_tva) as nPret_cu_tva ;
FROM cCtrArt ;
INTO Cursor cPret_cu_tva
Select cPret_cu_tva
lnPret_cu_tva = NVL(nPret_cu_tva,0)
If Used('cPret_cu_tva')
Use In cPret_cu_tva
ENDIF
this._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value = lnPret_cu_tva
Local llDiscountSalvat
llDiscountSalvat = .T.
If Alltrim(gocontract.tip_istoric) = 'A'
This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Visible = .T.
This._pageframe1.page1.ct_part_nr_data_21.laBEL4.Top = 4
This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Caption = Alltrim(gocontract.numar_aa)
Else
This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Visible = .F.
Endif
Thisform.afisactual_obiectul(llDiscountSalvat)
WITH this._pageframe1.page1.ct_dg_obiectul1
*!* ._grdfooter1.attachtogrid(._grdfooter1.osourcegrid)
*!* ._grdfooter1.calctotal()
.grid_articole.HeaderHeight = 38
ENDWITH
WITH thisform._pageframe1.paGE2.ct_dg_tf1
*!* ._grdfooter1.attachtogrid(._grdfooter1.osourcegrid)
*!* ._grdfooter1.calctotal()
.grid_scadentar.HeaderHeight = 38
ENDWITH
this.Height = INT(_Screen.Height * 0.7)
this.Width = INT(_screen.Width * 0.7)
this.AutoCenter = .T.
ENDPROC
PROCEDURE _pageframe1.Page1.Ct_dg_date_generale1.cbo_valute.Valid
DoDefault()
*!* modificare v 2.0.46
If goContract.moneda_nationala = 1
Thisform._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPPretV,gnPc)
Thisform._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPPretV,gnPc)
Else
Thisform._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPVal,gnPVal)
Thisform._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPVal,gnPVal)
Endif
*!* modificare v 2.0.46 ^
ENDPROC
PROCEDURE _pageframe1.Page1.Ct_dg_obiectul1.txtProc_tva.Valid
DoDefault()
Local llPastreazaPretcuTVA, lnProcTVAVechi, lnProcTvaNou
Local lnTVANou, lnTVAVechi, lnValRataCTva, lnValRataFTva, lnZecimalePret
SET STEP ON
lnZecimalePret = This.Parent.nzecimalepret
lnProcTvaNou = goContract.proc_tva
lnProcTVAVechi = This.Parent.nOldProcTVA
If m.lnProcTvaNou <> m.lnProcTVAVechi
If AMESSAGEBOX('Doriti sa actualizati procentul de TVA si valorile pe ratele nefacturate de la ' + ;
ALLTRIM(Transform(m.lnProcTVAVechi)) + ' la ' + Alltrim(Transform(m.lnProcTvaNou)) + '?',4+32, 'Actualizare TVA') = 6
llPastreazaPretcuTVA = (AMESSAGEBOX('Se pastreaza pretul cu TVA pentru ratele cu TVA inclus?',4+32, 'Actualizare TVA') = 6)
Select cCtrScadentar
Scan For valrataftva - valvaluta <> 0 AND proc_tva = m.lnProcTVAVechi
If goContract.valftva <> 0 And goContract.valftva*0 = 0 && <> *************
Replace procent With valrata/goContract.valftva * 100
Else
Replace procent With 0
Endif
REPLACE proc_tva WITH m.lnProcTVANou
IF NVL(pret_cu_tva,0) = 1
IF m.llPastreazaPretCuTVA
* se pastreaza pretul cu TVA. recalculez pretul fara TVA
lnValRatacTva = valratactva
lnTVANou = ROUND(lnValRatacTva * lnProcTVANou / 100, m.lnZecimalePret)
lnValRatafTva = m.lnValRatacTva - m.lnTvaNou
REPLACE valrataftva WITH m.lnValRatafTva
ELSE
* se pastreaza pretul fara TVA. recalculez pretul cu TVA
lnValRataFTva = valrataftva
lnTVANou = ROUND(lnValRataFTva * m.lnProcTVANou / 100, m.lnZecimalePret)
lnValRataCTva = m.lnValRataFTva + m.lnTVANou
REPLACE valrata WITH m.lnValRataCTva, valratactva WITH m.lnValRataCTva
ENDIF
ELSE
* pret fara tva. recalculez pretul cu TVA
lnValRataFTva = valrataftva
lnTVANou = ROUND(lnValRataFTva * m.lnProcTVANou / 100, m.lnZecimalePret)
lnValRataCTva = m.lnValRataFTva + m.lnTVANou
REPLACE valratactva WITH m.lnValRataCTva
ENDIF
This.Parent._grdfooter1.calctotal()
Endscan
Endif
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_fact_garant 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="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtFactValftva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGarantieRetinuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 111
Name = "frm_fact_garant"
Width = 406
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 419
_shape2.Height = 29
_shape2.Left = 342
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 64
Lb_titlu_alb_b121.Caption = "Facturi - Garan<61>ii"
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
BUT_TERMIN1.Left = 375
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Left = 252
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 344, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare factur<75>", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 6, ;
Name = "Label1", ;
TabIndex = 6, ;
Top = 48, ;
Width = 84
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "(fara TVA)", ;
Height = 17, ;
Left = 6, ;
Name = "Label2", ;
TabIndex = 7, ;
Top = 61, ;
Width = 55
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent re<72>inut", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 241, ;
Name = "Label3", ;
TabIndex = 8, ;
Top = 54, ;
Width = 81
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 385, ;
Name = "Label4", ;
TabIndex = 10, ;
Top = 54, ;
Width = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Garan<61>ie re<72>inut<75>", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 6, ;
Name = "Label5", ;
TabIndex = 11, ;
Top = 84, ;
Width = 93
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text2' AS textbox WITH ;
ControlSource = "goContract.grnt_proc_ret", ;
Format = "rk", ;
Height = 23, ;
InputMask = "999", ;
Left = 335, ;
Name = "Text2", ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 51, ;
Width = 48
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtFactValftva' AS textbox WITH ;
ControlSource = "pnFactValftva", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(14,gnPC)), ;
Left = 103, ;
Name = "txtFactValftva", ;
TabIndex = 1, ;
Top = 51, ;
Width = 120
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGarantieRetinuta' AS textbox WITH ;
ControlSource = "pnGarantieRetinuta", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(14,gnPC)), ;
Left = 103, ;
Name = "txtGarantieRetinuta", ;
TabIndex = 2, ;
Top = 81, ;
Width = 120
*< END OBJECT: BaseClass="textbox" />
PROCEDURE txtFactValftva.LostFocus
pnGarantieRetinuta = ROUND(pnFactValftva * goContract.grnt_proc_ret / 100,gnPc)
thisform.txtGarantieRetinuta.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS frm_facturat_incasat 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="_checkbox2" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 70
Name = "frm_facturat_incasat"
Width = 375
_shape1.Name = "_shape1"
_SHAPE2.Name = "_SHAPE2"
LB_TITLU_ALB_B121.Caption = "Facturat-<2D>ncasat"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
BUT_RENUNT1.Name = "BUT_RENUNT1"
*</PropValue>
ADD OBJECT '_checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Sold <> 0", ;
ControlSource = "pnFacturatIncasat", ;
FontBold = .T., ;
FontName = "Arial Narrow", ;
Left = 35, ;
Name = "_checkbox1", ;
Top = 41
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_checkbox2' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Grupare pe responsabil", ;
ControlSource = "pnGrupResponsabil", ;
FontName = "Arial Narrow", ;
Left = 228, ;
Name = "_checkbox2", ;
Top = 41
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ENDDEFINE
DEFINE CLASS frm_facturi_ctr 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_facturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 474
Name = "frm_facturi_ctr"
Width = 362
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 299
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Facturi"
Lb_titlu_alb_b121.Left = 9
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.Top = 6
BUT_TERMIN1.Left = 331
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 252
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 3
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 300, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = dataact, ;
Caption = "Data fact.", ;
FontName = "Arial Narrow", ;
Left = 65, ;
Name = "Ck_data_fact", ;
TabIndex = 1, ;
tip = D, ;
Top = 43, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = nract, ;
Caption = "Nr. fact.", ;
FontName = "Arial Narrow", ;
Left = 9, ;
mask = (replicate('9',12)), ;
Name = "Ck_nr_fact", ;
TabIndex = 4, ;
Top = 43, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 175, ;
Name = "Cmd_cauta1", ;
TabIndex = 34, ;
Top = 39, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 265, ;
Name = "Cmd_reset1", ;
TabIndex = 45, ;
Top = 39, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_facturi' AS _grdbase WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
Height = 385, ;
Left = 9, ;
Name = "grid_facturi", ;
Panel = 1, ;
RecordSource = "cFactGaran", ;
Top = 74, ;
Width = 340, ;
Column1.ControlSource = "nract", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "dataact", ;
Column2.Name = "Column2", ;
Column3.ControlSource = "valctva", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(20,gnPC)), ;
Column3.Name = "Column3", ;
Column3.Width = 156
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_facturi.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. fact. ", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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_facturi.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data fact.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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_facturi.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare cu TVA", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.Column3.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 = poFactGaran.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform.grid_Facturi)
poFactGaran.ca_baza1.cfiltru = lcFiltru
poFactGaran.ca_baza1.afisare()
restore_grid_tag(thisform.grid_Facturi)
IF RECCOUNT('cFactGaran')>0
thisform.grid_Facturi.SetFocus()
ENDIF
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru = ""
If This.ck_nr_fact.Value = 1
lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru
Endif
If This.ck_data_fact.Value = 1
lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru
Endif
Do Case
Case gnParametru_prog=1
lcFiltru = [ and extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+;
[ and id_part = ] + Alltrim(Str(goContract.id_part))+;
[ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+;
[ and cont = '4111' ]+ lcFiltru
Case gnParametru_prog=2
lcFiltru = [ and extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+;
[ and id_part = ] + Alltrim(Str(goContract.id_part))+;
[ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+;
[ and (cont = '401' or cont='404') ]+ lcFiltru
Otherwise
lcFiltru = []
Endcase
lcFiltru = Substr(lcFiltru,6)
Thisform.actualizeaza_grid1(lcFiltru)
Thisform.grid_facturi.SetFocus()
ENDPROC
PROCEDURE do_reset
With This
For i=1 To .Objects.Count
If Upper(.Objects(i).BaseClass)='CHECKBOX'
.Objects(i).Value=0
Endif
Endfor
ENDWITH
ENDPROC
ENDDEFINE
DEFINE CLASS frm_incasari 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_incasari" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_incasari.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
cgridsortlist = grid_incasari
DoCreate = .T.
Height = 548
Name = "frm_incasari"
Width = 690
_shape1.Anchor = 11
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 691
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 629
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "<22>ncas<61>ri"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 660
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 468
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 6
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 630, ;
Name = "But_listare1", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_incasari' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 7, ;
DeleteMark = .F., ;
GridLineColor = 196,196,196, ;
Height = 500, ;
Left = 9, ;
Name = "grid_incasari", ;
Panel = 1, ;
RecordSource = "cIncasari", ;
Top = 38, ;
Width = 671, ;
Column1.BackColor = 255,255,255, ;
Column1.ControlSource = "nract", ;
Column1.Name = "Column1", ;
Column1.Width = 79, ;
Column2.BackColor = 255,255,255, ;
Column2.ControlSource = "ttod(dataact)", ;
Column2.Name = "Column2", ;
Column3.BackColor = 255,255,255, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "fel", ;
Column3.Name = "Column3", ;
Column3.Width = 84, ;
Column4.BackColor = 255,255,255, ;
Column4.ColumnOrder = 5, ;
Column4.ControlSource = "suma", ;
Column4.Format = "rk", ;
Column4.InputMask = (get_mask(20,gnPC)), ;
Column4.Name = "Column4", ;
Column4.Width = 110, ;
Column5.BackColor = 255,255,255, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "pereche", ;
Column5.Format = "rk", ;
Column5.InputMask = "99999999999999", ;
Column5.Name = "Column5", ;
Column5.Width = 93, ;
Column6.BackColor = 255,255,255, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "contract", ;
Column6.Name = "Column6", ;
Column6.Width = 86, ;
Column7.BackColor = 255,255,255, ;
Column7.ColumnOrder = 3, ;
Column7.ControlSource = "fdoc", ;
Column7.Name = "Column7", ;
Column7.Width = 97
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_incasari.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. Doc.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_incasari.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_incasari.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data Act", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_incasari.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_incasari.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel incasare", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_incasari.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_incasari.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_incasari.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_incasari.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Doc. incasat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_incasari.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_incasari.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_incasari.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 'grid_incasari.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel document", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_incasari.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE inainte_de_do_listare
Private pcTitlu
Do Case
Case gnParametru_prog = 1
pcTitlu = '<27>ncas<61>ri de la clientul ' + Alltrim(Upper(goContract.denumire))
Case gnParametru_prog = 2
pcTitlu = 'Pl<50><6C>i c<>tre furnizorul ' + Alltrim(Upper(goContract.denumire))
Endcase
Thisform.AlwaysOnTop = .F.
goExport.export2frx(Thisform.grid_incasari.RecordSource,[rIncasari])
Thisform.AlwaysOnTop = .T.
ENDPROC
ENDDEFINE
DEFINE CLASS frm_ireg_parteneri 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="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cfdoc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cfdoc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDataAct.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDataAct.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDataScad.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDataScad.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDataireg.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDataireg.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNrAct.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNrAct.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNume.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNume.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotDeb.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotDeb.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotCred.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotCred.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSoldFinal.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSoldFinal.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotDebVal.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotDebVal.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotCredVal.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cTotCredVal.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSoldVal.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSoldVal.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cAcont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cAcont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatia.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatia.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNrord.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNrord.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cnresp.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cnresp.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDebit.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cDebit.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCredit.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCredit.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cValDebit.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cValDebit.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cValCredit.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cValCredit.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCurs.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCurs.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecDeb.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecDeb.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecCred.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecCred.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatia4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatia4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatia5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatia5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cVenChelt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cVenChelt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCod.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCod.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId_fact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId_fact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId_set.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId_set.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId_part.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId_part.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column32.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column32.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecValDeb.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecValDeb.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecValCred.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cPrecValCred.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column35.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column35.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSerie_act.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSerie_act.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cProcentTVA.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cProcentTVA.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatieTVA.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cExplicatieTVA.combo1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSucursala.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSucursala.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_nom_valute1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdIncasPl" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_scadente" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: actualizeaza_totaluri
*m: butapend
*m: butdrept
*m: corderby_assign
*m: filtre
*m: incaspl
*m: initializare
*m: ist_deb_cred
*m: notacontab
*m: plati
*m: salariati
*p: casc
*p: ccont
*p: cnewvalue
*p: coldvalue
*p: cont
*p: corderby
*p: cseparator
*p: fisier
*p: lactiv
*p: leroare
*p: lmodificare_totaluri
*p: lmodificata
*p: lvaluta
*p: ncreditval
*p: ndebitval
*p: nmodificata
*p: ntotcredit
*p: ntotdebit
*p: ntotsold
*p: ntotsoldval
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
casc = ASC
cbuton2 = but_listare1;but_listare2;but_listare3
ccont =
cgridsortlist = grid1
cnewvalue =
coldvalue =
cont = 0
corderby = dataact
cseparator = .
DoCreate = .T.
filtru_pretty_ro =
fisier = ''
Height = 528
lactiv = .F.
leroare = .F.
lmodificare_totaluri = .F.
lmodificata = .F.
lvaluta = .F.
Name = "frm_ireg_parteneri"
ncreditval = 0
ndebitval = 0
nmodificata = 0
ntotcredit = 0
ntotdebit = 0
ntotsold = 0
ntotsoldval = 0
Width = 793
_memberdata = <VFPData>
</VFPData>
_shape1.Anchor = 11
_shape1.Name = "_shape1"
_shape1.Width = 792
_shape1.ZOrderSet = 3
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 642
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 151
_shape2.ZOrderSet = 4
Lb_titlu_alb_b121.Caption = "REGISTRUL"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 30
Lb_titlu_alb_b121.ZOrderSet = 5
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 762
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 29
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 6
Gridsort1.Left = 378
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 49
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 733, ;
Name = "But_excel1", ;
TabIndex = 28, ;
Top = 1, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 703, ;
Name = "But_listare1", ;
TabIndex = 25, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
Anchor = 9, ;
Left = 642, ;
Name = "But_reset_criterii1", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
caction = , ;
Height = 27, ;
Left = 672, ;
Name = "But_start_criterii1", ;
Picture = ..\comun\grafice\find_sus.bmp, ;
Style = 0, ;
Top = 1, ;
Width = 31
*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cb_nom_valute1' AS cb_nom_valute WITH ;
Anchor = 8, ;
Left = 378, ;
Name = "Cb_nom_valute1", ;
TabIndex = 35, ;
Top = 93, ;
ZOrderSet = 43
*< END OBJECT: ClassLib="..\comun\clase\oparteneri.vcx" BaseClass="combobox" />
ADD OBJECT 'Ck_scadente' AS ck_filtru_text WITH ;
Alignment = 0, ;
Anchor = 3, ;
AutoSize = .T., ;
camp_nume = , ;
Caption = "Scadente", ;
FontName = "Arial Narrow", ;
Left = 12, ;
Name = "Ck_scadente", ;
TabIndex = 9, ;
ToolTipText = "Numele responsabilului", ;
Top = 34, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'cmdIncasPl' AS commandbutton WITH ;
AutoSize = .T., ;
Caption = "Plati / Incasari", ;
Height = 27, ;
Left = 446, ;
Name = "cmdIncasPl", ;
TabIndex = 49, ;
Top = 2, ;
Visible = .F., ;
Width = 95, ;
ZOrderSet = 46
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Note contabile", ;
Height = 27, ;
Left = 308, ;
Name = "Command1", ;
TabIndex = 48, ;
Top = 2, ;
Visible = .F., ;
Width = 84, ;
ZOrderSet = 45
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "\<Perechi", ;
Height = 27, ;
Left = 612, ;
Name = "Command2", ;
TabIndex = 50, ;
Top = 536, ;
Visible = .F., ;
Width = 84, ;
ZOrderSet = 47
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command3' AS commandbutton WITH ;
AutoSize = .T., ;
Caption = "Istoric", ;
Height = 27, ;
Left = 394, ;
Name = "Command3", ;
TabIndex = 52, ;
Top = 2, ;
Visible = .F., ;
Width = 51, ;
ZOrderSet = 49
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid1' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 39, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
Height = 377, ;
Left = 3, ;
Name = "grid1", ;
Panel = 1, ;
ReadOnly = .T., ;
TabIndex = 22, ;
Top = 132, ;
Width = 786, ;
ZOrderSet = 7, ;
Column1.ColumnOrder = 3, ;
Column1.ControlSource = "fdoc", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cfdoc", ;
Column1.ReadOnly = .T., ;
Column1.Visible = .T., ;
Column1.Width = 70, ;
Column2.ColumnOrder = 4, ;
Column2.ControlSource = "dataAct", ;
Column2.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cDataAct", ;
Column2.ReadOnly = .T., ;
Column2.Visible = .T., ;
Column2.Width = 50, ;
Column3.ColumnOrder = 5, ;
Column3.ControlSource = "dataScad", ;
Column3.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "cDataScad", ;
Column3.ReadOnly = .T., ;
Column3.Visible = .T., ;
Column3.Width = 58, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "dataIreg", ;
Column4.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cDataireg", ;
Column4.ReadOnly = .T., ;
Column4.Visible = .T., ;
Column4.Width = 51, ;
Column5.ColumnOrder = 8, ;
Column5.ControlSource = "nrAct", ;
Column5.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "cNrAct", ;
Column5.ReadOnly = .T., ;
Column5.Visible = .T., ;
Column5.Width = 64, ;
Column6.ColumnOrder = 9, ;
Column6.ControlSource = "nume", ;
Column6.FontName = "Arial Narrow", ;
Column6.Name = "cNume", ;
Column6.ReadOnly = .T., ;
Column6.Visible = .T., ;
Column6.Width = 160, ;
Column7.ColumnOrder = 10, ;
Column7.ControlSource = "debit+precdeb", ;
Column7.FontName = "Arial Narrow", ;
Column7.InputMask = (get_mask(12,gnPC)), ;
Column7.Name = "cTotDeb", ;
Column7.ReadOnly = .T., ;
Column7.Visible = .T., ;
Column7.Width = 73, ;
Column8.ColumnOrder = 11, ;
Column8.ControlSource = "credit+preccred", ;
Column8.FontName = "Arial Narrow", ;
Column8.InputMask = (get_mask(12,gnPC)), ;
Column8.Name = "cTotCred", ;
Column8.ReadOnly = .T., ;
Column8.Visible = .T., ;
Column8.Width = 72, ;
Column9.ColumnOrder = 13, ;
Column9.ControlSource = "(precdeb+debit)-(preccred+credit)", ;
Column9.DynamicBackColor = "RGB(187,235,255)", ;
Column9.FontName = "Arial Narrow", ;
Column9.InputMask = (get_mask(12,gnPC)), ;
Column9.Name = "cSoldFinal", ;
Column9.ReadOnly = .T., ;
Column9.Visible = .T., ;
Column9.Width = 77, ;
Column10.ColumnOrder = 12, ;
Column10.ControlSource = "valdebit+precValDeb", ;
Column10.FontName = "Arial Narrow", ;
Column10.InputMask = (get_mask(12,gnPval)), ;
Column10.Name = "cTotDebVal", ;
Column10.ReadOnly = .T., ;
Column10.Visible = .T., ;
Column10.Width = 87, ;
Column11.ColumnOrder = 14, ;
Column11.ControlSource = "valcredit+precValCred", ;
Column11.FontName = "Arial Narrow", ;
Column11.InputMask = (get_mask(12,gnPval)), ;
Column11.Name = "cTotCredVal", ;
Column11.ReadOnly = .T., ;
Column11.Visible = .T., ;
Column11.Width = 75, ;
Column12.ColumnOrder = 15, ;
Column12.ControlSource = "(precValDeb+valDebit)-(precValCred+valCredit)", ;
Column12.DynamicBackColor = "RGB(187,235,255)", ;
Column12.FontName = "Arial Narrow", ;
Column12.InputMask = (get_mask(12,gnPval)), ;
Column12.Name = "cSoldVal", ;
Column12.ReadOnly = .T., ;
Column12.Visible = .T., ;
Column13.ColumnOrder = 2, ;
Column13.ControlSource = "acont", ;
Column13.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column13.FontName = "Arial Narrow", ;
Column13.Name = "cAcont", ;
Column13.ReadOnly = .T., ;
Column13.Visible = .T., ;
Column13.Width = 32, ;
Column14.ColumnOrder = 16, ;
Column14.ControlSource = "explicatia", ;
Column14.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column14.FontName = "Arial Narrow", ;
Column14.Name = "cExplicatia", ;
Column14.ReadOnly = .T., ;
Column14.Visible = .T., ;
Column14.Width = 100, ;
Column15.ColumnOrder = 17, ;
Column15.ControlSource = "nrord", ;
Column15.FontName = "Arial Narrow", ;
Column15.Name = "cNrord", ;
Column15.ReadOnly = .T., ;
Column15.Visible = .T., ;
Column15.Width = 78, ;
Column16.ColumnOrder = 19, ;
Column16.ControlSource = "nresp", ;
Column16.FontName = "Arial Narrow", ;
Column16.Name = "cnresp", ;
Column16.ReadOnly = .T., ;
Column16.Visible = .T., ;
Column16.Width = 139, ;
Column17.ColumnOrder = 20, ;
Column17.ControlSource = "debit", ;
Column17.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column17.FontName = "Arial Narrow", ;
Column17.InputMask = (get_mask(12,gnPC)), ;
Column17.Name = "cDebit", ;
Column17.ReadOnly = .T., ;
Column17.Visible = .T., ;
Column18.ColumnOrder = 21, ;
Column18.ControlSource = "credit", ;
Column18.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column18.FontName = "Arial Narrow", ;
Column18.InputMask = (get_mask(12,gnPC)), ;
Column18.Name = "cCredit", ;
Column18.ReadOnly = .T., ;
Column18.Visible = .T., ;
Column19.ColumnOrder = 22, ;
Column19.ControlSource = "valDebit", ;
Column19.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column19.FontName = "Arial Narrow", ;
Column19.InputMask = (get_mask(12,gnPval)), ;
Column19.Name = "cValDebit", ;
Column19.ReadOnly = .T., ;
Column19.Visible = .T., ;
Column20.ColumnOrder = 23, ;
Column20.ControlSource = "valcredit", ;
Column20.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column20.FontName = "Arial Narrow", ;
Column20.InputMask = (get_mask(12,gnPval)), ;
Column20.Name = "cValCredit", ;
Column20.ReadOnly = .T., ;
Column20.Visible = .T., ;
Column21.ColumnOrder = 24, ;
Column21.ControlSource = "nume_val", ;
Column21.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column21.FontName = "Arial Narrow", ;
Column21.Name = "cNume_val", ;
Column21.ReadOnly = .T., ;
Column21.Visible = .T., ;
Column21.Width = 35, ;
Column22.ColumnOrder = 25, ;
Column22.ControlSource = "curs", ;
Column22.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column22.FontName = "Arial Narrow", ;
Column22.InputMask = (get_mask(12,gnPCurs2)), ;
Column22.Name = "cCurs", ;
Column22.ReadOnly = .T., ;
Column22.Visible = .T., ;
Column22.Width = 68, ;
Column23.ColumnOrder = 26, ;
Column23.ControlSource = "precDeb", ;
Column23.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column23.FontName = "Arial Narrow", ;
Column23.InputMask = (get_mask(12,gnPC)), ;
Column23.Name = "cPrecDeb", ;
Column23.ReadOnly = .T., ;
Column23.Visible = .T., ;
Column24.ColumnOrder = 27, ;
Column24.ControlSource = "precCred", ;
Column24.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column24.FontName = "Arial Narrow", ;
Column24.InputMask = (get_mask(12,gnPC)), ;
Column24.Name = "cPrecCred", ;
Column24.ReadOnly = .T., ;
Column24.Visible = .T., ;
Column25.ColumnOrder = 30, ;
Column25.ControlSource = "explicatia4", ;
Column25.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column25.FontName = "Arial Narrow", ;
Column25.Name = "cExplicatia4", ;
Column25.ReadOnly = .T., ;
Column25.Visible = .T., ;
Column26.ColumnOrder = 31, ;
Column26.ControlSource = "explicatia5", ;
Column26.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column26.FontName = "Arial Narrow", ;
Column26.Name = "cExplicatia5", ;
Column26.ReadOnly = .T., ;
Column26.Visible = .T., ;
Column27.ColumnOrder = 32, ;
Column27.ControlSource = "venChelt", ;
Column27.FontName = "Arial Narrow", ;
Column27.Name = "cVenChelt", ;
Column27.ReadOnly = .T., ;
Column27.Visible = .T., ;
Column27.Width = 61, ;
Column28.ColumnOrder = 33, ;
Column28.ControlSource = "cod", ;
Column28.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column28.FontName = "Arial Narrow", ;
Column28.Name = "cCod", ;
Column28.ReadOnly = .T., ;
Column28.Visible = .T., ;
Column28.Width = 51, ;
Column29.ColumnOrder = 34, ;
Column29.ControlSource = "id_fact", ;
Column29.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column29.FontName = "Arial Narrow", ;
Column29.Name = "cId_fact", ;
Column29.ReadOnly = .T., ;
Column29.Visible = .T., ;
Column29.Width = 53, ;
Column30.ColumnOrder = 35, ;
Column30.ControlSource = "id_set", ;
Column30.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column30.FontName = "Arial Narrow", ;
Column30.Name = "cId_set", ;
Column30.ReadOnly = .T., ;
Column30.Visible = .T., ;
Column30.Width = 50, ;
Column31.ColumnOrder = 36, ;
Column31.ControlSource = "id_part", ;
Column31.FontName = "Arial Narrow", ;
Column31.Name = "cId_part", ;
Column31.ReadOnly = .T., ;
Column31.Visible = .T., ;
Column31.Width = 71, ;
Column32.ColumnOrder = 1, ;
Column32.ControlSource = "cont", ;
Column32.FontName = "Arial Narrow", ;
Column32.Name = "Column32", ;
Column32.ReadOnly = .T., ;
Column32.Width = 29, ;
Column33.ColumnOrder = 28, ;
Column33.ControlSource = "precvaldeb", ;
Column33.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column33.FontName = "Arial Narrow", ;
Column33.InputMask = (get_mask(12,gnPval)), ;
Column33.Name = "cPrecValDeb", ;
Column33.ReadOnly = .T., ;
Column33.Width = 80, ;
Column34.ColumnOrder = 29, ;
Column34.ControlSource = "precvalcred", ;
Column34.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column34.FontName = "Arial Narrow", ;
Column34.InputMask = (get_mask(12,gnPval)), ;
Column34.Name = "cPrecValCred", ;
Column34.ReadOnly = .T., ;
Column34.Width = 84, ;
Column35.ColumnOrder = 18, ;
Column35.ControlSource = "contract", ;
Column35.FontName = "Arial Narrow", ;
Column35.Name = "Column35", ;
Column35.ReadOnly = .T., ;
Column36.ColumnOrder = 7, ;
Column36.ControlSource = "serie_act", ;
Column36.FontName = "Arial Narrow", ;
Column36.Name = "cSerie_act", ;
Column36.ReadOnly = .T., ;
Column36.Width = 53, ;
Column37.ControlSource = "proc_tva", ;
Column37.FontName = "Arial Narrow", ;
Column37.Name = "cProcentTVA", ;
Column37.ReadOnly = .T., ;
Column38.ControlSource = "explicatie_TVA", ;
Column38.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ;
Column38.FontName = "Arial Narrow", ;
Column38.Name = "cExplicatieTVA", ;
Column38.ReadOnly = .T., ;
Column38.Sparse = .T., ;
Column38.Width = 148, ;
Column39.ControlSource = "sucursala", ;
Column39.FontName = "Arial Narrow", ;
Column39.Name = "cSucursala", ;
Column39.ReadOnly = .T., ;
Column39.Width = 151
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid1.cAcont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cAcont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cCod.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cCod.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cCredit.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Credit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cCredit.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cCurs.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs de schimb", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cCurs.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cDataAct.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 212,208,200, ;
Caption = "Data Act", ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,255, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cDataAct.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cDataireg.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inreg", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cDataireg.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cDataScad.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadenta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cDataScad.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cDebit.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Debit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cDebit.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cExplicatia.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cExplicatia.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cExplicatia4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 4", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cExplicatia4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cExplicatia5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 5", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cExplicatia5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cExplicatieTVA.combo1' AS combobox WITH ;
BoundColumn = 1, ;
BoundTo = .T., ;
FontName = "Arial Narrow", ;
Height = 24, ;
Left = 30, ;
Name = "combo1", ;
ReadOnly = .T., ;
RowSource = "jtva_temp.denumire", ;
RowSourceType = 6, ;
SpecialEffect = 1, ;
Top = 23, ;
Width = 100
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'grid1.cExplicatieTVA.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cfdoc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel Doc", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cfdoc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cId_fact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id fact", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cId_fact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cId_part.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id Partener", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cId_part.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cId_set.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id set", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cId_set.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cNrAct.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 212,208,200, ;
Caption = "Nr. Doc.", ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,255, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cNrAct.Text1' AS textbox WITH ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cnresp.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cnresp.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cNrord.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cNrord.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cNume.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 192,192,192, ;
Caption = "Nume", ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,255, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cNume.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cNume_val.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.Column32.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column32.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.Column35.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column35.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cPrecCred.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prec. Credit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cPrecCred.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cPrecDeb.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prec. Debit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cPrecDeb.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cPrecValCred.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prec. Valuta Credit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cPrecValCred.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cPrecValDeb.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prec. Valuta Debit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cPrecValDeb.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cProcentTVA.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cProcentTVA.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ControlSource = "proc_tva", ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cSerie_act.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie Doc.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cSerie_act.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cSoldFinal.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sold final", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cSoldFinal.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cSoldVal.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sold valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cSoldVal.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cSucursala.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cSucursala.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cTotCred.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total Credit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cTotCred.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cTotCredVal.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total Credit Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cTotCredVal.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cTotDeb.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total Debit", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cTotDeb.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cTotDebVal.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total Debit Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cTotDebVal.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cValCredit.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Credit Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cValCredit.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cValDebit.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Debit Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cValDebit.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cVenChelt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Venituri/Chelt.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cVenChelt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 0,64,128, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label2' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = (thisform.grid1.cTotDeb.header1.caption), ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 516, ;
Name = "Label2", ;
TabIndex = 42, ;
Top = 40, ;
Width = 45, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TOTAL", ;
FontBold = .T., ;
FontName = "Times New Roman", ;
FontSize = 12, ;
Height = 22, ;
Left = 381, ;
Name = "Label3", ;
TabIndex = 34, ;
Top = 40, ;
Width = 55, ;
ZOrderSet = 31
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = (thisform.grid1.cTotCred.header1.caption), ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 623, ;
Name = "Label4", ;
TabIndex = 43, ;
Top = 40, ;
Width = 49, ;
ZOrderSet = 39
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Sold", ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 762, ;
Name = "Label5", ;
TabIndex = 44, ;
Top = 40, ;
Width = 21, ;
ZOrderSet = 40
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = (thisform.grid1.cTotDebVal.header1.caption), ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 478, ;
Name = "Label6", ;
TabIndex = 31, ;
Top = 76, ;
Width = 2, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = (thisform.grid1.cTotCredVal.header1.caption), ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 594, ;
Name = "Label8", ;
TabIndex = 46, ;
Top = 77, ;
Width = 78, ;
ZOrderSet = 42
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Sold Valuta", ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 733, ;
Name = "Label9", ;
TabIndex = 45, ;
Top = 77, ;
Width = 50, ;
ZOrderSet = 41
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Anchor = 8, ;
Caption = "Valuta", ;
FontName = "Arial Narrow", ;
Left = 378, ;
Name = "Lb_simplu1", ;
TabIndex = 33, ;
Top = 76, ;
ZOrderSet = 30
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
Anchor = 10, ;
Caption = ' Pentru a vizualiza documentele salvate in baza de date, trebuie sa faceti click dreapta pe coloana "Nr.Doc." ( doar inregistrarile colorate au atasamente ).', ;
Height = 47, ;
Left = 13, ;
Name = "Lb_simplu2", ;
Top = 58, ;
Width = 320, ;
WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
Left = 191, ;
Name = "oMenuShortcut", ;
TabIndex = 47, ;
Top = 10, ;
ZOrderSet = 44
*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
ADD OBJECT 'Shape2' AS shape WITH ;
Anchor = 8, ;
BackStyle = 0, ;
Height = 88, ;
Left = 376, ;
Name = "Shape2", ;
SpecialEffect = 0, ;
Top = 36, ;
Width = 411, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Text1' AS textbox WITH ;
Alignment = 1, ;
Anchor = 8, ;
ControlSource = "Thisform.ntotdebit", ;
FontName = "Arial Narrow", ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPC)), ;
Left = 453, ;
Name = "Text1", ;
ReadOnly = .T., ;
TabIndex = 36, ;
Top = 55, ;
Width = 108, ;
ZOrderSet = 32
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
Alignment = 1, ;
Anchor = 8, ;
ControlSource = "Thisform.ntotcredit", ;
FontName = "Arial Narrow", ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPC)), ;
Left = 564, ;
Name = "Text2", ;
ReadOnly = .T., ;
TabIndex = 37, ;
Top = 55, ;
Width = 108, ;
ZOrderSet = 33
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
Alignment = 1, ;
Anchor = 8, ;
ControlSource = "Thisform.ntotSold", ;
FontName = "Arial Narrow", ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPC)), ;
Left = 675, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 38, ;
Top = 55, ;
Width = 108, ;
ZOrderSet = 34
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
Alignment = 1, ;
Anchor = 8, ;
FontName = "Arial Narrow", ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPval)), ;
Left = 453, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 39, ;
Top = 94, ;
Width = 108, ;
ZOrderSet = 35
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text5' AS textbox WITH ;
Alignment = 1, ;
Anchor = 8, ;
FontName = "Arial Narrow", ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPval)), ;
Left = 564, ;
Name = "Text5", ;
ReadOnly = .T., ;
TabIndex = 40, ;
Top = 94, ;
Width = 108, ;
ZOrderSet = 36
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text6' AS textbox WITH ;
Alignment = 1, ;
Anchor = 8, ;
FontName = "Arial Narrow", ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPval)), ;
Left = 675, ;
Name = "Text6", ;
ReadOnly = .T., ;
TabIndex = 41, ;
Top = 94, ;
Width = 108, ;
ZOrderSet = 37
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Activate
Thisform.WindowState=2
tw1=Thisform.Width
tl1=Thisform.Height
tw2=Thisform.Width
tl2=Thisform.Height
gw1=Thisform.grid1.Width
gl1=Thisform.grid1.Height
Thisform.grid1.Width = Round(gw1*tw2/tw1,0)
Thisform.grid1.Height = Round(gl1*tl2/tl1,0)
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.Paint
Thisform.Refresh
Set Safety Off
Select actcv
ENDPROC
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru,llCautareNoua
If Empty(tcFiltru)
lcFiltru = poireg_parteneri.ca_baza1.cfiltru
llCautareNoua=.F.
Else
lcFiltru = tcFiltru
llCautareNoua=.T.
Endif
lcOrder= This.corderby + " " + This.Casc
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform.grid1)
*!* IF USED("actcv")
*!* USE IN actcv
*!* ENDIF
poireg_parteneri.ca_baza1.cfiltru = lcFiltru
poireg_parteneri.ca_baza1.corder = lcOrder
poireg_parteneri.ca_baza1.afisare()
*!* STRTOFILE(poireg_parteneri.ca_baza1.selectcmd,"c:\sele.txt")
*!* USE DBF("v_ireg_parteneri") IN 0 AGAIN ALIAS actcv
restore_grid_tag(Thisform.grid1)
Thisform.MousePointer= 0
Thisform.LockScreen=.F.
*!* If !Thisform.eactan
*!* Do nrord With "ACTJUR"
*!* *!* else
*!* *!* thisform.clb_tx_simplu1.visible=iif(thisform.ck_total.value=0,.F.,.T.)
*!* Endif
*!* If Thisform.ck_perioada.Value=1
*!* With Thisform.ck_perioada
*!* If .cvaloare1=Thisform.ck_perioada.cvaloare2
*!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+;
*!* " "+.cvaloare1
*!* Else
*!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+;
*!* " "+.cvaloare1+" - "+.cvaloare2
*!* Endif
*!* Endwith
*!* Else
*!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+;
*!* " "+Padl(Alltrim(Str(gnluna)),2,"0")+"/"+Alltrim(Str(gnAn))
*!* Endif
&&===========actualizeaza_totaluri
*!* Select actcv
*!* Sum (debit+precdeb) To Thisform.ntotdebit
*!* SUM (credit+preccred) TO thisform.ntotcredit
*!* Sum (valdebit+precvaldeb) To Thisform.ndebitval
*!* SUM (valcredit+precvalcred) TO thisform.ncreditval
*!* IF tlActiv
*!* SUM ((precdeb + debit) - ( preccred + credit)) TO thisform.ntotsold
*!* SUM ((precvaldeb + valdebit) - ( precvalcred + valcredit)) TO thisform.ntotsoldval
*!* ELSE
*!* SUM ((preccred + credit) - (precdeb + debit)) TO thisform.ntotsold
*!* SUM (( precvalcred + valcredit) - (precvaldeb + valdebit)) TO thisform.ntotsoldval
*!* ENDIF
&&====================
Thisform.cb_nom_valute1.initializare(llCautareNoua)
Thisform.actualizeaza_totaluri()
Select actcv
*!* If Thisform.clb_tx_simplu1.Visible=.T.
*!* Sum suma To Thisform.nsuma
*!* Endif
*!* If Thisform.ck_sters.Visible=.T.
*!* Endif
thisform.griD1.SetFocus
*!* Thisform.clb_tx_simplu1.text_simplu1.Refresh
ENDPROC
PROCEDURE actualizeaza_totaluri
LOCAL lcValuta,lcPoz
lcValuta=ALLTRIM(THISFORM.cb_nom_valute1.VALUE)
SELECT actcv
lnPoz=IIF(RECCOUNT('actcv')>0,RECNO(),0)
*!* SELECT * FROM actcv INTO TABLE c:\actcv_.DBF
SUM (debit+precdeb),(credit+preccred) TO THISFORM.ntotdebit,THISFORM.ntotcredit
IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U'
SUM (valdebit+precvaldeb),(valcredit+precvalcred) TO THISFORM.ndebitval,THISFORM.ncreditval FOR nume_val=lcValuta
ENDIF
IF THISFORM.lactiv
SUM ((precdeb + debit) - ( preccred + credit)) TO THISFORM.ntotsold
IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U'
SUM ((precvaldeb + valdebit) - ( precvalcred + valcredit)) TO THISFORM.ntotsoldval FOR nume_val=lcValuta
ENDIF
ELSE
SUM ((preccred + credit) - (precdeb + debit)) TO THISFORM.ntotsold
IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U'
SUM ((precvalcred + valcredit) - (precvaldeb + valdebit)) TO THISFORM.ntotsoldval FOR nume_val=lcValuta
ENDIF
ENDIF
THISFORM.text1.REFRESH
THISFORM.text2.REFRESH
THISFORM.text3.REFRESH
THISFORM.text4.REFRESH
THISFORM.text5.REFRESH
THISFORM.text6.REFRESH
IF RECCOUNT('actcv')>0
SELECT actcv
GO lnPoz
ENDIF
ENDPROC
PROCEDURE butapend
If glLunaInchisa
RETURN
Endif
Local lcTitlu,lbMenu[4]
lcTitlu=Thisform.lb_titlu_alb_b121.Caption
lbMenu=""
If Thisform.grid1.ReadOnly
*!* lbMenu[1]="\<Deblocare"
*!* lbMenu[3]="\Adaug blanc"
*!* lbMenu[4]="\Sterg inregistrarea"
xx= xmenu('\<Deblocare;\-;\Adaug blanc;\Sterg inregistrarea ')
Else
If Thisform.lmodificata
Thisform.do_modifica()
Endif
*!* lbMenu[1]="\<Revenire"
*!* lbMenu[3]="Adaug blanc (CTRL+N)"
*!* lbMenu[4]="Sterg inregistrarea (CTRL+D)"
xx= xmenu('\<Revenire;\-;Adaug blanc (CTRL+N);Sterg inregistrarea (CTRL+D)')
Endif
*!* lbMenu[2]="\-"
*!* Thisform.oMenuShortcut.ShowMenu(@lbMenu)
Do Case
Case xx = 1&&Bar()=1
Thisform.initializare()
Case xx = 3&&Bar()=3
Thisform.do_adauga()
CASE xx = 4 &&BAR()=4
thisform.do_sterge()
Endcase
ENDPROC
PROCEDURE butdrept
local laMenu[3]
scatter MEMVAR FIELDS EXCEPT an,nl
laMenu=""
IF ISNULL(m.dataact)
laMenu[1]="\Note contabile"
lamenu[2]='\Plati/Incasari'
ELSE
laMenu[1]="Note contabile"
lamenu[2]='Plati/Incasari'
ENDIF
IF ALLTRIM(pcCont) = '426'
lamenu[3]='Salariati'
ELSE
lamenu[3]='\-'
ENDIF
*lamenu[3]='Perechi'
*!* laMenu[3]="Istoric Debit-Credit"
thisform.oMenuShortcut.ShowMenu(@laMenu)
*!* MESSAGEBOX(pcCont,0)
DO CASE
CASE BAR()=1
thisform.NOTACONTAB
CASE BAR()=2
thisform.incaspl
CASE BAR()=3
thisform.salariati
* CASE BAR()=3
* thisform.plati
* thisform.istoric
*!* CASE BAR()=3
*!* this.ist_deb_cred
OTHERWISE
ENDCASE
ENDPROC
PROCEDURE corderby_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
IF THIS.corderby = m.vNewVal
lcASC = IIF(this.casc = 'ASC','DESC','ASC')
ELSE
lcASC = 'ASC'
ENDIF
THIS.corderby = m.vNewVal
this.cAsc = lcAsc
thisform.actualizeaza_grid1()
ENDPROC
PROCEDURE do_adauga
LOCAL lnid_part,lcnume,lcacont,lcfdoc,lnid_fdoc,lnIdFact, lnIdValuta, lcNumeValuta, lnIdFdoc, lcfdoc, lnIdResp, lcResp
LOCAL llToateIreg, llNou, llBlank
STORE .F. TO llToateIreg, llNou, llBlank
*!* in contracte nu trebuie modificat
Return
lnIdValuta = 0
lcNumeValuta = ""
lnIdFdoc = 0
lcfdoc = ""
lnIdResp = 0
lcResp = ""
LOCAL lcTitlu,lcSql,lnSucces,locauta, lcCont, loCont
STORE "" TO locauta
lcCont = ALLTRIM(THISFORM.CONT)
IF [,]$lcCont
loCont = Caut_cont(,lcCont)
lcCont = ALLTRIM(loCont.CONT)
ENDIF
STORE "" TO locauta
lnIdSucursala = NULL
lcSucursala = ''
IF glEMama
llToateIreg = .F.
llNou = .F.
llBlank = .T.
loCauta = caut_sucursala(llToateIreg, llNou, llBlank)
lnIdSucursala = loCauta.id_sucursala
lcSucursala = loCauta.sucursala
ELSE
lnIdSucursala = gnIdSucursala && pentru o sucursala este id-ul firmei, iar pe firma independenta este null
ENDIF
locauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont))
IF !EMPTY(locauta.nume)
lnid_part=locauta.id_part
lcnume=ALLTRIM(locauta.nume)
ELSE
RETURN
ENDIF
lcacont = []
IF USED('crsacont')
USE IN crsacont
ENDIF
*!* lcSql=[select count(*) as aconturi from vplcont_analitic ]+;
*!* [where cont=']+ALLTRIM(THISFORM.CONT)+[' and an=]+ALLTRIM(STR(gnAn))
lcSql=[select count(*) as aconturi from vplcont_analitic ]+;
[where cont=']+lcCont+[' and an=]+ALLTRIM(STR(gnAn))
lnSucces = goExecutor.oExecute(lcSql,"crsacont")
IF lnSucces < 0
lcTextEroare = goExecutor.cEroare
aMESSAGEBOX(lcTextEroare,0+48,"Eroare")
ENDIF
IF lnSucces > 0 AND crsacont.aconturi>0
STORE "" TO locauta
*!* pcselect = ['select acont,explicatie FROM vplcont_analitic '+]+;
*!* ["where cont=']+ALLTRIM(THISFORM.CONT)+[' and an=]+ALLTRIM(STR(gnAn))+["]
pcselect = ['select acont,explicatie FROM vplcont_analitic '+]+;
["where cont=']+lcCont+[' and an=]+ALLTRIM(STR(gnAn))+["]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [acont]
pccoloane = [acont]
pcTitlu = [Alegeti contul analitic]
pcTitluColoane = [Acont,Explicatie]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane)
IF !EMPTY(locauta.acont)
lcacont=ALLTRIM(locauta.acont)
ELSE
IF gnButon=2
RETURN
ELSE
lcacont=""
ENDIF
ENDIF
ENDIF
IF USED('crsacont')
USE IN crsacont
ENDIF
IF lnSucces > 0
loValuta = caut_valuta()
lnIdValuta = IIF(!EMPTY(loValuta.id_valuta), loValuta.id_valuta, 0)
lcNumeValuta = IIF(!EMPTY(loValuta.nume_val), loValuta.nume_val, "")
*!* 17.10.2006
*!* marius.mutu
IF EMPTY(loValuta.nume_val) OR EMPTY(loValuta.id_valuta)
loCauta = GetMonedaNationala()
lnIdValuta = loCauta.id_valuta
lcNumeValuta = ALLTRIM(locauta.nume_val)
ENDIF
ENDIF
IF lnSucces > 0
loFdoc = caut_fdoc()
lnIdFdoc = IIF(!EMPTY(loFdoc.id_fdoc), loFdoc.id_fdoc, 0)
lcfdoc = IIF(!EMPTY(loFdoc.fel_document), loFdoc.fel_document, "")
ENDIF
IF lnSucces > 0
loResp = caut_responsabil()
lnIdResp = IIF(!EMPTY(loResp.id_responsabil), loResp.id_responsabil, 0)
lcResp = IIF(!EMPTY(loResp.nume), loResp.nume, "")
ENDIF
SELECT actcv
APPEND BLANK
REPLACE CONT WITH lcCont && ALLTRIM(THISFORM.CONT)
REPLACE acont WITH lcacont
REPLACE id_ireg_part WITH 0
REPLACE id_part WITH lnid_part
REPLACE nume WITH lcnume
REPLACE id_fdoc WITH 0
REPLACE fdoc WITH lcfdoc
REPLACE id_fdoc WITH lnIdFdoc
REPLACE id_valuta WITH lnIdValuta
REPLACE id_responsabil WITH lnIdResp
REPLACE nresp WITH lcResp
REPLACE nume_val WITH lcNumeValuta
REPLACE id_responsabil WITH 0
REPLACE id_lucrare WITH 0
REPLACE id_fact WITH 0
REPLACE id_act WITH 0
REPLACE id_set WITH 0
REPLACE id_venchelt WITH 0
REPLACE cod WITH 0
REPLACE id_sucursala WITH lnIdSucursala, sucursala WITH lcSucursala
THISFORM.lmodificata=.T.
THISFORM.lvaluta=.F.
THISFORM.grid1.cfdoc.SETFOCUS()
*!* Else
*!* Thisform.grid1.SetFocus()
*!* Endif
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru = ""
*!* If m.nivel>1
*!* lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ]
*!* ENDIF
* nrdoc
*!* If Thisform.ck_nrdoc.Value=1
*!* lcFiltru = lcFiltru + Thisform.ck_nrdoc.filtru
*!* Endif
*!* * responsabil
*!* If Thisform.ck_responsabil.Value=1
*!* lcFiltru = lcFiltru + Thisform.ck_responsabil.filtru
*!* Endif
*!* * dataDoc
*!* If This.ck_dataDoc.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_dataDoc.filtru
*!* Endif
*!* * datascad
*!* If This.ck_datascad.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_datascad.filtru
*!* Endif
*!* * analitic
*!* If This.ck_analitic.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_analitic.filtru
*!* Endif
*!* * cont
*!* If This.ck_cont.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_cont.filtru
*!* Endif
*!* * firma
*!* If This.ck_firma.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_firma.filtru
*!* Endif
*!* * venit_cheltuiala
*!* If This.ck_venchelt.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_venchelt.filtru
*!* ENDIF
*!* * lucrare/comanda
*!* If This.ck_lucrare.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_lucrare.filtru
*!* ENDIF
*!* * contract
*!* If This.ck_contract.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_contract.filtru
*!* Endif
*!* * debit
*!* If Thisform.ck_debit.Value=1
*!* lcFiltru = lcFiltru + Thisform.ck_debit.filtru
*!* Endif
*!* * credit
*!* If Thisform.ck_credit.Value=1
*!* lcFiltru = lcFiltru + Thisform.ck_credit.filtru
*!* Endif
*!* * sold
*!* If This.ck_sold.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_sold.filtru
*!* Endif
*!* * valuta
*!* If This.ck_valuta.Value = 1
*!* lcFiltru = lcFiltru + Thisform.ck_valuta.filtru
*!* Endif
*!* * explicatia
*!* If This.ck_explicatia.Value = 1
*!* lcFiltru = lcFiltru + This.ck_explicatia.filtru
*!* ENDIF
*!* * fel document
*!* If This.Ck_fel_doc.Value = 1
*!* lcFiltru = lcFiltru + This.Ck_fel_doc.filtru
*!* ENDIF
*!* *scadente
If This.Ck_scadente.Value = 1
lcFiltru = lcFiltru + This.Ck_scadente.filtru
ENDIF
*!* *explicatia4
*!* IF this.ck_explicatia4.Value=1
*!* lcFiltru = lcFiltru + this.ck_explicatia4.filtru
*!* ENDIF
*ACHITATE
*!* If This.check3.Value = 1
*!* If thisform.lActiv
*!* lcFiltru = lcFiltru + "and (i.precdeb + i.debit) - (i.preccred + i.credit) = 0"
*!* Else
*!* lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) = 0"
*!* Endif
*!* Endif
*!* *NEACHITATE
*!* If This.check4.Value = 1
*!* If thisform.lActiv
*!* lcFiltru = lcFiltru + " and (i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0"
*!* Else
*!* lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) <> 0"
*!* Endif
*!* Endif
*!* If This.check7.Value = 1
*!* lcFiltru = lcFiltru + " and extract (year from i.datascad) =" + Alltrim(Str(gnAn)) + "and extract (month from i.datascad) = " + Alltrim(Str(gnLuna))
*!* Endif
IF PEMSTATUS(thisform,"filtru_pretty",5)
else
thisform.AddProperty("filtru_pretty","")
endif
IF LEN(thisform.filtru_pretty)>0
filtrutext=thisform.filtru_pretty
IF AT("AND",filtrutext)=1
filtrutext=RIGHT(filtrutext,LEN(filtrutext)-4)
ENDIF
lcFiltru=lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
ENDIF
If !Empty(lcFiltru)
lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') ] + lcFiltru
Else
lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') ]
Endif
IF (this.filtru_pretty#"none")
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid1(lcFiltru)
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
If Reccount('actcv')=0
aMessagebox("Cautarea nu a intors rezultate!",64,"Info cautare")
ENDIF
ENDIF
thisform.but_start_criterii1.SetFocus
ENDPROC
PROCEDURE do_excel
Local lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
lcAlias = this.grid1.RecordSource
lcFiltru = FILTER(lcAlias)
IF EMPTY(lcFiltru)
lcFiltru = '.T.'
ENDIF
exista_excel=.T.
lcColumnList = ''
lcHeaderList = ''
lcSelect = ''
llSelect = .T.
lcType = 'CURSOR'
lcFrom = lcAlias
lcWhere = lcFiltru
lcOrder = 'nume'
lcOutput = 'crsIregPart'
get_schema_grid(this.grid1,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
&lcSelect
IF USED(lcOutput)
DO export_xls WITH lcOutput IN oproceduri_comune.prg
USE IN (lcOutput)
ENDIF
ENDPROC
PROCEDURE do_listare
Local lcRaport, x
Private pcTitlu, t1, t2, t3, t4
Store "" To pcTitlu
lcRaport = ""
lcTitlu = ""
t1 = Thisform.grid1.cTotDeb.header1.Caption
t2 = Thisform.grid1.cTotCred.header1.Caption
t3 = Thisform.grid1.cTotDebVal.header1.Caption
t4 = Thisform.grid1.cTotCredVal.header1.Caption
*!* MESSAGEBOX('EACTIV = ' + TRANSFORM(EACTIV) + CHR(13) + t1 + " " + t2 + CHR(13) + t3 + " " + t4 + CHR(13) + iif(eActiv,t1,t2) + " " + iif(eActiv,t3,t4))
x = xmenu("Lista facturi pe parteneri - lei;Lista facturi simpla;Lista facturi pe parteneri - lei,valuta;Lista facturi pe parteneri - valuta;Lista solduri facturi pe parteneri;Centralizator facturi emise in luna")
Private pcSubtitlu
If This.filtru_traducere()#""
lctext=" si "+This.filtru_traducere()
Else
lctext=""
Endif
pcSubtitlu = this.filtru_pretty_ro + lctext
Do Case
Case x = 1
t1 = Thisform.grid1.cTotDeb.header1.Caption
t2 = Thisform.grid1.cCredit.header1.Caption
t3 = Thisform.grid1.cPrecCred.header1.Caption
t4 = Thisform.grid1.cTotCred.header1.Caption
lcTitlu = "pe parteneri" && Lista facturi pe parteneri - lei
lcRaport = "ireg_parteneri_rpt2lei"
Select * ;
FROM actcv With (Buffering = .T.) ;
ORDER By nume,dataact,nract ;
INTO Cursor curent_cursor NOFILTER
Case x = 2
lcTitlu = "" && Lista facturi simpla
lcRaport = "ireg_parteneri_rpt1"
Select * ;
FROM actcv With (Buffering = .T.) ;
ORDER By dataact,nract ;
INTO Cursor curent_cursor NOFILTER
Case x = 3
lcTitlu = "pe parteneri" && Lista facturi pe parteneri - lei,valuta
lcRaport = "ireg_parteneri_rpt2"
Select * ;
FROM actcv With (Buffering = .T.) ;
ORDER By nume,dataact,nract ;
INTO Cursor curent_cursor NOFILTER
Case x = 4
lcTitlu = "pe parteneri - valuta" && Lista facturi pe parteneri - valuta
lcRaport = "ireg_parteneri_rpt3"
Select * ;
FROM actcv With (Buffering = .T.) ;
WHERE precvaldeb <> 0 Or precvalcred <> 0 Or valdebit <> 0 Or valcredit <> 0 ;
ORDER By nume,dataact,nract ;
INTO Cursor curent_cursor NOFILTER
Case x = 5
lcTitlu = "solduri pe parteneri" && Lista solduri facturi pe parteneri
lcRaport = "ireg_parteneri_rpt5"
Select nume, nume_val, Sum(precdeb) As precdeb, Sum(preccred) As preccred, Sum(precvaldeb) As precvaldeb, Sum(precvalcred) As precvalcred, ;
SUM(debit) As debit, Sum(credit) As credit, Sum(valdebit) As valdebit, Sum(valcredit) As valcredit ;
FROM actcv With (Buffering = .T.) ;
GROUP By nume, nume_val ;
ORDER By nume, nume_val ;
INTO Cursor curent_cursor NOFILTER
Case x = 6
lcTitlu = "centralizator" && Centralizator facturi emise in luna
lcRaport = "ireg_parteneri_rpt6"
Select nract, dataact, serie_act, nume, nume_val, Sum(precdeb) As precdeb, Sum(preccred) As preccred, Sum(precvaldeb) As precvaldeb, Sum(precvalcred) As precvalcred, ;
SUM(debit) As debit, Sum(credit) As credit, Sum(valdebit) As valdebit, Sum(valcredit) As valcredit ;
FROM actcv With (Buffering = .T.) ;
WHERE Year(DATAIREG) * 12 + Month(DATAIREG) = gnAn * 12 + gnLuna ;
GROUP By serie_act, nract, dataact, nume, nume_val ;
ORDER By dataact, nume, serie_act, nract, nume_val ;
INTO Cursor curent_cursor NOFILTER
otherwise
RETURN
Endcase
*!* If Empty(lcRaport) Or !Used('curent_cursor')
*!* Return
*!* Endif
*!* If Reccount('curent_cursor') = 0
*!* AMESSAGEBOX('Raportul nu contine rezultate',0+48,"Raport")
*!* Else
pcTitlu = Thisform.lb_titlu_alb_b121.Caption + " " + lcTitlu
*!* titlu = ceretitlu_rap('Titlul Raportului', lcTitlu)
*!* pcDataOra = get_ora(2)
*!* Thisform.AlwaysOnTop=.F.
*!* Select curent_cursor
*!* Report Format &lcRaport To Printer Prompt Preview
*!* Thisform.AlwaysOnTop=.T.
*!* Endif
thisform.AlwaysOnTop = .F.
goExport.export2frx([curent_cursor],lcRaport,.T.)
thisform.AlwaysOnTop = .T.
If Used('curent_cursor')
Use In curent_cursor
Endif
RELEASE pcTitlu
ENDPROC
PROCEDURE do_modifica
Parameters tlIesire
*!* in contracte nu trebuie modificat
Return
LOCAL llInsert, lcIdSucursala
lcIdSucursala = ''
llInsert = .F.
Local lcFunctie,lcSql,lcMesaj,lcActiune,lcTitlu,llIesire
PRIVATE loRec
llIesire=tlIesire
If Empty(llIesire)
llIesire=.F.
Endif
Select actcv
Scatter Name loRec
nrlin=Recno()
lnid_part=loRec.id_part
If loRec.id_ireg_part=0
llInsert = .T.
lcMesaj=[Doriti sa adaugati aceasta inregistrare?]
lcActiune=[adaugata]
lcTitlu=[Adaugare]
ELSE
lcMesaj=[Doriti sa modificati aceasta inregistrare?]
lcActiune=[modificata]
lcTitlu=[Modificare]
Endif
Thisform.grid1.SetAll("DynamicFontBold","IIF(RECNO()=nrlin,.T.,.F.)","Column")
Thisform.grid1.Refresh()
If aMessagebox(lcMesaj,4+32+256,lcTitlu)==6
Thisform.grid1.SetAll("DynamicFontBold",".F.","Column")
Thisform.grid1.Refresh()
If Empty(loRec.dataact) And !Isnull(loRec.fdoc)
aMessagebox("Nu ati introdus data documentului!",0+48,"Atentie")
Thisform.leroare=.T.
Thisform.grid1.cDataAct.SetFocus()
Return
Endif
*!* If Empty(loRec.datascad) And !Isnull(loRec.fdoc)
*!* Messagebox("Nu ati introdus data scadenta!",0+48,"Atentie")
*!* Thisform.leroare=.T.
*!* Thisform.grid1.column2.SetFocus()
*!* Return
*!* Endif
If Empty(loRec.nract) And !Isnull(loRec.fdoc)
aMessagebox("Nu ati introdus numarul documentului!",0+48,"Atentie")
Thisform.leroare=.T.
Thisform.grid1.cNrAct.SetFocus()
Return
Endif
If !Thisform.grid1.cNresp.Visible
AddProperty(loRec,'id_responsabil',Null)
Endif
If loRec.id_valuta=0 And (loRec.valcredit>0 Or loRec.valdebit>0)
aMessagebox("Nu ati introdus numele valutei!",0+48,"Atentie")
Thisform.lvaluta=.T.
Thisform.leroare=.T.
Thisform.grid1.cNume_val.SetFocus()
Return
Endif
If loRec.id_valuta>0 And loRec.Curs=0
aMessagebox("Nu ati introdus cursul de schimb!",0+48,"Atentie")
Thisform.leroare=.T.
Thisform.grid1.cCurs.SetFocus()
Return
ENDIF
lnidjtva=VAL(TRANSFORM(loRec.id_jtva_coloana))
lnproctva=lorec.proc_tva
lcIdSucursala = IIF(NVL(loRec.id_sucursala,0) = 0, 'NULL', ALLTRIM(STR(lorec.id_sucursala)))
lcSql1=[begin pack_inregistrari.iregpartinsproc(]+NVL(Alltrim(Str(loRec.id_ireg_part)),'0')+[,]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,]+;
ALLTRIM(Str(loRec.id_part))+[,']+Alltrim(loRec.Cont)+[',']+Nvl(Alltrim(loRec.acont),'')+[',]+;
ALLTRIM(Str(loRec.Debit,21,4))+[,]+Alltrim(Str(loRec.credit,21,4))+[,]+Alltrim(Str(loRec.valdebit,21,4))+[,]
lcSql2=Alltrim(Str(loRec.valcredit,21,4))+[,]+Alltrim(Str(loRec.Curs,15,gnPCurs2))+[,]+Nvl(Alltrim(Str(loRec.id_fdoc)),'0')+[,]+;
[to_date(']+Nvl(Alltrim(Dtos(loRec.dataact)),'')+[','YYYY-MM-DD'),to_date(']+Nvl(Alltrim(Dtos(loRec.dataireg)),'')+[',]+;
['YYYY-MM-DD'),to_date(']+Nvl(Alltrim(Dtos(loRec.datascad)),'')+[','YYYY-MM-DD'),]+Nvl(Alltrim(Str(loRec.nract)),'')+[,]+;
[']+NVL(ALLTRIM(loRec.serie_act),[])+[',]
lcSql3=Nvl(Alltrim(Str(loRec.id_responsabil)),'0')+[,]+Alltrim(Str(loRec.precdeb,21,4))+[,]+Alltrim(Str(loRec.preccred,21,4))+[,]+;
ALLTRIM(Str(loRec.precvaldeb,21,4))+[,]+ALLTRIM(Str(loRec.precvalcred,21,4))+[,]+NVL(Alltrim(Str(loRec.cod)),'0')+[,']+Nvl(Alltrim(loRec.explicatia),'')+[',]
lcSql4=Nvl(Alltrim(Str(loRec.id_act)),'0')+[,]+NVL(Alltrim(Str(loRec.id_lucrare)),'0')+[,]+Alltrim(Str(loRec.id_valuta))+[,]+;
NVL(ALLTRIM(Str(loRec.id_fact)),'0')+[,]+NVL(Alltrim(Str(loRec.id_set)),'0')+[,']+Nvl(Alltrim(loRec.explicatia4),'')+[',']+;
NVL(Alltrim(loRec.explicatia5),'')+[',]+Nvl(Alltrim(Str(loRec.id_venchelt)),'0')+[,] + ALLTRIM(STR(lnidjtva))+[,]+ALLTRIM(STR(lorec.proc_tva,7,2))+[,] + lcIdSucursala + [); end;]
lnSucces = goExecutor.oExecute(lcSql1+lcSql2+lcSql3+lcSql4)
If lnSucces < 0
lcTextEroare = goExecutor.cEroare
aMessagebox(lcTextEroare,0+48,"Eroare")
Else
aMessagebox("Inregistrarea a fost "+lcActiune+"!",0+64,lcTitlu)
ENDIF
Select actcv
Locate For id_part=loRec.id_part And acont=loRec.acont And id_fdoc=loRec.id_fdoc And id_valuta=loRec.id_valuta
pnRec=Recno()
*!* IF llInsert
*!* REPLACE id_ireg_part WITH loRec.id_ireg_part, id_fact WITH loRec.id_fact
*!* ENDIF
Else
Thisform.grid1.SetAll("DynamicFontBold",".F.","Column")
Thisform.grid1.Refresh()
Endif
If !llIesire
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
*Thisform.actualizeaza_grid1()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Endif
Thisform.lmodificata=.F.
Thisform.lvaluta=.F.
Thisform.leroare=.F.
ENDPROC
PROCEDURE do_reface
*!* in contracte nu trebuie modificat
Return
LOCAL lcCont,x
lcConturi = Alltrim(Thisform.ccont)
lcSursa = [IREG_PARTENERI]
lnLuna = gnLuna
lnAn = gnAn
IF glLunaInchisa
AMESSAGEBOX('Luna este blocata. Nu se pot da refaceri.',0+48,'Refacere')
RETURN
ENDIF
x= xmenu('Refacere \<completa;\-;\Refacere sume precedente si lunare;Refacere \<sume lunare;Refacere s\<ume precedente')
DO case
CASE x = 3
lcLunar = [1]
CASE x = 1
lcLunar = [3]
CASE x = 4
lcLunar = [0]
CASE x = 5
lcLunar = [2]
OTHERWISE
RETURN
ENDCASE
*!* lnSucces = goExecutor.oExecute(lcExec)
*!* IF lnSucces < 0
*!* MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
*!* RETURN
*!* ENDIF
lnSucces = 1
lnIx = GETWORDCOUNT(lcConturi, [,])
FOR i = 1 TO lnIx
IF lnSucces > 0
lcCont = GETWORDNUM(lcConturi, i, [,])
lnSucces = refacere(lcSursa,lcLunar,lcCont,lnLuna,lnAn) && IN orefaceri.prg
ENDIF
ENDFOR
IF lnSucces > 0
Thisform.actualizeaza_grid1()
do inainte WITH "IREG_PARTENERI",lcCont in oinainte_de.prg
this.LockScreen = .f.
this.griD1.SetFocus
aMESSAGEBOX('Refacerea s-a terminat!',0+64,"Info refacere")
ENDIF
ENDPROC
PROCEDURE do_renunt
gnButon = 2
pnButon = 2
Buton = 2
pnIesire = 2
If This.lmodificata
This.do_modifica(.T.)
Endif
If !This.leroare
This.Release
Endif
ENDPROC
PROCEDURE do_reset
With Thisform
For i=1 To .Objects.Count
If Upper(.Objects(i).BaseClass)='CHECKBOX'
.Objects(i).Value=0
Endif
Endfor
ENDWITH
IF NOT PEMSTATUS(thisform,"filtru_pretty",5)
thisform.AddProperty("filtru_pretty")
ENDIF
IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5)
thisform.AddProperty("filtru_pretty_ro")
ENDIF
thisform.filtru_pretty=""
thisform.filtru_pretty_ro=""
thisform.but_start_criterii1.ToolTipText=thisform.filtru_pretty_ro
Thisform.but_start_criterii1.SetFocus
Thisform.Refresh
thisform.but_start_criterii1.pornit="nu"
thisform.do_cauta()
ENDPROC
PROCEDURE do_sterge
*!* in contracte nu trebuie modificat
Return
Select actcv
Scatter Name loRec
nrlin=Recno()
Thisform.grid1.SetAll("DynamicFontBold","IIF(RECNO()=nrlin,.T.,.F.)","Column")
Thisform.grid1.Refresh()
IF loRec.id_ireg_part = 0 OR ISNULL(loRec.id_ireg_part)
aMESSAGEBOX("Aceasta inregistrare nu este salvata pe server. Repetati cautarea!",0+48,'Stergere')
RETURN
ENDIF
If aMessagebox("Doriti sa stergeti aceasta inregistrare?",4+32+256,"Confirmare stergere")==6
Thisform.grid1.SetAll("DynamicFontBold",".F.","Column")
Thisform.grid1.Refresh()
lcSql=[begin PACK_INREGISTRARI.iregpartdelproc(] + Alltrim(Str(loRec.id_ireg_part))+[); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
lcTextEroare = goExecutor.cEroare
aMessagebox(lcTextEroare,0+48,"Eroare")
Else
aMessagebox("Inregistrarea a fost stearsa!",0+64,"Info stergere")
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid1()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Select actcv
If Reccount()>0
nrlin=Max(nrlin-1,1)
Go nrlin
Endif
Thisform.grid1.SetFocus()
Else
Thisform.grid1.SetAll("DynamicFontBold",".F.","Column")
Thisform.grid1.Refresh()
Endif
ENDPROC
PROCEDURE do_termin
gnButon = 1
pnButon = 1
Buton = 1
pnIesire = 1
IF THIS.lmodificata
THIS.do_modifica(.T.)
ENDIF
IF !THIS.leroare
THIS.RELEASE
ENDIF
THIS.BUT_STArt_criterii1.RESETstatus()
DODEFAULT()
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
Local lnTotsum,pcTitlu
Store "" To poact,pctitlu
Store .F. To llAfisare
Store 0 To pnlunanan,lnTotsum
pnlunanan = gnAn*12+gnLuna
*Thisform.blocbuton1.terminat1.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 Thisform.lActiv && activ
pcfiltru = [id_partC=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
[ and id_factc = ] + ALLTRIM(STR(id_fact))+[ and scc=']+Alltrim(Thisform.Cont)+[']+[ and NVL(ascc,'xxx')=']+NVL(ALLTRIM(acont),'xxx')+[']
pcTitlu = "INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
pnachitat = credit+preccred
Otherwise && pasiv
pcfiltru = [id_partD=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
[ and id_factd = ] + ALLTRIM(STR(id_fact))+[ and scd=']+Alltrim(Thisform.Cont)+[']+[ and NVL(ascd,'xxx')=']+NVL(ALLTRIM(acont),'xxx')+[']
pcTitlu = "PLATI LA FACTURA NR. "+Alltrim(Str(nract))
pnachitat = debit + precdeb
Endcase
pcorder = [dataact,nract]
gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poact.ca_baza1.afisare()
GO top
ORC = Createobj("AFincpl")
ORC.lb_titlu_alb_b121.Caption = pcTitlu
ORC.ali = "acn2"
ORC.grid1.column6.Visible = .T.
ORC.Show(1)
pcTitlu = ""
Thisform.AlwaysOnTop = .T.
*Thisform.blocbuton1.terminat1.Enabled = .T.
If Used('acn2')
Use In acn2
Endif
Release ORC,poact
******************************************************
ENDPROC
PROCEDURE Init
DoDefault()
*!* modificare v 2.0.11
Thisform.grid1.cNrAct.DynamicBackColor = [Iif(nr<>0,Rgb(173,248,183),Rgb(255,255,255))]
Thisform.grid1.cNrAct.SetAll("BackColor",[Iif(nr<>0,Rgb(173,248,183),Rgb(255,255,255))],"Text")
*!* modificare v 2.0.11 ^
ENDPROC
PROCEDURE initializare
THISFORM.but_start_criterii1.ENABLED = !THISFORM.but_start_criterii1.ENABLED
THISFORM.but_reset_criterii1.ENABLED = !THISFORM.but_reset_criterii1.ENABLED
THISFORM.cmDINCASPL.ENABLED = !THISFORM.cmDINCASPL.ENABLED
THISFORM.comMAND1.ENABLED = !THISFORM.comMAND1.ENABLED
THISFORM.commAND2.ENABLED = !THISFORM.commAND2.ENABLED
THISFORM.commAND3.ENABLED = !THISFORM.commAND3.ENABLED
WITH THISFORM.grid1
.READONLY = !.READONLY
.cExplicatieTVA.Combo1.readonly=!.READONLY
.cTotDeb.READONLY = .T.
.cTotCred.READONLY = .T.
.cSoldFinal.READONLY = .T.
.cTotDebVal.READONLY = .T.
.cTotCredVal.READONLY = .T.
.cSoldVal.READONLY = .T.
.cFDoc.READONLY = .T.
.cNume.READONLY = .T.
.cNume_val.READONLY = .T.
.cNresp.READONLY = .T.
.cNrord.READONLY = .T.
.cProcentTVA.readonly= .T.
ENDWITH
SELECT actcv
THISFORM.grid1.REFRESH
THISFORM.grid1.SETFOCUS()
ENDPROC
PROCEDURE ist_deb_cred
Private pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume
PRIVATE nl,an,pcluna,pcanul
Store 0 To pnlunanan
Store .F. To llAfisare
Store "" To poacn1,poacn2
pcdatacrt=Alltrim(Str(gnAn))+Padl(Alltrim(Str(gnLuna)),2,'0')+[01] && prima zi a lunii
*Thisform.blocbuton1.terminat1.Enabled=.F.
Thisform.AlwaysOnTop= .F.
pcanul='00'
pcluna='00'
Select calendar
OSE=Crea('SELELUNA')
OSE.Show(1)
pnlunanan=gnAn*12+gnLuna
pnlunaanales=Val(pcanul)*12+Val(pcluna)
Select actcv
pcnume=nume
pnid_part=id_part
*!* 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']
pcorder=[dataact,serie_act,nract]
pcfiltru=[scd=']+ALLTRIM(thisform.cont)+[' and id_partD=]+ALLTRIM(STR(pnid_part))+[ ]+;
[and extract(year from dataact)*12+extract(month from dataact) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
pcfiltru=[scc=']+ALLTRIM(thisform.cont)+[' and id_partC=]+ALLTRIM(STR(pnid_part))+[ ]+;
[and extract(year from dataact)*12+extract(month from dataact) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
gencursor("poacn2","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poacn1.ca_baza1.afisare()
poacn2.ca_baza1.afisare()
ORC=Createobj("frm_debsicred")
orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - ISTORIC DEBIT CREDIT "
ORC.Show(1)
If Used('acn1')
Use In acn1
Endif
If Used('acn2')
Use In acn2
Endif
*Thisform.blocbuton1.terminat1.Enabled=.T.
Thisform.AlwaysOnTop= .T.
RELEASE orc,poacn1,poacn2
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL lbviz
lbviz=THIS.bvizualizare
DO CASE
CASE (nKeyCode=13 AND nShiftAltCtrl=2) OR (nKeyCode=4 AND nShiftAltCtrl=2)
If glLunaInchisa OR this.grID1.ReadOnly
RETURN
Endif
NODEFAULT
OTHERWISE
DODEFAULT(nKeyCode, nShiftAltCtrl)
ENDCASE
ENDPROC
PROCEDURE notacontab
If Reccount('actcv')>0
Private pcselect,pcfiltru,pcschema,pcorder,poact
Local lcTip,llTest
Store .F. To llTest
Store "" To poact
*Thisform.blocbuton1.terminat1.Enabled=.F.
Thisform.AlwaysOnTop=.F.
*!* lunanan=gnLuna+gnAn*12
Select actcv
SCATTER NAME oireg
IF EMPTY(oireg.id_fact)
pcfiltru = [dataact=to_date(']+Dtos(oireg.dataact)+[','YYYY-MM-DD') and nract=]+ALLTRIM(STR(oireg.nract))+;
[ and ((id_partd=]+ALLTRIM(STR(oireg.id_part))+[ and ascd=']+NVL(ALLTRIM(oireg.acont),'')+;
[') or (id_partc=]+ALLTRIM(STR(oireg.id_part))+[ and ascc=']+NVL(ALLTRIM(oireg.acont),'')+['))]
ELSE
pcfiltru = [id_fact=]+ALLTRIM(STR(oireg.id_fact))
ENDIF
pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+;
['SUMA N(19,2),SCD C(4),ASCD C(4),SCC C(4), ASCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)']
pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,luna,an,cod '+]+;
['from ]+gcS+[.vact where 2=2']
pcorder=[dataact,serie_act,nract]
llAfisare=.F.
gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poact.ca_baza1.afisare()
Go Top
ORC=CREATEOBJECT("frm_debcred")
orc.lb_titlu_alb_b121.caption="NOTA CONTABILA"
orc.lb_titlu1.caption=" "+UPPER(ALLTRIM(oireg.nume))+" "
ORC.Show(1)
Release poact,ORC
*Thisform.blocbuton1.terminat1.Enabled=.T.
Thisform.AlwaysOnTop=.T.
Else
aMessagebox("Nu aveti date in cautare!",48,"Atentie")
Thisform.ck_nrdoc.SetFocus()
Endif
RELEASE oireg
ENDPROC
PROCEDURE plati
THISFORM.CMDTERMIN1.ENABLED=.F.
SCATTER FIELDS EXCEPT nl,an memv
SELE ACT
* DO NRORD WITH "ACT"
Set filter to nume=m.nume and pereche=m.nract
DO NRORD WITH "ACT"
go top
ORC=CREATEOBJ("AFDEBCRED")
ORC.LABELTITLU.CAPTION="Plati"
ORC.SHOW(1)
THISFORM.CMDTERMIN1.ENABLED=.T.
ENDPROC
PROCEDURE salariati
If Reccount('actcv')>0
Private pcselect,pcfiltru,pcschema,pcorder,postat
Local lcTip,llTest
Store .F. To llTest
Store "" To postat
*Thisform.blocbuton1.terminat1.Enabled=.F.
Thisform.AlwaysOnTop=.F.
*!* lunanan=gnLuna+gnAn*12
Select actcv
PRIVATE oireg
SCATTER NAME oireg
IF oireg.id_part = gnID_PARTDRNERIDLIC &&lichidare
pcschema= ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)']
pcselect=[select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.lichidare,ROUND(a.ACHITLICNERID,0) as bifa,a.SUMALICNERID from sal_vstattot a where 1=2]
pcfiltru = [ id_fact_lic = ] +ALLTRIM(STR(oireg.id_fact))
ELSE &&avans
pcschema= ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)']
pcselect=[select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.avans as lichidare,ROUND(a.ACHITAVNERID,0) as bifa,a.SUMAAVNERID as SUMALICNERID from sal_vstattot a where 1=2]
pcfiltru = [ id_fact_av = ] +ALLTRIM(STR(oireg.id_fact))
ENDIF
pcorder=[a.sectie,a.nume,A.PRENUME]
llAfiseaza=.F.
gencursor('postat','crsState',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
postat.ca_baza1.afisare()
Select crsState
ofrmSelect = CREATEOBJECT('frm_alege_neridicati')
IF oireg.id_part = gnID_PARTDRNERIDLIC &&lichidare
ofrmSelect.noptiune = 1&& pentru lichidare neridicata
ELSE
ofrmSelect.noptiune = 4&& pentru avans neridicat
ENDIF
ofrmSelect.show(1)
RELEASE oireg
USE IN crsState
RELEASE ofrmSelect
Thisform.AlwaysOnTop=.T.
Else
aMessagebox("Nu aveti date in cautare!",48,"Atentie")
Thisform.ck_nrdoc.SetFocus()
Endif
RELEASE oireg
ENDPROC
PROCEDURE But_excel1.Click
DODEFAULT()
*!* Local i,xlsheet,XLApp,tmpsheet
*!* exista_excel=.T.
*!* p1=''
*!* p2=''
*!* With Thisform.grid1
*!* For nCol=1 To .ColumnCount
*!* nColumn=.Columns(nCol).ColumnOrder
*!* p1=p1+.Columns(nCol).ControlSource+','
*!* For lnobjcol=1 To .Columns(nCol).Objects.Count
*!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER'
*!* p2=p2+Strtran(.Columns(nCol).Objects(lnobjcol).Caption,Chr(32),'_')+','
*!* Exit
*!* Endif
*!* Endfor
*!* Endfor
*!* p1=Substr(p1,1,Len(p1)-1)
*!* p2=Substr(p2,1,Len(p2)-1)
*!* Endwith
*!* On Error Do exportare With Thisform.grid1.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.grid1
*!* For nCol = 1 To .ColumnCount
*!* nColumn = .Columns(nCol).ColumnOrder
*!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
*!* For lnobjcol=1 To .Columns(nCol).Objects.Count
*!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER'
*!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).Objects(lnobjcol).Caption
*!* Exit
*!* Endif
*!* Endfor
*!* 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) = Iif(Empty(Eval(.Columns(nCol).ControlSource)),'',Eval(.Columns(nCol).ControlSource))
*!* Endif
*!* Endfor
*!* Endscan
*!* Endwith
*!* XLApp.Visible = .T.
*!* Endif
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
Parameters tacriterii
External Array tacriterii
#Define crlf Chr(13)+Chr(10)
lcStringCriterii = "Nr Document\i.nract\N\none\" + crlf + ;
"Serie Document\i.serie_act\T\none\" + crlf + ;
"Data document\i.dataact\D\none\" + crlf + ;
"Data scadenta\i.datascad\D\none\"+ crlf + ;
"Fel Document\i.fdoc\T\id_fdoc\nom_feldoc" + crlf + ;
"Lucrare\i.nrord\T\id_lucrare\nom_lucrare"+ crlf + ;
"Nume firma\i.nume\T\ID_PART\nom_parteneri"+ crlf + ;
"Contract\i.contract\T\none\"+ crlf + ;
"Debit\i.Debit\N|get_mask(12,gnPc)\none\"+ crlf + ;
"Credit\i.credit\N|get_mask(12,gnPc)\none\"+ crlf
If plactiv
lcStringCriterii = lcStringCriterii + "Sold\precdeb+debit-credit-preccred\N|get_mask(12,gnPc)\none\"+ crlf
Else
lcStringCriterii = lcStringCriterii + "Sold\credit+preccred-precdeb-debit\N|get_mask(12,gnPc)\none\"+ crlf
Endif
lcStringCriterii = lcStringCriterii + ;
"Cont\i.cont\T\none\"+ crlf + ;
"Analitic\i.acont\T\none\"+ crlf + ;
"Valuta\i.nume_val\T\id_valuta\nom_valuta"+ crlf + ;
"Explicatia\i.explicatia\T\none\" + crlf + ;
"Venit/Cheltuieli\i.venChelt\T\ID_VENCHELT\nom_venchel" + crlf + ;
"Explicatia 4\i.explicatia4\T\none\" + crlf + ;
"Cont creditor\i.nresp\T\none\" + crlf + ;
"Achitate\nofield\E\"
If Thisform.lActiv
lcStringCriterii = lcStringCriterii + "(i.precdeb + i.debit) - (i.preccred + i.credit) = 0"
Else
lcStringCriterii = lcStringCriterii + "(i.preccred + i.credit) - (i.precdeb + i.debit) = 0"
Endif
lcStringCriterii = lcStringCriterii + "\" + crlf + ;
"Neachitate\nofield\E\"
If Thisform.lActiv
lcStringCriterii = lcStringCriterii + "(i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0"
Else
lcStringCriterii = lcStringCriterii + "(i.preccred + i.credit) - (i.precdeb + i.debit) <> 0"
Endif
&& aleg sucursale doar daca sunt pe mama
If glEMama
lcStringCriterii = lcStringCriterii + "\" + crlf + "Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala"
Endif
DoDefault()
ENDPROC
PROCEDURE Cb_nom_valute1.Init
thisform.label6.Caption='Total Debit Valuta'
thisform.label8.caption='Total Credit Valuta'
thisform.label9.Caption='Sold Valuta'
this.Enabled=.F.
ENDPROC
PROCEDURE Cb_nom_valute1.initializare
Lparameters tlCautareNoua
Local lcValuta,lnmaxinreg
If Used('crsnumeval')
Use In crsnumeval
Endif
Select Distinct nume_val,Count(*) As nrinreg From actcv Where id_valuta>0 Group By nume_val Order By nume_val Into Cursor crsnumeval
lnValute = _tally
If tlCautareNoua
Select crsnumeval
Calculate Max(nrinreg) To lnmaxinreg
Locate For nrinreg=lnmaxinreg
lcValuta=IIF(lnValute = 0,'Valuta',NUME_VAL)
Else
lcValuta=IIF(lnValute = 0,'Valuta',THIS.Value)
Endif
IF EMPTY(lcValuta) OR ISNULL(lcValuta)
lcValuta = 'Valuta'
ENDIF
This.RowSourceType= 2
This.RowSource="crsnumeval"
This.Value=lcValuta
This.BoundTo=.T.
If Reccount('crsnumeval')>1
This.Enabled=.T.
Endif
Thisform.label6.Caption='Total Debit '+lcValuta
Thisform.label8.Caption='Total Credit '+lcValuta
Thisform.label9.Caption='Sold '+lcValuta
ENDPROC
PROCEDURE Cb_nom_valute1.InteractiveChange
lcValuta=Iif(Empty(This.Value),'Valuta',Alltrim(This.Value))
Thisform.label6.Caption='Total Debit '+lcValuta
Thisform.label8.Caption='Total Credit '+lcValuta
Thisform.label9.Caption='Sold '+lcValuta
Thisform.actualizeaza_totaluri()
ENDPROC
PROCEDURE Ck_scadente.InteractiveChange
lccondScad = [1=1]
If This.Value = 1
Private pddataref,pddatascad_max,pnnrluni
Store 0 To pnnrluni
pddataref = Date()
pddatascad_max = pddataref
ofrmscad = Createobject('frm_facturi_scadente')
ofrmscad.txt_dataref.ControlSource = [pddataref]
ofrmscad.txt_datamax.ControlSource = [pddatascad_max]
ofrmscad.Show(1)
If gnButon = 1
lccondScad = [(i.datascad < to_date('] + Dtos(pddatascad_max) + [','yyyymmdd'))]
This.Tag=" si data scadenta mai mica decat "+Transform(pddatascad_max)
Endif
Endif
If This.Value=0
This.filtru =""
This.cTraducere=""
this.Tag=""
Else
This.filtru = [ and ] + lccondScad
This.cTraducere=This.Tag
Endif
thisform.do_cauta()
Thisform.but_start_criterii1.refreshstatus
ENDPROC
PROCEDURE cmdIncasPl.Click
thisform.incaspl
ENDPROC
PROCEDURE Command1.Click
thisform.notacontab
ENDPROC
PROCEDURE Command2.Click
SCAT fiel except nl,an MEMV
thisform.istoric
ENDPROC
PROCEDURE Command3.Click
thisform.ist_deb_cred
ENDPROC
PROCEDURE grid1.AfterRowColChange
Lparameters nColIndex
If Thisform.leroare
Nodefault
Return
Endif
Local lnluna
Select actcv
lnluna=luna
If Thisform.lmodificata
*!* Thisform.lmodificare_totaluri=.T.
Thisform.actualizeaza_totaluri()
*!* If lnluna=0
*!* Thisform.lmodificare_totaluri=.F.
*!* Endif
Thisform.grid1.Refresh
Endif
ENDPROC
PROCEDURE grid1.BeforeRowColChange
Lparameters nColIndex
*!* If !Thisform.lmodificare_totaluri
Local lnCol
Private pnRec,pnCol
If Thisform.grid1.ReadOnly=.F. And Thisform.coldvalue!=Thisform.cnewvalue
Thisform.lmodificata=.T.
Endif
If (This.RowColChange= 1 Or This.RowColChange= 3) And Thisform.lmodificata
For i=1 To This.ColumnCount
If This.Columns(i).ColumnOrder=nColIndex
lcColoana="thisform.grid1."+This.Columns(i).Name
Exit
Endif
Endfor
oColoana=&lcColoana
If Thisform.coldvalue!=Thisform.cnewvalue And !oColoana.ReadOnly
If PEMSTATUS(oColoana,"text1",5)
lValue=oColoana.text1.Value
lcNumeColoana=Substr(oColoana.ControlSource,At('.',oColoana.ControlSource)+1)
If Type('oColoana.text1.value')='D' And !oColoana.text1.Valid()
Nodefault
Return
Endif
Select actcv
Replace (lcNumeColoana) With lValue
Endif
Endif
Thisform.coldvalue=""
Thisform.cnewvalue=""
pnRec=Recno()
Thisform.do_modifica()
If Thisform.leroare
Nodefault
Return
Endif
*!* Thisform.lmodificare_totaluri=.F.
DoDefault()
Endif
*!* Else
*!* *!* Nodefault
*!* Thisform.lmodificare_totaluri=.F.
*!* Endif
ENDPROC
PROCEDURE grid1.cAcont.Text1.GotFocus
If This.ReadOnly = .F.
Thisform.coldvalue = Alltrim(This.Value)
Thisform.cnewvalue = Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cAcont.Text1.InteractiveChange
If This.ReadOnly = .F.
Thisform.cnewvalue = Alltrim(This.Value)
Endif
ENDPROC
PROCEDURE grid1.cCod.Text1.GotFocus
If !This.ReadOnly
Thisform.coldvalue=Alltrim(Str(This.Value))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cCod.Text1.InteractiveChange
If !This.ReadOnly
Thisform.cnewvalue=Alltrim(Str(This.Value))
Endif
ENDPROC
PROCEDURE grid1.cCredit.Text1.GotFocus
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cCredit.Text1.InteractiveChange
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Endif
ENDPROC
PROCEDURE grid1.cCurs.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cCurs.Text1.GotFocus
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cCurs.Text1.InteractiveChange
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Endif
ENDPROC
PROCEDURE grid1.cCurs.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cDataAct.Header1.DblClick
thisform.corderby = "dataact"
ENDPROC
PROCEDURE grid1.cDataAct.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cDataAct.Text1.GotFocus
If This.ReadOnly=.F.
Thisform.coldvalue=Alltrim(Dtoc(This.Value))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cDataAct.Text1.InteractiveChange
If This.ReadOnly=.F.
Thisform.cnewvalue=Dtoc(This.Value)
Endif
ENDPROC
PROCEDURE grid1.cDataAct.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cDataAct.Text1.Valid
If This.ReadOnly=.F. And !Isnull(fdoc)
If (Empty(This.Value) Or Isnull(This.Value))
aMessagebox("Introduceti data documentului!",0+48,"Atentie")
Return .F.
Else
If (Month(This.Value)+Year(This.Value)*12>gnLuna+gnAn*12)
aMessagebox("Data documentului trebuie sa fie anterioara sau din luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))+"!",0+48,"Atentie")
Thisform.lmodificata=.F.
Return .F.
Endif
Endif
Endif
Return .T.
ENDPROC
PROCEDURE grid1.cDataireg.Text1.GotFocus
If This.ReadOnly=.F.
Thisform.coldvalue=NVL(Alltrim(Dtoc(This.Value)),'*')
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cDataireg.Text1.InteractiveChange
If This.ReadOnly=.F.
Thisform.cnewvalue=NVL(Dtoc(This.Value),'*')
Endif
ENDPROC
PROCEDURE grid1.cDataireg.Text1.Valid
If This.ReadOnly=.F. And !Isnull(fdoc)
If (Empty(This.Value) Or Isnull(This.Value))
aMessagebox("Introduceti data inregistrarii!",0+48,"Atentie")
Return .F.
Else
Do Case
Case This.Value<dataact
aMessagebox("Data inregistrarii trebuie sa fie mai mare sau egala cu data documentului!",0+48,"Atentie")
Thisform.lmodificata=.F.
Return .F.
Case (Month(This.Value)+Year(This.Value)*12<>gnLuna+gnAn*12)
aMessagebox("Data inregistrarii trebuie sa fie din luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))+"!",0+48,"Atentie")
Thisform.lmodificata=.F.
Return .F.
Endcase
Endif
Endif
Return .T.
ENDPROC
PROCEDURE grid1.cDataScad.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cDataScad.Text1.GotFocus
If This.ReadOnly=.F.
Thisform.coldvalue=Alltrim(Dtoc(This.Value))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cDataScad.Text1.InteractiveChange
If This.ReadOnly=.F.
Thisform.cnewvalue=Dtoc(This.Value)
Endif
ENDPROC
PROCEDURE grid1.cDataScad.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cDataScad.Text1.Valid
*!* (Empty(This.Value) And !Empty(dataact)) Or (Isnull(This.Value) And !Isnull(dataact))
*!* Messagebox("Introduceti data scadenta!",0+48,"Atentie")
*!* Return .F.
*!* Else
If This.ReadOnly=.F. And !Isnull(fdoc)
If !Empty(This.Value) And !Empty(dataact) And This.Value<dataact
aMessagebox("Data scadenta trebuie sa fie mai mare sau egala cu data documentului!",0+48,"Atentie")
Thisform.lmodificata=.F.
Return .F.
Endif
Endif
Return .T.
ENDPROC
PROCEDURE grid1.cDebit.Text1.GotFocus
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cDebit.Text1.InteractiveChange
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Endif
ENDPROC
PROCEDURE grid1.cExplicatia.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cExplicatia.Text1.GotFocus
If !This.ReadOnly
Thisform.coldvalue=Nvl(Alltrim(This.Value),'*')
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cExplicatia.Text1.InteractiveChange
If This.ReadOnly=.F.
Thisform.cnewvalue=NVL(Alltrim(This.Value),'*')
Endif
ENDPROC
PROCEDURE grid1.cExplicatia.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cExplicatia4.Text1.GotFocus
If !This.ReadOnly
Thisform.coldvalue=NVL(Alltrim(This.Value),'*')
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cExplicatia4.Text1.InteractiveChange
If !This.ReadOnly
Thisform.cnewvalue=NVL(Alltrim(This.Value),'*')
Endif
ENDPROC
PROCEDURE grid1.cExplicatia5.Text1.GotFocus
If !This.ReadOnly
Thisform.coldvalue=NVL(Alltrim(This.Value),'*')
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cExplicatia5.Text1.InteractiveChange
If !This.ReadOnly
Thisform.cnewvalue=NVL(Alltrim(This.Value),'*')
Endif
ENDPROC
PROCEDURE grid1.cExplicatieTVA.combo1.GotFocus
If !This.ReadOnly
Thisform.coldvalue=ALLTRIM(STR(actcv.id_jtva_coloana))
Thisform.cnewvalue=Thisform.coldvalue
ENDIF
ENDPROC
PROCEDURE grid1.cExplicatieTVA.combo1.InteractiveChange
If !This.ReadOnly
Thisform.cnewvalue=ALLTRIM(STR(actcv.id_jtva_coloana))
Endif
ENDPROC
PROCEDURE grid1.cExplicatieTVA.combo1.Valid
replace actcv.id_jtva_coloana WITH jtva_temp.id_jtva_coloana
replace actcv.proc_tva WITH ROUND((jtva_temp.cota_tva+100)/100,2)
ENDPROC
PROCEDURE grid1.cfdoc.Text1.DblClick
If !Thisform.grid1.ReadOnly
Nodefault
Local locauta,lcOldValue,lcNewValue
lcOldValue=Nvl(Alltrim(fdoc),'')
Select actcv
Store "" To locauta
pcselect = ['select p.fel_document,p.id_fdoc FROM ] + Alltrim(gcS) + [.vnom_fdoc p where 2=2']
pcfiltru = [1=2]
pcschema = ['']
pcorder = [fel_document]
pccoloane = [fel_document]
pcTitlu = [Alegeti felul documentului]
pcTitluColoane = [Fel document]
lnRec=Recno()
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane)
If !Empty(locauta.fel_document)
Select actcv
Go lnRec
Replace id_fdoc With locauta.id_fdoc
Replace fdoc With Alltrim(locauta.fel_document)
lcNewValue=Nvl(Alltrim(fdoc),'')
Else
lcNewValue=lcOldValue
Endif
This.SetFocus()
Thisform.coldvalue=lcOldValue
Thisform.cnewvalue=lcNewValue
Release locauta
For i=1 To Thisform.grid1.ColumnCount
If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1
Exit
Endif
Endfor
Thisform.grid1.Columns(i).SetFocus()
Else
DoDefault()
Endif
ENDPROC
PROCEDURE grid1.cfdoc.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cId_fact.Text1.GotFocus
If !This.ReadOnly
Thisform.coldvalue=Alltrim(Str(This.Value))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cId_fact.Text1.InteractiveChange
If !This.ReadOnly
Thisform.cnewvalue=Alltrim(Str(This.Value))
Endif
ENDPROC
PROCEDURE grid1.cId_set.Text1.GotFocus
If !This.ReadOnly
Thisform.coldvalue=Alltrim(Str(This.Value))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cId_set.Text1.InteractiveChange
If !This.ReadOnly
Thisform.cnewvalue=Alltrim(Str(This.Value))
Endif
ENDPROC
PROCEDURE grid1.cNrAct.Header1.DblClick
thisform.corderby = "nract"
ENDPROC
PROCEDURE grid1.cNrAct.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cNrAct.Text1.GotFocus
*!* modificare v 2.0.11
If nr<> 0
This.BackColor = Rgb(173,248,183)
EndIf
*!* modificare v 2.0.11 ^
If This.ReadOnly=.F.
Thisform.coldvalue=Alltrim(Str(This.Value))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cNrAct.Text1.InteractiveChange
If This.ReadOnly=.F.
Thisform.cnewvalue=Alltrim(Str(This.Value))
Endif
ENDPROC
PROCEDURE grid1.cNrAct.Text1.LostFocus
*!* modificare v 2.0.11
If nr<> 0
This.BackColor = Rgb(255,255,255)
EndIf
*!* modificare v 2.0.11 ^
ENDPROC
PROCEDURE grid1.cNrAct.Text1.RightClick
Select (Thisform.grID1.RecordSource)
If nr<> 0
arata_meniu_at_vanz(cod,serie_act,nract,Thisform.grID1.RecordSource+[.]+Substr(This.Parent.ControlSource,At([.],This.Parent.ControlSource,1)+1))
Else
Do editscurt.mpr
Endif
ENDPROC
PROCEDURE grid1.cnresp.Text1.DblClick
If !Thisform.grid1.ReadOnly
Local locauta,lcCol,lcOldValue,lcNewValue
Select actcv
lcOldValue=Nvl(Alltrim(nresp),'')
Store "" To locauta
pcselect = ['select p.nume, p.functie, p.id_responsabil FROM ] + gcs + [.vnom_responsabili p '+]+;
['where 2=2']
pcfiltru = [1=2]
pcschema = ['']
pcorder = [p.nume]
pccoloane = [nume,functie]
pcTitlu = [Alegeti numele]
pcTitluColoane = [Responsabil,Functie]
lnRec=Recno()
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.nume)
Select actcv
Go lnRec
Replace id_responsabil With locauta.id_responsabil
Replace nresp With Alltrim(locauta.nume)
lcNewValue=Nvl(Alltrim(nresp),'')
Else
lcNewValue=lcOldValue
Endif
This.SetFocus()
Thisform.coldvalue=lcOldValue
Thisform.cnewvalue=lcNewValue
Release locauta
For i=1 To Thisform.grid1.ColumnCount
If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1
Exit
Endif
Endfor
Thisform.grid1.Columns(i).SetFocus()
Else
DoDefault()
Endif
ENDPROC
PROCEDURE grid1.cNrord.Text1.DblClick
If !Thisform.grid1.ReadOnly
Local locauta,lcOldValue,lcNewValue
Select actcv
lcOldValue=Nvl(Alltrim(nrord),'')
Store "" To locauta
pcselect = ['select p.nrord,p.id_lucrare FROM ] + gcs + [.vnom_lucrari p where 2=2']
pcfiltru = [1=2]
pcschema = ['']
pcorder = [nrord]
pccoloane = [nrord]
pcTitlu = [Alegeti lucrarea/contractul]
pcTitluColoane = [Lucrare/Contract]
lnRec=Recno()
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.nrord)
Select actcv
Go lnRec
Replace id_lucrare With locauta.id_lucrare
Replace nrord With locauta.nrord
lcNewValue=Nvl(Alltrim(nrord),'')
Else
lcNewValue=lcOldValue
Endif
This.SetFocus()
Thisform.coldvalue=lcOldValue
Thisform.cnewvalue=lcNewValue
For i=1 To Thisform.grid1.ColumnCount
If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1
Exit
Endif
Endfor
Thisform.grid1.Columns(i).SetFocus()
Else
DoDefault()
Endif
ENDPROC
PROCEDURE grid1.cNume.Header1.DblClick
thisform.corderby = "nume"
ENDPROC
PROCEDURE grid1.cNume.Text1.DblClick
LOCAL lcCont
IF !THISFORM.grid1.READONLY
NODEFAULT
LOCAL locauta,lcOldValue,lcNewValue
lcOldValue=NVL(ALLTRIM(nume),'')
SELECT actcv
STORE "" TO locauta
lnRec = RECNO()
lcCont = ALLTRIM(actcv.CONT)
locauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont))
IF !EMPTY(locauta.nume)
SELECT actcv
GO lnRec
REPLACE id_part WITH locauta.id_part
REPLACE nume WITH ALLTRIM(locauta.nume)
lcNewValue=NVL(ALLTRIM(nume),'')
ELSE
lcNewValue=lcOldValue
ENDIF
THIS.SETFOCUS()
THISFORM.coldvalue=lcOldValue
THISFORM.cnewvalue=lcNewValue
RELEASE locauta
FOR i=1 TO THISFORM.grid1.COLUMNCOUNT
IF THISFORM.grid1.COLUMNS(i).COLUMNORDER=THIS.PARENT.COLUMNORDER+1
EXIT
ENDIF
ENDFOR
THISFORM.grid1.COLUMNS(i).SETFOCUS()
ELSE
DODEFAULT()
ENDIF
ENDPROC
PROCEDURE grid1.cNume.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cNume_val.Text1.DblClick
If !Thisform.grid1.ReadOnly
Local locauta,lcOldValue,lcNewValue
Select actcv
lcOldValue=Nvl(Alltrim(nume_val),'')
Store "" To locauta
pcselect = ['select p.nume_val,p.id_valuta FROM ] + gcs + [.vnom_valute p where 2=2']
pcfiltru = [1=2]
pcschema = ['']
pcorder = [nume_val]
pccoloane = [nume_val]
pcTitlu = [Alegeti valuta]
pcTitluColoane = [Valuta]
lnRec=Recno()
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.nume_val)
Select actcv
Go lnRec
Replace id_valuta With locauta.id_valuta
Replace nume_val With locauta.nume_val
lcNewValue=Nvl(Alltrim(nume_val),'')
Thisform.lvaluta=.F.
thisform.actualizeaza_totaluri()
Else
lcNewValue=lcOldValue
Endif
This.SetFocus()
Thisform.coldvalue=lcOldValue
Thisform.cnewvalue=lcNewValue
Release locauta
For i=1 To Thisform.grid1.ColumnCount
If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1
Exit
Endif
Endfor
Thisform.grid1.Columns(i).SetFocus()
Else
DoDefault()
Endif
ENDPROC
PROCEDURE grid1.cNume_val.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cPrecCred.Text1.GotFocus
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cPrecCred.Text1.InteractiveChange
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Endif
ENDPROC
PROCEDURE grid1.cPrecDeb.Text1.GotFocus
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cPrecDeb.Text1.InteractiveChange
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Endif
ENDPROC
PROCEDURE grid1.cSoldFinal.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cSoldFinal.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cTotDeb.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cTotDeb.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cTotDebVal.Text1.DblClick
thisform.butdrept
ENDPROC
PROCEDURE grid1.cTotDebVal.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE grid1.cValCredit.Text1.GotFocus
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cValCredit.Text1.InteractiveChange
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Endif
ENDPROC
PROCEDURE grid1.cValCredit.Text1.Valid
IF this.Value>0
thisform.lvaluta=.T.
ENDIF
ENDPROC
PROCEDURE grid1.cValDebit.Text1.GotFocus
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Thisform.cnewvalue=Thisform.coldvalue
Endif
ENDPROC
PROCEDURE grid1.cValDebit.Text1.InteractiveChange
If This.ReadOnly=.F.
lcMask=Strtran(This.Parent.InputMask,' ','')
lnNrZec=At(Thisform.cseparator,lcMask,1)
Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0)))
Endif
ENDPROC
PROCEDURE grid1.cValDebit.Text1.Valid
IF this.Value>0
thisform.lvaluta=.T.
ENDIF
ENDPROC
PROCEDURE grid1.cVenChelt.Text1.DblClick
If !Thisform.grid1.ReadOnly
Local locauta,lcOldValue,lcNewValue
Select actcv
lcOldValue=Nvl(Alltrim(venchelt),'')
Store "" To locauta
pcselect = ["select v.explicatie,(case v.tip_venchelt when 1 then 'C' else 'V' end) as tip,v.id_venchelt FROM "+] +;
["]+ Alltrim(gcs) + [.vnom_venchel v where 2=2"]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [explicatie]
pccoloane = [explicatie,tip]
pcTitlu = [Alegeti venitul\cheltuiala]
pcTitluColoane = [Explicatie,Tip]
lnRec=Recno()
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.explicatie)
Select actcv
Go lnRec
Replace id_venchelt With locauta.id_venchelt
Replace venchelt With locauta.explicatie
lcNewValue=Nvl(Alltrim(venchelt),'')
Else
lcNewValue=lcOldValue
Endif
This.SetFocus()
Thisform.coldvalue=lcOldValue
Thisform.cnewvalue=lcNewValue
Release locauta
For i=1 To Thisform.grid1.ColumnCount
If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1
Exit
Endif
Endfor
Thisform.grid1.Columns(i).SetFocus()
Else
DoDefault()
Endif
ENDPROC
PROCEDURE grid1.Init
*!* this.SetAll("DynamicForeColor", "IIF(abs(totctva-achitat)<1000,RGB(0,0,0),iif(totctva<achitat,rgb(255,0,0),RGB(0,0,255)))")
*!* If thisform.lActiv
*!* Thisform.grid1.SetAll("DynamicForeColor", "IIF(ABS((preccred+credit)-(precdeb+debit))=0,RGB(0,0,0), iif(((precdeb+debit) < (preccred+credit)),RGB(255,0,0),RGB(0,0,255)))", "Column")
*!* Else
*!* Thisform.grid1.SetAll("DynamicForeColor", "IIF(ABS((preccred+credit)-(precdeb+debit))=0,RGB(0,0,0), iif(((precdeb+debit) > (preccred+credit)),RGB(255,0,0),RGB(0,0,255)))", "Column")
*!* Endif
ENDPROC
PROCEDURE Text1.Refresh
THIS.FORECOLOR=IIF(thisform.ntotdebit >=0, RGB(0,0,0), RGB(255,0,0))
this.Value = thisform.ntotdebit
ENDPROC
PROCEDURE Text2.Refresh
THIS.FORECOLOR=IIF(thisform.ntotcredit >=0, RGB(0,0,0), RGB(255,0,0))
this.Value = thisform.ntotcredit
ENDPROC
PROCEDURE Text3.Refresh
THIS.FORECOLOR=IIF(thisform.ntotsold >=0, RGB(0,0,0), RGB(255,0,0))
this.Value = thisform.ntotsold
ENDPROC
PROCEDURE Text4.Refresh
THIS.FORECOLOR=IIF(thisform.ndebitval >=0, RGB(0,0,0), RGB(255,0,0))
this.Value = thisform.ndebitval
ENDPROC
PROCEDURE Text5.Refresh
THIS.FORECOLOR=IIF(thisform.ncreditval >=0, RGB(0,0,0), RGB(255,0,0))
this.Value = thisform.ncreditval
ENDPROC
PROCEDURE Text6.Refresh
THIS.FORECOLOR=IIF(thisform.ntotsoldval >=0, RGB(0,0,0), RGB(255,0,0))
this.Value = thisform.ntotsoldval
ENDPROC
ENDDEFINE
DEFINE CLASS frm_ireg_parteneri_old AS frm_ireg_parteneri OF "..\comun\clase\oparteneri.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.Column36.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GRID1.Column36.Text1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Name = "frm_ireg_parteneri"
Label6.Name = "Label6"
SHAPE2.Name = "SHAPE2"
Shape1.Name = "Shape1"
_shape1.Name = "_shape1"
Gridsort1.Name = "Gridsort1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
GRID1.cAcont.Header1.Name = "Header1"
GRID1.cAcont.Name = "cAcont"
GRID1.cAcont.Text1.Name = "Text1"
GRID1.CCOD.ColumnOrder = 33
GRID1.CCOD.Header1.Name = "Header1"
GRID1.CCOD.Name = "CCOD"
GRID1.CCOD.Text1.Name = "Text1"
GRID1.cCredit.ColumnOrder = 21
GRID1.cCredit.Header1.Name = "Header1"
GRID1.cCredit.Name = "cCredit"
GRID1.cCredit.Text1.Name = "Text1"
GRID1.cCurs.ColumnOrder = 25
GRID1.cCurs.Header1.Name = "Header1"
GRID1.cCurs.Name = "cCurs"
GRID1.cCurs.Text1.Name = "Text1"
GRID1.cDataAct.Header1.Name = "Header1"
GRID1.cDataAct.Name = "cDataAct"
GRID1.cDataAct.Text1.Name = "Text1"
GRID1.cDataireg.Header1.Name = "Header1"
GRID1.cDataireg.Name = "cDataireg"
GRID1.cDataireg.Text1.Name = "Text1"
GRID1.cDataScad.Header1.Name = "Header1"
GRID1.cDataScad.Name = "cDataScad"
GRID1.cDataScad.Text1.Name = "Text1"
GRID1.cDebit.ColumnOrder = 20
GRID1.cDebit.Header1.Name = "Header1"
GRID1.cDebit.Name = "cDebit"
GRID1.cDebit.Text1.Name = "Text1"
GRID1.cExplicatia.ColumnOrder = 17
GRID1.cExplicatia.Header1.Name = "Header1"
GRID1.cExplicatia.Name = "cExplicatia"
GRID1.cExplicatia.Text1.Name = "Text1"
GRID1.cExplicatia4.ColumnOrder = 30
GRID1.cExplicatia4.Header1.Name = "Header1"
GRID1.cExplicatia4.Name = "cExplicatia4"
GRID1.cExplicatia4.Text1.Name = "Text1"
GRID1.cExplicatia5.ColumnOrder = 31
GRID1.cExplicatia5.Header1.Name = "Header1"
GRID1.cExplicatia5.Name = "cExplicatia5"
GRID1.cExplicatia5.Text1.Name = "Text1"
GRID1.cfdoc.Header1.Name = "Header1"
GRID1.cfdoc.Name = "cfdoc"
GRID1.cfdoc.Text1.Name = "Text1"
GRID1.cId_fact.ColumnOrder = 34
GRID1.cId_fact.Header1.Name = "Header1"
GRID1.cId_fact.Name = "cId_fact"
GRID1.cId_fact.Text1.Name = "Text1"
GRID1.cId_part.ColumnOrder = 36
GRID1.cId_part.Header1.Name = "Header1"
GRID1.cId_part.Name = "cId_part"
GRID1.cId_part.Text1.Name = "Text1"
GRID1.cId_set.ColumnOrder = 35
GRID1.cId_set.Header1.Name = "Header1"
GRID1.cId_set.Name = "cId_set"
GRID1.cId_set.Text1.Name = "Text1"
GRID1.cNrAct.Header1.Name = "Header1"
GRID1.cNrAct.Name = "cNrAct"
GRID1.cNrAct.Text1.Name = "Text1"
GRID1.cnresp.ColumnOrder = 19
GRID1.cnresp.Header1.Name = "Header1"
GRID1.cnresp.Name = "cnresp"
GRID1.cnresp.Text1.Name = "Text1"
GRID1.cNrord.ColumnOrder = 18
GRID1.cNrord.Header1.Name = "Header1"
GRID1.cNrord.Name = "cNrord"
GRID1.cNrord.Text1.Name = "Text1"
GRID1.CNUME.Header1.Name = "Header1"
GRID1.CNUME.Name = "CNUME"
GRID1.CNUME.Text1.Name = "Text1"
GRID1.cNume_val.ColumnOrder = 24
GRID1.cNume_val.Header1.Name = "Header1"
GRID1.cNume_val.Name = "cNume_val"
GRID1.cNume_val.Text1.Name = "Text1"
GRID1.COLUMN32.Header1.Name = "Header1"
GRID1.COLUMN32.Name = "COLUMN32"
GRID1.COLUMN32.Text1.Name = "Text1"
GRID1.COLUMN35.ColumnOrder = 9
GRID1.COLUMN35.Header1.Name = "Header1"
GRID1.COLUMN35.Name = "COLUMN35"
GRID1.COLUMN35.Text1.Name = "Text1"
GRID1.COLUMN35.Width = 101
GRID1.Column36.ColumnOrder = 10
GRID1.Column36.ControlSource = "rate_acoperite"
GRID1.Column36.Name = "Column36"
GRID1.Column36.Width = 98
GRID1.ColumnCount = 36
GRID1.cPrecCred.ColumnOrder = 27
GRID1.cPrecCred.Header1.Name = "Header1"
GRID1.cPrecCred.Name = "cPrecCred"
GRID1.cPrecCred.Text1.Name = "Text1"
GRID1.cPrecDeb.ColumnOrder = 26
GRID1.cPrecDeb.Header1.Name = "Header1"
GRID1.cPrecDeb.Name = "cPrecDeb"
GRID1.cPrecDeb.Text1.Name = "Text1"
GRID1.cPrecValCred.ColumnOrder = 29
GRID1.cPrecValCred.Header1.Name = "Header1"
GRID1.cPrecValCred.Name = "cPrecValCred"
GRID1.cPrecValCred.Text1.Name = "Text1"
GRID1.cPrecValDeb.ColumnOrder = 28
GRID1.cPrecValDeb.Header1.Name = "Header1"
GRID1.cPrecValDeb.Name = "cPrecValDeb"
GRID1.cPrecValDeb.Text1.Name = "Text1"
GRID1.cSoldFinal.ColumnOrder = 13
GRID1.cSoldFinal.Header1.Name = "Header1"
GRID1.cSoldFinal.Name = "cSoldFinal"
GRID1.cSoldFinal.Text1.Name = "Text1"
GRID1.cSoldVal.ColumnOrder = 16
GRID1.cSoldVal.Header1.Name = "Header1"
GRID1.cSoldVal.Name = "cSoldVal"
GRID1.cSoldVal.Text1.Name = "Text1"
GRID1.cTotCred.ColumnOrder = 12
GRID1.cTotCred.Header1.Name = "Header1"
GRID1.cTotCred.Name = "cTotCred"
GRID1.cTotCred.Text1.Name = "Text1"
GRID1.cTotCredVal.ColumnOrder = 15
GRID1.cTotCredVal.Header1.Name = "Header1"
GRID1.cTotCredVal.Name = "cTotCredVal"
GRID1.cTotCredVal.Text1.Name = "Text1"
GRID1.cTotDeb.ColumnOrder = 11
GRID1.cTotDeb.Header1.Name = "Header1"
GRID1.cTotDeb.Name = "cTotDeb"
GRID1.cTotDeb.Text1.Name = "Text1"
GRID1.CTOTDEBVAL.ColumnOrder = 14
GRID1.CTOTDEBVAL.Header1.Name = "Header1"
GRID1.CTOTDEBVAL.Name = "CTOTDEBVAL"
GRID1.CTOTDEBVAL.Text1.Name = "Text1"
GRID1.cValCredit.ColumnOrder = 23
GRID1.cValCredit.Header1.Name = "Header1"
GRID1.cValCredit.Name = "cValCredit"
GRID1.cValCredit.Text1.Name = "Text1"
GRID1.cValDebit.ColumnOrder = 22
GRID1.cValDebit.Header1.Name = "Header1"
GRID1.cValDebit.Name = "cValDebit"
GRID1.cValDebit.Text1.Name = "Text1"
GRID1.cVenChelt.ColumnOrder = 32
GRID1.cVenChelt.Header1.Name = "Header1"
GRID1.cVenChelt.Name = "cVenChelt"
GRID1.cVenChelt.Text1.Name = "Text1"
GRID1.Name = "GRID1"
GRID1.Panel = 1
But_reface1.lvizibil = .F.
But_reface1.Name = "But_reface1"
But_modifica1.lvizibil = .F.
But_modifica1.Name = "But_modifica1"
But_listare3.Name = "But_listare3"
But_excel1.Name = "But_excel1"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Ck_firma.Alignment = 0
Ck_firma.Name = "Ck_firma"
Ck_fel_doc.Alignment = 0
Ck_fel_doc.Name = "Ck_fel_doc"
Ck_cont.Alignment = 0
Ck_cont.Name = "Ck_cont"
Ck_analitic.Alignment = 0
Ck_analitic.Name = "Ck_analitic"
Ck_datascad.Alignment = 0
Ck_datascad.Name = "Ck_datascad"
Ck_datadoc.Alignment = 0
Ck_datadoc.Name = "Ck_datadoc"
Ck_nrdoc.Alignment = 0
Ck_nrdoc.Name = "Ck_nrdoc"
ck_debit.Alignment = 0
ck_debit.Name = "ck_debit"
ck_credit.Alignment = 0
ck_credit.Name = "ck_credit"
ck_sold.Alignment = 0
ck_sold.Name = "ck_sold"
Ck_explicatia4.Alignment = 0
Ck_explicatia4.Name = "Ck_explicatia4"
Ck_lucrare.Alignment = 0
Ck_lucrare.Name = "Ck_lucrare"
Ck_valuta.Alignment = 0
Ck_valuta.Name = "Ck_valuta"
Ck_explicatia.Alignment = 0
Ck_explicatia.Name = "Ck_explicatia"
Ck_responsabil.Alignment = 0
Ck_responsabil.Name = "Ck_responsabil"
Check3.Alignment = 0
Check3.Name = "Check3"
Check4.Alignment = 0
Check4.Name = "Check4"
CMD_CAUTA1.Name = "CMD_CAUTA1"
CMD_RESET1.Name = "CMD_RESET1"
LB_SIMPLU1.Name = "LB_SIMPLU1"
Label3.Name = "Label3"
Text1.Name = "Text1"
Text2.Name = "Text2"
Text3.Name = "Text3"
Text4.Name = "Text4"
Text5.Name = "Text5"
Text6.Name = "Text6"
Label2.Name = "Label2"
Label4.Name = "Label4"
Label5.Name = "Label5"
Label9.Name = "Label9"
Label8.Name = "Label8"
Cb_nom_valute1.Name = "Cb_nom_valute1"
oMenuShortcut.Name = "oMenuShortcut"
Command1.Name = "Command1"
cmdIncasPl.Name = "cmdIncasPl"
Command2.Name = "Command2"
Ck_venchelt.Alignment = 0
Ck_venchelt.Name = "Ck_venchelt"
Command3.Name = "Command3"
Ck_scadente.Alignment = 0
Ck_scadente.Name = "Ck_scadente"
Ck_contract.Alignment = 0
Ck_contract.Name = "Ck_contract"
But_listare1.Name = "But_listare1"
But_listare2.Name = "But_listare2"
*</PropValue>
ADD OBJECT 'GRID1.Column36.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Rate acoperite", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'GRID1.Column36.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE do_cauta
&& am suprascris metoda do_cauta ca sa scot din lcfiltru conditia de an, luna
LOCAL lcFiltru
lcFiltru = ""
*!* If m.nivel>1
*!* lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ]
*!* ENDIF
* nrdoc
IF THISFORM.ck_nrdoc.VALUE=1
lcFiltru = lcFiltru + THISFORM.ck_nrdoc.filtru
ENDIF
* responsabil
IF THISFORM.ck_responsabil.VALUE=1
lcFiltru = lcFiltru + THISFORM.ck_responsabil.filtru
ENDIF
* dataDoc
IF THIS.ck_dataDoc.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_dataDoc.filtru
ENDIF
* datascad
IF THIS.ck_datascad.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_datascad.filtru
ENDIF
* analitic
IF THIS.ck_analitic.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_analitic.filtru
ENDIF
* cont
IF THIS.ck_cont.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_cont.filtru
ENDIF
* firma
IF THIS.ck_firma.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_firma.filtru
ENDIF
* venit_cheltuiala
IF THIS.ck_venchelt.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_venchelt.filtru
ENDIF
* lucrare/comanda
IF THIS.ck_lucrare.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_lucrare.filtru
ENDIF
* contract
IF THIS.ck_contract.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_contract.filtru
ENDIF
* debit
IF THISFORM.ck_debit.VALUE=1
lcFiltru = lcFiltru + THISFORM.ck_debit.filtru
ENDIF
* credit
IF THISFORM.ck_credit.VALUE=1
lcFiltru = lcFiltru + THISFORM.ck_credit.filtru
ENDIF
* sold
IF THIS.ck_sold.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_sold.filtru
ENDIF
* valuta
IF THIS.ck_valuta.VALUE = 1
lcFiltru = lcFiltru + THISFORM.ck_valuta.filtru
ENDIF
* explicatia
IF THIS.ck_explicatia.VALUE = 1
lcFiltru = lcFiltru + THIS.ck_explicatia.filtru
ENDIF
* fel document
IF THIS.Ck_fel_doc.VALUE = 1
lcFiltru = lcFiltru + THIS.Ck_fel_doc.filtru
ENDIF
*scadente
IF THIS.Ck_scadente.VALUE = 1
lcFiltru = lcFiltru + THIS.Ck_scadente.filtru
ENDIF
*explicatia4
IF THIS.ck_explicatia4.VALUE=1
lcFiltru = lcFiltru + THIS.ck_explicatia4.filtru
ENDIF
*ACHITATE
IF THIS.check3.VALUE = 1
IF THISFORM.lActiv
lcFiltru = lcFiltru + "and (i.precdeb + i.debit) - (i.preccred + i.credit) = 0"
ELSE
lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) = 0"
ENDIF
ENDIF
*NEACHITATE
IF THIS.check4.VALUE = 1
IF THISFORM.lActiv
lcFiltru = lcFiltru + " and (i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0"
ELSE
lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) <> 0"
ENDIF
ENDIF
*!* If This.check7.Value = 1
*!* lcFiltru = lcFiltru + " and extract (year from i.datascad) =" + Alltrim(Str(gnAn)) + "and extract (month from i.datascad) = " + Alltrim(Str(gnLuna))
*!* Endif
*!* If !Empty(lcFiltru)
*!* lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') and i.luna = ] + Alltrim(Str(gnLuna)) + [ and i.an = ] + Alltrim(Str(gnAn)) + lcFiltru
*!* Else
*!* lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') and i.luna = ] + Alltrim(Str(gnLuna)) + [ and i.an = ] + Alltrim(Str(gnAn))
*!* Endif
IF !EMPTY(lcFiltru)
lcFiltru = [i.cont in ('] + ALLTRIM(STRTRAN(THISFORM.CONT, [,], [','])) + [') ] + lcFiltru
ELSE
lcFiltru = [i.cont in ('] + ALLTRIM(STRTRAN(THISFORM.CONT, [,], [','])) + [') ]
ENDIF
THISFORM.MOUSEPOINTER= 11
THISFORM.LOCKSCREEN=.T.
THISFORM.actualizeaza_grid1(lcFiltru)
THISFORM.LOCKSCREEN=.F.
THISFORM.MOUSEPOINTER= 0
IF RECCOUNT('actcv')=0
MESSAGEBOX("Cautarea nu a intors rezultate!",0+48,"Info cautare")
THISFORM.ck_nrdoc.SETFOCUS()
ELSE
THISFORM.grid1.SETFOCUS()
ENDIF
ENDPROC
PROCEDURE Init
DODEFAULT()
this.but_modifica1.Visible = .F.
this.but_reface1.Visible = .F.
ENDPROC
ENDDEFINE
DEFINE CLASS frm_multiplica_rate 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="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNrRate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtFrecventa" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDataI" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValRata" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNume_val" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDen_rata" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 292
Name = "frm_multiplica_rate"
Width = 419
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 696
_shape2.Height = 29
_shape2.Left = 355
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 64
Lb_titlu_alb_b121.Caption = "Ad<41>ugare rate"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 9
BUT_TERMIN1.Left = 388
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 7
BUT_TERMIN1.Top = 1
Gridsort1.Left = 113
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 5
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 357, ;
Name = "But_renunt1", ;
TabIndex = 8, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "", ;
FontName = "Arial Narrow", ;
Height = 25, ;
Left = 225, ;
Name = "Command2", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 6, ;
Top = 173, ;
Width = 28
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
BackStyle = 0, ;
Caption = "Nr rate", ;
Height = 17, ;
Left = 12, ;
Name = "Label1", ;
TabIndex = 10, ;
Top = 47, ;
Width = 40
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Frecven<65>a", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 12, ;
Name = "Label2", ;
TabIndex = 11, ;
Top = 72, ;
Width = 55
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data de <20>nceput", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 12, ;
Name = "Label3", ;
TabIndex = 12, ;
Top = 98, ;
Width = 88
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare rat<61>", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 12, ;
Name = "Label4", ;
TabIndex = 14, ;
Top = 124, ;
Width = 68
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valuta", ;
Height = 17, ;
Left = 12, ;
Name = "Label5", ;
TabIndex = 15, ;
Top = 177, ;
Width = 36
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Denumire rat<61>", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 12, ;
Name = "Label6", ;
TabIndex = 13, ;
Top = 150, ;
Width = 81
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Pentru luna", ;
Height = 17, ;
Left = 12, ;
Name = "Label7", ;
TabIndex = 16, ;
Top = 202, ;
Width = 65
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
ButtonCount = 4, ;
ControlSource = "pnPtLuna", ;
Height = 84, ;
Left = 120, ;
Name = "Optiongroup1", ;
TabIndex = 18, ;
Top = 202, ;
Value = 1, ;
Width = 168, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "<nespecificat>", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option1.Value = 1, ;
Option1.Width = 98, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "luna <20>n care se factureaz<61>", ;
Option2.FontCharSet = 238, ;
Option2.Height = 17, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option2.Width = 158, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "luna precedent<6E>", ;
Option3.FontCharSet = 238, ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 107, ;
Option4.AutoSize = .T., ;
Option4.BackStyle = 0, ;
Option4.Caption = "luna urm<72>toare", ;
Option4.FontCharSet = 238, ;
Option4.Height = 17, ;
Option4.Left = 5, ;
Option4.Name = "Option4", ;
Option4.Top = 62, ;
Option4.Width = 102
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'txtDataI' AS textbox WITH ;
ControlSource = "pdDataI", ;
Format = "k", ;
Height = 23, ;
Left = 120, ;
Name = "txtDataI", ;
TabIndex = 3, ;
Top = 95, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtDen_rata' AS textbox WITH ;
ControlSource = "pcDen_rata", ;
Format = "k", ;
Height = 23, ;
Left = 120, ;
Name = "txtDen_rata", ;
TabIndex = 5, ;
Top = 147, ;
Width = 288
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtFrecventa' AS textbox WITH ;
ControlSource = "pnFrecventa", ;
Height = 23, ;
Left = 120, ;
Name = "txtFrecventa", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 69, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtNrRate' AS textbox WITH ;
ControlSource = "pnNrRate", ;
Format = "rk", ;
Height = 23, ;
Left = 120, ;
Name = "txtNrRate", ;
TabIndex = 1, ;
Top = 44, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtNume_val' AS textbox WITH ;
ControlSource = "pcNume_val", ;
Format = "k", ;
Height = 23, ;
Left = 120, ;
Name = "txtNume_val", ;
ReadOnly = .T., ;
TabIndex = 17, ;
Top = 174, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValRata' AS textbox WITH ;
ControlSource = "pnValRata", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(14,gnPc)), ;
Left = 120, ;
Name = "txtValRata", ;
TabIndex = 4, ;
Top = 121, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
PROCEDURE inainte_de_do_termin
IF EMPTY(pdDataI) OR ISNULL(pdDataI)
AMESSAGEBOX('Nu ati completat data de inceput',0+48,'Atentie')
thisform.txtDataI.SetFocus()
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Command2.Click
locauta = caut_valuta()
If buton=2
Return
Endif
pnid_valuta = locauta.id_valuta
pcnume_val = locauta.nume_val
Thisform.txtNume_val.Refresh
*!* modificare v 2.0.46
With Thisform.txtValRata
.InputMask =get_mask(14,Iif(locauta.moneda_nationala = 1,gnPc,gnPVal))
.Refresh()
Endwith
Thisform.txtValRata.Refresh()
*!* modificare v 2.0.46 ^
ENDPROC
PROCEDURE Optiongroup1.Valid
pnPtLuna = this.Value
ENDPROC
ENDDEFINE
DEFINE CLASS frm_politica_preturi 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="grd_articole" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cArticol.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cArticol.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cPret.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cPret.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cValuta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.cValuta.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_articole.Column5.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_politica_pret
*p: cpolitica_pret
*p: nid_politica_pret
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cpolitica_pret =
DoCreate = .T.
Height = 541
Name = "frm_politica_preturi"
nid_politica_pret = 0
Width = 473
_shape1.Anchor = 11
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 480
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 413
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 59
Lb_titlu_alb_b121.Caption = "Politici de pre<72>uri"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 443
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 264
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 7
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 413, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Combo1' AS combobox WITH ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "200,65,65", ;
Height = 24, ;
Left = 116, ;
Name = "Combo1", ;
RowSource = "crsPoliticiGrup.nume_lista_preturi,nume_val,datai,datas,id_politica", ;
RowSourceType = 2, ;
Top = 40, ;
Width = 292
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'grd_articole' AS _grdrow WITH ;
ColumnCount = 5, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
Height = 458, ;
Left = 13, ;
Name = "grd_articole", ;
Panel = 1, ;
RecordSource = "cPol_pret_art", ;
TabIndex = 10, ;
Top = 70, ;
Width = 446, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "nume_articol", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cArticol", ;
Column1.Width = 225, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "um", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cUM", ;
Column2.Width = 39, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "pretftva", ;
Column3.FontName = "Arial Narrow", ;
Column3.InputMask = (get_mask(14,gnPPretV)), ;
Column3.Name = "cPret", ;
Column3.Width = 72, ;
Column4.ColumnOrder = 5, ;
Column4.ControlSource = "nume_val", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cValuta", ;
Column4.Width = 38, ;
Column5.ColumnOrder = 1, ;
Column5.ControlSource = "ales", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column5.Sparse = .F., ;
Column5.Width = 36
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grd_articole.cArticol.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Articol", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_articole.cArticol.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 'grd_articole.Column5.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Height = 17, ;
Left = 13, ;
Name = "Check1", ;
Top = 19, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grd_articole.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ales", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_articole.cPret.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_articole.cPret.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 'grd_articole.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_articole.cUM.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 'grd_articole.cValuta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_articole.cValuta.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 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Politica de pre<72>uri", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 10, ;
Name = "Label1", ;
Top = 43, ;
Width = 97
*< END OBJECT: BaseClass="label" />
PROCEDURE Combo1.InteractiveChange
Thisform.grd_articole.salveaza_grid()
If Used('cPol_pret_art')
Use In cPol_pret_art
Endif
Private poPol_pret_art
Store '' To poPol_pret_art
lcSchema1 = []
lcSelect1 = [select ppa.*, 0 as ales from vcrm_politici_pret_art ppa]
lcOrder1 = []
lcgroup = []
lcFiltru1 = [2=2]
lcFiltruOriginal = [ppa.id_pol=]+Alltrim(Str(crsPoliticiGrup.id_politica))
llModParam = .T.
llAfiseaza = .F.
gencursor('poPol_pret_art','cPol_pret_art', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poPol_pret_art.ca_baza1.afisare()
Release poPol_pret_art
*!* modificare v 2.0.46
This.Parent.grd_articole.cPret.InputMask = get_mask(14,Iif(crsPoliticiGrup.moneda_nationala=1,gnPPretV,gnPVal))
*!* modificare v 2.0.46 ^
Thisform.grd_articole.incarca_grid()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_ratedefacturat 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="_txDatai" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_txDataf" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtPartener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="img_cautare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDenumire_tip" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lbPerioada" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_facturate" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_partener
*m: do_alege_tip_ctr
*p: dataf
*p: datai
*p: nid_part
*p: nid_tip_ctr
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
dataf = {}
datai = {}
DoCreate = .T.
Height = 183
Name = "frm_ratedefacturat"
nid_part = 0
nid_tip_ctr = 0
Width = 313
_shape1.Height = 29
_shape1.Left = -2
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 559
_shape2.Height = 29
_shape2.Left = 221
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 93
Lb_titlu_alb_b121.Caption = "Rate de facturat"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 9
BUT_TERMIN1.Left = 283
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 7
BUT_TERMIN1.Top = 1
Gridsort1.Left = 130
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 2
*</PropValue>
ADD OBJECT '_image1' AS _image WITH ;
Anchor = 9, ;
Height = 20, ;
Left = 271, ;
Name = "_image1", ;
Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ;
Stretch = 1, ;
Top = 127, ;
Width = 20
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT '_txDataf' AS _textbox WITH ;
ControlSource = "thisform.dataf", ;
DisabledForeColor = 0,0,0, ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Format = "k", ;
Height = 22, ;
Left = 116, ;
Name = "_txDataf", ;
TabIndex = 2, ;
Top = 58, ;
Width = 72, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\..\roagest\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT '_txDatai' AS _textbox WITH ;
ControlSource = "thisform.datai", ;
DisabledForeColor = 0,0,0, ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Format = "k", ;
Height = 22, ;
Left = 32, ;
Name = "_txDatai", ;
TabIndex = 1, ;
Top = 58, ;
Width = 72, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\..\roagest\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 222, ;
Name = "But_excel1", ;
TabIndex = 8, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 253, ;
Name = "But_listare1", ;
TabIndex = 6, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ck_facturate' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Inclusiv ratele facturate", ;
Height = 17, ;
Left = 17, ;
Name = "ck_facturate", ;
TabIndex = 5, ;
Top = 161, ;
Width = 143
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'img_cautare' AS _image WITH ;
Anchor = 9, ;
Height = 20, ;
Left = 271, ;
Name = "img_cautare", ;
Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ;
Stretch = 1, ;
Top = 100, ;
Width = 20
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Partener", ;
Height = 17, ;
Left = 17, ;
Name = "Label1", ;
TabIndex = 11, ;
Top = 102, ;
Width = 49
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Tip contract", ;
Height = 17, ;
Left = 17, ;
Name = "Label2", ;
TabIndex = 12, ;
Top = 129, ;
Width = 65
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lbPerioada' AS label WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
Caption = "Perioada", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
Height = 17, ;
Left = 25, ;
Name = "lbPerioada", ;
TabIndex = 10, ;
Top = 38, ;
Width = 63, ;
ZOrderSet = 16
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape3' AS shape WITH ;
BackStyle = 0, ;
Height = 39, ;
Left = 17, ;
Name = "Shape3", ;
Top = 48, ;
Width = 278, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtDenumire_tip' AS textbox WITH ;
Anchor = 11, ;
Format = "k", ;
Height = 23, ;
Left = 98, ;
Name = "txtDenumire_tip", ;
TabIndex = 4, ;
Top = 126, ;
Value = <Toate inregistrarile>, ;
Width = 168
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtPartener' AS textbox WITH ;
Anchor = 11, ;
Format = "k", ;
Height = 23, ;
Left = 98, ;
Name = "txtPartener", ;
TabIndex = 3, ;
Top = 99, ;
Value = <Toate inregistrarile>, ;
Width = 168
*< END OBJECT: BaseClass="textbox" />
PROCEDURE do_alege_partener
LOCAL lcIdTipPart, lcTitlu
STORE '' TO lcIdTipPart, lcTitlu
DO CASE
CASE gnParametru_prog = 1 && contracte clienti
lcIdTipPart = [-1]
lcTitlu = 'Clienti'
CASE gnParametru_prog = 2 && contracte furnizori
lcIdTipPart = [-2]
lcTitlu = 'Furnizori'
ENDCASE
loCauta = caut_partener(lcIdTipPart, lcTitlu)
*!* IF buton = 2
*!* RETURN
*!* ENDIF
IF EMPTY(loCauta.id_part)
THISFORM.nid_part = 0
THISFORM.txtPartener.VALUE = '<Toate inregistrarile>'
ELSE
THISFORM.nid_part = loCauta.id_part
THISFORM.txtPartener.VALUE = loCauta.denumire
ENDIF
THISFORM.txtPartener.REFRESH
ENDPROC
PROCEDURE do_alege_tip_ctr
LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
lcselect = [select id_tip_ctr, denumire_tip FROM vtipuri_contracte]
lcfiltru = [1=2]
lcschema = []
lcorder = [denumire_tip]
lccoloane = [denumire_tip]
lcTitlu = [Alegeti tipul de contract]
lcTitluColoane = [Tip contract]
DO CASE
CASE gnParametru_prog=1
lcFiltruOriginal = [substr(tata,2,6)='CLIENT']
CASE gnParametru_prog=2
lcFiltruOriginal = [substr(tata,2,6)='FURNIZ']
OTHERWISE
lcFiltruOriginal = []
ENDCASE
lcNumeProc = ""
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal)
*!* IF buton=2
*!* RETURN
*!* ENDIF
IF EMPTY(loCauta.id_tip_ctr)
THISFORM.nid_tip_ctr = 0
thisform.txtDenumire_tip.Value = '<Toate inregistrarile>'
ELSE
THISFORM.nid_tip_ctr = loCauta.id_tip_ctr
THISFORM.txtDenumire_tip.Value = loCauta.denumire
ENDIF
THISFORM.txtDenumire_tip.REFRESH
ENDPROC
PROCEDURE inainte_de_do_listare
PRIVATE pcDataOra, pcTitlu, pcPerioada, pcDenumire, pcDenumire_tip, pcInclusivFacturate
pcDataOra = get_ora(2)
pcTitlu = 'Rate de facturat'
LOCAL ldDataI, ldDataF, lcId_part, lcId_tip_ctr
IF EMPTY(THISFORM.datai)
AMESSAGEBOX('Completati data de inceput',0+48,'Atentie!')
THISFORM._txDatai.SETFOCUS()
RETURN
ELSE
ldDataI = THISFORM.datai
ENDIF
IF EMPTY(THISFORM.dataf)
AMESSAGEBOX('Completati data de sfarsit',0+48,'Atentie!')
THISFORM._txDataf.SETFOCUS()
RETURN
ELSE
ldDataF = THISFORM.dataf
ENDIF
pcPerioada = DTOC(ldDataI)+ ' - ' +DTOC(ldDataF)
pcDenumire = NVL(THISFORM.txtPartener.VALUE,'')
pcDenumire_tip = NVL(THISFORM.txtDenumire_tip.VALUE,'')
pcFacturate = ALLTRIM(STR(THISFORM.ck_facturate.VALUE)) && 1
IF THISFORM.ck_facturate.VALUE = 0
pcInclusivFacturate = '<Fara ratele facturate>'
ELSE
pcInclusivFacturate = '<Inclusiv ratele facturate>'
ENDIF
lcId_part = IIF(EMPTY(THISFORM.nId_part),[NULL],ALLTRIM(STR(THISFORM.nId_part)))
lcId_tip_ctr = IIF(EMPTY(THISFORM.nId_tip_ctr),[NULL],ALLTRIM(STR(THISFORM.nId_tip_ctr)))
lcSel = [{call pack_crm.rateDeFacturat(to_date(']+DTOS(ldDataI)+ [','YYYYMMDD'), to_date('] + DTOS(ldDataF)+[','YYYYMMDD'),]+;
lcId_part + [,] + lcId_tip_ctr + [,] + pcFacturate + [)}]
lcCursor = 'cRateDeFacturat'
lnSucces = goExecutor.oExecute(lcSel, lcCursor)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
THISFORM.ALWAYSONTOP = .F.
DO CASE
CASE gnParametru_prog = 1
SELECT rf.* ;
FROM cRateDeFacturat rf ;
LEFT JOIN cContracte c ON c.id_ctr = rf.id_ctr ;
WHERE UPPER(SUBSTR(c.tata,2,6)) = 'CLIENT' ;
ORDER BY rf.data_rata, rf.denumire, rf.den_rata ;
INTO CURSOR cRateDeFacturat2
CASE gnParametru_prog = 2
SELECT rf.* ;
FROM cRateDeFacturat rf ;
LEFT JOIN cContracte c ON c.id_ctr = rf.id_ctr ;
ORDER BY rf.data_rata, rf.denumire, rf.den_rata ;
WHERE UPPER(SUBSTR(c.tata,2,6)) = 'FURNIZ' INTO CURSOR cRateDeFacturat2
ENDCASE
*!* modificare v 2.0.34
goExport.export2frx([cRateDeFacturat2],[ratedefacturat])
*!* SELECT cRateDeFacturat2
*!* REPORT FORM ratedefacturat TO PRINTER PROMPT PREVIEW
*!* modificare v 2.0.34 ^
THISFORM.ALWAYSONTOP = .T.
IF USED('cRateDeFacturat')
USE IN cRateDeFacturat
ENDIF
IF USED('cRateDeFacturat2')
USE IN cRateDeFacturat2
ENDIF
ENDPROC
PROCEDURE Init
DODEFAULT()
lcData1 = '01/'+ALLTRIM(STR(gnLuna))+'/'+ALLTRIM(STR(gnAn))
thisform.datai = CTOD(lcData1)
thisform.dataf = ULTIMAZI(STR(gnAn), STR(gnLuna))
ENDPROC
PROCEDURE img_cautare.Click
thisform.do_alege_partener()
ENDPROC
PROCEDURE Label1.Init
IIF(gnParametru_prog = 1,this.Caption="Client",IIF(gnParametru_prog = 2,this.Caption="Furnizor",''))
ENDPROC
PROCEDURE txtDenumire_tip.GotFocus
thisform.do_alege_tip_ctr()
ENDPROC
PROCEDURE txtPartener.GotFocus
thisform.do_alege_partener()
ENDPROC
PROCEDURE _image1.Click
thisform.do_alege_tip_ctr()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_restdefacturat 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="Ck_data_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optIncetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_group_respons" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optInactiv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_restDeFacturat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_responsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_valuta" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 138
Name = "frm_restdefacturat"
Width = 421
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 444
_shape2.Height = 29
_shape2.Left = 360
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Rest de facturat"
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Height = 27
BUT_TERMIN1.Left = 391
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 144
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 8
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 360, ;
Name = "But_listare1", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = c.data, ;
Caption = "Data ctr.", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_data_ctr", ;
TabIndex = 3, ;
tip = D, ;
Top = 93, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_group_respons' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Grupare pe responsabili", ;
FontName = "Arial Narrow", ;
Left = 294, ;
Name = "ck_group_respons", ;
Top = 115
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = c.numar_aa, ;
Caption = "Nr. ctr.", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_nr_ctr", ;
TabIndex = 2, ;
Top = 75, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = c.denumire, ;
Caption = "Partener", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_nume", ;
TabIndex = 1, ;
Top = 57, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_responsabil' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = c.responsabil, ;
Caption = "Responsabil", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 80, ;
Name = "Ck_responsabil", ;
TabIndex = 1, ;
Top = 57, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_restDeFacturat' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Rest de facturat <> 0", ;
FontBold = .T., ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_restDeFacturat", ;
Top = 36
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_valuta' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = c.nume_val, ;
Caption = "Valuta", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 80, ;
Name = "Ck_valuta", ;
TabIndex = 1, ;
Top = 75, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'optInactiv' AS optiongroup WITH ;
Anchor = 3, ;
BackStyle = 0, ;
ButtonCount = 3, ;
Height = 49, ;
Left = 304, ;
Name = "optInactiv", ;
TabIndex = 12, ;
Top = 59, ;
Value = 1, ;
Width = 111, ;
ZOrderSet = 11, ;
Option1.BackStyle = 0, ;
Option1.Caption = "Contractele active", ;
Option1.FontName = "Arial Narrow", ;
Option1.Height = 18, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 1, ;
Option1.Value = 1, ;
Option1.Width = 126, ;
Option2.BackStyle = 0, ;
Option2.Caption = "Contractele inactive", ;
Option2.FontName = "Arial Narrow", ;
Option2.Height = 18, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 15, ;
Option2.Width = 99, ;
Option3.BackStyle = 0, ;
Option3.Caption = "Toate contractele", ;
Option3.FontName = "Arial Narrow", ;
Option3.Height = 18, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 29, ;
Option3.Width = 100
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'optIncetat' AS optiongroup WITH ;
Anchor = 3, ;
BackStyle = 0, ;
ButtonCount = 3, ;
Height = 49, ;
Left = 162, ;
Name = "optIncetat", ;
TabIndex = 11, ;
Top = 59, ;
Value = 1, ;
Width = 134, ;
ZOrderSet = 5, ;
Option1.BackStyle = 0, ;
Option1.Caption = "Contractele <20>n desf<73><66>urare", ;
Option1.FontCharSet = 238, ;
Option1.FontName = "Arial Narrow", ;
Option1.Height = 18, ;
Option1.Left = 4, ;
Option1.Name = "Option1", ;
Option1.Top = 1, ;
Option1.Value = 1, ;
Option1.Width = 126, ;
Option2.BackStyle = 0, ;
Option2.Caption = "Contractele <20>ncetate", ;
Option2.FontCharSet = 238, ;
Option2.FontName = "Arial Narrow", ;
Option2.Height = 18, ;
Option2.Left = 4, ;
Option2.Name = "Option2", ;
Option2.Top = 15, ;
Option2.Width = 99, ;
Option3.BackStyle = 0, ;
Option3.Caption = "Toate contractele", ;
Option3.FontName = "Arial Narrow", ;
Option3.Height = 18, ;
Option3.Left = 4, ;
Option3.Name = "Option3", ;
Option3.Top = 29, ;
Option3.Width = 87
*< END OBJECT: BaseClass="optiongroup" />
PROCEDURE inainte_de_do_listare
Private pcFiltru, pnGroupResponsabil
Store '' To pcFiltru
Store 0 To pnGroupResponsabil
Local lcCondSucursala
Store '' To lcCondSucursala
If This.ck_nume.Value = 1
pcFiltru = pcFiltru + This.ck_nume.filtru
Endif
If This.ck_nr_ctr.Value = 1
pcFiltru = pcFiltru + This.ck_nr_ctr.filtru
Endif
If This.ck_data_ctr.Value = 1
pcFiltru = pcFiltru + This.ck_data_ctr.filtru
Endif
If This.ck_responsabil.Value = 1
pcFiltru = pcFiltru + This.ck_responsabil.filtru
Endif
If This.ck_valuta.Value = 1
pcFiltru = pcFiltru + This.ck_valuta.filtru
Endif
If This.ck_restDeFacturat.Value=1
pcFiltru = pcFiltru + [ and round(sel2.valrata, 2) - round(sel2.valfact, 2) <> 0 ]
Endif
Do Case
Case This.optIncetat.Value = 1
pcFiltru = pcFiltru + [ and c.incetat = 0]
Case This.optIncetat.Value = 2
pcFiltru = pcFiltru + [ and c.incetat = 1]
Case This.optIncetat.Value = 3
pcFiltru = pcFiltru + [ and (c.incetat = 0 or c.incetat = 1)]
Endcase
Do Case
Case This.optInactiv.Value = 1 && active
pcFiltru = pcFiltru + [ and c.inactiv = 0]
Case This.optInactiv.Value = 2 && inactive
pcFiltru = pcFiltru + [ and c.inactiv = 1]
Case This.optInactiv.Value = 3 && toate
pcFiltru = pcFiltru + [ and (c.inactiv = 0 or c.inactiv = 1)]
Endcase
lcCondSucursala = Iif(!Isnull(gnIdSucursala), ' AND id_sucursala = ' + Alltrim(Str(gnIdSucursala)), '')
If gnParametru_prog=1
pcFiltru = pcFiltru + [ and substr(c.tata,2,6)='CLIENT'] + lcCondSucursala
Else
pcFiltru = pcFiltru + [ and substr(c.tata,2,6)='FURNIZ'] + lcCondSucursala
Endif
If !Empty(pcFiltru)
pcFiltru = Substr(pcFiltru,6)
Else
pcFiltru = [1=1]
Endif
If Thisform.ck_group_respons.Value = 1
pnGroupResponsabil = 1
pcGroup1 = 'crsrestdefacturat.id_responsabil'
Else
pnGroupResponsabil = 0
pcGroup1 = '1=1'
Endif
*---
lcSel = [{call pack_crm.restdefacturat(?pcFiltru, ?pnGroupResponsabil)}]
lcCursor = 'crsRestDeFacturat'
If goExecutor.oExecuta(lcSel, lcCursor)
Thisform.AlwaysOnTop = .F.
goExport.export2frx(lcCursor,[rCtrRestDeFact])
Thisform.AlwaysOnTop = .T.
Use In (lcCursor)
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_restdefacturat_mic 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="ck_group_respons" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_restDeFacturat" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 69
Name = "frm_restdefacturat_mic"
Width = 375
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Caption = "Rest de facturat"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Left = 156
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 7
BUT_RENUNT1.Name = "BUT_RENUNT1"
*</PropValue>
ADD OBJECT 'ck_group_respons' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Grupare pe responsabili", ;
ControlSource = "pnGroupResponsabil", ;
FontName = "Arial Narrow", ;
Left = 240, ;
Name = "ck_group_respons", ;
Top = 39
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_restDeFacturat' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Rest de facturat <> 0", ;
ControlSource = "pnRestDeFacturat", ;
FontBold = .T., ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_restDeFacturat", ;
Top = 41
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ENDDEFINE
DEFINE CLASS frm_selectie_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="Clb_categ_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_selectie1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: cnumevechi
*p: nid
*p: nnivelmodificare && - 1 daca utilizatorul are voie sa modifice toate datele ; 0 daca are voie sa modifice doar nr. de telefon
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cnumevechi =
DoCreate = .T.
Height = 83
Name = "frm_selectie_nou"
nnivelmodificare = -1
Width = 358
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 744
_shape2.Height = 29
_shape2.Left = 291
_shape2.Name = "_shape2"
_shape2.Top = -1
_shape2.Width = 69
Lb_titlu_alb_b121.Caption = "PROCEDUR<55> SELEC<45>IE"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
BUT_TERMIN1.Height = 27
BUT_TERMIN1.Left = 328
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 0
BUT_TERMIN1.Width = 30
Gridsort1.Left = 240
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 5
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Height = 27, ;
Left = 296, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Top = 0, ;
Width = 30
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_categ_ctr' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 15, ;
Name = "Clb_categ_ctr", ;
TabIndex = 1, ;
Top = 40, ;
Width = 328, ;
Text_simplu1.ControlSource = "porec.selectie", ;
Text_simplu1.Left = 136, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Lb_simplu1.Caption = "Procedur<75> selec<65>ie", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_selectie1' AS cus_odata_selectie WITH ;
Left = 210, ;
Name = "Cus_odata_selectie1", ;
Top = 1
*< END OBJECT: ClassLib="ferestre_contracte.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.selectie)
amessagebox('Nu ati completat denumirea procedurii de selectie!',0+48,"Atentie")
this.clb_selectie.text_simplu1.SetFocus()
PLRETURN = .F.
OTHERWISE
PLRETURN = This.cus_odata_selectie1.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_selectie1.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_selectii 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="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_selectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_selectii" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_selectii.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_selectii.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_selectii.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_selectii.Column2.Text1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_adauga2
*m: do_modifica2
*m: do_sterge2
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cgridsortlist = grd_selectii
DoCreate = .T.
Height = 466
Name = "frm_selectii"
Width = 711
WindowState = 2
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 744
_shape1.ZOrderSet = 2
_shape2.Anchor = 8
_shape2.Height = 29
_shape2.Left = 577
_shape2.Name = "_shape2"
_shape2.Top = -1
_shape2.Width = 136
_shape2.ZOrderSet = 3
Lb_titlu_alb_b121.Caption = "PROCEDURI SELEC<45>IE"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 11
Lb_titlu_alb_b121.ZOrderSet = 4
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 680
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 0
BUT_TERMIN1.ZOrderSet = 5
Gridsort1.Left = 240
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Anchor = 8, ;
Left = 615, ;
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 = 8, ;
Left = 581, ;
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 = 8, ;
Left = 648, ;
Name = "But_sterge1", ;
TabIndex = 9, ;
Top = 0
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'clb_selectie' AS clb_tx_simplu WITH ;
Anchor = 0, ;
Left = 9, ;
Name = "clb_selectie", ;
TabIndex = 1, ;
Top = 37, ;
Text_simplu1.Name = "Text_simplu1", ;
Lb_simplu1.Caption = "Denumire", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 0, ;
Left = 330, ;
Name = "Cmd_cauta1", ;
TabIndex = 4, ;
Top = 36
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 0, ;
Left = 418, ;
Name = "Cmd_reset1", ;
TabIndex = 10, ;
Top = 36
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grd_selectii' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 2, ;
DeleteMark = .F., ;
Height = 383, ;
Left = 9, ;
Name = "grd_selectii", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cSelectii", ;
Top = 73, ;
Width = 687, ;
Column1.ControlSource = "", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 69, ;
Column2.ControlSource = "", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 198
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grd_selectii.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id selectie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_selectii.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 'grd_selectii.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procedura selectie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_selectii.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" />
PROCEDURE actualizeaza_grid1
Lparameters lcFiltru
If Empty(lcFiltru)
lcFiltru = poSelectii.ca_baza1.cfiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform.grd_selectii)
poSelectii.ca_baza1.cfiltru = lcFiltru
poSelectii.ca_baza1.afisare()
restore_grid_tag(Thisform.grd_selectii)
Thisform.LockScreen = .F.
Thisform.MousePointer = 0
ENDPROC
PROCEDURE do_adauga
Private pniesire
pniesire=0
Select cSelectii
Scatter Name loRec Blank
Do Adauga_Modifica_Inregistrare With "selectie",loRec,,"INSERT"
If pniesire=1
This.actualizeaza_grid1()
Select cSelectii
Locate For selectie = loRec.selectie
Thisform.grd_selectii.SetFocus()
Endif
ENDPROC
PROCEDURE do_adauga2
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
Store '' To lcFiltru
lcFiltru=[2=2]
lcSelectie = Strtran(Upper(Alltrim(This.clB_SELECTIE.text_simplu1.Value)),['],[''])
If !Empty(lcSelectie)
lcFiltru = lcFiltru + [ and selectie like '] + lcSelectie + [%']
Endif
Thisform.actualizeaza_grid1(lcFiltru)
If Reccount('cSelectii')>0
Select cSelectii
Go Top
Thisform.grd_selectii.SetFocus()
Else
aMessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare")
Thisform.clB_SELECTIE.SetFocus()
Endif
ENDPROC
PROCEDURE do_modifica
If Reccount('cSelectii')>0
Private pniesire
pniesire = 0
Select cSelectii
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "selectie",loRec,loRec.id_selectie,"UPDATE"
If pniesire = 1
This.actualizeaza_grid1()
Endif
Endif
ENDPROC
PROCEDURE do_modifica2
ENDPROC
PROCEDURE do_reset
thisform.clb_selectie.TEXT_SIMPLU1.Value = ''
Thisform.Refresh
Thisform.clb_selectie.TEXT_SIMPLU1.SetFocus()
ENDPROC
PROCEDURE do_sterge
If Reccount('cSelectii')>0
Select cSelectii
Scatter Name loRec
Do STERGE_INREGISTRARE With "selectie",loRec.id_selectie
This.actualizeaza_grid1()
Endif
ENDPROC
PROCEDURE do_sterge2
ENDPROC
ENDDEFINE
DEFINE CLASS frm_viz_facturi_ 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="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_facturi.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listfactura1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValtva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_perioada" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual
*m: do_listfact
*p: lproforme
*p: nvalctva
*p: nvalftva
*p: nvaltva
*</DefinedPropArrayMethod>
*<PropValue>
cgridsortlist = grid_facturi
DoCreate = .T.
Height = 554
lproforme = .F.
Name = "frm_viz_facturi_"
nvalctva = 0
nvalftva = 0
nvaltva = 0
Width = 771
_shape1.Anchor = 11
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 780
_shape1.ZOrderSet = 1
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 650
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 121
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "Facturi"
Lb_titlu_alb_b121.Left = 9
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.Top = 6
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 740
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
Gridsort1.Left = 120
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 4
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 651, ;
Name = "But_listare1", ;
ToolTipText = "Listare selectie (CTRL+P)", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listfactura1' AS but_listfactura WITH ;
Anchor = 9, ;
Left = 681, ;
Name = "But_listfactura1", ;
ToolTipText = "Listare factura", ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Left = 711, ;
Name = "But_sterge1", ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = data_fact, ;
Caption = "Data fact.", ;
FontName = "Arial Narrow", ;
Left = 119, ;
Name = "Ck_data_fact", ;
TabIndex = 1, ;
tip = D, ;
Top = 38, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = nr_fact, ;
Caption = "Nr. fact.", ;
FontName = "Arial Narrow", ;
Left = 60, ;
mask = (replicate('9',12)), ;
Name = "Ck_nr_fact", ;
TabIndex = 4, ;
Top = 38, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = nume, ;
Caption = "Client", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 9, ;
Name = "Ck_nume", ;
TabIndex = 5, ;
Top = 38, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_perioada' AS ck_filtru_luna WITH ;
Alignment = 0, ;
Anchor = 33, ;
camp_nume = luna+an*12, ;
Caption = "Perioada", ;
FontName = "Arial Narrow", ;
Left = 392, ;
luna = , ;
Name = "Ck_perioada", ;
TabIndex = 30, ;
Top = 38
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 504, ;
Name = "Cmd_cauta1", ;
TabIndex = 34, ;
Top = 34, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 600, ;
Name = "Cmd_reset1", ;
TabIndex = 45, ;
Top = 34, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_facturi' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 15, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
Height = 431, ;
Left = 9, ;
Name = "grid_facturi", ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "tFacturi", ;
Top = 68, ;
Width = 744, ;
ZOrderSet = 5, ;
Column1.ControlSource = "recno()", ;
Column1.FontName = "Arial Narrow", ;
Column1.Format = "rk", ;
Column1.InputMask = "999999999999999", ;
Column1.Name = "Column1", ;
Column1.Width = 44, ;
Column2.ControlSource = "nr_fact", ;
Column2.FontName = "Arial Narrow", ;
Column2.Format = "rk", ;
Column2.InputMask = "9999999999", ;
Column2.Name = "Column2", ;
Column2.Width = 54, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "nr_ctr", ;
Column3.FontName = "Arial Narrow", ;
Column3.Format = "rk", ;
Column3.InputMask = "999999", ;
Column3.Name = "Column3", ;
Column3.Width = 71, ;
Column4.ColumnOrder = 3, ;
Column4.ControlSource = "nume", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column4", ;
Column4.Width = 100, ;
Column5.ControlSource = "data_fact", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column5.Width = 72, ;
Column6.ControlSource = "data_scad", ;
Column6.FontName = "Arial Narrow", ;
Column6.Name = "Column6", ;
Column6.Width = 69, ;
Column7.ControlSource = "valftva", ;
Column7.FontName = "Arial Narrow", ;
Column7.Format = "rk", ;
Column7.InputMask = (get_mask(15,gnPA)), ;
Column7.Name = "Column7", ;
Column7.Width = 100, ;
Column8.ControlSource = "valtva", ;
Column8.FontName = "Arial Narrow", ;
Column8.Format = "rk", ;
Column8.InputMask = (get_mask(15,gnPA)), ;
Column8.Name = "Column8", ;
Column8.Width = 89, ;
Column9.ControlSource = "valctva", ;
Column9.FontName = "Arial Narrow", ;
Column9.Format = "rk", ;
Column9.InputMask = (get_mask(15,gnPA)), ;
Column9.Name = "Column9", ;
Column10.ControlSource = "nume_val", ;
Column10.FontName = "Arial Narrow", ;
Column10.Name = "Column10", ;
Column10.Width = 62, ;
Column11.ControlSource = "curs", ;
Column11.FontName = "Arial Narrow", ;
Column11.Format = "rk", ;
Column11.InputMask = (get_mask(8,gnPCurs)), ;
Column11.Name = "Column11", ;
Column11.Width = 43, ;
Column12.ControlSource = "valval", ;
Column12.FontName = "Arial Narrow", ;
Column12.Format = "rk", ;
Column12.InputMask = (get_mask(15,gnPA)), ;
Column12.Name = "Column12", ;
Column12.Width = 121, ;
Column13.ControlSource = "tvaval", ;
Column13.FontName = "Arial Narrow", ;
Column13.Format = "rk", ;
Column13.InputMask = (get_mask(15,gnPA)), ;
Column13.Name = "Column13", ;
Column13.Width = 99, ;
Column14.ControlSource = "totval", ;
Column14.FontName = "Arial Narrow", ;
Column14.Format = "rk", ;
Column14.InputMask = (get_mask(15,gnPA)), ;
Column14.Name = "Column14", ;
Column14.Width = 103, ;
Column15.ControlSource = "cod", ;
Column15.FontName = "Arial Narrow", ;
Column15.Name = "Column15", ;
Column15.Width = 59
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_facturi.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. crt.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta fara TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.Column12.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 'grid_facturi.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.Column13.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 'grid_facturi.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta totala", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.Column14.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 'grid_facturi.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.Column15.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 'grid_facturi.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. factura", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. contract", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data facturii", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadentei", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare lei fara TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare lei TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'grid_facturi.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare lei totala", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_facturi.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 'Label1' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare lei f<>r<EFBFBD> TVA", ;
FontCharSet = 238, ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 439, ;
Name = "Label1", ;
Top = 504, ;
Width = 86, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare lei TVA", ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 568, ;
Name = "Label2", ;
Top = 504, ;
Width = 68, ;
ZOrderSet = 14
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare lei cu TVA", ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 663, ;
Name = "Label3", ;
Top = 504, ;
Width = 84, ;
ZOrderSet = 15
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total sume", ;
FontBold = .T., ;
FontName = "Arial Narrow", ;
Height = 18, ;
Left = 358, ;
Name = "Label4", ;
Top = 522, ;
Width = 54, ;
ZOrderSet = 19
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape1' AS shape WITH ;
Anchor = 12, ;
BackStyle = 0, ;
Height = 43, ;
Left = 354, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Style = 0, ;
Top = 504, ;
Width = 399, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtValctva' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "thisform.nValctva", ;
FontName = "Arial Narrow", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(15,gnPA)), ;
Left = 639, ;
Name = "txtValctva", ;
Top = 520, ;
Width = 108, ;
ZOrderSet = 18
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValftva' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "thisform.nValftva", ;
FontName = "Arial Narrow", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(15,gnPA)), ;
Left = 417, ;
Name = "txtValftva", ;
Top = 520, ;
Width = 108, ;
ZOrderSet = 16
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValtva' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "thisform.nValtva", ;
FontName = "Arial Narrow", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(15,gnPA)), ;
Left = 528, ;
Name = "txtValtva", ;
Top = 520, ;
Width = 108, ;
ZOrderSet = 17
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Activate
THISFORM.WindowState = 2
ENDPROC
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru = pcFiltru
IF EMPTY(lcFiltru)
lcFiltru = pofacturi.ca_baza1.cfiltru
ENDIF
*lcOrder = This.corderby + " " + This.Casc
save_grid_tag(thisform.grid_facturi)
pofacturi.ca_baza1.cfiltru = lcFiltru
*pofacturi.ca_baza1.corder = lcOrder
pofacturi.ca_baza1.afisare()
restore_grid_tag(thisform.grid_facturi)
If Thisform.ck_perioada.Value=1
With Thisform.ck_perioada
If .cvaloare1=Thisform.ck_perioada.cvaloare2
Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+;
" "+.cvaloare1
Else
Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+;
" "+.cvaloare1+" - "+.cvaloare2
Endif
Endwith
Else
Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+;
" "+Padl(Alltrim(Str(gnluna)),2,"0")+"/"+Alltrim(Str(gnAn))
ENDIF
IF RECCOUNT('tFacturi')>0
thisform.grid_facturi.SetFocus()
ENDIF
ENDPROC
PROCEDURE afisactual
LOCAL lcTabel
lcTabel = thisform.grid_facturi.RecordSource
SELECT (lcTabel)
CALCULATE SUM(NVL(valftva,0)), SUM(NVL(valtva,0)), SUM(NVL(valctva,0)) TO thisform.nValftva, thisform.nValtva, thisform.nValctva
thisform.txtValftva.Refresh
thisform.txtValtva.Refresh
thisform.txtValctva.Refresh
ENDPROC
PROCEDURE do_cauta
LOCAL lcFiltru
lcFiltru = ""
If This.ck_nume.Value = 1
lcFiltru = lcFiltru + Thisform.ck_nume.filtru
ENDIF
IF this.ck_nr_fact.Value = 1
lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru
ENDIF
IF this.ck_data_fact.Value = 1
lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru
ENDIF
* perioada
If thisform.ck_perioada.Value=1
lcFiltru = lcFiltru + thisform.ck_perioada.filtru
ELSE
lcFiltru = lcFiltru + [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan))
ENDIF
lcFiltru = SUBSTR(lcFiltru,6)
*!* If llIstoric
*!* this.lb_titlu_alb_b121.Caption = "Istoric facturi"
*!* Else
*!* this.lb_titlu_alb_b121.Caption = "Facturi"
*!* Endif
Thisform.actualizeaza_grid1(lcFiltru)
thisform.afisactual
Thisform.grid_facturi.SetFocus()
ENDPROC
PROCEDURE do_listfact
*!* Thisform.AlwaysOnTop=.F.
*!* Local lcTabel, lnid_Fact
*!* lcTabel = Thisform.grid_facturi.RecordSource
*!* Select (lcTabel)
*!* If This.lProforme
*!* If !Eof()
*!* lnid_proforma = id_proforma
*!* Do listfactura With lnid_proforma, This.lProforme In oproceduri_roacontracte.prg
*!* Endif
*!* Else
*!* If !Eof()
*!* lnid_Fact = id_fact
*!* Do listfactura With lnid_Fact In oproceduri_roacontracte.prg
*!* Endif
*!* Endif
*!* Thisform.AlwaysOnTop=.T.
ENDPROC
PROCEDURE do_reset
thisform.ck_nume.Value = 0
thisform.ck_nr_fact.Value = 0
thisform.ck_data_fact.Value = 0
WITH thisform.ck_perioada
.filtru=[ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan))
.luna=PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn))
.cvaloare1=.luna
.cvaloare2=.luna
.value = 1
ENDWITH
thisform.Refresh()
ENDPROC
PROCEDURE inainte_de_do_listare
thisform.AlwaysOnTop = .F.
PRIVATE pcDataOra, pcTitlu
pcDataOra = get_ora(2)
pcTitlu = "Facturi"
LOCAL lcTabel
lcTabel = thisform.grid_facturi.RecordSource
SELECT (lcTabel)
REPORT FORM rFacturi TO PRINTER PROMPT PREVIEW
thisform.AlwaysOnTop = .T.
ENDPROC
PROCEDURE inainte_de_do_sterge
Local lcTabel
lcTabel = Thisform.grid_facturi.RecordSource
Select (lcTabel)
If This.lProforme
lnRaspuns = amessage('Doriti sa stergeti proforma?',4+32,_Screen.Caption)
If lnRaspuns = 7 && 7 = No ; 6 = Yes
Return
ENDIF
lnId_proforma = id_proforma
lcSel = [{call pack_crm.sterg_proforma(']+gcS+[',]+Alltrim(Str(lnId_proforma))+[,]+Alltrim(Str(gnIdUtil))+[)}]
lnSucces = goExecutor.oExecute(lcSel)
If lnSucces < 0
Messagebox('Call pack_crm.sterg_proforma' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Else
lnId_fact = id_fact
lnAn = an
lnLuna = luna
***---------
Private poActactan
Store '' To poActactan
Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza
lcSchema1 = ['']
lcSelect1 = [select * from ] + gcS + [.act fe where 1=2]
lcOrder1 = []
lcFiltru1 = [id_fact=]+Alltrim(Str(lnId_fact))+[ and an=]+Alltrim(Str(lnAn))+ [ and luna=]+Alltrim(Str(lnLuna))
llAfiseaza = .F.
gencursor('poActactan','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza)
poActactan.ca_baza1.afisare()
Select * From cIntermediar Into Cursor actactan Readwrite
Release poActactan
***---------
lnRaspuns = amessage('Doriti sa stergeti factura?',4+32,_Screen.Caption)
If lnRaspuns = 7 && 7 = No ; 6 = Yes
Return
Endif
llRul = .F.
Select actactan
lnSucces = OSCRIE_IN_FISIERE(2,.F.,llRul)
lcSel = [{call pack_crm.sterg_factura(']+gcS+[',]+Alltrim(Str(lnId_fact))+[,]+Alltrim(Str(gnIdUtil))+[)}]
lnSucces = goExecutor.oExecute(lcSel)
If lnSucces < 0
Messagebox('Call pack_crm.sterg_factura' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
thisform.afisactual
Thisform.actualizeaza_grid1()
ENDPROC
PROCEDURE Init
PARAMETERS tlProforme
DODEFAULT()
this.lProforme = tlProforme
IF this.lProforme
this.lb_titlu_alb_b121.Caption = "PROFORME * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn))
else
this.lb_titlu_alb_b121.Caption = "FACTURI * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn))
ENDIF
ENDPROC
PROCEDURE Show
Lparameters nStyle
With This.ck_perioada
.filtru=[ AND LUNA=]+Alltrim(Str(gnluna))+[ AND AN=]+Alltrim(Str(gnan))
.luna=Padl(Alltrim(Str(gnluna)),2,'0')+"/"+Alltrim(Str(gnan))
.cvaloare1=.luna
.cvaloare2=.luna
.Value = 1
Endwith
ENDPROC
ENDDEFINE
DEFINE CLASS text 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="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 91
Name = "text"
Width = 372
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 342
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 31
Lb_titlu_alb_b121.Caption = ""
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'Image1' AS image WITH ;
Height = 32, ;
Left = 12, ;
Name = "Image1", ;
Picture = ..\grafice\exclam1.ico, ;
Top = 40, ;
Width = 32
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Label2' AS label WITH ;
Alignment = 2, ;
BackStyle = 0, ;
Caption = "Label2", ;
Height = 17, ;
Left = 60, ;
Name = "Label2", ;
Top = 40, ;
Width = 299
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Alignment = 2, ;
BackStyle = 0, ;
Caption = "Label3", ;
Height = 17, ;
Left = 60, ;
Name = "Label3", ;
Top = 65, ;
Width = 299
*< END OBJECT: BaseClass="label" />
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink