*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
*
*m: do_adauga_act_aditional
*p: nireg
*
*
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"
*
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="\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="" />
*
BackColor = 255,255,255
Height = 401
Name = "ct_date_generale"
Width = 800
*
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ída"
laNos[4,1] = "Itens enviados"
laNos[5,1] = "Itens excluí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="" />
*
*m: blocheaza_campuri
*m: deblocheaza_campuri
*p: llock
*
*
BackColor = 255,255,255
Height = 116
llock = .T.
Name = "ct_part_nr_data"
Width = 600
*
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="" />
*
*p: nireg
*
*
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"
*
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="\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="" />
*
Name = "cus_odata_actaditional"
*
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="" />
*
Name = "cus_odata_selectie"
*
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="" />
*
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"
*
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="" />
*
*m: blocheaza_campuri
*m: deblocheaza_campuri
*
*
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"
*
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="" />
*
*p: llock
*
*
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
*
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="" />
*
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
*
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="" />
*
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
*
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="" />
*
*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
*
*
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
*
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="" />
*
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
*
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="" />
*
*m: afisactual
*m: do_modifica_scadentar
*p: cnewvalue
*p: coldvalue
*p: nprocente
*p: nrate
*
*
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
*
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="" />
*
*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
*
*
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
*
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