Marius Mutu
63f3828d5e
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
6810 lines
204 KiB
Plaintext
6810 lines
204 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="copy of ferestre_registratura.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
*< LIBCOMMENT: Application Wizard framework class library. />
|
||
*
|
||
DEFINE CLASS ct_contracte AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx"
|
||
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_contracte" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cNume.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cNume.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cDurata.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cDurata.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cTipc.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cTipc.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cValctva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cValctva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Check1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Check1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Check1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column12.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column12.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column13.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column13.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column14.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column14.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column15.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column15.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column16.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column16.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column17.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column17.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column18.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column18.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column19.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column19.Check1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column20.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_contracte.Column20.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="optIncetat" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="ck_valftva" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_valctva" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="optInactiv" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_nume_val" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_tipc" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_denumire_tip" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="ck_istoric" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="ck_aa" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_adauga_act_aditional
|
||
*p: nireg
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BackColor = 255,255,255
|
||
cgridsortlist = grid_contracte
|
||
Height = 362
|
||
Name = "ct_contracte"
|
||
nireg = 0
|
||
Width = 800
|
||
Gridsort1.Name = "Gridsort1"
|
||
_ct_controller_keypress1.Name = "_ct_controller_keypress1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
||
Left = 391, ;
|
||
Name = "But_excel1", ;
|
||
TabIndex = 18, ;
|
||
Top = 2, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
||
Left = 363, ;
|
||
Name = "But_listare1", ;
|
||
TabIndex = 17, ;
|
||
Top = 2, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 3, ;
|
||
Left = 306, ;
|
||
Name = "But_nou1", ;
|
||
Picture = ..\comun\grafice\nou_sus.bmp, ;
|
||
TabIndex = 14, ;
|
||
ToolTipText = "Adaugare contract (CTRL+N)", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou2' AS but_nou WITH ;
|
||
caction = do_adauga_act_aditional, ;
|
||
Left = 391, ;
|
||
Name = "But_nou2", ;
|
||
ToolTipText = "Adaugare act aditional", ;
|
||
Top = 30
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 3, ;
|
||
Left = 335, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 15, ;
|
||
Top = 2, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'ck_aa' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Acte aditionale", ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 18, ;
|
||
Left = 306, ;
|
||
Name = "ck_aa", ;
|
||
Top = 29, ;
|
||
Width = 78
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = data, ;
|
||
Caption = "Data ctr.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 113, ;
|
||
Name = "Ck_data_ctr", ;
|
||
TabIndex = 3, ;
|
||
tip = D, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 32
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_denumire_tip' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = denumire_tip, ;
|
||
Caption = "Tip contract", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 113, ;
|
||
Name = "Ck_denumire_tip", ;
|
||
TabIndex = 7, ;
|
||
Top = 29, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'ck_istoric' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Istoric", ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,128,0, ;
|
||
Height = 18, ;
|
||
Left = 306, ;
|
||
Name = "ck_istoric", ;
|
||
Top = 43, ;
|
||
Width = 43
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = numar_aa, ;
|
||
Caption = "Nr. ctr.", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 63, ;
|
||
Name = "Ck_nr_ctr", ;
|
||
TabIndex = 2, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = denumire, ;
|
||
Caption = "Partener", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 8, ;
|
||
Name = "Ck_nume", ;
|
||
TabIndex = 1, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_nume_val' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = nume_val, ;
|
||
Caption = "Valuta", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 8, ;
|
||
Name = "Ck_nume_val", ;
|
||
TabIndex = 5, ;
|
||
Top = 29, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_tipc' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = denumire_tip, ;
|
||
Caption = "Tip ctr.", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 63, ;
|
||
Name = "Ck_tipc", ;
|
||
TabIndex = 6, ;
|
||
Top = 29, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_valctva' AS ck_filtru_numar WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = valctva, ;
|
||
Caption = "Valoare ctr. (cu TVA)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 182, ;
|
||
mask = (get_mask(12,gnPa)), ;
|
||
Name = "Ck_valctva", ;
|
||
nrzec = (gnPa), ;
|
||
TabIndex = 8, ;
|
||
Top = 29, ;
|
||
ZOrderSet = 27
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'ck_valftva' AS ck_filtru_numar WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = valftva, ;
|
||
Caption = "Valoare ctr. (fara TVA)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 182, ;
|
||
mask = (get_mask(12,gnPa)), ;
|
||
Name = "ck_valftva", ;
|
||
nrzec = (gnPa), ;
|
||
TabIndex = 4, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 27
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||
Anchor = 12, ;
|
||
Height = 27, ;
|
||
Left = 632, ;
|
||
Name = "Clb_tx_simplu1", ;
|
||
TabIndex = 16, ;
|
||
Top = 331, ;
|
||
Width = 153, ;
|
||
Text_simplu1.ControlSource = "this.parent.parent.nIreg", ;
|
||
Text_simplu1.Height = 21, ;
|
||
Text_simplu1.Left = 76, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.ReadOnly = .T., ;
|
||
Text_simplu1.Top = 3, ;
|
||
Text_simplu1.Width = 72, ;
|
||
LB_SIMPLU1.Caption = "Inregistrari", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||
Anchor = 3, ;
|
||
Comment = "*:OnResize=LT", ;
|
||
Height = 23, ;
|
||
Left = 693, ;
|
||
Name = "Cmd_cauta1", ;
|
||
TabIndex = 9, ;
|
||
Top = 4, ;
|
||
Width = 67, ;
|
||
ZOrderSet = 20
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
|
||
Anchor = 3, ;
|
||
Comment = "*:OnResize=LT", ;
|
||
Height = 23, ;
|
||
Left = 693, ;
|
||
Name = "Cmd_reset1", ;
|
||
TabIndex = 13, ;
|
||
Top = 28, ;
|
||
Width = 67, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_contracte' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 20, ;
|
||
DeleteMark = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
GridLineColor = 192,192,192, ;
|
||
HeaderHeight = 38, ;
|
||
Height = 270, ;
|
||
HighlightStyle = 2, ;
|
||
Left = 8, ;
|
||
Name = "grid_contracte", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .T., ;
|
||
RecordMark = .F., ;
|
||
RecordSource = "cContracte", ;
|
||
TabIndex = 10, ;
|
||
Top = 59, ;
|
||
Width = 777, ;
|
||
Column1.ColumnOrder = 1, ;
|
||
Column1.ControlSource = "denumire", ;
|
||
Column1.FontName = "Arial Narrow", ;
|
||
Column1.Name = "cNume", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 193, ;
|
||
Column2.ColumnOrder = 13, ;
|
||
Column2.ControlSource = "durata", ;
|
||
Column2.FontName = "Arial Narrow", ;
|
||
Column2.Name = "cDurata", ;
|
||
Column2.ReadOnly = .T., ;
|
||
Column2.Width = 43, ;
|
||
Column3.ColumnOrder = 10, ;
|
||
Column3.ControlSource = "nume_val", ;
|
||
Column3.FontName = "Arial Narrow", ;
|
||
Column3.Name = "cNume_val", ;
|
||
Column3.ReadOnly = .T., ;
|
||
Column3.Width = 63, ;
|
||
Column4.ColumnOrder = 2, ;
|
||
Column4.ControlSource = "iif(tip_istoric='A',numar_aa,numar)", ;
|
||
Column4.FontName = "Arial Narrow", ;
|
||
Column4.Name = "cNr_ctr", ;
|
||
Column4.ReadOnly = .T., ;
|
||
Column4.Width = 48, ;
|
||
Column5.ColumnOrder = 3, ;
|
||
Column5.ControlSource = "data", ;
|
||
Column5.FontName = "Arial Narrow", ;
|
||
Column5.Format = "d", ;
|
||
Column5.Name = "cData_ctr", ;
|
||
Column5.ReadOnly = .T., ;
|
||
Column5.Width = 51, ;
|
||
Column6.ColumnOrder = 8, ;
|
||
Column6.ControlSource = "valftva", ;
|
||
Column6.FontName = "Arial Narrow", ;
|
||
Column6.Format = "rk", ;
|
||
Column6.InputMask = (get_mask(14,gnPA)), ;
|
||
Column6.Name = "cValvaluta", ;
|
||
Column6.ReadOnly = .T., ;
|
||
Column6.Width = 72, ;
|
||
Column7.ColumnOrder = 14, ;
|
||
Column7.ControlSource = "denumire_tip", ;
|
||
Column7.FontName = "Arial Narrow", ;
|
||
Column7.Name = "cTipc", ;
|
||
Column7.ReadOnly = .T., ;
|
||
Column7.Width = 170, ;
|
||
Column8.ColumnOrder = 9, ;
|
||
Column8.ControlSource = "valctva", ;
|
||
Column8.FontName = "Arial Narrow", ;
|
||
Column8.Format = "rk", ;
|
||
Column8.InputMask = (get_mask(14,gnPA)), ;
|
||
Column8.Name = "cValctva", ;
|
||
Column8.ReadOnly = .T., ;
|
||
Column8.Width = 73, ;
|
||
Column9.Alignment = 2, ;
|
||
Column9.ColumnOrder = 16, ;
|
||
Column9.ControlSource = "semnat", ;
|
||
Column9.FontName = "Arial Narrow", ;
|
||
Column9.Name = "cSemnat", ;
|
||
Column9.ReadOnly = .T., ;
|
||
Column9.Sparse = .F., ;
|
||
Column9.Width = 42, ;
|
||
Column10.Alignment = 2, ;
|
||
Column10.ColumnOrder = 17, ;
|
||
Column10.ControlSource = "abs(incetat-1)", ;
|
||
Column10.FontName = "Arial Narrow", ;
|
||
Column10.Name = "cIncetat", ;
|
||
Column10.ReadOnly = .T., ;
|
||
Column10.Sparse = .F., ;
|
||
Column10.Width = 52, ;
|
||
Column11.Alignment = 2, ;
|
||
Column11.ColumnOrder = 19, ;
|
||
Column11.ControlSource = "abs(inactiv-1)", ;
|
||
Column11.FontName = "Arial Narrow", ;
|
||
Column11.Name = "cInactiv", ;
|
||
Column11.ReadOnly = .T., ;
|
||
Column11.Sparse = .F., ;
|
||
Column11.Width = 29, ;
|
||
Column12.ColumnOrder = 7, ;
|
||
Column12.ControlSource = "descriere", ;
|
||
Column12.FontName = "Arial Narrow", ;
|
||
Column12.Name = "Column12", ;
|
||
Column12.ReadOnly = .T., ;
|
||
Column13.ColumnOrder = 15, ;
|
||
Column13.ControlSource = "selectie", ;
|
||
Column13.FontName = "Arial Narrow", ;
|
||
Column13.Name = "Column13", ;
|
||
Column13.ReadOnly = .T., ;
|
||
Column14.ColumnOrder = 5, ;
|
||
Column14.ControlSource = "numar_intern", ;
|
||
Column14.FontName = "Arial Narrow", ;
|
||
Column14.Name = "Column14", ;
|
||
Column14.ReadOnly = .T., ;
|
||
Column14.Width = 45, ;
|
||
Column15.ColumnOrder = 6, ;
|
||
Column15.ControlSource = "data_intern", ;
|
||
Column15.FontName = "Arial Narrow", ;
|
||
Column15.Name = "Column15", ;
|
||
Column15.ReadOnly = .T., ;
|
||
Column15.Width = 51, ;
|
||
Column16.ColumnOrder = 11, ;
|
||
Column16.ControlSource = "data_inceput", ;
|
||
Column16.FontName = "Arial Narrow", ;
|
||
Column16.Name = "Column16", ;
|
||
Column16.ReadOnly = .T., ;
|
||
Column16.Width = 50, ;
|
||
Column17.ColumnOrder = 12, ;
|
||
Column17.ControlSource = "data_sfarsit", ;
|
||
Column17.FontName = "Arial Narrow", ;
|
||
Column17.Name = "Column17", ;
|
||
Column17.ReadOnly = .T., ;
|
||
Column17.Width = 50, ;
|
||
Column18.ColumnOrder = 18, ;
|
||
Column18.ControlSource = "data_incetat", ;
|
||
Column18.FontName = "Arial Narrow", ;
|
||
Column18.Name = "Column18", ;
|
||
Column18.ReadOnly = .T., ;
|
||
Column18.Width = 47, ;
|
||
Column19.Alignment = 2, ;
|
||
Column19.ColumnOrder = 20, ;
|
||
Column19.ControlSource = "are_link", ;
|
||
Column19.FontName = "Arial Narrow", ;
|
||
Column19.Name = "Column19", ;
|
||
Column19.ReadOnly = .T., ;
|
||
Column19.Sparse = .F., ;
|
||
Column19.Width = 85, ;
|
||
Column20.ColumnOrder = 4, ;
|
||
Column20.ControlSource = "numar_ult_aa", ;
|
||
Column20.FontName = "Arial Narrow", ;
|
||
Column20.Name = "Column20", ;
|
||
Column20.ReadOnly = .T., ;
|
||
Column20.Width = 36
|
||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_contracte.cData_ctr.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data contr.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cData_ctr.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cDurata.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Durata (Luni)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cDurata.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cInactiv.Check1' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
Height = 17, ;
|
||
Left = 33, ;
|
||
Name = "Check1", ;
|
||
Top = 60, ;
|
||
Width = 60
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cInactiv.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Activ", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cIncetat.Check1' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
Height = 17, ;
|
||
Left = 37, ;
|
||
Name = "Check1", ;
|
||
Top = 24, ;
|
||
Width = 60
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cIncetat.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "In desfasurare", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cNr_ctr.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. contr.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cNr_ctr.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cNume.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Partener", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cNume.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cNume_val.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valuta", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cNume_val.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column12.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Descriere", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column12.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column13.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Modul de selectie", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column13.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column14.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. inreg.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column14.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column15.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data inreg.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column15.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column16.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data inceput", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column16.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column17.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data sfarsit", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column17.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column18.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data incetarii", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column18.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column19.Check1' AS checkbox WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 17, ;
|
||
Left = 14, ;
|
||
Name = "Check1", ;
|
||
Top = 48, ;
|
||
Width = 60
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column19.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Atasamente", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
Picture = ..\grafice\attach.bmp
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column20.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Ultimul act ad.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.Column20.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cSemnat.Check1' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
Height = 17, ;
|
||
Left = 46, ;
|
||
Name = "Check1", ;
|
||
ReadOnly = .T., ;
|
||
Top = 24, ;
|
||
Width = 60
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cSemnat.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Semnat", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cTipc.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Tip contract", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cTipc.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cValctva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare contract (cu TVA)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cValctva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_contracte.cValvaluta.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare contract (fara TVA)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_contracte.cValvaluta.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'optInactiv' AS optiongroup WITH ;
|
||
Anchor = 3, ;
|
||
BackStyle = 0, ;
|
||
ButtonCount = 3, ;
|
||
Height = 49, ;
|
||
Left = 573, ;
|
||
Name = "optInactiv", ;
|
||
TabIndex = 12, ;
|
||
Top = 4, ;
|
||
Value = 1, ;
|
||
Width = 111, ;
|
||
Option1.BackStyle = 0, ;
|
||
Option1.Caption = "Contractele active", ;
|
||
Option1.FontName = "Arial Narrow", ;
|
||
Option1.Height = 18, ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 1, ;
|
||
Option1.Value = 1, ;
|
||
Option1.Width = 126, ;
|
||
Option2.BackStyle = 0, ;
|
||
Option2.Caption = "Contractele inactive", ;
|
||
Option2.FontName = "Arial Narrow", ;
|
||
Option2.Height = 18, ;
|
||
Option2.Left = 5, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 15, ;
|
||
Option2.Width = 99, ;
|
||
Option3.BackStyle = 0, ;
|
||
Option3.Caption = "Toate contractele", ;
|
||
Option3.FontName = "Arial Narrow", ;
|
||
Option3.Height = 18, ;
|
||
Option3.Left = 5, ;
|
||
Option3.Name = "Option3", ;
|
||
Option3.Top = 29, ;
|
||
Option3.Width = 100
|
||
*< END OBJECT: BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT 'optIncetat' AS optiongroup WITH ;
|
||
Anchor = 3, ;
|
||
BackStyle = 0, ;
|
||
ButtonCount = 3, ;
|
||
Height = 49, ;
|
||
Left = 435, ;
|
||
Name = "optIncetat", ;
|
||
TabIndex = 11, ;
|
||
Top = 4, ;
|
||
Value = 1, ;
|
||
Width = 134, ;
|
||
Option1.BackStyle = 0, ;
|
||
Option1.Caption = "Contractele in desfasurare", ;
|
||
Option1.FontName = "Arial Narrow", ;
|
||
Option1.Height = 18, ;
|
||
Option1.Left = 4, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 1, ;
|
||
Option1.Value = 1, ;
|
||
Option1.Width = 126, ;
|
||
Option2.BackStyle = 0, ;
|
||
Option2.Caption = "Contractele incetate", ;
|
||
Option2.FontName = "Arial Narrow", ;
|
||
Option2.Height = 18, ;
|
||
Option2.Left = 4, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 15, ;
|
||
Option2.Width = 99, ;
|
||
Option3.BackStyle = 0, ;
|
||
Option3.Caption = "Toate contractele", ;
|
||
Option3.FontName = "Arial Narrow", ;
|
||
Option3.Height = 18, ;
|
||
Option3.Left = 4, ;
|
||
Option3.Name = "Option3", ;
|
||
Option3.Top = 29, ;
|
||
Option3.Width = 87
|
||
*< END OBJECT: BaseClass="optiongroup" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
|
||
LOCAL lcFiltru
|
||
lcFiltru = pcFiltru
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru = poCtr.ca_baza1.cfiltru
|
||
ENDIF
|
||
|
||
save_grid_tag(THIS.grid_contracte)
|
||
poCtr.ca_baza1.cfiltru = lcFiltru
|
||
poCtr.ca_baza1.afisare()
|
||
|
||
SELECT cContracte
|
||
IF RECCOUNT()>0
|
||
THIS.nireg = RECCOUNT()
|
||
ELSE
|
||
THIS.nireg = 0
|
||
ENDIF
|
||
|
||
restore_grid_tag(THIS.grid_contracte)
|
||
IF RECCOUNT('cContracte')>0
|
||
SELECT cContracte
|
||
LOCATE FOR id_ctr = goContract.id_ctr
|
||
IF !FOUND()
|
||
GO TOP
|
||
ENDIF
|
||
|
||
THIS.grid_contracte.SETFOCUS()
|
||
ENDIF
|
||
|
||
THIS.clb_tx_simplu1.text_simplu1.REFRESH
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
LOCAL lcAlias, lnId_ctr
|
||
lcAlias = THIS.grid_contracte.RECORDSOURCE
|
||
STORE 0 TO lnId_ctr
|
||
|
||
lnId_ctr = adauga_contract(lcAlias)
|
||
|
||
THIS.actualizeaza_grid1()
|
||
|
||
|
||
SELECT (lcAlias)
|
||
LOCATE FOR id_ctr = lnId_ctr
|
||
IF FOUND()
|
||
THIS.grid_contracte.SETFOCUS()
|
||
*this.grid_contracte.AfterRowColChange
|
||
|
||
oprinc.pagefr1.page3.enabled = .T.
|
||
oprinc.pagefr1.ACTIVEPAGE = 3
|
||
oprinc.pagefr1.page3.CLICK()
|
||
ENDIF
|
||
|
||
|
||
***--------------------------
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga_act_aditional
|
||
Select cContracte
|
||
Scatter Name loRec Blank
|
||
|
||
Do Adauga_Modifica_Inregistrare With 'actaditional',loRec,,"INSERT" In oproceduri_ams.prg
|
||
|
||
this.do_cauta()
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
Local lcFiltru
|
||
lcFiltru = ""
|
||
|
||
If This.ck_nume.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_nume.filtru
|
||
Endif
|
||
|
||
If This.ck_nr_ctr.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_nr_ctr.filtru
|
||
Endif
|
||
|
||
If This.ck_data_ctr.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_data_ctr.filtru
|
||
Endif
|
||
|
||
If This.ck_nume_val.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_nume_val.filtru
|
||
Endif
|
||
|
||
If This.ck_denumire_tip.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_denumire_tip.filtru
|
||
Endif
|
||
|
||
If This.ck_tipc.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_tipc.filtru
|
||
Endif
|
||
|
||
If This.ck_valftva.Value=1
|
||
lcFiltru = lcFiltru + This.ck_valftva.filtru
|
||
Endif
|
||
|
||
If This.ck_valctva.Value=1
|
||
lcFiltru = lcFiltru + This.ck_valctva.filtru
|
||
Endif
|
||
|
||
Do Case
|
||
Case This.optIncetat.Value = 1
|
||
lcFiltru = lcFiltru + [ and incetat = 0]
|
||
Case This.optIncetat.Value = 2
|
||
lcFiltru = lcFiltru + [ and incetat = 1]
|
||
Case This.optIncetat.Value = 3
|
||
lcFiltru = lcFiltru + [ and (incetat = 0 or incetat = 1)]
|
||
Endcase
|
||
|
||
Do Case
|
||
Case This.optInactiv.Value = 1 && active
|
||
lcFiltru = lcFiltru + [ and inactiv = 0]
|
||
Case This.optInactiv.Value = 2 && inactive
|
||
lcFiltru = lcFiltru + [ and inactiv = 1]
|
||
Case This.optInactiv.Value = 3 && toate
|
||
lcFiltru = lcFiltru + [ and (inactiv = 0 or inactiv = 1)]
|
||
Endcase
|
||
|
||
If This.ck_istoric.Value = 1 AND This.ck_aa.Value = 0
|
||
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'I')]
|
||
Endif
|
||
|
||
If This.ck_aa.Value = 1 AND This.ck_istoric.Value = 0
|
||
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A')]
|
||
ENDIF
|
||
|
||
IF This.ck_istoric.Value = 0 AND This.ck_aa.Value = 0
|
||
lcFiltru = lcFiltru + [ and tip_istoric = 'C']
|
||
ENDIF
|
||
|
||
IF This.ck_istoric.Value = 1 AND This.ck_aa.Value = 1
|
||
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A' or tip_istoric = 'I')]
|
||
ENDIF
|
||
|
||
|
||
If !Empty(lcFiltru)
|
||
lcFiltru = Substr(lcFiltru,6)
|
||
Else
|
||
lcFiltru = []
|
||
Endif
|
||
|
||
This.actualizeaza_grid1(lcFiltru)
|
||
If Reccount('cContracte')=0
|
||
Messagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
|
||
|
||
Select cContracte
|
||
Scatter Name goContract Memo Blank
|
||
Endif
|
||
This.grid_contracte.SetFocus()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_reset
|
||
With This
|
||
For i=1 To .Objects.Count
|
||
If Upper(.Objects(i).BaseClass)='CHECKBOX'
|
||
.Objects(i).Value=0
|
||
Endif
|
||
Endfor
|
||
ENDWITH
|
||
|
||
this.optIncetat.Value=1
|
||
this.optInactiv.Value=1
|
||
|
||
this.ck_nume.SetFocus()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_excel
|
||
DO export_excel_grid WITH this.grid_contracte
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_listare
|
||
*Thisform.AlwaysOnTop = .F.
|
||
|
||
lcmenu="\<Fisa contractului;\<Fisa contractului pentru contractele selectate;\<Centralizator;\<Lista contractelor"
|
||
lnx=xmenu(lcmenu)
|
||
|
||
Do Case
|
||
Case lnx=1
|
||
save_grid(This.grid_contracte)
|
||
|
||
Do make_cursoare_ctr && In oproceduri_roacontracte.prg && imi creeaza cursoarele
|
||
DO make_cCtrActeAditionale && In oproceduri_roacontracte.prg
|
||
|
||
Select cContracte
|
||
Set Filter To id_ctr = goContract.id_ctr
|
||
|
||
Select cCtrArt
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx'
|
||
|
||
Select cCtrScadentar
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx'
|
||
|
||
Select cCtrFactGarant
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx'
|
||
|
||
SELECT cCtrActeAditionale
|
||
index on id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx'
|
||
|
||
Select cContracte
|
||
Set Relation To
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrArt Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrFactGarant Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrScadentar Additive
|
||
|
||
SELECT cContracte
|
||
Set Relation To id_ctr Into cCtrActeAditionale Additive
|
||
|
||
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
|
||
|
||
lcSetData = Set('date')
|
||
Set Date German
|
||
|
||
Select cContracte
|
||
Report Form fisa_contractului.frx To Printer Prompt Preview
|
||
|
||
Set Date To &lcSetData
|
||
|
||
|
||
Select cContracte
|
||
Set Filter To
|
||
|
||
Set Relation Off Into 'cCtrArt'
|
||
Set Relation Off Into 'cCtrFactGarant'
|
||
Set Relation Off Into 'cCtrScadentar'
|
||
Set Relation Off Into 'cCtrActeAditionale'
|
||
|
||
If Used('cCtrScadentar')
|
||
Use In cCtrScadentar
|
||
Endif
|
||
If Used('cCtrFactGarant')
|
||
Use In cCtrFactGarant
|
||
Endif
|
||
If Used('cCtrArt')
|
||
Use In cCtrArt
|
||
Endif
|
||
If Used('cCtrLink')
|
||
Use In cCtrLink
|
||
ENDIF
|
||
If Used('cCtrActeAditionale')
|
||
Use In cCtrActeAditionale
|
||
Endif
|
||
restore_grid(This.grid_contracte)
|
||
Case lnx = 2
|
||
llToate = .T.
|
||
Do make_cursoare_ctr With llToate && In oproceduri_roacontracte.prg && imi creeaza cursoarele
|
||
DO make_cCtrActeAditionale With llToate && In oproceduri_roacontracte.prg
|
||
|
||
Select cCtrArt
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx'
|
||
|
||
Select cCtrScadentar
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx'
|
||
|
||
Select cCtrFactGarant
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx'
|
||
|
||
SELECT cCtrActeAditionale
|
||
index on id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx'
|
||
|
||
Select cContracte
|
||
Set Relation To
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrArt Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrFactGarant Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrScadentar Additive
|
||
|
||
SELECT cContracte
|
||
Set Relation To id_ctr Into cCtrActeAditionale Additive
|
||
|
||
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
|
||
|
||
lcSetData = Set('date')
|
||
Set Date German
|
||
|
||
Select cContracte
|
||
Report Form fisa_contractului.frx To Printer Prompt Preview
|
||
|
||
Set Date To &lcSetData
|
||
|
||
|
||
Select cContracte
|
||
Set Filter To
|
||
|
||
Set Relation Off Into 'cCtrArt'
|
||
Set Relation Off Into 'cCtrFactGarant'
|
||
Set Relation Off Into 'cCtrScadentar'
|
||
SET RELATION OFF INTO 'cCtrActeAditionale'
|
||
|
||
If Used('cCtrScadentar')
|
||
Use In cCtrScadentar
|
||
Endif
|
||
If Used('cCtrFactGarant')
|
||
Use In cCtrFactGarant
|
||
Endif
|
||
If Used('cCtrArt')
|
||
Use In cCtrArt
|
||
Endif
|
||
If Used('cCtrLink')
|
||
Use In cCtrLink
|
||
ENDIF
|
||
If Used('cCtrActeAditionale')
|
||
Use In cCtrActeAditionale
|
||
Endif
|
||
Case lnx = 3
|
||
Private pcDataOra, pcTitlu
|
||
pcDataOra = get_ora(2)
|
||
pcTitlu = "Centralizator contracte"
|
||
|
||
Local lcTabel
|
||
lcTabel = This.grid_contracte.RecordSource
|
||
Select (lcTabel)
|
||
Report Form rContracte_centralizator.frx To Printer Prompt Preview
|
||
Case lnx=4
|
||
|
||
Private pcDataOra, pcTitlu
|
||
pcDataOra = get_ora(2)
|
||
pcTitlu = "Lista contractelor"
|
||
|
||
Local lcTabel
|
||
lcTabel = This.grid_contracte.RecordSource
|
||
Select (lcTabel)
|
||
Report Form rContracte.frx To Printer Prompt Preview
|
||
Endcase
|
||
*Thisform.AlwaysOnTop = .T.
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_sterge
|
||
PRIVATE pnId_ctr, pnTip
|
||
|
||
LOCAL lnRaspuns, lcSql, lnSucces, lcId, lcId_util
|
||
STORE 0 TO lnRaspuns, lnSucces
|
||
STORE '' TO lcSql
|
||
|
||
IF !EMPTY(goContract.id_ctr)
|
||
lnRaspuns = amessage('Doriti sa stergeti contractul?',4+32,_SCREEN.CAPTION)
|
||
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
|
||
RETURN
|
||
ENDIF
|
||
|
||
lcId = ALLTRIM(STR(goContract.id_ctr))
|
||
lcId_util = ALLTRIM(STR(gnIdUtil))
|
||
|
||
lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
THIS.actualizeaza_grid1()
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
DODEFAULT()
|
||
|
||
Select cContracte
|
||
If Reccount()>0
|
||
This.nireg = Reccount()
|
||
ELSE
|
||
This.nireg = 0
|
||
ENDIF
|
||
|
||
this.clb_tx_simplu1.text_simplu1.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_contracte.AfterRowColChange
|
||
LPARAMETERS nColIndex
|
||
|
||
LOCAL lcTabel
|
||
lcTabel = this.RecordSource
|
||
|
||
SELECT (lcTabel)
|
||
SCATTER NAME goContract MEMO
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_contracte.cNume.Text1.RightClick
|
||
Local lcMenu, lnx
|
||
lcMenu = "Lista facturilor pentru contractul selectat"
|
||
lnx = xmenu(lcMenu)
|
||
|
||
Do Case
|
||
Case lnx = 1
|
||
llContract = .T.
|
||
Do Case
|
||
Case gnParametru_prog = 1
|
||
Do lans_ireg_parteneri With .F., gcCont411, .T.,,,,,llContract
|
||
Case gnParametru_prog = 2
|
||
Do lans_ireg_parteneri With .F.,'401', .F.,,,,,llContract
|
||
Endcase
|
||
Endcase
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_contracte.Init
|
||
this.SetAll("DynamicBackColor","iif(inactiv=1,RGB(200,200,200),RGB(255,255,255))","Column")
|
||
this.SetAll("DynamicForeColor","iif(tip_istoric='I',RGB(0,128,0),IIF(tip_istoric='A',RGB(0,0,128),RGB(0,0,0)))","Column")
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ct_date_generale AS container
|
||
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="outlook2003bar1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol2" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BackColor = 255,255,255
|
||
Height = 401
|
||
Name = "ct_date_generale"
|
||
Width = 800
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'outlook2003bar1' AS outlook2003bar WITH ;
|
||
Anchor = 7, ;
|
||
Left = 5, ;
|
||
Name = "outlook2003bar1", ;
|
||
Top = 1, ;
|
||
Panes.ErasePage = .T., ;
|
||
Panes.Height = 328, ;
|
||
Panes.Name = "Panes", ;
|
||
Panes.PageCount = 7, ;
|
||
Panes.Pane1.Caption = "Date generale", ;
|
||
Panes.Pane1.Name = "Pane1", ;
|
||
Panes.Pane1.picture16 = Email Envelope 16.png, ;
|
||
Panes.Pane1.picture24 = Email Envelope 24.png, ;
|
||
Panes.Pane2.Caption = "Obiectul si valoarea contractului", ;
|
||
Panes.Pane2.Name = "Pane2", ;
|
||
Panes.Pane2.picture16 = Contacts 16.png, ;
|
||
Panes.Pane2.picture24 = Contacts 24.png, ;
|
||
Panes.Pane3.Caption = "Termene de facturare si achitare", ;
|
||
Panes.Pane3.Name = "Pane3", ;
|
||
Panes.Pane3.picture16 = Favourites 16.png, ;
|
||
Panes.Pane3.picture24 = Favourites 24.png, ;
|
||
Panes.Pane4.Caption = "Termene de livrare/receptie si garantii", ;
|
||
Panes.Pane4.Enabled = .F., ;
|
||
Panes.Pane4.Name = "Pane4", ;
|
||
Panes.Pane4.picture16 = Calendar Multiweek 16.png, ;
|
||
Panes.Pane4.picture24 = Calendar Multiweek 24.png, ;
|
||
Panes.Pane5.Caption = "Facturare", ;
|
||
Panes.Pane5.Name = "Pane5", ;
|
||
Panes.Pane5.picture16 = Games 16.png, ;
|
||
Panes.Pane5.picture24 = Games 24.png, ;
|
||
Panes.Pane6.Caption = "Clauze speciale si observatii", ;
|
||
Panes.Pane6.Name = "Pane6", ;
|
||
Panes.Pane6.picture16 = Help 2 16.png, ;
|
||
Panes.Pane6.picture24 = Help 2 24.png, ;
|
||
Panes.Pane7.Caption = "Documente atasate", ;
|
||
Panes.Pane7.Name = "Pane7", ;
|
||
Panes.Pane7.picture16 = Music Player 1 16.png, ;
|
||
Panes.Pane7.picture24 = Music Player 1 24.png, ;
|
||
Panes.Top = 33, ;
|
||
overflowpanel.MenuButton.imgPicture.Height = 16, ;
|
||
overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ;
|
||
overflowpanel.MenuButton.imgPicture.Width = 16, ;
|
||
overflowpanel.MenuButton.Name = "MenuButton", ;
|
||
overflowpanel.Name = "overflowpanel", ;
|
||
SplitBar.imgSplitter.Height = 3, ;
|
||
SplitBar.imgSplitter.Name = "imgSplitter", ;
|
||
SplitBar.imgSplitter.Width = 35, ;
|
||
SplitBar.Name = "SplitBar", ;
|
||
Panel.Name = "Panel", ;
|
||
Splitter.Name = "Splitter", ;
|
||
Title.lblCaption.Name = "lblCaption", ;
|
||
Title.linBorder.Name = "linBorder", ;
|
||
Title.Name = "Title"
|
||
*< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol1' AS olecontrol WITH ;
|
||
Anchor = 15, ;
|
||
Height = 328, ;
|
||
Left = 0, ;
|
||
Name = "Olecontrol1", ;
|
||
Top = 0, ;
|
||
Width = 198
|
||
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAigAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA8BAAAAAAAABwAAAAIAAAD+////BAAAAAUAAAAGAAAACQAAAAgAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAAB3FAAA5iEAALE8wWoBAAYAIgAAAD0AMgCNAQAACAAAAHFIHwAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTEBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaNYaADwAAAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwAAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAuQAoAAABMYWJlbEVkaXQACQAAAEkKAAAAAQAAAAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAQAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAA4AAABQYXRoU2VwYXJhdG9yAAoAAABIAAAAAAEAAABcDAAAAE9MRURyYWdNb2RlAAkAAABJCgAAAAAAAAAMAAAAT0xFRHJvcE1vZGUACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsAAAFAEBKHwAGAAAAAAAAAAUAAIBs5xIAAQAAAFwAH97svQEABQCx5xIAA1LjC5GPzhGd4wCqAEu4UQEAAACQAURCAQAFQXJpYWxCAV0gWwB4AxUASMIaADUAbAB7AD0AYwBkAFIAJgBhAEYAIQBaAFoAdQBbAEwAfQAtADkAKwBlAAkAAABJCgAAAAAAAAAAJQB5AEkAeAA5AGoAXQB5AFUANgBgAHsAPQB0ADYAQQBzADIAWgB4AEoAMwBFAFUAKgA0AEMAXQB9AFcAdgBQAHQALABeAD8AVQBbACgAQwAoAHMAcABaAHUAYgBtAC4ANAAlAGIALgBDAHoAMgA9AHgAQwBYAFEAQABBACUAagBQAFAARQBlAC0AKwBtACgAXgBdAE8APQBxAEEAawBBAHMAYQB7AHEALgAhAE8ARABzAEMATgBYAFEAXgB9AEAAMgBbADQAPQBhAEUAMQBTAHYAawBCACgAVAAsAHMAaABtAFgAQwA/ACgAMwBYAFEAYABZAHcAQAA2AF8AQwB0AGUAJQBrAHoAWABeAG4AOABAAGoALQB6AGEAWABdAEgAdwBOAFMAVABxAE0AeABFAD0AQABZAD0AKQApAFcAJQBvACYAcwBpADIAZQA0AHsAJABhAD0ASQBNACUANgA/AGUAdgBhAGwANgB4AHUAcgB3AGMAQgBiAHUAdwAuACUAcgBwAFYAOQArAFQAbgBTAC0AbgAsAGUATABDAFYARgBvAGwAJgAhAGwAMABWAD8A" />
|
||
|
||
ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol2' AS olecontrol WITH ;
|
||
Height = 150, ;
|
||
Name = "Olecontrol2", ;
|
||
Visible = .F., ;
|
||
Width = 200
|
||
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+////BQAAAAYAAAAHAAAACAAAAAkAAAAKAAAACwAAABYAAAANAAAADgAAAA8AAAAQAAAAEQAAABIAAAATAAAAFAAAABUAAAAEAAAAFwAAABgAAAD+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAAABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAADikAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAFcAAAAAAAAAAQAAAP7///8DAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9cAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAJAAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADkzNjgyNjVFLTg1RkUtMTFkMS04QkUzLTAwMDBGODc1NERBMSQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RQEAAIAMAAAASW1hZ2VIZWlnaHQACQAAAEkKAAAAEAAAAAsAAABJbWFnZVdpZHRoAAkAAABJCgAAABAAAAANAAAAVXNlTWFza0NvbG9yAAUAAABMAQAAAABJCgAAABgAAAALAAAASW1hZ2V3aWR0aAAJAAAASQoAAAAYAAAADQAAI38kLJGF0RGxagDA8Cg2KCFDNBIIAAAA7QMAAO0DAACAfuHmAAAGAAgAAAAQABAAwMDAAP//AAAB782rAAAFAOBLHwAGAAAA/////wUAAIAAAAAADAAAAAETAAAARABhAHQAZQBsAGUAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABEAAAAEMAYQBpAHgAYQAgAGQAZQAgAGUAbgB0AHIAYQBkAGEAAQ4AAABDAGEAaQB4AGEAIABkAGUAIABzAGEA7QBkAGEAAQ4AAABJAHQAZQBuAHMAIABlAG4AdgBpAGEAZABvAHMAAQ8AAABJAHQAZQBuAHMAIABlAHgAY///5I50/+3h/+bU/tjE/cy2/sSr67+yT6rnA7P/D5H+XpTShn98qKio4ODg+/v7////55N4/MWq+7ma+8au/+LR/+jW8trTMdL1AMf/B7P+H474PHmsg4ODtra25eXl+/v79+Tf/fDj+97P8KOH85Ry/MCl/cCniMbMBNz+AMH/DK79I4/5SXighoaGubm56enp/////O3d//bs++nh8aB+/9/G/9vC+c65bNjkAtv/AL//JanwXozCcXN5jIyMxsbG/////////OjX/u/i+7uY/9S0/97D/+XL793ORt3xJdTzi6DITl7aID3ZX2B/qamp//////////38+eXa97OT/93G/+XK/+HE/+DB2eDYfrPMe4fvRGv/EUT/Hj3UtLS0/////////////v797rKg4o555peC8bik+9vI/9vGt3N2gJTwVXr/OGD+Xnbe3Nzc/////////////////////v39+enl7Lqs5J6K435e2aqhubvfg5btoazr3d/p+Pj4BwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398/Pz6Ojo5+fn6+vr8fHx+Pj4/f39/////////////////////////v7+/Pz89PT01tbWsrKyqKiosrKyvb29y8vL2tra5eXl7+/v+fn5/v7+////////9/f34uLi2Lmt4LGhx56QsYBxn3ZqkHt1i4aFlZWVpaWlvr6+4ODg+fn5/////f39zdnhmqu2k46R/9/O//fs/u/i+9/O88Sx3aOQv4FvpnFjkoaCwsLC8fHx////9PT0VazcDrz+U6HC+tfH//Dl/dfI/tW9/9zA/+XL//Df+93Mp3tvuLi47u7u/v7+stHlFbLzHcv/dcTS/+bX//Pr/eTc/dG9/s+0/+LJ//jt/eTTr4R4u7u78PDw+/v7b7viEcT+Mcj2tc7I//Pp/uba/dC9/c22/cy1/cmy/smq/drFpH1wubm57+/v5+7zNrnrGMv/S8To693N//38/eDV/dfH/c+7/c+5/Myz/9a689HAf3yCsLCw6+vrvtrrL8n6INH/e8LV//Lm//z7/+ff/+jh/ePa/dfG/ciu/9zF39DCVpe1qqqq6Ojols3oO9j/Ndb+p8PF+e3p9erm89jO+NbK/drO/dnM/dfG/+PSzdvNZKrCqqqq5+fngcfoTeT/Rt3+qry75byo17OmyZyQxLa0/f///////////OznwdrOba7Gra2t6Ojods3tZvP/U9/7l+P2+f32//Hh9MKvzquh////////////8eHbuNfWdq3FsbGx6urqgs3ubOr8aer8atz3huX6z+7x+trJ2L60////////////9ePax9rae6rEwsLC8PDw9fr90Of2sNvwktLscsnrZdLypNfhybes8ufc8+PW4drS3MjA3uDdkrvV4uLi+Pj4/////////////////v7++Pz+4fD5gsTlhPT1gvT2cebxaafIq8bY1uTt+vr6/v7+////////////////////////////1en2h9Dud9jxcs3sz93m9fX1/v7+////////CAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////+vr67u7u6Ojo8fHx/Pz8/////////////////////v7++fn59/f3+vr6/v7+////7e3twsLCrKyswcHB4uLi8vLy+Pj4/f39////////9vb23d3dy8vL1dXV5+fn8vLy3J2K3KSIm3Bjh4eHqampwsLC2NjY8/Pz/////v7+y9rkfqnBg4ySk5OTrKyswL296IRj//jR+d+5qXFekW1jmXtzr6+v5+fn////9/f3Wa7dGr74JrHmQZC4YoCRjXl1+Jhw/ujB//DI/ezF/O3G2a+Qo6Oj5OTk////y97pFrX1KcX5Mdj/Kdn/SbHSw4p7/8Sb/du0/d63/uS9//PMyZp/p6en5ubm/v7+gcDjEsL9NMj3Ref/dcHM7LCL/7+W/Mqk/Mym/dGr/dav/+W+uoZwo6Oj5eXl+Pn5TrvpHMr/Pcz3Wuv6gM3S5sWj/8We/LuV+76Y+8Se/Mmj/9avx410o6Oj5OTk3OnxNcT1KNL/SdH2s8zBn8O8hL6+srSh+saf/LKM+7eS/riQ/bqU15J1ra2t6enpttfrPtX8NdX/VtX04+bU/8ur9cSns6yd1sCi/7aO/6B43KOGqsi9mYB6t7e37u7un9TrT+D+Rdv+cNr04tC89cq4/9bB08i6s7+z/6yB1YVuitDemPf3f5uovLy87+/vjs/tafL/Wub+ft35ydvT7NvQ//Ho3NjPmtTgn6uzjsjch9v0o9/tfaS1xMTE8vLyodXwadr0Z+b6Zdv2ct/6h+P2neLztubvvvb+vfn/vvX/seHwv+TsiKe61dXV+Pj4/f7+8Pj8zub1rNvwk9XubsjsYNHxXNj2bNz3f973lOH4td3uw+DusMfW7u7u/f39////////////////////////9fv9i9HuePj/dfr/XuL5iLDJvNLh8PP1/f39////////////////////////////////4fD5n9jwhdLtjMrn7e3t+vr6////////////CQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+/Pz89/f37e3t5ubm5eXl5eXl6+vr9fX1+/v7/v7+////////////////////+Pj44+PjzMzMtbW1pqampKSkpaWlsLCwyMjI39/f9fX1////////////////////5N3ss6XFlnHApWvojmLBoGjgkWPHfW+Ni4CXsrKy6Ojo/////v7+9fX16Ojo6Ojot4Txs3H/tXb9vIP/vIH/vIL/t3r+s3H/mmLcmpqa4ODg////9/f31tbWr6+vqampqnXowIr/v4j/v4n/wIr/wIn/v4f/v4n/pW3nmpqa4ODg////ytznPq3gQKLLWYOcmmrYxZT/xJP/xpT/xpX/xZT/xJH/xJD/p3Dmmpqa4ODg/Pz8crvhGr74LtP/Ls/9i3rwzKD/y5//zaL/0qX/zqL/ypz/zZ7/rHjmmpqa4ODg6+/zLrXsHsD4Rt3+RuH/k4r40ar/0an/zqj6tpXexJ7w0ab/t5LkmmzOmpqa4ODguNboIcf8J8f7YtrwX+HympD51rP/2LL/oI63LC4tbGN3wKTgUVJSUTlto6Oj5OTkfMTmM9j/MdD+r9XQ0ryjq4jh3Lz/2rv+sqfBrrGtop2puaPSub20oYPDvb297+/vacXqROL/QNH6wOLd/8qt353A0an/6NL/49L0xbXXybHn2rn+xabqqYjP4eHh+/v7YdTzWu7/V9j7ydnS/9nI/+DNrYri1rP/7+D/79z/4sb/0ar/roHh4eDj+fn5////cczuZ+H3Z+H5iuXzoNvoueTwuebsqL/4s6P5uJn3oYblqI/F4N/h/Pz8////////+fz+4O/4tt3xlNXuasvuWtLzY9z4f9/3k9/2wuPxqMjb39/f9/f3/////////////////////////////f7+4/H6btjyev3/Wtr1l7bJytrl+vr6/v7+////////////////////////////////////wuP1kNXvmM3o8fHx+/v7////////////////////CgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////+vr67Ozs4uLi6enp+Pj4/////////v7+/v7+/////////////////f39+vr6+/v76+vrv7+/oKCgs7Oz4ODg+Pj48vLy4uLi4ODg8PDw/Pz8/////v7+8fHx2tra1dXVfHR1STs/QUBCgYGBwsLC6urqzMzMn5+foKCgyMjI8fHx////+fn5tcnXkKOtkpKSp3Bz2IyRbkxRVlZXs7Ozvbu8W0lNPzY5WltcoaGh4+Pj////2uXrLKzmHrnyN5TAdX+V9KSmrGZqUlFToKCgrJWX2I6Vr3N5QTk7m5ub3d3d/f39hcHgFrj2LdD+LNb/Ksr5U63JY3aHXG6Ce31+kJGUxIiE5JaaYUVKr6+v4uLi8vT2PLbqGMD7QtX7R+D/RuD/Pun/TLDJYpOpQrjfUnuPaHR/iXuAeWJktra25eXlyd7sIsL5IMb7Udr6V+v/W+7/XfP/YbTDbJ+rVvb/Xff/VOD0VoihcGJop6en4+PjlMvnLNH/J87/cdHlqca6gMzPbOXsd8TOq4GJjJiheKiybsLGU6rAZ1lelpaW3d3ddMPnPNz/NNH9jNzm/9q8+cCh2r6mjp+cz3eB0G92ql5khFNYWENIOzM2nJyc4ODgZsjsTub/QtT8od7j8c67/865/82ysMG6nauzo4+XkG15f1ZgY0JGNy4xvLy87+/vY9b0Y/L/V9f4quvy4cu4/ujd/+rgvdfVhOX7gNnvhtXsgrzRgqKuc3Fz2dnZ+/v7ac7wbev7ZuT5c973h+T4nOHyvuTpwOvxv/T9v/X9p+T4suLwotbnsbKy5+fn////7/f7yuP0qtrwjc/sbcvtXdDyWdT1a9v4ft33leH3ruX34fL1nsjg19na9PT0/////////////////////f7+8fj8yOP0Zdv1d/z/bfT+WsLlmrjNwdfm+Pj4/f39////////////////////////////////rtzyhtPud9fvos3k8PDw+/v7////////////CwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+9vb26+vr6Ojo6+vr8vLy+/v7////////////////////////////////////+vr639/fuLi4qqqqsLCwwcHB3d3d9PT0/v7+////////////////+/v77+/v6Ojo5dfS4rqpw5mIwJmHpIN2hIKBoqKiysrK5+fn9/f3/f39/////v7+7Ozsw8PDrKysuaii//To/+bU/+zd/uXS0Z+Jh3Vujo6OsLCw1tbW9fX1////+vr6iLzbPKraTYuqhZyn0+S4993J+eLS//Pj/+/c67idrXtolH11tbW16+vr////3ufuKLDsJtL/KND/jtDLgNZ258m344Fd7bmX/+vW/+zY/+TGzZJ6t7e37u7u/v7+mMfhFb/7OM/7Str8rta6v+ojfyQskYXREbFqAMDwKDYoIUM0EggAAADtAwAA7QMAAIB+4eYAAAYAugEAABAAEADAwMAA//8AAAHvzasAAAUA4EsfAAYAAAD/////BQAAgAAAAAAMAAAAARMAAABEAGEAdABlAGwAZQAgAGMAbwBuAHQAcgBhAGMAdAB1AGwAdQBpAAEQAAAAQwBhAGkAeABhACAAZABlACAAZQBuAHQAcgBhAGQAYQABDgAAAEMAYQBpAHgAYQAgAGQAZQAgAHMAYQDtAGQAYQABDgAAAEkAdABlAG4AcwAgAGUAbgB2AGkAYQBkAG8AcwABDwAAAEkAdABlAG4AcwAgAGUAeABjAGwAdQDtAGQAbwBzAAEJAAAAUgBhAHMAYwB1AG4AaABvAHMAASEAAABPAGIAaQBlAGMAdAB1AGwAIABzAGkAIAB2AGEAbABvAGEAcgBlAGEAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABIAAAAFQAZQByAG0AZQBuAGUAIABkAGUAIABmAGEAYwB0AHUAcgBhAHIAZQAgAHMAaQAgAGEAYwBoAGkAdABhAHIAZQABBQAAAEoAbwBnAG8AcwABBwAAAE0A+gBzAGkAYwBhAHMAAQUAAABGAG8AdABvAHMAAQYAAABWAO0AZABlAG8AcwAMAAAAAQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////+/v77u7u5ubm7Ozs9/f3/f39////////////////////////////////////////7e3twsLCp6ensrKyzMzM4+Pj8vLy+/v7////////////////////////////+/v715iH13NVrGtYi3JrjIyMpqamwMDA2NjY6+vr9/f3/f39////////////////8Ojm1WNE7ohj8Y9r4XpZuWhQlGldh399mJiYsrKyzMzM4+Pj8vLy+/v7/v7+////4bOo3GNA6YRf9aJ+9Jx385dy74pm0nJVpmVTi3JrjIyMpaWlw8PD4uLi+fn5/f392Ypz4G9L6IZi96+K9KaB9KJ99KB79J158pVw4X9dumlRlm1ij4aEu7u77e3t9e/t3XlZ5HxY6Ytm+LWN+rGI/LGJ+K2H9KeC9KWA9KN99J5575FssG5apqam5ubm683F5oJf6Ydh6ZFtsbmzqKmf0aiO66yI97WO9bGL9a2I9KmE9qyHx39kp6en5ubm5bSn7JRv7I9p6pdyr93egub5e8ncia6236+P+8Ka97yW9reS97aRxIxzq6ur6Ojo4aKP8aR+7pZw66WBt+Dfi9v0ddL1hd/1xKqU9q2F8rKM9bqU88CcwpR9ra2t6Ojo45yE9bKM8qB69biQjdbfjtHqs+f7oODzyLKc9raN8LON7qeC6bOQwZmDsLCw6enp6Z2B/MWe97SO9LKK3tG0xdjR3OfixeHk5dKy98ig8LWQ8bWP5rSRw52Hs7Oz6enp7bWl66WH7qWD75969qqC9a2E8bOM7cOg9s+o+dy1/Oa/+Nex59WzyqiSw8PD7u7u/////fn49d3X8dHH6bOh55+H6p1+7Jhz8aiD8KmD8K2I7bSO5NCx17Og4+Pj9/f3/////////////////////////fj27Lao+b+Y/caf+r+Z14Rnyayk6NTO+vr6/v7+/////////////////////////////PXz66mT66aI76aD37Gl7+/v/Pz8////////AgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////////////////v7++Pj46+vr5ubm7+/v+/v7/////////////////f399fX18vLy+Pj4/v7+/v7+8vLy1tbWs7OzpqamwMDA6enp/f39////////////8fHx0dHRwcHBz8/P4+Pj5eXltsC2WKZmVMx1T4ZXjY2NxcXF8fHx/v7+////+/v72rWrvH9ujn15jo6OpKSkjqKPN6pKR+lxVPSDUed+WnZdm5ub1tbW+Pj4////8Ovq1WZJ7odj5X1bwWZRaGxLEJcnMtdTO9xfRONsVPOCRr5jdn52uLi47u7u/v7+4LOn3GM/7Itn9p9795h1kIdEIooXDaggL9JOO9teReRtU/OCTZRZs7Oz7Ozs+/v72YVt4XFN6o1o+K+I9aaB/6GEqZZWB6gXIsk+MNNQO9xfQeFoQKBWxMTE9PT08+nm33lX5HxY6ZNu6bOS9a2F/7KOuKloELckGcEwJcpBK9pTW6ZGhYF3yMjI9vb26Ma96Ilk6YZh5Jl4kcTNmbi5wKmen6ZuI8g+DbgiFr0rGc4+cKtSoHlyxcXF9PT05K6e75x27ZNs6aaFrOnxeNz7dNPza7GiPshTLNJQJdVNFM09c65aqYF3xcXF8vLy46KN9KyF8p946LaVetHpldXwmuT9pMjMza+Bsbt8is1+jbNr0LKPr4t/ysrK9PT06J+G+8Kc9KuE9cCZttbMyeDgyuz0vNHP9sOd/bmW8qiF66eF4b6hrYl+0tLS9/f37bSj7KSE76WB76B796Z+77GM7LuZ8sij+tu0+du1+dmy6cyp3sOlvKGZ4eHh+/v7/////fr5+u3o78q/7b2t56GJ6JZ38aB78aeB8KmD8LGL37eY4bKW4NPQ9PT0/v7+/////////////////////////vv66qeP/MSe/MSe6pRxzLWv6NnV+vr6/v7+////////////////////////////////+Ofj8MOz7LWg5bir8/Pz/Pz8////////////AwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398fHx2dnZycnJy8vLyMjItra2t7e32NjY9fX1/v7+////////////+fn57Ozs4ODgtL60bY5tb4Jveoh8RYlLQpBNeYF6pKSk2NjY+Pj4/////////Pz85eXlu7u7gpmMGJkaKchEMcBMKqtALLhGVO2CR65gc3pzqqqq39/f+vr6////8fLyZbDXPaLYL4ViGsQqKM1EMtZTPN9iQuBoS+l3WvmLPo1KgICAsLCw4uLi/v7+rc/jFbn2JcD/IJ+RMNNJIcY7Isc9Lc9LNthZP95lSul0Ue19Q4NLh4eHv7+/+vr6W7jkFML8NcH8KKWTT+5zH8Q3E7onIcU6Ks5HM9VUPNxhSOhyTux6S4hSvr6+4OrwJr3zGcL7P8f8K6SqSdttOttVGsMsFr4rHcI1KMtDMdRQONtYOs1QUZhW2dnZr9ToJcv9IsX7WNj4S7DUJ5uiLLKaIrJcE7AmE70nF8AqHsAyNMVmR5GMqKio5ubmhMXlM9f/J8r9e9vo17qhuLawgam8S5i/JqtjLdFEIrBEUM+lffT1X6DDo6Oj4+PjaMHoROL/NM/9gdrn+d3G/8mr/8ilvJaLPKeYY9qzh+71lP//mfv7cbnNnqCg4ODgVc/zU+j/RNf+nNjf8r2j98++/97L1burftDtgN/+iOT5heL2ouzwh8zcoqWm4+PjXdn2aPT/Wtr5oez64NO/+dvN/+jd4sKyjdPkjN/1j9/0itjxsubshb3Sq62t6OjocdPxaeb5aOf7ceP6ddj1m9fku+Lnwd/mzvz+xvj+s+v4ruT0xeXsfarDv7+/7u7u7PT7yeX0tOHxhM3rcNXwYtT0XNb2beP8eNz3it32sOv6x+v24vT6jrnT39/f9/f3////////////////////8vj8z+b1c9Duefz/cfX/Zen8aazQscna1OHq+Pj4/v7+////////////////////////////xuP1e8/uct7zcdXuxNbi9PT0/f39////////BAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA+/v77Ozs2dnZy8vLyMjIwsLCsLCwsrKy19fX9vb2/v7+////////////////////6enps7u0dY12aIFoan9rOn89K5U1d313o6Oj1tbW9fX1/v7+////////////////gbKGRctmPtViNM1SKL5BHbk0G8UyJI0uc3lzoKCgy8vL4+Pj7+/v+Pj4/f39////S89uW/yOTvF9PedqLtVOIsg8GL4tDrggHIUgenhyjIyMo6Ojubm5zc3N4ODg8fHxZuiNdveiYNd6a9F2QtBiLdFMFcAsF8k4HL88u7aI0J6Mq4x+koN9i4uLpaWl0dHRmO+2HaItcpZC/62Xl6lqHMdFQNJhZMFopcKN/+vb/+7c/+bT+dK73aGHrYt/v7+/gdmYPrpQpbN4/+zl06yDlK5u3MCX/tbE//fz//ry//Lo/uDP/tfA+syxu5OEyMjI0OTSbMR9y8ej//r1/+ze/+HUyLm/lqrB+O7m9OHZ/NbE/+HP/+zc8ci0r5+Y19fX////6e7n5trI//jx2tDPd6fJQKXgP6fiZqHJWZrGqbK9//bm//fs2rCdsaWg4+Pj/////OHZ8dnSlLjOXLfjVsX4Xsf4XMX2UsD3Tb/4Uarc1c3N///4y6GRurOx7e3t/////fbzhavFT7nnZcnxZMXtZcfwZMfxYcXxYcXyWsn5d7bY+OTbwqedzs7O9vb2////////6/L2abTYb8vre9r2c9Lxb83vbMzvasrvZ8jvV8Dtl6q70buz6+vr/f39////////////6fL3crfYedPtiOX4huP4hOL5geD4cM3sVabOpLjH7+/v/Pz8////////////////////6/P4drvZg9vtk+35i+X1b8Tib6HA1dvf+Pj4/v7+////////////////////////////6vL3erzYgNXna7PRnrjJ7Ozs/Pz8////////////////////////////////////////0ePujbnVxNfj9fX1/f39////////////////////BQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////+fn54+PjxcXFr6+vpKSkpaWlsrKyv7+/u7u7qqqqoaGho6OjtLS02NjY9vb2/Pz84+PjwZiNv4VwyYVrx4xyso98knJpl29lu11ExmhNxnNZuGtWhnh1qamp4ODg9PLx14t19KB7+riS+8Ga/+O7+ty15H9b3Fg16HhU+6WA/aR+/Jp2wWtShYSEwsLC6MO57YFd8KJ9+ryW8qaA/dCq8beR4mtH6nVR+a6I8JFt4WdE9I5q+ZVxlmtfrKys57Gf6YBb65Zx97aQ7ZZx+8qj7a2H5GlG9JFs/cag6Yhj6HFO631a+p14vG5Yo6Oj5a6c53tW6o5q9a+J54Ne+MCZ6qJ9739b+6mE/NKs/ceh9aB764Rg8o5qx3ZcpaWl5Kua5XVQ6Ilk9KuF4GxJ87SO6Zt37o5p/cWe/d+4/dCq+LiS86yG7pdzxXBWsbGx5KiX5nZS43lV8Z143WM/6JJs5Y5q5oRf/uG6/uvE/d62/dCq8amE76WAuntmyMjI4aKR53ZS53dT75Zy9rqV9s6o77mU6Jdy/vHJ//3V/u/I/d63+MOd9KuGvJ2U5ubm4aOS8IVh/bGM+rWQ+biS+8ag/+C5+sym9LmT/daw//nR//rT/dy21ZmF4+Pj+vr65JmC+K6J5oBc425J6G5M8YFd9Ypm8Ypm9pp2z3JVxYh03aaR6MK08fHx+/v7////6KqP5X9b1kon31876HBP8YVh9Ytn5WpH7HxXsW1asLCw6+vr////////////////6qaM+JZy4GE+3l065GdF7XlV8IJe6n1Z+Z14vXVgwsLC8vLy////////////////7LWh/a6J+ZVx8Y1p741o8Zp1+LOM/baR+6WAw5KE4+Pj+/v7////////////////+/Px7LGY+aeD+qB7/76Y/9Ks/smi+K6K2ZaD5ePj+fn5////////////////////////////9NbL8ce07K6U5qSM5rel6c/H9vb2/f39////////////////////////BgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////f395ubmuLi4nZ2do6OjtbW1yMjI2dnZ5eXl8PDw+Pj4/f39////////////////9PT04LSe7bSUzKCHspB9koV9jImGlZWVp6enu7u7zc3N3d3d6+vr+Pj4/v7+/v7+59HI9cKq/////vj1/ObZ+tbA5byiyJyCpoR1kIJ8jIqJmpqaubm54+Pj+/v7+vr6462Y/fPu//Pv/uff/////////u/q+7ed+q+S96eH3pl9wpF6oJuZ19fX+vr68enm7LGb//////fy/NLC/Mq4/NDB+7ih+7GX+7ii+7ig+7mj+8Cev7Sr5eXl/f395r+x9tDC//n1/dvN/vDq//r2//Dq/7ie/KaH+qWH+7qj+9XFyquX0dDP+Pj4////4qWR+uHX//rz/t7Q/M28/Mu59sOw3p6H+7ad/8Om/+jf676ks6yo5+fn/v7+////4JeA/vHo/uHR/dfG/ure//nx0b+2Qk5hdqbYgLnt8OHbyJd8u7u77+/v/////7X1y7rgkGvuiGTBn2Hf8MP/5866hXLNzc34+Pj3+PhSt+Ubyf9E0vlo5Pfl3cXz6NLUu6tOlc6EdXFVklOI04jlv66ZjovX19f8/PzR4+4wxvcnz/9X1vTCzr386d391cOqj4YngsIlSmEkZ6LUw7ShsLWPkpTU1NT6+vqo0eg61v401P9n2vLw2b/67eTvuaPym3rTmIGjcl16amz0zLePy9KAk57S0tL5+fmFyehQ5P9J3P6H4vLw07v/8+r449f70r3/yaz/xqr/vaDk08GP1eGDlqLU1NT6+vp4zO1n8v9c4fyi8fza3c763cv/6Nnl0L2+zsywwcfD09O519ma1uSJm6Xa2tr8/PyBz+907/tp6vxy3veB4Pig5vTK7e3D6+6y9f+19P+o6vyx4e6h0uOqs7jm5ub+/v7v9/vZ7PfH5vOt2vCg2u+Azexiye9w3fmD6/uI5vqQ4Pe+3e2bxd7c3t/19fX////////////////////////////1+v140O98//9z+v9X1PObs8PM2+X6+vr+/v7////////////////////////////////K5/aI1O902fGNx+Tt7e36+vr///////////8MAAAAbHQAADYDAABCTTYDAAAAAAAANgAAACgAAAAQAAAAEAAAAAEAGAAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAD////////////////////////////////8/Pzy8vLn5+fm5ubx8fH8/Pz////////////////+/v77+/v6+vr9/f3////+/v7s7OzGxsapqamnp6fCwsLn5+f7+/v////////////29vbg4ODT09Pd3d3t7e3x8fGVlJVaUFNjTVFfW1yKioq4uLjj4+P6+vr////9/f3R2uCPqLeNkJKbm5u2trapp6cuKC2VgHLLspx5UFdbVFeIiIi+vr7v7+/////v8fNHruAawfsuqdpOi6hxgIlYZ3FfQzn/zKT/7sTYwqmWZmlyYWS7u7vu7u7///+01OcTuPcsy/wv1/8w0/410PUtbYpFKyTKkHT/2K7CrJR1UFNwX2HZ2dn4+Pj9/f1nvOUUxf8/zfhL4v9J4P9M7v80gpNFLCdHNzSAZlhMODpTUVadnZ3d3d38/Pzu8/U1vO8cyf5G0Pdd6PpZ7P9i/f87g5OcZFDfl3ZXOTMyRkxMnbyIjI7Nzc339/fE3OwvzPslzf9X0fG9uqeVvrl93dtHfoiicV//w5bFeFxOeHt19f5xjp/IyMj19fWa0eo/2f401P9p1vD/17v/xqj2yKuHcWl7XVbwt5Kxc1lWjpOR8vJ0kaLJycn19fWDyOdR5f9I3v+H3O3vv6fxy7r/2MCfgXtsS01tUE1KMy9ZhYyl7O10kaLKysr19fV0zu5q9v9Y4v2L3vXewKr21cXh1c+NaGvswKHgq4xNNTNcg5Kq5Ox2k6TMzMz39/eJ0e9u5fhr6/xt3vh+4feQoqepaWvZqpr/8cbksZNlSEicw83B6O+GorTa2tr6+vr5/P7e8Pi02/Ch3/J2zexTmbRzip2MhIqXfXhubHF2orfY8fe+3u2/zNXu7u7+/v7////////////////////3/P7k8/pmxOZ26u118/ln6f+Irsa30OHz9PX8/Pz////////////////////////////////M5/eV2/J41/CN0Ons7Oz6+vr///////////8=" />
|
||
|
||
PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.Init
|
||
With This
|
||
.Imagelist = .Parent.oleControl2
|
||
With .Nodes
|
||
Local laNos[12,3]
|
||
Store Null To laNos
|
||
laNos[1,1] = "Datele contractului"
|
||
laNos[2,1] = "Caixa de entrada"
|
||
laNos[3,1] = "Caixa de sa<73>da"
|
||
laNos[4,1] = "Itens enviados"
|
||
laNos[5,1] = "Itens exclu<6C>dos"
|
||
laNos[6,1] = "Rascunhos"
|
||
laNos[7,1] = "Obiectul si valoarea contractului"
|
||
laNos[8,1] = "Termene de facturare si achitare"
|
||
laNos[9,1] = "Jogos"
|
||
laNos[10,1] = "M<>sicas"
|
||
laNos[11,1] = "Fotos"
|
||
laNos[12,1] = "V<>deos"
|
||
*!* Store laNos[1,1] To laNos[2,2], laNos[3,2], laNos[4,2], laNos[5,2], laNos[6,2]
|
||
*!* Store 4 To laNos[2,3], laNos[3,3], laNos[4,3], laNos[5,3], laNos[6,3]
|
||
*!* Local lnNo
|
||
*!* For lnNo=1 To Alen(laNos,1)
|
||
*!* .Add(laNos[lnNo,2],laNos[lnNo,3],laNos[lnNo,1],laNos[lnNo,1],laNos[lnNo,1])
|
||
*!* Endfor
|
||
ENDWITH
|
||
|
||
*!* Local loNo
|
||
*!* loNo = .Nodes(0)
|
||
*!* loNo.Expanded = .T.
|
||
*!* .SelectedItem = loNo
|
||
*!* loNo = Null
|
||
Endwith
|
||
ENDPROC
|
||
|
||
PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.NodeClick
|
||
*** ActiveX Control Event ***
|
||
LPARAMETERS node
|
||
LOCAL TX
|
||
TX = THIS.SelectedItem.TEXT
|
||
MESSAGEBOX(tx)
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ct_part_nr_data AS container
|
||
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdDenumire" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: blocheaza_campuri
|
||
*m: deblocheaza_campuri
|
||
*p: llock
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BackColor = 255,255,255
|
||
Height = 116
|
||
llock = .T.
|
||
Name = "ct_part_nr_data"
|
||
Width = 600
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'cmdDenumire' AS commandbutton WITH ;
|
||
Caption = "", ;
|
||
Enabled = .F., ;
|
||
Height = 22, ;
|
||
Left = 378, ;
|
||
Name = "cmdDenumire", ;
|
||
Picture = ..\grafice\find.bmp, ;
|
||
TabIndex = 2, ;
|
||
Top = 59, ;
|
||
Width = 29
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||
Anchor = 3, ;
|
||
Caption = "Modifica", ;
|
||
FontBold = .T., ;
|
||
ForeColor = 0,0,255, ;
|
||
Height = 47, ;
|
||
Left = 9, ;
|
||
Name = "Command2", ;
|
||
Picture = ..\comun\grafice\lock.bmp, ;
|
||
SpecialEffect = 2, ;
|
||
TabIndex = 1, ;
|
||
Top = 3, ;
|
||
Width = 131
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Label3' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Partener", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label3", ;
|
||
TabIndex = 6, ;
|
||
Top = 62, ;
|
||
Width = 49
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label4' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Nr. contract ", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label4", ;
|
||
TabIndex = 7, ;
|
||
Top = 84, ;
|
||
Width = 67
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label9' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Data contract ", ;
|
||
Height = 17, ;
|
||
Left = 209, ;
|
||
Name = "Label9", ;
|
||
TabIndex = 8, ;
|
||
Top = 84, ;
|
||
Width = 77
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'lb_actAd' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Nr. act ad.", ;
|
||
FontBold = .T., ;
|
||
FontSize = 8, ;
|
||
Height = 16, ;
|
||
Left = 16, ;
|
||
Name = "lb_actAd", ;
|
||
TabIndex = 8, ;
|
||
Top = 99, ;
|
||
Width = 55
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Line1' AS line WITH ;
|
||
Anchor = 11, ;
|
||
Height = 0, ;
|
||
Left = 0, ;
|
||
Name = "Line1", ;
|
||
Top = 53, ;
|
||
Width = 601
|
||
*< END OBJECT: BaseClass="line" />
|
||
|
||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 57, ;
|
||
Left = 7, ;
|
||
Name = "Shape1", ;
|
||
SpecialEffect = 0, ;
|
||
Top = 57, ;
|
||
Width = 409
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
ADD OBJECT 'txtClient' AS textbox WITH ;
|
||
ControlSource = "goContract.denumire", ;
|
||
Height = 21, ;
|
||
Left = 87, ;
|
||
Name = "txtClient", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 5, ;
|
||
Top = 60, ;
|
||
Width = 289
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtData_ctr' AS textbox WITH ;
|
||
ControlSource = "goContract.data", ;
|
||
Height = 21, ;
|
||
Left = 288, ;
|
||
Name = "txtData_ctr", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 4, ;
|
||
Top = 82, ;
|
||
Width = 119
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtNumar' AS textbox WITH ;
|
||
ControlSource = "goContract.numar", ;
|
||
Format = "k", ;
|
||
Height = 21, ;
|
||
Left = 87, ;
|
||
Name = "txtNumar", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 3, ;
|
||
Top = 82, ;
|
||
Width = 113
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
this.cmdDenumire.Enabled = .F.
|
||
this.txtNumar.ReadOnly = .T.
|
||
this.txtData_ctr.ReadOnly = .T.
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
this.cmdDenumire.Enabled = .T.
|
||
this.txtNumar.ReadOnly = .F.
|
||
this.txtData_ctr.ReadOnly = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdDenumire.Click
|
||
LOCAL lcIdTipPart, lcTitlu
|
||
STORE '' TO lcIdTipPart, lcTitlu
|
||
|
||
* loCauta = caut_partener(lcIdTipPart, lcTitlu)
|
||
|
||
DO CASE
|
||
CASE gnParametru_prog = 1 && contracte clienti
|
||
lcIdTipPart = [-1]
|
||
lcTitlu = 'Clienti'
|
||
lcLista = ['4111']
|
||
lcContul = '4111'
|
||
CASE gnParametru_prog = 2 && contracte furnizori
|
||
lcIdTipPart = [-2]
|
||
lcTitlu = 'Furnizori'
|
||
lcLista = ['401','404']
|
||
lcContul = '401'
|
||
ENDCASE
|
||
|
||
lnIdTipPart = GetContIdTipPart(lcContul)
|
||
|
||
|
||
*!* IF !EMPTY(lcLista)
|
||
*!* lcSql = [select distinct c.cont as cont_part, c.explicatie as explic_cont, c.id_tip_part as tip ] + ;
|
||
*!* [from vcoresp_tip_cont c ] + ;
|
||
*!* [where c.cont in (] + lcLista + [) ]
|
||
*!* ENDIF
|
||
*!* lcCursor = 'xcont'
|
||
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
*!* IF lnSucces < 0
|
||
*!* aMessagebox('Eroare!',0+48, 'Atentie!')
|
||
*!* RETURN
|
||
*!* ENDIF
|
||
|
||
|
||
*!* SELECT xcont
|
||
*!* BROWSE
|
||
|
||
*!* SELECT xcont
|
||
*!* LOCATE FOR VAL(cont_part) = VAL(lcContul)
|
||
*!* lcContul = cont_part
|
||
*!* lcTip = ALLTRIM(STR(tip))
|
||
|
||
locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart))))
|
||
|
||
IF buton = 2
|
||
RETURN
|
||
ENDIF
|
||
|
||
goContract.id_part = loCauta.id_part
|
||
goContract.denumire = loCauta.denumire
|
||
THIS.PARENT.txtClient.REFRESH
|
||
* THISFORM.pageframe1.page1.txtClient.REFRESH
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command2.Click
|
||
*!* If Alltrim(goContract.tip_istoric) <> 'C' && pentru istoric Acte aditionale, sa nu mai pot face modificari, doar vizualizari
|
||
*!* AMESSAGEBOX('Nu se poate modifica istoricul unui contract!',0+48,'Atentie!')
|
||
*!* Return
|
||
*!* Endif
|
||
|
||
If This.Parent.lLock
|
||
AMESSAGEBOX('Toate modificarile au efect imediat! Nu puteti da renuntare!',0+48,'Atentie!')
|
||
|
||
This.Picture = 'unlock.bmp'
|
||
This.Parent.lLock = .F.
|
||
This.Caption = 'Salveaza'
|
||
This.Parent.deblocheaza_campuri()
|
||
|
||
******
|
||
If Type('podg_dg.but_termin1') <> 'U'
|
||
podg_dg.deblocheaza_campuri()
|
||
Endif
|
||
If Type('podg_ob.but_termin1') <> 'U'
|
||
podg_ob.deblocheaza_campuri()
|
||
Endif
|
||
If Type('podg_tf.but_termin1') <> 'U'
|
||
podg_tf.deblocheaza_campuri()
|
||
Endif
|
||
If Type('podg_link.but_termin1') <> 'U'
|
||
podg_link.deblocheaza_campuri()
|
||
Endif
|
||
If Type('podg_fact.but_termin1') <> 'U'
|
||
podg_fact.deblocheaza_campuri()
|
||
Endif
|
||
If Type('podg_tl.but_termin1') <> 'U'
|
||
podg_tl.deblocheaza_campuri()
|
||
Endif
|
||
*!* IF TYPE('podg_obs.but_termin1') <> 'U'
|
||
*!* podg_obs.but_termin1.CLICK()
|
||
*!* ENDIF
|
||
******
|
||
Else
|
||
If Type('podg_fact.but_termin1') <> 'U'
|
||
If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And (Empty(goContract.id_nota) Or Isnull(goContract.id_nota))
|
||
AMESSAGEBOX('Alegeti nota contabila !',0+48)
|
||
Return
|
||
Endif
|
||
Endif
|
||
|
||
|
||
This.Picture = 'lock.bmp'
|
||
This.Parent.lLock = .T.
|
||
This.Caption = 'Modifica'
|
||
This.Parent.blocheaza_campuri()
|
||
|
||
If Isnull(goContract.id_part)
|
||
AMESSAGEBOX('Alegeti partenerul!')
|
||
this.Parent.cmdDenumire.SetFocus()
|
||
RETURN
|
||
ENDIF
|
||
Do modifica_ctr_dg With goContract && In oproceduri_roacontracte.prg
|
||
|
||
If Type('podg_dg.but_termin1') <> 'U'
|
||
podg_dg.blocheaza_campuri()
|
||
Endif
|
||
If Type('podg_ob.but_termin1') <> 'U'
|
||
podg_ob.blocheaza_campuri()
|
||
Endif
|
||
If Type('podg_tf.but_termin1') <> 'U'
|
||
podg_tf.blocheaza_campuri()
|
||
Endif
|
||
If Type('podg_link.but_termin1') <> 'U'
|
||
podg_link.blocheaza_campuri()
|
||
Endif
|
||
If Type('podg_fact.but_termin1') <> 'U'
|
||
podg_fact.blocheaza_campuri()
|
||
Endif
|
||
If Type('podg_tl.but_termin1') <> 'U'
|
||
podg_tl.blocheaza_campuri()
|
||
Endif
|
||
|
||
Endif
|
||
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command2.Refresh
|
||
IF THIS.PARENT.lLock
|
||
THIS.PICTURE = 'lock.bmp'
|
||
THIS.CAPTION = 'Modifica'
|
||
ELSE
|
||
THIS.PICTURE = 'unlock.bmp'
|
||
THIS.CAPTION = 'Salveaza'
|
||
ENDIF
|
||
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Label3.Init
|
||
DO CASE
|
||
CASE gnParametru_prog = 1
|
||
THIS.CAPTION = 'Client'
|
||
CASE gnParametru_prog = 2
|
||
THIS.CAPTION = 'Furnizor'
|
||
ENDCASE
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx"
|
||
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_registratura" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.cNume.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.cNume.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.cNr_ctr.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.cNr_ctr.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.cData_ctr.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.cData_ctr.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.Column12.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.Column12.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.Column14.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.Column14.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.Column15.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_registratura.Column15.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: nireg
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BackColor = 255,255,255
|
||
cgridsortlist = grid_registratura
|
||
Height = 362
|
||
Name = "ct_registratura"
|
||
nireg = 0
|
||
Width = 800
|
||
Gridsort1.Name = "Gridsort1"
|
||
_ct_controller_keypress1.Name = "_ct_controller_keypress1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
||
Left = 391, ;
|
||
Name = "But_excel1", ;
|
||
TabIndex = 18, ;
|
||
Top = 2, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
||
Left = 363, ;
|
||
Name = "But_listare1", ;
|
||
TabIndex = 17, ;
|
||
Top = 2, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 3, ;
|
||
Left = 306, ;
|
||
Name = "But_nou1", ;
|
||
Picture = ..\comun\grafice\nou_sus.bmp, ;
|
||
TabIndex = 14, ;
|
||
ToolTipText = "Adaugare contract (CTRL+N)", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 3, ;
|
||
Left = 335, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 15, ;
|
||
Top = 2, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = data, ;
|
||
Caption = "Data ctr.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 113, ;
|
||
Name = "Ck_data_ctr", ;
|
||
TabIndex = 3, ;
|
||
tip = D, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 32
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = numar_aa, ;
|
||
Caption = "Nr. ctr.", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 63, ;
|
||
Name = "Ck_nr_ctr", ;
|
||
TabIndex = 2, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
camp_nume = denumire, ;
|
||
Caption = "Partener", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
FontName = "Arial Narrow", ;
|
||
Left = 8, ;
|
||
Name = "Ck_nume", ;
|
||
TabIndex = 1, ;
|
||
Top = 10, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||
Anchor = 12, ;
|
||
Height = 27, ;
|
||
Left = 632, ;
|
||
Name = "Clb_tx_simplu1", ;
|
||
TabIndex = 16, ;
|
||
Top = 331, ;
|
||
Width = 153, ;
|
||
Text_simplu1.ControlSource = "this.parent.parent.nIreg", ;
|
||
Text_simplu1.Height = 21, ;
|
||
Text_simplu1.Left = 76, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.ReadOnly = .T., ;
|
||
Text_simplu1.Top = 3, ;
|
||
Text_simplu1.Width = 72, ;
|
||
LB_SIMPLU1.Caption = "Inregistrari", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||
Anchor = 3, ;
|
||
Comment = "*:OnResize=LT", ;
|
||
Height = 23, ;
|
||
Left = 693, ;
|
||
Name = "Cmd_cauta1", ;
|
||
TabIndex = 9, ;
|
||
Top = 4, ;
|
||
Width = 67, ;
|
||
ZOrderSet = 20
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
|
||
Anchor = 3, ;
|
||
Comment = "*:OnResize=LT", ;
|
||
Height = 23, ;
|
||
Left = 693, ;
|
||
Name = "Cmd_reset1", ;
|
||
TabIndex = 13, ;
|
||
Top = 28, ;
|
||
Width = 67, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_registratura' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 6, ;
|
||
DeleteMark = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
GridLineColor = 192,192,192, ;
|
||
HeaderHeight = 38, ;
|
||
Height = 270, ;
|
||
HighlightStyle = 2, ;
|
||
Left = 8, ;
|
||
Name = "grid_registratura", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .T., ;
|
||
RecordMark = .F., ;
|
||
RecordSource = "cRegistratura", ;
|
||
TabIndex = 10, ;
|
||
Top = 59, ;
|
||
Width = 777, ;
|
||
Column1.ColumnOrder = 1, ;
|
||
Column1.ControlSource = "denumire", ;
|
||
Column1.FontName = "Arial Narrow", ;
|
||
Column1.Name = "cNume", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 193, ;
|
||
Column2.ColumnOrder = 2, ;
|
||
Column2.ControlSource = "numar", ;
|
||
Column2.FontName = "Arial Narrow", ;
|
||
Column2.Name = "cNr_ctr", ;
|
||
Column2.ReadOnly = .T., ;
|
||
Column2.Width = 48, ;
|
||
Column3.ColumnOrder = 3, ;
|
||
Column3.ControlSource = "data", ;
|
||
Column3.FontName = "Arial Narrow", ;
|
||
Column3.Format = "d", ;
|
||
Column3.Name = "cData_ctr", ;
|
||
Column3.ReadOnly = .T., ;
|
||
Column3.Width = 51, ;
|
||
Column4.ColumnOrder = 6, ;
|
||
Column4.ControlSource = "descriere", ;
|
||
Column4.FontName = "Arial Narrow", ;
|
||
Column4.Name = "Column12", ;
|
||
Column4.ReadOnly = .T., ;
|
||
Column5.ColumnOrder = 4, ;
|
||
Column5.ControlSource = "numar_intern", ;
|
||
Column5.FontName = "Arial Narrow", ;
|
||
Column5.Name = "Column14", ;
|
||
Column5.ReadOnly = .T., ;
|
||
Column5.Width = 45, ;
|
||
Column6.ColumnOrder = 5, ;
|
||
Column6.ControlSource = "data_intern", ;
|
||
Column6.FontName = "Arial Narrow", ;
|
||
Column6.Name = "Column15", ;
|
||
Column6.ReadOnly = .T., ;
|
||
Column6.Width = 51
|
||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_registratura.cData_ctr.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data contr.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_registratura.cData_ctr.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_registratura.cNr_ctr.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. contr.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_registratura.cNr_ctr.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_registratura.cNume.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Partener", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_registratura.cNume.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_registratura.Column12.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Descriere", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_registratura.Column12.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_registratura.Column14.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. inreg.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_registratura.Column14.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_registratura.Column15.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data inreg.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_registratura.Column15.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
|
||
LOCAL lcFiltru
|
||
lcFiltru = pcFiltru
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru = poReg.ca_baza1.cfiltru
|
||
ENDIF
|
||
|
||
save_grid_tag(THIS.grid_registratura)
|
||
poReg.ca_baza1.cfiltru = lcFiltru
|
||
poReg.ca_baza1.afisare()
|
||
|
||
SELECT cRegistratura
|
||
IF RECCOUNT()>0
|
||
THIS.nireg = RECCOUNT()
|
||
ELSE
|
||
THIS.nireg = 0
|
||
ENDIF
|
||
|
||
restore_grid_tag(THIS.grid_registratura)
|
||
IF RECCOUNT('cRegistratura')>0
|
||
SELECT cRegistratura
|
||
LOCATE FOR id_ctr = goRegistratura.id_reg
|
||
IF !FOUND()
|
||
GO TOP
|
||
ENDIF
|
||
|
||
THIS.grid_registratura.SETFOCUS()
|
||
ENDIF
|
||
|
||
THIS.clb_tx_simplu1.text_simplu1.REFRESH
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
LOCAL lcAlias, lnId_reg
|
||
lcAlias = THIS.grid_registratura.RECORDSOURCE
|
||
STORE 0 TO lnId_ctr
|
||
|
||
lnId_reg = adauga_registratura(lcAlias)
|
||
|
||
THIS.actualizeaza_grid1()
|
||
|
||
|
||
SELECT (lcAlias)
|
||
LOCATE FOR id_reg = lnId_reg
|
||
IF FOUND()
|
||
THIS.grid_registratura.SETFOCUS()
|
||
|
||
oprinc.pagefr1.page3.enabled = .T.
|
||
oprinc.pagefr1.ACTIVEPAGE = 3
|
||
oprinc.pagefr1.page3.CLICK()
|
||
ENDIF
|
||
|
||
|
||
***--------------------------
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
Local lcFiltru
|
||
lcFiltru = ""
|
||
|
||
If This.ck_nume.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_nume.filtru
|
||
Endif
|
||
|
||
If This.ck_nr_ctr.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_nr_ctr.filtru
|
||
Endif
|
||
|
||
If This.ck_data_ctr.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_data_ctr.filtru
|
||
Endif
|
||
|
||
If This.ck_nume_val.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_nume_val.filtru
|
||
Endif
|
||
|
||
If This.ck_denumire_tip.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_denumire_tip.filtru
|
||
Endif
|
||
|
||
If This.ck_tipc.Value = 1
|
||
lcFiltru = lcFiltru + This.ck_tipc.filtru
|
||
Endif
|
||
|
||
If This.ck_valftva.Value=1
|
||
lcFiltru = lcFiltru + This.ck_valftva.filtru
|
||
Endif
|
||
|
||
If This.ck_valctva.Value=1
|
||
lcFiltru = lcFiltru + This.ck_valctva.filtru
|
||
Endif
|
||
|
||
Do Case
|
||
Case This.optIncetat.Value = 1
|
||
lcFiltru = lcFiltru + [ and incetat = 0]
|
||
Case This.optIncetat.Value = 2
|
||
lcFiltru = lcFiltru + [ and incetat = 1]
|
||
Case This.optIncetat.Value = 3
|
||
lcFiltru = lcFiltru + [ and (incetat = 0 or incetat = 1)]
|
||
Endcase
|
||
|
||
Do Case
|
||
Case This.optInactiv.Value = 1 && active
|
||
lcFiltru = lcFiltru + [ and inactiv = 0]
|
||
Case This.optInactiv.Value = 2 && inactive
|
||
lcFiltru = lcFiltru + [ and inactiv = 1]
|
||
Case This.optInactiv.Value = 3 && toate
|
||
lcFiltru = lcFiltru + [ and (inactiv = 0 or inactiv = 1)]
|
||
Endcase
|
||
|
||
If This.ck_istoric.Value = 1 AND This.ck_aa.Value = 0
|
||
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'I')]
|
||
Endif
|
||
|
||
If This.ck_aa.Value = 1 AND This.ck_istoric.Value = 0
|
||
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A')]
|
||
ENDIF
|
||
|
||
IF This.ck_istoric.Value = 0 AND This.ck_aa.Value = 0
|
||
lcFiltru = lcFiltru + [ and tip_istoric = 'C']
|
||
ENDIF
|
||
|
||
IF This.ck_istoric.Value = 1 AND This.ck_aa.Value = 1
|
||
lcFiltru = lcFiltru + [ and (tip_istoric = 'C' or tip_istoric = 'A' or tip_istoric = 'I')]
|
||
ENDIF
|
||
|
||
|
||
If !Empty(lcFiltru)
|
||
lcFiltru = Substr(lcFiltru,6)
|
||
Else
|
||
lcFiltru = []
|
||
Endif
|
||
|
||
This.actualizeaza_grid1(lcFiltru)
|
||
If Reccount('cContracte')=0
|
||
Messagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
|
||
|
||
Select cContracte
|
||
Scatter Name goContract Memo Blank
|
||
Endif
|
||
This.grid_contracte.SetFocus()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_reset
|
||
With This
|
||
For i=1 To .Objects.Count
|
||
If Upper(.Objects(i).BaseClass)='CHECKBOX'
|
||
.Objects(i).Value=0
|
||
Endif
|
||
Endfor
|
||
ENDWITH
|
||
|
||
this.optIncetat.Value=1
|
||
this.optInactiv.Value=1
|
||
|
||
this.ck_nume.SetFocus()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_excel
|
||
DO export_excel_grid WITH this.grid_registratura
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_listare
|
||
*Thisform.AlwaysOnTop = .F.
|
||
|
||
lcmenu="\<Fisa contractului;\<Fisa contractului pentru contractele selectate;\<Centralizator;\<Lista contractelor"
|
||
lnx=xmenu(lcmenu)
|
||
|
||
Do Case
|
||
Case lnx=1
|
||
save_grid(This.grid_contracte)
|
||
|
||
Do make_cursoare_ctr && In oproceduri_roacontracte.prg && imi creeaza cursoarele
|
||
DO make_cCtrActeAditionale && In oproceduri_roacontracte.prg
|
||
|
||
Select cContracte
|
||
Set Filter To id_ctr = goContract.id_ctr
|
||
|
||
Select cCtrArt
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx'
|
||
|
||
Select cCtrScadentar
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx'
|
||
|
||
Select cCtrFactGarant
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx'
|
||
|
||
SELECT cCtrActeAditionale
|
||
index on id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx'
|
||
|
||
Select cContracte
|
||
Set Relation To
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrArt Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrFactGarant Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrScadentar Additive
|
||
|
||
SELECT cContracte
|
||
Set Relation To id_ctr Into cCtrActeAditionale Additive
|
||
|
||
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
|
||
|
||
lcSetData = Set('date')
|
||
Set Date German
|
||
|
||
Select cContracte
|
||
Report Form fisa_contractului.frx To Printer Prompt Preview
|
||
|
||
Set Date To &lcSetData
|
||
|
||
|
||
Select cContracte
|
||
Set Filter To
|
||
|
||
Set Relation Off Into 'cCtrArt'
|
||
Set Relation Off Into 'cCtrFactGarant'
|
||
Set Relation Off Into 'cCtrScadentar'
|
||
Set Relation Off Into 'cCtrActeAditionale'
|
||
|
||
If Used('cCtrScadentar')
|
||
Use In cCtrScadentar
|
||
Endif
|
||
If Used('cCtrFactGarant')
|
||
Use In cCtrFactGarant
|
||
Endif
|
||
If Used('cCtrArt')
|
||
Use In cCtrArt
|
||
Endif
|
||
If Used('cCtrLink')
|
||
Use In cCtrLink
|
||
ENDIF
|
||
If Used('cCtrActeAditionale')
|
||
Use In cCtrActeAditionale
|
||
Endif
|
||
restore_grid(This.grid_contracte)
|
||
Case lnx = 2
|
||
llToate = .T.
|
||
Do make_cursoare_ctr With llToate && In oproceduri_roacontracte.prg && imi creeaza cursoarele
|
||
DO make_cCtrActeAditionale With llToate && In oproceduri_roacontracte.prg
|
||
|
||
Select cCtrArt
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx'
|
||
|
||
Select cCtrScadentar
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx'
|
||
|
||
Select cCtrFactGarant
|
||
Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx'
|
||
|
||
SELECT cCtrActeAditionale
|
||
index on id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx'
|
||
|
||
Select cContracte
|
||
Set Relation To
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrArt Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrFactGarant Additive
|
||
|
||
Select cContracte
|
||
Set Relation To id_ctr Into cCtrScadentar Additive
|
||
|
||
SELECT cContracte
|
||
Set Relation To id_ctr Into cCtrActeAditionale Additive
|
||
|
||
Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale
|
||
|
||
lcSetData = Set('date')
|
||
Set Date German
|
||
|
||
Select cContracte
|
||
Report Form fisa_contractului.frx To Printer Prompt Preview
|
||
|
||
Set Date To &lcSetData
|
||
|
||
|
||
Select cContracte
|
||
Set Filter To
|
||
|
||
Set Relation Off Into 'cCtrArt'
|
||
Set Relation Off Into 'cCtrFactGarant'
|
||
Set Relation Off Into 'cCtrScadentar'
|
||
SET RELATION OFF INTO 'cCtrActeAditionale'
|
||
|
||
If Used('cCtrScadentar')
|
||
Use In cCtrScadentar
|
||
Endif
|
||
If Used('cCtrFactGarant')
|
||
Use In cCtrFactGarant
|
||
Endif
|
||
If Used('cCtrArt')
|
||
Use In cCtrArt
|
||
Endif
|
||
If Used('cCtrLink')
|
||
Use In cCtrLink
|
||
ENDIF
|
||
If Used('cCtrActeAditionale')
|
||
Use In cCtrActeAditionale
|
||
Endif
|
||
Case lnx = 3
|
||
Private pcDataOra, pcTitlu
|
||
pcDataOra = get_ora(2)
|
||
pcTitlu = "Centralizator contracte"
|
||
|
||
Local lcTabel
|
||
lcTabel = This.grid_contracte.RecordSource
|
||
Select (lcTabel)
|
||
Report Form rContracte_centralizator.frx To Printer Prompt Preview
|
||
Case lnx=4
|
||
|
||
Private pcDataOra, pcTitlu
|
||
pcDataOra = get_ora(2)
|
||
pcTitlu = "Lista contractelor"
|
||
|
||
Local lcTabel
|
||
lcTabel = This.grid_contracte.RecordSource
|
||
Select (lcTabel)
|
||
Report Form rContracte.frx To Printer Prompt Preview
|
||
Endcase
|
||
*Thisform.AlwaysOnTop = .T.
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_sterge
|
||
PRIVATE pnId_ctr, pnTip
|
||
|
||
LOCAL lnRaspuns, lcSql, lnSucces, lcId, lcId_util
|
||
STORE 0 TO lnRaspuns, lnSucces
|
||
STORE '' TO lcSql
|
||
|
||
IF !EMPTY(goContract.id_ctr)
|
||
lnRaspuns = amessage('Doriti sa stergeti documentul?',4+32,_SCREEN.CAPTION)
|
||
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
|
||
RETURN
|
||
ENDIF
|
||
|
||
lcId = ALLTRIM(STR(goRegistratura.id_reg))
|
||
lcId_util = ALLTRIM(STR(gnIdUtil))
|
||
|
||
lcSql = [begin pack_registratura.sterge_registratura(]+lcId+[,]+lcId_util+[); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
THIS.actualizeaza_grid1()
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
DODEFAULT()
|
||
|
||
Select cRegistratura
|
||
If Reccount()>0
|
||
This.nireg = Reccount()
|
||
ELSE
|
||
This.nireg = 0
|
||
ENDIF
|
||
|
||
this.clb_tx_simplu1.text_simplu1.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_registratura.AfterRowColChange
|
||
LPARAMETERS nColIndex
|
||
|
||
LOCAL lcTabel
|
||
lcTabel = this.RecordSource
|
||
|
||
SELECT (lcTabel)
|
||
SCATTER NAME goRegistratura MEMO
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_registratura.cNume.Text1.RightClick
|
||
Local lcMenu, lnx
|
||
lcMenu = "Lista facturilor pentru contractul selectat"
|
||
lnx = xmenu(lcMenu)
|
||
|
||
Do Case
|
||
Case lnx = 1
|
||
llContract = .T.
|
||
Do Case
|
||
Case gnParametru_prog = 1
|
||
Do lans_ireg_parteneri With .F., gcCont411, .T.,,,,,llContract
|
||
Case gnParametru_prog = 2
|
||
Do lans_ireg_parteneri With .F.,'401', .F.,,,,,llContract
|
||
Endcase
|
||
Endcase
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cus_odata_actaditional AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
Name = "cus_odata_actaditional"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
LPARAMETERS toRec,tnId
|
||
|
||
lcActiune = ALLTRIM(THIS.cActiune)
|
||
lcId_util = ALLTRIM(STR(gnidutil))
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'INSERT') AND TYPE('toRec') != "O"
|
||
RETURN .F.
|
||
ENDIF
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'DELETE') AND TYPE('tnId') != "N"
|
||
RETURN .F.
|
||
ENDIF
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'DELETE')
|
||
lcId = ALLTRIM(STR(tnId))
|
||
ENDIF
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'INSERT')
|
||
lcId_ctr = NVL(ALLTRIM(STR(goContract.id_ctr)),"0")
|
||
lcId_part = NVL(ALLTRIM(STR(goContract.id_part)),"0")
|
||
lcId_tip_ctr = NVL(ALLTRIM(STR(goContract.id_tip_ctr)),"0")
|
||
lcNumar = NVL(ALLTRIM(toRec.numar),"0")
|
||
lcData = ALLTRIM(DTOS(toRec.data))
|
||
lcDescriere = NVL(ALLTRIM(toRec.descriere),"")
|
||
ENDIF
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
lcSql = [begin pack_crm.adauga_act_aditional(]+lcId_ctr+ [,]+lcId_part+ [,] + lcId_tip_ctr+[,']+ lcNumar+[',]+;
|
||
[to_date(']+lcData+[','YYYYMMDD'),']+lcDescriere+ [',]+lcId_util+[); end;]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
lcSql = [begin pack_def.modifica_contract(]+lcId+[,']+lcNumar+[',]+;
|
||
[to_date(']+lcData+[','YYYYMMDD'),]+lcId_tip_ctr + [,]+lcInactiv+[,]+lcId_util+[); end;]
|
||
|
||
Case lcActiune = "DELETE"
|
||
lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;]
|
||
ENDCASE
|
||
|
||
this.csql = lcSql
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cus_odata_selectie AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
Name = "cus_odata_selectie"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
Lparameters toRec,tnId
|
||
|
||
lcActiune = Alltrim(This.cActiune)
|
||
lcId_util = Alltrim(Str(gnIdUtil))
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE')
|
||
lcId = Alltrim(Str(tnId))
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||
lcSelectie = Strtran(Alltrim(toRec.selectie),['],[''])
|
||
ENDIF
|
||
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
lcSql = [begin PACK_CTR_FURNIZORI.adauga_selectie('] + lcSelectie + [',]+lcId_util+[); end;]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
lcSql = [begin PACK_CTR_FURNIZORI.modifica_selectie(]+lcId +[,']+lcSelectie+ [',]+ lcId_util+[); end;]
|
||
|
||
Case lcActiune = "DELETE"
|
||
* lcSql = [begin pack_nomenclatoare.sterge_tip_ctr(]+lcId+[,]+lcId_util+[); end;]
|
||
lcSql = [begin PACK_CTR_FURNIZORI.sterge_selectie(]+lcId+ [,]+ lcId_util+[); end;]
|
||
|
||
Endcase
|
||
|
||
This.csql = lcSql
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_ctr_link_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtLink" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 3
|
||
DoCreate = .T.
|
||
Height = 124
|
||
Name = "frm_ctr_link_nou"
|
||
Width = 375
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Height = 29
|
||
_shape2.Left = 314
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 61
|
||
Lb_titlu_alb_b121.Caption = "Link"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 5
|
||
BUT_TERMIN1.Left = 344
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 4
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 314, ;
|
||
Name = "But_renunt1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
||
Caption = "...", ;
|
||
Height = 22, ;
|
||
Left = 336, ;
|
||
Name = "Command3", ;
|
||
TabIndex = 3, ;
|
||
Top = 84, ;
|
||
Width = 29
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command4' AS commandbutton WITH ;
|
||
Caption = "", ;
|
||
Height = 22, ;
|
||
Left = 310, ;
|
||
Name = "Command4", ;
|
||
Picture = ..\grafice\open.bmp, ;
|
||
TabIndex = 8, ;
|
||
Top = 84, ;
|
||
Width = 27
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Label1' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Denumire", ;
|
||
Height = 17, ;
|
||
Left = 13, ;
|
||
Name = "Label1", ;
|
||
TabIndex = 6, ;
|
||
Top = 51, ;
|
||
Width = 57
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label2' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Link", ;
|
||
Height = 17, ;
|
||
Left = 13, ;
|
||
Name = "Label2", ;
|
||
TabIndex = 7, ;
|
||
Top = 87, ;
|
||
Width = 25
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||
ControlSource = "poLink.denumire_link", ;
|
||
Height = 23, ;
|
||
Left = 77, ;
|
||
Name = "Text1", ;
|
||
TabIndex = 1, ;
|
||
Top = 48, ;
|
||
Width = 228
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtLink' AS textbox WITH ;
|
||
ControlSource = "poLink.link", ;
|
||
Height = 23, ;
|
||
Left = 77, ;
|
||
Name = "txtLink", ;
|
||
TabIndex = 2, ;
|
||
Top = 84, ;
|
||
Width = 228
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE Command3.Click
|
||
lcDoc = GETFILE("*","Alegeti fisierul")
|
||
thisform.txtLink.Value = lcDoc
|
||
thisform.txtLink.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE Command4.Click
|
||
PRIVATE oWord
|
||
LOCAL lcDocument
|
||
|
||
lcDocument = thisform.txtLink.Value
|
||
|
||
IF !FILE(lcDocument)
|
||
MESSAGEBOX("Nu exista fisierul "+lcDocument,16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
oWord = CREATEOBJECT('word.application')
|
||
oDocument = oWord.Documents.OPEN(lcDocument)
|
||
oWord.CAPTION = "Contract Test"
|
||
|
||
opuiu = CREATEOBJECT('shell.application')
|
||
opuiu.minimizeAll
|
||
RELEASE opuiu
|
||
oWord.VISIBLE =.T.
|
||
oword = .null.
|
||
RELEASE oword
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: blocheaza_campuri
|
||
*m: deblocheaza_campuri
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 0
|
||
DoCreate = .T.
|
||
Height = 282
|
||
Name = "frm_dg"
|
||
Width = 417
|
||
WindowType = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 1000
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Visible = .F.
|
||
Lb_titlu_alb_b121.FontBold = .T.
|
||
Lb_titlu_alb_b121.ForeColor = 0,0,0
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1000
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
PROCEDURE Activate
|
||
DODEFAULT()
|
||
|
||
this.Left = 202
|
||
this.Width = _screen.Width - 206
|
||
this.Top = oprinc.pagefr1.top + 28 + 120
|
||
this.Height = _screen.Height - this.Top - 2
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg_date_generale AS frm_dg OF "ferestre_contracte.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdValuta" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="ck_incetat" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtDurata" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtData_incetat" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdTip_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtTip_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="ck_inactiv" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="ck_semnat" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtData_inceput" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtData_sfarsit" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdResponsabil" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtResponsabil" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdSectie" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtSectie" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtMotiv_incetat" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdSelectie" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtSelectie" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtData_intern" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtDescriere" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtNumar_intern" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtOfertanti" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: llock
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 379
|
||
llock = .F.
|
||
Name = "frm_dg_date_generale"
|
||
Width = 559
|
||
WindowType = 0
|
||
_shape1.Height = 29
|
||
_shape1.Left = -12
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 800
|
||
_shape1.Width = 561
|
||
_shape1.ZOrderSet = 3
|
||
_shape2.Left = 504
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Visible = .F.
|
||
_shape2.ZOrderSet = 4
|
||
Lb_titlu_alb_b121.Caption = "Date generale"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 20
|
||
Lb_titlu_alb_b121.ZOrderSet = 5
|
||
BUT_TERMIN1.Left = 530
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 21
|
||
BUT_TERMIN1.Top = 1000
|
||
BUT_TERMIN1.ZOrderSet = 6
|
||
Gridsort1.Left = 132
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 12
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'ck_inactiv' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Inactiv", ;
|
||
ControlSource = "goContract.inactiv", ;
|
||
Height = 17, ;
|
||
Left = 105, ;
|
||
Name = "ck_inactiv", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 17, ;
|
||
Top = 358, ;
|
||
Width = 52, ;
|
||
ZOrderSet = 22
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'ck_incetat' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Incetat (nu mai este in desfasurare)", ;
|
||
ControlSource = "goContract.incetat", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "ck_incetat", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 11, ;
|
||
Top = 244, ;
|
||
Width = 213, ;
|
||
ZOrderSet = 12
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'ck_semnat' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Semnat", ;
|
||
ControlSource = "goContract.semnat", ;
|
||
Height = 17, ;
|
||
Left = 26, ;
|
||
Name = "ck_semnat", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 16, ;
|
||
Top = 358, ;
|
||
Width = 61, ;
|
||
ZOrderSet = 23
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'cmdResponsabil' AS commandbutton WITH ;
|
||
Caption = "", ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 21, ;
|
||
Left = 281, ;
|
||
Name = "cmdResponsabil", ;
|
||
Picture = ..\grafice\find.bmp, ;
|
||
TabIndex = 14, ;
|
||
Top = 310, ;
|
||
Width = 28, ;
|
||
ZOrderSet = 28
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cmdSectie' AS commandbutton WITH ;
|
||
Caption = "", ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 21, ;
|
||
Left = 281, ;
|
||
Name = "cmdSectie", ;
|
||
Picture = ..\grafice\find.bmp, ;
|
||
TabIndex = 15, ;
|
||
Top = 332, ;
|
||
Width = 28, ;
|
||
ZOrderSet = 31
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cmdSelectie' AS commandbutton WITH ;
|
||
Caption = "", ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 21, ;
|
||
Left = 288, ;
|
||
Name = "cmdSelectie", ;
|
||
Picture = ..\..\roacontracte_furnizori\grafice\find.bmp, ;
|
||
TabIndex = 6, ;
|
||
Top = 130, ;
|
||
Width = 28, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cmdTip_ctr' AS commandbutton WITH ;
|
||
Caption = "", ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 21, ;
|
||
Left = 288, ;
|
||
Name = "cmdTip_ctr", ;
|
||
Picture = ..\..\roacontracte_furnizori\grafice\find.bmp, ;
|
||
TabIndex = 5, ;
|
||
Top = 108, ;
|
||
Width = 28, ;
|
||
ZOrderSet = 20
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cmdValuta' AS commandbutton WITH ;
|
||
Caption = "", ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 21, ;
|
||
Left = 281, ;
|
||
Name = "cmdValuta", ;
|
||
Picture = ..\grafice\find.bmp, ;
|
||
TabIndex = 13, ;
|
||
Top = 288, ;
|
||
Width = 28, ;
|
||
ZOrderSet = 11
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Label1' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Data inceput", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label1", ;
|
||
TabIndex = 38, ;
|
||
Top = 161, ;
|
||
Width = 71, ;
|
||
ZOrderSet = 24
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label10' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Durata (luni)", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label10", ;
|
||
TabIndex = 30, ;
|
||
Top = 183, ;
|
||
Width = 70, ;
|
||
ZOrderSet = 13
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label12' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Tip contract", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label12", ;
|
||
TabIndex = 34, ;
|
||
Top = 110, ;
|
||
Width = 65, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label14' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Responsabil", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label14", ;
|
||
TabIndex = 33, ;
|
||
Top = 312, ;
|
||
Width = 73, ;
|
||
ZOrderSet = 29
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label17' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Valuta", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label17", ;
|
||
TabIndex = 31, ;
|
||
Top = 290, ;
|
||
Width = 36, ;
|
||
ZOrderSet = 15
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label2' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Data incetarii", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label2", ;
|
||
TabIndex = 36, ;
|
||
Top = 227, ;
|
||
Width = 74, ;
|
||
ZOrderSet = 17
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label20' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Sectie", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label20", ;
|
||
TabIndex = 32, ;
|
||
Top = 334, ;
|
||
Width = 36, ;
|
||
ZOrderSet = 32
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label21' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Motiv incetare", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label21", ;
|
||
TabIndex = 22, ;
|
||
Top = 262, ;
|
||
Width = 76, ;
|
||
ZOrderSet = 34
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label3' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Modul de selectie", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label3", ;
|
||
TabIndex = 35, ;
|
||
Top = 132, ;
|
||
Width = 98, ;
|
||
ZOrderSet = 37
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label4' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Descriere", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label4", ;
|
||
TabIndex = 25, ;
|
||
Top = 82, ;
|
||
Width = 56, ;
|
||
ZOrderSet = 40
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label5' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Data sfarsit", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label5", ;
|
||
TabIndex = 37, ;
|
||
Top = 205, ;
|
||
Width = 65, ;
|
||
ZOrderSet = 26
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label6' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Nr./data inreg. (intrare-iesire)", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label6", ;
|
||
TabIndex = 18, ;
|
||
Top = 38, ;
|
||
Width = 160, ;
|
||
ZOrderSet = 42
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label7' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Ofertanti", ;
|
||
Height = 17, ;
|
||
Left = 28, ;
|
||
Name = "Label7", ;
|
||
TabIndex = 23, ;
|
||
Top = 60, ;
|
||
Width = 48, ;
|
||
ZOrderSet = 46
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label9' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "/", ;
|
||
Height = 17, ;
|
||
Left = 326, ;
|
||
Name = "Label9", ;
|
||
TabIndex = 19, ;
|
||
Top = 38, ;
|
||
Width = 5, ;
|
||
ZOrderSet = 44
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Shape3' AS shape WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 128, ;
|
||
Left = 19, ;
|
||
Name = "Shape3", ;
|
||
SpecialEffect = 0, ;
|
||
Top = 156, ;
|
||
Width = 442, ;
|
||
ZOrderSet = 10
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
ADD OBJECT 'Shape4' AS shape WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 50, ;
|
||
Left = 19, ;
|
||
Name = "Shape4", ;
|
||
SpecialEffect = 0, ;
|
||
Top = 105, ;
|
||
Width = 442, ;
|
||
ZOrderSet = 9
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
ADD OBJECT 'Shape5' AS shape WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 72, ;
|
||
Left = 18, ;
|
||
Name = "Shape5", ;
|
||
SpecialEffect = 0, ;
|
||
Top = 285, ;
|
||
Width = 442, ;
|
||
ZOrderSet = 8
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
ADD OBJECT 'Shape7' AS shape WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 72, ;
|
||
Left = 19, ;
|
||
Name = "Shape7", ;
|
||
SpecialEffect = 0, ;
|
||
Top = 32, ;
|
||
Width = 442, ;
|
||
ZOrderSet = 0
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
ADD OBJECT 'txtData_inceput' AS textbox WITH ;
|
||
ControlSource = "goContract.data_inceput", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtData_inceput", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 7, ;
|
||
Top = 159, ;
|
||
Width = 72, ;
|
||
ZOrderSet = 25
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtData_incetat' AS textbox WITH ;
|
||
ControlSource = "goContract.data_incetat", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtData_incetat", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 10, ;
|
||
Top = 225, ;
|
||
Width = 72, ;
|
||
ZOrderSet = 18
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtData_intern' AS textbox WITH ;
|
||
ControlSource = "goContract.data_intern", ;
|
||
Height = 21, ;
|
||
Left = 333, ;
|
||
Name = "txtData_intern", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 2, ;
|
||
Top = 36, ;
|
||
Width = 119, ;
|
||
ZOrderSet = 45
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtData_sfarsit' AS textbox WITH ;
|
||
ControlSource = "goContract.data_sfarsit", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtData_sfarsit", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 9, ;
|
||
Top = 203, ;
|
||
Width = 72, ;
|
||
ZOrderSet = 27
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtDescriere' AS textbox WITH ;
|
||
ControlSource = "goContract.descriere", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtDescriere", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 4, ;
|
||
Top = 80, ;
|
||
Width = 321, ;
|
||
ZOrderSet = 41
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtDurata' AS textbox WITH ;
|
||
ControlSource = "goContract.durata", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtDurata", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 8, ;
|
||
Top = 181, ;
|
||
Width = 73, ;
|
||
ZOrderSet = 14
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtMotiv_incetat' AS textbox WITH ;
|
||
ControlSource = "goContract.motiv_incetat", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtMotiv_incetat", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 12, ;
|
||
Top = 260, ;
|
||
Width = 321, ;
|
||
ZOrderSet = 35
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtNumar_intern' AS textbox WITH ;
|
||
ControlSource = "goContract.numar_intern", ;
|
||
Format = "k", ;
|
||
Height = 21, ;
|
||
Left = 209, ;
|
||
Name = "txtNumar_intern", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 1, ;
|
||
Top = 36, ;
|
||
Width = 113, ;
|
||
ZOrderSet = 43
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtOfertanti' AS textbox WITH ;
|
||
ControlSource = "goContract.ofertanti", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtOfertanti", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 3, ;
|
||
Top = 58, ;
|
||
Width = 321, ;
|
||
ZOrderSet = 47
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtResponsabil' AS textbox WITH ;
|
||
ControlSource = "goContract.responsabil", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtResponsabil", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 24, ;
|
||
Top = 310, ;
|
||
Width = 144, ;
|
||
ZOrderSet = 30
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtSectie' AS textbox WITH ;
|
||
ControlSource = "goContract.sectie", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtSectie", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 27, ;
|
||
Top = 332, ;
|
||
Width = 144, ;
|
||
ZOrderSet = 33
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtSelectie' AS textbox WITH ;
|
||
ControlSource = "goContract.selectie", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtSelectie", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 29, ;
|
||
Top = 130, ;
|
||
Width = 144, ;
|
||
ZOrderSet = 39
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtTip_ctr' AS textbox WITH ;
|
||
ControlSource = "goContract.denumire_tip", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtTip_ctr", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 28, ;
|
||
Top = 108, ;
|
||
Width = 144, ;
|
||
ZOrderSet = 21
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtValuta' AS textbox WITH ;
|
||
ControlSource = "goContract.nume_val", ;
|
||
Height = 21, ;
|
||
Left = 131, ;
|
||
Name = "txtValuta", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 26, ;
|
||
Top = 288, ;
|
||
Width = 144, ;
|
||
ZOrderSet = 16
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
this.txtDescriere.ReadOnly = .T.
|
||
this.cmdTip_ctr.Enabled = .F.
|
||
this.CmdSelectie.Enabled = .F.
|
||
this.txtData_inceput.ReadOnly = .T.
|
||
this.txtDurata.ReadOnly = .T.
|
||
this.txtData_sfarsit.ReadOnly = .T.
|
||
this.txtData_incetat.ReadOnly = .T.
|
||
this.ck_incetat.ReadOnly = .T.
|
||
this.txtMotiv_incetat.ReadOnly = .T.
|
||
this.cmdValuta.Enabled = .F.
|
||
this.cmdResponsabil.Enabled = .F.
|
||
this.cmdSectie.Enabled = .F.
|
||
this.ck_semnat.ReadOnly = .T.
|
||
this.ck_inactiv.ReadOnly = .T.
|
||
this.txtnumar_intern.ReadOnly = .T.
|
||
this.txtData_intern.ReadOnly = .T.
|
||
this.txtOfertanti.ReadOnly = .T.
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
this.txtDescriere.ReadOnly = .F.
|
||
this.cmdTip_ctr.Enabled = .T.
|
||
this.CmdSelectie.Enabled = .T.
|
||
this.txtData_inceput.ReadOnly = .F.
|
||
this.txtDurata.ReadOnly = .F.
|
||
this.txtData_sfarsit.ReadOnly = .F.
|
||
this.txtData_incetat.ReadOnly = .F.
|
||
this.ck_incetat.ReadOnly = .F.
|
||
this.txtMotiv_incetat.ReadOnly = .F.
|
||
this.cmdValuta.Enabled = .T.
|
||
this.cmdResponsabil.Enabled = .T.
|
||
this.cmdSectie.Enabled = .T.
|
||
this.ck_semnat.ReadOnly = .F.
|
||
this.ck_inactiv.ReadOnly = .F.
|
||
this.txtnumar_intern.ReadOnly = .f.
|
||
this.txtData_intern.ReadOnly = .f.
|
||
this.txtOfertanti.ReadOnly = .F.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdResponsabil.Click
|
||
*!* LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
|
||
*!* lcselect = [select v.id_valuta, v.nume_val FROM vnom_valute v where]
|
||
*!* lcfiltru = [1=2]
|
||
*!* lcschema = []
|
||
*!* lcorder = [v.nume_val]
|
||
*!* lccoloane = [nume_val]
|
||
*!* lcTitlu = [Alegeti valuta]
|
||
*!* lcTitluColoane = [Nume]
|
||
*!* lcFiltruOriginal = [v.inactiv = 0]
|
||
*!* lcNumeProc = ""
|
||
*!* locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal)
|
||
|
||
locauta = caut_responsabil()
|
||
|
||
IF buton=2
|
||
RETURN
|
||
ENDIF
|
||
|
||
goContract.id_responsabil = locauta.id_responsabil
|
||
goContract.responsabil = locauta.nume
|
||
*pcNrord = locauta.nrord
|
||
thisform.txtResponsabil.Refresh
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdSectie.Click
|
||
locauta = caut_sectie()
|
||
|
||
IF buton=2
|
||
RETURN
|
||
ENDIF
|
||
|
||
goContract.id_sectie = locauta.id_sectie
|
||
goContract.sectie = locauta.sectie
|
||
thisform.txtSectie.Refresh
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdSelectie.Click
|
||
LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
|
||
lcselect = [select id_selectie, selectie FROM vctr_selectii]
|
||
lcfiltru = [1=2]
|
||
lcschema = []
|
||
lcorder = [selectie]
|
||
lccoloane = [selectie]
|
||
lcTitlu = [Alegeti modul de selectie]
|
||
lcTitluColoane = [Mod selectie]
|
||
lcFiltruOriginal = []
|
||
lcNumeProc = ""
|
||
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal)
|
||
|
||
IF buton=2
|
||
RETURN
|
||
ENDIF
|
||
|
||
goContract.id_selectie = locauta.id_selectie
|
||
goContract.selectie = locauta.selectie
|
||
THISFORM.txtSelectie.REFRESH
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdTip_ctr.Click
|
||
LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
|
||
lcselect = [select id_tip_ctr, denumire_tip FROM vtipuri_contracte]
|
||
lcfiltru = [1=2]
|
||
lcschema = []
|
||
lcorder = [denumire_tip]
|
||
lccoloane = [denumire_tip]
|
||
lcTitlu = [Alegeti tipul de contract]
|
||
lcTitluColoane = [Tip contract]
|
||
DO CASE
|
||
CASE gnParametru_prog=1
|
||
lcFiltruOriginal = [substr(tata,2,6)='CLIENT']
|
||
CASE gnParametru_prog=2
|
||
lcFiltruOriginal = [substr(tata,2,6)='FURNIZ']
|
||
OTHERWISE
|
||
lcFiltruOriginal = []
|
||
ENDCASE
|
||
lcNumeProc = ""
|
||
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal)
|
||
|
||
IF buton=2
|
||
RETURN
|
||
ENDIF
|
||
|
||
goContract.id_tip_ctr = locauta.id_tip_ctr
|
||
goContract.denumire_tip = locauta.denumire_tip
|
||
THISFORM.txtTip_ctr.REFRESH
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdValuta.Click
|
||
locauta = caut_valuta()
|
||
IF buton=2
|
||
RETURN
|
||
ENDIF
|
||
|
||
goContract.id_valuta = locauta.id_valuta
|
||
goContract.nume_val = locauta.nume_val
|
||
thisform.txtValuta.Refresh
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE txtData_incetat.Valid
|
||
IF !EMPTY(goContract.data_inceput) AND goContract.data_incetat <= goContract.data_inceput
|
||
MESSAGEBOX('Introduceti data incetarii mai mare decat data de inceput a contractului !',0+48,_screen.Caption)
|
||
goContract.data_incetat = goContract.data_inceput + 1
|
||
ENDIF
|
||
|
||
thisform.txtData_inceput.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE txtData_sfarsit.Valid
|
||
IF !EMPTY(goContract.data_inceput) AND goContract.data_sfarsit <= goContract.data_inceput
|
||
MESSAGEBOX('Introduceti data de sfarsit mai mare decat data de inceput a contractului !',0+48,_screen.Caption)
|
||
goContract.data_sfarsit = goContract.data_inceput + 1
|
||
ENDIF
|
||
|
||
goContract.durata = INT((YEAR(goContract.data_sfarsit)*12 + MONTH(goContract.data_sfarsit)) - (YEAR(goContract.data_inceput)*12 + MONTH(goContract.data_inceput)))
|
||
thisform.txtDurata.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE txtDurata.Valid
|
||
goContract.data_sfarsit = GOMONTH(goContract.data_inceput, goContract.durata)
|
||
thisform.txtData_sfarsit.Refresh
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg_fact AS frm_dg OF "ferestre_contracte.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="ShapeNota" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="opt_facturare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="ck_text_standard" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cboNote" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lbNota" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 252
|
||
Name = "frm_dg_fact"
|
||
Width = 506
|
||
_shape1.Name = "_shape1"
|
||
_shape1.ZOrderSet = 1
|
||
_shape2.Name = "_shape2"
|
||
_shape2.ZOrderSet = 2
|
||
Lb_titlu_alb_b121.Caption = "Facturare"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.ZOrderSet = 3
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.ZOrderSet = 4
|
||
Gridsort1.Left = 120
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 4
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'cboNote' AS combobox WITH ;
|
||
BoundColumn = 2, ;
|
||
BoundTo = .T., ;
|
||
ColumnCount = 3, ;
|
||
ColumnLines = .F., ;
|
||
ColumnWidths = "300,20", ;
|
||
ControlSource = "gocontract.id_nota", ;
|
||
Height = 24, ;
|
||
Left = 122, ;
|
||
Name = "cboNote", ;
|
||
ReadOnly = .T., ;
|
||
RowSource = "crsNote.denumire,id_nota", ;
|
||
RowSourceType = 2, ;
|
||
Top = 188, ;
|
||
Visible = .F., ;
|
||
Width = 267, ;
|
||
ZOrderSet = 8
|
||
*< END OBJECT: BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'ck_text_standard' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = 'Text suplimentar standard: "Conform contractului nr ... / data..."', ;
|
||
ControlSource = "gocontract.text_standard", ;
|
||
Height = 17, ;
|
||
Left = 33, ;
|
||
Name = "ck_text_standard", ;
|
||
ReadOnly = .T., ;
|
||
Top = 147, ;
|
||
Width = 357, ;
|
||
ZOrderSet = 7
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'lbNota' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Nota contabila", ;
|
||
Height = 17, ;
|
||
Left = 33, ;
|
||
Name = "lbNota", ;
|
||
Top = 192, ;
|
||
Visible = .F., ;
|
||
Width = 81, ;
|
||
ZOrderSet = 9
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'opt_facturare' AS optiongroup WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
ButtonCount = 4, ;
|
||
ControlSource = "gocontract.opt_facturare", ;
|
||
Enabled = .F., ;
|
||
Height = 84, ;
|
||
Left = 24, ;
|
||
Name = "opt_facturare", ;
|
||
Top = 46, ;
|
||
Value = 1, ;
|
||
Width = 473, ;
|
||
ZOrderSet = 6, ;
|
||
Option1.AutoSize = .T., ;
|
||
Option1.BackStyle = 0, ;
|
||
Option1.Caption = "Denumirea ratei, valoarea ratei urmatoare", ;
|
||
Option1.Height = 17, ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 5, ;
|
||
Option1.Value = 1, ;
|
||
Option1.Width = 247, ;
|
||
Option2.AutoSize = .T., ;
|
||
Option2.BackStyle = 0, ;
|
||
Option2.Caption = "Primul articol din lista de articole (obiectul contractului) + valoarea ratei urmatoare", ;
|
||
Option2.Height = 17, ;
|
||
Option2.Left = 5, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 24, ;
|
||
Option2.Width = 463, ;
|
||
Option3.AutoSize = .T., ;
|
||
Option3.BackStyle = 0, ;
|
||
Option3.Caption = "Articole la alegere din lista de articole, cu preturile din lista de articole ", ;
|
||
Option3.Height = 17, ;
|
||
Option3.Left = 5, ;
|
||
Option3.Name = "Option3", ;
|
||
Option3.Top = 43, ;
|
||
Option3.Width = 398, ;
|
||
Option4.AutoSize = .T., ;
|
||
Option4.BackStyle = 0, ;
|
||
Option4.Caption = "Articole din liste de preturi generale", ;
|
||
Option4.Height = 17, ;
|
||
Option4.Left = 5, ;
|
||
Option4.Name = "Option4", ;
|
||
Option4.Top = 62, ;
|
||
Option4.Width = 211
|
||
*< END OBJECT: BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT 'ShapeNota' AS shape WITH ;
|
||
BackStyle = 0, ;
|
||
BorderColor = 163,163,163, ;
|
||
Height = 37, ;
|
||
Left = 24, ;
|
||
Name = "ShapeNota", ;
|
||
Top = 181, ;
|
||
Visible = .F., ;
|
||
Width = 473, ;
|
||
ZOrderSet = 0
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
this.opT_FACTURARE.Enabled = .F.
|
||
this.ck_text_standard.ReadOnly = .T.
|
||
THIS.CBoNote.Enabled = .F.
|
||
this.cboNote.ReadOnly = .T.
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
this.opT_FACTURARE.Enabled = .T.
|
||
this.ck_text_standard.ReadOnly = .F.
|
||
THIS.CBoNote.Enabled = .T.
|
||
this.cboNote.ReadOnly = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE cboNote.InteractiveChange
|
||
gocontract.id_nota = crsNote.id_nota
|
||
ENDPROC
|
||
|
||
PROCEDURE cboNote.Valid
|
||
gocontract.id_nota = crsNote.id_nota
|
||
ENDPROC
|
||
|
||
PROCEDURE opt_facturare.Init
|
||
this.Value = gocontract.opt_facturare
|
||
|
||
IF this.Value = 1 OR this.Value = 2
|
||
thisform.lbNota.Visible = .T.
|
||
thisform.shapeNota.Visible = .T.
|
||
thisform.cboNote.Visible = .T.
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE opt_facturare.Valid
|
||
IF this.Value = 1 OR this.Value = 2
|
||
thisform.lbNota.Visible = .T.
|
||
thisform.shapeNota.Visible = .T.
|
||
thisform.cboNote.Visible = .T.
|
||
ELSE
|
||
thisform.lbNota.Visible = .F.
|
||
thisform.shapeNota.Visible = .F.
|
||
thisform.cboNote.Visible = .F.
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg_link AS frm_dg OF "ferestre_contracte.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_linkuri" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_linkuri.Column1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_linkuri.Column1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_linkuri.Column2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_linkuri.Column2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_linkuri.Column3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_linkuri.Column3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_edit1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
cgridsortlist = grid_linkuri
|
||
DoCreate = .T.
|
||
Height = 200
|
||
Name = "frm_dg_link"
|
||
Width = 571
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Height = 29
|
||
_shape2.Left = 481
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 91
|
||
Lb_titlu_alb_b121.Caption = "Documente atasate"
|
||
Lb_titlu_alb_b121.Left = 6
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
Gridsort1.Left = 168
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 12
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_edit1' AS but_sterge WITH ;
|
||
caction = inainte_de_do_modifica, ;
|
||
cpicturedown = eye_jos.bmp, ;
|
||
cpictureup = eye_sus.bmp, ;
|
||
Left = 511, ;
|
||
Name = "But_edit1", ;
|
||
Picture = ..\grafice\eye_sus.bmp, ;
|
||
TabIndex = 2, ;
|
||
ToolTipText = "Vizualizare document", ;
|
||
Top = 1, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Enabled = .F., ;
|
||
Left = 482, ;
|
||
Name = "But_nou1", ;
|
||
TabIndex = 1, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Enabled = .F., ;
|
||
Left = 541, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 2, ;
|
||
Top = 1, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_linkuri' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 3, ;
|
||
DeleteMark = .F., ;
|
||
GridLineColor = 192,192,192, ;
|
||
Height = 154, ;
|
||
HighlightStyle = 2, ;
|
||
Left = 6, ;
|
||
Name = "grid_linkuri", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .T., ;
|
||
RecordMark = .F., ;
|
||
RecordSource = "cCtrLink", ;
|
||
Top = 36, ;
|
||
Width = 555, ;
|
||
Column1.ControlSource = "recno()", ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 44, ;
|
||
Column2.ColumnOrder = 2, ;
|
||
Column2.ControlSource = "denumire_link", ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.ReadOnly = .T., ;
|
||
Column2.Width = 246, ;
|
||
Column3.ColumnOrder = 3, ;
|
||
Column3.ControlSource = "link", ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.ReadOnly = .T., ;
|
||
Column3.Width = 240
|
||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_linkuri.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. crt.", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_linkuri.Column1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_linkuri.Column2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Denumire", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_linkuri.Column2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_linkuri.Column3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Link", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_linkuri.Column3.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
this.but_nou1.Enabled = .F.
|
||
this.but_sterge1.Enabled = .F.
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
this.but_nou1.Enabled = .T.
|
||
this.but_sterge1.Enabled = .T.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
PRIVATE pnId_ctr, pcDenumire, pcLink, pcObservatii, pnId_link
|
||
STORE 0 TO pnId_ctr, pnId_link
|
||
STORE "" TO pcDenumire, pcLink, pcObservatii
|
||
|
||
LOCAL lcTabelLinkuri
|
||
lcTabelLinkuri = THISFORM.grid_linkuri.RECORDSOURCE
|
||
SELECT (lcTabelLinkuri)
|
||
SCATTER NAME poLink BLANK MEMO
|
||
lodn = CREATEOBJECT("frm_ctr_link_nou")
|
||
lodn.SHOW(1)
|
||
|
||
pcDenumire = ALLTRIM(poLink.denumire_link)
|
||
pcLink = ALLTRIM(poLink.LINK)
|
||
pcObservatii = ALLTRIM(poLink.observatii)
|
||
|
||
pnId_ctr = goContract.id_ctr
|
||
|
||
lcSql = [begin pack_crm.adauga_ctr_link(?pnId_ctr, ?pcDenumire, ?pcLink, ?pcObservatii, ?@pnId_link); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
poLink.id_link = pnId_link
|
||
|
||
SELECT (lcTabelLinkuri)
|
||
APPEND BLANK
|
||
GATHER NAME poLink MEMO
|
||
REPLACE id_ctr WITH pnId_ctr
|
||
THISFORM.grid_linkuri.REFRESH
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_modifica
|
||
Private oWord
|
||
Local lcDocument
|
||
|
||
lcTabel = Thisform.grid_linkuri.RecordSource
|
||
Select (lcTabel)
|
||
If Reccount() >0
|
||
|
||
lcDocument = Link
|
||
|
||
If !File(lcDocument)
|
||
Messagebox("Nu exista fisierul "+lcDocument,16,"Eroare")
|
||
Return
|
||
Endif
|
||
|
||
*!* oWord = CREATEOBJECT('word.application')
|
||
*!* oDocument = oWord.Documents.OPEN(lcDocument)
|
||
*!* *oWord.CAPTION = "Contract Test"
|
||
|
||
*!* opuiu = CREATEOBJECT('shell.application')
|
||
*!* opuiu.minimizeAll
|
||
*!* RELEASE opuiu
|
||
*!* oWord.VISIBLE =.T.
|
||
*!* oWord = .NULL.
|
||
*!* RELEASE oWord
|
||
open_default_app(lcDocument)
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_sterge
|
||
LOCAL lcTabelLinkuri, lnRaspuns, lnInreg
|
||
lcTabelLinkuri = THISFORM.grid_linkuri.RECORDSOURCE
|
||
STORE 0 TO lnRaspuns, lnInreg
|
||
|
||
SELECT (lcTabelLinkuri)
|
||
lnRec = RECNO()
|
||
COUNT FOR !DELETED() TO lnInreg
|
||
|
||
IF lnInreg > 0
|
||
lnRaspuns = amessage('Doriti sa stergeti documentul?',4+32,_SCREEN.CAPTION)
|
||
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT (lcTabelLinkuri)
|
||
GOTO lnRec
|
||
pcId_link = ALLTRIM(STR(id_link))
|
||
lcSql = [begin pack_crm.sterge_ctr_link(] + pcId_link + [); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT (lcTabelLinkuri)
|
||
DELETE
|
||
|
||
THISFORM.grid_linkuri.REFRESH
|
||
thisform.grid_linkuri.SetFocus()
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_linkuri.Column2.Text1.DblClick
|
||
thisform.inainte_de_do_modifica()
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_linkuri.Column3.Text1.DblClick
|
||
thisform.inainte_de_do_modifica()
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg_obiectul AS frm_dg OF "ferestre_contracte.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_articole" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.Column1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.Column1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cNume_art.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cNume_art.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cNume_val.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cNume_val.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cCant.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cCant.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cUM.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cUM.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cValoare.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cValoare.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cCoef_Discount.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cCoef_Discount.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.Column11.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_articole.Column11.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtSumaArticole" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtDiscount" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtValcdiscount" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtValDiscount" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtProc_tva" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtCoef_discount" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtValDiscountTotal" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Line2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: afisactual
|
||
*m: do_modifica_ctr_art
|
||
*p: clistaidarticole
|
||
*p: cnewvalue
|
||
*p: coldvalue
|
||
*p: cxmlarticole
|
||
*p: ncoef_discount
|
||
*p: ndiscountmediu
|
||
*p: nsumaarticole
|
||
*p: nvalcdiscount
|
||
*p: nvaldiscount
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
cgridsortlist = grid_articole
|
||
clistaidarticole =
|
||
cnewvalue =
|
||
coldvalue =
|
||
cxmlarticole =
|
||
DoCreate = .T.
|
||
Height = 446
|
||
Name = "frm_dg_obiectul"
|
||
ncoef_discount = 0
|
||
ndiscountmediu = 0
|
||
nsumaarticole = 0
|
||
nvalcdiscount = 0
|
||
nvaldiscount = 0
|
||
Width = 633
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Anchor = 3
|
||
_shape2.Height = 29
|
||
_shape2.Left = 301
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 66
|
||
Lb_titlu_alb_b121.Caption = "Obiectul si valoarea contractului"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
Gridsort1.Left = 60
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 0
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 3, ;
|
||
Enabled = .F., ;
|
||
Left = 303, ;
|
||
Name = "But_nou1", ;
|
||
TabIndex = 6, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 3, ;
|
||
Enabled = .F., ;
|
||
Left = 335, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 5, ;
|
||
Top = 1, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_articole' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 11, ;
|
||
DeleteMark = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
GridLineColor = 192,192,192, ;
|
||
HeaderHeight = 38, ;
|
||
Height = 201, ;
|
||
HighlightStyle = 2, ;
|
||
Left = 8, ;
|
||
Name = "grid_articole", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .T., ;
|
||
RecordMark = .F., ;
|
||
RecordSource = "cCtrArt", ;
|
||
RecordSourceType = 1, ;
|
||
TabIndex = 1, ;
|
||
Top = 36, ;
|
||
Width = 614, ;
|
||
Column1.ControlSource = "recno()", ;
|
||
Column1.FontName = "Arial Narrow", ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 21, ;
|
||
Column2.ColumnOrder = 2, ;
|
||
Column2.ControlSource = "nume_articol", ;
|
||
Column2.FontName = "Arial Narrow", ;
|
||
Column2.Name = "cNume_art", ;
|
||
Column2.ReadOnly = .T., ;
|
||
Column2.Width = 166, ;
|
||
Column3.ColumnOrder = 5, ;
|
||
Column3.ControlSource = "pret_unitar", ;
|
||
Column3.FontName = "Arial Narrow", ;
|
||
Column3.Format = "rk", ;
|
||
Column3.InputMask = (get_mask(14,gnPA)), ;
|
||
Column3.Name = "cPret_unitar", ;
|
||
Column3.ReadOnly = .T., ;
|
||
Column3.Width = 37, ;
|
||
Column4.ColumnOrder = 11, ;
|
||
Column4.ControlSource = "nume_val", ;
|
||
Column4.FontName = "Arial Narrow", ;
|
||
Column4.Name = "cNume_val", ;
|
||
Column4.ReadOnly = .T., ;
|
||
Column4.Width = 35, ;
|
||
Column5.ColumnOrder = 4, ;
|
||
Column5.ControlSource = "cant", ;
|
||
Column5.FontName = "Arial Narrow", ;
|
||
Column5.Format = "rk", ;
|
||
Column5.InputMask = (get_mask(10,gnPCant)), ;
|
||
Column5.Name = "cCant", ;
|
||
Column5.ReadOnly = .T., ;
|
||
Column5.Width = 49, ;
|
||
Column6.ColumnOrder = 3, ;
|
||
Column6.ControlSource = "um", ;
|
||
Column6.FontName = "Arial Narrow", ;
|
||
Column6.Name = "cUM", ;
|
||
Column6.ReadOnly = .T., ;
|
||
Column6.Width = 42, ;
|
||
Column7.ColumnOrder = 6, ;
|
||
Column7.ControlSource = "valoare", ;
|
||
Column7.FontName = "Arial Narrow", ;
|
||
Column7.Format = "rk", ;
|
||
Column7.InputMask = (get_mask(14,gnPA)), ;
|
||
Column7.Name = "cValoare", ;
|
||
Column7.ReadOnly = .T., ;
|
||
Column7.Width = 49, ;
|
||
Column8.ColumnOrder = 7, ;
|
||
Column8.ControlSource = "coef_discount", ;
|
||
Column8.FontName = "Arial Narrow", ;
|
||
Column8.Format = "rk", ;
|
||
Column8.InputMask = (get_mask(10,gnPA)), ;
|
||
Column8.Name = "cCoef_Discount", ;
|
||
Column8.ReadOnly = .T., ;
|
||
Column8.Width = 42, ;
|
||
Column9.ColumnOrder = 10, ;
|
||
Column9.ControlSource = "cant *(pret_unitar-(coef_discount*pret_unitar)/100)", ;
|
||
Column9.FontName = "Arial Narrow", ;
|
||
Column9.Format = "rk", ;
|
||
Column9.InputMask = (get_mask(20,gnPA)), ;
|
||
Column9.Name = "cValcDiscount", ;
|
||
Column9.ReadOnly = .T., ;
|
||
Column9.Width = 44, ;
|
||
Column10.ColumnOrder = 8, ;
|
||
Column10.ControlSource = "val_discount", ;
|
||
Column10.FontName = "Arial Narrow", ;
|
||
Column10.InputMask = (get_mask(10,gnPA)), ;
|
||
Column10.Name = "cVal_discount", ;
|
||
Column10.ReadOnly = .T., ;
|
||
Column10.Width = 41, ;
|
||
Column11.ColumnOrder = 9, ;
|
||
Column11.ControlSource = "pret_unitar-(coef_discount*pret_unitar)/100", ;
|
||
Column11.FontName = "Arial Narrow", ;
|
||
Column11.InputMask = (get_mask(10,gnPA)), ;
|
||
Column11.Name = "Column11", ;
|
||
Column11.ReadOnly = .T., ;
|
||
Column11.Width = 45
|
||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_articole.cCant.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cantitate", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cCant.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cCoef_Discount.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Discount (%)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cCoef_Discount.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cNume_art.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Articol", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cNume_art.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cNume_val.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valuta", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cNume_val.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .T., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. crt.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.Column1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.Column11.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret unitar diminuat", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.Column11.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cPret_unitar.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret unitar", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cPret_unitar.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cUM.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Um", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cUM.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cVal_discount.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Discount unitar", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cVal_discount.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cValcDiscount.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare - Discount", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cValcDiscount.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_articole.cValoare.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_articole.cValoare.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Label1' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Procent mediu discount articole", ;
|
||
Height = 17, ;
|
||
Left = 15, ;
|
||
Name = "Label1", ;
|
||
TabIndex = 14, ;
|
||
Top = 281, ;
|
||
Width = 175
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label10' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "%", ;
|
||
Height = 17, ;
|
||
Left = 273, ;
|
||
Name = "Label10", ;
|
||
TabIndex = 22, ;
|
||
Top = 351, ;
|
||
Width = 13
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label15' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "TVA", ;
|
||
Height = 17, ;
|
||
Left = 339, ;
|
||
Name = "Label15", ;
|
||
TabIndex = 23, ;
|
||
Top = 398, ;
|
||
Width = 23
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label16' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "%", ;
|
||
Height = 17, ;
|
||
Left = 403, ;
|
||
Name = "Label16", ;
|
||
TabIndex = 22, ;
|
||
Top = 398, ;
|
||
Width = 13
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label21' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Total valoare articole", ;
|
||
Height = 17, ;
|
||
Left = 15, ;
|
||
Name = "Label21", ;
|
||
TabIndex = 19, ;
|
||
Top = 259, ;
|
||
Width = 115
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label3' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Total valoare articole cu discount", ;
|
||
Height = 17, ;
|
||
Left = 15, ;
|
||
Name = "Label3", ;
|
||
TabIndex = 21, ;
|
||
Top = 324, ;
|
||
Width = 181
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label4' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Procent discount general", ;
|
||
Height = 17, ;
|
||
Left = 15, ;
|
||
Name = "Label4", ;
|
||
TabIndex = 16, ;
|
||
Top = 351, ;
|
||
Width = 139
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label5' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Total valoare discount articole", ;
|
||
Height = 17, ;
|
||
Left = 15, ;
|
||
Name = "Label5", ;
|
||
TabIndex = 18, ;
|
||
Top = 302, ;
|
||
Width = 165
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label6' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Valoare discount general", ;
|
||
Height = 17, ;
|
||
Left = 15, ;
|
||
Name = "Label6", ;
|
||
TabIndex = 20, ;
|
||
Top = 372, ;
|
||
Width = 139
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label7' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Total general - fara TVA", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label7", ;
|
||
TabIndex = 17, ;
|
||
Top = 398, ;
|
||
Width = 129
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label8' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Total general - cu TVA", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label8", ;
|
||
TabIndex = 15, ;
|
||
Top = 420, ;
|
||
Width = 121
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label9' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "%", ;
|
||
Height = 17, ;
|
||
Left = 273, ;
|
||
Name = "Label9", ;
|
||
TabIndex = 22, ;
|
||
Top = 281, ;
|
||
Width = 13
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Line1' AS line WITH ;
|
||
Anchor = 6, ;
|
||
Height = 0, ;
|
||
Left = 8, ;
|
||
Name = "Line1", ;
|
||
Top = 345, ;
|
||
Width = 332
|
||
*< END OBJECT: BaseClass="line" />
|
||
|
||
ADD OBJECT 'Line2' AS line WITH ;
|
||
Anchor = 6, ;
|
||
Height = 0, ;
|
||
Left = 8, ;
|
||
Name = "Line2", ;
|
||
Top = 393, ;
|
||
Width = 332
|
||
*< END OBJECT: BaseClass="line" />
|
||
|
||
ADD OBJECT 'txtCoef_discount' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "thisform.nCoef_discount", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(6,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtCoef_discount", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 2, ;
|
||
Top = 349, ;
|
||
Width = 58
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtDiscount' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "thisform.nDiscountMediu", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(6,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtDiscount", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 8, ;
|
||
Top = 279, ;
|
||
Width = 58
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtProc_tva' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "goContract.proc_tva", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = "99", ;
|
||
Left = 364, ;
|
||
Name = "txtProc_tva", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 4, ;
|
||
Top = 395, ;
|
||
Width = 38
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtSumaArticole' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "thisform.nSumaArticole", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtSumaArticole", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 7, ;
|
||
Top = 257, ;
|
||
Width = 116
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtValcdiscount' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "thisform.nValcdiscount", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtValcdiscount", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 10, ;
|
||
Top = 323, ;
|
||
Width = 116
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtValctva' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "goContract.valctva", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtValctva", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 12, ;
|
||
Top = 418, ;
|
||
Width = 116
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtValDiscount' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "thisform.nValDiscount", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtValDiscount", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 9, ;
|
||
Top = 301, ;
|
||
Width = 116
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtValDiscountTotal' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "goContract.val_discount", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtValDiscountTotal", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 3, ;
|
||
Top = 371, ;
|
||
Width = 116
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtValftva' AS textbox WITH ;
|
||
Anchor = 6, ;
|
||
ControlSource = "goContract.valftva", ;
|
||
Format = "rk", ;
|
||
Height = 21, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 213, ;
|
||
Name = "txtValftva", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 11, ;
|
||
Top = 396, ;
|
||
Width = 116
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE afisactual
|
||
PARAMETERS tlDiscount_salvat
|
||
|
||
LOCAL lcTabelArticole
|
||
lcTabelArticole = THISFORM.grid_articole.RECORDSOURCE
|
||
|
||
SELECT (lcTabelArticole)
|
||
CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0)) TO THISFORM.nSumaArticole
|
||
CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0)*NVL(coef_discount,0)/100) TO THISFORM.nValDiscount
|
||
CALCULATE AVG(NVL(coef_discount,0)) TO THISFORM.nDiscountMediu
|
||
CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0) - NVL(val_discount,0)) TO THISFORM.nValcdiscount
|
||
|
||
THISFORM.nSumaArticole = ROUND(THISFORM.nSumaArticole, gnPC)
|
||
THISFORM.nValDiscount = ROUND(THISFORM.nValDiscount, gnPC)
|
||
THISFORM.nDiscountMediu = ROUND(THISFORM.nDiscountMediu, gnPC)
|
||
THISFORM.nValcdiscount = ROUND(THISFORM.nValcdiscount, gnPC)
|
||
|
||
THISFORM.txtSumaArticole.REFRESH
|
||
THISFORM.txtDiscount.REFRESH
|
||
THISFORM.txtValdiscount.REFRESH
|
||
THISFORM.txtValcdiscount.REFRESH
|
||
|
||
***
|
||
IF tlDiscount_salvat
|
||
* cand arat obiectul si valoarea contractului, adica pe init, sa iau datele salvate
|
||
IF THISFORM.nSumaArticole <> 0
|
||
*THISFORM.nCoef_discount = ROUND(NVL(goContract.val_discount,0) / THISFORM.nValcdiscount * 100, gnPC)
|
||
THISFORM.nCoef_discount = ROUND(NVL(goContract.val_discount,0) / THISFORM.nSumaArticole * 100, gnPC)
|
||
ENDIF
|
||
ELSE && cand calculez, trebuie sa arat cat imi da
|
||
THISFORM.nCoef_discount = THISFORM.nDiscountMediu
|
||
goContract.val_discount = THISFORM.nValDiscount
|
||
thisform.txtValDiscountTotal.Refresh
|
||
ENDIF
|
||
|
||
* thisform.txtCoef_discount.Valid
|
||
|
||
*goContract.valftva = THISFORM.nValcdiscount - NVL(goContract.val_discount,0)
|
||
goContract.valftva = THISFORM.nSumaArticole - NVL(goContract.val_discount,0)
|
||
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
|
||
|
||
THISFORM.txtCoef_discount.REFRESH
|
||
THISFORM.txtValftva.REFRESH
|
||
THISFORM.txtValctva.REFRESH
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
this.but_nou1.Enabled = .F.
|
||
this.but_sterge1.Enabled = .F.
|
||
this.grid_articole.ReadOnly = .T.
|
||
this.grid_articole.cNume_art.Enabled = .F.
|
||
|
||
this.txtCoef_discount.ReadOnly = .T.
|
||
this.txtValDiscountTotal.ReadOnly = .T.
|
||
this.txtProc_tva.ReadOnly = .T.
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
this.but_nou1.Enabled = .T.
|
||
this.but_sterge1.Enabled = .T.
|
||
this.grid_articole.ReadOnly = .F.
|
||
this.grid_articole.cNume_art.Enabled = .T.
|
||
|
||
this.txtCoef_discount.ReadOnly = .F.
|
||
this.txtValDiscountTotal.ReadOnly = .F.
|
||
this.txtProc_tva.ReadOnly = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
THISFORM.ALWAYSONTOP = .F.
|
||
|
||
LOCAL lcCtrArt
|
||
lcCtrArt = THISFORM.grid_articole.RECORDSOURCE
|
||
|
||
DO CASE
|
||
CASE gnParametru_prog = 1 && clienti
|
||
lcSel = [{call pack_crm.get_politici_grup(] + ALLTRIM(STR(gnIdUtil)) + [)}]
|
||
|
||
lcCursor = 'crsPoliticiGrup1'
|
||
lnSucces = goExecutor.oExecute(lcSel, lcCursor)
|
||
IF lnSucces < 0
|
||
amessagebox(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT id_politica, nume_lista_preturi, TTOD(datai) AS datai, TTOD(DATAS) AS DATAS ;
|
||
FROM crsPoliticiGrup1 ;
|
||
INTO CURSOR crsPoliticiGrup
|
||
|
||
IF USED('crsPoliticiGrup1')
|
||
USE IN crsPoliticiGrup1
|
||
ENDIF
|
||
|
||
fpp = CREATEOBJECT("frm_politica_preturi")
|
||
fpp.SHOW(1)
|
||
|
||
IF USED('crsPoliticiGrup')
|
||
USE IN crsPoliticiGrup
|
||
ENDIF
|
||
|
||
IF USED("cPol_pret_art")
|
||
*!* modificare 08.05.2007 ( PRETFTVA in loc de PRET )
|
||
SELECT *, PRETFTVA AS pret_unitar, 1 AS cant, PRET AS valoare, ;
|
||
0 as coef_discount, 0 as val_discount ;
|
||
FROM cPol_pret_art WITH (BUFFERING = .T.) ;
|
||
WHERE ales = 1 ;
|
||
INTO CURSOR cAles
|
||
|
||
SELECT cAles
|
||
SCAN
|
||
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
|
||
pcId_pol_art = ALLTRIM(STR(id_pol_art))
|
||
pcPret_unitar = NVL(ALLTRIM(STR(pret_unitar,20,gnPC)),"0")
|
||
pcCant = ALLTRIM(STR(cant,10,gnPCant))
|
||
pcCoef_Discount = "0" && ALLTRIM(STR(coef_discount,10,gnPC))
|
||
pcVal_discount = "0" && ALLTRIM(STR(val_discount,20,gnPC))
|
||
pcId_valuta = ALLTRIM(STR(id_valuta))
|
||
pcUm = NVL(ALLTRIM(um),'')
|
||
pcExplicatie = "" && ALLTRIM(explicatie)
|
||
|
||
lcSql = [begin pack_crm.adauga_ctr_art(] + pcId_ctr + [,] + pcId_pol_art + [,] + pcPret_unitar + [,] + ;
|
||
pcCant + [,] + pcCoef_Discount + [,] + ;
|
||
pcVal_discount + [,] + pcId_valuta + [,'] + pcUm + [','] + pcExplicatie +['); end;]
|
||
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT cAles
|
||
ENDSCAN
|
||
|
||
SELECT (lcCtrArt)
|
||
APPEND FROM DBF('cAles')
|
||
|
||
IF USED('cAles')
|
||
USE IN cAles
|
||
ENDIF
|
||
|
||
IF USED('cPol_pret_art')
|
||
USE IN cPol_pret_art
|
||
ENDIF
|
||
ENDIF
|
||
CASE gnParametru_prog = 2 && firnizori
|
||
LOCAL lcArticole, lcXMLArticole
|
||
|
||
lcXMLArticole = caut_articol(0, .F., .T., .T.)
|
||
|
||
THIS.cXMLArticole = lcXMLArticole
|
||
IF !EMPTY(lcXMLArticole)
|
||
|
||
XMLTOCURSOR(lcXMLArticole, "crsArticole")
|
||
lcArticole = cursor2lista("crsArticole", "denumire", ",")
|
||
THIS.cListaIdArticole = cursor2lista("crsArticole","id_articol",",")
|
||
|
||
SELECT crsArticole
|
||
SCAN
|
||
|
||
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
|
||
pcId_articol = ALLTRIM(STR(id_articol))
|
||
|
||
lcSql = [begin pack_crm.adauga_ctr_art_furn(] + pcId_ctr + [,] + pcId_articol +[); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT crsArticole
|
||
ENDSCAN
|
||
|
||
SELECT crsArticole.*, denumire AS nume_articol FROM crsArticole INTO CURSOR crsArticole2
|
||
|
||
SELECT (lcCtrArt)
|
||
APPEND FROM DBF('crsArticole2')
|
||
|
||
|
||
USE IN crsArticole
|
||
USE IN crsArticole2
|
||
ENDIF
|
||
ENDCASE
|
||
|
||
THISFORM.afisactual()
|
||
THISFORM.grid_articole.SETFOCUS()
|
||
|
||
THISFORM.ALWAYSONTOP = .T.
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica_ctr_art
|
||
LOCAL lcTabel
|
||
lcTabel = thisform.grid_articole.RecordSource
|
||
|
||
PRIVATE pcParametru_prog, pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta
|
||
STORE '' TO pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta
|
||
|
||
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
|
||
|
||
SELECT (lcTabel)
|
||
pcParametru_prog = ALLTRIM(STR(gnParametru_prog))
|
||
pcId_pol_art = ALLTRIM(STR(id_pol_art))
|
||
pcId_articol = NVL(ALLTRIM(STR(id_articol)),'NULL')
|
||
pcCant = NVL(ALLTRIM(STR(cant,10,gnPCant)),"")
|
||
pcPret_unitar = ALLTRIM(STR(pret_unitar,20,gnPC))
|
||
pcCoef_discount = ALLTRIM(STR(coef_discount,10,gnPC))
|
||
pcVal_discount = ALLTRIM(STR(val_discount,20,gnPC))
|
||
pcId_valuta = ALLTRIM(STR(id_valuta))
|
||
|
||
lcSql = [begin pack_crm.modifica_ctr_art(] + pcParametru_prog + [,] + pcId_ctr + [,] + pcId_pol_art + [,] + pcId_articol + [,] + pcCant + [,] + ;
|
||
pcPret_unitar + [,] + pcCoef_discount + [,] + pcVal_discount + [,] + pcId_valuta + [); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_sterge
|
||
PRIVATE pcId_ctr, pcId_pol_art
|
||
STORE '' TO pcId_ctr, pcId_pol_art
|
||
|
||
LOCAL lcTabelCtrArt, lnRaspuns
|
||
|
||
lcTabelCtrArt = THISFORM.grid_articole.RECORDSOURCE
|
||
STORE 0 TO lnRaspuns
|
||
|
||
SELECT (lcTabelCtrArt)
|
||
lnRaspuns = amessage('Doriti sa stergeti prestatia?',4+32,_SCREEN.CAPTION)
|
||
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
|
||
RETURN
|
||
ENDIF
|
||
|
||
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
|
||
SELECT (lcTabelCtrArt)
|
||
|
||
DO CASE
|
||
CASE gnParametru_prog = 1
|
||
pcId_pol_art = ALLTRIM(STR(id_pol_art))
|
||
CASE gnParametru_prog = 2
|
||
pcId_pol_art = ALLTRIM(STR(id_articol))
|
||
ENDCASE
|
||
|
||
|
||
lcSql = [begin pack_crm.sterge_ctr_art(] + ALLTRIM(STR(gnParametru_prog)) + [,] + pcId_ctr + [,] + pcId_pol_art + [); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT (lcTabelCtrArt)
|
||
DELETE
|
||
|
||
THISFORM.afisactual()
|
||
THISFORM.grid_articole.REFRESH
|
||
THISFORM.grid_articole.SETFOCUS
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
DODEFAULT()
|
||
|
||
LOCAL llDiscountSalvat
|
||
llDiscountSalvat = .T.
|
||
thisform.afisactual(llDiscountSalvat)
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cCant.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewValue = thisform.cOldValue
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cCant.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cCant.Text1.LostFocus
|
||
LOCAL lcTabel
|
||
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
|
||
|
||
IF THISFORM.cOldValue <> THISFORM.cNewValue
|
||
thisform.do_modifica_ctr_art()
|
||
|
||
SELECT (lcTabel)
|
||
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
|
||
THISFORM.afisactual
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cCoef_Discount.Text1.GotFocus
|
||
thisform.cOldValue = this.Value
|
||
thisform.cNewValue = thisform.cOldValue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cCoef_Discount.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cCoef_Discount.Text1.LostFocus
|
||
LOCAL lcTabel
|
||
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
|
||
|
||
IF THISFORM.cOldValue <> THISFORM.cNewValue
|
||
|
||
REPLACE val_discount WITH pret_unitar * cant * coef_discount / 100
|
||
thisform.do_modifica_ctr_art()
|
||
|
||
SELECT (lcTabel)
|
||
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
|
||
THISFORM.afisactual
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cNume_val.Text1.DblClick
|
||
LOCAL locauta
|
||
locauta = caut_valuta()
|
||
IF buton = 2
|
||
RETURN
|
||
ENDIF
|
||
|
||
LOCAL lcTabel
|
||
lcTabel = this.Parent.Parent.RecordSource
|
||
|
||
SELECT (lcTabel)
|
||
REPLACE id_valuta WITH locauta.id_valuta, nume_val WITH locauta.nume_val
|
||
|
||
*IF THISFORM.cOldValue <> THISFORM.cNewValue
|
||
thisform.do_modifica_ctr_art()
|
||
*ENDIF
|
||
|
||
|
||
|
||
this.Parent.Parent.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cPret_unitar.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewValue = thisform.cOldValue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cPret_unitar.Text1.InteractiveChange
|
||
thisform.cNewValue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cPret_unitar.Text1.LostFocus
|
||
LOCAL lcTabel
|
||
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
|
||
|
||
|
||
IF THISFORM.cOldValue <> THISFORM.cNewValue
|
||
thisform.do_modifica_ctr_art()
|
||
SELECT (lcTabel)
|
||
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
|
||
THISFORM.afisactual
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cValcDiscount.Text1.LostFocus
|
||
lcTabel = this.Parent.Parent.RecordSource
|
||
SELECT (lcTabel)
|
||
*REPLACE val_discount WITH (valoare - valcdiscount)*100/valoare
|
||
thisform.afisactual
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cVal_discount.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.coldvalue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cVal_discount.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_articole.cVal_discount.Text1.LostFocus
|
||
LOCAL lcTabel
|
||
lcTabel = THIS.PARENT.PARENT.RECORDSOURCE
|
||
|
||
IF THISFORM.cOldValue <> THISFORM.cNewValue
|
||
IF pret_unitar * cant <> 0
|
||
REPLACE coef_discount WITH val_discount / (pret_unitar * cant) * 100
|
||
ENDIF
|
||
|
||
thisform.do_modifica_ctr_art()
|
||
|
||
SELECT (lcTabel)
|
||
REPLACE valoare WITH cant * pret_unitar && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100
|
||
THISFORM.afisactual
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE txtCoef_discount.Valid
|
||
* IF EMPTY(goContract.val_discount)
|
||
*goContract.val_discount = ROUND(THISFORM.nValcdiscount * THISFORM.nCoef_discount / 100,gnPC)
|
||
goContract.val_discount = ROUND(THISFORM.nSumaArticole * THISFORM.nCoef_discount / 100,gnPC)
|
||
*goContract.valftva = THISFORM.nValcdiscount - goContract.val_discount
|
||
goContract.valftva = THISFORM.nSumaArticole - goContract.val_discount
|
||
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
|
||
|
||
THISFORM.txtValDiscountTotal.REFRESH
|
||
THISFORM.txtValftva.REFRESH
|
||
THISFORM.txtValctva.REFRESH
|
||
* ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE txtProc_tva.Valid
|
||
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
|
||
THISFORM.txtValctva.REFRESH
|
||
ENDPROC
|
||
|
||
PROCEDURE txtValDiscountTotal.Valid
|
||
*thisform.nCoef_discount = ROUND(goContract.val_discount / thisform.nValcdiscount * 100, gnPC)
|
||
thisform.nCoef_discount = ROUND(goContract.val_discount / thisform.nSumaArticole * 100, gnPC)
|
||
*goContract.valftva = thisform.nValcdiscount - goContract.val_discount
|
||
goContract.valftva = thisform.nSumaArticole - goContract.val_discount
|
||
goContract.valctva = goContract.valftva * (1+goContract.proc_tva/100)
|
||
|
||
thisform.txtCoef_discount.Refresh
|
||
thisform.txtValftva.Refresh
|
||
thisform.txtValctva.Refresh
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg_observatii AS frm_dg OF "ferestre_contracte.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 330
|
||
Name = "frm_dg_observatii"
|
||
Width = 452
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Name = "_shape2"
|
||
Lb_titlu_alb_b121.Caption = "Clauze speciale si observatii"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
Gridsort1.Left = 233
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 4
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Edit1' AS editbox WITH ;
|
||
Anchor = 15, ;
|
||
ControlSource = "goContract.observatii", ;
|
||
Height = 276, ;
|
||
Left = 12, ;
|
||
Name = "Edit1", ;
|
||
Top = 36, ;
|
||
Width = 408
|
||
*< END OBJECT: BaseClass="editbox" />
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg_tf AS frm_dg OF "ferestre_contracte.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtRate" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtProcente" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtScadenta_incasare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtCoef_penalitati" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdMultiplicaRate" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdAplicaScadenta" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: afisactual
|
||
*m: do_modifica_scadentar
|
||
*p: cnewvalue
|
||
*p: coldvalue
|
||
*p: nprocente
|
||
*p: nrate
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
cgridsortlist = grid_scadentar
|
||
cnewvalue =
|
||
coldvalue =
|
||
DoCreate = .T.
|
||
Height = 364
|
||
Name = "frm_dg_tf"
|
||
nprocente = 0
|
||
nrate = 0
|
||
Width = 551
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Anchor = 3
|
||
_shape2.Height = 29
|
||
_shape2.Left = 301
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 64
|
||
Lb_titlu_alb_b121.Caption = "Termene de facturare si achitare"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 6
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 7
|
||
Gridsort1.Left = 120
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 0
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 3, ;
|
||
Enabled = .F., ;
|
||
Left = 302, ;
|
||
Name = "But_nou1", ;
|
||
TabIndex = 2, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 3, ;
|
||
Enabled = .F., ;
|
||
Left = 334, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 3, ;
|
||
Top = 1, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cmdAplicaScadenta' AS commandbutton WITH ;
|
||
Anchor = 12, ;
|
||
Caption = "Aplica", ;
|
||
Enabled = .F., ;
|
||
Height = 22, ;
|
||
Left = 482, ;
|
||
Name = "cmdAplicaScadenta", ;
|
||
TabIndex = 5, ;
|
||
Top = 276, ;
|
||
Width = 54
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cmdMultiplicaRate' AS commandbutton WITH ;
|
||
Anchor = 6, ;
|
||
Caption = "Instrument de multiplicare rate", ;
|
||
Enabled = .F., ;
|
||
Height = 27, ;
|
||
Left = 8, ;
|
||
Name = "cmdMultiplicaRate", ;
|
||
TabIndex = 4, ;
|
||
Top = 333, ;
|
||
Width = 312
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||
Anchor = 6, ;
|
||
Caption = "Instrument de stergere rate", ;
|
||
Height = 27, ;
|
||
Left = 8, ;
|
||
Name = "Command2", ;
|
||
TabIndex = 17, ;
|
||
Top = 362, ;
|
||
Visible = .F., ;
|
||
Width = 312
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_scadentar' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 7, ;
|
||
DeleteMark = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
GridLineColor = 192,192,192, ;
|
||
HeaderHeight = 38, ;
|
||
Height = 236, ;
|
||
HighlightStyle = 2, ;
|
||
Left = 12, ;
|
||
Name = "grid_scadentar", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .T., ;
|
||
RecordMark = .F., ;
|
||
RecordSource = "cCtrScadentar", ;
|
||
RowHeight = 18, ;
|
||
TabIndex = 1, ;
|
||
Top = 36, ;
|
||
Width = 528, ;
|
||
Column1.ColumnOrder = 1, ;
|
||
Column1.ControlSource = "nr_rata", ;
|
||
Column1.Enabled = .T., ;
|
||
Column1.FontName = "Arial Narrow", ;
|
||
Column1.Name = "cNr_rata", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 29, ;
|
||
Column2.ColumnOrder = 3, ;
|
||
Column2.ControlSource = "data_rata", ;
|
||
Column2.Enabled = .T., ;
|
||
Column2.FontName = "Arial Narrow", ;
|
||
Column2.Name = "cData_rata", ;
|
||
Column2.ReadOnly = .T., ;
|
||
Column2.Width = 55, ;
|
||
Column3.ColumnOrder = 6, ;
|
||
Column3.ControlSource = "valrata", ;
|
||
Column3.Enabled = .F., ;
|
||
Column3.FontName = "Arial Narrow", ;
|
||
Column3.Format = "rk", ;
|
||
Column3.InputMask = (get_mask(20,gnPA)), ;
|
||
Column3.Name = "cValrata", ;
|
||
Column3.ReadOnly = .T., ;
|
||
Column3.Width = 97, ;
|
||
Column4.ColumnOrder = 2, ;
|
||
Column4.ControlSource = "den_rata", ;
|
||
Column4.Enabled = .T., ;
|
||
Column4.FontName = "Arial Narrow", ;
|
||
Column4.Name = "cDen_rata", ;
|
||
Column4.ReadOnly = .T., ;
|
||
Column4.Width = 146, ;
|
||
Column5.ColumnOrder = 5, ;
|
||
Column5.ControlSource = "procent", ;
|
||
Column5.Enabled = .F., ;
|
||
Column5.FontName = "Arial Narrow", ;
|
||
Column5.Format = "rk", ;
|
||
Column5.InputMask = (get_mask(20,gnPA)), ;
|
||
Column5.Name = "cProcent", ;
|
||
Column5.ReadOnly = .T., ;
|
||
Column5.Width = 69, ;
|
||
Column6.ColumnOrder = 7, ;
|
||
Column6.ControlSource = "nume_val", ;
|
||
Column6.Enabled = .F., ;
|
||
Column6.FontName = "Arial Narrow", ;
|
||
Column6.Name = "cNume_val", ;
|
||
Column6.ReadOnly = .T., ;
|
||
Column6.Width = 45, ;
|
||
Column7.ColumnOrder = 4, ;
|
||
Column7.ControlSource = "data_scadenta", ;
|
||
Column7.Enabled = .T., ;
|
||
Column7.FontName = "Arial Narrow", ;
|
||
Column7.Name = "cData_scadenta", ;
|
||
Column7.ReadOnly = .T., ;
|
||
Column7.Width = 59
|
||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data facturarii", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .T., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cData_scadenta.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data scadentei", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cData_scadenta.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .T., ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Denumire rata", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .T., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. rata", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .T., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valuta", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cProcent.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Procent (%)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cProcent.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare rata valuta (fara TVA)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Label1' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Suma rate:", ;
|
||
Height = 17, ;
|
||
Left = 12, ;
|
||
Name = "Label1", ;
|
||
TabIndex = 11, ;
|
||
Top = 305, ;
|
||
Width = 62
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label13' AS label WITH ;
|
||
Anchor = 12, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Coef.penalitati", ;
|
||
Height = 17, ;
|
||
Left = 281, ;
|
||
Name = "Label13", ;
|
||
TabIndex = 16, ;
|
||
Top = 305, ;
|
||
Width = 81
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label2' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Suma procentelor", ;
|
||
Height = 17, ;
|
||
Left = 12, ;
|
||
Name = "Label2", ;
|
||
TabIndex = 10, ;
|
||
Top = 279, ;
|
||
Width = 100
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label3' AS label WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "%", ;
|
||
Height = 17, ;
|
||
Left = 186, ;
|
||
Name = "Label3", ;
|
||
TabIndex = 12, ;
|
||
Top = 279, ;
|
||
Width = 13
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label4' AS label WITH ;
|
||
Anchor = 12, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "zile", ;
|
||
Height = 17, ;
|
||
Left = 450, ;
|
||
Name = "Label4", ;
|
||
TabIndex = 15, ;
|
||
Top = 279, ;
|
||
Width = 20
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label6' AS label WITH ;
|
||
Anchor = 12, ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Scadenta incasare", ;
|
||
Height = 17, ;
|
||
Left = 281, ;
|
||
Name = "Label6", ;
|
||
TabIndex = 15, ;
|
||
Top = 279, ;
|
||
Width = 105
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'txtCoef_penalitati' AS textbox WITH ;
|
||
Anchor = 12, ;
|
||
ControlSource = "goContract.coef_penalitati", ;
|
||
Height = 23, ;
|
||
Left = 388, ;
|
||
Name = "txtCoef_penalitati", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 14, ;
|
||
Top = 302, ;
|
||
Width = 57
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtProcente' AS textbox WITH ;
|
||
Alignment = 3, ;
|
||
Anchor = 6, ;
|
||
ControlSource = "thisform.nProcente", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = (get_mask(5,gnPA)), ;
|
||
Left = 117, ;
|
||
Name = "txtProcente", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 9, ;
|
||
TabStop = .F., ;
|
||
Top = 276, ;
|
||
Value = 0, ;
|
||
Width = 61
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtRate' AS textbox WITH ;
|
||
Alignment = 3, ;
|
||
Anchor = 6, ;
|
||
ControlSource = "thisform.nRate", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 117, ;
|
||
Name = "txtRate", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 8, ;
|
||
TabStop = .F., ;
|
||
Top = 302, ;
|
||
Value = 0, ;
|
||
Width = 113
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtScadenta_incasare' AS textbox WITH ;
|
||
Anchor = 12, ;
|
||
ControlSource = "goContract.scadenta_incasare", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = "99", ;
|
||
Left = 388, ;
|
||
Name = "txtScadenta_incasare", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 13, ;
|
||
Top = 276, ;
|
||
Width = 58
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
LOCAL lcFiltru
|
||
lcFiltru = pcFiltru
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru = poCtrScadentar.ca_baza1.cfiltru
|
||
ENDIF
|
||
|
||
save_grid_tag(thisform.grid_scadentar)
|
||
|
||
poCtrScadentar.ca_baza1.cfiltru = lcFiltru
|
||
poCtrScadentar.ca_baza1.afisare()
|
||
restore_grid_tag(thisform.grid_scadentar)
|
||
IF RECCOUNT('cCtrScadentar')>0
|
||
thisform.grid_scadentar.SetFocus()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE afisactual
|
||
Local lcTabelRate
|
||
lcTabelRate = Thisform.grid_scadentar.RecordSource
|
||
|
||
*!* SELECT (lcTabelRate)
|
||
*!* CALCULATE SUM(NVL(valrata,0)), SUM(NVL(procent,0)) TO THISFORM.nRate, THISFORM.nProcente
|
||
|
||
Select Sum(Nvl(valrata,0)) As valrata, Sum(Nvl(procent,0)) As procent ;
|
||
FROM (lcTabelRate) ;
|
||
INTO Cursor cTabelRate
|
||
Select cTabelRate
|
||
Thisform.nRate = valrata
|
||
Thisform.nProcente = procent
|
||
IF USED('cTabelRate')
|
||
USE IN cTabelRate
|
||
ENDIF
|
||
|
||
*!* SELECT (lcTabelRate)
|
||
*!* GO TOP
|
||
|
||
Thisform.txtRate.Refresh
|
||
Thisform.txtProcente.Refresh
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
this.but_nou1.Enabled = .F.
|
||
this.but_sterge1.Enabled = .F.
|
||
this.grid_scadentar.ReadOnly = .T.
|
||
*this.grid_scadentar.Enabled= .F.
|
||
this.grid_scadentar.cNume_val.Enabled= .F.
|
||
this.grid_scadentar.cProcent.Enabled= .F.
|
||
this.grid_scadentar.cValrata.Enabled= .F.
|
||
|
||
this.txtScadenta_incasare.ReadOnly = .T.
|
||
this.txtCoef_penalitati.ReadOnly = .T.
|
||
this.cmdMultiplicaRate.Enabled = .F.
|
||
this.cmdAplicaScadenta.Enabled = .F.
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
this.but_nou1.Enabled = .T.
|
||
this.but_sterge1.Enabled = .T.
|
||
this.grid_scadentar.ReadOnly = .F.
|
||
*this.grid_scadentar.Enabled= .T.
|
||
this.grid_scadentar.cNume_val.Enabled= .T.
|
||
this.grid_scadentar.cProcent.Enabled= .T.
|
||
this.grid_scadentar.cValrata.Enabled= .T.
|
||
|
||
this.txtScadenta_incasare.ReadOnly = .F.
|
||
this.txtCoef_penalitati.ReadOnly = .F.
|
||
this.cmdMultiplicaRate.Enabled = .T.
|
||
this.cmdAplicaScadenta.Enabled = .T.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
PRIVATE pnId_ctr, pnId_scadentar
|
||
STORE 0 TO pnId_scadentar
|
||
|
||
Local lcTabel, lnRataMax
|
||
lcTabel = thisform.grid_scadentar.RecordSource
|
||
Store 0 To lnRataMax
|
||
|
||
pnId_ctr = goContract.id_ctr
|
||
lcSql = [begin pack_crm.adauga_scadentar(?pnId_ctr, ?gnIdUtil, ?@pnId_scadentar); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
thisform.actualizeaza_grid1()
|
||
|
||
SELECT (lcTabel)
|
||
GO BOTTOM
|
||
|
||
|
||
*!* Select (lcTabel)
|
||
*!* Calculate Max(nr_rata) To lnRataMax
|
||
*!* Append Blank
|
||
*!* Replace id_scadentar WITH pnId_scadentar, ;
|
||
*!* nr_rata With lnRataMax+1, ;
|
||
*!* nume_val With goContract.nume_val, ;
|
||
*!* id_valuta With goContract.id_valuta
|
||
|
||
|
||
thisform.grid_scadentar.Refresh
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica_scadentar
|
||
LOCAL lcTabel, lcId_scadentar, lcNr_rata, lcData_rata, lcData_scadenta, lcValrata, lcId_valuta, lcDen_rata, lcProcent
|
||
STORE '' TO lcId_scadentar, lcNr_rata, lcData_rata, lcValrata, lcId_valuta, lcDen_rata, lcProcent
|
||
|
||
lcTabel = thisform.grid_scadentar.RecordSource
|
||
SELECT (lcTabel)
|
||
lcId_scadentar = ALLTRIM(STR(id_rata))
|
||
lcNr_rata = NVL(ALLTRIM(STR(nr_rata)),'0')
|
||
lcData_rata = ALLTRIM(DTOS(data_rata))
|
||
lcData_scadenta = ALLTRIM(DTOS(data_scadenta))
|
||
lcValrata = NVL(ALLTRIM(STR(valrata,20,gnPC)),'0')
|
||
lcId_valuta = NVL(ALLTRIM(STR(id_valuta)),'0')
|
||
lcDen_rata = NVL(ALLTRIM(den_rata),'')
|
||
lcProcent = NVL(ALLTRIM(STR(procent,5,gnPC)),'0')
|
||
|
||
lcSql = [begin pack_crm.modifica_scadentar(] + lcId_scadentar + [,] + lcNr_rata + ;
|
||
[,to_date(]+IIF(!EMPTY(lcData_rata) and !ISNULL(lcData_rata),[']+lcData_rata+['],[NULL])+[,'YYYYMMDD')] + ;
|
||
[,to_date(]+IIF(!EMPTY(lcData_scadenta) and !ISNULL(lcData_scadenta),[']+lcData_scadenta+['],[NULL])+[,'YYYYMMDD'),] + ;
|
||
lcValrata + [,] + lcId_valuta + [,'] + lcDen_rata + [',] + lcProcent + [); end;]
|
||
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_sterge
|
||
LOCAL lcTabel, lcId_scadentar
|
||
lcTabel = THISFORM.grid_scadentar.RECORDSOURCE
|
||
STORE '' TO lcId_scadentar
|
||
|
||
SELECT cCtrScadentar && (lcTabel)
|
||
lcId_scadentar = ALLTRIM(STR(id_rata))
|
||
|
||
lnRaspuns = AMESSAGEBOX('Doriti sa stergeti rata?',4+32,_SCREEN.CAPTION)
|
||
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
|
||
RETURN
|
||
ENDIF
|
||
|
||
lcSql = [begin pack_crm.sterge_scadentar(]+lcId_scadentar + [,] + ALLTRIM(STR(gnIdUtil)) +[); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
THISFORM.actualizeaza_grid1()
|
||
|
||
THISFORM.grid_scadentar.REFRESH
|
||
THISFORM.afisactual
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
DODEFAULT()
|
||
thisform.afisactual
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdAplicaScadenta.Click
|
||
PRIVATE pcId_ctr, pcZileScadenta
|
||
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
|
||
lnZileScadenta = thisform.txtScadenta_incasare.Value
|
||
pcZileScadenta = ALLTRIM(STR(lnZileScadenta))
|
||
|
||
|
||
lcSql = [begin pack_crm.update_scadenta(] + pcId_ctr + [,] + pcZileScadenta + [); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
lcTabelRate = thisform.grid_scadentar.RecordSource
|
||
|
||
SELECT (lcTabelRate)
|
||
REPLACE ALL data_scadenta WITH data_rata + lnZileScadenta
|
||
thisform.grid_scadentar.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdMultiplicaRate.Click
|
||
PRIVATE pnNrRate, pdDataI, pnValRata, pnId_valuta, pnFrecventa, pcDen_rata, pnPtLuna
|
||
STORE 1 TO pnNrRate, pnFrecventa, pnPtLuna
|
||
|
||
SELECT cCtrScadentar
|
||
pdDataI = data_rata
|
||
pnId_valuta = id_valuta
|
||
pcNume_val = ALLTRIM(nume_val)
|
||
|
||
pnValRata = goContract.valftva
|
||
|
||
lomr = CREATEOBJECT("frm_multiplica_rate")
|
||
lomr.SHOW(1)
|
||
|
||
IF buton = 2
|
||
RETURN
|
||
ENDIF
|
||
|
||
pcId_ctr = ALLTRIM(STR(goContract.id_ctr))
|
||
|
||
pcDataI = ALLTRIM(DTOS(pdDataI))
|
||
|
||
|
||
lcSql = [begin pack_crm.multiplica_rate(] + pcId_ctr + [,] + ALLTRIM(STR(pnNrRate)) + [, TO_DATE('] + IIF(!EMPTY(pcDataI) and !ISNULL(pcDataI),pcDataI,[NULL]) + [','YYYYMMDD'), ] + ;
|
||
ALLTRIM(STR(pnValRata,20,gnPC)) + [,'] + SUBSTR(ALLTRIM(pcDen_rata),1,30) + [',] + NVL(ALLTRIM(STR(pnId_valuta)),[NULL]) + [,] ;
|
||
+ ALLTRIM(STR(pnFrecventa)) + [,] + ALLTRIM(STR(pnPtLuna)) + [); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
IF lnSucces < 0
|
||
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
RETURN
|
||
ENDIF
|
||
|
||
thisform.actualizeaza_grid1()
|
||
thisform.afisactual
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cData_rata.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.cOldvalue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cData_rata.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cData_rata.Text1.LostFocus
|
||
IF thisform.cOldvalue<> thisform.cNewvalue
|
||
thisform.do_modifica_scadentar()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cData_scadenta.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.cOldvalue
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cData_scadenta.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cData_scadenta.Text1.LostFocus
|
||
IF thisform.cOldvalue <> thisform.cNewvalue
|
||
thisform.do_modifica_scadentar()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cDen_rata.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.cOldvalue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cDen_rata.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cDen_rata.Text1.LostFocus
|
||
*IF thisform.cOldvalue <> thisform.cNewvalue
|
||
thisform.do_modifica_scadentar()
|
||
*ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cNr_rata.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.cOldvalue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cNr_rata.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cNr_rata.Text1.LostFocus
|
||
*IF thisform.cOldvalue<> thisform.cNewvalue
|
||
thisform.do_modifica_scadentar()
|
||
*ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cNume_val.Text1.DblClick
|
||
locauta = caut_valuta()
|
||
IF buton=2
|
||
RETURN
|
||
ENDIF
|
||
|
||
lcTabel = this.Parent.Parent.RecordSource
|
||
SELECT (lcTabel)
|
||
REPLACE id_valuta WITH locauta.id_valuta, nume_val WITH locauta.nume_val
|
||
thisform.do_modifica_scadentar()
|
||
this.Parent.Parent.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cNume_val.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.cOldvalue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cNume_val.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cNume_val.Text1.LostFocus
|
||
IF thisform.cOldvalue <> thisform.cNewvalue
|
||
thisform.do_modifica_scadentar()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cProcent.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.cOldvalue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cProcent.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cProcent.Text1.LostFocus
|
||
*IF thisform.cOldvalue<> thisform.cNewvalue
|
||
thisform.do_modifica_scadentar()
|
||
*ENDIF
|
||
|
||
LOCAL lnProc
|
||
lnProc = this.Value
|
||
IF lnProc*0 = 0 AND goContract.valftva*0 = 0&& <> *************
|
||
REPLACE valrata WITH NVL(goContract.valftva,0) * lnProc/100
|
||
ELSE
|
||
REPLACE valrata WITH 0
|
||
ENDIF
|
||
|
||
thisform.afisactual
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cValrata.Text1.GotFocus
|
||
thisform.cOldvalue = this.Value
|
||
thisform.cNewvalue = thisform.cOldvalue
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cValrata.Text1.InteractiveChange
|
||
thisform.cNewvalue = this.Value
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_scadentar.cValrata.Text1.LostFocus
|
||
* IF thisform.cOldvalue <> thisform.cNewvalue
|
||
thisform.do_modifica_scadentar()
|
||
* ENDIF
|
||
|
||
IF goContract.valftva <> 0 AND goContract.valftva*0 = 0 && <> *************
|
||
REPLACE procent WITH valrata/goContract.valftva * 100
|
||
ELSE
|
||
REPLACE procent WITH 0
|
||
ENDIF
|
||
THISFORM.afisactual
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_dg_tl AS frm_dg OF "ferestre_contracte.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtGrnt_pv_nr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtGrnt_proc_ret" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtGrnt_val_ret" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtGrnt_alerta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtGrnt_proc_alerta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtGrnt_pv_data" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column4.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_Fact_garant.Column4.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtGrnt_pv_data_ctr" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: afisactual
|
||
*m: do_modifica_ctr_art
|
||
*p: clistaidarticole
|
||
*p: cnewvalue
|
||
*p: coldvalue
|
||
*p: cxmlarticole
|
||
*p: ncoef_discount
|
||
*p: ndiscountmediu
|
||
*p: nsumaarticole
|
||
*p: nvalcdiscount
|
||
*p: nvaldiscount
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
clistaidarticole =
|
||
cnewvalue =
|
||
coldvalue =
|
||
cxmlarticole =
|
||
DoCreate = .T.
|
||
Height = 287
|
||
Name = "frm_dg_tl"
|
||
ncoef_discount = 0
|
||
ndiscountmediu = 0
|
||
nsumaarticole = 0
|
||
nvalcdiscount = 0
|
||
nvaldiscount = 0
|
||
Width = 698
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Anchor = 3
|
||
_shape2.Height = 29
|
||
_shape2.Left = 301
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 66
|
||
Lb_titlu_alb_b121.Caption = "Termene de livrare/receptie si Garantii"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 13
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 14
|
||
Gridsort1.Left = 60
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 0
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ;
|
||
Left = 588, ;
|
||
Name = "BUT_MODIFICA1", ;
|
||
TabIndex = 11, ;
|
||
Top = 41, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Left = 554, ;
|
||
Name = "But_nou1", ;
|
||
TabIndex = 10, ;
|
||
Top = 41
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Left = 621, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 12, ;
|
||
Top = 41, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||
AutoSize = .T., ;
|
||
Caption = "Atasare factura la contract", ;
|
||
Height = 27, ;
|
||
Left = 408, ;
|
||
Name = "Command1", ;
|
||
TabIndex = 8, ;
|
||
Top = 5, ;
|
||
Width = 159
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant' AS _grdbase WITH ;
|
||
ColumnCount = 4, ;
|
||
DeleteMark = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 200, ;
|
||
Left = 339, ;
|
||
Name = "grid_Fact_garant", ;
|
||
Panel = 1, ;
|
||
RecordSource = "cCtrFactGarant", ;
|
||
TabIndex = 9, ;
|
||
Top = 73, ;
|
||
Width = 338, ;
|
||
Column1.ControlSource = "nract", ;
|
||
Column1.FontName = "Arial Narrow", ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.Width = 67, ;
|
||
Column2.ControlSource = "dataact", ;
|
||
Column2.FontName = "Arial Narrow", ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.Width = 65, ;
|
||
Column3.ControlSource = "valftva", ;
|
||
Column3.FontName = "Arial Narrow", ;
|
||
Column3.Format = "rk", ;
|
||
Column3.InputMask = (get_mask(12,gnPA)), ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.Width = 98, ;
|
||
Column4.ControlSource = "garantie", ;
|
||
Column4.FontName = "Arial Narrow", ;
|
||
Column4.Format = "rk", ;
|
||
Column4.InputMask = (get_mask(12,gnPA)), ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.Width = 70
|
||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare (fara TVA)", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column3.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column4.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Garantii retinute", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_Fact_garant.Column4.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Label1' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "PV predare-primire finala", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label1", ;
|
||
TabIndex = 23, ;
|
||
Top = 177, ;
|
||
Width = 139
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label10' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Facturi - Garantii retinute", ;
|
||
Height = 17, ;
|
||
Left = 348, ;
|
||
Name = "Label10", ;
|
||
TabIndex = 16, ;
|
||
Top = 54, ;
|
||
Width = 136, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label11' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Data contractuala de predare-primire", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label11", ;
|
||
TabIndex = 24, ;
|
||
Top = 152, ;
|
||
Width = 204
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label2' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Valoare garantie retinuta", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label2", ;
|
||
TabIndex = 22, ;
|
||
Top = 77, ;
|
||
Width = 136, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label3' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Returnare partiala", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label3", ;
|
||
TabIndex = 19, ;
|
||
Top = 103, ;
|
||
Width = 101, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label4' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Procent garantie retinut", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label4", ;
|
||
TabIndex = 15, ;
|
||
Top = 51, ;
|
||
Width = 129, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label5' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "(nr. zile)", ;
|
||
Height = 17, ;
|
||
Left = 199, ;
|
||
Name = "Label5", ;
|
||
TabIndex = 20, ;
|
||
Top = 103, ;
|
||
Width = 45, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label6' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Procent returnare", ;
|
||
Height = 17, ;
|
||
Left = 16, ;
|
||
Name = "Label6", ;
|
||
TabIndex = 21, ;
|
||
Top = 129, ;
|
||
Width = 97, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label7' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "/", ;
|
||
Height = 17, ;
|
||
Left = 230, ;
|
||
Name = "Label7", ;
|
||
TabIndex = 25, ;
|
||
Top = 177, ;
|
||
Width = 5
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label8' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "%", ;
|
||
Height = 17, ;
|
||
Left = 199, ;
|
||
Name = "Label8", ;
|
||
TabIndex = 18, ;
|
||
Top = 51, ;
|
||
Width = 13, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label9' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "%", ;
|
||
Height = 17, ;
|
||
Left = 199, ;
|
||
Name = "Label9", ;
|
||
TabIndex = 17, ;
|
||
Top = 129, ;
|
||
Width = 13, ;
|
||
ZOrderSet = 38
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'txtGrnt_alerta1' AS textbox WITH ;
|
||
ControlSource = "goContract.grnt_alerta1", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = "9999", ;
|
||
Left = 155, ;
|
||
Name = "txtGrnt_alerta1", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 3, ;
|
||
Top = 100, ;
|
||
Width = 43, ;
|
||
ZOrderSet = 39
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtGrnt_proc_alerta1' AS textbox WITH ;
|
||
ControlSource = "goContract.grnt_proc_alerta1", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = (get_mask(4,0)), ;
|
||
Left = 155, ;
|
||
Name = "txtGrnt_proc_alerta1", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 4, ;
|
||
Top = 126, ;
|
||
Width = 43, ;
|
||
ZOrderSet = 39
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtGrnt_proc_ret' AS textbox WITH ;
|
||
ControlSource = "goContract.grnt_proc_ret", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = (get_mask(4,0)), ;
|
||
Left = 155, ;
|
||
Name = "txtGrnt_proc_ret", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 1, ;
|
||
Top = 48, ;
|
||
Width = 43, ;
|
||
ZOrderSet = 39
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtGrnt_pv_data' AS textbox WITH ;
|
||
ControlSource = "goContract.grnt_pv_data", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
Left = 239, ;
|
||
Name = "txtGrnt_pv_data", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 7, ;
|
||
Top = 174, ;
|
||
Width = 72
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtGrnt_pv_data_ctr' AS textbox WITH ;
|
||
ControlSource = "goContract.grnt_pv_data_ctr", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
Left = 239, ;
|
||
Name = "txtGrnt_pv_data_ctr", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 5, ;
|
||
Top = 149, ;
|
||
Width = 72
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtGrnt_pv_nr' AS textbox WITH ;
|
||
ControlSource = "goContract.grnt_pv_nr", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = "9999999999", ;
|
||
Left = 155, ;
|
||
Name = "txtGrnt_pv_nr", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 6, ;
|
||
Top = 174, ;
|
||
Width = 72
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtGrnt_val_ret' AS textbox WITH ;
|
||
ControlSource = "goContract.grnt_val_ret", ;
|
||
Format = "rk", ;
|
||
Height = 23, ;
|
||
InputMask = (get_mask(10,gnPA)), ;
|
||
Left = 155, ;
|
||
Name = "txtGrnt_val_ret", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 2, ;
|
||
Top = 74, ;
|
||
Width = 156, ;
|
||
ZOrderSet = 39
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
LOCAL lcFiltru
|
||
lcFiltru = pcFiltru
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru = poCtrFactGarant.ca_baza1.cfiltru
|
||
ENDIF
|
||
|
||
save_grid_tag(thisform.grid_Fact_garant)
|
||
|
||
poCtrFactGarant.ca_baza1.cfiltru = lcFiltru
|
||
poCtrFactGarant.ca_baza1.afisare()
|
||
restore_grid_tag(thisform.grid_Fact_garant)
|
||
IF RECCOUNT('cCtrFactGarant')>0
|
||
thisform.grid_Fact_garant.SetFocus()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE afisactual
|
||
ENDPROC
|
||
|
||
PROCEDURE blocheaza_campuri
|
||
this.txtgrnt_proc_ret.ReadOnly = .T.
|
||
this.txtGrnt_val_ret.ReadOnly = .T.
|
||
this.txtGrnt_alerta1.ReadOnly = .T.
|
||
this.txtGrnt_proc_alerta1.ReadOnly = .T.
|
||
this.txtGrnt_pv_nr.ReadOnly = .T.
|
||
this.txtGrnt_pv_data.ReadOnly = .T.
|
||
this.txtGrnt_pv_data_ctr.ReadOnly = .T.
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE deblocheaza_campuri
|
||
this.txtgrnt_proc_ret.ReadOnly = .F.
|
||
this.txtGrnt_val_ret.ReadOnly = .F.
|
||
this.txtGrnt_alerta1.ReadOnly = .F.
|
||
this.txtGrnt_proc_alerta1.ReadOnly = .F.
|
||
this.txtGrnt_pv_nr.ReadOnly = .F.
|
||
this.txtGrnt_pv_data.ReadOnly = .F.
|
||
this.txtGrnt_pv_data_ctr.ReadOnly = .F.
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
Private poFactGaran
|
||
Store '' To poFactGaran
|
||
|
||
Local lnNrAct, ldDataAct, lnCod, lnId_fact
|
||
Store 0 To lnNrAct, ldDataAct, lnCod, lnId_fact
|
||
|
||
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal
|
||
lcOrder = [ dataact desc]
|
||
lcgroup = []
|
||
lcFiltru = [ 1=1 ]
|
||
|
||
Do Case
|
||
Case gnParametru_prog=1
|
||
lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,2)]
|
||
lcSelect = [select id_fact, nract, dataact, cod, debit as valctva from ireg_parteneri ]
|
||
lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+;
|
||
[ and id_part = ] + Alltrim(Str(goContract.id_part))+;
|
||
[ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+;
|
||
[ and cont = '4111' ]
|
||
Case gnParametru_prog=2
|
||
lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,2)]
|
||
lcSelect = [select id_fact, nract, dataact, cod, credit as valctva from ireg_parteneri ]
|
||
lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+;
|
||
[ and id_part = ] + Alltrim(Str(goContract.id_part))+;
|
||
[ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+;
|
||
[ and cont = '401' ]
|
||
Otherwise
|
||
lcFiltruOriginal = []
|
||
Endcase
|
||
|
||
llAfiseaza = .F.
|
||
llModParam = .T.
|
||
|
||
gencursor('poFactGaran','cFactGaran', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||
poFactGaran.ca_baza1.afisare()
|
||
|
||
Select cFactGaran
|
||
lofc = Createobject('frm_facturi_ctr')
|
||
lofc.Show(1)
|
||
|
||
If buton = 2
|
||
Return
|
||
Endif
|
||
|
||
***--------------------
|
||
Private pnFactValftva, pnGarantieRetinuta
|
||
Store 0 To pnFactValftva, pnGarantieRetinuta
|
||
|
||
Select cFactGaran
|
||
lnNrAct = nract
|
||
ldDataAct = dataact
|
||
lnId_fact = id_fact
|
||
lnCod = cod
|
||
|
||
Do Case
|
||
Case gnParametru_prog=2
|
||
If Year(ldDataAct)>=2007
|
||
lcSql = [select totctva -(ro19bct+ro19bvt+ro19bft+ro09bct+ro09bvt+ro09bft+fo19bct+fo19bvt+fo19bft+fo09bct+fo09bvt+fo09bft+cebct+cebvt+cebft+ti19bct+ti19bvt+ti19bft+ti09bvt+ti09bft) as valftva ] +;
|
||
[ from jc2007 ]+;
|
||
[ where cod = ]+Alltrim(Str(lnCod))
|
||
ELSE
|
||
lcSql = [select totctva -(tvai+tvam) as valftva ] +;
|
||
[ from cump ]+;
|
||
[ where cod = ]+Alltrim(Str(lnCod))
|
||
Endif
|
||
lcCursor = [cJC_fact]
|
||
lnSucces = goExecutor.oExecute(lcSql, lcCursor)
|
||
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
Return
|
||
Endif
|
||
|
||
Select cJC_fact
|
||
pnFactValftva = valftva
|
||
|
||
|
||
If Used('cJC_fact')
|
||
Use In cJC_fact
|
||
Endif
|
||
Endcase
|
||
|
||
pnGarantieRetinuta = Round(pnFactValftva * goContract.grnt_proc_ret / 100,gnPA)
|
||
|
||
lofg = Createobject('frm_fact_garant')
|
||
lofg.Show(1)
|
||
|
||
If buton = 2
|
||
Return
|
||
Endif
|
||
|
||
lcSql = [begin pack_crm.adauga_factura_garantie(]+Alltrim(Str(goContract.id_ctr))+[,] + Alltrim(Str(lnId_fact))+[,]+;
|
||
ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
Return
|
||
Endif
|
||
|
||
Thisform.actualizeaza_grid1()
|
||
Thisform.grid_Fact_garant.Refresh
|
||
|
||
&& Insert Into cCtrFactGarant (nract, dataact, valftva, garantie) Values (lnNrAct, ldDataAct, pnFactValftva, pnGarantieRetinuta)
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica_ctr_art
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_modifica
|
||
Private pnFactValftva, pnGarantieRetinuta
|
||
STORE 0 TO pnFactValftva, pnGarantieRetinuta
|
||
|
||
LOCAL lnId_ctr_fact_garan
|
||
STORE 0 TO lnId_ctr_fact_garan
|
||
|
||
SELECT cCtrFactGarant
|
||
lnId_ctr_fact_garan = id_ctr_fact_garan
|
||
pnFactValftva = valftva
|
||
pnGarantieRetinuta = garantie
|
||
|
||
lofg = Createobject('frm_fact_garant')
|
||
lofg.Show(1)
|
||
|
||
If buton = 2
|
||
Return
|
||
Endif
|
||
|
||
lcSql = [begin pack_crm.modifica_factura_garantie(]+ALLTRIM(STR(lnId_ctr_fact_garan))+[,]+;
|
||
ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
Return
|
||
ENDIF
|
||
|
||
thisform.actualizeaza_grid1()
|
||
thisform.grid_Fact_garant.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_sterge
|
||
LOCAL lnRaspuns, lnId_ctr_fact_garan, lcSql, lnSucces
|
||
|
||
lnRaspuns = AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_SCREEN.CAPTION)
|
||
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT cCtrFactGarant
|
||
lnId_ctr_fact_garan = id_ctr_fact_garan
|
||
|
||
lcSql = [begin pack_crm.sterge_factura_garantie(]+Alltrim(Str(lnId_ctr_fact_garan))+[); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
Return
|
||
ENDIF
|
||
|
||
thisform.actualizeaza_grid1()
|
||
thisform.grid_Fact_garant.Refresh
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command1.Click
|
||
Private poFactGaran
|
||
Store '' To poFactGaran
|
||
|
||
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal
|
||
lcOrder = [dataact desc]
|
||
lcgroup = []
|
||
lcFiltru = [ 1=1 ]
|
||
|
||
Do Case
|
||
Case gnParametru_prog=1
|
||
lcSchema = []
|
||
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, 0 as atasata ]+;
|
||
[ from vireg_emise_in_perioada ]
|
||
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
|
||
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
|
||
Case gnParametru_prog=2
|
||
lcSchema = []
|
||
lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, 0 as atasata ]+;
|
||
[ from vireg_emise_in_perioada ]
|
||
lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+;
|
||
[ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)]
|
||
Otherwise
|
||
lcFiltruOriginal = []
|
||
Endcase
|
||
|
||
llAfiseaza = .F.
|
||
llModParam = .T.
|
||
|
||
gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||
poFactGaran.ca_baza1.afisare()
|
||
|
||
Select cFact_neatas
|
||
lofc = Createobject('frm_atas_fact_iregpart')
|
||
lofc.Show(1)
|
||
|
||
Release poFactGaran
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE txtGrnt_proc_ret.Valid
|
||
IF !ISNULL(gocontract.valftva)
|
||
goContract.grnt_val_ret = gocontract.valftva * goContract.grnt_proc_ret / 100
|
||
thisform.txtGrnt_val_ret.Refresh
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|