romfast/roaregistratura
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roaregistratura/Clase/Copy of ferestre_registratura.vc2

6810 lines
204 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="copy of ferestre_registratura.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="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.Column19.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column19.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column20.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_contracte.Column20.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optIncetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_valftva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_valctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optInactiv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume_val" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_tipc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_denumire_tip" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_istoric" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_aa" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_adauga_act_aditional
*p: nireg
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 255,255,255
cgridsortlist = grid_contracte
Height = 362
Name = "ct_contracte"
nireg = 0
Width = 800
Gridsort1.Name = "Gridsort1"
_ct_controller_keypress1.Name = "_ct_controller_keypress1"
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Left = 391, ;
Name = "But_excel1", ;
TabIndex = 18, ;
Top = 2, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 363, ;
Name = "But_listare1", ;
TabIndex = 17, ;
Top = 2, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 3, ;
Left = 306, ;
Name = "But_nou1", ;
Picture = ..\comun\grafice\nou_sus.bmp, ;
TabIndex = 14, ;
ToolTipText = "Adaugare contract (CTRL+N)", ;
Top = 2
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou2' AS but_nou WITH ;
caction = do_adauga_act_aditional, ;
Left = 391, ;
Name = "But_nou2", ;
ToolTipText = "Adaugare act aditional", ;
Top = 30
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 3, ;
Left = 335, ;
Name = "But_sterge1", ;
TabIndex = 15, ;
Top = 2, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ck_aa' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Acte aditionale", ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,128, ;
Height = 18, ;
Left = 306, ;
Name = "ck_aa", ;
Top = 29, ;
Width = 78
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = data, ;
Caption = "Data ctr.", ;
FontName = "Arial Narrow", ;
Left = 113, ;
Name = "Ck_data_ctr", ;
TabIndex = 3, ;
tip = D, ;
Top = 10, ;
ZOrderSet = 32
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_denumire_tip' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = denumire_tip, ;
Caption = "Tip contract", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 113, ;
Name = "Ck_denumire_tip", ;
TabIndex = 7, ;
Top = 29, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_istoric' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Istoric", ;
FontName = "Arial Narrow", ;
ForeColor = 0,128,0, ;
Height = 18, ;
Left = 306, ;
Name = "ck_istoric", ;
Top = 43, ;
Width = 43
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = numar_aa, ;
Caption = "Nr. ctr.", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 63, ;
Name = "Ck_nr_ctr", ;
TabIndex = 2, ;
Top = 10, ;
ZOrderSet = 19
*< 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 = 8, ;
Name = "Ck_nume", ;
TabIndex = 1, ;
Top = 10, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume_val' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = nume_val, ;
Caption = "Valuta", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 8, ;
Name = "Ck_nume_val", ;
TabIndex = 5, ;
Top = 29, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_tipc' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = denumire_tip, ;
Caption = "Tip ctr.", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 63, ;
Name = "Ck_tipc", ;
TabIndex = 6, ;
Top = 29, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_valctva' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = valctva, ;
Caption = "Valoare ctr. (cu TVA)", ;
FontName = "Arial Narrow", ;
Left = 182, ;
mask = (get_mask(12,gnPa)), ;
Name = "Ck_valctva", ;
nrzec = (gnPa), ;
TabIndex = 8, ;
Top = 29, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_valftva' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = valftva, ;
Caption = "Valoare ctr. (fara TVA)", ;
FontName = "Arial Narrow", ;
Left = 182, ;
mask = (get_mask(12,gnPa)), ;
Name = "ck_valftva", ;
nrzec = (gnPa), ;
TabIndex = 4, ;
Top = 10, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Anchor = 12, ;
Height = 27, ;
Left = 632, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 16, ;
Top = 331, ;
Width = 153, ;
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 = "Inregistrari", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 3, ;
Comment = "*:OnResize=LT", ;
Height = 23, ;
Left = 693, ;
Name = "Cmd_cauta1", ;
TabIndex = 9, ;
Top = 4, ;
Width = 67, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 3, ;
Comment = "*:OnResize=LT", ;
Height = 23, ;
Left = 693, ;
Name = "Cmd_reset1", ;
TabIndex = 13, ;
Top = 28, ;
Width = 67, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_contracte' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 20, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 270, ;
HighlightStyle = 2, ;
Left = 8, ;
Name = "grid_contracte", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cContracte", ;
TabIndex = 10, ;
Top = 59, ;
Width = 777, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "denumire", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cNume", ;
Column1.ReadOnly = .T., ;
Column1.Width = 193, ;
Column2.ColumnOrder = 13, ;
Column2.ControlSource = "durata", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cDurata", ;
Column2.ReadOnly = .T., ;
Column2.Width = 43, ;
Column3.ColumnOrder = 10, ;
Column3.ControlSource = "nume_val", ;
Column3.FontName = "Arial Narrow", ;
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 Narrow", ;
Column4.Name = "cNr_ctr", ;
Column4.ReadOnly = .T., ;
Column4.Width = 48, ;
Column5.ColumnOrder = 3, ;
Column5.ControlSource = "data", ;
Column5.FontName = "Arial Narrow", ;
Column5.Format = "d", ;
Column5.Name = "cData_ctr", ;
Column5.ReadOnly = .T., ;
Column5.Width = 51, ;
Column6.ColumnOrder = 8, ;
Column6.ControlSource = "valftva", ;
Column6.FontName = "Arial Narrow", ;
Column6.Format = "rk", ;
Column6.InputMask = (get_mask(14,gnPA)), ;
Column6.Name = "cValvaluta", ;
Column6.ReadOnly = .T., ;
Column6.Width = 72, ;
Column7.ColumnOrder = 14, ;
Column7.ControlSource = "denumire_tip", ;
Column7.FontName = "Arial Narrow", ;
Column7.Name = "cTipc", ;
Column7.ReadOnly = .T., ;
Column7.Width = 170, ;
Column8.ColumnOrder = 9, ;
Column8.ControlSource = "valctva", ;
Column8.FontName = "Arial Narrow", ;
Column8.Format = "rk", ;
Column8.InputMask = (get_mask(14,gnPA)), ;
Column8.Name = "cValctva", ;
Column8.ReadOnly = .T., ;
Column8.Width = 73, ;
Column9.Alignment = 2, ;
Column9.ColumnOrder = 16, ;
Column9.ControlSource = "semnat", ;
Column9.FontName = "Arial Narrow", ;
Column9.Name = "cSemnat", ;
Column9.ReadOnly = .T., ;
Column9.Sparse = .F., ;
Column9.Width = 42, ;
Column10.Alignment = 2, ;
Column10.ColumnOrder = 17, ;
Column10.ControlSource = "abs(incetat-1)", ;
Column10.FontName = "Arial Narrow", ;
Column10.Name = "cIncetat", ;
Column10.ReadOnly = .T., ;
Column10.Sparse = .F., ;
Column10.Width = 52, ;
Column11.Alignment = 2, ;
Column11.ColumnOrder = 19, ;
Column11.ControlSource = "abs(inactiv-1)", ;
Column11.FontName = "Arial Narrow", ;
Column11.Name = "cInactiv", ;
Column11.ReadOnly = .T., ;
Column11.Sparse = .F., ;
Column11.Width = 29, ;
Column12.ColumnOrder = 7, ;
Column12.ControlSource = "descriere", ;
Column12.FontName = "Arial Narrow", ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column13.ColumnOrder = 15, ;
Column13.ControlSource = "selectie", ;
Column13.FontName = "Arial Narrow", ;
Column13.Name = "Column13", ;
Column13.ReadOnly = .T., ;
Column14.ColumnOrder = 5, ;
Column14.ControlSource = "numar_intern", ;
Column14.FontName = "Arial Narrow", ;
Column14.Name = "Column14", ;
Column14.ReadOnly = .T., ;
Column14.Width = 45, ;
Column15.ColumnOrder = 6, ;
Column15.ControlSource = "data_intern", ;
Column15.FontName = "Arial Narrow", ;
Column15.Name = "Column15", ;
Column15.ReadOnly = .T., ;
Column15.Width = 51, ;
Column16.ColumnOrder = 11, ;
Column16.ControlSource = "data_inceput", ;
Column16.FontName = "Arial Narrow", ;
Column16.Name = "Column16", ;
Column16.ReadOnly = .T., ;
Column16.Width = 50, ;
Column17.ColumnOrder = 12, ;
Column17.ControlSource = "data_sfarsit", ;
Column17.FontName = "Arial Narrow", ;
Column17.Name = "Column17", ;
Column17.ReadOnly = .T., ;
Column17.Width = 50, ;
Column18.ColumnOrder = 18, ;
Column18.ControlSource = "data_incetat", ;
Column18.FontName = "Arial Narrow", ;
Column18.Name = "Column18", ;
Column18.ReadOnly = .T., ;
Column18.Width = 47, ;
Column19.Alignment = 2, ;
Column19.ColumnOrder = 20, ;
Column19.ControlSource = "are_link", ;
Column19.FontName = "Arial Narrow", ;
Column19.Name = "Column19", ;
Column19.ReadOnly = .T., ;
Column19.Sparse = .F., ;
Column19.Width = 85, ;
Column20.ColumnOrder = 4, ;
Column20.ControlSource = "numar_ult_aa", ;
Column20.FontName = "Arial Narrow", ;
Column20.Name = "Column20", ;
Column20.ReadOnly = .T., ;
Column20.Width = 36
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_contracte.cData_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data contr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cData_ctr.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_contracte.cDurata.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Durata (Luni)", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cInactiv.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
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 Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cIncetat.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
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 Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cNr_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. contr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cNr_ctr.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_contracte.cNume.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cNume.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_contracte.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.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_contracte.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Descriere", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.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_contracte.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Modul de selectie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.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_contracte.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. inreg.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.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_contracte.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inreg.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.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_contracte.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inceput", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data sfarsit", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column18.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data incetarii", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.Column19.Check1' AS checkbox WITH ;
Alignment = 2, ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial Narrow", ;
Height = 17, ;
Left = 14, ;
Name = "Check1", ;
Top = 48, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grid_contracte.Column19.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Atasamente", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
Picture = ..\grafice\attach.bmp
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.Column20.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ultimul act ad.", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cSemnat.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
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 Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cTipc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip contract", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_contracte.cTipc.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_contracte.cValctva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare contract (cu TVA)", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_contracte.cValvaluta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare contract (fara TVA)", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'optInactiv' AS optiongroup WITH ;
Anchor = 3, ;
BackStyle = 0, ;
ButtonCount = 3, ;
Height = 49, ;
Left = 573, ;
Name = "optInactiv", ;
TabIndex = 12, ;
Top = 4, ;
Value = 1, ;
Width = 111, ;
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 = 435, ;
Name = "optIncetat", ;
TabIndex = 11, ;
Top = 4, ;
Value = 1, ;
Width = 134, ;
Option1.BackStyle = 0, ;
Option1.Caption = "Contractele in desfasurare", ;
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 incetate", ;
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 actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru = pcFiltru
IF EMPTY(lcFiltru)
lcFiltru = poCtr.ca_baza1.cfiltru
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
THIS.clb_tx_simplu1.text_simplu1.REFRESH
ENDPROC
PROCEDURE do_adauga
LOCAL lcAlias, lnId_ctr
lcAlias = THIS.grid_contracte.RECORDSOURCE
STORE 0 TO lnId_ctr
lnId_ctr = adauga_contract(lcAlias)
THIS.actualizeaza_grid1()
SELECT (lcAlias)
LOCATE FOR id_ctr = lnId_ctr
IF FOUND()
THIS.grid_contracte.SETFOCUS()
*this.grid_contracte.AfterRowColChange
oprinc.pagefr1.page3.enabled = .T.
oprinc.pagefr1.ACTIVEPAGE = 3
oprinc.pagefr1.page3.CLICK()
ENDIF
***--------------------------
ENDPROC
PROCEDURE do_adauga_act_aditional
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
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_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_valftva.Value=1
lcFiltru = lcFiltru + This.ck_valftva.filtru
Endif
If This.ck_valctva.Value=1
lcFiltru = lcFiltru + This.ck_valctva.filtru
Endif
Do Case
Case This.optIncetat.Value = 1
lcFiltru = lcFiltru + [ and incetat = 0]
Case This.optIncetat.Value = 2
lcFiltru = lcFiltru + [ and incetat = 1]
Case This.optIncetat.Value = 3
lcFiltru = lcFiltru + [ and (incetat = 0 or incetat = 1)]
Endcase
Do Case
Case This.optInactiv.Value = 1 && active
lcFiltru = lcFiltru + [ and inactiv = 0]
Case This.optInactiv.Value = 2 && inactive
lcFiltru = lcFiltru + [ and inactiv = 1]
Case This.optInactiv.Value = 3 && toate
lcFiltru = lcFiltru + [ and (inactiv = 0 or inactiv = 1)]
Endcase
If This.ck_istoric.Value = 1 AND This.ck_aa.Value = 0
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'I')]
Endif
If This.ck_aa.Value = 1 AND This.ck_istoric.Value = 0
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A')]
ENDIF
IF This.ck_istoric.Value = 0 AND This.ck_aa.Value = 0
lcFiltru = lcFiltru + [ and tip_istoric = 'C']
ENDIF
IF This.ck_istoric.Value = 1 AND This.ck_aa.Value = 1
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A' or tip_istoric = 'I')]
ENDIF
If !Empty(lcFiltru)
lcFiltru = Substr(lcFiltru,6)
Else
lcFiltru = []
Endif
This.actualizeaza_grid1(lcFiltru)
If Reccount('cContracte')=0
Messagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
Select cContracte
Scatter Name goContract Memo Blank
Endif
This.grid_contracte.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
this.optIncetat.Value=1
this.optInactiv.Value=1
this.ck_nume.SetFocus()
ENDPROC
PROCEDURE inainte_de_do_excel
DO export_excel_grid WITH this.grid_contracte
ENDPROC
PROCEDURE inainte_de_do_listare
*Thisform.AlwaysOnTop = .F.
lcmenu="\<Fisa contractului;\<Fisa contractului pentru contractele selectate;\<Centralizator;\<Lista contractelor"
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 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
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
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'
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
restore_grid(This.grid_contracte)
Case lnx = 2
llToate = .T.
Do make_cursoare_ctr With llToate && In oproceduri_roacontracte.prg && imi creeaza cursoarele
DO make_cCtrActeAditionale With llToate && 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 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
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
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'
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
Case lnx = 3
Private pcDataOra, pcTitlu
pcDataOra = get_ora(2)
pcTitlu = "Centralizator contracte"
Local lcTabel
lcTabel = This.grid_contracte.RecordSource
Select (lcTabel)
Report Form rContracte_centralizator.frx To Printer Prompt Preview
Case lnx=4
Private pcDataOra, pcTitlu
pcDataOra = get_ora(2)
pcTitlu = "Lista contractelor"
Local lcTabel
lcTabel = This.grid_contracte.RecordSource
Select (lcTabel)
Report Form rContracte.frx To Printer Prompt Preview
Endcase
*Thisform.AlwaysOnTop = .T.
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()
Select cContracte
If Reccount()>0
This.nireg = Reccount()
ELSE
This.nireg = 0
ENDIF
this.clb_tx_simplu1.text_simplu1.Refresh
ENDPROC
PROCEDURE grid_contracte.AfterRowColChange
LPARAMETERS nColIndex
LOCAL lcTabel
lcTabel = this.RecordSource
SELECT (lcTabel)
SCATTER NAME goContract MEMO
ENDPROC
PROCEDURE grid_contracte.cNume.Text1.RightClick
Local lcMenu, lnx
lcMenu = "Lista facturilor pentru contractul selectat"
lnx = xmenu(lcMenu)
Do Case
Case lnx = 1
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_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="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="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: blocheaza_campuri
*m: deblocheaza_campuri
*p: llock
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 255,255,255
Height = 116
llock = .T.
Name = "ct_part_nr_data"
Width = 600
*</PropValue>
ADD OBJECT 'cmdDenumire' AS commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
Height = 22, ;
Left = 378, ;
Name = "cmdDenumire", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 2, ;
Top = 59, ;
Width = 29
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Anchor = 3, ;
Caption = "Modifica", ;
FontBold = .T., ;
ForeColor = 0,0,255, ;
Height = 47, ;
Left = 9, ;
Name = "Command2", ;
Picture = ..\comun\grafice\lock.bmp, ;
SpecialEffect = 2, ;
TabIndex = 1, ;
Top = 3, ;
Width = 131
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Partener", ;
Height = 17, ;
Left = 16, ;
Name = "Label3", ;
TabIndex = 6, ;
Top = 62, ;
Width = 49
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. contract ", ;
Height = 17, ;
Left = 16, ;
Name = "Label4", ;
TabIndex = 7, ;
Top = 84, ;
Width = 67
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data contract ", ;
Height = 17, ;
Left = 209, ;
Name = "Label9", ;
TabIndex = 8, ;
Top = 84, ;
Width = 77
*< 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 = 16, ;
Name = "lb_actAd", ;
TabIndex = 8, ;
Top = 99, ;
Width = 55
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Line1' AS line WITH ;
Anchor = 11, ;
Height = 0, ;
Left = 0, ;
Name = "Line1", ;
Top = 53, ;
Width = 601
*< END OBJECT: BaseClass="line" />
ADD OBJECT 'Shape1' AS shape WITH ;
BackStyle = 0, ;
Height = 57, ;
Left = 7, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 57, ;
Width = 409
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtClient' AS textbox WITH ;
ControlSource = "goContract.denumire", ;
Height = 21, ;
Left = 87, ;
Name = "txtClient", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 60, ;
Width = 289
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_ctr' AS textbox WITH ;
ControlSource = "goContract.data", ;
Height = 21, ;
Left = 288, ;
Name = "txtData_ctr", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 82, ;
Width = 119
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtNumar' AS textbox WITH ;
ControlSource = "goContract.numar", ;
Format = "k", ;
Height = 21, ;
Left = 87, ;
Name = "txtNumar", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 82, ;
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
*!* 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
If This.Parent.lLock
AMESSAGEBOX('Toate modificarile au efect imediat! Nu puteti da renuntare!',0+48,'Atentie!')
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.but_termin1.CLICK()
*!* ENDIF
******
Else
If Type('podg_fact.but_termin1') <> 'U'
If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And (Empty(goContract.id_nota) Or Isnull(goContract.id_nota))
AMESSAGEBOX('Alegeti nota contabila !',0+48)
Return
Endif
Endif
This.Picture = 'lock.bmp'
This.Parent.lLock = .T.
This.Caption = 'Modifica'
This.Parent.blocheaza_campuri()
If Isnull(goContract.id_part)
AMESSAGEBOX('Alegeti partenerul!')
this.Parent.cmdDenumire.SetFocus()
RETURN
ENDIF
Do modifica_ctr_dg With goContract && In oproceduri_roacontracte.prg
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
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_registratura 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="grid_registratura" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNume.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNume.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNr_ctr.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNr_ctr.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cData_ctr.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cData_ctr.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nireg
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 255,255,255
cgridsortlist = grid_registratura
Height = 362
Name = "ct_registratura"
nireg = 0
Width = 800
Gridsort1.Name = "Gridsort1"
_ct_controller_keypress1.Name = "_ct_controller_keypress1"
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Left = 391, ;
Name = "But_excel1", ;
TabIndex = 18, ;
Top = 2, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 363, ;
Name = "But_listare1", ;
TabIndex = 17, ;
Top = 2, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 3, ;
Left = 306, ;
Name = "But_nou1", ;
Picture = ..\comun\grafice\nou_sus.bmp, ;
TabIndex = 14, ;
ToolTipText = "Adaugare contract (CTRL+N)", ;
Top = 2
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 3, ;
Left = 335, ;
Name = "But_sterge1", ;
TabIndex = 15, ;
Top = 2, ;
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 = 113, ;
Name = "Ck_data_ctr", ;
TabIndex = 3, ;
tip = D, ;
Top = 10, ;
ZOrderSet = 32
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = numar_aa, ;
Caption = "Nr. ctr.", ;
Comment = "*:OnResize=LT", ;
FontName = "Arial Narrow", ;
Left = 63, ;
Name = "Ck_nr_ctr", ;
TabIndex = 2, ;
Top = 10, ;
ZOrderSet = 19
*< 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 = 8, ;
Name = "Ck_nume", ;
TabIndex = 1, ;
Top = 10, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Anchor = 12, ;
Height = 27, ;
Left = 632, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 16, ;
Top = 331, ;
Width = 153, ;
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 = "Inregistrari", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 3, ;
Comment = "*:OnResize=LT", ;
Height = 23, ;
Left = 693, ;
Name = "Cmd_cauta1", ;
TabIndex = 9, ;
Top = 4, ;
Width = 67, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 3, ;
Comment = "*:OnResize=LT", ;
Height = 23, ;
Left = 693, ;
Name = "Cmd_reset1", ;
TabIndex = 13, ;
Top = 28, ;
Width = 67, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_registratura' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 6, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 270, ;
HighlightStyle = 2, ;
Left = 8, ;
Name = "grid_registratura", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cRegistratura", ;
TabIndex = 10, ;
Top = 59, ;
Width = 777, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "denumire", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cNume", ;
Column1.ReadOnly = .T., ;
Column1.Width = 193, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "numar", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cNr_ctr", ;
Column2.ReadOnly = .T., ;
Column2.Width = 48, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "data", ;
Column3.FontName = "Arial Narrow", ;
Column3.Format = "d", ;
Column3.Name = "cData_ctr", ;
Column3.ReadOnly = .T., ;
Column3.Width = 51, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "descriere", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column12", ;
Column4.ReadOnly = .T., ;
Column5.ColumnOrder = 4, ;
Column5.ControlSource = "numar_intern", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column14", ;
Column5.ReadOnly = .T., ;
Column5.Width = 45, ;
Column6.ColumnOrder = 5, ;
Column6.ControlSource = "data_intern", ;
Column6.FontName = "Arial Narrow", ;
Column6.Name = "Column15", ;
Column6.ReadOnly = .T., ;
Column6.Width = 51
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_registratura.cData_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data contr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cData_ctr.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_registratura.cNr_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. contr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cNr_ctr.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_registratura.cNume.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cNume.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_registratura.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Descriere", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.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_registratura.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. inreg.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.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_registratura.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inreg.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.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" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru = pcFiltru
IF EMPTY(lcFiltru)
lcFiltru = poReg.ca_baza1.cfiltru
ENDIF
save_grid_tag(THIS.grid_registratura)
poReg.ca_baza1.cfiltru = lcFiltru
poReg.ca_baza1.afisare()
SELECT cRegistratura
IF RECCOUNT()>0
THIS.nireg = RECCOUNT()
ELSE
THIS.nireg = 0
ENDIF
restore_grid_tag(THIS.grid_registratura)
IF RECCOUNT('cRegistratura')>0
SELECT cRegistratura
LOCATE FOR id_ctr = goRegistratura.id_reg
IF !FOUND()
GO TOP
ENDIF
THIS.grid_registratura.SETFOCUS()
ENDIF
THIS.clb_tx_simplu1.text_simplu1.REFRESH
ENDPROC
PROCEDURE do_adauga
LOCAL lcAlias, lnId_reg
lcAlias = THIS.grid_registratura.RECORDSOURCE
STORE 0 TO lnId_ctr
lnId_reg = adauga_registratura(lcAlias)
THIS.actualizeaza_grid1()
SELECT (lcAlias)
LOCATE FOR id_reg = lnId_reg
IF FOUND()
THIS.grid_registratura.SETFOCUS()
oprinc.pagefr1.page3.enabled = .T.
oprinc.pagefr1.ACTIVEPAGE = 3
oprinc.pagefr1.page3.CLICK()
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_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_valftva.Value=1
lcFiltru = lcFiltru + This.ck_valftva.filtru
Endif
If This.ck_valctva.Value=1
lcFiltru = lcFiltru + This.ck_valctva.filtru
Endif
Do Case
Case This.optIncetat.Value = 1
lcFiltru = lcFiltru + [ and incetat = 0]
Case This.optIncetat.Value = 2
lcFiltru = lcFiltru + [ and incetat = 1]
Case This.optIncetat.Value = 3
lcFiltru = lcFiltru + [ and (incetat = 0 or incetat = 1)]
Endcase
Do Case
Case This.optInactiv.Value = 1 && active
lcFiltru = lcFiltru + [ and inactiv = 0]
Case This.optInactiv.Value = 2 && inactive
lcFiltru = lcFiltru + [ and inactiv = 1]
Case This.optInactiv.Value = 3 && toate
lcFiltru = lcFiltru + [ and (inactiv = 0 or inactiv = 1)]
Endcase
If This.ck_istoric.Value = 1 AND This.ck_aa.Value = 0
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'I')]
Endif
If This.ck_aa.Value = 1 AND This.ck_istoric.Value = 0
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A')]
ENDIF
IF This.ck_istoric.Value = 0 AND This.ck_aa.Value = 0
lcFiltru = lcFiltru + [ and tip_istoric = 'C']
ENDIF
IF This.ck_istoric.Value = 1 AND This.ck_aa.Value = 1
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A' or tip_istoric = 'I')]
ENDIF
If !Empty(lcFiltru)
lcFiltru = Substr(lcFiltru,6)
Else
lcFiltru = []
Endif
This.actualizeaza_grid1(lcFiltru)
If Reccount('cContracte')=0
Messagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
Select cContracte
Scatter Name goContract Memo Blank
Endif
This.grid_contracte.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
this.optIncetat.Value=1
this.optInactiv.Value=1
this.ck_nume.SetFocus()
ENDPROC
PROCEDURE inainte_de_do_excel
DO export_excel_grid WITH this.grid_registratura
ENDPROC
PROCEDURE inainte_de_do_listare
*Thisform.AlwaysOnTop = .F.
lcmenu="\<Fisa contractului;\<Fisa contractului pentru contractele selectate;\<Centralizator;\<Lista contractelor"
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 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
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
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'
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
restore_grid(This.grid_contracte)
Case lnx = 2
llToate = .T.
Do make_cursoare_ctr With llToate && In oproceduri_roacontracte.prg && imi creeaza cursoarele
DO make_cCtrActeAditionale With llToate && 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 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
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
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'
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
Case lnx = 3
Private pcDataOra, pcTitlu
pcDataOra = get_ora(2)
pcTitlu = "Centralizator contracte"
Local lcTabel
lcTabel = This.grid_contracte.RecordSource
Select (lcTabel)
Report Form rContracte_centralizator.frx To Printer Prompt Preview
Case lnx=4
Private pcDataOra, pcTitlu
pcDataOra = get_ora(2)
pcTitlu = "Lista contractelor"
Local lcTabel
lcTabel = This.grid_contracte.RecordSource
Select (lcTabel)
Report Form rContracte.frx To Printer Prompt Preview
Endcase
*Thisform.AlwaysOnTop = .T.
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 documentul?',4+32,_SCREEN.CAPTION)
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
RETURN
ENDIF
lcId = ALLTRIM(STR(goRegistratura.id_reg))
lcId_util = ALLTRIM(STR(gnIdUtil))
lcSql = [begin pack_registratura.sterge_registratura(]+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()
Select cRegistratura
If Reccount()>0
This.nireg = Reccount()
ELSE
This.nireg = 0
ENDIF
this.clb_tx_simplu1.text_simplu1.Refresh
ENDPROC
PROCEDURE grid_registratura.AfterRowColChange
LPARAMETERS nColIndex
LOCAL lcTabel
lcTabel = this.RecordSource
SELECT (lcTabel)
SCATTER NAME goRegistratura MEMO
ENDPROC
PROCEDURE grid_registratura.cNume.Text1.RightClick
Local lcMenu, lnx
lcMenu = "Lista facturilor pentru contractul selectat"
lnx = xmenu(lcMenu)
Do Case
Case lnx = 1
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
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_ctr_link_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="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtLink" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 124
Name = "frm_ctr_link_nou"
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 314
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 61
Lb_titlu_alb_b121.Caption = "Link"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
BUT_TERMIN1.Left = 344
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 314, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command3' AS commandbutton WITH ;
Caption = "...", ;
Height = 22, ;
Left = 336, ;
Name = "Command3", ;
TabIndex = 3, ;
Top = 84, ;
Width = 29
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command4' AS commandbutton WITH ;
Caption = "", ;
Height = 22, ;
Left = 310, ;
Name = "Command4", ;
Picture = ..\grafice\open.bmp, ;
TabIndex = 8, ;
Top = 84, ;
Width = 27
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Denumire", ;
Height = 17, ;
Left = 13, ;
Name = "Label1", ;
TabIndex = 6, ;
Top = 51, ;
Width = 57
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Link", ;
Height = 17, ;
Left = 13, ;
Name = "Label2", ;
TabIndex = 7, ;
Top = 87, ;
Width = 25
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text1' AS textbox WITH ;
ControlSource = "poLink.denumire_link", ;
Height = 23, ;
Left = 77, ;
Name = "Text1", ;
TabIndex = 1, ;
Top = 48, ;
Width = 228
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtLink' AS textbox WITH ;
ControlSource = "poLink.link", ;
Height = 23, ;
Left = 77, ;
Name = "txtLink", ;
TabIndex = 2, ;
Top = 84, ;
Width = 228
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Command3.Click
lcDoc = GETFILE("*","Alegeti fisierul")
thisform.txtLink.Value = lcDoc
thisform.txtLink.SetFocus
ENDPROC
PROCEDURE Command4.Click
PRIVATE oWord
LOCAL lcDocument
lcDocument = thisform.txtLink.Value
IF !FILE(lcDocument)
MESSAGEBOX("Nu exista fisierul "+lcDocument,16,"Eroare")
RETURN
ENDIF
oWord = CREATEOBJECT('word.application')
oDocument = oWord.Documents.OPEN(lcDocument)
oWord.CAPTION = "Contract Test"
opuiu = CREATEOBJECT('shell.application')
opuiu.minimizeAll
RELEASE opuiu
oWord.VISIBLE =.T.
oword = .null.
RELEASE oword
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: blocheaza_campuri
*m: deblocheaza_campuri
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 0
DoCreate = .T.
Height = 282
Name = "frm_dg"
Width = 417
WindowType = 0
_shape1.Name = "_shape1"
_shape1.Top = 1000
_shape2.Name = "_shape2"
_shape2.Visible = .F.
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.ForeColor = 0,0,0
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1000
Gridsort1.Name = "Gridsort1"
*</PropValue>
PROCEDURE Activate
DODEFAULT()
this.Left = 202
this.Width = _screen.Width - 206
this.Top = oprinc.pagefr1.top + 28 + 120
this.Height = _screen.Height - this.Top - 2
ENDPROC
PROCEDURE blocheaza_campuri
ENDPROC
PROCEDURE deblocheaza_campuri
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_date_generale AS frm_dg OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_incetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDurata" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_incetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdTip_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtTip_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_inactiv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_semnat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_inceput" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_sfarsit" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdResponsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtResponsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdSectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtMotiv_incetat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdSelectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSelectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_intern" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDescriere" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNumar_intern" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtOfertanti" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: llock
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 379
llock = .F.
Name = "frm_dg_date_generale"
Width = 559
WindowType = 0
_shape1.Height = 29
_shape1.Left = -12
_shape1.Name = "_shape1"
_shape1.Top = 800
_shape1.Width = 561
_shape1.ZOrderSet = 3
_shape2.Left = 504
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Visible = .F.
_shape2.ZOrderSet = 4
Lb_titlu_alb_b121.Caption = "Date generale"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 20
Lb_titlu_alb_b121.ZOrderSet = 5
BUT_TERMIN1.Left = 530
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 21
BUT_TERMIN1.Top = 1000
BUT_TERMIN1.ZOrderSet = 6
Gridsort1.Left = 132
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT 'ck_inactiv' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Inactiv", ;
ControlSource = "goContract.inactiv", ;
Height = 17, ;
Left = 105, ;
Name = "ck_inactiv", ;
ReadOnly = .T., ;
TabIndex = 17, ;
Top = 358, ;
Width = 52, ;
ZOrderSet = 22
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'ck_incetat' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Incetat (nu mai este in desfasurare)", ;
ControlSource = "goContract.incetat", ;
Height = 17, ;
Left = 28, ;
Name = "ck_incetat", ;
ReadOnly = .T., ;
TabIndex = 11, ;
Top = 244, ;
Width = 213, ;
ZOrderSet = 12
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'ck_semnat' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Semnat", ;
ControlSource = "goContract.semnat", ;
Height = 17, ;
Left = 26, ;
Name = "ck_semnat", ;
ReadOnly = .T., ;
TabIndex = 16, ;
Top = 358, ;
Width = 61, ;
ZOrderSet = 23
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'cmdResponsabil' AS commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
FontName = "Arial Narrow", ;
Height = 21, ;
Left = 281, ;
Name = "cmdResponsabil", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 14, ;
Top = 310, ;
Width = 28, ;
ZOrderSet = 28
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'cmdSectie' AS commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
FontName = "Arial Narrow", ;
Height = 21, ;
Left = 281, ;
Name = "cmdSectie", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 15, ;
Top = 332, ;
Width = 28, ;
ZOrderSet = 31
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'cmdSelectie' AS commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
FontName = "Arial Narrow", ;
Height = 21, ;
Left = 288, ;
Name = "cmdSelectie", ;
Picture = ..\..\roacontracte_furnizori\grafice\find.bmp, ;
TabIndex = 6, ;
Top = 130, ;
Width = 28, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'cmdTip_ctr' AS commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
FontName = "Arial Narrow", ;
Height = 21, ;
Left = 288, ;
Name = "cmdTip_ctr", ;
Picture = ..\..\roacontracte_furnizori\grafice\find.bmp, ;
TabIndex = 5, ;
Top = 108, ;
Width = 28, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'cmdValuta' AS commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
FontName = "Arial Narrow", ;
Height = 21, ;
Left = 281, ;
Name = "cmdValuta", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 13, ;
Top = 288, ;
Width = 28, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data inceput", ;
Height = 17, ;
Left = 28, ;
Name = "Label1", ;
TabIndex = 38, ;
Top = 161, ;
Width = 71, ;
ZOrderSet = 24
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Durata (luni)", ;
Height = 17, ;
Left = 28, ;
Name = "Label10", ;
TabIndex = 30, ;
Top = 183, ;
Width = 70, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label12' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Tip contract", ;
Height = 17, ;
Left = 28, ;
Name = "Label12", ;
TabIndex = 34, ;
Top = 110, ;
Width = 65, ;
ZOrderSet = 19
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label14' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Responsabil", ;
Height = 17, ;
Left = 28, ;
Name = "Label14", ;
TabIndex = 33, ;
Top = 312, ;
Width = 73, ;
ZOrderSet = 29
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label17' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valuta", ;
Height = 17, ;
Left = 28, ;
Name = "Label17", ;
TabIndex = 31, ;
Top = 290, ;
Width = 36, ;
ZOrderSet = 15
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data incetarii", ;
Height = 17, ;
Left = 28, ;
Name = "Label2", ;
TabIndex = 36, ;
Top = 227, ;
Width = 74, ;
ZOrderSet = 17
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label20' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Sectie", ;
Height = 17, ;
Left = 28, ;
Name = "Label20", ;
TabIndex = 32, ;
Top = 334, ;
Width = 36, ;
ZOrderSet = 32
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label21' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Motiv incetare", ;
Height = 17, ;
Left = 28, ;
Name = "Label21", ;
TabIndex = 22, ;
Top = 262, ;
Width = 76, ;
ZOrderSet = 34
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Modul de selectie", ;
Height = 17, ;
Left = 28, ;
Name = "Label3", ;
TabIndex = 35, ;
Top = 132, ;
Width = 98, ;
ZOrderSet = 37
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Descriere", ;
Height = 17, ;
Left = 28, ;
Name = "Label4", ;
TabIndex = 25, ;
Top = 82, ;
Width = 56, ;
ZOrderSet = 40
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data sfarsit", ;
Height = 17, ;
Left = 28, ;
Name = "Label5", ;
TabIndex = 37, ;
Top = 205, ;
Width = 65, ;
ZOrderSet = 26
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr./data inreg. (intrare-iesire)", ;
Height = 17, ;
Left = 28, ;
Name = "Label6", ;
TabIndex = 18, ;
Top = 38, ;
Width = 160, ;
ZOrderSet = 42
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Ofertanti", ;
Height = 17, ;
Left = 28, ;
Name = "Label7", ;
TabIndex = 23, ;
Top = 60, ;
Width = 48, ;
ZOrderSet = 46
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "/", ;
Height = 17, ;
Left = 326, ;
Name = "Label9", ;
TabIndex = 19, ;
Top = 38, ;
Width = 5, ;
ZOrderSet = 44
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape3' AS shape WITH ;
BackStyle = 0, ;
Height = 128, ;
Left = 19, ;
Name = "Shape3", ;
SpecialEffect = 0, ;
Top = 156, ;
Width = 442, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape4' AS shape WITH ;
BackStyle = 0, ;
Height = 50, ;
Left = 19, ;
Name = "Shape4", ;
SpecialEffect = 0, ;
Top = 105, ;
Width = 442, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape5' AS shape WITH ;
BackStyle = 0, ;
Height = 72, ;
Left = 18, ;
Name = "Shape5", ;
SpecialEffect = 0, ;
Top = 285, ;
Width = 442, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape7' AS shape WITH ;
BackStyle = 0, ;
Height = 72, ;
Left = 19, ;
Name = "Shape7", ;
SpecialEffect = 0, ;
Top = 32, ;
Width = 442, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtData_inceput' AS textbox WITH ;
ControlSource = "goContract.data_inceput", ;
Height = 21, ;
Left = 131, ;
Name = "txtData_inceput", ;
ReadOnly = .T., ;
TabIndex = 7, ;
Top = 159, ;
Width = 72, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_incetat' AS textbox WITH ;
ControlSource = "goContract.data_incetat", ;
Height = 21, ;
Left = 131, ;
Name = "txtData_incetat", ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 225, ;
Width = 72, ;
ZOrderSet = 18
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_intern' AS textbox WITH ;
ControlSource = "goContract.data_intern", ;
Height = 21, ;
Left = 333, ;
Name = "txtData_intern", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 36, ;
Width = 119, ;
ZOrderSet = 45
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtData_sfarsit' AS textbox WITH ;
ControlSource = "goContract.data_sfarsit", ;
Height = 21, ;
Left = 131, ;
Name = "txtData_sfarsit", ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 203, ;
Width = 72, ;
ZOrderSet = 27
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtDescriere' AS textbox WITH ;
ControlSource = "goContract.descriere", ;
Height = 21, ;
Left = 131, ;
Name = "txtDescriere", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 80, ;
Width = 321, ;
ZOrderSet = 41
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtDurata' AS textbox WITH ;
ControlSource = "goContract.durata", ;
Height = 21, ;
Left = 131, ;
Name = "txtDurata", ;
ReadOnly = .T., ;
TabIndex = 8, ;
Top = 181, ;
Width = 73, ;
ZOrderSet = 14
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtMotiv_incetat' AS textbox WITH ;
ControlSource = "goContract.motiv_incetat", ;
Height = 21, ;
Left = 131, ;
Name = "txtMotiv_incetat", ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 260, ;
Width = 321, ;
ZOrderSet = 35
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtNumar_intern' AS textbox WITH ;
ControlSource = "goContract.numar_intern", ;
Format = "k", ;
Height = 21, ;
Left = 209, ;
Name = "txtNumar_intern", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 36, ;
Width = 113, ;
ZOrderSet = 43
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtOfertanti' AS textbox WITH ;
ControlSource = "goContract.ofertanti", ;
Height = 21, ;
Left = 131, ;
Name = "txtOfertanti", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 58, ;
Width = 321, ;
ZOrderSet = 47
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtResponsabil' AS textbox WITH ;
ControlSource = "goContract.responsabil", ;
Height = 21, ;
Left = 131, ;
Name = "txtResponsabil", ;
ReadOnly = .T., ;
TabIndex = 24, ;
Top = 310, ;
Width = 144, ;
ZOrderSet = 30
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtSectie' AS textbox WITH ;
ControlSource = "goContract.sectie", ;
Height = 21, ;
Left = 131, ;
Name = "txtSectie", ;
ReadOnly = .T., ;
TabIndex = 27, ;
Top = 332, ;
Width = 144, ;
ZOrderSet = 33
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtSelectie' AS textbox WITH ;
ControlSource = "goContract.selectie", ;
Height = 21, ;
Left = 131, ;
Name = "txtSelectie", ;
ReadOnly = .T., ;
TabIndex = 29, ;
Top = 130, ;
Width = 144, ;
ZOrderSet = 39
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtTip_ctr' AS textbox WITH ;
ControlSource = "goContract.denumire_tip", ;
Height = 21, ;
Left = 131, ;
Name = "txtTip_ctr", ;
ReadOnly = .T., ;
TabIndex = 28, ;
Top = 108, ;
Width = 144, ;
ZOrderSet = 21
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValuta' AS textbox WITH ;
ControlSource = "goContract.nume_val", ;
Height = 21, ;
Left = 131, ;
Name = "txtValuta", ;
ReadOnly = .T., ;
TabIndex = 26, ;
Top = 288, ;
Width = 144, ;
ZOrderSet = 16
*< END OBJECT: BaseClass="textbox" />
PROCEDURE blocheaza_campuri
this.txtDescriere.ReadOnly = .T.
this.cmdTip_ctr.Enabled = .F.
this.CmdSelectie.Enabled = .F.
this.txtData_inceput.ReadOnly = .T.
this.txtDurata.ReadOnly = .T.
this.txtData_sfarsit.ReadOnly = .T.
this.txtData_incetat.ReadOnly = .T.
this.ck_incetat.ReadOnly = .T.
this.txtMotiv_incetat.ReadOnly = .T.
this.cmdValuta.Enabled = .F.
this.cmdResponsabil.Enabled = .F.
this.cmdSectie.Enabled = .F.
this.ck_semnat.ReadOnly = .T.
this.ck_inactiv.ReadOnly = .T.
this.txtnumar_intern.ReadOnly = .T.
this.txtData_intern.ReadOnly = .T.
this.txtOfertanti.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
this.txtDescriere.ReadOnly = .F.
this.cmdTip_ctr.Enabled = .T.
this.CmdSelectie.Enabled = .T.
this.txtData_inceput.ReadOnly = .F.
this.txtDurata.ReadOnly = .F.
this.txtData_sfarsit.ReadOnly = .F.
this.txtData_incetat.ReadOnly = .F.
this.ck_incetat.ReadOnly = .F.
this.txtMotiv_incetat.ReadOnly = .F.
this.cmdValuta.Enabled = .T.
this.cmdResponsabil.Enabled = .T.
this.cmdSectie.Enabled = .T.
this.ck_semnat.ReadOnly = .F.
this.ck_inactiv.ReadOnly = .F.
this.txtnumar_intern.ReadOnly = .f.
this.txtData_intern.ReadOnly = .f.
this.txtOfertanti.ReadOnly = .F.
ENDPROC
PROCEDURE cmdResponsabil.Click
*!* LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
*!* lcselect = [select v.id_valuta, v.nume_val FROM vnom_valute v where]
*!* lcfiltru = [1=2]
*!* lcschema = []
*!* lcorder = [v.nume_val]
*!* lccoloane = [nume_val]
*!* lcTitlu = [Alegeti valuta]
*!* lcTitluColoane = [Nume]
*!* lcFiltruOriginal = [v.inactiv = 0]
*!* lcNumeProc = ""
*!* locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal)
locauta = caut_responsabil()
IF buton=2
RETURN
ENDIF
goContract.id_responsabil = locauta.id_responsabil
goContract.responsabil = locauta.nume
*pcNrord = locauta.nrord
thisform.txtResponsabil.Refresh
ENDPROC
PROCEDURE cmdSectie.Click
locauta = caut_sectie()
IF buton=2
RETURN
ENDIF
goContract.id_sectie = locauta.id_sectie
goContract.sectie = locauta.sectie
thisform.txtSectie.Refresh
ENDPROC
PROCEDURE cmdSelectie.Click
LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
lcselect = [select id_selectie, selectie FROM vctr_selectii]
lcfiltru = [1=2]
lcschema = []
lcorder = [selectie]
lccoloane = [selectie]
lcTitlu = [Alegeti modul de selectie]
lcTitluColoane = [Mod selectie]
lcFiltruOriginal = []
lcNumeProc = ""
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal)
IF buton=2
RETURN
ENDIF
goContract.id_selectie = locauta.id_selectie
goContract.selectie = locauta.selectie
THISFORM.txtSelectie.REFRESH
ENDPROC
PROCEDURE cmdTip_ctr.Click
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
goContract.id_tip_ctr = locauta.id_tip_ctr
goContract.denumire_tip = locauta.denumire_tip
THISFORM.txtTip_ctr.REFRESH
ENDPROC
PROCEDURE cmdValuta.Click
locauta = caut_valuta()
IF buton=2
RETURN
ENDIF
goContract.id_valuta = locauta.id_valuta
goContract.nume_val = locauta.nume_val
thisform.txtValuta.Refresh
ENDPROC
PROCEDURE txtData_incetat.Valid
IF !EMPTY(goContract.data_inceput) AND goContract.data_incetat <= goContract.data_inceput
MESSAGEBOX('Introduceti data incetarii mai mare decat data de inceput a contractului !',0+48,_screen.Caption)
goContract.data_incetat = goContract.data_inceput + 1
ENDIF
thisform.txtData_inceput.Refresh
ENDPROC
PROCEDURE txtData_sfarsit.Valid
IF !EMPTY(goContract.data_inceput) AND goContract.data_sfarsit <= goContract.data_inceput
MESSAGEBOX('Introduceti data de sfarsit mai mare decat data de inceput a contractului !',0+48,_screen.Caption)
goContract.data_sfarsit = goContract.data_inceput + 1
ENDIF
goContract.durata = INT((YEAR(goContract.data_sfarsit)*12 + MONTH(goContract.data_sfarsit)) - (YEAR(goContract.data_inceput)*12 + MONTH(goContract.data_inceput)))
thisform.txtDurata.Refresh
ENDPROC
PROCEDURE txtDurata.Valid
goContract.data_sfarsit = GOMONTH(goContract.data_inceput, goContract.durata)
thisform.txtData_sfarsit.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_fact AS frm_dg OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="ShapeNota" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="opt_facturare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_text_standard" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboNote" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lbNota" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 252
Name = "frm_dg_fact"
Width = 506
_shape1.Name = "_shape1"
_shape1.ZOrderSet = 1
_shape2.Name = "_shape2"
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "Facturare"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.ZOrderSet = 4
Gridsort1.Left = 120
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 4
*</PropValue>
ADD OBJECT 'cboNote' AS combobox WITH ;
BoundColumn = 2, ;
BoundTo = .T., ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "300,20", ;
ControlSource = "gocontract.id_nota", ;
Height = 24, ;
Left = 122, ;
Name = "cboNote", ;
ReadOnly = .T., ;
RowSource = "crsNote.denumire,id_nota", ;
RowSourceType = 2, ;
Top = 188, ;
Visible = .F., ;
Width = 267, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'ck_text_standard' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = 'Text suplimentar standard: "Conform contractului nr ... / data..."', ;
ControlSource = "gocontract.text_standard", ;
Height = 17, ;
Left = 33, ;
Name = "ck_text_standard", ;
ReadOnly = .T., ;
Top = 147, ;
Width = 357, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'lbNota' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nota contabila", ;
Height = 17, ;
Left = 33, ;
Name = "lbNota", ;
Top = 192, ;
Visible = .F., ;
Width = 81, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'opt_facturare' AS optiongroup WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
ButtonCount = 4, ;
ControlSource = "gocontract.opt_facturare", ;
Enabled = .F., ;
Height = 84, ;
Left = 24, ;
Name = "opt_facturare", ;
Top = 46, ;
Value = 1, ;
Width = 473, ;
ZOrderSet = 6, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Denumirea ratei, valoarea ratei urmatoare", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option1.Value = 1, ;
Option1.Width = 247, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Primul articol din lista de articole (obiectul contractului) + valoarea ratei urmatoare", ;
Option2.Height = 17, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option2.Width = 463, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Articole la alegere din lista de articole, cu preturile din lista de articole ", ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 398, ;
Option4.AutoSize = .T., ;
Option4.BackStyle = 0, ;
Option4.Caption = "Articole din liste de preturi generale", ;
Option4.Height = 17, ;
Option4.Left = 5, ;
Option4.Name = "Option4", ;
Option4.Top = 62, ;
Option4.Width = 211
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'ShapeNota' AS shape WITH ;
BackStyle = 0, ;
BorderColor = 163,163,163, ;
Height = 37, ;
Left = 24, ;
Name = "ShapeNota", ;
Top = 181, ;
Visible = .F., ;
Width = 473, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
PROCEDURE blocheaza_campuri
this.opT_FACTURARE.Enabled = .F.
this.ck_text_standard.ReadOnly = .T.
THIS.CBoNote.Enabled = .F.
this.cboNote.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
this.opT_FACTURARE.Enabled = .T.
this.ck_text_standard.ReadOnly = .F.
THIS.CBoNote.Enabled = .T.
this.cboNote.ReadOnly = .F.
ENDPROC
PROCEDURE cboNote.InteractiveChange
gocontract.id_nota = crsNote.id_nota
ENDPROC
PROCEDURE cboNote.Valid
gocontract.id_nota = crsNote.id_nota
ENDPROC
PROCEDURE opt_facturare.Init
this.Value = gocontract.opt_facturare
IF this.Value = 1 OR this.Value = 2
thisform.lbNota.Visible = .T.
thisform.shapeNota.Visible = .T.
thisform.cboNote.Visible = .T.
ENDIF
ENDPROC
PROCEDURE opt_facturare.Valid
IF this.Value = 1 OR this.Value = 2
thisform.lbNota.Visible = .T.
thisform.shapeNota.Visible = .T.
thisform.cboNote.Visible = .T.
ELSE
thisform.lbNota.Visible = .F.
thisform.shapeNota.Visible = .F.
thisform.cboNote.Visible = .F.
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_link AS frm_dg OF "ferestre_contracte.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_linkuri" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_linkuri.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_linkuri.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_linkuri.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_linkuri.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_linkuri.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_linkuri.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_edit1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
cgridsortlist = grid_linkuri
DoCreate = .T.
Height = 200
Name = "frm_dg_link"
Width = 571
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 481
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 91
Lb_titlu_alb_b121.Caption = "Documente atasate"
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Left = 168
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT 'But_edit1' AS but_sterge WITH ;
caction = inainte_de_do_modifica, ;
cpicturedown = eye_jos.bmp, ;
cpictureup = eye_sus.bmp, ;
Left = 511, ;
Name = "But_edit1", ;
Picture = ..\grafice\eye_sus.bmp, ;
TabIndex = 2, ;
ToolTipText = "Vizualizare document", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Enabled = .F., ;
Left = 482, ;
Name = "But_nou1", ;
TabIndex = 1, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Enabled = .F., ;
Left = 541, ;
Name = "But_sterge1", ;
TabIndex = 2, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_linkuri' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 3, ;
DeleteMark = .F., ;
GridLineColor = 192,192,192, ;
Height = 154, ;
HighlightStyle = 2, ;
Left = 6, ;
Name = "grid_linkuri", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cCtrLink", ;
Top = 36, ;
Width = 555, ;
Column1.ControlSource = "recno()", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 44, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "denumire_link", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 246, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "link", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 240
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_linkuri.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. crt.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_linkuri.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 'grid_linkuri.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_linkuri.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_linkuri.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Link", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_linkuri.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
PROCEDURE blocheaza_campuri
this.but_nou1.Enabled = .F.
this.but_sterge1.Enabled = .F.
ENDPROC
PROCEDURE deblocheaza_campuri
this.but_nou1.Enabled = .T.
this.but_sterge1.Enabled = .T.
ENDPROC
PROCEDURE do_adauga
PRIVATE pnId_ctr, pcDenumire, pcLink, pcObservatii, pnId_link
STORE 0 TO pnId_ctr, pnId_link
STORE "" TO pcDenumire, pcLink, pcObservatii
LOCAL lcTabelLinkuri
lcTabelLinkuri = THISFORM.grid_linkuri.RECORDSOURCE
SELECT (lcTabelLinkuri)
SCATTER NAME poLink BLANK MEMO
lodn = CREATEOBJECT("frm_ctr_link_nou")
lodn.SHOW(1)
pcDenumire = ALLTRIM(poLink.denumire_link)
pcLink = ALLTRIM(poLink.LINK)
pcObservatii = ALLTRIM(poLink.observatii)
pnId_ctr = goContract.id_ctr
lcSql = [begin pack_crm.adauga_ctr_link(?pnId_ctr, ?pcDenumire, ?pcLink, ?pcObservatii, ?@pnId_link); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
poLink.id_link = pnId_link
SELECT (lcTabelLinkuri)
APPEND BLANK
GATHER NAME poLink MEMO
REPLACE id_ctr WITH pnId_ctr
THISFORM.grid_linkuri.REFRESH
ENDPROC
PROCEDURE inainte_de_do_modifica
Private oWord
Local lcDocument
lcTabel = Thisform.grid_linkuri.RecordSource
Select (lcTabel)
If Reccount() >0
lcDocument = Link
If !File(lcDocument)
Messagebox("Nu exista fisierul "+lcDocument,16,"Eroare")
Return
Endif
*!* oWord = CREATEOBJECT('word.application')
*!* oDocument = oWord.Documents.OPEN(lcDocument)
*!* *oWord.CAPTION = "Contract Test"
*!* opuiu = CREATEOBJECT('shell.application')
*!* opuiu.minimizeAll
*!* RELEASE opuiu
*!* oWord.VISIBLE =.T.
*!* oWord = .NULL.
*!* RELEASE oWord
open_default_app(lcDocument)
Endif
ENDPROC
PROCEDURE inainte_de_do_sterge
LOCAL lcTabelLinkuri, lnRaspuns, lnInreg
lcTabelLinkuri = THISFORM.grid_linkuri.RECORDSOURCE
STORE 0 TO lnRaspuns, lnInreg
SELECT (lcTabelLinkuri)
lnRec = RECNO()
COUNT FOR !DELETED() TO lnInreg
IF lnInreg > 0
lnRaspuns = amessage('Doriti sa stergeti documentul?',4+32,_SCREEN.CAPTION)
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
RETURN
ENDIF
SELECT (lcTabelLinkuri)
GOTO lnRec
pcId_link = ALLTRIM(STR(id_link))
lcSql = [begin pack_crm.sterge_ctr_link(] + pcId_link + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
SELECT (lcTabelLinkuri)
DELETE
THISFORM.grid_linkuri.REFRESH
thisform.grid_linkuri.SetFocus()
ENDIF
ENDPROC
PROCEDURE grid_linkuri.Column2.Text1.DblClick
thisform.inainte_de_do_modifica()
ENDPROC
PROCEDURE grid_linkuri.Column3.Text1.DblClick
thisform.inainte_de_do_modifica()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_obiectul AS frm_dg OF "ferestre_contracte.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_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.cPret_unitar.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.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.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cUM.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.cValcDiscount.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.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.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_articole.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSumaArticole" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDiscount" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValcdiscount" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValDiscount" 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="Line1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCoef_discount" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValDiscountTotal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Line2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual
*m: do_modifica_ctr_art
*p: clistaidarticole
*p: cnewvalue
*p: coldvalue
*p: cxmlarticole
*p: ncoef_discount
*p: ndiscountmediu
*p: nsumaarticole
*p: nvalcdiscount
*p: nvaldiscount
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cgridsortlist = grid_articole
clistaidarticole =
cnewvalue =
coldvalue =
cxmlarticole =
DoCreate = .T.
Height = 446
Name = "frm_dg_obiectul"
ncoef_discount = 0
ndiscountmediu = 0
nsumaarticole = 0
nvalcdiscount = 0
nvaldiscount = 0
Width = 633
_shape1.Name = "_shape1"
_shape2.Anchor = 3
_shape2.Height = 29
_shape2.Left = 301
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 66
Lb_titlu_alb_b121.Caption = "Obiectul si valoarea contractului"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Left = 60
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 0
*</PropValue>
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 3, ;
Enabled = .F., ;
Left = 303, ;
Name = "But_nou1", ;
TabIndex = 6, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 3, ;
Enabled = .F., ;
Left = 335, ;
Name = "But_sterge1", ;
TabIndex = 5, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_articole' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 11, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 201, ;
HighlightStyle = 2, ;
Left = 8, ;
Name = "grid_articole", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cCtrArt", ;
RecordSourceType = 1, ;
TabIndex = 1, ;
Top = 36, ;
Width = 614, ;
Column1.ControlSource = "recno()", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 21, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "nume_articol", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cNume_art", ;
Column2.ReadOnly = .T., ;
Column2.Width = 166, ;
Column3.ColumnOrder = 5, ;
Column3.ControlSource = "pret_unitar", ;
Column3.FontName = "Arial Narrow", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(14,gnPA)), ;
Column3.Name = "cPret_unitar", ;
Column3.ReadOnly = .T., ;
Column3.Width = 37, ;
Column4.ColumnOrder = 11, ;
Column4.ControlSource = "nume_val", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cNume_val", ;
Column4.ReadOnly = .T., ;
Column4.Width = 35, ;
Column5.ColumnOrder = 4, ;
Column5.ControlSource = "cant", ;
Column5.FontName = "Arial Narrow", ;
Column5.Format = "rk", ;
Column5.InputMask = (get_mask(10,gnPCant)), ;
Column5.Name = "cCant", ;
Column5.ReadOnly = .T., ;
Column5.Width = 49, ;
Column6.ColumnOrder = 3, ;
Column6.ControlSource = "um", ;
Column6.FontName = "Arial Narrow", ;
Column6.Name = "cUM", ;
Column6.ReadOnly = .T., ;
Column6.Width = 42, ;
Column7.ColumnOrder = 6, ;
Column7.ControlSource = "valoare", ;
Column7.FontName = "Arial Narrow", ;
Column7.Format = "rk", ;
Column7.InputMask = (get_mask(14,gnPA)), ;
Column7.Name = "cValoare", ;
Column7.ReadOnly = .T., ;
Column7.Width = 49, ;
Column8.ColumnOrder = 7, ;
Column8.ControlSource = "coef_discount", ;
Column8.FontName = "Arial Narrow", ;
Column8.Format = "rk", ;
Column8.InputMask = (get_mask(10,gnPA)), ;
Column8.Name = "cCoef_Discount", ;
Column8.ReadOnly = .T., ;
Column8.Width = 42, ;
Column9.ColumnOrder = 10, ;
Column9.ControlSource = "cant *(pret_unitar-(coef_discount*pret_unitar)/100)", ;
Column9.FontName = "Arial Narrow", ;
Column9.Format = "rk", ;
Column9.InputMask = (get_mask(20,gnPA)), ;
Column9.Name = "cValcDiscount", ;
Column9.ReadOnly = .T., ;
Column9.Width = 44, ;
Column10.ColumnOrder = 8, ;
Column10.ControlSource = "val_discount", ;
Column10.FontName = "Arial Narrow", ;
Column10.InputMask = (get_mask(10,gnPA)), ;
Column10.Name = "cVal_discount", ;
Column10.ReadOnly = .T., ;
Column10.Width = 41, ;
Column11.ColumnOrder = 9, ;
Column11.ControlSource = "pret_unitar-(coef_discount*pret_unitar)/100", ;
Column11.FontName = "Arial Narrow", ;
Column11.InputMask = (get_mask(10,gnPA)), ;
Column11.Name = "Column11", ;
Column11.ReadOnly = .T., ;
Column11.Width = 45
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_articole.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cantitate", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cCant.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_articole.cCoef_Discount.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Discount (%)", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cNume_art.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Articol", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cNume_art.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_articole.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cNume_val.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. crt.", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.Column1.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_articole.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret unitar diminuat", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.Column11.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_articole.cPret_unitar.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret unitar", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cPret_unitar.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_articole.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Um", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cUM.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_articole.cVal_discount.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Discount unitar", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cVal_discount.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 'grid_articole.cValcDiscount.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare - Discount", ;
FontName = "Arial Narrow", ;
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 Narrow", ;
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 Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_articole.cValoare.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 = "Procent mediu discount articole", ;
Height = 17, ;
Left = 15, ;
Name = "Label1", ;
TabIndex = 14, ;
Top = 281, ;
Width = 175
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 273, ;
Name = "Label10", ;
TabIndex = 22, ;
Top = 351, ;
Width = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label15' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA", ;
Height = 17, ;
Left = 339, ;
Name = "Label15", ;
TabIndex = 23, ;
Top = 398, ;
Width = 23
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label16' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 403, ;
Name = "Label16", ;
TabIndex = 22, ;
Top = 398, ;
Width = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label21' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valoare articole", ;
Height = 17, ;
Left = 15, ;
Name = "Label21", ;
TabIndex = 19, ;
Top = 259, ;
Width = 115
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valoare articole cu discount", ;
Height = 17, ;
Left = 15, ;
Name = "Label3", ;
TabIndex = 21, ;
Top = 324, ;
Width = 181
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent discount general", ;
Height = 17, ;
Left = 15, ;
Name = "Label4", ;
TabIndex = 16, ;
Top = 351, ;
Width = 139
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total valoare discount articole", ;
Height = 17, ;
Left = 15, ;
Name = "Label5", ;
TabIndex = 18, ;
Top = 302, ;
Width = 165
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare discount general", ;
Height = 17, ;
Left = 15, ;
Name = "Label6", ;
TabIndex = 20, ;
Top = 372, ;
Width = 139
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total general - fara TVA", ;
Height = 17, ;
Left = 16, ;
Name = "Label7", ;
TabIndex = 17, ;
Top = 398, ;
Width = 129
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total general - cu TVA", ;
Height = 17, ;
Left = 16, ;
Name = "Label8", ;
TabIndex = 15, ;
Top = 420, ;
Width = 121
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 273, ;
Name = "Label9", ;
TabIndex = 22, ;
Top = 281, ;
Width = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Line1' AS line WITH ;
Anchor = 6, ;
Height = 0, ;
Left = 8, ;
Name = "Line1", ;
Top = 345, ;
Width = 332
*< END OBJECT: BaseClass="line" />
ADD OBJECT 'Line2' AS line WITH ;
Anchor = 6, ;
Height = 0, ;
Left = 8, ;
Name = "Line2", ;
Top = 393, ;
Width = 332
*< END OBJECT: BaseClass="line" />
ADD OBJECT 'txtCoef_discount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nCoef_discount", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(6,gnPA)), ;
Left = 213, ;
Name = "txtCoef_discount", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 349, ;
Width = 58
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtDiscount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nDiscountMediu", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(6,gnPA)), ;
Left = 213, ;
Name = "txtDiscount", ;
ReadOnly = .T., ;
TabIndex = 8, ;
Top = 279, ;
Width = 58
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtProc_tva' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.proc_tva", ;
Format = "rk", ;
Height = 23, ;
InputMask = "99", ;
Left = 364, ;
Name = "txtProc_tva", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 395, ;
Width = 38
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtSumaArticole' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nSumaArticole", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 213, ;
Name = "txtSumaArticole", ;
ReadOnly = .T., ;
TabIndex = 7, ;
Top = 257, ;
Width = 116
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValcdiscount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nValcdiscount", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 213, ;
Name = "txtValcdiscount", ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 323, ;
Width = 116
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValctva' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.valctva", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 213, ;
Name = "txtValctva", ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 418, ;
Width = 116
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValDiscount' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "thisform.nValDiscount", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 213, ;
Name = "txtValDiscount", ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 301, ;
Width = 116
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValDiscountTotal' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.val_discount", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 213, ;
Name = "txtValDiscountTotal", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 371, ;
Width = 116
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtValftva' AS textbox WITH ;
Anchor = 6, ;
ControlSource = "goContract.valftva", ;
Format = "rk", ;
Height = 21, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 213, ;
Name = "txtValftva", ;
ReadOnly = .T., ;
TabIndex = 11, ;
Top = 396, ;
Width = 116
*< END OBJECT: BaseClass="textbox" />
PROCEDURE afisactual
PARAMETERS tlDiscount_salvat
LOCAL lcTabelArticole
lcTabelArticole = THISFORM.grid_articole.RECORDSOURCE
SELECT (lcTabelArticole)
CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0)) TO THISFORM.nSumaArticole
CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0)*NVL(coef_discount,0)/100) TO THISFORM.nValDiscount
CALCULATE AVG(NVL(coef_discount,0)) TO THISFORM.nDiscountMediu
CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0) - NVL(val_discount,0)) TO THISFORM.nValcdiscount
THISFORM.nSumaArticole = ROUND(THISFORM.nSumaArticole, gnPC)
THISFORM.nValDiscount = ROUND(THISFORM.nValDiscount, gnPC)
THISFORM.nDiscountMediu = ROUND(THISFORM.nDiscountMediu, gnPC)
THISFORM.nValcdiscount = ROUND(THISFORM.nValcdiscount, gnPC)
THISFORM.txtSumaArticole.REFRESH
THISFORM.txtDiscount.REFRESH
THISFORM.txtValdiscount.REFRESH
THISFORM.txtValcdiscount.REFRESH
***
IF tlDiscount_salvat
* cand arat obiectul si valoarea contractului, adica pe init, sa iau datele salvate
IF THISFORM.nSumaArticole <> 0
*THISFORM.nCoef_discount = ROUND(NVL(goContract.val_discount,0) / THISFORM.nValcdiscount * 100, gnPC)
THISFORM.nCoef_discount = ROUND(NVL(goContract.val_discount,0) / THISFORM.nSumaArticole * 100, gnPC)
ENDIF
ELSE && cand calculez, trebuie sa arat cat imi da
THISFORM.nCoef_discount = THISFORM.nDiscountMediu
goContract.val_discount = THISFORM.nValDiscount
thisform.txtValDiscountTotal.Refresh
ENDIF
* thisform.txtCoef_discount.Valid
*goContract.valftva = THISFORM.nValcdiscount - NVL(goContract.val_discount,0)
goContract.valftva = THISFORM.nSumaArticole - NVL(goContract.val_discount,0)
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
THISFORM.txtCoef_discount.REFRESH
THISFORM.txtValftva.REFRESH
THISFORM.txtValctva.REFRESH
ENDPROC
PROCEDURE blocheaza_campuri
this.but_nou1.Enabled = .F.
this.but_sterge1.Enabled = .F.
this.grid_articole.ReadOnly = .T.
this.grid_articole.cNume_art.Enabled = .F.
this.txtCoef_discount.ReadOnly = .T.
this.txtValDiscountTotal.ReadOnly = .T.
this.txtProc_tva.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
this.but_nou1.Enabled = .T.
this.but_sterge1.Enabled = .T.
this.grid_articole.ReadOnly = .F.
this.grid_articole.cNume_art.Enabled = .T.
this.txtCoef_discount.ReadOnly = .F.
this.txtValDiscountTotal.ReadOnly = .F.
this.txtProc_tva.ReadOnly = .F.
ENDPROC
PROCEDURE do_adauga
THISFORM.ALWAYSONTOP = .F.
LOCAL lcCtrArt
lcCtrArt = THISFORM.grid_articole.RECORDSOURCE
DO CASE
CASE gnParametru_prog = 1 && clienti
lcSel = [{call pack_crm.get_politici_grup(] + ALLTRIM(STR(gnIdUtil)) + [)}]
lcCursor = 'crsPoliticiGrup1'
lnSucces = goExecutor.oExecute(lcSel, lcCursor)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
SELECT id_politica, nume_lista_preturi, TTOD(datai) AS datai, TTOD(DATAS) AS DATAS ;
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 ;
FROM cPol_pret_art WITH (BUFFERING = .T.) ;
WHERE ales = 1 ;
INTO CURSOR cAles
SELECT cAles
SCAN
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
pcId_pol_art = ALLTRIM(STR(id_pol_art))
pcPret_unitar = NVL(ALLTRIM(STR(pret_unitar,20,gnPC)),"0")
pcCant = ALLTRIM(STR(cant,10,gnPCant))
pcCoef_Discount = "0" && ALLTRIM(STR(coef_discount,10,gnPC))
pcVal_discount = "0" && ALLTRIM(STR(val_discount,20,gnPC))
pcId_valuta = ALLTRIM(STR(id_valuta))
pcUm = NVL(ALLTRIM(um),'')
pcExplicatie = "" && ALLTRIM(explicatie)
lcSql = [begin pack_crm.adauga_ctr_art(] + pcId_ctr + [,] + pcId_pol_art + [,] + pcPret_unitar + [,] + ;
pcCant + [,] + pcCoef_Discount + [,] + ;
pcVal_discount + [,] + pcId_valuta + [,'] + pcUm + [','] + pcExplicatie +['); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
SELECT cAles
ENDSCAN
SELECT (lcCtrArt)
APPEND FROM DBF('cAles')
IF USED('cAles')
USE IN cAles
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
SCAN
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
pcId_articol = ALLTRIM(STR(id_articol))
lcSql = [begin pack_crm.adauga_ctr_art_furn(] + pcId_ctr + [,] + pcId_articol +[); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
SELECT crsArticole
ENDSCAN
SELECT crsArticole.*, denumire AS nume_articol FROM crsArticole INTO CURSOR crsArticole2
SELECT (lcCtrArt)
APPEND FROM DBF('crsArticole2')
USE IN crsArticole
USE IN crsArticole2
ENDIF
ENDCASE
THISFORM.afisactual()
THISFORM.grid_articole.SETFOCUS()
THISFORM.ALWAYSONTOP = .T.
ENDPROC
PROCEDURE do_modifica_ctr_art
LOCAL lcTabel
lcTabel = thisform.grid_articole.RecordSource
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
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
SELECT (lcTabel)
pcParametru_prog = ALLTRIM(STR(gnParametru_prog))
pcId_pol_art = ALLTRIM(STR(id_pol_art))
pcId_articol = NVL(ALLTRIM(STR(id_articol)),'NULL')
pcCant = NVL(ALLTRIM(STR(cant,10,gnPCant)),"")
pcPret_unitar = ALLTRIM(STR(pret_unitar,20,gnPC))
pcCoef_discount = ALLTRIM(STR(coef_discount,10,gnPC))
pcVal_discount = ALLTRIM(STR(val_discount,20,gnPC))
pcId_valuta = ALLTRIM(STR(id_valuta))
lcSql = [begin pack_crm.modifica_ctr_art(] + pcParametru_prog + [,] + pcId_ctr + [,] + pcId_pol_art + [,] + pcId_articol + [,] + pcCant + [,] + ;
pcPret_unitar + [,] + pcCoef_discount + [,] + pcVal_discount + [,] + pcId_valuta + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
ENDPROC
PROCEDURE inainte_de_do_sterge
PRIVATE pcId_ctr, pcId_pol_art
STORE '' TO pcId_ctr, pcId_pol_art
LOCAL lcTabelCtrArt, lnRaspuns
lcTabelCtrArt = THISFORM.grid_articole.RECORDSOURCE
STORE 0 TO lnRaspuns
SELECT (lcTabelCtrArt)
lnRaspuns = amessage('Doriti sa stergeti prestatia?',4+32,_SCREEN.CAPTION)
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
lcSql = [begin pack_crm.sterge_ctr_art(] + ALLTRIM(STR(gnParametru_prog)) + [,] + pcId_ctr + [,] + pcId_pol_art + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
SELECT (lcTabelCtrArt)
DELETE
THISFORM.afisactual()
THISFORM.grid_articole.REFRESH
THISFORM.grid_articole.SETFOCUS
ENDPROC
PROCEDURE Init
DODEFAULT()
LOCAL llDiscountSalvat
llDiscountSalvat = .T.
thisform.afisactual(llDiscountSalvat)
ENDPROC
PROCEDURE grid_articole.cCant.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewValue = thisform.cOldValue
ENDPROC
PROCEDURE grid_articole.cCant.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_articole.cCant.Text1.LostFocus
LOCAL lcTabel
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
IF THISFORM.cOldValue <> THISFORM.cNewValue
thisform.do_modifica_ctr_art()
SELECT (lcTabel)
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
THISFORM.afisactual
ENDIF
ENDPROC
PROCEDURE grid_articole.cCoef_Discount.Text1.GotFocus
thisform.cOldValue = this.Value
thisform.cNewValue = thisform.cOldValue
ENDPROC
PROCEDURE grid_articole.cCoef_Discount.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_articole.cCoef_Discount.Text1.LostFocus
LOCAL lcTabel
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
IF THISFORM.cOldValue <> THISFORM.cNewValue
REPLACE val_discount WITH pret_unitar * cant * coef_discount / 100
thisform.do_modifica_ctr_art()
SELECT (lcTabel)
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
THISFORM.afisactual
ENDIF
ENDPROC
PROCEDURE grid_articole.cNume_val.Text1.DblClick
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
ENDPROC
PROCEDURE grid_articole.cPret_unitar.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewValue = thisform.cOldValue
ENDPROC
PROCEDURE grid_articole.cPret_unitar.Text1.InteractiveChange
thisform.cNewValue = this.Value
ENDPROC
PROCEDURE grid_articole.cPret_unitar.Text1.LostFocus
LOCAL lcTabel
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
IF THISFORM.cOldValue <> THISFORM.cNewValue
thisform.do_modifica_ctr_art()
SELECT (lcTabel)
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
THISFORM.afisactual
ENDIF
ENDPROC
PROCEDURE grid_articole.cValcDiscount.Text1.LostFocus
lcTabel = this.Parent.Parent.RecordSource
SELECT (lcTabel)
*REPLACE val_discount WITH (valoare - valcdiscount)*100/valoare
thisform.afisactual
ENDPROC
PROCEDURE grid_articole.cVal_discount.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.coldvalue
ENDPROC
PROCEDURE grid_articole.cVal_discount.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_articole.cVal_discount.Text1.LostFocus
LOCAL lcTabel
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
IF THISFORM.cOldValue <> THISFORM.cNewValue
IF pret_unitar * cant <> 0
REPLACE coef_discount WITH val_discount / (pret_unitar * cant) * 100
ENDIF
thisform.do_modifica_ctr_art()
SELECT (lcTabel)
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
THISFORM.afisactual
ENDIF
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,gnPC)
*goContract.valftva = THISFORM.nValcdiscount - goContract.val_discount
goContract.valftva = THISFORM.nSumaArticole - goContract.val_discount
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
THISFORM.txtValDiscountTotal.REFRESH
THISFORM.txtValftva.REFRESH
THISFORM.txtValctva.REFRESH
* ENDIF
ENDPROC
PROCEDURE txtProc_tva.Valid
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
THISFORM.txtValctva.REFRESH
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, gnPC)
*goContract.valftva = thisform.nValcdiscount - goContract.val_discount
goContract.valftva = thisform.nSumaArticole - goContract.val_discount
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
thisform.txtCoef_discount.Refresh
thisform.txtValftva.Refresh
thisform.txtValctva.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_observatii AS frm_dg OF "ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 330
Name = "frm_dg_observatii"
Width = 452
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Caption = "Clauze speciale si observatii"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Left = 233
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 4
*</PropValue>
ADD OBJECT 'Edit1' AS editbox WITH ;
Anchor = 15, ;
ControlSource = "goContract.observatii", ;
Height = 276, ;
Left = 12, ;
Name = "Edit1", ;
Top = 36, ;
Width = 408
*< END OBJECT: BaseClass="editbox" />
ENDDEFINE
DEFINE CLASS frm_dg_tf AS frm_dg OF "ferestre_contracte.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_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="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtRate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtProcente" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" 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="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdAplicaScadenta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual
*m: do_modifica_scadentar
*p: cnewvalue
*p: coldvalue
*p: nprocente
*p: nrate
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cgridsortlist = grid_scadentar
cnewvalue =
coldvalue =
DoCreate = .T.
Height = 364
Name = "frm_dg_tf"
nprocente = 0
nrate = 0
Width = 551
_shape1.Name = "_shape1"
_shape2.Anchor = 3
_shape2.Height = 29
_shape2.Left = 301
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 64
Lb_titlu_alb_b121.Caption = "Termene de facturare si achitare"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 6
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 7
Gridsort1.Left = 120
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 0
*</PropValue>
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 3, ;
Enabled = .F., ;
Left = 302, ;
Name = "But_nou1", ;
TabIndex = 2, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 3, ;
Enabled = .F., ;
Left = 334, ;
Name = "But_sterge1", ;
TabIndex = 3, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdAplicaScadenta' AS commandbutton WITH ;
Anchor = 12, ;
Caption = "Aplica", ;
Enabled = .F., ;
Height = 22, ;
Left = 482, ;
Name = "cmdAplicaScadenta", ;
TabIndex = 5, ;
Top = 276, ;
Width = 54
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'cmdMultiplicaRate' AS commandbutton WITH ;
Anchor = 6, ;
Caption = "Instrument de multiplicare rate", ;
Enabled = .F., ;
Height = 27, ;
Left = 8, ;
Name = "cmdMultiplicaRate", ;
TabIndex = 4, ;
Top = 333, ;
Width = 312
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Anchor = 6, ;
Caption = "Instrument de stergere rate", ;
Height = 27, ;
Left = 8, ;
Name = "Command2", ;
TabIndex = 17, ;
Top = 362, ;
Visible = .F., ;
Width = 312
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid_scadentar' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 7, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 236, ;
HighlightStyle = 2, ;
Left = 12, ;
Name = "grid_scadentar", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cCtrScadentar", ;
RowHeight = 18, ;
TabIndex = 1, ;
Top = 36, ;
Width = 528, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "nr_rata", ;
Column1.Enabled = .T., ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cNr_rata", ;
Column1.ReadOnly = .T., ;
Column1.Width = 29, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "data_rata", ;
Column2.Enabled = .T., ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cData_rata", ;
Column2.ReadOnly = .T., ;
Column2.Width = 55, ;
Column3.ColumnOrder = 6, ;
Column3.ControlSource = "valrata", ;
Column3.Enabled = .F., ;
Column3.FontName = "Arial Narrow", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(20,gnPA)), ;
Column3.Name = "cValrata", ;
Column3.ReadOnly = .T., ;
Column3.Width = 97, ;
Column4.ColumnOrder = 2, ;
Column4.ControlSource = "den_rata", ;
Column4.Enabled = .T., ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cDen_rata", ;
Column4.ReadOnly = .T., ;
Column4.Width = 146, ;
Column5.ColumnOrder = 5, ;
Column5.ControlSource = "procent", ;
Column5.Enabled = .F., ;
Column5.FontName = "Arial Narrow", ;
Column5.Format = "rk", ;
Column5.InputMask = (get_mask(20,gnPA)), ;
Column5.Name = "cProcent", ;
Column5.ReadOnly = .T., ;
Column5.Width = 69, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "nume_val", ;
Column6.Enabled = .F., ;
Column6.FontName = "Arial Narrow", ;
Column6.Name = "cNume_val", ;
Column6.ReadOnly = .T., ;
Column6.Width = 45, ;
Column7.ColumnOrder = 4, ;
Column7.ControlSource = "data_scadenta", ;
Column7.Enabled = .T., ;
Column7.FontName = "Arial Narrow", ;
Column7.Name = "cData_scadenta", ;
Column7.ReadOnly = .T., ;
Column7.Width = 59
*< 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, ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cData_scadenta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadentei", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cData_scadenta.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
Enabled = .T., ;
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, ;
Enabled = .T., ;
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, ;
Enabled = .T., ;
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, ;
Enabled = .F., ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid_scadentar.cProcent.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent (%)", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_scadentar.cProcent.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
Enabled = .F., ;
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, ;
Enabled = .F., ;
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 = "Suma rate:", ;
Height = 17, ;
Left = 12, ;
Name = "Label1", ;
TabIndex = 11, ;
Top = 305, ;
Width = 62
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label13' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Coef.penalitati", ;
Height = 17, ;
Left = 281, ;
Name = "Label13", ;
TabIndex = 16, ;
Top = 305, ;
Width = 81
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Suma procentelor", ;
Height = 17, ;
Left = 12, ;
Name = "Label2", ;
TabIndex = 10, ;
Top = 279, ;
Width = 100
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 186, ;
Name = "Label3", ;
TabIndex = 12, ;
Top = 279, ;
Width = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "zile", ;
Height = 17, ;
Left = 450, ;
Name = "Label4", ;
TabIndex = 15, ;
Top = 279, ;
Width = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Anchor = 12, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Scadenta incasare", ;
Height = 17, ;
Left = 281, ;
Name = "Label6", ;
TabIndex = 15, ;
Top = 279, ;
Width = 105
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtCoef_penalitati' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "goContract.coef_penalitati", ;
Height = 23, ;
Left = 388, ;
Name = "txtCoef_penalitati", ;
ReadOnly = .T., ;
TabIndex = 14, ;
Top = 302, ;
Width = 57
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtProcente' AS textbox WITH ;
Alignment = 3, ;
Anchor = 6, ;
ControlSource = "thisform.nProcente", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(5,gnPA)), ;
Left = 117, ;
Name = "txtProcente", ;
ReadOnly = .T., ;
TabIndex = 9, ;
TabStop = .F., ;
Top = 276, ;
Value = 0, ;
Width = 61
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtRate' AS textbox WITH ;
Alignment = 3, ;
Anchor = 6, ;
ControlSource = "thisform.nRate", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 117, ;
Name = "txtRate", ;
ReadOnly = .T., ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 302, ;
Value = 0, ;
Width = 113
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtScadenta_incasare' AS textbox WITH ;
Anchor = 12, ;
ControlSource = "goContract.scadenta_incasare", ;
Format = "rk", ;
Height = 23, ;
InputMask = "99", ;
Left = 388, ;
Name = "txtScadenta_incasare", ;
ReadOnly = .T., ;
TabIndex = 13, ;
Top = 276, ;
Width = 58
*< END OBJECT: BaseClass="textbox" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru = pcFiltru
IF EMPTY(lcFiltru)
lcFiltru = poCtrScadentar.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform.grid_scadentar)
poCtrScadentar.ca_baza1.cfiltru = lcFiltru
poCtrScadentar.ca_baza1.afisare()
restore_grid_tag(thisform.grid_scadentar)
IF RECCOUNT('cCtrScadentar')>0
thisform.grid_scadentar.SetFocus()
ENDIF
ENDPROC
PROCEDURE afisactual
Local lcTabelRate
lcTabelRate = Thisform.grid_scadentar.RecordSource
*!* SELECT (lcTabelRate)
*!* CALCULATE SUM(NVL(valrata,0)), SUM(NVL(procent,0)) TO THISFORM.nRate, THISFORM.nProcente
Select Sum(Nvl(valrata,0)) As valrata, Sum(Nvl(procent,0)) As procent ;
FROM (lcTabelRate) ;
INTO Cursor cTabelRate
Select cTabelRate
Thisform.nRate = valrata
Thisform.nProcente = procent
IF USED('cTabelRate')
USE IN cTabelRate
ENDIF
*!* SELECT (lcTabelRate)
*!* GO TOP
Thisform.txtRate.Refresh
Thisform.txtProcente.Refresh
ENDPROC
PROCEDURE blocheaza_campuri
this.but_nou1.Enabled = .F.
this.but_sterge1.Enabled = .F.
this.grid_scadentar.ReadOnly = .T.
*this.grid_scadentar.Enabled= .F.
this.grid_scadentar.cNume_val.Enabled= .F.
this.grid_scadentar.cProcent.Enabled= .F.
this.grid_scadentar.cValrata.Enabled= .F.
this.txtScadenta_incasare.ReadOnly = .T.
this.txtCoef_penalitati.ReadOnly = .T.
this.cmdMultiplicaRate.Enabled = .F.
this.cmdAplicaScadenta.Enabled = .F.
ENDPROC
PROCEDURE deblocheaza_campuri
this.but_nou1.Enabled = .T.
this.but_sterge1.Enabled = .T.
this.grid_scadentar.ReadOnly = .F.
*this.grid_scadentar.Enabled= .T.
this.grid_scadentar.cNume_val.Enabled= .T.
this.grid_scadentar.cProcent.Enabled= .T.
this.grid_scadentar.cValrata.Enabled= .T.
this.txtScadenta_incasare.ReadOnly = .F.
this.txtCoef_penalitati.ReadOnly = .F.
this.cmdMultiplicaRate.Enabled = .T.
this.cmdAplicaScadenta.Enabled = .T.
ENDPROC
PROCEDURE do_adauga
PRIVATE pnId_ctr, pnId_scadentar
STORE 0 TO pnId_scadentar
Local lcTabel, lnRataMax
lcTabel = thisform.grid_scadentar.RecordSource
Store 0 To lnRataMax
pnId_ctr = goContract.id_ctr
lcSql = [begin pack_crm.adauga_scadentar(?pnId_ctr, ?gnIdUtil, ?@pnId_scadentar); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
thisform.actualizeaza_grid1()
SELECT (lcTabel)
GO BOTTOM
*!* Select (lcTabel)
*!* Calculate Max(nr_rata) To lnRataMax
*!* Append Blank
*!* Replace id_scadentar WITH pnId_scadentar, ;
*!* nr_rata With lnRataMax+1, ;
*!* nume_val With goContract.nume_val, ;
*!* id_valuta With goContract.id_valuta
thisform.grid_scadentar.Refresh
ENDPROC
PROCEDURE do_modifica_scadentar
LOCAL lcTabel, lcId_scadentar, lcNr_rata, lcData_rata, lcData_scadenta, lcValrata, lcId_valuta, lcDen_rata, lcProcent
STORE '' TO lcId_scadentar, lcNr_rata, lcData_rata, lcValrata, lcId_valuta, lcDen_rata, lcProcent
lcTabel = thisform.grid_scadentar.RecordSource
SELECT (lcTabel)
lcId_scadentar = ALLTRIM(STR(id_rata))
lcNr_rata = NVL(ALLTRIM(STR(nr_rata)),'0')
lcData_rata = ALLTRIM(DTOS(data_rata))
lcData_scadenta = ALLTRIM(DTOS(data_scadenta))
lcValrata = NVL(ALLTRIM(STR(valrata,20,gnPC)),'0')
lcId_valuta = NVL(ALLTRIM(STR(id_valuta)),'0')
lcDen_rata = NVL(ALLTRIM(den_rata),'')
lcProcent = NVL(ALLTRIM(STR(procent,5,gnPC)),'0')
lcSql = [begin pack_crm.modifica_scadentar(] + lcId_scadentar + [,] + lcNr_rata + ;
[,to_date(]+IIF(!EMPTY(lcData_rata) and !ISNULL(lcData_rata),[']+lcData_rata+['],[NULL])+[,'YYYYMMDD')] + ;
[,to_date(]+IIF(!EMPTY(lcData_scadenta) and !ISNULL(lcData_scadenta),[']+lcData_scadenta+['],[NULL])+[,'YYYYMMDD'),] + ;
lcValrata + [,] + lcId_valuta + [,'] + lcDen_rata + [',] + lcProcent + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
ENDPROC
PROCEDURE inainte_de_do_sterge
LOCAL lcTabel, lcId_scadentar
lcTabel = THISFORM.grid_scadentar.RECORDSOURCE
STORE '' TO lcId_scadentar
SELECT cCtrScadentar && (lcTabel)
lcId_scadentar = ALLTRIM(STR(id_rata))
lnRaspuns = AMESSAGEBOX('Doriti sa stergeti rata?',4+32,_SCREEN.CAPTION)
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
RETURN
ENDIF
lcSql = [begin pack_crm.sterge_scadentar(]+lcId_scadentar + [,] + ALLTRIM(STR(gnIdUtil)) +[); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
THISFORM.actualizeaza_grid1()
THISFORM.grid_scadentar.REFRESH
THISFORM.afisactual
ENDPROC
PROCEDURE Init
DODEFAULT()
thisform.afisactual
ENDPROC
PROCEDURE cmdAplicaScadenta.Click
PRIVATE pcId_ctr, pcZileScadenta
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
lnZileScadenta = thisform.txtScadenta_incasare.Value
pcZileScadenta = ALLTRIM(STR(lnZileScadenta))
lcSql = [begin pack_crm.update_scadenta(] + pcId_ctr + [,] + pcZileScadenta + [); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
lcTabelRate = thisform.grid_scadentar.RecordSource
SELECT (lcTabelRate)
REPLACE ALL data_scadenta WITH data_rata + lnZileScadenta
thisform.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))
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;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
thisform.actualizeaza_grid1()
thisform.afisactual
ENDPROC
PROCEDURE grid_scadentar.cData_rata.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.cOldvalue
ENDPROC
PROCEDURE grid_scadentar.cData_rata.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_scadentar.cData_rata.Text1.LostFocus
IF thisform.cOldvalue<> thisform.cNewvalue
thisform.do_modifica_scadentar()
ENDIF
ENDPROC
PROCEDURE grid_scadentar.cData_scadenta.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.cOldvalue
ENDPROC
PROCEDURE grid_scadentar.cData_scadenta.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_scadentar.cData_scadenta.Text1.LostFocus
IF thisform.cOldvalue <> thisform.cNewvalue
thisform.do_modifica_scadentar()
ENDIF
ENDPROC
PROCEDURE grid_scadentar.cDen_rata.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.cOldvalue
ENDPROC
PROCEDURE grid_scadentar.cDen_rata.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_scadentar.cDen_rata.Text1.LostFocus
*IF thisform.cOldvalue <> thisform.cNewvalue
thisform.do_modifica_scadentar()
*ENDIF
ENDPROC
PROCEDURE grid_scadentar.cNr_rata.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.cOldvalue
ENDPROC
PROCEDURE grid_scadentar.cNr_rata.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_scadentar.cNr_rata.Text1.LostFocus
*IF thisform.cOldvalue<> thisform.cNewvalue
thisform.do_modifica_scadentar()
*ENDIF
ENDPROC
PROCEDURE grid_scadentar.cNume_val.Text1.DblClick
locauta = caut_valuta()
IF buton=2
RETURN
ENDIF
lcTabel = this.Parent.Parent.RecordSource
SELECT (lcTabel)
REPLACE id_valuta WITH locauta.id_valuta, nume_val WITH locauta.nume_val
thisform.do_modifica_scadentar()
this.Parent.Parent.Refresh
ENDPROC
PROCEDURE grid_scadentar.cNume_val.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.cOldvalue
ENDPROC
PROCEDURE grid_scadentar.cNume_val.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_scadentar.cNume_val.Text1.LostFocus
IF thisform.cOldvalue <> thisform.cNewvalue
thisform.do_modifica_scadentar()
ENDIF
ENDPROC
PROCEDURE grid_scadentar.cProcent.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.cOldvalue
ENDPROC
PROCEDURE grid_scadentar.cProcent.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_scadentar.cProcent.Text1.LostFocus
*IF thisform.cOldvalue<> thisform.cNewvalue
thisform.do_modifica_scadentar()
*ENDIF
LOCAL lnProc
lnProc = this.Value
IF lnProc*0 = 0 AND goContract.valftva*0 = 0&& <> *************
REPLACE valrata WITH NVL(goContract.valftva,0) * lnProc/100
ELSE
REPLACE valrata WITH 0
ENDIF
thisform.afisactual
ENDPROC
PROCEDURE grid_scadentar.cValrata.Text1.GotFocus
thisform.cOldvalue = this.Value
thisform.cNewvalue = thisform.cOldvalue
ENDPROC
PROCEDURE grid_scadentar.cValrata.Text1.InteractiveChange
thisform.cNewvalue = this.Value
ENDPROC
PROCEDURE grid_scadentar.cValrata.Text1.LostFocus
* IF thisform.cOldvalue <> thisform.cNewvalue
thisform.do_modifica_scadentar()
* ENDIF
IF goContract.valftva <> 0 AND goContract.valftva*0 = 0 && <> *************
REPLACE procent WITH valrata/goContract.valftva * 100
ELSE
REPLACE procent WITH 0
ENDIF
THISFORM.afisactual
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_tl AS frm_dg OF "ferestre_contracte.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="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.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrnt_pv_data_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual
*m: do_modifica_ctr_art
*p: clistaidarticole
*p: cnewvalue
*p: coldvalue
*p: cxmlarticole
*p: ncoef_discount
*p: ndiscountmediu
*p: nsumaarticole
*p: nvalcdiscount
*p: nvaldiscount
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
clistaidarticole =
cnewvalue =
coldvalue =
cxmlarticole =
DoCreate = .T.
Height = 287
Name = "frm_dg_tl"
ncoef_discount = 0
ndiscountmediu = 0
nsumaarticole = 0
nvalcdiscount = 0
nvaldiscount = 0
Width = 698
_shape1.Name = "_shape1"
_shape2.Anchor = 3
_shape2.Height = 29
_shape2.Left = 301
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 66
Lb_titlu_alb_b121.Caption = "Termene de livrare/receptie si Garantii"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 13
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 14
Gridsort1.Left = 60
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 0
*</PropValue>
ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ;
Left = 588, ;
Name = "BUT_MODIFICA1", ;
TabIndex = 11, ;
Top = 41, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 554, ;
Name = "But_nou1", ;
TabIndex = 10, ;
Top = 41
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 621, ;
Name = "But_sterge1", ;
TabIndex = 12, ;
Top = 41, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
AutoSize = .T., ;
Caption = "Atasare factura la contract", ;
Height = 27, ;
Left = 408, ;
Name = "Command1", ;
TabIndex = 8, ;
Top = 5, ;
Width = 159
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'grid_Fact_garant' AS _grdbase WITH ;
ColumnCount = 4, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
Height = 200, ;
Left = 339, ;
Name = "grid_Fact_garant", ;
Panel = 1, ;
RecordSource = "cCtrFactGarant", ;
TabIndex = 9, ;
Top = 73, ;
Width = 338, ;
Column1.ControlSource = "nract", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column1", ;
Column1.Width = 67, ;
Column2.ControlSource = "dataact", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column2", ;
Column2.Width = 65, ;
Column3.ControlSource = "valftva", ;
Column3.FontName = "Arial Narrow", ;
Column3.Format = "rk", ;
Column3.InputMask = (get_mask(12,gnPA)), ;
Column3.Name = "Column3", ;
Column3.Width = 98, ;
Column4.ControlSource = "garantie", ;
Column4.FontName = "Arial Narrow", ;
Column4.Format = "rk", ;
Column4.InputMask = (get_mask(12,gnPA)), ;
Column4.Name = "Column4", ;
Column4.Width = 70
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_Fact_garant.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.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_Fact_garant.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.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_Fact_garant.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare (fara TVA)", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.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_Fact_garant.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Garantii retinute", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_Fact_garant.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 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "PV predare-primire finala", ;
Height = 17, ;
Left = 16, ;
Name = "Label1", ;
TabIndex = 23, ;
Top = 177, ;
Width = 139
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Facturi - Garantii retinute", ;
Height = 17, ;
Left = 348, ;
Name = "Label10", ;
TabIndex = 16, ;
Top = 54, ;
Width = 136, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label11' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data contractuala de predare-primire", ;
Height = 17, ;
Left = 16, ;
Name = "Label11", ;
TabIndex = 24, ;
Top = 152, ;
Width = 204
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoare garantie retinuta", ;
Height = 17, ;
Left = 16, ;
Name = "Label2", ;
TabIndex = 22, ;
Top = 77, ;
Width = 136, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Returnare partiala", ;
Height = 17, ;
Left = 16, ;
Name = "Label3", ;
TabIndex = 19, ;
Top = 103, ;
Width = 101, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent garantie retinut", ;
Height = 17, ;
Left = 16, ;
Name = "Label4", ;
TabIndex = 15, ;
Top = 51, ;
Width = 129, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "(nr. zile)", ;
Height = 17, ;
Left = 199, ;
Name = "Label5", ;
TabIndex = 20, ;
Top = 103, ;
Width = 45, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Procent returnare", ;
Height = 17, ;
Left = 16, ;
Name = "Label6", ;
TabIndex = 21, ;
Top = 129, ;
Width = 97, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "/", ;
Height = 17, ;
Left = 230, ;
Name = "Label7", ;
TabIndex = 25, ;
Top = 177, ;
Width = 5
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 199, ;
Name = "Label8", ;
TabIndex = 18, ;
Top = 51, ;
Width = 13, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 199, ;
Name = "Label9", ;
TabIndex = 17, ;
Top = 129, ;
Width = 13, ;
ZOrderSet = 38
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txtGrnt_alerta1' AS textbox WITH ;
ControlSource = "goContract.grnt_alerta1", ;
Format = "rk", ;
Height = 23, ;
InputMask = "9999", ;
Left = 155, ;
Name = "txtGrnt_alerta1", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 100, ;
Width = 43, ;
ZOrderSet = 39
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_proc_alerta1' AS textbox WITH ;
ControlSource = "goContract.grnt_proc_alerta1", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(4,0)), ;
Left = 155, ;
Name = "txtGrnt_proc_alerta1", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 126, ;
Width = 43, ;
ZOrderSet = 39
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_proc_ret' AS textbox WITH ;
ControlSource = "goContract.grnt_proc_ret", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(4,0)), ;
Left = 155, ;
Name = "txtGrnt_proc_ret", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 48, ;
Width = 43, ;
ZOrderSet = 39
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_pv_data' AS textbox WITH ;
ControlSource = "goContract.grnt_pv_data", ;
Format = "rk", ;
Height = 23, ;
Left = 239, ;
Name = "txtGrnt_pv_data", ;
ReadOnly = .T., ;
TabIndex = 7, ;
Top = 174, ;
Width = 72
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_pv_data_ctr' AS textbox WITH ;
ControlSource = "goContract.grnt_pv_data_ctr", ;
Format = "rk", ;
Height = 23, ;
Left = 239, ;
Name = "txtGrnt_pv_data_ctr", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 149, ;
Width = 72
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_pv_nr' AS textbox WITH ;
ControlSource = "goContract.grnt_pv_nr", ;
Format = "rk", ;
Height = 23, ;
InputMask = "9999999999", ;
Left = 155, ;
Name = "txtGrnt_pv_nr", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 174, ;
Width = 72
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtGrnt_val_ret' AS textbox WITH ;
ControlSource = "goContract.grnt_val_ret", ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(10,gnPA)), ;
Left = 155, ;
Name = "txtGrnt_val_ret", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 74, ;
Width = 156, ;
ZOrderSet = 39
*< END OBJECT: BaseClass="textbox" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru = pcFiltru
IF EMPTY(lcFiltru)
lcFiltru = poCtrFactGarant.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform.grid_Fact_garant)
poCtrFactGarant.ca_baza1.cfiltru = lcFiltru
poCtrFactGarant.ca_baza1.afisare()
restore_grid_tag(thisform.grid_Fact_garant)
IF RECCOUNT('cCtrFactGarant')>0
thisform.grid_Fact_garant.SetFocus()
ENDIF
ENDPROC
PROCEDURE afisactual
ENDPROC
PROCEDURE blocheaza_campuri
this.txtgrnt_proc_ret.ReadOnly = .T.
this.txtGrnt_val_ret.ReadOnly = .T.
this.txtGrnt_alerta1.ReadOnly = .T.
this.txtGrnt_proc_alerta1.ReadOnly = .T.
this.txtGrnt_pv_nr.ReadOnly = .T.
this.txtGrnt_pv_data.ReadOnly = .T.
this.txtGrnt_pv_data_ctr.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
this.txtgrnt_proc_ret.ReadOnly = .F.
this.txtGrnt_val_ret.ReadOnly = .F.
this.txtGrnt_alerta1.ReadOnly = .F.
this.txtGrnt_proc_alerta1.ReadOnly = .F.
this.txtGrnt_pv_nr.ReadOnly = .F.
this.txtGrnt_pv_data.ReadOnly = .F.
this.txtGrnt_pv_data_ctr.ReadOnly = .F.
ENDPROC
PROCEDURE do_adauga
Private poFactGaran
Store '' To poFactGaran
Local lnNrAct, ldDataAct, lnCod, lnId_fact
Store 0 To 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,2)]
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,2)]
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' ]
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
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,gnPA)
lofg = Createobject('frm_fact_garant')
lofg.Show(1)
If buton = 2
Return
Endif
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
&& Insert Into cCtrFactGarant (nract, dataact, valftva, garantie) Values (lnNrAct, ldDataAct, pnFactValftva, pnGarantieRetinuta)
ENDPROC
PROCEDURE do_modifica_ctr_art
ENDPROC
PROCEDURE inainte_de_do_modifica
Private pnFactValftva, pnGarantieRetinuta
STORE 0 TO pnFactValftva, pnGarantieRetinuta
LOCAL lnId_ctr_fact_garan
STORE 0 TO lnId_ctr_fact_garan
SELECT cCtrFactGarant
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
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_sterge
LOCAL lnRaspuns, lnId_ctr_fact_garan, lcSql, lnSucces
lnRaspuns = AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_SCREEN.CAPTION)
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
RETURN
ENDIF
SELECT cCtrFactGarant
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 Command1.Click
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 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
Reference in New Issue View Git Blame Copy Permalink