*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="ferestre_contracte.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * *< LIBCOMMENT: Application Wizard framework class library. /> * DEFINE CLASS ct_contracte AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cNume.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cNume.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cDurata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cDurata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cTipc.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cTipc.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cValctva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cValctva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column12.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column12.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column13.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column13.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column14.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column14.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column15.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column15.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column16.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column16.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column17.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column17.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column18.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column18.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column20.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column20.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Command1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Command2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cSucursala.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.cSucursala.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column22.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column22.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column23.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column23.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column24.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column24.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_contracte.Column24.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_lbbase1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou_gri1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_factura" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> * *m: arata_linkuri *m: dblclick_bind *m: do_adauga_act_aditional *p: cfiltru *p: nireg * * BackColor = 255,255,255 cfiltru = cgridsortlist = grid_contracte Height = 362 Name = "ct_contracte" nireg = 0 Width = 800 Gridsort1.Left = 180 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 7 _ct_controller_keypress1.Name = "_ct_controller_keypress1" * ADD OBJECT '_lbbase1' AS _lbbase WITH ; BackColor = 255,255,255, ; Caption = "Lista contractelor", ; ForeColor = 255,255,255, ; Left = 8, ; Name = "_lbbase1", ; TabIndex = 21, ; Top = 5 *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> ADD OBJECT '_shape1' AS _shape WITH ; Anchor = 11, ; BackColor = 0,64,128, ; BorderColor = 0,64,128, ; Height = 24, ; Left = 0, ; Name = "_shape1", ; Top = 0, ; Width = 804, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 9, ; Left = 711, ; Name = "But_excel1", ; TabIndex = 18, ; ToolTipText = "Fisier Excel", ; Top = -2, ; Visible = .T., ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'but_factura' AS commandbutton WITH ; Anchor = 9, ; BackColor = 255,255,255, ; Caption = "", ; Height = 27, ; Left = 770, ; Name = "but_factura", ; Picture = ..\comun\grafice\factura.bmp, ; SpecialEffect = 1, ; ToolTipText = "Factura", ; Top = -2, ; Width = 29 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 683, ; Name = "But_listare1", ; TabIndex = 17, ; ToolTipText = "Listare", ; Top = -2, ; Visible = .T., ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ; Anchor = 9, ; Height = 27, ; Left = 626, ; Name = "BUT_MODIFICA1", ; Picture = ..\comun\grafice\modific_sus.bmp, ; TabIndex = 15, ; ToolTipText = "Modificare", ; Top = -2, ; Visible = .T., ; Width = 34 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 9, ; Left = 596, ; Name = "But_nou1", ; Picture = ..\comun\grafice\nou_sus.bmp, ; TabIndex = 14, ; ToolTipText = "Adaugare contract", ; Top = -2, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou_gri1' AS but_nou_gri WITH ; Anchor = 9, ; caction = do_adauga_act_aditional, ; Left = 740, ; Name = "But_nou_gri1", ; Picture = ..\comun\grafice\nou_sus_dis.bmp, ; TabIndex = 19, ; ToolTipText = "Adaugare act aditional", ; Top = -2 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; Anchor = 9, ; Left = 534, ; Name = "But_reset_criterii1", ; Top = -2 *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; Anchor = 9, ; Comment = "*:OnResize=RT", ; Left = 565, ; Name = "But_start_criterii1", ; Top = -2 *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; Left = 655, ; Name = "But_sterge1", ; TabIndex = 16, ; ToolTipText = "Stergere", ; Top = -2, ; Visible = .T., ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; Anchor = 12, ; Height = 27, ; Left = 632, ; Name = "Clb_tx_simplu1", ; TabIndex = 23, ; Top = 331, ; Width = 153, ; ZOrderSet = 10, ; Text_simplu1.ControlSource = "this.parent.parent.nIreg", ; Text_simplu1.Height = 21, ; Text_simplu1.Left = 76, ; Text_simplu1.Name = "Text_simplu1", ; Text_simplu1.ReadOnly = .T., ; Text_simplu1.Top = 3, ; Text_simplu1.Width = 72, ; LB_SIMPLU1.Caption = "Înregistrări", ; LB_SIMPLU1.Name = "LB_SIMPLU1" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'grid_contracte' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 24, ; DeleteMark = .F., ; FontSize = 10, ; GridLineColor = 192,192,192, ; HeaderHeight = 34, ; Height = 304, ; HighlightStyle = 2, ; Left = 8, ; Name = "grid_contracte", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .T., ; RecordSource = "cContracte", ; RowHeight = 19, ; TabIndex = 20, ; Top = 24, ; Width = 784, ; ZOrderSet = 3, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "denumire", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cNume", ; Column1.ReadOnly = .T., ; Column1.Width = 193, ; Column2.ColumnOrder = 14, ; Column2.ControlSource = "durata", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cDurata", ; Column2.ReadOnly = .T., ; Column2.Width = 57, ; Column3.ColumnOrder = 11, ; Column3.ControlSource = "nume_val", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "cNume_val", ; Column3.ReadOnly = .T., ; Column3.Width = 63, ; Column4.ColumnOrder = 2, ; Column4.ControlSource = "iif(tip_istoric='A',numar_aa,numar)", ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Name = "cNr_ctr", ; Column4.ReadOnly = .T., ; Column4.Width = 98, ; Column5.ColumnOrder = 4, ; Column5.ControlSource = "data", ; Column5.FontName = "Arial", ; Column5.FontSize = 10, ; Column5.Format = "d", ; Column5.Name = "cData_ctr", ; Column5.ReadOnly = .T., ; Column5.Width = 89, ; Column6.ColumnOrder = 9, ; Column6.ControlSource = "valftva", ; Column6.FontName = "Arial", ; Column6.FontSize = 10, ; Column6.Format = "rk", ; Column6.InputMask = (get_mask(14,MAX(gnPc,gnPVal))), ; Column6.Name = "cValvaluta", ; Column6.ReadOnly = .T., ; Column6.Width = 107, ; Column7.ColumnOrder = 15, ; Column7.ControlSource = "denumire_tip", ; Column7.FontName = "Arial", ; Column7.FontSize = 10, ; Column7.Name = "cTipc", ; Column7.ReadOnly = .T., ; Column7.Width = 170, ; Column8.ColumnOrder = 10, ; Column8.ControlSource = "valctva", ; Column8.FontName = "Arial", ; Column8.FontSize = 10, ; Column8.Format = "rk", ; Column8.InputMask = (get_mask(14,MAX(gnPc,gnPVal))), ; Column8.Name = "cValctva", ; Column8.ReadOnly = .T., ; Column8.Width = 95, ; Column9.Alignment = 2, ; Column9.ColumnOrder = 17, ; Column9.ControlSource = "semnat", ; Column9.FontName = "Arial", ; Column9.FontSize = 10, ; Column9.Name = "cSemnat", ; Column9.ReadOnly = .T., ; Column9.Sparse = .F., ; Column9.Width = 64, ; Column10.Alignment = 2, ; Column10.ColumnOrder = 18, ; Column10.ControlSource = "abs(incetat-1)", ; Column10.FontName = "Arial", ; Column10.FontSize = 10, ; Column10.Name = "cIncetat", ; Column10.ReadOnly = .T., ; Column10.Sparse = .F., ; Column10.Width = 72, ; Column11.Alignment = 2, ; Column11.ColumnOrder = 20, ; Column11.ControlSource = "abs(inactiv-1)", ; Column11.FontName = "Arial", ; Column11.FontSize = 10, ; Column11.Name = "cInactiv", ; Column11.ReadOnly = .T., ; Column11.Sparse = .F., ; Column11.Width = 45, ; Column12.ColumnOrder = 8, ; Column12.ControlSource = "descriere", ; Column12.FontName = "Arial", ; Column12.FontSize = 10, ; Column12.Name = "Column12", ; Column12.ReadOnly = .T., ; Column13.ColumnOrder = 16, ; Column13.ControlSource = "selectie", ; Column13.FontName = "Arial", ; Column13.FontSize = 10, ; Column13.Name = "Column13", ; Column13.ReadOnly = .T., ; Column14.ColumnOrder = 6, ; Column14.ControlSource = "numar_intern", ; Column14.FontName = "Arial", ; Column14.FontSize = 10, ; Column14.Name = "Column14", ; Column14.ReadOnly = .T., ; Column14.Width = 86, ; Column15.ColumnOrder = 7, ; Column15.ControlSource = "data_intern", ; Column15.FontName = "Arial", ; Column15.FontSize = 10, ; Column15.Name = "Column15", ; Column15.ReadOnly = .T., ; Column15.Width = 96, ; Column16.ColumnOrder = 12, ; Column16.ControlSource = "data_inceput", ; Column16.FontName = "Arial", ; Column16.FontSize = 10, ; Column16.Name = "Column16", ; Column16.ReadOnly = .T., ; Column16.Width = 70, ; Column17.ColumnOrder = 13, ; Column17.ControlSource = "data_sfarsit", ; Column17.FontName = "Arial", ; Column17.FontSize = 10, ; Column17.Name = "Column17", ; Column17.ReadOnly = .T., ; Column17.Width = 69, ; Column18.ColumnOrder = 19, ; Column18.ControlSource = "data_incetat", ; Column18.FontName = "Arial", ; Column18.FontSize = 10, ; Column18.Name = "Column18", ; Column18.ReadOnly = .T., ; Column18.Width = 79, ; Column19.ColumnOrder = 5, ; Column19.ControlSource = "numar_ult_aa", ; Column19.FontName = "Arial", ; Column19.FontSize = 10, ; Column19.Name = "Column20", ; Column19.ReadOnly = .T., ; Column19.Width = 69, ; Column20.ColumnOrder = 1, ; Column20.Comment = "are_link", ; Column20.CurrentControl = "Command1", ; Column20.DynamicCurrentControl = "iif(are_link=1,'command1','command2')", ; Column20.FontName = "Arial", ; Column20.FontSize = 10, ; Column20.Name = "cAre_link", ; Column20.ReadOnly = .T., ; Column20.Sparse = .F., ; Column20.Width = 51, ; Column21.ColumnOrder = 22, ; Column21.ControlSource = "sucursala", ; Column21.FontName = "Arial", ; Column21.FontSize = 10, ; Column21.Name = "cSucursala", ; Column21.ReadOnly = .T., ; Column21.Width = 141, ; Column22.ColumnOrder = 23, ; Column22.ControlSource = "responsabil", ; Column22.FontName = "Arial", ; Column22.FontSize = 10, ; Column22.Name = "Column22", ; Column22.ReadOnly = .T., ; Column22.Width = 112, ; Column23.ColumnOrder = 24, ; Column23.ControlSource = "sectie", ; Column23.FontName = "Arial", ; Column23.FontSize = 10, ; Column23.Name = "Column23", ; Column23.ReadOnly = .T., ; Column23.Width = 83, ; Column24.ColumnOrder = 21, ; Column24.ControlSource = "suspendat", ; Column24.CurrentControl = "Check1", ; Column24.FontName = "Arial", ; Column24.FontSize = 10, ; Column24.Name = "Column24", ; Column24.ReadOnly = .T., ; Column24.Sparse = .F. *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_contracte.cAre_link.Command1' AS commandbutton WITH ; Caption = "", ; FontName = "Arial", ; FontSize = 10, ; Height = 27, ; Left = 18, ; Name = "Command1", ; Picture = ..\comun\grafice\attach_mic.bmp, ; SpecialEffect = 1, ; Top = 72, ; Width = 84 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'grid_contracte.cAre_link.Command2' AS commandbutton WITH ; Caption = "", ; Height = 27, ; Left = 30, ; Name = "Command2", ; SpecialEffect = 1, ; Top = 60, ; Width = 84 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'grid_contracte.cAre_link.Header1' AS header WITH ; Alignment = 2, ; Caption = "Atasa- mente", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; Picture = ..\comun\grafice\attach_mic.bmp, ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cAre_link.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cData_ctr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data contract", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cData_ctr.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cDurata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Durata (Luni)", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cDurata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cInactiv.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; FontName = "Arial", ; FontSize = 10, ; Height = 17, ; Left = 33, ; Name = "Check1", ; Top = 60, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_contracte.cInactiv.Header1' AS header WITH ; Alignment = 2, ; Caption = "Activ", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cIncetat.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; FontName = "Arial", ; FontSize = 10, ; Height = 17, ; Left = 37, ; Name = "Check1", ; Top = 24, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_contracte.cIncetat.Header1' AS header WITH ; Alignment = 2, ; Caption = "In desfasurare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cNr_ctr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. contract", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cNr_ctr.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cNume.Header1' AS header WITH ; Alignment = 2, ; Caption = "Partener", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cNume.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cNume_val.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cNume_val.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column12.Header1' AS header WITH ; Alignment = 2, ; Caption = "Descriere", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column12.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column13.Header1' AS header WITH ; Alignment = 2, ; Caption = "Mod selectie", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column13.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column14.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. inregistrare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column14.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column15.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data inregistrare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column15.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column16.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data inceput", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column16.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column17.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data sfarsit", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column17.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column18.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data incetare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column18.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column20.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ultimul act ad.", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column20.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column22.Header1' AS header WITH ; Alignment = 2, ; Caption = "Responsabil", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column22.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column23.Header1' AS header WITH ; Alignment = 2, ; Caption = "Sectie", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column23.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.Column24.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; ControlSource = "suspendat", ; FontName = "Arial", ; FontSize = 10, ; Height = 10, ; Left = 10, ; Name = "Check1", ; ReadOnly = .T., ; Top = 47, ; Width = 10 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_contracte.Column24.Header1' AS header WITH ; Caption = "Suspendat", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.Column24.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cSemnat.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; FontName = "Arial", ; FontSize = 10, ; Height = 17, ; Left = 46, ; Name = "Check1", ; ReadOnly = .T., ; Top = 24, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_contracte.cSemnat.Header1' AS header WITH ; Alignment = 2, ; Caption = "Semnat", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cSucursala.Header1' AS header WITH ; Alignment = 2, ; Caption = "Sucursala", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cSucursala.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cTipc.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip contract", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cTipc.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cValctva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare contract (cu TVA)", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cValctva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_contracte.cValvaluta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare contract (fara TVA)", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_contracte.cValvaluta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 Lparameters pcFiltru Local lcFiltru lcFiltru = pcFiltru If Empty(lcFiltru) lcFiltru = [1=2] Endif save_grid_tag(This.grid_contracte) poCtr.ca_baza1.cfiltru = lcFiltru poCtr.ca_baza1.afisare() Select cContracte If Reccount()>0 This.nireg = Reccount() Else This.nireg = 0 Endif restore_grid_tag(This.grid_contracte) If Reccount('cContracte')>0 Select cContracte Locate For id_ctr = goContract.id_ctr If !Found() Go Top Endif This.grid_contracte.SetFocus() Endif ENDPROC PROCEDURE arata_linkuri DO arata_linkuri IN oproceduri_atasamente.prg this.grid_contracte.Refresh ENDPROC PROCEDURE dblclick_bind loGrid = this.grid_contracte For j = 1 To loGrid.ColumnCount *loHeader = loGrid.Columns(j).Header1 *Bindevent(loHeader, "DblClick", This, "grid_sort") IF TYPE('THIS.grid_contracte.COLUMNS[J].Text1')<>'U' BINDEVENT(THIS.grid_contracte.COLUMNS[J].Text1,"DblClick",THIS,"inainte_de_do_modifica") ENDIF Endfor ENDPROC PROCEDURE do_adauga Local lcAlias, lnId_ctr, lcNumar, llNou lcAlias = This.grid_contracte.RecordSource Store '' To lcNumar Store 0 To lnId_ctr llNou = .T. Release poGeneratorNumere Do declarare_generator_numere In oproceduri_roacontracte.prg poGeneratorNumere.creeaza_cursor_serii(13) pnGNnumar = poGeneratorNumere.aloca_numar(13) lcNumar = Alltrim(Str(pnGNnumar)) lnId_ctr = adauga_contract(lcAlias, lcNumar) pnGNnumar=0 Select (lcAlias) Scatter Name goContract Memo Blank *SCATTER MEMO BLANK TO aContract goContract.id_ctr = lnId_ctr goContract.id_tip_ctr = Iif(gnParametru_prog=1,-1,-2) goContract.denumire_tip = Iif(gnParametru_prog=1,'CLIENT','FURNIZOR') goContract.numar = lcNumar goContract.data = TTOD(Get_Ora()) ***------------ Do make_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele DO make_crsNote In oproceduri_roacontracte.prg DO make_crsValute In oproceduri_roacontracte.prg DO make_crsSectii In oproceduri_roacontracte.prg DO make_crsTip_ctr In oproceduri_roacontracte.prg DO make_crsSelectii In oproceduri_roacontracte.prg **-- Select cCtrScadentar Select crsAtasamente Select cCtrArt lcCtrN = Createobject('frm_contracte_nou',llNou) lcCtrN.lb_titlu_alb_b121.Caption = "Contract nou" lcCtrN.Show(1) If buton = 1 Select (lcAlias) APPEND BLANK GATHER NAME goContract MEMO ENDIF Do inchide_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele DO inchide_crsNote In oproceduri_roacontracte.prg DO inchide_crsValute In oproceduri_roacontracte.prg DO inchide_crsSectii In oproceduri_roacontracte.prg DO inchide_crsTip_ctr In oproceduri_roacontracte.prg DO inchide_crsSelectii In oproceduri_roacontracte.prg This.grid_contracte.Refresh() This.grid_contracte.SetFocus() ENDPROC PROCEDURE do_adauga_act_aditional Local lcAlias lcAlias = This.grid_contracte.RecordSource Select cContracte Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'actaditional',loRec,,"INSERT" In oproceduri_ams.prg this.do_cauta() ENDPROC PROCEDURE do_cauta Parameters tlReset Local lcFiltru Store '' To lcFiltru *!* If This.ck_nume.Value = 1 *!* lcFiltru = lcFiltru + This.ck_nume.filtru *!* Endif *!* If This.ck_nr_ctr.Value = 1 *!* lcFiltru = lcFiltru + This.ck_nr_ctr.filtru *!* Endif *!* If This.ck_data_ctr.Value = 1 *!* lcFiltru = lcFiltru + This.ck_data_ctr.filtru *!* Endif *!* If This.ck_nume_val.Value = 1 *!* lcFiltru = lcFiltru + This.ck_nume_val.filtru *!* Endif *!* If This.ck_denumire_tip.Value = 1 *!* lcFiltru = lcFiltru + This.ck_denumire_tip.filtru *!* Endif *!* If This.ck_tipc.Value = 1 *!* lcFiltru = lcFiltru + This.ck_tipc.filtru *!* ENDIF *!* If This.ck_responsabil.Value = 1 *!* lcFiltru = lcFiltru + This.ck_responsabil.filtru *!* ENDIF *!* If This.ck_sectie .Value = 1 *!* lcFiltru = lcFiltru + This.ck_sectie .filtru *!* Endif *!* Do Case *!* Case This.optIncetat.Value = 1 *!* lcFiltru = lcFiltru + [ and c.incetat = 0] *!* Case This.optIncetat.Value = 2 *!* lcFiltru = lcFiltru + [ and c.incetat = 1] *!* Case This.optIncetat.Value = 3 *!* lcFiltru = lcFiltru + [ and (c.incetat = 0 or c.incetat = 1)] *!* Endcase *!* Do Case *!* Case This.optInactiv.Value = 1 && active *!* lcFiltru = lcFiltru + [ and c.inactiv = 0] *!* Case This.optInactiv.Value = 2 && inactive *!* lcFiltru = lcFiltru + [ and c.inactiv = 1] *!* Case This.optInactiv.Value = 3 && toate *!* lcFiltru = lcFiltru + [ and (c.inactiv = 0 or c.inactiv = 1)] *!* Endcase *!* If This.ck_istoric.Value = 1 AND This.ck_aa.Value = 0 *!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'I')] *!* Endif *!* If This.ck_aa.Value = 1 AND This.ck_istoric.Value = 0 *!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'A')] *!* ENDIF *!* IF This.ck_istoric.Value = 0 AND This.ck_aa.Value = 0 *!* lcFiltru = lcFiltru + [ and c.tip_istoric = 'C'] *!* ENDIF *!* IF This.ck_istoric.Value = 1 AND This.ck_aa.Value = 1 *!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'A' or c.tip_istoric = 'I')] *!* ENDIF If !'ACT ADITIONAL'$Upper(Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro)) lcFiltru = [ AND c.tip_istoric <> 'A' ] + lcFiltru Endif If !'ISTORIC'$Upper(Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro)) lcFiltru = [ AND c.tip_istoric <> 'I' ] + lcFiltru Endif lcCondSucursala = Iif(!Isnull(gnIdSucursala), ' AND c.id_sucursala = '+Alltrim(Str(gnIdSucursala)), '') If Len(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty)>0 lcFiltru = lcFiltru+" and (" + Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty) + ")" Endif If !Empty(lcFiltru) lcFiltru = lcFiltru + lcCondSucursala Endif If !Empty(lcFiltru) lcFiltru = Substr(lcFiltru,6) Else lcFiltru = [] Endif This.cFiltru = lcFiltru *!* MESSAGEBOX(lcFiltru) *!* _cliptext=lcFiltru This.actualizeaza_grid1(lcFiltru) If Reccount('cContracte')=0 If !tlReset aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare") Endif Select cContracte Scatter Name goContract Memo Blank Endif Select cContracte This.grid_contracte.SetFocus() ENDPROC PROCEDURE inainte_de_do_excel DO export_excel_grid WITH this.grid_contracte ENDPROC PROCEDURE inainte_de_do_listare *Thisform.AlwaysOnTop = .F. Private plToate, pcDataOra && toate contractele Store .F. To plToate pcDataOra = get_ora(2) lcmenu="\ 0 ] Endif lcSel = [{call pack_crm.restdefacturat(?pcFiltru, ?pnGroupResponsabil)}] lcCursor = 'crsRestDeFacturat' if goExecutor.oExecuta(lcSel, lcCursor) goExport.export2frx(lcCursor,[rctrrestdefact]) Use In (lcCursor) endif Case lnx = 8 Select cContracte If Reccount('cContracte')=0 Return Endif Private pcFiltru,pcTitlu,pcGrup,pnGrupResponsabil,pnFacturatIncasat Store 0 To pnGrupResponsabil, pnFacturatIncasat pcGrup = '1=1' pcFiltru = This.cfiltru lorfm = Createobject('frm_facturat_incasat') lorfm.Show(1) If buton = 2 Return Endif If pnGrupResponsabil = 1 pcGrup = 'cFacturi.id_responsabil' Else pcGrup = '1=1' Endif lcSelect = [select c.id_ctr, p.denumire,i.id_part,c.contract,c.numar,c.data,]+; IIF(pnGrupResponsabil = 1,[i.id_responsabil,],[]) +; Iif(pnGrupResponsabil = 1,[r.denumire],[''])+[ as nresp,v.nume_val,v.moneda_nationala,c.valftva, ] +; [ SUM(] + Iif(gnParametru_prog = 1,[i.debit],[i.credit]) + [) as tot_fact, ] +; [ SUM(] + Iif(gnParametru_prog = 1,[i.credit],[i.debit]) + [) as tot_achit, ] +; [ cast(0 as number(20,4)) as sold_contract, cast(0 as number(20,4)) as sold_part ] +; [ from ireg_parteneri i join vcontracte_toate c on i.id_ctr=c.id_ctr ] +; [ LEFT JOIN NOM_PARTENERI P ON I.ID_PART = P.ID_PART ] +; IIF(pnGrupResponsabil = 1,[ LEFT JOIN NOM_PARTENERI R ON I.ID_RESPONSABIL = R.ID_PART ],[]) +; [ LEFT JOIN VNOM_VALUTE V ON I.ID_VALUTA = V.ID_VALUTA ] +; [ LEFT JOIN VNOM_VENCHEL VC ON I.ID_VENCHELT = VC.ID_VENCHELT ] +; [ where ] + pcFiltru +; [ group by c.id_ctr, p.denumire,i.id_part,c.contract,c.numar,c.data,] +; IIF(pnGrupResponsabil = 1,[i.id_responsabil,],[]) +; Iif(pnGrupResponsabil = 1,[r.denumire,],[]) +; [ v.nume_val,v.moneda_nationala,c.valftva ] +; [ order by v.nume_val, c.data, c.numar] lcCursor = [cFacturi] if goExecutor.oExecuta(lcSelect,lcCursor) pcTitlu = [Situație facturat-încasat] If pnFacturatIncasat = 1 Select (lcCursor) Set Filter To tot_fact - tot_achit <> 0 Else Select (lcCursor) Endif goExport.export2frx(lcCursor,[rap_facturat_incasat]) Use In (lcCursor) endif Endcase *Thisform.AlwaysOnTop = .T. ENDPROC PROCEDURE inainte_de_do_modifica Do make_cursoare_ctr In oproceduri_roacontracte.prg && creeaza cursoarele DO make_crsNote In oproceduri_roacontracte.prg DO make_crsValute In oproceduri_roacontracte.prg DO make_crsSectii In oproceduri_roacontracte.prg DO make_crsTip_ctr In oproceduri_roacontracte.prg DO make_crsSelectii In oproceduri_roacontracte.prg **-- Select cCtrScadentar Select crsAtasamente Select cCtrArt loctrn = Createobject('frm_contracte_nou') loctrn.Show(1) Do inchide_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele DO inchide_crsNote In oproceduri_roacontracte.prg DO inchide_crsValute In oproceduri_roacontracte.prg DO inchide_crsSectii In oproceduri_roacontracte.prg DO inchide_crsTip_ctr In oproceduri_roacontracte.prg DO inchide_crsSelectii In oproceduri_roacontracte.prg ENDPROC PROCEDURE inainte_de_do_sterge PRIVATE pnId_ctr, pnTip LOCAL lnRaspuns, lcSql, lnSucces, lcId, lcId_util STORE 0 TO lnRaspuns, lnSucces STORE '' TO lcSql IF !EMPTY(goContract.id_ctr) lnRaspuns = amessage('Doriti sa stergeti contractul?',4+32,_SCREEN.CAPTION) IF lnRaspuns = 7 && 7 = No ; 6 = Yes RETURN ENDIF lcId = ALLTRIM(STR(goContract.id_ctr)) lcId_util = ALLTRIM(STR(gnIdUtil)) lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] lnSucces = goExecutor.oExecute(lcSql) IF lnSucces < 0 AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare") RETURN ENDIF THIS.actualizeaza_grid1() ENDIF ENDPROC PROCEDURE Init DoDefault() This.dblclick_bind() Select cContracte If Reccount()>0 This.nireg = Reccount() Else This.nireg = 0 Endif This.clb_tx_simplu1.text_simplu1.Refresh If gnParametru_prog=2 This.but_factura.Visible = .F. Endif ENDPROC PROCEDURE but_factura.Click lnOptiune = xmenu('Factura lei;Invoice;Factura fiscala in valuta') DO CASE CASE m.lnOptiune = 1 DO facturare_contracte WITH 'FACTURA LEI' IN oproceduri_facturare.prg CASE m.lnOptiune = 2 DO facturare_contracte WITH 'INVOICE' IN oproceduri_facturare.prg CASE m.lnOptiune = 3 DO facturare_contracte WITH 'FACTURA VALUTA' IN oproceduri_facturare.prg ENDCASE ENDPROC PROCEDURE But_reset_criterii1.Click Local llcautare Thisform.pagefr1.page2.ct_contracte1.filtru_pretty = "" Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro = "" Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro_full = "" If Type ("thisform.pagefr1.page2.ct_contracte1.but_start_criterii1") = 'O' Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.ToolTipText=Thisform.pagefr1.page2.ct_contracte1.filtru_pretty Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.SetFocus Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.pornit = "nu" Endif DODEFAULT() lcfiltru = [Stare;nofiled;1;] *!* llcautare = This.Parent.but_start_criterii1.lcautare *!* This.Parent.but_start_criterii1.lcautare = .F. Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru) *!* This.Parent.but_start_criterii1.lcautare = llcautare *Thisform.pagefr1.page2.ct_contracte1.do_cauta(.T.) Thisform.pagefr1.page2.ct_contracte1.Refresh ENDPROC PROCEDURE But_start_criterii1.loadcriterii Parameters tacriterii External Array tacriterii #Define crlf Chr(13)+Chr(10) SELECT cContracte lcStringCriterii = "Data ctr.\data\D\none\" + crlf + ; "Nr.ctr.\c.numar_aa\T\none\" + crlf + ; "Responsabil\c.responsabil\T\c.ID_RESPONSABIL\nom_parteneri" + crlf + ; "Partener\c.denumire\T\c.ID_PART\nom_parteneri" + crlf + ; "Valoarea contractului\c.valftva\N\none" + crlf + ; "Tip contract\c.denumire_tip\T\c.ID_TIP_CTR\tipuri_contracte" + crlf + ; "Articole\|E|" + ; "instr(',' || c.ids_articol || ',', ','||<>||',') > 0"+; "\I\none\nom_articol" + crlf + ; "Valuta\c.nume_val\T\c.ID_VALUTA\nom_valuta" + crlf + ; "Stare\nofiled\A\In desfasurare si active,Incetate,Active,Inactive,Suspendate,Nesuspendate,Toate#c.incetat=0 and c.inactiv=0,c.incetat=1,c.inactiv=0,c.inactiv=1,c.suspendat=1,c.suspendat=0,1=1\" + crlf + ; "Istoric\nofiled\E\1=1" + crlf + ; "Act aditional\nofiled\E\1=1" + crlf + ; "Sectie\c.sectie\T\c.ID_SECTIE\nom_sectie" DoDefault() ENDPROC PROCEDURE grid_contracte.AfterRowColChange LPARAMETERS nColIndex LOCAL lcTabel lcTabel = this.RecordSource SELECT (lcTabel) SCATTER NAME goContract MEMO ENDPROC PROCEDURE grid_contracte.cAre_link.Command1.Click this.Parent.Parent.Parent.arata_linkuri() ENDPROC PROCEDURE grid_contracte.cAre_link.Command2.Click this.Parent.Parent.Parent.arata_linkuri() ENDPROC PROCEDURE grid_contracte.cNume.Text1.RightClick Private plToate, pcDataOra Store .F. To plToate pcDataOra = get_ora(2) lcmenu = "Fisa contractului;Lista facturilor pentru contractul selectat" lnx = xmenu(lcmenu) Do Case Case lnx=1 save_grid(This.Parent.Parent.Parent.grid_contracte) Do make_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele Do make_cCtrActeAditionale In oproceduri_roacontracte.prg Select cContracte Set Filter To id_ctr = goContract.id_ctr Select cCtrArt Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx' Select cCtrScadentar Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx' Select cCtrFactGarant Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx' Select cCtrActeAditionale Index On id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx' Select cCtrFacturatIncasat Index On id_ctr To Addbs(gcTempPath) + 'cCtrFacturatIncasat.idx' Select cContracte Set Relation To Select cContracte Set Relation To id_ctr Into cCtrArt Additive Select cContracte Set Relation To id_ctr Into cCtrFactGarant Additive Select cContracte Set Relation To id_ctr Into cCtrScadentar Additive Select cContracte Set Relation To id_ctr Into cCtrActeAditionale Additive Select cContracte Set Relation To id_ctr Into cCtrFacturatIncasat Additive Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale, cCtrFacturatIncasat lcSetData = Set('date') Set Date German Select cContracte Report Form fisa_contractului.frx To Printer Prompt Preview Set Date To &lcSetData Select cContracte Set Filter To Set Relation Off Into 'cCtrArt' Set Relation Off Into 'cCtrFactGarant' Set Relation Off Into 'cCtrScadentar' Set Relation Off Into 'cCtrActeAditionale' Set Relation Off Into 'cCtrFacturatIncasat' If Used('cCtrScadentar') Use In cCtrScadentar Endif If Used('cCtrFactGarant') Use In cCtrFactGarant Endif If Used('cCtrArt') Use In cCtrArt Endif If Used('cCtrLink') Use In cCtrLink Endif If Used('cCtrActeAditionale') Use In cCtrActeAditionale Endif If Used('cCtrFacturatIncasat') Use In cCtrFacturatIncasat Endif restore_grid(This.Parent.Parent.Parent.grid_contracte) Case lnx = 2 llContract = .T. Do Case Case gnParametru_prog = 1 Do lans_ireg_parteneri With .F., gcCont411, .T.,,,,,llContract Case gnParametru_prog = 2 Do lans_ireg_parteneri With .F.,'401', .F.,,,,,llContract Endcase Endcase ENDPROC PROCEDURE grid_contracte.Init this.SetAll("DynamicBackColor","iif(inactiv=1,RGB(200,200,200),RGB(255,255,255))","Column") this.SetAll("DynamicForeColor","iif(tip_istoric='I',RGB(0,128,0),IIF(tip_istoric='A',RGB(0,0,128),RGB(0,0,0)))","Column") ENDPROC ENDDEFINE DEFINE CLASS ct_date_generale AS container *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="outlook2003bar1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol2" UniqueID="" Timestamp="" /> * BackColor = 255,255,255 Height = 401 Name = "ct_date_generale" Width = 800 * ADD OBJECT 'outlook2003bar1' AS outlook2003bar WITH ; Anchor = 7, ; Left = 5, ; Name = "outlook2003bar1", ; Top = 1, ; Panes.ErasePage = .T., ; Panes.Height = 328, ; Panes.Name = "Panes", ; Panes.PageCount = 7, ; Panes.Pane1.Caption = "Date generale", ; Panes.Pane1.Name = "Pane1", ; Panes.Pane1.picture16 = Email Envelope 16.png, ; Panes.Pane1.picture24 = Email Envelope 24.png, ; Panes.Pane2.Caption = "Obiectul si valoarea contractului", ; Panes.Pane2.Name = "Pane2", ; Panes.Pane2.picture16 = Contacts 16.png, ; Panes.Pane2.picture24 = Contacts 24.png, ; Panes.Pane3.Caption = "Termene de facturare si achitare", ; Panes.Pane3.Name = "Pane3", ; Panes.Pane3.picture16 = Favourites 16.png, ; Panes.Pane3.picture24 = Favourites 24.png, ; Panes.Pane4.Caption = "Termene de livrare/receptie si garantii", ; Panes.Pane4.Enabled = .F., ; Panes.Pane4.Name = "Pane4", ; Panes.Pane4.picture16 = Calendar Multiweek 16.png, ; Panes.Pane4.picture24 = Calendar Multiweek 24.png, ; Panes.Pane5.Caption = "Facturare", ; Panes.Pane5.Name = "Pane5", ; Panes.Pane5.picture16 = Games 16.png, ; Panes.Pane5.picture24 = Games 24.png, ; Panes.Pane6.Caption = "Clauze speciale si observatii", ; Panes.Pane6.Name = "Pane6", ; Panes.Pane6.picture16 = Help 2 16.png, ; Panes.Pane6.picture24 = Help 2 24.png, ; Panes.Pane7.Caption = "Documente atasate", ; Panes.Pane7.Name = "Pane7", ; Panes.Pane7.picture16 = Music Player 1 16.png, ; Panes.Pane7.picture24 = Music Player 1 24.png, ; Panes.Top = 33, ; overflowpanel.MenuButton.imgPicture.Height = 16, ; overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ; overflowpanel.MenuButton.imgPicture.Width = 16, ; overflowpanel.MenuButton.Name = "MenuButton", ; overflowpanel.Name = "overflowpanel", ; SplitBar.imgSplitter.Height = 3, ; SplitBar.imgSplitter.Name = "imgSplitter", ; SplitBar.imgSplitter.Width = 35, ; SplitBar.Name = "SplitBar", ; Panel.Name = "Panel", ; Splitter.Name = "Splitter", ; Title.lblCaption.Name = "lblCaption", ; Title.linBorder.Name = "linBorder", ; Title.Name = "Title" *< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" /> ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol1' AS olecontrol WITH ; Anchor = 15, ; Height = 328, ; Left = 0, ; Name = "Olecontrol1", ; Top = 0, ; Width = 198 *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAigAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA8BAAAAAAAABwAAAAIAAAD+////BAAAAAUAAAAGAAAACQAAAAgAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAAB3FAAA5iEAALE8wWoBAAYAIgAAAD0AMgCNAQAACAAAAHFIHwAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTEBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaNYaADwAAAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwAAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAuQAoAAABMYWJlbEVkaXQACQAAAEkKAAAAAQAAAAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAQAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAA4AAABQYXRoU2VwYXJhdG9yAAoAAABIAAAAAAEAAABcDAAAAE9MRURyYWdNb2RlAAkAAABJCgAAAAAAAAAMAAAAT0xFRHJvcE1vZGUACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsAAAFAEBKHwAGAAAAAAAAAAUAAIBs5xIAAQAAAFwAH97svQEABQCx5xIAA1LjC5GPzhGd4wCqAEu4UQEAAACQAURCAQAFQXJpYWxCAV0gWwB4AxUASMIaADUAbAB7AD0AYwBkAFIAJgBhAEYAIQBaAFoAdQBbAEwAfQAtADkAKwBlAAkAAABJCgAAAAAAAAAAJQB5AEkAeAA5AGoAXQB5AFUANgBgAHsAPQB0ADYAQQBzADIAWgB4AEoAMwBFAFUAKgA0AEMAXQB9AFcAdgBQAHQALABeAD8AVQBbACgAQwAoAHMAcABaAHUAYgBtAC4ANAAlAGIALgBDAHoAMgA9AHgAQwBYAFEAQABBACUAagBQAFAARQBlAC0AKwBtACgAXgBdAE8APQBxAEEAawBBAHMAYQB7AHEALgAhAE8ARABzAEMATgBYAFEAXgB9AEAAMgBbADQAPQBhAEUAMQBTAHYAawBCACgAVAAsAHMAaABtAFgAQwA/ACgAMwBYAFEAYABZAHcAQAA2AF8AQwB0AGUAJQBrAHoAWABeAG4AOABAAGoALQB6AGEAWABdAEgAdwBOAFMAVABxAE0AeABFAD0AQABZAD0AKQApAFcAJQBvACYAcwBpADIAZQA0AHsAJABhAD0ASQBNACUANgA/AGUAdgBhAGwANgB4AHUAcgB3AGMAQgBiAHUAdwAuACUAcgBwAFYAOQArAFQAbgBTAC0AbgAsAGUATABDAFYARgBvAGwAJgAhAGwAMABWAD8A" /> ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol2' AS olecontrol WITH ; Height = 150, ; Name = "Olecontrol2", ; Visible = .F., ; Width = 200 *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+////BQAAAAYAAAAHAAAACAAAAAkAAAAKAAAACwAAABYAAAANAAAADgAAAA8AAAAQAAAAEQAAABIAAAATAAAAFAAAABUAAAAEAAAAFwAAABgAAAD+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAAABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAADikAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAFcAAAAAAAAAAQAAAP7///8DAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9cAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAJAAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADkzNjgyNjVFLTg1RkUtMTFkMS04QkUzLTAwMDBGODc1NERBMSQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RQEAAIAMAAAASW1hZ2VIZWlnaHQACQAAAEkKAAAAEAAAAAsAAABJbWFnZVdpZHRoAAkAAABJCgAAABAAAAANAAAAVXNlTWFza0NvbG9yAAUAAABMAQAAAABJCgAAABgAAAALAAAASW1hZ2V3aWR0aAAJAAAASQoAAAAYAAAADQAAI38kLJGF0RGxagDA8Cg2KCFDNBIIAAAA7QMAAO0DAACAfuHmAAAGAAgAAAAQABAAwMDAAP//AAAB782rAAAFAOBLHwAGAAAA/////wUAAIAAAAAADAAAAAETAAAARABhAHQAZQBsAGUAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABEAAAAEMAYQBpAHgAYQAgAGQAZQAgAGUAbgB0AHIAYQBkAGEAAQ4AAABDAGEAaQB4AGEAIABkAGUAIABzAGEA7QBkAGEAAQ4AAABJAHQAZQBuAHMAIABlAG4AdgBpAGEAZABvAHMAAQ8AAABJAHQAZQBuAHMAIABlAHgAY///5I50/+3h/+bU/tjE/cy2/sSr67+yT6rnA7P/D5H+XpTShn98qKio4ODg+/v7////55N4/MWq+7ma+8au/+LR/+jW8trTMdL1AMf/B7P+H474PHmsg4ODtra25eXl+/v79+Tf/fDj+97P8KOH85Ry/MCl/cCniMbMBNz+AMH/DK79I4/5SXighoaGubm56enp/////O3d//bs++nh8aB+/9/G/9vC+c65bNjkAtv/AL//JanwXozCcXN5jIyMxsbG/////////OjX/u/i+7uY/9S0/97D/+XL793ORt3xJdTzi6DITl7aID3ZX2B/qamp//////////38+eXa97OT/93G/+XK/+HE/+DB2eDYfrPMe4fvRGv/EUT/Hj3UtLS0/////////////v797rKg4o555peC8bik+9vI/9vGt3N2gJTwVXr/OGD+Xnbe3Nzc/////////////////////v39+enl7Lqs5J6K435e2aqhubvfg5btoazr3d/p+Pj4BwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398/Pz6Ojo5+fn6+vr8fHx+Pj4/f39/////////////////////////v7+/Pz89PT01tbWsrKyqKiosrKyvb29y8vL2tra5eXl7+/v+fn5/v7+////////9/f34uLi2Lmt4LGhx56QsYBxn3ZqkHt1i4aFlZWVpaWlvr6+4ODg+fn5/////f39zdnhmqu2k46R/9/O//fs/u/i+9/O88Sx3aOQv4FvpnFjkoaCwsLC8fHx////9PT0VazcDrz+U6HC+tfH//Dl/dfI/tW9/9zA/+XL//Df+93Mp3tvuLi47u7u/v7+stHlFbLzHcv/dcTS/+bX//Pr/eTc/dG9/s+0/+LJ//jt/eTTr4R4u7u78PDw+/v7b7viEcT+Mcj2tc7I//Pp/uba/dC9/c22/cy1/cmy/smq/drFpH1wubm57+/v5+7zNrnrGMv/S8To693N//38/eDV/dfH/c+7/c+5/Myz/9a689HAf3yCsLCw6+vrvtrrL8n6INH/e8LV//Lm//z7/+ff/+jh/ePa/dfG/ciu/9zF39DCVpe1qqqq6Ojols3oO9j/Ndb+p8PF+e3p9erm89jO+NbK/drO/dnM/dfG/+PSzdvNZKrCqqqq5+fngcfoTeT/Rt3+qry75byo17OmyZyQxLa0/f///////////OznwdrOba7Gra2t6Ojods3tZvP/U9/7l+P2+f32//Hh9MKvzquh////////////8eHbuNfWdq3FsbGx6urqgs3ubOr8aer8atz3huX6z+7x+trJ2L60////////////9ePax9rae6rEwsLC8PDw9fr90Of2sNvwktLscsnrZdLypNfhybes8ufc8+PW4drS3MjA3uDdkrvV4uLi+Pj4/////////////////v7++Pz+4fD5gsTlhPT1gvT2cebxaafIq8bY1uTt+vr6/v7+////////////////////////////1en2h9Dud9jxcs3sz93m9fX1/v7+////////CAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////+vr67u7u6Ojo8fHx/Pz8/////////////////////v7++fn59/f3+vr6/v7+////7e3twsLCrKyswcHB4uLi8vLy+Pj4/f39////////9vb23d3dy8vL1dXV5+fn8vLy3J2K3KSIm3Bjh4eHqampwsLC2NjY8/Pz/////v7+y9rkfqnBg4ySk5OTrKyswL296IRj//jR+d+5qXFekW1jmXtzr6+v5+fn////9/f3Wa7dGr74JrHmQZC4YoCRjXl1+Jhw/ujB//DI/ezF/O3G2a+Qo6Oj5OTk////y97pFrX1KcX5Mdj/Kdn/SbHSw4p7/8Sb/du0/d63/uS9//PMyZp/p6en5ubm/v7+gcDjEsL9NMj3Ref/dcHM7LCL/7+W/Mqk/Mym/dGr/dav/+W+uoZwo6Oj5eXl+Pn5TrvpHMr/Pcz3Wuv6gM3S5sWj/8We/LuV+76Y+8Se/Mmj/9avx410o6Oj5OTk3OnxNcT1KNL/SdH2s8zBn8O8hL6+srSh+saf/LKM+7eS/riQ/bqU15J1ra2t6enpttfrPtX8NdX/VtX04+bU/8ur9cSns6yd1sCi/7aO/6B43KOGqsi9mYB6t7e37u7un9TrT+D+Rdv+cNr04tC89cq4/9bB08i6s7+z/6yB1YVuitDemPf3f5uovLy87+/vjs/tafL/Wub+ft35ydvT7NvQ//Ho3NjPmtTgn6uzjsjch9v0o9/tfaS1xMTE8vLyodXwadr0Z+b6Zdv2ct/6h+P2neLztubvvvb+vfn/vvX/seHwv+TsiKe61dXV+Pj4/f7+8Pj8zub1rNvwk9XubsjsYNHxXNj2bNz3f973lOH4td3uw+DusMfW7u7u/f39////////////////////////9fv9i9HuePj/dfr/XuL5iLDJvNLh8PP1/f39////////////////////////////////4fD5n9jwhdLtjMrn7e3t+vr6////////////CQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+/Pz89/f37e3t5ubm5eXl5eXl6+vr9fX1+/v7/v7+////////////////////+Pj44+PjzMzMtbW1pqampKSkpaWlsLCwyMjI39/f9fX1////////////////////5N3ss6XFlnHApWvojmLBoGjgkWPHfW+Ni4CXsrKy6Ojo/////v7+9fX16Ojo6Ojot4Txs3H/tXb9vIP/vIH/vIL/t3r+s3H/mmLcmpqa4ODg////9/f31tbWr6+vqampqnXowIr/v4j/v4n/wIr/wIn/v4f/v4n/pW3nmpqa4ODg////ytznPq3gQKLLWYOcmmrYxZT/xJP/xpT/xpX/xZT/xJH/xJD/p3Dmmpqa4ODg/Pz8crvhGr74LtP/Ls/9i3rwzKD/y5//zaL/0qX/zqL/ypz/zZ7/rHjmmpqa4ODg6+/zLrXsHsD4Rt3+RuH/k4r40ar/0an/zqj6tpXexJ7w0ab/t5LkmmzOmpqa4ODguNboIcf8J8f7YtrwX+HympD51rP/2LL/oI63LC4tbGN3wKTgUVJSUTlto6Oj5OTkfMTmM9j/MdD+r9XQ0ryjq4jh3Lz/2rv+sqfBrrGtop2puaPSub20oYPDvb297+/vacXqROL/QNH6wOLd/8qt353A0an/6NL/49L0xbXXybHn2rn+xabqqYjP4eHh+/v7YdTzWu7/V9j7ydnS/9nI/+DNrYri1rP/7+D/79z/4sb/0ar/roHh4eDj+fn5////cczuZ+H3Z+H5iuXzoNvoueTwuebsqL/4s6P5uJn3oYblqI/F4N/h/Pz8////////+fz+4O/4tt3xlNXuasvuWtLzY9z4f9/3k9/2wuPxqMjb39/f9/f3/////////////////////////////f7+4/H6btjyev3/Wtr1l7bJytrl+vr6/v7+////////////////////////////////////wuP1kNXvmM3o8fHx+/v7////////////////////CgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////+vr67Ozs4uLi6enp+Pj4/////////v7+/v7+/////////////////f39+vr6+/v76+vrv7+/oKCgs7Oz4ODg+Pj48vLy4uLi4ODg8PDw/Pz8/////v7+8fHx2tra1dXVfHR1STs/QUBCgYGBwsLC6urqzMzMn5+foKCgyMjI8fHx////+fn5tcnXkKOtkpKSp3Bz2IyRbkxRVlZXs7Ozvbu8W0lNPzY5WltcoaGh4+Pj////2uXrLKzmHrnyN5TAdX+V9KSmrGZqUlFToKCgrJWX2I6Vr3N5QTk7m5ub3d3d/f39hcHgFrj2LdD+LNb/Ksr5U63JY3aHXG6Ce31+kJGUxIiE5JaaYUVKr6+v4uLi8vT2PLbqGMD7QtX7R+D/RuD/Pun/TLDJYpOpQrjfUnuPaHR/iXuAeWJktra25eXlyd7sIsL5IMb7Udr6V+v/W+7/XfP/YbTDbJ+rVvb/Xff/VOD0VoihcGJop6en4+PjlMvnLNH/J87/cdHlqca6gMzPbOXsd8TOq4GJjJiheKiybsLGU6rAZ1lelpaW3d3ddMPnPNz/NNH9jNzm/9q8+cCh2r6mjp+cz3eB0G92ql5khFNYWENIOzM2nJyc4ODgZsjsTub/QtT8od7j8c67/865/82ysMG6nauzo4+XkG15f1ZgY0JGNy4xvLy87+/vY9b0Y/L/V9f4quvy4cu4/ujd/+rgvdfVhOX7gNnvhtXsgrzRgqKuc3Fz2dnZ+/v7ac7wbev7ZuT5c973h+T4nOHyvuTpwOvxv/T9v/X9p+T4suLwotbnsbKy5+fn////7/f7yuP0qtrwjc/sbcvtXdDyWdT1a9v4ft33leH3ruX34fL1nsjg19na9PT0/////////////////////f7+8fj8yOP0Zdv1d/z/bfT+WsLlmrjNwdfm+Pj4/f39////////////////////////////////rtzyhtPud9fvos3k8PDw+/v7////////////CwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+9vb26+vr6Ojo6+vr8vLy+/v7////////////////////////////////////+vr639/fuLi4qqqqsLCwwcHB3d3d9PT0/v7+////////////////+/v77+/v6Ojo5dfS4rqpw5mIwJmHpIN2hIKBoqKiysrK5+fn9/f3/f39/////v7+7Ozsw8PDrKysuaii//To/+bU/+zd/uXS0Z+Jh3Vujo6OsLCw1tbW9fX1////+vr6iLzbPKraTYuqhZyn0+S4993J+eLS//Pj/+/c67idrXtolH11tbW16+vr////3ufuKLDsJtL/KND/jtDLgNZ258m344Fd7bmX/+vW/+zY/+TGzZJ6t7e37u7u/v7+mMfhFb/7OM/7Str8rta6v+ojfyQskYXREbFqAMDwKDYoIUM0EggAAADtAwAA7QMAAIB+4eYAAAYAugEAABAAEADAwMAA//8AAAHvzasAAAUA4EsfAAYAAAD/////BQAAgAAAAAAMAAAAARMAAABEAGEAdABlAGwAZQAgAGMAbwBuAHQAcgBhAGMAdAB1AGwAdQBpAAEQAAAAQwBhAGkAeABhACAAZABlACAAZQBuAHQAcgBhAGQAYQABDgAAAEMAYQBpAHgAYQAgAGQAZQAgAHMAYQDtAGQAYQABDgAAAEkAdABlAG4AcwAgAGUAbgB2AGkAYQBkAG8AcwABDwAAAEkAdABlAG4AcwAgAGUAeABjAGwAdQDtAGQAbwBzAAEJAAAAUgBhAHMAYwB1AG4AaABvAHMAASEAAABPAGIAaQBlAGMAdAB1AGwAIABzAGkAIAB2AGEAbABvAGEAcgBlAGEAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABIAAAAFQAZQByAG0AZQBuAGUAIABkAGUAIABmAGEAYwB0AHUAcgBhAHIAZQAgAHMAaQAgAGEAYwBoAGkAdABhAHIAZQABBQAAAEoAbwBnAG8AcwABBwAAAE0A+gBzAGkAYwBhAHMAAQUAAABGAG8AdABvAHMAAQYAAABWAO0AZABlAG8AcwAMAAAAAQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////+/v77u7u5ubm7Ozs9/f3/f39////////////////////////////////////////7e3twsLCp6ensrKyzMzM4+Pj8vLy+/v7////////////////////////////+/v715iH13NVrGtYi3JrjIyMpqamwMDA2NjY6+vr9/f3/f39////////////////8Ojm1WNE7ohj8Y9r4XpZuWhQlGldh399mJiYsrKyzMzM4+Pj8vLy+/v7/v7+////4bOo3GNA6YRf9aJ+9Jx385dy74pm0nJVpmVTi3JrjIyMpaWlw8PD4uLi+fn5/f392Ypz4G9L6IZi96+K9KaB9KJ99KB79J158pVw4X9dumlRlm1ij4aEu7u77e3t9e/t3XlZ5HxY6Ytm+LWN+rGI/LGJ+K2H9KeC9KWA9KN99J5575FssG5apqam5ubm683F5oJf6Ydh6ZFtsbmzqKmf0aiO66yI97WO9bGL9a2I9KmE9qyHx39kp6en5ubm5bSn7JRv7I9p6pdyr93egub5e8ncia6236+P+8Ka97yW9reS97aRxIxzq6ur6Ojo4aKP8aR+7pZw66WBt+Dfi9v0ddL1hd/1xKqU9q2F8rKM9bqU88CcwpR9ra2t6Ojo45yE9bKM8qB69biQjdbfjtHqs+f7oODzyLKc9raN8LON7qeC6bOQwZmDsLCw6enp6Z2B/MWe97SO9LKK3tG0xdjR3OfixeHk5dKy98ig8LWQ8bWP5rSRw52Hs7Oz6enp7bWl66WH7qWD75969qqC9a2E8bOM7cOg9s+o+dy1/Oa/+Nex59WzyqiSw8PD7u7u/////fn49d3X8dHH6bOh55+H6p1+7Jhz8aiD8KmD8K2I7bSO5NCx17Og4+Pj9/f3/////////////////////////fj27Lao+b+Y/caf+r+Z14Rnyayk6NTO+vr6/v7+/////////////////////////////PXz66mT66aI76aD37Gl7+/v/Pz8////////AgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////////////////v7++Pj46+vr5ubm7+/v+/v7/////////////////f399fX18vLy+Pj4/v7+/v7+8vLy1tbWs7OzpqamwMDA6enp/f39////////////8fHx0dHRwcHBz8/P4+Pj5eXltsC2WKZmVMx1T4ZXjY2NxcXF8fHx/v7+////+/v72rWrvH9ujn15jo6OpKSkjqKPN6pKR+lxVPSDUed+WnZdm5ub1tbW+Pj4////8Ovq1WZJ7odj5X1bwWZRaGxLEJcnMtdTO9xfRONsVPOCRr5jdn52uLi47u7u/v7+4LOn3GM/7Itn9p9795h1kIdEIooXDaggL9JOO9teReRtU/OCTZRZs7Oz7Ozs+/v72YVt4XFN6o1o+K+I9aaB/6GEqZZWB6gXIsk+MNNQO9xfQeFoQKBWxMTE9PT08+nm33lX5HxY6ZNu6bOS9a2F/7KOuKloELckGcEwJcpBK9pTW6ZGhYF3yMjI9vb26Ma96Ilk6YZh5Jl4kcTNmbi5wKmen6ZuI8g+DbgiFr0rGc4+cKtSoHlyxcXF9PT05K6e75x27ZNs6aaFrOnxeNz7dNPza7GiPshTLNJQJdVNFM09c65aqYF3xcXF8vLy46KN9KyF8p946LaVetHpldXwmuT9pMjMza+Bsbt8is1+jbNr0LKPr4t/ysrK9PT06J+G+8Kc9KuE9cCZttbMyeDgyuz0vNHP9sOd/bmW8qiF66eF4b6hrYl+0tLS9/f37bSj7KSE76WB76B796Z+77GM7LuZ8sij+tu0+du1+dmy6cyp3sOlvKGZ4eHh+/v7/////fr5+u3o78q/7b2t56GJ6JZ38aB78aeB8KmD8LGL37eY4bKW4NPQ9PT0/v7+/////////////////////////vv66qeP/MSe/MSe6pRxzLWv6NnV+vr6/v7+////////////////////////////////+Ofj8MOz7LWg5bir8/Pz/Pz8////////////AwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398fHx2dnZycnJy8vLyMjItra2t7e32NjY9fX1/v7+////////////+fn57Ozs4ODgtL60bY5tb4Jveoh8RYlLQpBNeYF6pKSk2NjY+Pj4/////////Pz85eXlu7u7gpmMGJkaKchEMcBMKqtALLhGVO2CR65gc3pzqqqq39/f+vr6////8fLyZbDXPaLYL4ViGsQqKM1EMtZTPN9iQuBoS+l3WvmLPo1KgICAsLCw4uLi/v7+rc/jFbn2JcD/IJ+RMNNJIcY7Isc9Lc9LNthZP95lSul0Ue19Q4NLh4eHv7+/+vr6W7jkFML8NcH8KKWTT+5zH8Q3E7onIcU6Ks5HM9VUPNxhSOhyTux6S4hSvr6+4OrwJr3zGcL7P8f8K6SqSdttOttVGsMsFr4rHcI1KMtDMdRQONtYOs1QUZhW2dnZr9ToJcv9IsX7WNj4S7DUJ5uiLLKaIrJcE7AmE70nF8AqHsAyNMVmR5GMqKio5ubmhMXlM9f/J8r9e9vo17qhuLawgam8S5i/JqtjLdFEIrBEUM+lffT1X6DDo6Oj4+PjaMHoROL/NM/9gdrn+d3G/8mr/8ilvJaLPKeYY9qzh+71lP//mfv7cbnNnqCg4ODgVc/zU+j/RNf+nNjf8r2j98++/97L1burftDtgN/+iOT5heL2ouzwh8zcoqWm4+PjXdn2aPT/Wtr5oez64NO/+dvN/+jd4sKyjdPkjN/1j9/0itjxsubshb3Sq62t6OjocdPxaeb5aOf7ceP6ddj1m9fku+Lnwd/mzvz+xvj+s+v4ruT0xeXsfarDv7+/7u7u7PT7yeX0tOHxhM3rcNXwYtT0XNb2beP8eNz3it32sOv6x+v24vT6jrnT39/f9/f3////////////////////8vj8z+b1c9Duefz/cfX/Zen8aazQscna1OHq+Pj4/v7+////////////////////////////xuP1e8/uct7zcdXuxNbi9PT0/f39////////BAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA+/v77Ozs2dnZy8vLyMjIwsLCsLCwsrKy19fX9vb2/v7+////////////////////6enps7u0dY12aIFoan9rOn89K5U1d313o6Oj1tbW9fX1/v7+////////////////gbKGRctmPtViNM1SKL5BHbk0G8UyJI0uc3lzoKCgy8vL4+Pj7+/v+Pj4/f39////S89uW/yOTvF9PedqLtVOIsg8GL4tDrggHIUgenhyjIyMo6Ojubm5zc3N4ODg8fHxZuiNdveiYNd6a9F2QtBiLdFMFcAsF8k4HL88u7aI0J6Mq4x+koN9i4uLpaWl0dHRmO+2HaItcpZC/62Xl6lqHMdFQNJhZMFopcKN/+vb/+7c/+bT+dK73aGHrYt/v7+/gdmYPrpQpbN4/+zl06yDlK5u3MCX/tbE//fz//ry//Lo/uDP/tfA+syxu5OEyMjI0OTSbMR9y8ej//r1/+ze/+HUyLm/lqrB+O7m9OHZ/NbE/+HP/+zc8ci0r5+Y19fX////6e7n5trI//jx2tDPd6fJQKXgP6fiZqHJWZrGqbK9//bm//fs2rCdsaWg4+Pj/////OHZ8dnSlLjOXLfjVsX4Xsf4XMX2UsD3Tb/4Uarc1c3N///4y6GRurOx7e3t/////fbzhavFT7nnZcnxZMXtZcfwZMfxYcXxYcXyWsn5d7bY+OTbwqedzs7O9vb2////////6/L2abTYb8vre9r2c9Lxb83vbMzvasrvZ8jvV8Dtl6q70buz6+vr/f39////////////6fL3crfYedPtiOX4huP4hOL5geD4cM3sVabOpLjH7+/v/Pz8////////////////////6/P4drvZg9vtk+35i+X1b8Tib6HA1dvf+Pj4/v7+////////////////////////////6vL3erzYgNXna7PRnrjJ7Ozs/Pz8////////////////////////////////////////0ePujbnVxNfj9fX1/f39////////////////////BQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////+fn54+PjxcXFr6+vpKSkpaWlsrKyv7+/u7u7qqqqoaGho6OjtLS02NjY9vb2/Pz84+PjwZiNv4VwyYVrx4xyso98knJpl29lu11ExmhNxnNZuGtWhnh1qamp4ODg9PLx14t19KB7+riS+8Ga/+O7+ty15H9b3Fg16HhU+6WA/aR+/Jp2wWtShYSEwsLC6MO57YFd8KJ9+ryW8qaA/dCq8beR4mtH6nVR+a6I8JFt4WdE9I5q+ZVxlmtfrKys57Gf6YBb65Zx97aQ7ZZx+8qj7a2H5GlG9JFs/cag6Yhj6HFO631a+p14vG5Yo6Oj5a6c53tW6o5q9a+J54Ne+MCZ6qJ9739b+6mE/NKs/ceh9aB764Rg8o5qx3ZcpaWl5Kua5XVQ6Ilk9KuF4GxJ87SO6Zt37o5p/cWe/d+4/dCq+LiS86yG7pdzxXBWsbGx5KiX5nZS43lV8Z143WM/6JJs5Y5q5oRf/uG6/uvE/d62/dCq8amE76WAuntmyMjI4aKR53ZS53dT75Zy9rqV9s6o77mU6Jdy/vHJ//3V/u/I/d63+MOd9KuGvJ2U5ubm4aOS8IVh/bGM+rWQ+biS+8ag/+C5+sym9LmT/daw//nR//rT/dy21ZmF4+Pj+vr65JmC+K6J5oBc425J6G5M8YFd9Ypm8Ypm9pp2z3JVxYh03aaR6MK08fHx+/v7////6KqP5X9b1kon31876HBP8YVh9Ytn5WpH7HxXsW1asLCw6+vr////////////////6qaM+JZy4GE+3l065GdF7XlV8IJe6n1Z+Z14vXVgwsLC8vLy////////////////7LWh/a6J+ZVx8Y1p741o8Zp1+LOM/baR+6WAw5KE4+Pj+/v7////////////////+/Px7LGY+aeD+qB7/76Y/9Ks/smi+K6K2ZaD5ePj+fn5////////////////////////////9NbL8ce07K6U5qSM5rel6c/H9vb2/f39////////////////////////BgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////f395ubmuLi4nZ2do6OjtbW1yMjI2dnZ5eXl8PDw+Pj4/f39////////////////9PT04LSe7bSUzKCHspB9koV9jImGlZWVp6enu7u7zc3N3d3d6+vr+Pj4/v7+/v7+59HI9cKq/////vj1/ObZ+tbA5byiyJyCpoR1kIJ8jIqJmpqaubm54+Pj+/v7+vr6462Y/fPu//Pv/uff/////////u/q+7ed+q+S96eH3pl9wpF6oJuZ19fX+vr68enm7LGb//////fy/NLC/Mq4/NDB+7ih+7GX+7ii+7ig+7mj+8Cev7Sr5eXl/f395r+x9tDC//n1/dvN/vDq//r2//Dq/7ie/KaH+qWH+7qj+9XFyquX0dDP+Pj4////4qWR+uHX//rz/t7Q/M28/Mu59sOw3p6H+7ad/8Om/+jf676ks6yo5+fn/v7+////4JeA/vHo/uHR/dfG/ure//nx0b+2Qk5hdqbYgLnt8OHbyJd8u7u77+/v/////7X1y7rgkGvuiGTBn2Hf8MP/5866hXLNzc34+Pj3+PhSt+Ubyf9E0vlo5Pfl3cXz6NLUu6tOlc6EdXFVklOI04jlv66ZjovX19f8/PzR4+4wxvcnz/9X1vTCzr386d391cOqj4YngsIlSmEkZ6LUw7ShsLWPkpTU1NT6+vqo0eg61v401P9n2vLw2b/67eTvuaPym3rTmIGjcl16amz0zLePy9KAk57S0tL5+fmFyehQ5P9J3P6H4vLw07v/8+r449f70r3/yaz/xqr/vaDk08GP1eGDlqLU1NT6+vp4zO1n8v9c4fyi8fza3c763cv/6Nnl0L2+zsywwcfD09O519ma1uSJm6Xa2tr8/PyBz+907/tp6vxy3veB4Pig5vTK7e3D6+6y9f+19P+o6vyx4e6h0uOqs7jm5ub+/v7v9/vZ7PfH5vOt2vCg2u+Azexiye9w3fmD6/uI5vqQ4Pe+3e2bxd7c3t/19fX////////////////////////////1+v140O98//9z+v9X1PObs8PM2+X6+vr+/v7////////////////////////////////K5/aI1O902fGNx+Tt7e36+vr///////////8MAAAAbHQAADYDAABCTTYDAAAAAAAANgAAACgAAAAQAAAAEAAAAAEAGAAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAD////////////////////////////////8/Pzy8vLn5+fm5ubx8fH8/Pz////////////////+/v77+/v6+vr9/f3////+/v7s7OzGxsapqamnp6fCwsLn5+f7+/v////////////29vbg4ODT09Pd3d3t7e3x8fGVlJVaUFNjTVFfW1yKioq4uLjj4+P6+vr////9/f3R2uCPqLeNkJKbm5u2trapp6cuKC2VgHLLspx5UFdbVFeIiIi+vr7v7+/////v8fNHruAawfsuqdpOi6hxgIlYZ3FfQzn/zKT/7sTYwqmWZmlyYWS7u7vu7u7///+01OcTuPcsy/wv1/8w0/410PUtbYpFKyTKkHT/2K7CrJR1UFNwX2HZ2dn4+Pj9/f1nvOUUxf8/zfhL4v9J4P9M7v80gpNFLCdHNzSAZlhMODpTUVadnZ3d3d38/Pzu8/U1vO8cyf5G0Pdd6PpZ7P9i/f87g5OcZFDfl3ZXOTMyRkxMnbyIjI7Nzc339/fE3OwvzPslzf9X0fG9uqeVvrl93dtHfoiicV//w5bFeFxOeHt19f5xjp/IyMj19fWa0eo/2f401P9p1vD/17v/xqj2yKuHcWl7XVbwt5Kxc1lWjpOR8vJ0kaLJycn19fWDyOdR5f9I3v+H3O3vv6fxy7r/2MCfgXtsS01tUE1KMy9ZhYyl7O10kaLKysr19fV0zu5q9v9Y4v2L3vXewKr21cXh1c+NaGvswKHgq4xNNTNcg5Kq5Ox2k6TMzMz39/eJ0e9u5fhr6/xt3vh+4feQoqepaWvZqpr/8cbksZNlSEicw83B6O+GorTa2tr6+vr5/P7e8Pi02/Ch3/J2zexTmbRzip2MhIqXfXhubHF2orfY8fe+3u2/zNXu7u7+/v7////////////////////3/P7k8/pmxOZ26u118/ln6f+Irsa30OHz9PX8/Pz////////////////////////////////M5/eV2/J41/CN0Ons7Oz6+vr///////////8=" /> PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.Init With This .Imagelist = .Parent.oleControl2 With .Nodes Local laNos[12,3] Store Null To laNos laNos[1,1] = "Datele contractului" laNos[2,1] = "Caixa de entrada" laNos[3,1] = "Caixa de saída" laNos[4,1] = "Itens enviados" laNos[5,1] = "Itens excluídos" laNos[6,1] = "Rascunhos" laNos[7,1] = "Obiectul si valoarea contractului" laNos[8,1] = "Termene de facturare si achitare" laNos[9,1] = "Jogos" laNos[10,1] = "Músicas" laNos[11,1] = "Fotos" laNos[12,1] = "Vídeos" *!* Store laNos[1,1] To laNos[2,2], laNos[3,2], laNos[4,2], laNos[5,2], laNos[6,2] *!* Store 4 To laNos[2,3], laNos[3,3], laNos[4,3], laNos[5,3], laNos[6,3] *!* Local lnNo *!* For lnNo=1 To Alen(laNos,1) *!* .Add(laNos[lnNo,2],laNos[lnNo,3],laNos[lnNo,1],laNos[lnNo,1],laNos[lnNo,1]) *!* Endfor ENDWITH *!* Local loNo *!* loNo = .Nodes(0) *!* loNo.Expanded = .T. *!* .SelectedItem = loNo *!* loNo = Null Endwith ENDPROC PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.NodeClick *** ActiveX Control Event *** LPARAMETERS node LOCAL TX TX = THIS.SelectedItem.TEXT MESSAGEBOX(tx) ENDPROC ENDDEFINE DEFINE CLASS ct_dg AS container *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> * Height = 356 Name = "ct_dg" Width = 698 * ENDDEFINE DEFINE CLASS ct_dg_cu_banda AS ct_dg OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> * Name = "ct_dg_cu_banda" * ADD OBJECT '_label1' AS _label WITH ; BackStyle = 0, ; Left = 6, ; Name = "_label1", ; Top = 7 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_shape3' AS _shape WITH ; Anchor = 11, ; BorderStyle = 0, ; Height = 24, ; Left = 1, ; Name = "_shape3", ; Top = 1, ; Width = 804, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\..\roaregistratura\comun\clase\_baza.vcx" BaseClass="shape" /> ENDDEFINE DEFINE CLASS ct_dg_date_generale AS ct_dg OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDescriere" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtMotiv_incetat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtData_intern" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_incetat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDurata" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtData_incetat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNumar_intern" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_inactiv" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_semnat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cbo_valute" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtData_inceput" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtData_sfarsit" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cbo_sectii" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdResponsabil" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtResponsabil" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cbo_tip_ctr" UniqueID="" Timestamp="" /> * *p: newdata_sfarsit *p: nid_valuta_new *p: nid_valuta_old *p: olddata_sfarsit *p: _memberdata && XML Metadata for customizable properties * * Height = 221 Name = "ct_dg_date_generale" newdata_sfarsit = {} nid_valuta_new = 0 nid_valuta_old = 0 olddata_sfarsit = {} Width = 429 _memberdata = * ADD OBJECT 'cbo_sectii' AS _combobox WITH ; ControlSource = "goContract.sectie", ; FontSize = 10, ; Height = 21, ; Left = 307, ; Name = "cbo_sectii", ; RowSource = "crsSectii.sectie,id_sectie", ; RowSourceType = 2, ; TabIndex = 12, ; Top = 153, ; Width = 113, ; ZOrderSet = 26 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'cbo_tip_ctr' AS _combobox WITH ; ControlSource = "goContract.denumire_tip", ; FontSize = 10, ; Height = 21, ; Left = 88, ; Name = "cbo_tip_ctr", ; RowSource = "crsTip_ctr.denumire_tip,id_tip_ctr", ; RowSourceType = 2, ; TabIndex = 4, ; Top = 53, ; Width = 113, ; ZOrderSet = 31 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'cbo_valute' AS _combobox WITH ; ControlSource = "goContract.nume_val", ; FontSize = 10, ; Height = 21, ; Left = 89, ; Name = "cbo_valute", ; RowSource = "crsValute.nume_val,id_valuta", ; RowSourceType = 2, ; TabIndex = 11, ; Top = 153, ; Width = 113, ; ZOrderSet = 22 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'ck_inactiv' AS checkbox WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Inactiv", ; ControlSource = "goContract.inactiv", ; FontSize = 10, ; Height = 18, ; Left = 97, ; Name = "ck_inactiv", ; TabIndex = 15, ; Top = 201, ; Width = 55, ; ZOrderSet = 19 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'ck_incetat' AS checkbox WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Încetat", ; ControlSource = "goContract.incetat", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 8, ; Name = "ck_incetat", ; TabIndex = 9, ; Top = 127, ; Width = 58, ; ZOrderSet = 8 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'ck_semnat' AS checkbox WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Semnat", ; ControlSource = "goContract.semnat", ; FontSize = 10, ; Height = 18, ; Left = 8, ; Name = "ck_semnat", ; TabIndex = 14, ; Top = 201, ; Width = 64, ; ZOrderSet = 20 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'cmdResponsabil' AS commandbutton WITH ; Caption = "", ; FontName = "Arial Narrow", ; Height = 21, ; Left = 204, ; Name = "cmdResponsabil", ; Picture = ..\grafice\find.bmp, ; TabIndex = 16, ; Top = 175, ; Width = 28, ; ZOrderSet = 27 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data început", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 8, ; Name = "Label1", ; TabIndex = 28, ; Top = 82, ; Width = 75, ; ZOrderSet = 21 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label10' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Durata (luni)", ; FontSize = 10, ; Height = 18, ; Left = 8, ; Name = "Label10", ; TabIndex = 21, ; Top = 104, ; Width = 72, ; ZOrderSet = 9 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label12' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Tip contract", ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label12", ; TabIndex = 25, ; Top = 55, ; Width = 70, ; ZOrderSet = 17 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label14' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Responsabil", ; FontSize = 10, ; Height = 18, ; Left = 8, ; Name = "Label14", ; TabIndex = 24, ; Top = 176, ; Width = 73, ; ZOrderSet = 28 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label17' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valuta", ; FontSize = 10, ; Height = 18, ; Left = 8, ; Name = "Label17", ; TabIndex = 22, ; Top = 154, ; Width = 39, ; ZOrderSet = 12 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data încetării", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 221, ; Name = "Label2", ; TabIndex = 26, ; Top = 104, ; Width = 78, ; ZOrderSet = 13 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label20' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Secție", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 221, ; Name = "Label20", ; TabIndex = 23, ; Top = 154, ; Width = 39, ; ZOrderSet = 32 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label21' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Motiv încetare", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 221, ; Name = "Label21", ; TabIndex = 19, ; Top = 127, ; Width = 82, ; ZOrderSet = 18 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Descriere", ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label4", ; TabIndex = 20, ; Top = 33, ; Width = 57, ; ZOrderSet = 11 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data sfârșit", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 221, ; Name = "Label5", ; TabIndex = 27, ; Top = 82, ; Width = 68, ; ZOrderSet = 24 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr./data înreg.", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label6", ; TabIndex = 17, ; Top = 10, ; Width = 84, ; ZOrderSet = 6 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "/", ; FontSize = 10, ; Height = 18, ; Left = 208, ; Name = "Label9", ; TabIndex = 18, ; Top = 10, ; Width = 6, ; ZOrderSet = 30 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Shape1' AS shape WITH ; BackStyle = 0, ; Height = 221, ; Left = 0, ; Name = "Shape1", ; SpecialEffect = 0, ; Top = 0, ; Width = 429, ; ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape3' AS shape WITH ; BackStyle = 0, ; Height = 0, ; Left = 5, ; Name = "Shape3", ; SpecialEffect = 0, ; Top = 150, ; Width = 418, ; ZOrderSet = 1 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape5' AS shape WITH ; BackStyle = 0, ; Height = 0, ; Left = 5, ; Name = "Shape5", ; SpecialEffect = 0, ; Top = 200, ; Width = 418, ; ZOrderSet = 4 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Shape7' AS shape WITH ; BackStyle = 0, ; Height = 0, ; Left = 5, ; Name = "Shape7", ; SpecialEffect = 0, ; Top = 77, ; Width = 418, ; ZOrderSet = 2 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'txtData_inceput' AS textbox WITH ; ControlSource = "goContract.data_inceput", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 89, ; Name = "txtData_inceput", ; TabIndex = 5, ; Top = 80, ; Width = 113, ; ZOrderSet = 23 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtData_incetat' AS textbox WITH ; ControlSource = "goContract.data_incetat", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 307, ; Name = "txtData_incetat", ; TabIndex = 8, ; Top = 102, ; Width = 113, ; ZOrderSet = 14 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtData_intern' AS textbox WITH ; ControlSource = "goContract.data_intern", ; FontSize = 10, ; Height = 21, ; Left = 217, ; Name = "txtData_intern", ; TabIndex = 2, ; Top = 8, ; Width = 113, ; ZOrderSet = 7 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtData_sfarsit' AS textbox WITH ; ControlSource = "goContract.data_sfarsit", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 307, ; Name = "txtData_sfarsit", ; TabIndex = 7, ; Top = 80, ; Width = 113, ; ZOrderSet = 25 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtDescriere' AS textbox WITH ; ControlSource = "goContract.descriere", ; FontSize = 10, ; Format = "!k", ; Height = 21, ; Left = 88, ; Name = "txtDescriere", ; TabIndex = 3, ; Top = 31, ; Width = 331, ; ZOrderSet = 3 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtDurata' AS textbox WITH ; ControlSource = "goContract.durata", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 89, ; Name = "txtDurata", ; TabIndex = 6, ; Top = 102, ; Width = 113, ; ZOrderSet = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtMotiv_incetat' AS textbox WITH ; ControlSource = "goContract.motiv_incetat", ; FontSize = 10, ; Format = "!k", ; Height = 21, ; Left = 307, ; Name = "txtMotiv_incetat", ; TabIndex = 10, ; Top = 125, ; Width = 113, ; ZOrderSet = 5 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtNumar_intern' AS textbox WITH ; ControlSource = "goContract.numar_intern", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 88, ; Name = "txtNumar_intern", ; TabIndex = 1, ; Top = 8, ; Width = 113, ; ZOrderSet = 16 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtResponsabil' AS textbox WITH ; ControlSource = "goContract.responsabil", ; DisabledBackColor = 255,255,255, ; FontSize = 10, ; Format = "!k", ; Height = 21, ; Left = 89, ; Name = "txtResponsabil", ; ReadOnly = .T., ; TabIndex = 13, ; Top = 175, ; Width = 113, ; ZOrderSet = 29 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Init this.nId_valuta_old = goContract.id_valuta ENDPROC PROCEDURE cbo_sectii.Valid goContract.id_sectie = crsSectii.id_sectie goContract.sectie = crsSectii.sectie ENDPROC PROCEDURE cbo_tip_ctr.Valid goContract.id_tip_ctr = crsTip_ctr.id_tip_ctr goContract.denumire_tip = crsTip_ctr.denumire_tip ENDPROC PROCEDURE cbo_valute.Valid goContract.id_valuta = crsValute.id_valuta goContract.nume_val = crsValute.nume_val goContract.moneda_nationala = crsValute.moneda_nationala && modificare v 2.0.46 This.Parent.nId_valuta_new = goContract.id_valuta If Nvl(This.Parent.nId_valuta_old,0) <> Nvl(This.Parent.nId_valuta_new,0) If Reccount('cCtrArt')>0 AMESSAGEBOX('Modificati valuta si in obiectul contractului!',0+48,'Atentie') Endif This.Parent.nId_valuta_old = goContract.id_valuta Endif ENDPROC PROCEDURE cmdResponsabil.Click locauta = caut_responsabil() IF buton=2 RETURN ENDIF goContract.id_responsabil = locauta.id_responsabil goContract.responsabil = locauta.nume this.Parent.txtResponsabil.Refresh ENDPROC PROCEDURE txtData_incetat.Valid IF !EMPTY(goContract.data_inceput) AND goContract.data_incetat <= goContract.data_inceput aMESSAGEBOX('Introduceti data incetarii mai mare decat data de inceput a contractului !',0+48,"Atentie") *goContract.data_incetat = goContract.data_inceput + 1 ENDIF this.Parent.txtData_inceput.Refresh ENDPROC PROCEDURE txtData_sfarsit.Valid If !Empty(goContract.data_inceput) And goContract.data_sfarsit <= goContract.data_inceput aMESSAGEBOX('Introduceti data de sfarsit mai mare decat data de inceput a contractului !',0+48,"Atentie") * goContract.data_sfarsit = goContract.data_inceput + 1 Endif If !Empty(Nvl(goContract.data_inceput,{})) And !Empty(Nvl(goContract.data_sfarsit,{})) goContract.durata = Int((Year(goContract.data_sfarsit)*12 + Month(goContract.data_sfarsit)) - (Year(goContract.data_inceput)*12 + Month(goContract.data_inceput))) ELSE goContract.durata = 0 ENDIF This.Parent.txtDurata.Refresh ENDPROC PROCEDURE txtDurata.Valid goContract.data_sfarsit = GOMONTH(goContract.data_inceput, goContract.durata) this.Parent.txtData_sfarsit.Refresh ENDPROC ENDDEFINE DEFINE CLASS ct_dg_date_generale_frz AS ct_dg OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtOfertanti" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cbo_selectii" UniqueID="" Timestamp="" /> * Height = 53 Name = "ct_dg_date_generale_frz" Width = 364 * ADD OBJECT 'cbo_selectii' AS _combobox WITH ; ControlSource = "goContract.selectie", ; FontSize = 10, ; Height = 21, ; Left = 109, ; Name = "cbo_selectii", ; RowSource = "crsSelectii.selectie,id_selectie", ; RowSourceType = 2, ; TabIndex = 2, ; Top = 28, ; Width = 113, ; ZOrderSet = 26 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Modul de selecție", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label3", ; TabIndex = 4, ; Top = 30, ; Width = 104, ; ZOrderSet = 37 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label7' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Ofertanți", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label7", ; TabIndex = 3, ; Top = 7, ; Width = 51, ; ZOrderSet = 2 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Shape1' AS shape WITH ; BackStyle = 0, ; Height = 54, ; Left = 0, ; Name = "Shape1", ; SpecialEffect = 0, ; Top = 0, ; Width = 364, ; ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'txtOfertanti' AS textbox WITH ; ControlSource = "goContract.ofertanti", ; FontSize = 10, ; Height = 21, ; Left = 109, ; Name = "txtOfertanti", ; TabIndex = 1, ; Top = 5, ; Width = 245, ; ZOrderSet = 25 *< END OBJECT: BaseClass="textbox" /> PROCEDURE cbo_selectii.Valid goContract.id_selectie = crsSelectii.id_selectie goContract.selectie = crsSelectii.selectie ENDPROC ENDDEFINE DEFINE CLASS ct_dg_fact AS ct_dg OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_text_standard" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboNote" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lbNota" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cbo_opt_facturare" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> * Height = 96 Name = "ct_dg_fact" Width = 364 * ADD OBJECT '_shape1' AS _shape WITH ; BackStyle = 0, ; Height = 96, ; Left = 0, ; Name = "_shape1", ; SpecialEffect = 0, ; Top = 0, ; Width = 364, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> ADD OBJECT 'cbo_opt_facturare' AS _combobox WITH ; ControlSource = "gocontract.opt_facturare", ; FontSize = 10, ; Height = 24, ; Left = 106, ; Name = "cbo_opt_facturare", ; RowSource = "Denumirea ratei + valoarea ratei urmatoare,Primul art.din lista de art. (obiectul ctr.) + valoarea ratei urm.,Articole la alegere din lista de art. cu preturile din lista de art.", ; RowSourceType = 1, ; TabIndex = 1, ; Top = 26, ; Width = 250, ; ZOrderSet = 4 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'cboNote' AS combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ColumnCount = 3, ; ColumnLines = .F., ; ColumnWidths = "300,20", ; ControlSource = "gocontract.id_nota", ; FontSize = 10, ; Height = 24, ; Left = 106, ; Name = "cboNote", ; RowSource = "crsNote.denumire,id_nota", ; RowSourceType = 2, ; Style = 2, ; TabIndex = 2, ; Top = 52, ; Width = 250, ; ZOrderSet = 2 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'ck_text_standard' AS checkbox WITH ; Alignment = 0, ; BackStyle = 0, ; Caption = 'Text suplimentar standard: "Cf. contract nr ... / data..."', ; ControlSource = "gocontract.text_standard", ; FontSize = 10, ; Height = 17, ; Left = 7, ; Name = "ck_text_standard", ; TabIndex = 3, ; Top = 77, ; Width = 357, ; ZOrderSet = 1 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Ce se facturează", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label1", ; TabIndex = 5, ; Top = 30, ; Width = 100, ; ZOrderSet = 5 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Facturare", ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label2", ; TabIndex = 6, ; Top = 4, ; Width = 57, ; ZOrderSet = 5 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'lbNota' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nota contabilă", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "lbNota", ; TabIndex = 4, ; Top = 56, ; Width = 85, ; ZOrderSet = 3 *< END OBJECT: BaseClass="label" /> PROCEDURE cboNote.InteractiveChange gocontract.id_nota = crsNote.id_nota ENDPROC PROCEDURE cboNote.Valid gocontract.id_nota = crsNote.id_nota ENDPROC PROCEDURE cbo_opt_facturare.Init this.Value = gocontract.opt_facturare IF this.Value = 1 OR this.Value = 2 this.Parent.lbNota.Visible = .T. this.Parent.cboNote.Visible = .T. ELSE this.Parent.lbNota.Visible = .F. this.Parent.cboNote.Visible = .F. ENDIF ENDPROC PROCEDURE cbo_opt_facturare.Valid Local lnInreg Store 0 To lnInreg If This.Value = 1 Or This.Value = 2 This.Parent.lbNota.Visible = .T. This.Parent.cboNote.Visible = .T. Else This.Parent.lbNota.Visible = .F. This.Parent.cboNote.Visible = .F. Endif Do Case Case This.Value = 1 Select cCtrScadentar Calculate Cnt() For !Deleted() To lnInreg If lnInreg = 0 aMessagebox('Adaugati rate!',0+48,'Atentie') Endif Case This.Value = 2 Select cCtrArt Calculate Cnt() For !Deleted() To lnInreg If lnInreg = 0 aMessagebox('Adaugati obiectul contractului!',0+48,'Atentie') Endif Select cCtrScadentar Calculate Cnt() For !Deleted() To lnInreg If lnInreg = 0 aMessagebox('Adaugati rate!',0+48,'Atentie') Endif Endcase ENDPROC ENDDEFINE DEFINE CLASS ct_dg_obiectul AS ct_dg_cu_banda OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cNume_art.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cNume_art.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cUm.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cUm.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cCant.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cCant.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cValoare.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cValoare.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cCoef_discount.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cCoef_discount.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.Column9.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.Column9.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cNume_val.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cNume_val.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cPret_cu_tva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_articole.cPret_cu_tva.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDiscount" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValcdiscount" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValDiscount" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtProc_tva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtCoef_discount" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValDiscountTotal" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_pret_cu_tva" UniqueID="" Timestamp="" /> * *m: actualizeaza_zecimale *p: ncoef_discount *p: ndiscountmediu *p: noldproctva *p: nsumaarticole *p: nvalcdiscount *p: nvaldiscount *p: nzecimalepret *p: nzecimalesuma *p: _memberdata && XML Metadata for customizable properties * * Height = 208 Name = "ct_dg_obiectul" ncoef_discount = 0 ndiscountmediu = 0 noldproctva = 0 nsumaarticole = 0 nvalcdiscount = 0 nvaldiscount = 0 nzecimalepret = gnPPretV nzecimalesuma = gnPc Width = 795 _memberdata = _shape3.Height = 24 _shape3.Left = 1 _shape3.Name = "_shape3" _shape3.Top = 1 _shape3.Width = 812 _shape3.ZOrderSet = 0 _label1.Caption = "Obiectul și valoarea contractului" _label1.FontSize = 10 _label1.Left = 7 _label1.Name = "_label1" _label1.ZOrderSet = 7 * ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; Anchor = 15, ; ccolwithlabel = column1, ; csourcegrid = grid_articole, ; csumcolumns = cvaloare,cValcDiscount, ; ctotallabelexpression = 'TOTAL', ; FontSize = 10, ; Height = 22, ; Left = 0, ; Name = "_grdfooter1", ; RowHeight = 19, ; Top = 120, ; Visible = .T., ; Width = 794, ; ZOrderSet = 3 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 9, ; caction = do_adauga_obiectul, ; Left = 734, ; Name = "But_nou1", ; TabIndex = 6, ; Top = 1, ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; caction = inainte_de_do_sterge_obiectul, ; Left = 764, ; Name = "But_sterge1", ; TabIndex = 5, ; Top = 1, ; Visible = .T., ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'ck_pret_cu_tva' AS checkbox WITH ; Alignment = 0, ; Anchor = 8, ; AutoSize = .T., ; Caption = "Prețuri cu TVA", ; FontBold = .T., ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 605, ; Name = "ck_pret_cu_tva", ; Top = 9, ; Width = 111 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_articole' AS _grid WITH ; Anchor = 15, ; ColumnCount = 12, ; DeleteMark = .F., ; FontSize = 10, ; GridLineColor = 192,192,192, ; HeaderHeight = 36, ; Height = 113, ; HighlightStyle = 2, ; Left = 0, ; Name = "grid_articole", ; Panel = 1, ; RecordMark = .F., ; RecordSource = "cCtrArt", ; RowHeight = 19, ; Top = 30, ; Width = 794, ; ZOrderSet = 2, ; Column1.ControlSource = "recno()", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "Column1", ; Column1.ReadOnly = .T., ; Column1.Width = 35, ; Column2.ColumnOrder = 2, ; Column2.ControlSource = "nume_articol", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cNume_art", ; Column2.ReadOnly = .T., ; Column2.Width = 287, ; Column3.ColumnOrder = 3, ; Column3.ControlSource = "um", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "cUm", ; Column3.ReadOnly = .T., ; Column3.Width = 41, ; Column4.ControlSource = "cant", ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Format = "rk", ; Column4.InputMask = (get_mask(10,gnPCant)), ; Column4.Name = "cCant", ; Column4.Width = 49, ; Column5.ColumnOrder = 6, ; Column5.ControlSource = "pret_unitar", ; Column5.FontName = "Arial", ; Column5.FontSize = 10, ; Column5.Format = "rk", ; Column5.InputMask = (get_mask(14,This.nZecimalePret)), ; Column5.Name = "cPret_unitar", ; Column5.Width = 60, ; Column6.ColumnOrder = 7, ; Column6.ControlSource = "valoare", ; Column6.FontName = "Arial", ; Column6.FontSize = 10, ; Column6.Format = "rk", ; Column6.InputMask = (get_mask(14,This.nZecimaleSuma)), ; Column6.Name = "cValoare", ; Column6.ReadOnly = .T., ; Column6.Width = 50, ; Column7.ColumnOrder = 8, ; Column7.ControlSource = "coef_discount", ; Column7.FontName = "Arial", ; Column7.FontSize = 10, ; Column7.Format = "rk", ; Column7.InputMask = (get_mask(10,2)), ; Column7.Name = "cCoef_discount", ; Column7.Width = 49, ; Column8.ColumnOrder = 9, ; Column8.ControlSource = "val_discount", ; Column8.FontName = "Arial", ; Column8.FontSize = 10, ; Column8.Format = "rk", ; Column8.InputMask = (get_mask(10,This.nZecimalePret)), ; Column8.Name = "cVal_discount", ; Column8.Width = 53, ; Column9.ColumnOrder = 10, ; Column9.ControlSource = "pret_unitar-(coef_discount*pret_unitar)/100", ; Column9.FontName = "Arial", ; Column9.FontSize = 10, ; Column9.Format = "rk", ; Column9.InputMask = (get_mask(10,This.nZecimalePret)), ; Column9.Name = "Column9", ; Column9.ReadOnly = .T., ; Column9.Width = 71, ; Column10.ColumnOrder = 11, ; Column10.ControlSource = "cant *(pret_unitar-(coef_discount*pret_unitar)/100)", ; Column10.FontName = "Arial", ; Column10.FontSize = 10, ; Column10.Format = "rk", ; Column10.InputMask = (get_mask(20,This.nZecimaleSuma)), ; Column10.Name = "cValcDiscount", ; Column10.ReadOnly = .T., ; Column10.Width = 62, ; Column11.ColumnOrder = 12, ; Column11.ControlSource = "nume_val", ; Column11.FontName = "Arial", ; Column11.FontSize = 10, ; Column11.Name = "cNume_val", ; Column11.Width = 44, ; Column12.ColumnOrder = 5, ; Column12.ControlSource = "pret_cu_tva", ; Column12.FontName = "Arial", ; Column12.FontSize = 10, ; Column12.Name = "cPret_cu_tva", ; Column12.ReadOnly = .T., ; Column12.Sparse = .F., ; Column12.Width = 37 *< END OBJECT: ClassLib="c:\program files (x86)\microsoft visual foxpro 9\ffc\_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_articole.cCant.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cCant.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cCoef_discount.Header1' AS header WITH ; Alignment = 2, ; Caption = "Discount (%)", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cCoef_discount.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cNume_art.Header1' AS header WITH ; Alignment = 2, ; Caption = "Articol", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cNume_art.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cNume_val.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cNume_val.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. crt.", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.Column9.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret unitar diminuat", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.Column9.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cPret_cu_tva.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; FontName = "Arial", ; FontSize = 10, ; Height = 17, ; Left = 34, ; Name = "Check1", ; ReadOnly = .T., ; Top = 53, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_articole.cPret_cu_tva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret cu TVA", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cPret_unitar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret unitar", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cPret_unitar.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cUm.Header1' AS header WITH ; Alignment = 2, ; Caption = "Um", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cUm.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cVal_discount.Header1' AS header WITH ; Alignment = 2, ; Caption = "Discount", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cVal_discount.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cValcDiscount.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare - Discount", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cValcDiscount.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_articole.cValoare.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_articole.cValoare.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Procent mediu discount articole", ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label1", ; TabIndex = 14, ; Top = 157, ; Width = 185, ; WordWrap = .F., ; ZOrderSet = 10 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label10' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "%", ; FontSize = 10, ; Height = 18, ; Left = 479, ; Name = "Label10", ; TabIndex = 22, ; Top = 157, ; Width = 14, ; ZOrderSet = 11 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label15' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "TVA", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 745, ; Name = "Label15", ; TabIndex = 23, ; Top = 157, ; Width = 28, ; ZOrderSet = 16 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label16' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "%", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 777, ; Name = "Label16", ; TabIndex = 22, ; Top = 178, ; Width = 12, ; ZOrderSet = 18 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total valoare articole cu discount", ; FontSize = 8, ; Height = 16, ; Left = 7, ; Name = "Label3", ; TabIndex = 21, ; Top = 212, ; Visible = .F., ; Width = 161, ; ZOrderSet = 14 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Procent discount general", ; FontSize = 10, ; Height = 18, ; Left = 273, ; Name = "Label4", ; TabIndex = 16, ; Top = 157, ; Width = 146, ; ZOrderSet = 19 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total valoare discount articole", ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label5", ; TabIndex = 18, ; Top = 178, ; Width = 173, ; WordWrap = .F., ; ZOrderSet = 15 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare discount general", ; FontSize = 10, ; Height = 18, ; Left = 273, ; Name = "Label6", ; TabIndex = 20, ; Top = 178, ; Width = 145, ; ZOrderSet = 20 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label7' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total general - fără TVA", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 500, ; Name = "Label7", ; TabIndex = 17, ; Top = 157, ; Width = 138, ; ZOrderSet = 21 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label8' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total general - cu TVA", ; FontSize = 10, ; Height = 18, ; Left = 500, ; Name = "Label8", ; TabIndex = 15, ; Top = 178, ; Width = 131, ; ZOrderSet = 25 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "%", ; FontSize = 10, ; Height = 18, ; Left = 244, ; Name = "Label9", ; TabIndex = 22, ; Top = 157, ; Width = 14, ; ZOrderSet = 9 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Shape5' AS shape WITH ; Anchor = 15, ; BackStyle = 0, ; Height = 208, ; Left = 0, ; Name = "Shape5", ; SpecialEffect = 0, ; Top = -1, ; Width = 796, ; ZOrderSet = 1 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'txtCoef_discount' AS textbox WITH ; Anchor = 6, ; ControlSource = "thisform.nCoef_discount", ; FontSize = 10, ; Format = "rk", ; Height = 20, ; InputMask = (get_mask(4,2)), ; Left = 419, ; Name = "txtCoef_discount", ; TabIndex = 2, ; Top = 155, ; Width = 58, ; ZOrderSet = 22 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtDiscount' AS textbox WITH ; Anchor = 6, ; ControlSource = "thisform.nDiscountMediu", ; FontSize = 10, ; Format = "rk", ; Height = 20, ; InputMask = (get_mask(4,2)), ; Left = 191, ; Name = "txtDiscount", ; ReadOnly = .T., ; TabIndex = 8, ; Top = 155, ; Width = 51, ; ZOrderSet = 4 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtProc_tva' AS textbox WITH ; Anchor = 6, ; ControlSource = "goContract.proc_tva", ; FontSize = 10, ; Format = "rk", ; Height = 20, ; InputMask = "99", ; Left = 738, ; Name = "txtProc_tva", ; TabIndex = 4, ; Top = 176, ; Width = 38, ; ZOrderSet = 17 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValcdiscount' AS textbox WITH ; Anchor = 6, ; ControlSource = "thisform.nValcdiscount", ; FontSize = 8, ; Format = "rk", ; Height = 20, ; InputMask = (get_mask(8,gnPA)), ; Left = 172, ; Name = "txtValcdiscount", ; ReadOnly = .T., ; TabIndex = 10, ; Top = 210, ; Visible = .F., ; Width = 86, ; ZOrderSet = 5 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValctva' AS textbox WITH ; Anchor = 6, ; ControlSource = "goContract.valctva", ; FontSize = 10, ; Format = "rk", ; Height = 20, ; InputMask = (get_mask(8,This.nZecimaleSuma)), ; Left = 636, ; Name = "txtValctva", ; ReadOnly = .T., ; TabIndex = 12, ; Top = 176, ; Width = 86, ; ZOrderSet = 8 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValDiscount' AS textbox WITH ; Anchor = 6, ; ControlSource = "thisform.nValDiscount", ; FontSize = 10, ; Format = "rk", ; Height = 20, ; InputMask = (get_mask(8,This.nZecimaleSuma)), ; Left = 191, ; Name = "txtValDiscount", ; ReadOnly = .T., ; TabIndex = 9, ; Top = 177, ; Width = 78, ; ZOrderSet = 6 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValDiscountTotal' AS textbox WITH ; Anchor = 6, ; ControlSource = "goContract.val_discount", ; FontSize = 10, ; Format = "rk", ; Height = 20, ; InputMask = (get_mask(8,This.nZecimaleSuma)), ; Left = 419, ; Name = "txtValDiscountTotal", ; TabIndex = 3, ; Top = 176, ; Width = 66, ; ZOrderSet = 24 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValftva' AS textbox WITH ; Anchor = 6, ; ControlSource = "goContract.valftva", ; FontSize = 10, ; Format = "rk", ; Height = 20, ; InputMask = (get_mask(8,This.nZecimaleSuma)), ; Left = 636, ; Name = "txtValftva", ; ReadOnly = .T., ; TabIndex = 11, ; Top = 155, ; Width = 86, ; ZOrderSet = 23 *< END OBJECT: BaseClass="textbox" /> PROCEDURE actualizeaza_zecimale Lparameters tnZecimalePret, tnZecimaleSuma This.nzecimalepret = tnZecimalePret This.nzecimalesuma = tnZecimaleSuma With This.grid_articole .cpret_unitar.InputMask = get_mask(14,This.nzecimalepret) .cValoare.InputMask = get_mask(14,This.nzecimaleSuma) .cVal_discount.InputMask = get_mask(10,This.nzecimaleSuma) .Column9.InputMask = get_mask(10,This.nzecimalepret) .cValcDiscount.InputMask = get_mask(20,This.nzecimalesuma) Endwith This.txtvalcdiscount.InputMask = get_mask(8,This.nzecimalesuma) This.txtValDiscount.InputMask = get_mask(8,This.nzecimalesuma) This.txtvalftva.InputMask = get_mask(8,This.nzecimalesuma) This.txtValctva.InputMask = get_mask(8,This.nzecimalesuma) ENDPROC PROCEDURE ck_pret_cu_tva.Valid SELECT cCtrArt REPLACE ALL pret_cu_tva WITH this.Value Thisform.afisactual_obiectul ENDPROC PROCEDURE grid_articole.cCant.Text1.LostFocus Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 Thisform.afisactual_obiectul This.Parent.Parent.Parent._grdfooter1.calctotal ENDPROC PROCEDURE grid_articole.cCoef_discount.Text1.LostFocus Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) Replace val_discount With round(pret_unitar * cant * coef_discount / 100,This.Parent.Parent.Parent.nzecimalesuma) Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 Thisform.afisactual_obiectul This.Parent.Parent.Parent._grdfooter1.calcTotal ENDPROC PROCEDURE grid_articole.cNume_val.Text1.DblClick If gnParametru_prog =2 Local locauta locauta = caut_valuta() If buton = 2 Return Endif Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) Replace id_valuta With locauta.id_valuta, nume_val With locauta.nume_val *IF THISFORM.cOldValue <> THISFORM.cNewValue Thisform.do_modifica_ctr_art() *ENDIF This.Parent.Parent.Refresh Endif ENDPROC PROCEDURE grid_articole.cPret_unitar.Text1.LostFocus Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 Thisform.afisactual_obiectul This.Parent.Parent.Parent._grdfooter1.calctotal ENDPROC PROCEDURE grid_articole.cVal_discount.Text1.LostFocus Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) If pret_unitar * cant <> 0 Replace coef_discount With round(val_discount / (pret_unitar * cant) * 100,2) Endif Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 Thisform.afisactual_obiectul This.Parent.Parent.Parent._grdfooter1.calctotal ENDPROC PROCEDURE txtCoef_discount.Valid * IF EMPTY(goContract.val_discount) *goContract.val_discount = ROUND(THISFORM.nValcdiscount * THISFORM.nCoef_discount / 100,gnPC) goContract.val_discount = ROUND(THISFORM.nSumaArticole * THISFORM.nCoef_discount / 100,This.Parent.nzecimalesuma) *goContract.valftva = THISFORM.nValcdiscount - goContract.val_discount goContract.valftva = THISFORM.nSumaArticole - goContract.val_discount goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma) thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscountTotal.REFRESH thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.REFRESH thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.REFRESH * ENDIF ENDPROC PROCEDURE txtProc_tva.Valid goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma) thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.REFRESH ENDPROC PROCEDURE txtProc_tva.When This.Parent.nOldProcTVA = goContract.proc_tva ENDPROC PROCEDURE txtValDiscountTotal.Valid *thisform.nCoef_discount = ROUND(goContract.val_discount / thisform.nValcdiscount * 100, gnPC) Thisform.nCoef_discount = Round(goContract.val_discount / Thisform.nSumaArticole * 100, 2) *goContract.valftva = thisform.nValcdiscount - goContract.val_discount goContract.valftva = Thisform.nSumaArticole - goContract.val_discount goContract.valctva = Round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma) Thisform._pageframe1.page1.ct_dg_obiectul1.txtCoef_discount.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.Refresh ENDPROC ENDDEFINE DEFINE CLASS ct_dg_tf AS ct_dg_cu_banda OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValvaluta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValvaluta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cPret_cu_tva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cPret_cu_tva.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cProc_tva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cProc_tva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrataftva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrataftva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValratactva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValratactva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cRest.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cRest.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtScadenta_incasare" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtCoef_penalitati" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdMultiplicaRate" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdAplicaScadenta" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_pret_cu_tva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_afisare_scadenta" UniqueID="" Timestamp="" /> * *m: actualizeaza_zecimale *p: nzecimalepret *p: nzecimalesuma * * Height = 479 Name = "ct_dg_tf" nzecimalepret = gnPPretV nzecimalesuma = gnPc Width = 795 _SHAPE3.BackStyle = 0 _SHAPE3.Name = "_SHAPE3" _SHAPE3.ZOrderSet = 1 _label1.Caption = "Termene de facturare și achitare" _label1.FontSize = 10 _label1.Left = 7 _label1.Name = "_label1" _label1.TabIndex = 1 _label1.Top = 8 _label1.ZOrderSet = 2 * ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; ccolwithlabel = cDen_rata, ; csourcegrid = grid_scadentar, ; csumcolumns = cprocent,cvalrataftva,cvalratactva,cvalvaluta,crest, ; FontSize = 10, ; Left = 0, ; Name = "_grdfooter1", ; RowHeight = 19, ; TabIndex = 13, ; Top = 408, ; Width = 794, ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT '_shape1' AS _shape WITH ; Height = 479, ; Left = 0, ; Name = "_shape1", ; SpecialEffect = 0, ; Top = 0, ; Width = 795, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; caction = inainte_de_do_listare_rate, ; Left = 762, ; Name = "But_listare1", ; TabIndex = 14, ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 9, ; caction = do_adauga_rate, ; Left = 701, ; Name = "But_nou1", ; TabIndex = 3, ; Top = 1, ; ZOrderSet = 4 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; caction = inainte_de_do_sterge_rate, ; Left = 731, ; Name = "But_sterge1", ; TabIndex = 4, ; Top = 1, ; Visible = .T., ; ZOrderSet = 5 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'ck_afisare_scadenta' AS checkbox WITH ; Alignment = 0, ; Anchor = 6, ; AutoSize = .T., ; Caption = "Se afișează data scadenței pe factură", ; ControlSource = "goContract.afisare_scadenta", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 282, ; Name = "ck_afisare_scadenta", ; TabIndex = 11, ; Top = 453, ; Width = 237 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'ck_pret_cu_tva' AS checkbox WITH ; Alignment = 0, ; Anchor = 8, ; AutoSize = .T., ; Caption = "Prețuri cu TVA", ; FontBold = .T., ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 581, ; Name = "ck_pret_cu_tva", ; TabIndex = 15, ; Top = 7, ; Width = 111 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'cmdAplicaScadenta' AS commandbutton WITH ; Anchor = 6, ; Caption = "Aplică", ; FontCharSet = 238, ; FontSize = 10, ; Height = 22, ; Left = 211, ; Name = "cmdAplicaScadenta", ; TabIndex = 6, ; ToolTipText = "Inlocuieste data scadenta cu data facturarii + perioada scadenta", ; Top = 450, ; Width = 60, ; ZOrderSet = 11 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'cmdMultiplicaRate' AS commandbutton WITH ; Anchor = 6, ; Caption = "Instrument de multiplicare rate", ; FontSize = 10, ; Height = 27, ; Left = 522, ; Name = "cmdMultiplicaRate", ; TabIndex = 5, ; Top = 448, ; Visible = .F., ; Width = 96, ; ZOrderSet = 10 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'grid_scadentar' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 13, ; DeleteMark = .F., ; FontSize = 10, ; GridLineColor = 192,192,192, ; HeaderHeight = 19, ; Height = 400, ; HighlightStyle = 2, ; Left = 0, ; Name = "grid_scadentar", ; Panel = 1, ; Partition = 0, ; ReadOnly = .F., ; RecordMark = .F., ; RecordSource = "cCtrScadentar", ; RowHeight = 19, ; TabIndex = 2, ; Top = 30, ; Width = 794, ; ZOrderSet = 3, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "nr_rata", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cNr_rata", ; Column1.ReadOnly = .F., ; Column1.Width = 26, ; Column2.ColumnOrder = 3, ; Column2.ControlSource = "data_rata", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cData_rata", ; Column2.ReadOnly = .F., ; Column2.Width = 72, ; Column3.ColumnOrder = 7, ; Column3.ControlSource = "valrata", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Format = "rk", ; Column3.InputMask = (get_mask(20,This.nZecimalePret)), ; Column3.Name = "cValrata", ; Column3.ReadOnly = .F., ; Column3.Width = 74, ; Column4.ColumnOrder = 2, ; Column4.ControlSource = "den_rata", ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Name = "cDen_rata", ; Column4.ReadOnly = .F., ; Column4.Width = 135, ; Column5.ColumnOrder = 5, ; Column5.ControlSource = "procent", ; Column5.FontName = "Arial", ; Column5.FontSize = 10, ; Column5.Format = "rk", ; Column5.InputMask = (get_mask(20,2)), ; Column5.Name = "cProcent", ; Column5.ReadOnly = .F., ; Column5.Width = 39, ; Column6.BackColor = 225,223,217, ; Column6.ColumnOrder = 12, ; Column6.ControlSource = "nume_val", ; Column6.FontName = "Arial", ; Column6.FontSize = 10, ; Column6.Name = "cNume_val", ; Column6.ReadOnly = .T., ; Column6.Width = 39, ; Column7.ColumnOrder = 4, ; Column7.ControlSource = "data_scadenta", ; Column7.FontName = "Arial", ; Column7.FontSize = 10, ; Column7.Name = "cData_scadenta", ; Column7.ReadOnly = .F., ; Column7.Width = 70, ; Column8.BackColor = 225,223,217, ; Column8.ColumnOrder = 10, ; Column8.ControlSource = "valvaluta", ; Column8.FontName = "Arial", ; Column8.FontSize = 10, ; Column8.Format = "rk", ; Column8.InputMask = (get_mask(20,This.nZecimaleSuma)), ; Column8.Name = "cValvaluta", ; Column8.ReadOnly = .T., ; Column8.Width = 92, ; Column9.Alignment = 2, ; Column9.ColumnOrder = 6, ; Column9.ControlSource = "pret_cu_tva", ; Column9.FontName = "Arial", ; Column9.FontSize = 10, ; Column9.Name = "cPret_cu_tva", ; Column9.ReadOnly = .T., ; Column9.Sparse = .F., ; Column9.Width = 79, ; Column10.BackColor = 225,223,217, ; Column10.ColumnOrder = 13, ; Column10.ControlSource = "proc_tva", ; Column10.FontName = "Arial", ; Column10.FontSize = 10, ; Column10.Format = "rk", ; Column10.InputMask = "99", ; Column10.Name = "cProc_tva", ; Column10.ReadOnly = .T., ; Column10.Width = 36, ; Column11.BackColor = 225,223,217, ; Column11.ColumnOrder = 8, ; Column11.ControlSource = "valrataftva", ; Column11.FontName = "Arial", ; Column11.FontSize = 10, ; Column11.Format = "rk", ; Column11.InputMask = (get_mask(20,This.nZecimalePret)), ; Column11.Name = "cValrataftva", ; Column11.ReadOnly = .T., ; Column11.Width = 73, ; Column12.BackColor = 225,223,217, ; Column12.ColumnOrder = 9, ; Column12.ControlSource = "valratactva", ; Column12.DynamicBackColor = "", ; Column12.FontName = "Arial", ; Column12.FontSize = 10, ; Column12.Format = "rk", ; Column12.InputMask = (get_mask(20,This.nZecimalePret)), ; Column12.Name = "cValratactva", ; Column12.ReadOnly = .T., ; Column12.Width = 75, ; Column13.BackColor = 225,223,217, ; Column13.ColumnOrder = 11, ; Column13.ControlSource = "valrataftva - valvaluta", ; Column13.FontName = "Arial", ; Column13.FontSize = 10, ; Column13.InputMask = (get_mask(20,This.nZecimaleSuma)), ; Column13.Name = "cRest", ; Column13.ReadOnly = .F., ; Column13.Width = 95 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data facturarii", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cData_scadenta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data scadentei", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cData_scadenta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Denumire rata", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; Enabled = .T., ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. rata", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; Enabled = .T., ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ; BackColor = 225,223,217, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cPret_cu_tva.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; FontName = "Arial", ; FontSize = 10, ; Height = 17, ; Left = 29, ; Name = "Check1", ; ReadOnly = .T., ; Top = 29, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_scadentar.cPret_cu_tva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret cu TVA", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cProc_tva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Proc TVA", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cProc_tva.Text1' AS textbox WITH ; BackColor = 225,223,217, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cProcent.Header1' AS header WITH ; Alignment = 2, ; Caption = "Procent (%)", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cProcent.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cRest.Header1' AS header WITH ; Alignment = 2, ; Caption = "Rest de facturat fara TVA", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cRest.Text1' AS textbox WITH ; BackColor = 225,223,217, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare rata", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cValratactva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare rata cu TVA", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cValratactva.Text1' AS textbox WITH ; BackColor = 225,223,217, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cValrataftva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare rata fara TVA", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cValrataftva.Text1' AS textbox WITH ; BackColor = 225,223,217, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cValvaluta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare facturata fara TVA", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cValvaluta.Text1' AS textbox WITH ; BackColor = 225,223,217, ; BorderStyle = 0, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label13' AS label WITH ; Anchor = 12, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Coef.penalități", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 625, ; Name = "Label13", ; TabIndex = 12, ; Top = 453, ; Visible = .F., ; Width = 84, ; ZOrderSet = 8 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "zile", ; FontSize = 10, ; Height = 18, ; Left = 179, ; Name = "Label4", ; TabIndex = 10, ; Top = 453, ; Width = 22, ; ZOrderSet = 12 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Scadență încasare", ; FontCharSet = 238, ; FontSize = 10, ; Height = 18, ; Left = 7, ; Name = "Label6", ; TabIndex = 9, ; Top = 453, ; Width = 110, ; ZOrderSet = 6 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'txtCoef_penalitati' AS textbox WITH ; Anchor = 12, ; ControlSource = "goContract.coef_penalitati", ; FontSize = 10, ; Height = 23, ; Left = 714, ; Name = "txtCoef_penalitati", ; TabIndex = 8, ; Top = 450, ; Visible = .F., ; Width = 57, ; ZOrderSet = 9 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtScadenta_incasare' AS textbox WITH ; Anchor = 6, ; ControlSource = "goContract.scadenta_incasare", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = "999", ; Left = 117, ; Name = "txtScadenta_incasare", ; TabIndex = 7, ; Top = 450, ; Width = 58, ; ZOrderSet = 7 *< END OBJECT: BaseClass="textbox" /> PROCEDURE actualizeaza_zecimale Lparameters tnZecimalePret, tnZecimaleSuma This.nzecimalepret = tnZecimalePret This.nzecimalesuma = tnZecimaleSuma With This.grid_scadentar .cValrata.InputMask = get_mask(20,This.nzecimaleSuma) .cValrataftva.InputMask = get_mask(20,This.nzecimaleSuma) .cValratactva.InputMask = get_mask(20,This.nzecimaleSuma) .cValvaluta.InputMask = get_mask(20,This.nzecimaleSuma) .cRest.InputMask = get_mask(20,This.nZecimalesuma) Endwith ENDPROC PROCEDURE Init this.grid_scadentar.HeaderHeight = 38 ENDPROC PROCEDURE cmdAplicaScadenta.Click LOCAL lnZileScadenta, lcTabelRate lnZileScadenta = this.Parent.txtscadenta_incasare.Value lcTabelRate = this.Parent.grid_scadentar.RecordSource SELECT (lcTabelRate) REPLACE ALL data_scadenta WITH data_rata + lnZileScadenta this.Parent.grid_scadentar.Refresh ENDPROC PROCEDURE cmdMultiplicaRate.Click Private pnNrRate, pdDataI, pnValRata, pnId_valuta, pnFrecventa, pcDen_rata, pnPtLuna Store 1 To pnNrRate, pnFrecventa, pnPtLuna Select cCtrScadentar pdDataI = data_rata pnId_valuta = id_valuta pcNume_val = Alltrim(nume_val) pnValRata = goContract.valftva lomr = Createobject("frm_multiplica_rate") lomr.Show(1) If buton = 2 Return Endif pcId_ctr = Alltrim(Str(goContract.id_ctr)) pcDataI = Alltrim(Dtos(pdDataI)) *!* modificare v 2.0.6 *!* lcSql = [begin pack_crm.multiplica_rate(] + pcId_ctr + [,] + ALLTRIM(STR(pnNrRate)) + [, TO_DATE('] + IIF(!EMPTY(pcDataI) and !ISNULL(pcDataI),pcDataI,[NULL]) + [','YYYYMMDD'), ] + ; *!* ALLTRIM(STR(pnValRata,20,gnPC)) + [,'] + SUBSTR(ALLTRIM(pcDen_rata),1,30) + [',] + NVL(ALLTRIM(STR(pnId_valuta)),[NULL]) + [,] ; *!* + ALLTRIM(STR(pnFrecventa)) + [,] + ALLTRIM(STR(pnPtLuna)) + [); end;] lcSql = [begin pack_crm.multiplica_rate(] + pcId_ctr + [,] + Alltrim(Str(pnNrRate)) + [,] + ; [TO_DATE('] + Iif(!Empty(pcDataI) And !Isnull(pcDataI),pcDataI,[NULL]) + [','YYYYMMDD'), ] + ; ALLTRIM(Str(pnValRata,20,This.Parent.nzecimalepret)) + [,'] + Substr(Alltrim(pcDen_rata),1,80) + [',] + ; NVL(Alltrim(Str(pnId_valuta)),[NULL]) + [,] + Alltrim(Str(pnFrecventa)) + [,] + ; ALLTRIM(Str(pnPtLuna)) + [); end;] *!* modificare v 2.0.6 ^ if goExecutor.oExecuta(lcSql) Thisform.actualizeaza_grid1() Endif ENDPROC PROCEDURE grid_scadentar.cData_rata.Text1.LostFocus LOCAL lcTabel lcTabel = this.Parent.Parent.RecordSource SELECT (lcTabel) REPLACE data_scadenta WITH data_rata + NVL(goContract.scadenta_incasare,0) this.Parent.Parent.Refresh ENDPROC PROCEDURE grid_scadentar.cProcent.Text1.LostFocus LOCAL lnProc lnProc = this.Value IF lnProc*0 = 0 AND goContract.valftva*0 = 0&& <> ************* REPLACE valrata WITH round(NVL(goContract.valftva,0) * lnProc/100,This.Parent.Parent.Parent.nzecimalepret) ELSE REPLACE valrata WITH 0 ENDIF this.Parent.Parent.Parent._grdfooter1.calctotal ENDPROC PROCEDURE grid_scadentar.cValrata.Text1.LostFocus If goContract.valftva <> 0 And goContract.valftva*0 = 0 && <> ************* Replace procent With valrata/goContract.valftva * 100 Else Replace procent With 0 Endif If pret_cu_tva = 1 Replace valrataftva With round(valrata / (1+proc_tva/100),This.Parent.Parent.Parent.nzecimalepret), valratactva With valrata Else Replace valrataftva With valrata, valratactva With round(valrata * (1+proc_tva/100),This.Parent.Parent.Parent.nzecimalepret) Endif This.Parent.Parent.Parent._grdfooter1.calctotal ENDPROC PROCEDURE grid_scadentar.Init * NU STERGE ENDPROC ENDDEFINE DEFINE CLASS ct_dg_tf_2 AS ct_dg_cu_banda OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="grid_fact_atas" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtSumaRate" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtSumaFacturi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="optFactAtas" UniqueID="" Timestamp="" /> * Height = 428 Name = "ct_dg_tf_2" Width = 809 _shape3.Name = "_shape3" _label1.Caption = "Facturi asociate la scadențar" _label1.Name = "_label1" * ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 725, ; Name = "But_listare1", ; Top = 33, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; Left = 755, ; Name = "But_sterge1", ; Top = 33, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Command1' AS commandbutton WITH ; Anchor = 3, ; AutoSize = .F., ; Caption = "Atașare facturi", ; FontCharSet = 238, ; FontSize = 10, ; Height = 29, ; Left = 240, ; Name = "Command1", ; Top = 36, ; Width = 120, ; WordWrap = .T. *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'grid_fact_atas' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 10, ; DeleteMark = .F., ; GridLineColor = 192,192,192, ; HeaderHeight = 38, ; Height = 323, ; Left = 372, ; Name = "grid_fact_atas", ; Panel = 1, ; RecordSource = "cFactAtas", ; Top = 69, ; Width = 423, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "id_fact", ; Column1.Name = "Column1", ; Column1.Width = 50, ; Column2.ColumnOrder = 2, ; Column2.ControlSource = "valvaluta", ; Column2.Format = "rk", ; Column2.InputMask = (get_mask(14,max(gnPc,gnPVal))), ; Column2.Name = "Column2", ; Column2.Width = 81, ; Column3.ColumnOrder = 5, ; Column3.ControlSource = "curs", ; Column3.Format = "rk", ; Column3.InputMask = (get_mask(10,gnPCurs)), ; Column3.Name = "Column3", ; Column3.Width = 48, ; Column4.ColumnOrder = 6, ; Column4.ControlSource = "nume_val", ; Column4.Name = "Column4", ; Column4.Width = 55, ; Column5.ColumnOrder = 8, ; Column5.ControlSource = "nract", ; Column5.Name = "Column5", ; Column5.Width = 56, ; Column6.ColumnOrder = 9, ; Column6.ControlSource = "ttod(dataact)", ; Column6.Name = "Column6", ; Column6.Width = 41, ; Column7.ColumnOrder = 7, ; Column7.ControlSource = "fdoc", ; Column7.Name = "Column7", ; Column7.Width = 53, ; Column8.ColumnOrder = 10, ; Column8.ControlSource = "explicatia", ; Column8.Name = "Column8", ; Column8.Width = 111, ; Column9.ColumnOrder = 3, ; Column9.ControlSource = "valvalutactva", ; Column9.InputMask = (get_mask(14,max(gnPc,gnPVal))), ; Column9.Name = "Column9", ; Column9.Width = 84, ; Column10.ColumnOrder = 4, ; Column10.ControlSource = "proctva", ; Column10.Name = "Column10", ; Column10.Width = 47 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_fact_atas.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "ID fact.", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column10.Header1' AS header WITH ; Alignment = 2, ; Caption = "Proc TVA (%)", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column10.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta (fara TVA)", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column4.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr fact", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column5.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column6.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data fact", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column6.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column7.Header1' AS header WITH ; Alignment = 2, ; Caption = "Fel doc", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column8.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatia", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column8.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column9.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta (cu TVA)", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column9.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar' AS _grdrow WITH ; Anchor = 7, ; ColumnCount = 5, ; DeleteMark = .F., ; GridLineColor = 192,192,192, ; HeaderHeight = 38, ; Height = 323, ; HighlightStyle = 2, ; Left = 12, ; Name = "grid_scadentar", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .F., ; RecordSource = "cCtrScadentar", ; RowHeight = 18, ; TabIndex = 1, ; Top = 69, ; Width = 351, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "nr_rata", ; Column1.FontName = "Arial", ; Column1.Name = "cNr_rata", ; Column1.ReadOnly = .T., ; Column1.Width = 29, ; Column2.ColumnOrder = 3, ; Column2.ControlSource = "data_rata", ; Column2.FontName = "Arial", ; Column2.Name = "cData_rata", ; Column2.ReadOnly = .T., ; Column2.Width = 55, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "valrata", ; Column3.FontName = "Arial", ; Column3.Format = "rk", ; Column3.InputMask = (get_mask(20,max(gnPc,gnPVal))), ; Column3.Name = "cValrata", ; Column3.ReadOnly = .T., ; Column3.Width = 97, ; Column4.ColumnOrder = 2, ; Column4.ControlSource = "den_rata", ; Column4.FontName = "Arial", ; Column4.Name = "cDen_rata", ; Column4.ReadOnly = .T., ; Column4.Width = 99, ; Column5.ColumnOrder = 5, ; Column5.ControlSource = "nume_val", ; Column5.FontName = "Arial", ; Column5.Name = "cNume_val", ; Column5.ReadOnly = .T., ; Column5.Width = 45 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data facturarii", ; FontName = "Arial", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Denumire rata", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. rata", ; FontName = "Arial", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare rata valuta (fara TVA)", ; FontName = "Arial", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total valoare rate", ; FontSize = 10, ; Height = 18, ; Left = 105, ; Name = "Label1", ; Top = 400, ; Width = 100 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; Anchor = 12, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total valori facturi", ; FontSize = 10, ; Height = 18, ; Left = 536, ; Name = "Label2", ; Top = 400, ; Width = 102 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'optFactAtas' AS optiongroup WITH ; AutoSize = .F., ; BackStyle = 0, ; ButtonCount = 2, ; Height = 37, ; Left = 374, ; Name = "optFactAtas", ; Top = 30, ; Value = 1, ; Width = 243, ; Option1.AutoSize = .T., ; Option1.BackStyle = 0, ; Option1.Caption = "Facturile atașate la rată", ; Option1.FontCharSet = 238, ; Option1.FontSize = 10, ; Option1.Height = 18, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 2, ; Option1.Value = 1, ; Option1.Width = 156, ; Option2.AutoSize = .T., ; Option2.BackStyle = 0, ; Option2.Caption = "Toate facturile atașate la contract", ; Option2.FontCharSet = 238, ; Option2.FontSize = 10, ; Option2.Height = 18, ; Option2.Left = 5, ; Option2.Name = "Option2", ; Option2.Top = 16, ; Option2.Width = 212 *< END OBJECT: BaseClass="optiongroup" /> ADD OBJECT 'txtSumaFacturi' AS textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nSumaFact", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(14,gnPA)), ; Left = 642, ; Name = "txtSumaFacturi", ; Top = 397, ; Width = 153 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtSumaRate' AS textbox WITH ; Anchor = 6, ; ControlSource = "thisform.nSumaRate", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(14,gnPA)), ; Left = 210, ; Name = "txtSumaRate", ; Top = 397, ; Width = 153 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Command1.Click Local lcSel, lcCursor, lnSucces, lcScadentar, lnId_fact, lnId_rata, lcSql, lnSucces *!* lcSel = [{call pack_crm.facturi_neatasate(] + ALLTRIM(STR(gnParametru_prog))+ [,] + ALLTRIM(STR(goContract.id_part)) + [,]+ALLTRIM(STR(goContract.id_ctr))+ [)}] *!* lcCursor = 'cFact_neatas' *!* lnSucces = goExecutor.oExecute(lcSel, lcCursor) *!* IF lnSucces < 0 *!* amessage(goExecutor.cEroare,0+16,"Eroare") *!* RETURN *!* ENDIF Private poFactGaran Store '' To poFactGaran Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal lcOrder = [dataact desc] lcgroup = [] lcFiltru = [ 1=1 ] Do Case Case gnParametru_prog=1 lcSchema = [] lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, ]+; [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; [ from vireg_emise_in_perioada ] lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] Case gnParametru_prog=2 lcSchema = [] lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, ]+; [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; [ from vireg_emise_in_perioada ] lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] Otherwise lcFiltruOriginal = [] Endcase llAfiseaza = .F. llModParam = .T. gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poFactGaran.ca_baza1.afisare() ***---------------------------- lcScadentar = Thisform.grid_scadentar.RecordSource Select cFact_neatas loip = Createobject('frm_atas_fact_iregpart') loip.lb_titlu_alb_b121.Caption = 'Facturi fara contract sau corespunzatoare contractului '+Alltrim(goContract.numar) + ' / ' + Dtoc(goContract.Data) loip.Show(1) If buton = 2 Return Endif Private pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_valctva, pnFA_curs, pnFA_id_valuta, pcFA_nume_val, pnValRata Store 0 To pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_curs, pnFA_id_valuta, pnValRata Store '' To pcFA_nume_val pnFA_valctva = cFact_neatas.suma Select (lcScadentar) lnId_rata = id_rata pnFA_id_valuta = id_valuta pcFA_nume_val = Upper(Alltrim(nume_val)) pnValRata = valrata && ca sa aflu cursul pnFA_valvaluta = pnValRata pnFA_procTVA = goContract.proc_tva pnFA_valvalutacTVA = Round(pnFA_valvaluta * (1+pnFA_procTVA/100),gnPC) *IF pnFA_valctva <> 0 If pnFA_valvalutacTVA <> 0 pnFA_curs = Round(pnFA_valctva/pnFA_valvalutacTVA,gnPCurs) Endif loafc = Createobject('frm_atas_fact_curs') loafc.Show(1) If buton = 2 Return Endif lnId_fact = cFact_neatas.id_fact If !Empty(lnId_fact) lcSql = [begin pack_crm.adauga_rata_fact(] + Alltrim(Str(lnId_rata)) + [,] + Alltrim(Str(lnId_fact)) + [,] ; + Alltrim(Str(pnFA_valvaluta,14,gnPC)) + [,] + Alltrim(Str(pnFA_valvalutacTVA,14,gnPC)) + [,] + Alltrim(Str(pnFA_procTVA)) + [,] ; + Alltrim(Str(pnFA_curs,12,gnPCurs)) + [,] + Alltrim(Str(pnFA_id_valuta)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;] lnSucces = goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX('pack_crm.cauta_ctr_art'+goExecutor.cEroare,0+16,"Eroare") Return Endif Thisform.actualizeaza_grid2() *!* lcId_ctr = ALLTRIM(STR(goContract.id_ctr)) *!* lcId_fact = ALLTRIM(STR(lnId_fact)) *!* lcSql = [update act set id_ctr=] + lcId_ctr + [ where id_fact=]+lcId_fact + [ and id_ctr is null and sters=0] *!* lnSucces = goExecutor.oExecute(lcSql) *!* IF lnSucces < 0 *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") *!* RETURN *!* ENDIF Endif ENDPROC PROCEDURE grid_fact_atas.AfterRowColChange LPARAMETERS nColIndex SELECT cFactAtas lnId_fact = id_fact lcTabelScadentar = thisform.grid_scadentar.RecordSource UPDATE (lcTabelScadentar) SET lid_fact = 0 IF USED('cRate') USE IN cRate ENDIF SELECT id_rata FROM cFactAtas WHERE id_fact = lnId_fact INTO CURSOR cRate UPDATE (lcTabelScadentar) SET lid_fact = 1 WHERE id_rata in (select id_rata from cRate) thisform.grid_scadentar.SetAll('DynamicBackColor','IIF(cCtrScadentar.Lid_fact=1, RGB(217,217,255), RGB(255,255,255))','Column') ENDPROC PROCEDURE grid_scadentar.AfterRowColChange LPARAMETERS nColIndex LOCAL lcTabelFactAtas lcTabelFactAtas = thisform.grid_fact_atas.RecordSource IF thisform.optFactAtas.Value = 1 SELECT (lcTabelFactAtas) SET FILTER TO id_rata = cCtrScadentar.id_rata ELSE SELECT (lcTabelFactAtas) SET FILTER TO ENDIF thisform.grID_FACT_ATAS.SetAll("DynamicBackColor","IIF(id_rata = cCtrScadentar.id_rata, RGB(206,255,255), RGB(255,255,255))", "Column") thisform.afisactual thisform.grid_fact_atas.Refresh thisform.Refresh ENDPROC PROCEDURE optFactAtas.Valid thisform.grid_scadentar.AfterRowColChange ENDPROC ENDDEFINE DEFINE CLASS ct_dg_tl AS ct_dg_cu_banda OF "ferestre_contracte.vcx" *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGrnt_pv_nr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGrnt_proc_ret" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGrnt_val_ret" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGrnt_alerta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGrnt_proc_alerta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGrnt_pv_data" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cNract.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cNract.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cDataact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cDataact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cValftva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cValftva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cGarantie.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_garant.cGarantie.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGrnt_perioada" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_attach1" UniqueID="" Timestamp="" /> * Height = 479 Name = "ct_dg_tl" Width = 795 _SHAPE3.Name = "_SHAPE3" _SHAPE3.ZOrderSet = 0 _label1.Caption = "Termene de livrare/receptie si Garantii" _label1.FontCharSet = 1 _label1.FontName = "Arial" _label1.FontSize = 10 _label1.Name = "_label1" _label1.ZOrderSet = 2 * ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; ccolwithlabel = cNract, ; csourcegrid = grid_Fact_garant, ; csumcolumns = cValftva,cGarantie, ; ctotallabelexpression = 'TOTAL', ; FontName = "Arial", ; FontSize = 10, ; Height = 20, ; Left = 455, ; Name = "_grdfooter1", ; RowHeight = 19, ; TabIndex = 29, ; Top = 240, ; Width = 338, ; ZOrderSet = 20 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT '_shape1' AS _shape WITH ; Height = 479, ; Left = 0, ; Name = "_shape1", ; SpecialEffect = 0, ; Top = 0, ; Width = 795, ; ZOrderSet = 1 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> ADD OBJECT 'But_attach1' AS but_attach WITH ; Anchor = 9, ; caction = do_ataseaza_garantie, ; Left = 673, ; Name = "But_attach1", ; TabIndex = 9, ; ToolTipText = "Atasare factura la contract;Facturile din contabilitate ale partenerului de pe contract care sunt atasate la contractul selectat sau nu sunt atasate la nici un contract", ; Top = 1, ; ZOrderSet = 27 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ; Anchor = 9, ; caction = inainte_de_do_modifica_garantie, ; Left = 733, ; Name = "BUT_MODIFICA1", ; TabIndex = 11, ; ToolTipText = "Modificare", ; Top = 1, ; Visible = .T., ; ZOrderSet = 25 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 9, ; caction = do_adauga_garantie, ; Left = 703, ; Name = "But_nou1", ; TabIndex = 10, ; ToolTipText = "Se alege dintre facturile din contabilitate ale partenerului de pe contract care sunt atasate la contractul selectat; facturi de 4111 pentru contracte-clienti si 401 sau 404 pentru contracte-furnizori", ; Top = 1, ; ZOrderSet = 24 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; caction = inainte_de_do_sterge_garantie, ; Left = 763, ; Name = "But_sterge1", ; TabIndex = 12, ; ToolTipText = "Stergere", ; Top = 1, ; Visible = .T., ; ZOrderSet = 26 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grid_Fact_garant' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 4, ; DeleteMark = .F., ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Height = 232, ; Left = 455, ; Name = "grid_Fact_garant", ; Panel = 1, ; RecordSource = "cCtrFactGarant", ; RowHeight = 19, ; TabIndex = 13, ; Top = 28, ; Width = 338, ; ZOrderSet = 18, ; Column1.ControlSource = "nract", ; Column1.FontCharSet = 1, ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cNract", ; Column1.Width = 67, ; Column2.ControlSource = "dataact", ; Column2.FontCharSet = 1, ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cDataact", ; Column2.Width = 65, ; Column3.ControlSource = "valftva", ; Column3.FontCharSet = 1, ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Format = "rk", ; Column3.InputMask = (get_mask(12,gnPc)), ; Column3.Name = "cValftva", ; Column3.Width = 98, ; Column4.ControlSource = "garantie", ; Column4.FontCharSet = 1, ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Format = "rk", ; Column4.InputMask = (get_mask(12,gnPc)), ; Column4.Name = "cGarantie", ; Column4.Width = 70 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_Fact_garant.cDataact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_garant.cDataact.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_garant.cGarantie.Header1' AS header WITH ; Alignment = 2, ; Caption = "Garantii retinute", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_garant.cGarantie.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_garant.cNract.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr.", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_garant.cNract.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_garant.cValftva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare (fara TVA)", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_garant.cValftva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "PV predare-primire finală", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 12, ; Name = "Label1", ; TabIndex = 26, ; Top = 164, ; Width = 144, ; ZOrderSet = 3 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label10' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Facturi - Garantii retinute", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 464, ; Name = "Label10", ; TabIndex = 17, ; Top = 9, ; Width = 146, ; ZOrderSet = 19 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label12' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Perioadă garantie", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 12, ; Name = "Label12", ; TabIndex = 20, ; Top = 189, ; Width = 103, ; ZOrderSet = 21 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label13' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "(nr. luni)", ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 201, ; Name = "Label13", ; TabIndex = 22, ; Top = 189, ; Width = 49, ; ZOrderSet = 23 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare garantie retinută", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 12, ; Name = "Label2", ; TabIndex = 25, ; Top = 86, ; Width = 143, ; ZOrderSet = 7 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Returnare partială", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 12, ; Name = "Label3", ; TabIndex = 21, ; Top = 112, ; Width = 104, ; ZOrderSet = 9 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Procent garantie retinut", ; FontCharSet = 1, ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 12, ; Name = "Label4", ; TabIndex = 16, ; Top = 60, ; Width = 137, ; ZOrderSet = 5 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "(nr. zile)", ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 201, ; Name = "Label5", ; TabIndex = 23, ; Top = 112, ; Width = 49, ; ZOrderSet = 11 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Procent returnare", ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 12, ; Name = "Label6", ; TabIndex = 24, ; Top = 138, ; Width = 102, ; ZOrderSet = 12 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label7' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "/", ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 232, ; Name = "Label7", ; TabIndex = 28, ; Top = 164, ; Width = 6, ; ZOrderSet = 15 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label8' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "%", ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 201, ; Name = "Label8", ; TabIndex = 19, ; Top = 60, ; Width = 14, ; ZOrderSet = 16 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "%", ; FontName = "Arial", ; FontSize = 10, ; Height = 18, ; Left = 201, ; Name = "Label9", ; TabIndex = 18, ; Top = 138, ; Width = 14, ; ZOrderSet = 17 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'txtGrnt_alerta1' AS textbox WITH ; ControlSource = "goContract.grnt_alerta1", ; FontName = "Arial", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = "9999", ; Left = 157, ; Name = "txtGrnt_alerta1", ; TabIndex = 3, ; Top = 109, ; Width = 43, ; ZOrderSet = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtGrnt_perioada' AS textbox WITH ; ControlSource = "goContract.grnt_perioada", ; FontName = "Arial", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = "9999", ; Left = 157, ; Name = "txtGrnt_perioada", ; TabIndex = 8, ; Top = 186, ; Width = 43, ; ZOrderSet = 22 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtGrnt_proc_alerta1' AS textbox WITH ; ControlSource = "goContract.grnt_proc_alerta1", ; FontName = "Arial", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(4,0)), ; Left = 157, ; Name = "txtGrnt_proc_alerta1", ; TabIndex = 4, ; Top = 135, ; Width = 43, ; ZOrderSet = 13 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtGrnt_proc_ret' AS textbox WITH ; ControlSource = "goContract.grnt_proc_ret", ; FontName = "Arial", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(4,0)), ; Left = 157, ; Name = "txtGrnt_proc_ret", ; TabIndex = 1, ; Top = 57, ; Width = 43, ; ZOrderSet = 6 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtGrnt_pv_data' AS textbox WITH ; ControlSource = "goContract.grnt_pv_data", ; FontName = "Arial", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; Left = 241, ; Name = "txtGrnt_pv_data", ; TabIndex = 7, ; Top = 161, ; Width = 72, ; ZOrderSet = 14 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtGrnt_pv_nr' AS textbox WITH ; ControlSource = "goContract.grnt_pv_nr", ; FontName = "Arial", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = "9999999999", ; Left = 157, ; Name = "txtGrnt_pv_nr", ; TabIndex = 6, ; Top = 161, ; Width = 72, ; ZOrderSet = 4 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtGrnt_val_ret' AS textbox WITH ; ControlSource = "goContract.grnt_val_ret", ; FontName = "Arial", ; FontSize = 10, ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(10,gnPc)), ; Left = 157, ; Name = "txtGrnt_val_ret", ; TabIndex = 2, ; Top = 83, ; Width = 156, ; ZOrderSet = 8 *< END OBJECT: BaseClass="textbox" /> PROCEDURE txtGrnt_proc_ret.Valid IF !ISNULL(gocontract.valftva) goContract.grnt_val_ret = gocontract.valftva * goContract.grnt_proc_ret / 100 thisform.txtGrnt_val_ret.Refresh ENDIF ENDPROC ENDDEFINE DEFINE CLASS ct_part_nr_data AS container *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="cmdDenumire" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" /> * *m: blocheaza_campuri *m: deblocheaza_campuri *p: llock * * BackColor = 197,214,254 Height = 62 llock = .T. Name = "ct_part_nr_data" Width = 600 * ADD OBJECT 'cmdDenumire' AS commandbutton WITH ; Caption = "", ; Enabled = .F., ; Height = 22, ; Left = 525, ; Name = "cmdDenumire", ; Picture = ..\grafice\find.bmp, ; TabIndex = 2, ; Top = 5, ; Width = 29 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Command2' AS commandbutton WITH ; Anchor = 3, ; Caption = "Modifică", ; FontBold = .T., ; FontCharSet = 238, ; FontSize = 10, ; ForeColor = 0,0,255, ; Height = 47, ; Left = 8, ; Name = "Command2", ; Picture = ..\comun\grafice\lock.bmp, ; SpecialEffect = 0, ; TabIndex = 1, ; Top = 4, ; Width = 131 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Partener", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 163, ; Name = "Label3", ; TabIndex = 6, ; Top = 8, ; Width = 57 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. contract ", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 163, ; Name = "Label4", ; TabIndex = 7, ; Top = 30, ; Width = 79 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data contract ", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 359, ; Name = "Label9", ; TabIndex = 8, ; Top = 30, ; Width = 90 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'lb_actAd' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. act ad.", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 163, ; Name = "lb_actAd", ; TabIndex = 8, ; Top = 43, ; Visible = .F., ; Width = 67 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'txtClient' AS textbox WITH ; ControlSource = "goContract.denumire", ; FontSize = 10, ; Height = 21, ; Left = 240, ; Name = "txtClient", ; ReadOnly = .T., ; TabIndex = 5, ; Top = 6, ; Width = 283 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtData_ctr' AS textbox WITH ; ControlSource = "goContract.data", ; FontSize = 10, ; Height = 21, ; Left = 452, ; Name = "txtData_ctr", ; ReadOnly = .T., ; TabIndex = 4, ; Top = 28, ; Width = 102 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtNumar' AS textbox WITH ; ControlSource = "goContract.numar", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 241, ; Name = "txtNumar", ; ReadOnly = .T., ; TabIndex = 3, ; Top = 28, ; Width = 113 *< END OBJECT: BaseClass="textbox" /> PROCEDURE blocheaza_campuri this.cmdDenumire.Enabled = .F. this.txtNumar.ReadOnly = .T. this.txtData_ctr.ReadOnly = .T. ENDPROC PROCEDURE deblocheaza_campuri this.cmdDenumire.Enabled = .T. this.txtNumar.ReadOnly = .F. this.txtData_ctr.ReadOnly = .F. ENDPROC PROCEDURE cmdDenumire.Click LOCAL lcIdTipPart, lcTitlu STORE '' TO lcIdTipPart, lcTitlu * loCauta = caut_partener(lcIdTipPart, lcTitlu) DO CASE CASE gnParametru_prog = 1 && contracte clienti lcIdTipPart = [-1] lcTitlu = 'Clienti' lcLista = ['4111'] lcContul = '4111' CASE gnParametru_prog = 2 && contracte furnizori lcIdTipPart = [-2] lcTitlu = 'Furnizori' lcLista = ['401','404'] lcContul = '401' ENDCASE lnIdTipPart = GetContIdTipPart(lcContul) *!* IF !EMPTY(lcLista) *!* lcSql = [select distinct c.cont as cont_part, c.explicatie as explic_cont, c.id_tip_part as tip ] + ; *!* [from vcoresp_tip_cont c ] + ; *!* [where c.cont in (] + lcLista + [) ] *!* ENDIF *!* lcCursor = 'xcont' *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) *!* IF lnSucces < 0 *!* aMessagebox('Eroare!',0+48, 'Atentie!') *!* RETURN *!* ENDIF *!* SELECT xcont *!* BROWSE *!* SELECT xcont *!* LOCATE FOR VAL(cont_part) = VAL(lcContul) *!* lcContul = cont_part *!* lcTip = ALLTRIM(STR(tip)) locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart)))) IF buton = 2 RETURN ENDIF goContract.id_part = loCauta.id_part goContract.denumire = loCauta.denumire THIS.PARENT.txtClient.REFRESH * THISFORM.pageframe1.page1.txtClient.REFRESH ENDPROC PROCEDURE Command2.Click Parameters tlNou && la adaugarea unui contract nou, intra cu butonul de modificare "apasat" *!* If Alltrim(goContract.tip_istoric) <> 'C' && pentru istoric Acte aditionale, sa nu mai pot face modificari, doar vizualizari *!* AMESSAGEBOX('Nu se poate modifica istoricul unui contract!',0+48,'Atentie!') *!* Return *!* Endif Local llNou llNou = tlNou If This.Parent.lLock If !llNou AMESSAGEBOX('Toate modificarile au efect imediat! Nu puteti da renuntare!',0+48,'Atentie!') Endif This.Picture = 'unlock.bmp' This.Parent.lLock = .F. This.Caption = 'Salveaza' This.Parent.deblocheaza_campuri() ****** If Type('podg_dg.but_termin1') <> 'U' podg_dg.deblocheaza_campuri() Endif If Type('podg_ob.but_termin1') <> 'U' podg_ob.deblocheaza_campuri() Endif If Type('podg_tf.but_termin1') <> 'U' podg_tf.deblocheaza_campuri() Endif If Type('podg_link.but_termin1') <> 'U' podg_link.deblocheaza_campuri() Endif If Type('podg_fact.but_termin1') <> 'U' podg_fact.deblocheaza_campuri() Endif If Type('podg_tl.but_termin1') <> 'U' podg_tl.deblocheaza_campuri() Endif If Type('podg_obs.but_termin1') <> 'U' podg_obs.deblocheaza_campuri() Endif ****** Else If Type('podg_fact.but_termin1') <> 'U' If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And Empty(Nvl(goContract.id_nota,0)) AMESSAGEBOX('Alegeti nota contabila !',0+48) If Type('podg_dg.but_termin1') <> 'U' podg_dg.blocheaza_campuri() Endif If Type('podg_ob.but_termin1') <> 'U' podg_ob.blocheaza_campuri() Endif If Type('podg_tf.but_termin1') <> 'U' podg_tf.blocheaza_campuri() Endif If Type('podg_link.but_termin1') <> 'U' podg_link.blocheaza_campuri() Endif If Type('podg_fact.but_termin1') <> 'U' podg_fact.blocheaza_campuri() Endif If Type('podg_tl.but_termin1') <> 'U' podg_tl.blocheaza_campuri() Endif If Type('podg_obs.but_termin1') <> 'U' podg_obs.blocheaza_campuri() Endif Return Endif Endif This.Picture = 'lock.bmp' This.Parent.lLock = .T. This.Caption = 'Modifica' This.Parent.blocheaza_campuri() If Empty(Nvl(goContract.id_part,0)) AMESSAGEBOX('Alegeti partenerul!') If Type('podg_dg.but_termin1') <> 'U' podg_dg.blocheaza_campuri() Endif If Type('podg_ob.but_termin1') <> 'U' podg_ob.blocheaza_campuri() Endif If Type('podg_tf.but_termin1') <> 'U' podg_tf.blocheaza_campuri() Endif If Type('podg_link.but_termin1') <> 'U' podg_link.blocheaza_campuri() Endif If Type('podg_fact.but_termin1') <> 'U' podg_fact.blocheaza_campuri() Endif If Type('podg_tl.but_termin1') <> 'U' podg_tl.blocheaza_campuri() Endif If Type('podg_obs.but_termin1') <> 'U' podg_obs.blocheaza_campuri() Endif This.Parent.cmdDenumire.SetFocus() Return Endif If pnGNnumar<>0 And Upper(Alltrim(Str(pnGNnumar))) <> Upper(Alltrim(goContract.numar)) poGeneratorNumere.dezaloca_numar(13) Endif Do modifica_ctr_dg With goContract In oproceduri_roacontracte.prg && sa nu mai faca de fiecare data do_cauta (sa aduca toate contactele de pe server) Select cContracte Locate For id_ctr = goContract.id_ctr If Found() Gather Name goContract Memo Endif If Type('podg_dg.but_termin1') <> 'U' podg_dg.blocheaza_campuri() Endif If Type('podg_ob.but_termin1') <> 'U' podg_ob.blocheaza_campuri() Endif If Type('podg_tf.but_termin1') <> 'U' podg_tf.blocheaza_campuri() Endif If Type('podg_link.but_termin1') <> 'U' podg_link.blocheaza_campuri() Endif If Type('podg_fact.but_termin1') <> 'U' podg_fact.blocheaza_campuri() Endif If Type('podg_tl.but_termin1') <> 'U' podg_tl.blocheaza_campuri() Endif If Type('podg_obs.but_termin1') <> 'U' podg_obs.blocheaza_campuri() Endif Endif ENDPROC PROCEDURE Command2.Refresh IF THIS.PARENT.lLock THIS.PICTURE = 'lock.bmp' THIS.CAPTION = 'Modifica' ELSE THIS.PICTURE = 'unlock.bmp' THIS.CAPTION = 'Salveaza' ENDIF ENDPROC PROCEDURE Label3.Init DO CASE CASE gnParametru_prog = 1 THIS.CAPTION = 'Client' CASE gnParametru_prog = 2 THIS.CAPTION = 'Furnizor' ENDCASE ENDPROC ENDDEFINE DEFINE CLASS ct_part_nr_data_2 AS container *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdDenumire" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" /> * *m: blocheaza_campuri *m: deblocheaza_campuri *p: llock * * BackColor = 206,241,255 Height = 34 llock = .T. Name = "ct_part_nr_data_2" Width = 795 * ADD OBJECT '_shape1' AS _shape WITH ; Height = 34, ; Left = 0, ; Name = "_shape1", ; SpecialEffect = 0, ; Top = 0, ; Width = 795, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> ADD OBJECT 'cmdDenumire' AS commandbutton WITH ; Caption = "", ; Height = 22, ; Left = 371, ; Name = "cmdDenumire", ; Picture = ..\grafice\find.bmp, ; TabIndex = 2, ; Top = 5, ; Width = 29 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Partener", ; FontBold = .T., ; FontSize = 10, ; ForeColor = 255,0,0, ; Height = 18, ; Left = 7, ; Name = "Label3", ; TabIndex = 6, ; Top = 9, ; Width = 57 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. / Data contract", ; FontBold = .T., ; FontSize = 10, ; ForeColor = 255,0,0, ; Height = 18, ; Left = 440, ; Name = "Label4", ; TabIndex = 7, ; Top = 9, ; Width = 116 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "/", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 674, ; Name = "Label9", ; TabIndex = 8, ; Top = 9, ; Width = 6 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'lb_actAd' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. act ad.", ; FontBold = .T., ; FontSize = 8, ; Height = 16, ; Left = 440, ; Name = "lb_actAd", ; TabIndex = 8, ; Top = 18, ; Visible = .F., ; Width = 55 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'txtClient' AS textbox WITH ; ControlSource = "goContract.denumire", ; DisabledBackColor = 255,255,255, ; FontSize = 10, ; Format = "!k", ; Height = 21, ; Left = 80, ; Name = "txtClient", ; ReadOnly = .T., ; TabIndex = 5, ; Top = 6, ; Width = 289 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtData_ctr' AS textbox WITH ; ControlSource = "goContract.data", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 686, ; Name = "txtData_ctr", ; TabIndex = 4, ; Top = 6, ; Width = 102 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtNumar' AS textbox WITH ; ControlSource = "goContract.numar", ; FontSize = 10, ; Format = "k", ; Height = 21, ; Left = 554, ; Name = "txtNumar", ; TabIndex = 3, ; Top = 6, ; Width = 113 *< END OBJECT: BaseClass="textbox" /> PROCEDURE blocheaza_campuri this.cmdDenumire.Enabled = .F. this.txtNumar.ReadOnly = .T. this.txtData_ctr.ReadOnly = .T. ENDPROC PROCEDURE deblocheaza_campuri this.cmdDenumire.Enabled = .T. this.txtNumar.ReadOnly = .F. this.txtData_ctr.ReadOnly = .F. ENDPROC PROCEDURE cmdDenumire.Click LOCAL lcIdTipPart, lcTitlu STORE '' TO lcIdTipPart, lcTitlu * loCauta = caut_partener(lcIdTipPart, lcTitlu) DO CASE CASE gnParametru_prog = 1 && contracte clienti lcIdTipPart = [-1] lcTitlu = 'Clienti' lcLista = ['4111'] lcContul = '4111' CASE gnParametru_prog = 2 && contracte furnizori lcIdTipPart = [-2] lcTitlu = 'Furnizori' lcLista = ['401','404'] lcContul = '401' ENDCASE lnIdTipPart = GetContIdTipPart(lcContul) *!* IF !EMPTY(lcLista) *!* lcSql = [select distinct c.cont as cont_part, c.explicatie as explic_cont, c.id_tip_part as tip ] + ; *!* [from vcoresp_tip_cont c ] + ; *!* [where c.cont in (] + lcLista + [) ] *!* ENDIF *!* lcCursor = 'xcont' *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) *!* IF lnSucces < 0 *!* aMessagebox('Eroare!',0+48, 'Atentie!') *!* RETURN *!* ENDIF *!* SELECT xcont *!* BROWSE *!* SELECT xcont *!* LOCATE FOR VAL(cont_part) = VAL(lcContul) *!* lcContul = cont_part *!* lcTip = ALLTRIM(STR(tip)) locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart)))) IF buton = 2 RETURN ENDIF goContract.id_part = loCauta.id_part goContract.denumire = loCauta.denumire THIS.PARENT.txtClient.REFRESH * THISFORM.pageframe1.page1.txtClient.REFRESH ENDPROC PROCEDURE Label3.Init DO CASE CASE gnParametru_prog = 1 THIS.CAPTION = 'Client' CASE gnParametru_prog = 2 THIS.CAPTION = 'Furnizor' ENDCASE ENDPROC ENDDEFINE DEFINE CLASS cus_odata_actaditional AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> * Name = "cus_odata_actaditional" * PROCEDURE make_sql LPARAMETERS toRec,tnId lcActiune = ALLTRIM(THIS.cActiune) lcId_util = ALLTRIM(STR(gnidutil)) IF INLIST(lcActiune, "UPDATE",'INSERT') AND TYPE('toRec') != "O" RETURN .F. ENDIF IF INLIST(lcActiune, "UPDATE",'DELETE') AND TYPE('tnId') != "N" RETURN .F. ENDIF IF INLIST(lcActiune, "UPDATE",'DELETE') lcId = ALLTRIM(STR(tnId)) ENDIF IF INLIST(lcActiune, "UPDATE",'INSERT') lcId_ctr = NVL(ALLTRIM(STR(goContract.id_ctr)),"0") lcId_part = NVL(ALLTRIM(STR(goContract.id_part)),"0") lcId_tip_ctr = NVL(ALLTRIM(STR(goContract.id_tip_ctr)),"0") lcNumar = NVL(ALLTRIM(toRec.numar),"0") lcData = ALLTRIM(DTOS(toRec.data)) lcDescriere = NVL(ALLTRIM(toRec.descriere),"") ENDIF Do Case Case lcActiune = "INSERT" lcSql = [begin pack_crm.adauga_act_aditional(]+lcId_ctr+ [,]+lcId_part+ [,] + lcId_tip_ctr+[,']+ lcNumar+[',]+; [to_date(']+lcData+[','YYYYMMDD'),']+lcDescriere+ [',]+lcId_util+[); end;] Case lcActiune = "UPDATE" lcSql = [begin pack_def.modifica_contract(]+lcId+[,']+lcNumar+[',]+; [to_date(']+lcData+[','YYYYMMDD'),]+lcId_tip_ctr + [,]+lcInactiv+[,]+lcId_util+[); end;] Case lcActiune = "DELETE" lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] ENDCASE this.csql = lcSql ENDPROC ENDDEFINE DEFINE CLASS cus_odata_selectie AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> * Name = "cus_odata_selectie" * PROCEDURE make_sql Lparameters toRec,tnId lcActiune = Alltrim(This.cActiune) lcId_util = Alltrim(Str(gnIdUtil)) If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" Return .F. Endif If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" Return .F. Endif If Inlist(lcActiune, "UPDATE",'DELETE') lcId = Alltrim(Str(tnId)) Endif If Inlist(lcActiune, "UPDATE",'INSERT') lcSelectie = Strtran(Alltrim(toRec.selectie),['],['']) ENDIF Do Case Case lcActiune = "INSERT" lcSql = [begin PACK_CTR_FURNIZORI.adauga_selectie('] + lcSelectie + [',]+lcId_util+[); end;] Case lcActiune = "UPDATE" lcSql = [begin PACK_CTR_FURNIZORI.modifica_selectie(]+lcId +[,']+lcSelectie+ [',]+ lcId_util+[); end;] Case lcActiune = "DELETE" * lcSql = [begin pack_nomenclatoare.sterge_tip_ctr(]+lcId+[,]+lcId_util+[); end;] lcSql = [begin PACK_CTR_FURNIZORI.sterge_selectie(]+lcId+ [,]+ lcId_util+[); end;] Endcase This.csql = lcSql ENDPROC ENDDEFINE DEFINE CLASS frm_actaditional_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Clb_data" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Clb_numar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Clb_descriere" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cus_odata_actaditional1" UniqueID="" Timestamp="" /> * *p: nid *p: orec * * BorderStyle = 1 DoCreate = .T. Height = 143 Name = "frm_actaditional_nou" nid = .F. orec = .NULL. Width = 353 _shape1.Name = "_shape1" _shape2.Height = 29 _shape2.Left = 293 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 61 Lb_titlu_alb_b121.Caption = "ACT ADIȚIONAL" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 6 BUT_TERMIN1.Left = 324 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 4 BUT_TERMIN1.Top = 1 Gridsort1.Left = 96 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 8 * ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; Left = 295, ; Name = "BUT_RENUNT1", ; TabIndex = 5, ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Clb_data' AS clb_tx_simplu WITH ; Height = 29, ; Left = 7, ; Name = "Clb_data", ; TabIndex = 2, ; Top = 68, ; Width = 314, ; ZOrderSet = 7, ; TEXT_SIMPLU1.ControlSource = "poRec.data", ; TEXT_SIMPLU1.Format = "!K", ; TEXT_SIMPLU1.Left = 114, ; TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; Lb_simplu1.Caption = "Data", ; Lb_simplu1.Name = "Lb_simplu1" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Clb_descriere' AS clb_tx_simplu WITH ; Height = 29, ; Left = 7, ; Name = "Clb_descriere", ; TabIndex = 3, ; Top = 105, ; Width = 314, ; ZOrderSet = 7, ; Text_simplu1.ControlSource = "poRec.descriere", ; Text_simplu1.Format = "!K", ; Text_simplu1.Left = 114, ; Text_simplu1.Name = "Text_simplu1", ; Lb_simplu1.Caption = "Descriere", ; Lb_simplu1.Name = "Lb_simplu1" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Clb_numar' AS clb_tx_simplu WITH ; Height = 29, ; Left = 7, ; Name = "Clb_numar", ; TabIndex = 1, ; Top = 40, ; Width = 314, ; ZOrderSet = 7, ; Text_simplu1.ControlSource = "poRec.numar", ; Text_simplu1.Format = "!K", ; Text_simplu1.Left = 114, ; Text_simplu1.Name = "Text_simplu1", ; Lb_simplu1.Caption = "Număr", ; Lb_simplu1.Name = "Lb_simplu1" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Cus_odata_actaditional1' AS cus_odata_actaditional WITH ; Left = 180, ; Name = "Cus_odata_actaditional1", ; Top = 8 *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="custom" /> PROCEDURE inainte_de_do_termin Local plReturn lccontrol = Upper(This.ActiveControl.BaseClass ) If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") lcval=This.ActiveControl.ControlSource &lcval=Thisform.ActiveControl.Value Endif Do Case Case Empty(porec.numar) amessagebox('Nu ati completat numarul actului aditional!',0+48,"Atentie") this.clb_numar.texT_SIMPLU1.SetFocus() plReturn=.F. Case Empty(porec.data) amessagebox('Nu ati completat data actului aditional!',0+48,"Atentie") this.clb_data.texT_SIMPLU1.SetFocus() plReturn=.F. Case Empty(porec.descriere) amessagebox('Nu ati completat desrierea actului aditional!',0+48,"Atentie") this.clb_descriere.texT_SIMPLU1.SetFocus() plReturn=.F. Otherwise plReturn=This.cus_odata_actaditional1.salvare(This.OREC,This.NID) endcase Return plReturn ENDPROC PROCEDURE Init LPARAMETERS toRec, tnId, tcActiune DODEFAULT() THIS.orec = toRec THIS.nid = tnId this.cus_odata_actaditional1.cactiune = tcActiune ENDPROC ENDDEFINE DEFINE CLASS frm_alerte AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cDenumire.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cDenumire.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cNumar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cNumar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cData.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cData.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cValidat.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cValidat.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cNr_alerta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cNr_alerta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cDescriere.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_alerte.cDescriere.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="opt_validat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="opt_Instiintat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nr_alerta" UniqueID="" Timestamp="" /> * cgridsortlist = grid_alerte DoCreate = .T. Height = 573 Name = "frm_alerte" Width = 708 _SHAPE1.Anchor = 11 _SHAPE1.Height = 29 _SHAPE1.Left = 0 _SHAPE1.Name = "_SHAPE1" _SHAPE1.Top = 0 _SHAPE1.Width = 948 _SHAPE2.Anchor = 9 _SHAPE2.Height = 29 _SHAPE2.Left = 613 _SHAPE2.Name = "_SHAPE2" _SHAPE2.Top = 0 _SHAPE2.Width = 92 LB_TITLU_ALB_B121.Caption = "Alerte garanții" LB_TITLU_ALB_B121.Left = 6 LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" LB_TITLU_ALB_B121.TabIndex = 12 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 677 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 11 BUT_TERMIN1.Top = 1 GRIDSORT1.Left = 192 GRIDSORT1.Name = "GRIDSORT1" GRIDSORT1.Top = 6 * ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 9, ; Left = 645, ; Name = "But_excel1", ; TabIndex = 10, ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; caction = do_listare, ; Left = 614, ; Name = "But_listare1", ; TabIndex = 9, ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = data, ; Caption = "Data ctr.", ; FontName = "Arial Narrow", ; Left = 72, ; Name = "Ck_data_ctr", ; TabIndex = 2, ; tip = D, ; Top = 34, ; ZOrderSet = 4 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nr_alerta' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = nr_alerta, ; Caption = "Nr. alertă", ; FontName = "Arial Narrow", ; Left = 72, ; mask = 9, ; Name = "Ck_nr_alerta", ; TabIndex = 4, ; Top = 53 *< END OBJECT: ClassLib="..\..\roacont\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = numar, ; Caption = "Nr. ctr.", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_nr_ctr", ; TabIndex = 1, ; Top = 34, ; ZOrderSet = 15 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = denumire, ; Caption = "Partener", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_nume", ; TabIndex = 3, ; Top = 53, ; ZOrderSet = 14 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 547, ; Name = "Cmd_cauta1", ; TabIndex = 7, ; Top = 42, ; Width = 67, ; ZOrderSet = 21 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 619, ; Name = "Cmd_reset1", ; TabIndex = 17, ; Top = 42, ; Width = 67, ; ZOrderSet = 18 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grid_alerte' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 7, ; DeleteMark = .F., ; GridLines = 0, ; HeaderHeight = 38, ; Height = 429, ; Left = 6, ; Name = "grid_alerte", ; Panel = 1, ; RecordMark = .F., ; RecordSource = "cAlerte", ; ScrollBars = 2, ; TabIndex = 8, ; Top = 90, ; Width = 695, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "denumire", ; Column1.Name = "cDenumire", ; Column1.Width = 157, ; Column2.ColumnOrder = 2, ; Column2.ControlSource = "numar", ; Column2.Name = "cNumar", ; Column2.Width = 33, ; Column3.ColumnOrder = 3, ; Column3.ControlSource = "ttod(data)", ; Column3.Name = "cData", ; Column3.Width = 70, ; Column4.ColumnOrder = 6, ; Column4.ControlSource = "validat", ; Column4.Name = "cValidat", ; Column4.Sparse = .F., ; Column4.Width = 41, ; Column5.ColumnOrder = 7, ; Column5.ControlSource = "nr_alerta", ; Column5.Name = "cNr_alerta", ; Column5.Width = 33, ; Column6.ColumnOrder = 5, ; Column6.ControlSource = "Instiintat", ; Column6.CurrentControl = "Check1", ; Column6.FontName = "Arial", ; Column6.Name = "cInstiintat", ; Column6.Sparse = .F., ; Column6.Width = 35, ; Column7.ColumnOrder = 4, ; Column7.ControlSource = "descriere", ; Column7.Name = "cDescriere", ; Column7.Width = 298 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_alerte.cData.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data contr.", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_alerte.cData.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_alerte.cDenumire.Header1' AS header WITH ; Alignment = 2, ; Caption = "Partener", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_alerte.cDenumire.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_alerte.cDescriere.Header1' AS header WITH ; Alignment = 2, ; Caption = "Descriere alerta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_alerte.cDescriere.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_alerte.cInstiintat.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; FontName = "Arial", ; Height = 17, ; Left = 21, ; Name = "Check1", ; Top = 89, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_alerte.cInstiintat.Header1' AS header WITH ; Alignment = 2, ; Caption = "Insti- intat", ; FontName = "Arial Narrow", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_alerte.cInstiintat.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_alerte.cNr_alerta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr alerta", ; FontName = "Arial Narrow", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_alerte.cNr_alerta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_alerte.cNumar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. contr.", ; FontName = "Arial Narrow", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_alerte.cNumar.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_alerte.cValidat.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; FontName = "Arial", ; Height = 17, ; Left = 33, ; Name = "Check1", ; Top = 59, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grid_alerte.cValidat.Header1' AS header WITH ; Alignment = 2, ; Caption = "Validat", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Label1' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. alertă:", ; FontCharSet = 238, ; FontName = "Arial Narrow", ; Height = 18, ; Left = 6, ; Name = "Label1", ; TabIndex = 13, ; Top = 519, ; Width = 44 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "1 - depășire termen contractual", ; FontCharSet = 238, ; FontName = "Arial Narrow", ; Height = 18, ; Left = 50, ; Name = "Label2", ; TabIndex = 14, ; Top = 519, ; Width = 129 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "2 - restituire procent parțial din garanția reținută la factură (după nr. zile de la PVR)", ; FontCharSet = 238, ; FontName = "Arial Narrow", ; Height = 18, ; Left = 50, ; Name = "Label3", ; TabIndex = 15, ; Top = 531, ; Width = 339 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "3 - restituirea restului de garanție de pe toate facturile emise conform contractului (după perioada de garanție)", ; FontCharSet = 238, ; FontName = "Arial Narrow", ; Height = 18, ; Left = 50, ; Name = "Label4", ; TabIndex = 16, ; Top = 543, ; Width = 445 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "4 - apropiere ultima rată definită", ; FontCharSet = 238, ; FontName = "Arial Narrow", ; Height = 18, ; Left = 50, ; Name = "Label5", ; TabIndex = 18, ; Top = 555, ; Width = 130 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'opt_Instiintat' AS optiongroup WITH ; AutoSize = .F., ; BackStyle = 0, ; ButtonCount = 3, ; Height = 51, ; Left = 271, ; Name = "opt_Instiintat", ; TabIndex = 6, ; Top = 34, ; Value = 1, ; Width = 97, ; Option1.AutoSize = .T., ; Option1.BackStyle = 0, ; Option1.Caption = "Alerte neînștiințate", ; Option1.FontCharSet = 238, ; Option1.FontName = "Arial Narrow", ; Option1.Height = 18, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 1, ; Option1.Value = 1, ; Option1.Width = 92, ; Option2.AutoSize = .T., ; Option2.BackStyle = 0, ; Option2.Caption = "Alerte înștiințate", ; Option2.FontCharSet = 238, ; Option2.FontName = "Arial Narrow", ; Option2.Height = 18, ; Option2.Left = 5, ; Option2.Name = "Option2", ; Option2.Top = 16, ; Option2.Width = 82, ; Option3.AutoSize = .T., ; Option3.BackStyle = 0, ; Option3.Caption = "Toate alertele", ; Option3.FontName = "Arial Narrow", ; Option3.Height = 18, ; Option3.Left = 5, ; Option3.Name = "Option3", ; Option3.Top = 32, ; Option3.Width = 72 *< END OBJECT: BaseClass="optiongroup" /> ADD OBJECT 'opt_validat' AS optiongroup WITH ; AutoSize = .F., ; BackStyle = 0, ; ButtonCount = 3, ; Height = 51, ; Left = 168, ; Name = "opt_validat", ; TabIndex = 5, ; Top = 36, ; Value = 1, ; Width = 97, ; Option1.AutoSize = .T., ; Option1.BackStyle = 0, ; Option1.Caption = "Alerte nevalidate", ; Option1.FontName = "Arial Narrow", ; Option1.Height = 18, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 1, ; Option1.Value = 1, ; Option1.Width = 87, ; Option2.AutoSize = .T., ; Option2.BackStyle = 0, ; Option2.Caption = "Alerte validate", ; Option2.FontName = "Arial Narrow", ; Option2.Height = 18, ; Option2.Left = 5, ; Option2.Name = "Option2", ; Option2.Top = 16, ; Option2.Width = 77, ; Option3.AutoSize = .T., ; Option3.BackStyle = 0, ; Option3.Caption = "Toate alertele", ; Option3.FontName = "Arial Narrow", ; Option3.Height = 18, ; Option3.Left = 5, ; Option3.Name = "Option3", ; Option3.Top = 32, ; Option3.Width = 72 *< END OBJECT: BaseClass="optiongroup" /> PROCEDURE actualizeaza_grid1 Lparameters pcFiltru Local lcFiltru lcFiltru = pcFiltru If Empty(lcFiltru) lcFiltru = poAlerte.ca_baza1.cfiltru Endif save_grid_tag(This.grid_alerte) poAlerte.ca_baza1.cfiltru = lcFiltru poAlerte.ca_baza1.afisare() restore_grid_tag(This.grid_alerte) If Reccount('cAlerte')>0 Select cAlerte Go Top This.grid_alerte.SetFocus() Endif ENDPROC PROCEDURE do_cauta Local lcFiltru lcFiltru = "" If This.ck_nume.Value = 1 lcFiltru = lcFiltru + This.ck_nume.filtru Endif If This.ck_nr_ctr.Value = 1 lcFiltru = lcFiltru + This.ck_nr_ctr.filtru Endif If This.ck_data_ctr.Value = 1 lcFiltru = lcFiltru + This.ck_data_ctr.filtru Endif If This.ck_nr_alerta.Value = 1 lcFiltru = lcFiltru + This.ck_nr_alerta.filtru ENDIF Do Case Case This.opt_validat.Value = 1 lcFiltru = lcFiltru + [ and validat = 0] Case This.opt_validat.Value = 2 lcFiltru = lcFiltru + [ and validat = 1] ENDCASE Do Case Case This.opt_Instiintat.Value = 1 lcFiltru = lcFiltru + [ and instiintat = 0] Case This.opt_Instiintat.Value = 2 lcFiltru = lcFiltru + [ and instiintat = 1] Endcase If !Empty(lcFiltru) lcFiltru = Substr(lcFiltru,6) Else lcFiltru = [1=1] Endif This.actualizeaza_grid1(lcFiltru) If Reccount('cAlerte')=0 aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare") Endif this.grid_alerte.SetFocus() ENDPROC PROCEDURE do_listare thisform.AlwaysOnTop=.f. pcdataora = get_Ora(2) SELECT cAlerte REPORT FORM ralerte TO PRINTER PROMPT PREVIEW thisform.AlwaysOnTop=.t. ENDPROC PROCEDURE do_reset With This For i=1 To .Objects.Count If Upper(.Objects(i).BaseClass)='CHECKBOX' .Objects(i).Value=0 Endif Endfor ENDWITH this.opt_validat.Value = 1 this.opt_Instiintat.Value = 1 this.ck_nr_ctr.SetFocus() ENDPROC PROCEDURE inainte_de_do_excel DO export_excel_grid WITH this.grid_alerte ENDPROC PROCEDURE grid_alerte.cInstiintat.Check1.Valid Private pnId_ctr, pnNr_alerta Store 0 To pnId_ctr, pnNr_alerta Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) pnId= id lcSql = [update ctr_log_alerte set instiintat = 1,ID_UTIL_INST = ?gnIdUtil,dataora_inst = sysdate where id=?pnId;] lnSucces = goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") Return Endif *!* Else *!* AMESSAGEBOX('Nu se poate modifica starea unei alerte validate deja!') *!* Endif ENDPROC PROCEDURE grid_alerte.cInstiintat.Check1.When Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) If instiintat = 1 Return .F. Endif ENDPROC PROCEDURE grid_alerte.cValidat.Check1.LostFocus thisform.grid_alerte.Refresh ENDPROC PROCEDURE grid_alerte.cValidat.Check1.Valid Private pnId_ctr, pnNr_alerta Store 0 To pnId_ctr, pnNr_alerta *!* If instiintat <> 1 *!* Messagebox('Pentru a valida o alerta, aceasta trebuie sa fie instiintata',0+16,'Atentie') *!* Replace Validat With 0 *!* Return *!* Endif Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) pnId_ctr = id_ctr pnNr_alerta = nr_alerta lcSql = [begin pack_crm.valideaza_alerta(?pnId_ctr, ?pnNr_alerta, ?gnIdUtil); end;] lnSucces = goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") Return Endif thisform.grid_alerte.Refresh *!* Else *!* AMESSAGEBOX('Nu se poate modifica starea unei alerte validate deja!') *!* Endif ENDPROC PROCEDURE grid_alerte.cValidat.Check1.When Local lcTabel lcTabel = This.Parent.Parent.RecordSource Select (lcTabel) If Validat = 1 Return .F. ENDIF If instiintat <> 1 aMessagebox('Pentru a valida o alerta, aceasta trebuie sa fie instiintata!',48,'Atentie') RETURN .F. ENDIF ENDPROC PROCEDURE Label5.Init IF gnParametru_prog=1 this.Visible= .T. ELSE this.Visible= .F. ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_atas_fact_curs AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValvaluta" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtCurs" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdValuta" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValvalutactva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtProc_tva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> * BorderStyle = 1 DoCreate = .T. Height = 146 Name = "frm_atas_fact_curs" Width = 344 _shape1.Anchor = 11 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 324 _shape2.Anchor = 9 _shape2.Height = 29 _shape2.Left = 281 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 60 Lb_titlu_alb_b121.Caption = "Date suplimentare" Lb_titlu_alb_b121.Left = 10 Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 8 Lb_titlu_alb_b121.Top = 6 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 313 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 6 BUT_TERMIN1.Top = 1 Gridsort1.Left = 180 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 6 * ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 283, ; Name = "But_renunt1", ; TabIndex = 7, ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'cmdValuta' AS commandbutton WITH ; Caption = "", ; FontName = "Arial Narrow", ; Height = 25, ; Left = 258, ; Name = "cmdValuta", ; Picture = ..\grafice\find.bmp, ; TabIndex = 5, ; Top = 114, ; Width = 28 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare valută (fără TVA)", ; FontCharSet = 238, ; Height = 17, ; Left = 10, ; Name = "Label1", ; TabIndex = 12, ; Top = 91, ; Width = 135 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label17' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valuta", ; Height = 17, ; Left = 10, ; Name = "Label17", ; TabIndex = 15, ; Top = 117, ; Width = 36 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Curs", ; Height = 17, ; Left = 10, ; Name = "Label2", ; TabIndex = 13, ; Top = 39, ; Width = 29 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare valută (cu TVA)", ; FontCharSet = 238, ; Height = 17, ; Left = 10, ; Name = "Label3", ; TabIndex = 11, ; Top = 65, ; Width = 127 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "Proc TVA", ; FontName = "Arial Narrow", ; Height = 35, ; Left = 262, ; Name = "Label4", ; TabIndex = 9, ; Top = 56, ; Width = 20, ; WordWrap = .T. *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "%", ; Height = 17, ; Left = 325, ; Name = "Label5", ; TabIndex = 10, ; Top = 65, ; Width = 13 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'txtCurs' AS textbox WITH ; ControlSource = "pnFA_curs", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(10,gnPCurs)), ; Left = 155, ; Name = "txtCurs", ; TabIndex = 1, ; Top = 36, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtProc_tva' AS textbox WITH ; ControlSource = "pnFA_procTva", ; Format = "rk", ; Height = 23, ; InputMask = "99", ; Left = 286, ; Name = "txtProc_tva", ; TabIndex = 3, ; Top = 62, ; Width = 39 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValuta' AS textbox WITH ; ControlSource = "pcFA_nume_val", ; Height = 23, ; Left = 155, ; Name = "txtValuta", ; ReadOnly = .T., ; TabIndex = 14, ; Top = 114, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValvaluta' AS textbox WITH ; ControlSource = "pnFA_valvaluta", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(10,gnPc)), ; Left = 155, ; Name = "txtValvaluta", ; TabIndex = 4, ; Top = 88, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValvalutactva' AS textbox WITH ; ControlSource = "pnFA_valvalutacTVA", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(10,gnPc)), ; Left = 155, ; Name = "txtValvalutactva", ; TabIndex = 2, ; Top = 62, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> PROCEDURE cmdValuta.Click locauta = caut_valuta() If buton=2 Return Endif pnFA_id_valuta = locauta.id_valuta pcFA_nume_val = locauta.nume_val *!* modificare v 2.0.46 With Thisform.txtVALVALUTA .InputMask = get_mask(10,Iif(locauta.moneda_nationala=1,gnPc,gnPVal)) .Refresh() Endwith With Thisform.txtValvalutactva .InputMask = get_mask(10,Iif(locauta.moneda_nationala=1,gnPc,gnPVal)) .Refresh() Endwith *!* modificare v 2.0.46 ^ Thisform.txtValuta.Refresh ENDPROC PROCEDURE txtProc_tva.LostFocus pnFa_valvaluta = pnFa_valvalutactva / (1 + pnFA_procTva/100) thisform.txtValvaluta.Refresh ENDPROC ENDDEFINE DEFINE CLASS frm_atas_fact_iregpart AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="grid_Fact_iregPart" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column3.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column3.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column4.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column4.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column5.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column6.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column6.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column7.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column7.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column8.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column8.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> * cgridsortlist = grid_Fact_iregPart DoCreate = .T. Height = 480 Name = "frm_atas_fact_iregpart" Width = 757 _SHAPE1.Anchor = 11 _SHAPE1.Height = 29 _SHAPE1.Left = 0 _SHAPE1.Name = "_SHAPE1" _SHAPE1.Top = 0 _SHAPE1.Width = 765 _SHAPE2.Anchor = 9 _SHAPE2.Height = 29 _SHAPE2.Left = 695 _SHAPE2.Name = "_SHAPE2" _SHAPE2.Top = 0 _SHAPE2.Width = 61 LB_TITLU_ALB_B121.Caption = "Facturi partener" LB_TITLU_ALB_B121.Left = 6 LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 727 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 168 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 9 * ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 696, ; Name = "But_renunt1", ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = dataact, ; Caption = "Data fact.", ; FontName = "Arial Narrow", ; Left = 63, ; Name = "Ck_data_fact", ; TabIndex = 1, ; tip = D, ; Top = 36, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = nract, ; Caption = "Nr. fact.", ; FontName = "Arial Narrow", ; Left = 6, ; mask = (replicate('9',12)), ; Name = "Ck_nr_fact", ; TabIndex = 4, ; Top = 36, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 432, ; Name = "Cmd_cauta1", ; TabIndex = 34, ; Top = 33, ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 522, ; Name = "Cmd_reset1", ; TabIndex = 45, ; Top = 33, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Command1' AS commandbutton WITH ; AutoSize = .T., ; Caption = "Atașează factura la contract", ; FontCharSet = 238, ; Height = 27, ; Left = 357, ; Name = "Command1", ; Top = 444, ; Width = 167 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Command2' AS commandbutton WITH ; AutoSize = .T., ; Caption = "Detașează factura de pe contract", ; FontCharSet = 238, ; Height = 27, ; Left = 545, ; Name = "Command2", ; Top = 444, ; Width = 197 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'grid_Fact_iregPart' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 8, ; DeleteMark = .F., ; HeaderHeight = 38, ; Height = 363, ; HighlightStyle = 2, ; Left = 6, ; Name = "grid_Fact_iregPart", ; Panel = 1, ; RecordSource = "cFact_neatas", ; Top = 68, ; Width = 743, ; Column1.ControlSource = "fdoc", ; Column1.Name = "Column1", ; Column2.ControlSource = "nract", ; Column2.Name = "Column2", ; Column3.ControlSource = "ttod(dataact)", ; Column3.Name = "Column3", ; Column4.ControlSource = "suma", ; Column4.Format = "rk", ; Column4.InputMask = (get_mask(14,gnPc)), ; Column4.Name = "Column4", ; Column4.Width = 113, ; Column5.ControlSource = "explicatia", ; Column5.Name = "Column5", ; Column5.Width = 122, ; Column6.ControlSource = "id_fact", ; Column6.Name = "Column6", ; Column7.ControlSource = "cod", ; Column7.Name = "Column7", ; Column8.ControlSource = "contract", ; Column8.Name = "Column8", ; Column8.Width = 94 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_Fact_iregPart.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Fel doc", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_iregPart.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr doc", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_iregPart.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data doc", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_iregPart.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Suma lei cu TVA", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column4.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_iregPart.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatia", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column5.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_iregPart.Column6.Header1' AS header WITH ; Alignment = 2, ; Caption = "ID fact", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column6.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_iregPart.Column7.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_Fact_iregPart.Column8.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_Fact_iregPart.Column8.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 LPARAMETERS pcFiltru LOCAL lcFiltru lcFiltru = pcFiltru IF EMPTY(lcFiltru) lcFiltru = poFactGaran.ca_baza1.cfiltru ENDIF save_grid_tag(thisform.grid_Fact_iregPart) poFactGaran.ca_baza1.cfiltru = lcFiltru poFactGaran.ca_baza1.afisare() restore_grid_tag(thisform.grid_Fact_iregPart) IF RECCOUNT('cFact_neatas')>0 thisform.grid_Fact_iregPart.SetFocus() ENDIF ENDPROC PROCEDURE do_cauta Local lcFiltru lcFiltru = "" If This.ck_nr_fact.Value = 1 lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru Endif If This.ck_data_fact.Value = 1 lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru Endif lcFiltru = [ and id_part = ]+ Alltrim(Str(goContract.id_part))+; [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + lcFiltru lcFiltru = Substr(lcFiltru,6) Thisform.actualizeaza_grid1(lcFiltru) Thisform.grid_Fact_iregPart.SetFocus() ENDPROC PROCEDURE do_reset With This For i=1 To .Objects.Count If Upper(.Objects(i).BaseClass)='CHECKBOX' .Objects(i).Value=0 Endif Endfor ENDWITH ENDPROC PROCEDURE Command1.Click LOCAL lnId_fact, lnCod STORE 0 TO lnId_fact, lnCod SELECT cFact_neatas lnId_fact = id_fact lnCod = cod lcSql=[update act set id_ctr=]+ALLTRIM(STR(goContract.id_ctr))+; [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) lnSucces=goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') ENDIF lcSql=[update ireg_parteneri set id_ctr=]+ALLTRIM(STR(goContract.id_ctr))+; [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) lnSucces=goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') ENDIF thisform.do_cauta() ENDPROC PROCEDURE Command2.Click LOCAL lnId_fact, lnCod STORE 0 TO lnId_fact, lnCod SELECT cFact_neatas lnId_fact = id_fact lnCod = cod lcSql=[update act set id_ctr = NULL ]+; [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) lnSucces=goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') ENDIF lcSql=[update ireg_parteneri set id_ctr = NULL ]+; [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) lnSucces=goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') ENDIF thisform.do_cauta() ENDPROC PROCEDURE grid_Fact_iregPart.Init this.SetAll("DynamicBackColor","IIF(atasata=1, RGB(206,255,255), RGB(255,255,255))", "Column") ENDPROC ENDDEFINE DEFINE CLASS frm_atasare_facturi AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="grid_fact_atas" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtSumaRate" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtSumaFacturi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="optFactAtas" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ct_part_nr_data1" UniqueID="" Timestamp="" /> * *m: afisactual *p: nsumafact *p: nsumarate * * BorderStyle = 1 cgridsortlist = grid_scadentar;grid_fact_atas DoCreate = .T. Height = 514 Name = "frm_atasare_facturi" nsumafact = 0 nsumarate = 0 Width = 795 _SHAPE1.Anchor = 11 _SHAPE1.Height = 29 _SHAPE1.Left = 0 _SHAPE1.Name = "_SHAPE1" _SHAPE1.Top = 0 _SHAPE1.Width = 792 _SHAPE2.Anchor = 9 _SHAPE2.Height = 29 _SHAPE2.Left = 727 _SHAPE2.Name = "_SHAPE2" _SHAPE2.Top = 0 _SHAPE2.Width = 70 LB_TITLU_ALB_B121.Caption = "Facturi asociate la scadentar" LB_TITLU_ALB_B121.Left = 12 LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" LB_TITLU_ALB_B121.Top = 6 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 763 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 204 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 5 * ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 732, ; Name = "But_listare1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; Left = 746, ; Name = "But_sterge1", ; Top = 118, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Command1' AS commandbutton WITH ; Anchor = 3, ; AutoSize = .T., ; Caption = "Atașare facturi", ; FontCharSet = 238, ; Height = 27, ; Left = 258, ; Name = "Command1", ; Top = 118, ; Width = 84, ; WordWrap = .T. *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Ct_part_nr_data1' AS ct_part_nr_data WITH ; BorderColor = 255,255,255, ; Height = 70, ; Left = 3, ; Name = "Ct_part_nr_data1", ; Top = 36, ; Width = 600, ; CMDDENUMIRE.Name = "CMDDENUMIRE", ; CMDDENUMIRE.Visible = .F., ; CMDDENUMIRE.ZOrderSet = 2, ; LABEL3.Left = 16, ; LABEL3.Name = "LABEL3", ; LABEL3.Top = 13, ; LABEL3.ZOrderSet = 3, ; TXTCLIENT.Left = 87, ; TXTCLIENT.Name = "TXTCLIENT", ; TXTCLIENT.Top = 10, ; TXTCLIENT.ZOrderSet = 4, ; LABEL4.Left = 16, ; LABEL4.Name = "LABEL4", ; LABEL4.Top = 41, ; LABEL4.ZOrderSet = 5, ; TXTNUMAR.Left = 87, ; TXTNUMAR.Name = "TXTNUMAR", ; TXTNUMAR.Top = 38, ; TXTNUMAR.ZOrderSet = 6, ; LABEL9.Left = 209, ; LABEL9.Name = "LABEL9", ; LABEL9.Top = 40, ; LABEL9.ZOrderSet = 7, ; TXTDATA_CTR.Left = 288, ; TXTDATA_CTR.Name = "TXTDATA_CTR", ; TXTDATA_CTR.Top = 37, ; TXTDATA_CTR.ZOrderSet = 8, ; COMMAND2.Name = "COMMAND2", ; COMMAND2.Visible = .F., ; COMMAND2.ZOrderSet = 0, ; lb_actAd.Name = "lb_actAd" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ADD OBJECT 'grid_fact_atas' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 10, ; DeleteMark = .F., ; GridLineColor = 192,192,192, ; HeaderHeight = 38, ; Height = 323, ; Left = 363, ; Name = "grid_fact_atas", ; Panel = 1, ; RecordSource = "cFactAtas", ; Top = 154, ; Width = 423, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "id_fact", ; Column1.Name = "Column1", ; Column1.Width = 50, ; Column2.ColumnOrder = 2, ; Column2.ControlSource = "valvaluta", ; Column2.Format = "rk", ; Column2.InputMask = (get_mask(14,MAX(gnPC,gnPVal))), ; Column2.Name = "Column2", ; Column2.Width = 81, ; Column3.ColumnOrder = 5, ; Column3.ControlSource = "curs", ; Column3.Format = "rk", ; Column3.InputMask = (get_mask(10,gnPCurs)), ; Column3.Name = "Column3", ; Column3.Width = 48, ; Column4.ColumnOrder = 6, ; Column4.ControlSource = "nume_val", ; Column4.Name = "Column4", ; Column4.Width = 55, ; Column5.ColumnOrder = 8, ; Column5.ControlSource = "nract", ; Column5.Name = "Column5", ; Column5.Width = 56, ; Column6.ColumnOrder = 9, ; Column6.ControlSource = "ttod(dataact)", ; Column6.Name = "Column6", ; Column6.Width = 41, ; Column7.ColumnOrder = 7, ; Column7.ControlSource = "fdoc", ; Column7.Name = "Column7", ; Column7.Width = 53, ; Column8.ColumnOrder = 10, ; Column8.ControlSource = "explicatia", ; Column8.Name = "Column8", ; Column8.Width = 111, ; Column9.ColumnOrder = 3, ; Column9.ControlSource = "valvalutactva", ; Column9.InputMask = (get_mask(20,MAX(gnPC,gnPVal))), ; Column9.Name = "Column9", ; Column9.Width = 84, ; Column10.ColumnOrder = 4, ; Column10.ControlSource = "proctva", ; Column10.Name = "Column10", ; Column10.Width = 47 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_fact_atas.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "ID fact.", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column10.Header1' AS header WITH ; Alignment = 2, ; Caption = "Proc TVA (%)", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column10.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta (fara TVA)", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column4.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr fact", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column5.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column6.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data fact", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column6.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column7.Header1' AS header WITH ; Alignment = 2, ; Caption = "Fel doc", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column8.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatia", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column8.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_fact_atas.Column9.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta (cu TVA)", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_fact_atas.Column9.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar' AS _grdrow WITH ; Anchor = 7, ; ColumnCount = 5, ; DeleteMark = .F., ; FontName = "Arial Narrow", ; GridLineColor = 192,192,192, ; HeaderHeight = 38, ; Height = 323, ; HighlightStyle = 2, ; Left = 3, ; Name = "grid_scadentar", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .F., ; RecordSource = "cCtrScadentar", ; RowHeight = 18, ; TabIndex = 1, ; Top = 154, ; Width = 351, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "nr_rata", ; Column1.FontName = "Arial Narrow", ; Column1.Name = "cNr_rata", ; Column1.ReadOnly = .T., ; Column1.Width = 29, ; Column2.ColumnOrder = 3, ; Column2.ControlSource = "data_rata", ; Column2.FontName = "Arial Narrow", ; Column2.Name = "cData_rata", ; Column2.ReadOnly = .T., ; Column2.Width = 55, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "valrata", ; Column3.FontName = "Arial Narrow", ; Column3.Format = "rk", ; Column3.InputMask = (get_mask(20,MAX(gnPC,gnPVal))), ; Column3.Name = "cValrata", ; Column3.ReadOnly = .T., ; Column3.Width = 97, ; Column4.ColumnOrder = 2, ; Column4.ControlSource = "den_rata", ; Column4.FontName = "Arial Narrow", ; Column4.Name = "cDen_rata", ; Column4.ReadOnly = .T., ; Column4.Width = 99, ; Column5.ColumnOrder = 5, ; Column5.ControlSource = "nume_val", ; Column5.FontName = "Arial Narrow", ; Column5.Name = "cNume_val", ; Column5.ReadOnly = .T., ; Column5.Width = 45 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data facturarii", ; FontName = "Arial Narrow", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Denumire rata", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. rata", ; FontName = "Arial Narrow", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare rata valuta (fara TVA)", ; FontName = "Arial Narrow", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; Anchor = 6, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total valoare rate", ; Height = 17, ; Left = 96, ; Name = "Label1", ; Top = 485, ; Width = 96 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; Anchor = 12, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total valori facturi", ; Height = 17, ; Left = 527, ; Name = "Label2", ; Top = 482, ; Width = 97 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'optFactAtas' AS optiongroup WITH ; AutoSize = .F., ; BackStyle = 0, ; ButtonCount = 2, ; Height = 37, ; Left = 444, ; Name = "optFactAtas", ; Top = 115, ; Value = 1, ; Width = 161, ; Option1.AutoSize = .T., ; Option1.BackStyle = 0, ; Option1.Caption = "Facturile atașate la rată", ; Option1.FontCharSet = 238, ; Option1.FontName = "Arial Narrow", ; Option1.Height = 18, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 2, ; Option1.Value = 1, ; Option1.Width = 113, ; Option2.AutoSize = .T., ; Option2.BackStyle = 0, ; Option2.Caption = "Toate facturile atașate la contract", ; Option2.FontCharSet = 238, ; Option2.FontName = "Arial Narrow", ; Option2.Height = 18, ; Option2.Left = 5, ; Option2.Name = "Option2", ; Option2.Top = 16, ; Option2.Width = 151 *< END OBJECT: BaseClass="optiongroup" /> ADD OBJECT 'txtSumaFacturi' AS textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nSumaFact", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(14,gnPc)), ; Left = 633, ; Name = "txtSumaFacturi", ; Top = 482, ; Width = 153 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtSumaRate' AS textbox WITH ; Anchor = 6, ; ControlSource = "thisform.nSumaRate", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(14,gnPc)), ; Left = 201, ; Name = "txtSumaRate", ; Top = 482, ; Width = 153 *< END OBJECT: BaseClass="textbox" /> PROCEDURE actualizeaza_grid2 LPARAMETERS pcFiltru LOCAL lcFiltru lcFiltru = pcFiltru IF EMPTY(lcFiltru) lcFiltru = poFact_atas.ca_baza1.cfiltru ENDIF save_grid_tag(thisform.grid_fact_atas) poFact_atas.ca_baza1.cfiltru = lcFiltru poFact_atas.ca_baza1.afisare() restore_grid_tag(thisform.grid_fact_atas) IF RECCOUNT('cFactAtas')>0 thisform.grid_fact_atas.SetFocus() ENDIF ENDPROC PROCEDURE afisactual LOCAL lcTabelFact lcTabelFact = thisform.grid_fact_atas.RecordSource SELECT (lcTabelFact) CALCULATE SUM(ROUND(NVL(valvaluta,0),gnPC)) TO thisform.nSumafact thisform.txtSumaFacturi.Refresh ENDPROC PROCEDURE inainte_de_do_listare lcSel = [{call pack_crm.situatie_rate(] + Alltrim(Str(goContract.id_ctr)) + [)}] lcCursor = 'cSitRate' If goExecutor.oExecuta(lcSel, lcCursor) Private pcPartener, pcNrData, pcValuta pcPartener = Nvl(Alltrim(goContract.denumire),'') pcNrData = Nvl(Alltrim(goContract.numar),'')+' / ' + Nvl(Dtoc(goContract.Data),'') pcValuta = Nvl(Alltrim(goContract.nume_val),'') pcTitlu = 'Situația ratelor' Thisform.AlwaysOnTop = .F. *** Select * From (lcCursor) Into Cursor cList Readwrite Use In (lcCursor) Select id_rata, Cnt(id_rata) As Cnt ; FROM cList ; HAVING Cnt > 1 ; GROUP By 1 Order By 2 ; INTO Cursor crsDuplicate Select crsDuplicate Scan lnId_rata = id_rata lnCount = Cnt - 1 lnGasit = 0 Select cList Locate For id_rata = lnId_rata Do While Found( ) lnGasit = lnGasit + 1 If lnGasit > 1 Replace nr_rata With .Null., den_rata With .Null., data_rata With .Null., valrata With .Null., sumvalrate With .Null., valfact With .Null. Endif Continue Enddo Endscan *** If Used('crsDuplicate') Use In crsDuplicate Endif goExport.export2frx([cList],[rRate_facturi_extins]) If Used('cList') Use In cList Endif Thisform.AlwaysOnTop = .T. Endif ENDPROC PROCEDURE inainte_de_do_sterge LOCAL lcFact_atas, lnId_rata, lnId_fact, lcSql, lnSucces lcFact_atas = THISFORM.grID_FACT_ATAS.RECORDSOURCE SELECT (lcFact_atas) lnId_rata = id_rata lnId_fact = id_fact lcSql = [begin pack_crm.sterge_rata_fact(] + ALLTRIM(STR(lnId_rata)) + [,] ; + ALLTRIM(STR(lnId_fact)) + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;] lnSucces = goExecutor.oExecute(lcSql) IF lnSucces < 0 aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") RETURN ENDIF THISFORM.actualizeaza_grid2() ENDPROC PROCEDURE Init DODEFAULT() LOCAL lcTabelRate, lcTabelFact lcTabelRate = thisform.grid_scadentar.RecordSource lcTabelFact = thisform.grid_fact_atas.RecordSource SELECT (lcTabelRate) CALCULATE SUM(ROUND(NVL(valrata,0),gnPC)) TO thisform.nSumarate SELECT (lcTabelFact) CALCULATE SUM(ROUND(NVL(valvaluta,0),gnPC)) TO thisform.nSumafact thisform.txtSumaRate.Refresh thisform.txtSumaFacturi.Refresh ENDPROC PROCEDURE Release IF USED('cRate') USE IN cRate ENDIF ENDPROC PROCEDURE Command1.Click Local lcSel, lcCursor, lnSucces, lcScadentar, lnId_fact, lnId_rata, lcSql, lnSucces *!* lcSel = [{call pack_crm.facturi_neatasate(] + ALLTRIM(STR(gnParametru_prog))+ [,] + ALLTRIM(STR(goContract.id_part)) + [,]+ALLTRIM(STR(goContract.id_ctr))+ [)}] *!* lcCursor = 'cFact_neatas' *!* lnSucces = goExecutor.oExecute(lcSel, lcCursor) *!* IF lnSucces < 0 *!* amessage(goExecutor.cEroare,0+16,"Eroare") *!* RETURN *!* ENDIF Private poFactGaran Store '' To poFactGaran Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal lcOrder = [dataact desc] lcgroup = [] lcFiltru = [ 1=1 ] Do Case Case gnParametru_prog=1 lcSchema = [] lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, ]+; [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; [ from vireg_emise_in_perioada ] lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] Case gnParametru_prog=2 lcSchema = [] lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, ]+; [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; [ from vireg_emise_in_perioada ] lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] Otherwise lcFiltruOriginal = [] Endcase llAfiseaza = .F. llModParam = .T. gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poFactGaran.ca_baza1.afisare() ***---------------------------- lcScadentar = Thisform.grid_scadentar.RecordSource Select cFact_neatas loip = Createobject('frm_atas_fact_iregpart') loip.lb_titlu_alb_b121.Caption = 'Facturi fara contract sau corespunzatoare contractului '+Alltrim(goContract.numar) + ' / ' + Dtoc(goContract.Data) loip.Show(1) If buton = 2 Return Endif Private pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_valctva, pnFA_curs, pnFA_id_valuta, pcFA_nume_val, pnValRata Store 0 To pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_curs, pnFA_id_valuta, pnValRata Store '' To pcFA_nume_val pnFA_valctva = cFact_neatas.suma Select (lcScadentar) lnId_rata = id_rata pnFA_id_valuta = id_valuta pcFA_nume_val = Upper(Alltrim(nume_val)) pnValRata = valrata && ca sa aflu cursul pnFA_valvaluta = pnValRata pnFA_procTVA = goContract.proc_tva pnFA_valvalutacTVA = Round(pnFA_valvaluta * (1+pnFA_procTVA/100),gnPC) *IF pnFA_valctva <> 0 If pnFA_valvalutacTVA <> 0 pnFA_curs = Round(pnFA_valctva/pnFA_valvalutacTVA,gnPCurs) Endif loafc = Createobject('frm_atas_fact_curs') loafc.Show(1) If buton = 2 Return Endif lnId_fact = cFact_neatas.id_fact If !Empty(lnId_fact) lcSql = [begin pack_crm.adauga_rata_fact(] + Alltrim(Str(lnId_rata)) + [,] + Alltrim(Str(lnId_fact)) + [,] ; + Alltrim(Str(pnFA_valvaluta,14,gnPC)) + [,] + Alltrim(Str(pnFA_valvalutacTVA,14,gnPC)) + [,] + Alltrim(Str(pnFA_procTVA)) + [,] ; + Alltrim(Str(pnFA_curs,10,gnPCurs)) + [,] + Alltrim(Str(pnFA_id_valuta)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;] lnSucces = goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX('pack_crm.cauta_ctr_art'+goExecutor.cEroare,0+16,"Eroare") Return Endif Thisform.actualizeaza_grid2() *!* lcId_ctr = ALLTRIM(STR(goContract.id_ctr)) *!* lcId_fact = ALLTRIM(STR(lnId_fact)) *!* lcSql = [update act set id_ctr=] + lcId_ctr + [ where id_fact=]+lcId_fact + [ and id_ctr is null and sters=0] *!* lnSucces = goExecutor.oExecute(lcSql) *!* IF lnSucces < 0 *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") *!* RETURN *!* ENDIF Endif ENDPROC PROCEDURE grid_fact_atas.AfterRowColChange LPARAMETERS nColIndex SELECT cFactAtas lnId_fact = id_fact lcTabelScadentar = thisform.grid_scadentar.RecordSource UPDATE (lcTabelScadentar) SET lid_fact = 0 IF USED('cRate') USE IN cRate ENDIF SELECT id_rata FROM cFactAtas WHERE id_fact = lnId_fact INTO CURSOR cRate UPDATE (lcTabelScadentar) SET lid_fact = 1 WHERE id_rata in (select id_rata from cRate) thisform.grid_scadentar.SetAll('DynamicBackColor','IIF(cCtrScadentar.Lid_fact=1, RGB(217,217,255), RGB(255,255,255))','Column') ENDPROC PROCEDURE grid_scadentar.AfterRowColChange LPARAMETERS nColIndex LOCAL lcTabelFactAtas lcTabelFactAtas = thisform.grid_fact_atas.RecordSource IF thisform.optFactAtas.Value = 1 SELECT (lcTabelFactAtas) SET FILTER TO id_rata = cCtrScadentar.id_rata ELSE SELECT (lcTabelFactAtas) SET FILTER TO ENDIF thisform.grID_FACT_ATAS.SetAll("DynamicBackColor","IIF(id_rata = cCtrScadentar.id_rata, RGB(206,255,255), RGB(255,255,255))", "Column") thisform.afisactual thisform.grid_fact_atas.Refresh thisform.Refresh ENDPROC PROCEDURE optFactAtas.Valid thisform.grid_scadentar.AfterRowColChange ENDPROC ENDDEFINE DEFINE CLASS frm_contracte_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_pageframe1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale1.ck_suspendat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_fact1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_part_nr_data_21" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_obiectul1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale_frz1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page2.Ct_dg_tf1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page3.Ct_atasamente1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_pageframe1.Page4.Ct_dg_tl1" UniqueID="" Timestamp="" /> * *m: afisactual_obiectul *m: do_adauga_garantie *m: do_adauga_obiectul *m: do_adauga_rate *m: do_ataseaza_garantie *m: do_download *m: do_open *m: do_upload *m: inainte_de_do_listare_rate *m: inainte_de_do_modifica_garantie *m: inainte_de_do_sterge_atasament *m: inainte_de_do_sterge_garantie *m: inainte_de_do_sterge_obiectul *m: inainte_de_do_sterge_rate *p: clistaidarticole *p: cxmlarticole *p: llnou *p: ncoef_discount *p: ndiscountmediu *p: nsumaarticole *p: nvalcdiscount *p: nvaldiscount * * BorderStyle = 3 clistaidarticole = cxmlarticole = DoCreate = .T. Height = 546 llnou = .F. Name = "frm_contracte_nou" ncoef_discount = 0 ndiscountmediu = 0 nsumaarticole = 0 nvalcdiscount = 0 nvaldiscount = 0 Width = 808 _memberdata = _shape1.Anchor = 11 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 876 _shape2.Anchor = 12 _shape2.Left = 737 _shape2.Name = "_shape2" _shape2.Top = 0 Lb_titlu_alb_b121.Caption = "Contract" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 4 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 779 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 2 BUT_TERMIN1.Top = 1 Gridsort1.Left = 204 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 6 But_renunt1.Anchor = 9 But_renunt1.Left = 750 But_renunt1.Name = "But_renunt1" But_renunt1.TabIndex = 3 But_renunt1.Top = 1 * ADD OBJECT '_pageframe1' AS _pageframe WITH ; Anchor = 15, ; ErasePage = .T., ; Height = 560, ; Left = 0, ; Name = "_pageframe1", ; PageCount = 4, ; TabIndex = 1, ; Top = 28, ; Width = 810, ; Page1.BackColor = 255,255,255, ; Page1.Caption = "Date generale", ; Page1.FontBold = .T., ; Page1.FontName = "Arial", ; Page1.Name = "Page1", ; Page1.PageOrder = 1, ; Page2.BackColor = 255,255,255, ; Page2.Caption = "Rate", ; Page2.FontBold = .T., ; Page2.FontName = "Arial", ; Page2.Name = "Page2", ; Page2.PageOrder = 2, ; Page3.BackColor = 255,255,255, ; Page3.Caption = "Doc. atașate", ; Page3.FontBold = .T., ; Page3.FontCharSet = 238, ; Page3.FontName = "Arial", ; Page3.Name = "Page3", ; Page3.PageOrder = 3, ; Page4.BackColor = 255,255,255, ; Page4.Caption = "Garanții", ; Page4.FontBold = .T., ; Page4.FontCharSet = 238, ; Page4.FontName = "Arial", ; Page4.Name = "Page4", ; Page4.PageOrder = 4 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale1' AS ct_dg_date_generale WITH ; Anchor = 3, ; Left = 5, ; Name = "Ct_dg_date_generale1", ; TabIndex = 2, ; Top = 49, ; Shape1.Name = "Shape1", ; Shape3.Name = "Shape3", ; Shape7.Name = "Shape7", ; txtDescriere.Name = "txtDescriere", ; Shape5.Name = "Shape5", ; txtMotiv_incetat.Name = "txtMotiv_incetat", ; Label6.Name = "Label6", ; txtData_intern.Name = "txtData_intern", ; ck_incetat.Alignment = 0, ; ck_incetat.Name = "ck_incetat", ; Label10.Name = "Label10", ; txtDurata.Name = "txtDurata", ; Label4.Name = "Label4", ; Label17.Name = "Label17", ; Label2.Name = "Label2", ; txtData_incetat.Name = "txtData_incetat", ; txtNumar_intern.Name = "txtNumar_intern", ; Label12.Name = "Label12", ; Label21.Name = "Label21", ; ck_inactiv.Alignment = 0, ; ck_inactiv.Name = "ck_inactiv", ; ck_semnat.Alignment = 0, ; ck_semnat.Name = "ck_semnat", ; Label1.Name = "Label1", ; cbo_valute.ControlSource = "goContract.nume_val", ; cbo_valute.Name = "cbo_valute", ; txtData_inceput.Name = "txtData_inceput", ; Label5.Name = "Label5", ; txtData_sfarsit.Name = "txtData_sfarsit", ; cbo_sectii.Name = "cbo_sectii", ; cmdResponsabil.Name = "cmdResponsabil", ; Label14.Name = "Label14", ; txtResponsabil.Name = "txtResponsabil", ; Label9.Name = "Label9", ; Label20.Name = "Label20", ; cbo_tip_ctr.Name = "cbo_tip_ctr" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale1.ck_suspendat' AS _checkbox WITH ; Alignment = 0, ; Caption = "Suspendat", ; ControlSource = "goContract.suspendat", ; Left = 179, ; Name = "ck_suspendat", ; Top = 202 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale_frz1' AS ct_dg_date_generale_frz WITH ; Anchor = 0, ; Left = 437, ; Name = "Ct_dg_date_generale_frz1", ; TabIndex = 4, ; Top = 152, ; Shape1.Name = "Shape1", ; Label7.Name = "Label7", ; txtOfertanti.Name = "txtOfertanti", ; Label3.Name = "Label3", ; cbo_selectii.Name = "cbo_selectii" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ADD OBJECT '_pageframe1.Page1.Ct_dg_fact1' AS ct_dg_fact WITH ; Anchor = 0, ; Left = 437, ; Name = "Ct_dg_fact1", ; TabIndex = 3, ; Top = 49, ; _shape1.Name = "_shape1", ; ck_text_standard.Alignment = 0, ; ck_text_standard.Name = "ck_text_standard", ; cboNote.Name = "cboNote", ; lbNota.Name = "lbNota", ; cbo_opt_facturare.Name = "cbo_opt_facturare", ; Label2.Name = "Label2", ; Label1.Name = "Label1" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ADD OBJECT '_pageframe1.Page1.Ct_dg_obiectul1' AS ct_dg_obiectul WITH ; Anchor = 14, ; Left = 5, ; Name = "Ct_dg_obiectul1", ; TabIndex = 5, ; Top = 278, ; _shape3.Name = "_shape3", ; Shape5.Name = "Shape5", ; grid_articole.cCant.Header1.Name = "Header1", ; grid_articole.cCant.Name = "cCant", ; grid_articole.cCant.Text1.Name = "Text1", ; grid_articole.cCoef_Discount.Header1.Name = "Header1", ; grid_articole.cCoef_Discount.Name = "cCoef_Discount", ; grid_articole.cCoef_Discount.Text1.Name = "Text1", ; grid_articole.cNume_art.Header1.Name = "Header1", ; grid_articole.cNume_art.Name = "cNume_art", ; grid_articole.cNume_art.Text1.Name = "Text1", ; grid_articole.cNume_val.Header1.Name = "Header1", ; grid_articole.cNume_val.Name = "cNume_val", ; grid_articole.cNume_val.Text1.Name = "Text1", ; grid_articole.Column1.Header1.Name = "Header1", ; grid_articole.Column1.Name = "Column1", ; grid_articole.Column1.Text1.Name = "Text1", ; grid_articole.COLUMN9.Header1.Name = "Header1", ; grid_articole.COLUMN9.Name = "COLUMN9", ; grid_articole.COLUMN9.Text1.Name = "Text1", ; grid_articole.cPret_cu_tva.Check1.Alignment = 0, ; grid_articole.cPret_cu_tva.Check1.Name = "Check1", ; grid_articole.cPret_cu_tva.Header1.Name = "Header1", ; grid_articole.cPret_cu_tva.Name = "cPret_cu_tva", ; grid_articole.cPret_unitar.Header1.Name = "Header1", ; grid_articole.cPret_unitar.Name = "cPret_unitar", ; grid_articole.cPret_unitar.Text1.Name = "Text1", ; grid_articole.cUM.Header1.Name = "Header1", ; grid_articole.cUM.Name = "cUM", ; grid_articole.cUM.Text1.Name = "Text1", ; grid_articole.cValcDiscount.Header1.Name = "Header1", ; grid_articole.cValcDiscount.Name = "cValcDiscount", ; grid_articole.cValcDiscount.Text1.Name = "Text1", ; grid_articole.cValoare.Header1.Name = "Header1", ; grid_articole.cValoare.Name = "cValoare", ; grid_articole.cValoare.Text1.Name = "Text1", ; grid_articole.cVal_discount.Header1.Name = "Header1", ; grid_articole.cVal_discount.Name = "cVal_discount", ; grid_articole.cVal_discount.Text1.Name = "Text1", ; grid_articole.Name = "grid_articole", ; _grdfooter1.Height = 35, ; _grdfooter1.Left = 0, ; _grdfooter1.Name = "_grdfooter1", ; _grdfooter1.Top = 108, ; _grdfooter1.Width = 794, ; txtDiscount.Name = "txtDiscount", ; txtValcdiscount.Name = "txtValcdiscount", ; txtValDiscount.Name = "txtValDiscount", ; _label1.Name = "_label1", ; txtValctva.Name = "txtValctva", ; Label9.Name = "Label9", ; Label1.Name = "Label1", ; Label10.Name = "Label10", ; But_nou1.Name = "But_nou1", ; But_sterge1.Name = "But_sterge1", ; Label3.Name = "Label3", ; Label5.Name = "Label5", ; Label15.Name = "Label15", ; txtProc_tva.Name = "txtProc_tva", ; Label16.Name = "Label16", ; Label4.Name = "Label4", ; Label6.Name = "Label6", ; Label7.Name = "Label7", ; txtCoef_discount.Name = "txtCoef_discount", ; txtValftva.Name = "txtValftva", ; txtValDiscountTotal.Name = "txtValDiscountTotal", ; Label8.Name = "Label8", ; ck_pret_cu_tva.Alignment = 0, ; ck_pret_cu_tva.Name = "ck_pret_cu_tva" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ADD OBJECT '_pageframe1.Page1.Ct_part_nr_data_21' AS ct_part_nr_data_2 WITH ; Anchor = 0, ; Left = 5, ; Name = "Ct_part_nr_data_21", ; TabIndex = 1, ; Top = 7, ; _shape1.Name = "_shape1", ; cmdDenumire.Name = "cmdDenumire", ; Label3.Name = "Label3", ; txtClient.Name = "txtClient", ; Label4.Name = "Label4", ; txtNumar.Name = "txtNumar", ; Label9.Name = "Label9", ; txtData_ctr.Name = "txtData_ctr", ; lb_actAd.Name = "lb_actAd" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ADD OBJECT '_pageframe1.Page2.Ct_dg_tf1' AS ct_dg_tf WITH ; Anchor = 15, ; Left = 5, ; Name = "Ct_dg_tf1", ; Top = 7, ; _shape1.Name = "_shape1", ; _shape3.Name = "_shape3", ; _label1.Name = "_label1", ; grid_scadentar.cData_rata.Header1.Name = "Header1", ; grid_scadentar.cData_rata.Name = "cData_rata", ; grid_scadentar.cData_rata.Text1.Name = "Text1", ; grid_scadentar.cData_scadenta.Header1.Name = "Header1", ; grid_scadentar.cData_scadenta.Name = "cData_scadenta", ; grid_scadentar.cData_scadenta.Text1.Name = "Text1", ; grid_scadentar.cDen_rata.Header1.Name = "Header1", ; grid_scadentar.cDen_rata.Name = "cDen_rata", ; grid_scadentar.cDen_rata.Text1.Name = "Text1", ; grid_scadentar.cNr_rata.Header1.Name = "Header1", ; grid_scadentar.cNr_rata.Name = "cNr_rata", ; grid_scadentar.cNr_rata.Text1.Name = "Text1", ; grid_scadentar.cNume_val.Header1.Name = "Header1", ; grid_scadentar.cNume_val.Name = "cNume_val", ; grid_scadentar.cNume_val.Text1.Name = "Text1", ; grid_scadentar.cPret_cu_tva.Check1.Alignment = 0, ; grid_scadentar.cPret_cu_tva.Check1.Name = "Check1", ; grid_scadentar.cPret_cu_tva.Header1.Name = "Header1", ; grid_scadentar.cPret_cu_tva.Name = "cPret_cu_tva", ; grid_scadentar.cProcent.Header1.Name = "Header1", ; grid_scadentar.cProcent.Name = "cProcent", ; grid_scadentar.cProcent.Text1.Name = "Text1", ; grid_scadentar.cProc_tva.Header1.Name = "Header1", ; grid_scadentar.cProc_tva.Name = "cProc_tva", ; grid_scadentar.cProc_tva.Text1.Name = "Text1", ; grid_scadentar.cRest.ControlSource = "valrataftva - valvaluta", ; grid_scadentar.cRest.Header1.Name = "Header1", ; grid_scadentar.cRest.Name = "cRest", ; grid_scadentar.cRest.Text1.Name = "Text1", ; grid_scadentar.cValrata.Header1.Name = "Header1", ; grid_scadentar.cValrata.Name = "cValrata", ; grid_scadentar.cValrata.Text1.Name = "Text1", ; grid_scadentar.cValratactva.Header1.Name = "Header1", ; grid_scadentar.cValratactva.Name = "cValratactva", ; grid_scadentar.cValratactva.Text1.Name = "Text1", ; grid_scadentar.cValrataftva.Header1.Name = "Header1", ; grid_scadentar.cValrataftva.Name = "cValrataftva", ; grid_scadentar.cValrataftva.Text1.Name = "Text1", ; grid_scadentar.cValvaluta.Header1.Name = "Header1", ; grid_scadentar.cValvaluta.Name = "cValvaluta", ; grid_scadentar.cValvaluta.Text1.Name = "Text1", ; grid_scadentar.HeaderHeight = 37, ; grid_scadentar.Name = "grid_scadentar", ; But_nou1.Name = "But_nou1", ; But_sterge1.Name = "But_sterge1", ; Label6.Name = "Label6", ; txtScadenta_incasare.Name = "txtScadenta_incasare", ; Label13.Name = "Label13", ; txtCoef_penalitati.Name = "txtCoef_penalitati", ; cmdMultiplicaRate.Name = "cmdMultiplicaRate", ; cmdAplicaScadenta.Name = "cmdAplicaScadenta", ; Label4.Name = "Label4", ; _grdfooter1.Name = "_grdfooter1", ; But_listare1.Name = "But_listare1", ; ck_pret_cu_tva.Alignment = 0, ; ck_pret_cu_tva.Name = "ck_pret_cu_tva", ; ck_afisare_scadenta.Alignment = 0, ; ck_afisare_scadenta.Name = "ck_afisare_scadenta" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ADD OBJECT '_pageframe1.Page3.Ct_atasamente1' AS ct_atasamente WITH ; Anchor = 15, ; Left = 5, ; Name = "Ct_atasamente1", ; Top = 7, ; _shape1.Name = "_shape1", ; grid_linkuri.Column1.Header1.Name = "Header1", ; grid_linkuri.Column1.Name = "Column1", ; grid_linkuri.Column1.Text1.Name = "Text1", ; grid_linkuri.Column2.Header1.Name = "Header1", ; grid_linkuri.Column2.Name = "Column2", ; grid_linkuri.Column2.Text1.Name = "Text1", ; grid_linkuri.Column3.Header1.Name = "Header1", ; grid_linkuri.Column3.Name = "Column3", ; grid_linkuri.Column3.Text1.Name = "Text1", ; grid_linkuri.Column4.Header1.Name = "Header1", ; grid_linkuri.Column4.Name = "Column4", ; grid_linkuri.Column4.Text1.Name = "Text1", ; grid_linkuri.Column5.Header1.Name = "Header1", ; grid_linkuri.Column5.Name = "Column5", ; grid_linkuri.Column5.Text1.Name = "Text1", ; grid_linkuri.Name = "grid_linkuri", ; But_sterge1.Name = "But_sterge1", ; But_edit1.Name = "But_edit1", ; But_attach1.Name = "But_attach1", ; But_attach2.Name = "But_attach2", ; Label1.Name = "Label1" *< END OBJECT: ClassLib="..\comun\clase\ferestre_atasamente.vcx" BaseClass="container" /> ADD OBJECT '_pageframe1.Page4.Ct_dg_tl1' AS ct_dg_tl WITH ; Anchor = 15, ; Left = 5, ; Name = "Ct_dg_tl1", ; Top = 7, ; _shape3.Name = "_shape3", ; _shape1.Name = "_shape1", ; _label1.Name = "_label1", ; Label1.Name = "Label1", ; txtGrnt_pv_nr.Name = "txtGrnt_pv_nr", ; Label4.Name = "Label4", ; txtGrnt_proc_ret.Name = "txtGrnt_proc_ret", ; Label2.Name = "Label2", ; txtGrnt_val_ret.Name = "txtGrnt_val_ret", ; Label3.Name = "Label3", ; txtGrnt_alerta1.Name = "txtGrnt_alerta1", ; Label5.Name = "Label5", ; Label6.Name = "Label6", ; txtGrnt_proc_alerta1.Name = "txtGrnt_proc_alerta1", ; txtGrnt_pv_data.Name = "txtGrnt_pv_data", ; Label7.Name = "Label7", ; Label8.Name = "Label8", ; Label9.Name = "Label9", ; grid_Fact_garant.cDataact.Header1.Name = "Header1", ; grid_Fact_garant.cDataact.Name = "cDataact", ; grid_Fact_garant.cDataact.Text1.Name = "Text1", ; grid_Fact_garant.cGarantie.Header1.Name = "Header1", ; grid_Fact_garant.cGarantie.Name = "cGarantie", ; grid_Fact_garant.cGarantie.Text1.Name = "Text1", ; grid_Fact_garant.cNract.Header1.Name = "Header1", ; grid_Fact_garant.cNract.Name = "cNract", ; grid_Fact_garant.cNract.Text1.Name = "Text1", ; grid_Fact_garant.cValftva.Header1.Name = "Header1", ; grid_Fact_garant.cValftva.Name = "cValftva", ; grid_Fact_garant.cValftva.Text1.Name = "Text1", ; grid_Fact_garant.Name = "grid_Fact_garant", ; Label10.Name = "Label10", ; _grdfooter1.Height = 35, ; _grdfooter1.Name = "_grdfooter1", ; Label12.Name = "Label12", ; txtGrnt_perioada.Name = "txtGrnt_perioada", ; Label13.Name = "Label13", ; But_nou1.Name = "But_nou1", ; BUT_MODIFICA1.Name = "BUT_MODIFICA1", ; But_sterge1.Name = "But_sterge1", ; But_attach1.Name = "But_attach1" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> PROCEDURE afisactual_obiectul Parameters tlDiscount_salvat Local lcTabelArticole, lnPret_cu_tva, lnZecimalePret, lnZecimaleSuma lcTabelArticole = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource Store 0 To lnPret_cu_tva lnPret_cu_tva = This._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value *!* modificare v 2.0.46 : am adaugat ROUND lnZecimalePret = iif(goContract.moneda_nationala=1,gnPPretV,gnPVal) lnZecimaleSuma = iif(goContract.moneda_nationala=1,gnPC,gnPVal) Select (lcTabelArticole) *CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0)) TO THISFORM.nSumaArticole Calculate Sum(round(Nvl(cant,0)* Iif(lnPret_cu_tva=1,round(Nvl(pret_unitar,0)/(1+goContract.proc_tva/100),lnZecimalePret),Nvl(pret_unitar,0)),lnZecimaleSuma))To Thisform.nSumaArticole Calculate Sum(round(Nvl(cant,0)*round(Nvl(pret_unitar,0)*Nvl(coef_discount,0)/100,lnZecimalePret),lnZecimaleSuma)) To Thisform.nValDiscount Calculate Avg(Nvl(coef_discount,0)) To Thisform.nDiscountMediu Calculate Sum(round(Nvl(cant,0)*Nvl(pret_unitar,0),lnZecimaleSuma) - round(Nvl(val_discount,0),lnZecimaleSuma)) To Thisform.nValcdiscount Thisform.nDiscountMediu = round(Thisform.nDiscountMediu,lnZecimaleSuma) *!* Thisform.nSumaArticole = Round(Thisform.nSumaArticole, gnPC) *!* Thisform.nValDiscount = Round(Thisform.nValDiscount, gnPC) *!* Thisform.nDiscountMediu = Round(Thisform.nDiscountMediu, gnPC) *!* Thisform.nValcdiscount = Round(Thisform.nValcdiscount, gnPC) *!* modificare v 2.0.46 ^ *thisform._pageframe1.page1.ct_dg_obiectul1.txtSumaArticole.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtDiscount.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh *** If tlDiscount_salvat && cand arat obiectul si valoarea contractului, pe show, sa iau datele salvate If Thisform.nSumaArticole <> 0 Thisform.nCoef_discount = Round(Nvl(goContract.val_discount,0) / Thisform.nSumaArticole * 100, 2) Endif Else && cand calculez, trebuie sa arat cat imi da Thisform.nCoef_discount = Thisform.nDiscountMediu goContract.val_discount = Thisform.nValDiscount Thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscountTotal.Refresh Endif *goContract.valftva = THISFORM.nValcdiscount - NVL(goContract.val_discount,0) If lnPret_cu_tva=1 goContract.valctva = Thisform.nValcdiscount goContract.valftva = round(goContract.valctva / (1+goContract.proc_tva/100),lnZecimaleSuma) Else goContract.valftva = Thisform.nSumaArticole - Nvl(goContract.val_discount,0) && Thisform.nValcdiscount goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),lnZecimaleSuma) Endif Thisform._pageframe1.page1.ct_dg_obiectul1.txtCoef_discount.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscount.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.Refresh ENDPROC PROCEDURE do_adauga_garantie Private poFactGaran Store '' To poFactGaran Local lnId_fact, lnNrAct, ldDataAct, lnCod, lnId_fact Store 0 To lnId_fact, lnNrAct, ldDataAct, lnCod, lnId_fact Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal lcOrder = [ dataact desc] lcgroup = [] lcFiltru = [ 1=1 ] Do Case Case gnParametru_prog=1 lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,]+alltrim(str(gnPc))+[)] lcSelect = [select id_fact, nract, dataact, cod, debit as valctva from ireg_parteneri ] lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; [ and id_part = ] + Alltrim(Str(goContract.id_part))+; [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; [ and cont = '4111' ] Case gnParametru_prog=2 lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,]+alltrim(str(gnPc))+[)] lcSelect = [select id_fact, nract, dataact, cod, credit as valctva from ireg_parteneri ] lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; [ and id_part = ] + Alltrim(Str(goContract.id_part))+; [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; [ and (cont = '401' or cont='404') ] Otherwise lcFiltruOriginal = [] Endcase llAfiseaza = .F. llModParam = .T. gencursor('poFactGaran','cFactGaran', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poFactGaran.ca_baza1.afisare() Select cFactGaran lofc = Createobject('frm_facturi_ctr') lofc.Show(1) If buton = 2 Return Endif ***-------------------- Private pnFactValftva, pnGarantieRetinuta Store 0 To pnFactValftva, pnGarantieRetinuta Select cFactGaran lnId_fact = id_fact lnNrAct = nract ldDataAct = dataact lnId_fact = id_fact lnCod = cod Do Case Case gnParametru_prog=2 If Year(ldDataAct)>=2007 lcSql = [select totctva -(ro19bct+ro19bvt+ro19bft+ro09bct+ro09bvt+ro09bft+fo19bct+fo19bvt+fo19bft+fo09bct+fo09bvt+fo09bft+cebct+cebvt+cebft+ti19bct+ti19bvt+ti19bft+ti09bvt+ti09bft) as valftva ] +; [ from jc2007 ]+; [ where cod = ]+Alltrim(Str(lnCod)) Else lcSql = [select totctva -(tvai+tvam) as valftva ] +; [ from cump ]+; [ where cod = ]+Alltrim(Str(lnCod)) Endif lcCursor = [cJC_fact] lnSucces = goExecutor.oExecute(lcSql, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") Return Endif Select cJC_fact pnFactValftva = valftva If Used('cJC_fact') Use In cJC_fact Endif Endcase pnGarantieRetinuta = Round(pnFactValftva * goContract.grnt_proc_ret / 100,gnPC) lofg = Createobject('frm_fact_garant') lofg.Show(1) If buton = 2 Return Endif Insert Into cCtrFactGarant (id_fact, nract, dataact, valftva, garantie) ; Values (lnId_fact, lnNrAct, ldDataAct, pnFactValftva, pnGarantieRetinuta) Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.SetFocus Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal() Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh *!* lcSql = [begin pack_crm.adauga_factura_garantie(]+Alltrim(Str(goContract.id_ctr))+[,] + Alltrim(Str(lnId_fact))+[,]+; *!* ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;] *!* lnSucces = goExecutor.oExecute(lcSql) *!* If lnSucces < 0 *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") *!* Return *!* Endif *!* Thisform.actualizeaza_grid1() *!* Thisform.grid_Fact_garant.Refresh ENDPROC PROCEDURE do_adauga_obiectul Local lcCtrArt, lnPret_cu_tva lcCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource lnPret_cu_tva = This._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value IF EMPTY(NVL(goContract.id_valuta,0)) AND !INLIST(UPPER(ALLTRIM(NVL(goContract.nume_val,''))), 'LEI', 'RON') AMESSAGEBOX('Nu ati ales valuta contractului',0+48,'Atentie!') Return Endif Do Case Case gnParametru_prog = 1 && clienti *!* modificare v 2.0.48 : gnIdSucursala lcSel = [{call pack_crm.get_politici_grup(] + Alltrim(Str(gnIdUtil)) + [,] + Alltrim(Str(goContract.id_valuta)) + [,?gnIdSucursala)}] lcCursor = 'crsPoliticiGrup1' lnSucces = goExecutor.oExecute(lcSel, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") Return Endif *!* modificare v 2.0.48 : am adaugat moneda_nationala Select id_politica, nume_lista_preturi, Ttod(datai) As datai, Ttod(DataS) As DataS, ; nume_val, id_valuta, moneda_nationala ; FROM crsPoliticiGrup1 ; INTO Cursor crsPoliticiGrup If Used('crsPoliticiGrup1') Use In crsPoliticiGrup1 Endif fpp = Createobject("frm_politica_preturi") fpp.Show(1) If Used('crsPoliticiGrup') Use In crsPoliticiGrup Endif If Used("cPol_pret_art") *!* modificare 08.05.2007 ( PRETFTVA in loc de PRET ) Select *, PRETFTVA As pret_unitar, 1 As cant, Pret As valoare, ; 0 As coef_discount, 0 As val_discount, ; lnPret_cu_tva as pret_cu_tva ; FROM cPol_pret_art With (Buffering = .T.) ; WHERE ales = 1 ; INTO Cursor cAles Select * From cAles ; Where id_pol_art In (Select id_pol_art From (lcCtrArt)) ; Into Cursor cExista If _Tally > 0 Select cExista Scan lcArticole = Alltrim(nume_articol)+', ' Endscan lcArticole = Substr(lcArticole,1,Len(lcArticole)-2) If Reccount('cExista')=1 AMESSAGEBOX('Articolul '+lcArticole+ ' exista in obiectul contractului. Stergeti si adaugati cu alte valori!',0+48,'Atentie') Else AMESSAGEBOX('Articolele '+lcArticole+ ' exista in obiectul contractului. Stergeti si adaugati cu alte valori!',0+48,'Atentie') Endif Endif Select * From cAles Where id_pol_art Not In (Select id_pol_art From cExista) ; INTO Cursor cAles2 If Used('cExista') Use In cExista Endif Select (lcCtrArt) Append From Dbf('cAles2') Select (lcCtrArt) Replace valoare With cant * pret_unitar If Used('cAles') Use In cAles Endif If Used('cAles2') Use In cAles2 Endif If Used('cPol_pret_art') Use In cPol_pret_art Endif Endif Case gnParametru_prog = 2 && firnizori Local lcArticole, lcXMLArticole lcXMLArticole = caut_articol(0, .F., .T., .T.) This.cXMLArticole = lcXMLArticole If !Empty(lcXMLArticole) Xmltocursor(lcXMLArticole, "crsArticole") lcArticole = cursor2lista("crsArticole", "denumire", ",") This.cListaIdArticole = cursor2lista("crsArticole","id_articol",",") Select crsArticole.*, denumire As nume_articol ; From crsArticole ; Into Cursor crsArticole2 Select c.*, 00000 As id_valuta, Space(4) As nume_val,; 0 as cant, ; lnPret_cu_tva as pret_cu_tva ; FROM crsArticole2 c ; Into Cursor crsArticole3 READWRITE Select crsArticole3 Replace All id_valuta With goContract.id_valuta, ; nume_val With goContract.nume_val, ; cant WITH 1 Select (lcCtrArt) Append From Dbf('crsArticole3') Use In crsArticole Use In crsArticole2 Use In crsArticole3 Endif Endcase Thisform.afisactual_obiectul() Thisform._pageframe1.page1.ct_dg_obiectul1._grdfooter1.calctotal Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.SetFocus() ENDPROC PROCEDURE do_adauga_rate Local lcScadentar, lnNr_rata, lnPret_cu_tva lcScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource lnPret_cu_tva = this._pageframe1.page2.ct_dg_tf1.ck_pret_cu_tva.Value IF EMPTY(NVL(goContract.id_valuta,0)) AND !INLIST(UPPER(ALLTRIM(NVL(goContract.nume_val,''))), 'LEI', 'RON') AMESSAGEBOX('Nu ati ales valuta contractului',0+48,'Atentie!') Return Endif Select (lcScadentar) Calculate Max(Nvl(nr_rata,0)) To lnNr_rata lnNr_rata = lnNr_rata + 1 Select (lcScadentar) Append Blank Select (lcScadentar) Replace id_valuta With goContract.id_valuta, ; nume_val With goContract.nume_val, ; nr_rata With lnNr_rata, ; pret_cu_tva WITH lnPret_cu_tva, ; proc_tva with goContract.proc_tva Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.Refresh Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.SetFocus ENDPROC PROCEDURE do_ataseaza_garantie Private poFactGaran Store '' To poFactGaran Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal lcOrder = [dataact desc] lcgroup = [] lcFiltru = [ 1=1 ] Do Case Case gnParametru_prog=1 lcSchema = [] lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, 0 as atasata ]+; [ from vireg_emise_in_perioada ] lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] Case gnParametru_prog=2 lcSchema = [] lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, 0 as atasata ]+; [ from vireg_emise_in_perioada ] lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] Otherwise lcFiltruOriginal = [] Endcase llAfiseaza = .F. llModParam = .T. gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poFactGaran.ca_baza1.afisare() Select cFact_neatas lofc = Createobject('frm_atas_fact_iregpart') lofc.Show(1) Release poFactGaran ENDPROC PROCEDURE do_download Lparameters tcFisSalvat Private poLink Store '' To poLink Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal Local lcTabel, lcFisSalvat, lnIdAtas, lcFisier lcTabel = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource Select (lcTabel) If Reccount() >0 If Pcount() = 0 Or Type('tcFisSalvat') <> 'C' lcDir = Getdir('c:\',"Director","Directorul unde doriti sa salvati fisierul",64) If Empty(lcDir) Return Endif If !Empty(nume_fisier) lcFisSalvat = Addbs(lcDir)+Alltrim(nume_fisier) Endif Else lcFisSalvat = tcFisSalvat Endif If !Empty(lcFisSalvat) lnIdAtas = id_atas lcSchema = [fisier w ] lcSelect = [select fisier from atas_atasamente where id_atas = ] + Alltrim(Str(lnIdAtas)) lcOrder = [] lcgroup = [] lcFiltru = [] lcFiltruOriginal = [] llModParam = .T. llAfiseaza = .F. gencursor('poLink','cRegFisierTemp', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poLink.ca_baza1.afisare() If Used('cRegFisierTemp') lcFisier = fisier Use In (Select('cRegFisierTemp')) Strtofile(lcFisier, lcFisSalvat) open_default_app(lcFisSalvat) Endif Endif Endif ENDPROC PROCEDURE do_open Local lcTabel, lcFisSalvat lcTabel = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource Select (lcTabel) If Reccount() >0 IF !EMPTY(NVL(nume_fisier,'')) lcFisSalvat = Addbs(gcTempPath)+ALLTRIM(nume_fisier) thisform.do_download(lcFisSalvat) ENDIF Endif ENDPROC PROCEDURE do_upload Local lcTabelLinkuri lcTabelLinkuri = Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource ***--- Private pnId_entitate, pnTip_entitate, pcLink, pcDescriere, pcFis_name, pcFisier, pnId_atas Store 0 To pnId_entitate, pnTip_entitate, pnId_atas Store "" To pcDescriere, pcFis_name, pcFisier, pcLink * pcLink - private - folosit in frm_atas_nou Local llReturn,lcSql,lnSucces llReturn = .T. Select (lcTabelLinkuri) Scatter Name poLink Blank Memo AddProperty(poLink,'id_proiect',0) AddProperty(poLink,'proiect','') AddProperty(poLink,'id_ctr',0) AddProperty(poLink,'contract','') lodn = Createobject("frm_atas_nou") lodn.Show(1) If gnButon = 2 Return Endif pnId_entitate = goContract.id_ctr pnTip_entitate = 2 pcDescriere = Upper(Alltrim(poLink.descriere)) pcFis_name = Upper(Alltrim(poLink.nume_fisier)) If Empty(pcLink) Return Endif pcFisier = Filetostr(pcLink) Select (lcTabelLinkuri) Append Blank Gather Name poLink Memo Replace fisier With pcFisier, id_atas With pnId_atas, nume_fisier With pcFis_name, descriere With pcDescriere, dataora With Datetime(), utilizator With gcUserNameApp Replace are_link With 1 In cContracte ***--- Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.Refresh ENDPROC PROCEDURE inainte_de_do_listare_rate Private pcPartener, pcNrData, pcValuta, cTitlu, pcDataOra pcPartener = Nvl(Alltrim(goContract.denumire),'') pcNrData = Nvl(Alltrim(goContract.numar),'')+' / ' + Nvl(Dtoc(goContract.Data),'') pcValuta = Nvl(Alltrim(goContract.nume_val),'') pcDataOra = get_ora(2) lcmenu = "Rate - Valoare facturata;Rate - Facturi aferente;Rate - facturi aferente (extins)" lnx = xmenu(lcmenu) Thisform.AlwaysOnTop = .F. Do Case Case lnx = 1 pcTitlu = 'RATE' Local lcScadentar, lnNr_rata goExport.export2frx(Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource,[rrate]) Case lnx = 2 Or lnx = 3 lcSel = [{call pack_crm.situatie_rate(] + Alltrim(Str(goContract.id_ctr)) + [)}] lcCursor = 'cSitRate' If goExecutor.oExecuta(lcSel, lcCursor) *** Select * From cSitRate Into Cursor cList Readwrite If Used('cSitRate') Use In cSitRate Endif Select id_rata, Cnt(id_rata) As Cnt ; FROM cList ; HAVING Cnt > 1 ; GROUP By 1 Order By 2 ; INTO Cursor crsDuplicate Select crsDuplicate Scan lnId_rata = id_rata lnCount = Cnt - 1 lnGasit = 0 Select cList Locate For id_rata = lnId_rata Do While Found( ) lnGasit = lnGasit + 1 If lnGasit > 1 Replace nr_rata With .Null., den_rata With .Null., data_rata With .Null., valrata With .Null., sumvalrate With .Null., valfact With .Null. Endif Continue Enddo Endscan *** If Used('crsDuplicate') Use In crsDuplicate Endif If lnx = 2 pcTitlu = 'RATE - FACTURI AFERENTE' goExport.export2frx([cList],[rRate_facturi]) Else pcTitlu = 'RATE - FACTURI AFERENTE (EXTINS)' goExport.export2frx([cList],[rRate_facturi_extins]) Endif If Used('cList') Use In cList Endif Endif Endcase Thisform.AlwaysOnTop = .T. ENDPROC PROCEDURE inainte_de_do_modifica_garantie Private pnFactValftva, pnGarantieRetinuta Store 0 To pnFactValftva, pnGarantieRetinuta Local lnId_ctr_fact_garan Store 0 To lnId_ctr_fact_garan lcTabelgarantii = Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource Select (lcTabelgarantii) Select Cnt(*) As nr_inreg From (lcTabelgarantii) ; INTO Cursor cInreg Select cInreg lnInreg = nr_inreg If lnInreg > 0 Select (lcTabelgarantii) lnId_ctr_fact_garan = id_ctr_fact_garan pnFactValftva = valftva pnGarantieRetinuta = garantie lofg = Createobject('frm_fact_garant') lofg.Show(1) If buton = 2 Return Endif Select (lcTabelgarantii) Replace valftva With pnFactValftva, garantie With pnGarantieRetinuta Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal() Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh Endif *!* lcSql = [begin pack_crm.modifica_factura_garantie(]+ALLTRIM(STR(lnId_ctr_fact_garan))+[,]+; *!* ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;] *!* lnSucces = goExecutor.oExecute(lcSql) *!* If lnSucces < 0 *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") *!* Return *!* ENDIF *!* thisform.actualizeaza_grid1() *!* thisform.grid_Fact_garant.Refresh ENDPROC PROCEDURE inainte_de_do_renunt Local llNou llNou = Thisform.llNou If llNou * sterge contract poGeneratorNumere.dezaloca_numar(13) *- lcId = Alltrim(Str(goContract.id_ctr)) lcId_util = Alltrim(Str(gnIdUtil)) lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] lnSucces = goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare") Return .F. Endif Select cContracte Locate For id_ctr = goContract.id_ctr If Found() Delete ENDIF Select cContracte GO BOTTOM Endif Return .T. ENDPROC PROCEDURE inainte_de_do_sterge_atasament Local lcTabelLinkuri, lnRaspuns, lnInreg lcTabelLinkuri = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource Store 0 To lnRaspuns, lnInreg Select Cnt(*) As nr_inreg From (lcTabelLinkuri) ; INTO Cursor cInreg Select cInreg lnInreg = nr_inreg If lnInreg > 0 lnRaspuns = amessagebox('Doriti sa stergeti documentul?',4+32,"Confirmare stergere document") If lnRaspuns = 7 && 7 = No ; 6 = Yes Return Endif Select (lcTabelLinkuri) Delete thisform._pageframe1.page3.ct_atasamente1.SetFocus() Endif ENDPROC PROCEDURE inainte_de_do_sterge_garantie Local lcTabelgarantii, lnInreg, lnRaspuns lcTabelgarantii = Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource Select (lcTabelgarantii) Select Cnt(*) As nr_inreg From (lcTabelgarantii) ; INTO Cursor cInreg Select cInreg lnInreg = nr_inreg If lnInreg > 0 lnRaspuns = AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,"Confirmare stergere inregistrare") If lnRaspuns = 7 && 7 = No ; 6 = Yes Return Endif Select (lcTabelgarantii) Delete Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.SetFocus Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal() Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh Endif *!* lnId_ctr_fact_garan = id_ctr_fact_garan *!* lcSql = [begin pack_crm.sterge_factura_garantie(]+Alltrim(Str(lnId_ctr_fact_garan))+[); end;] *!* lnSucces = goExecutor.oExecute(lcSql) *!* If lnSucces < 0 *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") *!* Return *!* ENDIF *!* thisform.actualizeaza_grid1() *!* thisform.grid_Fact_garant.Refresh ENDPROC PROCEDURE inainte_de_do_sterge_obiectul Private pcId_ctr, pcId_pol_art Store '' To pcId_ctr, pcId_pol_art Local lcTabelCtrArt, lnRaspuns, lnInreg Store 0 To lnRaspuns, lnInreg lcTabelCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource Select Cnt(*) As nr_inreg From (lcTabelCtrArt) ; INTO Cursor cInreg Select cInreg lnInreg = nr_inreg If lnInreg > 0 lnRaspuns = amessagebox('Doriti sa stergeti?',4+32,"Confirmare stergere") If lnRaspuns = 7 && 7 = No ; 6 = Yes Return Endif pcId_ctr = Alltrim(Str(goContract.id_ctr)) Select (lcTabelCtrArt) Do Case Case gnParametru_prog = 1 pcId_pol_art = Alltrim(Str(id_pol_art)) Case gnParametru_prog = 2 pcId_pol_art = Alltrim(Str(id_articol)) Endcase Select (lcTabelCtrArt) DELETE thisform.afisactual_obiectul() Thisform._pageframe1.page1.ct_dg_obiectul1._grdfooter1.calctotal Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.Refresh Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.SetFocus Endif ENDPROC PROCEDURE inainte_de_do_sterge_rate Local lcScadentar lcScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource Select Cnt(*) As nr_inreg From (lcScadentar) ; INTO Cursor cInreg Select cInreg lnInreg = nr_inreg If lnInreg > 0 lnRaspuns = amessagebox('Doriti sa stergeti rata?',4+32,"Confirmare stergere rata") If lnRaspuns = 7 && 7 = No ; 6 = Yes Return Endif Select (lcScadentar) Delete Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.Refresh Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.SetFocus thisform._pageframe1.paGE2.ct_dg_tf1._grdfooter1.calctotal() Endif ENDPROC PROCEDURE inainte_de_do_termin Private pcParametru_prog, pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta Store '' To pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta Local llNou, lnRaspuns, lcTabelCtrArt, lcTabelScadentar, lcTabelAtasamente, lcTabelGarantii, lnInreg llNou = Thisform.llNou lcTabelCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource lcTabelScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource lcTabelAtasamente = Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource lcTabelGarantii = thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource lnInreg = 0 lnRaspuns = AMESSAGEBOX('Doriti sa salvati modificarile facute?',4+32,'Confirmare salvare') If lnRaspuns = 7 && NU If llNou * sterge contract poGeneratorNumere.dezaloca_numar(13) *- lcId = Alltrim(Str(goContract.id_ctr)) lcId_util = Alltrim(Str(gnIdUtil)) lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] lnSucces = goExecutor.oExecute(lcSql) If lnSucces < 0 AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare") Return .F. Endif Select cContracte Locate For id_ctr = goContract.id_ctr If Found() Delete Endif Select cContracte Go Bottom Endif Return .T. Else && DA *poGeneratorNumere.reset(13) pcId_ctr = Alltrim(Str(goContract.id_ctr)) pcParametru_prog = Alltrim(Str(gnParametru_prog)) If Empty(Nvl(goContract.id_part,0)) AMESSAGEBOX('Nu ati ales partenerul!',48,"Atentie") Return .F. Endif If Empty(Nvl(goContract.numar,0)) AMESSAGEBOX('Nu ati completat numarul contractului!',48,"Atentie") Thisform._pageframe1.page1.ct_part_nr_data_21.txtNUMAR.SetFocus Return .F. Endif If Empty(Nvl(goContract.Data,{})) AMESSAGEBOX('Nu ati completat data contractului!',48,"Atentie") Thisform._pageframe1.page1.ct_part_nr_data_21.txtDATA_CTR.SetFocus Return .F. ENDIF IF EMPTY(NVL(goContract.opt_facturare,0)) AMESSAGEBOX('Nu ati ales ce se factureaza!',48,"Atentie") ENDIF If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And Empty(Nvl(goContract.id_nota,0)) AMESSAGEBOX('Alegeti nota contabila !',,48,"Atentie") Return .F. Endif Do Case Case goContract.opt_facturare = 1 Select (lcTabelScadentar) Calculate Cnt() For !Deleted() To lnInreg If lnInreg = 0 AMESSAGEBOX('Adaugati rate!',0+48,'Atentie') Return .F. Endif Case goContract.opt_facturare = 2 Select (lcTabelCtrArt) && modificare v 2.1.11 Calculate Cnt() For !Deleted() To lnInreg If lnInreg = 0 AMESSAGEBOX('Adaugati obiectul contractului!',0+48,'Atentie') Return .F. Endif Select (lcTabelScadentar) && modificare v 2.1.11 Calculate Cnt() For !Deleted() To lnInreg If lnInreg = 0 AMESSAGEBOX('Adaugati rate!',0+48,'Atentie') Return .F. Endif Endcase Select (lcTabelScadentar) Locate For Empty(data_rata) If Found() AMESSAGEBOX('Completati data ratelor!',0+48,'Atentie') Return .F. Endif Select (lcTabelScadentar) Locate For Empty(valrata) If Found() AMESSAGEBOX('Completati valoarea ratelor!',0+48,'Atentie') Return .F. Endif If pnGNnumar<>0 And Upper(Alltrim(Str(pnGNnumar))) <> Upper(Alltrim(goContract.numar)) poGeneratorNumere.dezaloca_numar(13) Endif lnSucces = SQLSetprop(gnhandle,"Transactions",2) If lnSucces < 0 AMESSAGEBOX("Programul nu a reusit sa treaca pe tranzactie manuala! Reintrati in program si incercati din nou!",48,"Atentie") ELSE lnSucces = modifica_ctr_dg(goContract) && In oproceduri_roacontracte.prg If lnSucces > 0 lnSucces = salveaza_obiectul(lcTabelCtrArt) If lnSucces > 0 lnSucces = salveaza_rate(lcTabelScadentar) If lnSucces > 0 lnSucces = salveaza_atasamente(lcTabelAtasamente) IF lnSucces > 0 lnSucces = salveaza_garantii(lcTabelGarantii) ENDIF Endif Endif Endif Endif If lnSucces < 0 lcSql = "ROLLBACK" Else lcSql = "COMMIT" Endif lnSucces2 = goExecutor.oExecute(lcSql) If lnSucces2 < 0 AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare,0+16,"Eroare") Endif lnSucces2 = SQLSetprop(gnhandle,"Transactions",1) If lnSucces2 < 0 AMESSAGEBOX('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!',0+48,'Atentie!') Else If lcSql = "COMMIT" && sa nu mai faca de fiecare data do_cauta (sa aduca toate contactele de pe server) Select cContracte Locate For id_ctr = goContract.id_ctr If Found() Gather Name goContract Memo ENDIF ELSE Return .F. Endif Endif Endif Return .T. ENDPROC PROCEDURE Init PARAMETERS tlNou DODEFAULT() thisform.llnou = tlNou *!* modificare v 2.0.46 if goContract.moneda_nationala = 1 This._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPPretV,gnPc) This._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPPretV,gnPc) else This._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPVal,gnPVal) This._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPVal,gnPVal) endif *!* modificare v 2.0.46 ^ ENDPROC PROCEDURE Show Lparameters nStyle LOCAL lnPret_cu_tva STORE 0 TO lnPret_cu_tva If gnParametru_prog = 1 This._pageframe1.page1.ct_dg_date_generale_frz1.Visible = .F. Endif Select Max(pret_cu_tva) as nPret_cu_tva ; FROM cCtrArt ; INTO Cursor cPret_cu_tva Select cPret_cu_tva lnPret_cu_tva = NVL(nPret_cu_tva,0) If Used('cPret_cu_tva') Use In cPret_cu_tva ENDIF this._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value = lnPret_cu_tva Local llDiscountSalvat llDiscountSalvat = .T. If Alltrim(gocontract.tip_istoric) = 'A' This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Visible = .T. This._pageframe1.page1.ct_part_nr_data_21.laBEL4.Top = 4 This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Caption = Alltrim(gocontract.numar_aa) Else This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Visible = .F. Endif Thisform.afisactual_obiectul(llDiscountSalvat) WITH this._pageframe1.page1.ct_dg_obiectul1 *!* ._grdfooter1.attachtogrid(._grdfooter1.osourcegrid) *!* ._grdfooter1.calctotal() .grid_articole.HeaderHeight = 38 ENDWITH WITH thisform._pageframe1.paGE2.ct_dg_tf1 *!* ._grdfooter1.attachtogrid(._grdfooter1.osourcegrid) *!* ._grdfooter1.calctotal() .grid_scadentar.HeaderHeight = 38 ENDWITH this.Height = INT(_Screen.Height * 0.7) this.Width = INT(_screen.Width * 0.7) this.AutoCenter = .T. ENDPROC PROCEDURE _pageframe1.Page1.Ct_dg_date_generale1.cbo_valute.Valid DoDefault() *!* modificare v 2.0.46 If goContract.moneda_nationala = 1 Thisform._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPPretV,gnPc) Thisform._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPPretV,gnPc) Else Thisform._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPVal,gnPVal) Thisform._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPVal,gnPVal) Endif *!* modificare v 2.0.46 ^ ENDPROC PROCEDURE _pageframe1.Page1.Ct_dg_obiectul1.txtProc_tva.Valid DoDefault() Local llPastreazaPretcuTVA, lnProcTVAVechi, lnProcTvaNou Local lnTVANou, lnTVAVechi, lnValRataCTva, lnValRataFTva, lnZecimalePret SET STEP ON lnZecimalePret = This.Parent.nzecimalepret lnProcTvaNou = goContract.proc_tva lnProcTVAVechi = This.Parent.nOldProcTVA If m.lnProcTvaNou <> m.lnProcTVAVechi If AMESSAGEBOX('Doriti sa actualizati procentul de TVA si valorile pe ratele nefacturate de la ' + ; ALLTRIM(Transform(m.lnProcTVAVechi)) + ' la ' + Alltrim(Transform(m.lnProcTvaNou)) + '?',4+32, 'Actualizare TVA') = 6 llPastreazaPretcuTVA = (AMESSAGEBOX('Se pastreaza pretul cu TVA pentru ratele cu TVA inclus?',4+32, 'Actualizare TVA') = 6) Select cCtrScadentar Scan For valrataftva - valvaluta <> 0 AND proc_tva = m.lnProcTVAVechi If goContract.valftva <> 0 And goContract.valftva*0 = 0 && <> ************* Replace procent With valrata/goContract.valftva * 100 Else Replace procent With 0 Endif REPLACE proc_tva WITH m.lnProcTVANou IF NVL(pret_cu_tva,0) = 1 IF m.llPastreazaPretCuTVA * se pastreaza pretul cu TVA. recalculez pretul fara TVA lnValRatacTva = valratactva lnTVANou = ROUND(lnValRatacTva * lnProcTVANou / 100, m.lnZecimalePret) lnValRatafTva = m.lnValRatacTva - m.lnTvaNou REPLACE valrataftva WITH m.lnValRatafTva ELSE * se pastreaza pretul fara TVA. recalculez pretul cu TVA lnValRataFTva = valrataftva lnTVANou = ROUND(lnValRataFTva * m.lnProcTVANou / 100, m.lnZecimalePret) lnValRataCTva = m.lnValRataFTva + m.lnTVANou REPLACE valrata WITH m.lnValRataCTva, valratactva WITH m.lnValRataCTva ENDIF ELSE * pret fara tva. recalculez pretul cu TVA lnValRataFTva = valrataftva lnTVANou = ROUND(lnValRataFTva * m.lnProcTVANou / 100, m.lnZecimalePret) lnValRataCTva = m.lnValRataFTva + m.lnTVANou REPLACE valratactva WITH m.lnValRataCTva ENDIF This.Parent._grdfooter1.calctotal() Endscan Endif Endif ENDPROC ENDDEFINE DEFINE CLASS frm_fact_garant AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtFactValftva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtGarantieRetinuta" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> * BorderStyle = 1 DoCreate = .T. Height = 111 Name = "frm_fact_garant" Width = 406 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 419 _shape2.Height = 29 _shape2.Left = 342 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 64 Lb_titlu_alb_b121.Caption = "Facturi - Garanții" Lb_titlu_alb_b121.Left = 6 Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 5 BUT_TERMIN1.Left = 375 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 3 BUT_TERMIN1.Top = 1 Gridsort1.Left = 252 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 12 * ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Left = 344, ; Name = "But_renunt1", ; TabIndex = 4, ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare factură", ; FontCharSet = 238, ; Height = 17, ; Left = 6, ; Name = "Label1", ; TabIndex = 6, ; Top = 48, ; Width = 84 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "(fara TVA)", ; Height = 17, ; Left = 6, ; Name = "Label2", ; TabIndex = 7, ; Top = 61, ; Width = 55 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Procent reținut", ; FontCharSet = 238, ; Height = 17, ; Left = 241, ; Name = "Label3", ; TabIndex = 8, ; Top = 54, ; Width = 81 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "%", ; Height = 17, ; Left = 385, ; Name = "Label4", ; TabIndex = 10, ; Top = 54, ; Width = 13 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Garanție reținută", ; FontCharSet = 238, ; Height = 17, ; Left = 6, ; Name = "Label5", ; TabIndex = 11, ; Top = 84, ; Width = 93 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Text2' AS textbox WITH ; ControlSource = "goContract.grnt_proc_ret", ; Format = "rk", ; Height = 23, ; InputMask = "999", ; Left = 335, ; Name = "Text2", ; ReadOnly = .T., ; TabIndex = 9, ; Top = 51, ; Width = 48 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtFactValftva' AS textbox WITH ; ControlSource = "pnFactValftva", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(14,gnPC)), ; Left = 103, ; Name = "txtFactValftva", ; TabIndex = 1, ; Top = 51, ; Width = 120 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtGarantieRetinuta' AS textbox WITH ; ControlSource = "pnGarantieRetinuta", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(14,gnPC)), ; Left = 103, ; Name = "txtGarantieRetinuta", ; TabIndex = 2, ; Top = 81, ; Width = 120 *< END OBJECT: BaseClass="textbox" /> PROCEDURE txtFactValftva.LostFocus pnGarantieRetinuta = ROUND(pnFactValftva * goContract.grnt_proc_ret / 100,gnPc) thisform.txtGarantieRetinuta.Refresh ENDPROC ENDDEFINE DEFINE CLASS frm_facturat_incasat AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_checkbox2" UniqueID="" Timestamp="" /> * DoCreate = .T. Height = 70 Name = "frm_facturat_incasat" Width = 375 _shape1.Name = "_shape1" _SHAPE2.Name = "_SHAPE2" LB_TITLU_ALB_B121.Caption = "Facturat-încasat" LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" BUT_TERMIN1.Name = "BUT_TERMIN1" Gridsort1.Name = "Gridsort1" BUT_RENUNT1.Name = "BUT_RENUNT1" * ADD OBJECT '_checkbox1' AS _checkbox WITH ; Alignment = 0, ; Caption = "Sold <> 0", ; ControlSource = "pnFacturatIncasat", ; FontBold = .T., ; FontName = "Arial Narrow", ; Left = 35, ; Name = "_checkbox1", ; Top = 41 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT '_checkbox2' AS _checkbox WITH ; Alignment = 0, ; Caption = "Grupare pe responsabil", ; ControlSource = "pnGrupResponsabil", ; FontName = "Arial Narrow", ; Left = 228, ; Name = "_checkbox2", ; Top = 41 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ENDDEFINE DEFINE CLASS frm_facturi_ctr AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="grid_facturi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column3.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column3.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> * BorderStyle = 1 DoCreate = .T. Height = 474 Name = "frm_facturi_ctr" Width = 362 _shape1.Name = "_shape1" _shape2.Height = 29 _shape2.Left = 299 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 62 Lb_titlu_alb_b121.Caption = "Facturi" Lb_titlu_alb_b121.Left = 9 Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.Top = 6 BUT_TERMIN1.Left = 331 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 252 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 3 * ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Left = 300, ; Name = "But_renunt1", ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = dataact, ; Caption = "Data fact.", ; FontName = "Arial Narrow", ; Left = 65, ; Name = "Ck_data_fact", ; TabIndex = 1, ; tip = D, ; Top = 43, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = nract, ; Caption = "Nr. fact.", ; FontName = "Arial Narrow", ; Left = 9, ; mask = (replicate('9',12)), ; Name = "Ck_nr_fact", ; TabIndex = 4, ; Top = 43, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 175, ; Name = "Cmd_cauta1", ; TabIndex = 34, ; Top = 39, ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 265, ; Name = "Cmd_reset1", ; TabIndex = 45, ; Top = 39, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grid_facturi' AS _grdbase WITH ; ColumnCount = 3, ; DeleteMark = .F., ; Height = 385, ; Left = 9, ; Name = "grid_facturi", ; Panel = 1, ; RecordSource = "cFactGaran", ; Top = 74, ; Width = 340, ; Column1.ControlSource = "nract", ; Column1.Name = "Column1", ; Column2.ControlSource = "dataact", ; Column2.Name = "Column2", ; Column3.ControlSource = "valctva", ; Column3.Format = "rk", ; Column3.InputMask = (get_mask(20,gnPC)), ; Column3.Name = "Column3", ; Column3.Width = 156 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_facturi.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. fact. ", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data fact.", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare cu TVA", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 LPARAMETERS pcFiltru LOCAL lcFiltru lcFiltru = pcFiltru IF EMPTY(lcFiltru) lcFiltru = poFactGaran.ca_baza1.cfiltru ENDIF save_grid_tag(thisform.grid_Facturi) poFactGaran.ca_baza1.cfiltru = lcFiltru poFactGaran.ca_baza1.afisare() restore_grid_tag(thisform.grid_Facturi) IF RECCOUNT('cFactGaran')>0 thisform.grid_Facturi.SetFocus() ENDIF ENDPROC PROCEDURE do_cauta Local lcFiltru lcFiltru = "" If This.ck_nr_fact.Value = 1 lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru Endif If This.ck_data_fact.Value = 1 lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru Endif Do Case Case gnParametru_prog=1 lcFiltru = [ and extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; [ and id_part = ] + Alltrim(Str(goContract.id_part))+; [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; [ and cont = '4111' ]+ lcFiltru Case gnParametru_prog=2 lcFiltru = [ and extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; [ and id_part = ] + Alltrim(Str(goContract.id_part))+; [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; [ and (cont = '401' or cont='404') ]+ lcFiltru Otherwise lcFiltru = [] Endcase lcFiltru = Substr(lcFiltru,6) Thisform.actualizeaza_grid1(lcFiltru) Thisform.grid_facturi.SetFocus() ENDPROC PROCEDURE do_reset With This For i=1 To .Objects.Count If Upper(.Objects(i).BaseClass)='CHECKBOX' .Objects(i).Value=0 Endif Endfor ENDWITH ENDPROC ENDDEFINE DEFINE CLASS frm_incasari AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="grid_incasari" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column3.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column3.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column4.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column4.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column5.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column6.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column6.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column7.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_incasari.Column7.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> * BorderStyle = 3 cgridsortlist = grid_incasari DoCreate = .T. Height = 548 Name = "frm_incasari" Width = 690 _shape1.Anchor = 11 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 691 _shape2.Anchor = 9 _shape2.Height = 29 _shape2.Left = 629 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 62 Lb_titlu_alb_b121.Caption = "Încasări" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 660 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 468 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 6 * ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 630, ; Name = "But_listare1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grid_incasari' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 7, ; DeleteMark = .F., ; GridLineColor = 196,196,196, ; Height = 500, ; Left = 9, ; Name = "grid_incasari", ; Panel = 1, ; RecordSource = "cIncasari", ; Top = 38, ; Width = 671, ; Column1.BackColor = 255,255,255, ; Column1.ControlSource = "nract", ; Column1.Name = "Column1", ; Column1.Width = 79, ; Column2.BackColor = 255,255,255, ; Column2.ControlSource = "ttod(dataact)", ; Column2.Name = "Column2", ; Column3.BackColor = 255,255,255, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "fel", ; Column3.Name = "Column3", ; Column3.Width = 84, ; Column4.BackColor = 255,255,255, ; Column4.ColumnOrder = 5, ; Column4.ControlSource = "suma", ; Column4.Format = "rk", ; Column4.InputMask = (get_mask(20,gnPC)), ; Column4.Name = "Column4", ; Column4.Width = 110, ; Column5.BackColor = 255,255,255, ; Column5.ColumnOrder = 6, ; Column5.ControlSource = "pereche", ; Column5.Format = "rk", ; Column5.InputMask = "99999999999999", ; Column5.Name = "Column5", ; Column5.Width = 93, ; Column6.BackColor = 255,255,255, ; Column6.ColumnOrder = 7, ; Column6.ControlSource = "contract", ; Column6.Name = "Column6", ; Column6.Width = 86, ; Column7.BackColor = 255,255,255, ; Column7.ColumnOrder = 3, ; Column7.ControlSource = "fdoc", ; Column7.Name = "Column7", ; Column7.Width = 97 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_incasari.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. Doc.", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_incasari.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_incasari.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data Act", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_incasari.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_incasari.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Fel incasare", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_incasari.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_incasari.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Suma", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_incasari.Column4.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_incasari.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Doc. incasat", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_incasari.Column5.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_incasari.Column6.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_incasari.Column6.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_incasari.Column7.Header1' AS header WITH ; Alignment = 2, ; Caption = "Fel document", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_incasari.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> PROCEDURE inainte_de_do_listare Private pcTitlu Do Case Case gnParametru_prog = 1 pcTitlu = 'Încasări de la clientul ' + Alltrim(Upper(goContract.denumire)) Case gnParametru_prog = 2 pcTitlu = 'Plăți către furnizorul ' + Alltrim(Upper(goContract.denumire)) Endcase Thisform.AlwaysOnTop = .F. goExport.export2frx(Thisform.grid_incasari.RecordSource,[rIncasari]) Thisform.AlwaysOnTop = .T. ENDPROC ENDDEFINE DEFINE CLASS frm_ireg_parteneri AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cfdoc.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cfdoc.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDataAct.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDataAct.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDataScad.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDataScad.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDataireg.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDataireg.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNrAct.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNrAct.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNume.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNume.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSoldFinal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSoldFinal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotDebVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotDebVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotCredVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cTotCredVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSoldVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSoldVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cAcont.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cAcont.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNrord.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNrord.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cnresp.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cnresp.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDebit.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cDebit.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cCredit.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cCredit.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cValDebit.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cValDebit.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cValCredit.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cValCredit.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNume_val.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cNume_val.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cCurs.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cCurs.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatia4.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatia4.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatia5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatia5.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cVenChelt.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cVenChelt.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cCod.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cCod.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cId_fact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cId_fact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cId_set.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cId_set.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cId_part.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cId_part.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.Column32.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.Column32.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecValDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecValDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecValCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cPrecValCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.Column35.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.Column35.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSerie_act.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSerie_act.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cProcentTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cProcentTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatieTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cExplicatieTVA.combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSucursala.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid1.cSucursala.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cb_nom_valute1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdIncasPl" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_scadente" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> * *m: actualizeaza_totaluri *m: butapend *m: butdrept *m: corderby_assign *m: filtre *m: incaspl *m: initializare *m: ist_deb_cred *m: notacontab *m: plati *m: salariati *p: casc *p: ccont *p: cnewvalue *p: coldvalue *p: cont *p: corderby *p: cseparator *p: fisier *p: lactiv *p: leroare *p: lmodificare_totaluri *p: lmodificata *p: lvaluta *p: ncreditval *p: ndebitval *p: nmodificata *p: ntotcredit *p: ntotdebit *p: ntotsold *p: ntotsoldval * * BorderStyle = 1 casc = ASC cbuton2 = but_listare1;but_listare2;but_listare3 ccont = cgridsortlist = grid1 cnewvalue = coldvalue = cont = 0 corderby = dataact cseparator = . DoCreate = .T. filtru_pretty_ro = fisier = '' Height = 528 lactiv = .F. leroare = .F. lmodificare_totaluri = .F. lmodificata = .F. lvaluta = .F. Name = "frm_ireg_parteneri" ncreditval = 0 ndebitval = 0 nmodificata = 0 ntotcredit = 0 ntotdebit = 0 ntotsold = 0 ntotsoldval = 0 Width = 793 _memberdata = _shape1.Anchor = 11 _shape1.Name = "_shape1" _shape1.Width = 792 _shape1.ZOrderSet = 3 _shape2.Anchor = 9 _shape2.Height = 29 _shape2.Left = 642 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 151 _shape2.ZOrderSet = 4 Lb_titlu_alb_b121.Caption = "REGISTRUL" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 30 Lb_titlu_alb_b121.ZOrderSet = 5 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 762 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 29 BUT_TERMIN1.Top = 1 BUT_TERMIN1.ZOrderSet = 6 Gridsort1.Left = 378 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 49 * ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 9, ; Left = 733, ; Name = "But_excel1", ; TabIndex = 28, ; Top = 1, ; ZOrderSet = 11 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 703, ; Name = "But_listare1", ; TabIndex = 25, ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; Anchor = 9, ; Left = 642, ; Name = "But_reset_criterii1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; Anchor = 9, ; caction = , ; Height = 27, ; Left = 672, ; Name = "But_start_criterii1", ; Picture = ..\comun\grafice\find_sus.bmp, ; Style = 0, ; Top = 1, ; Width = 31 *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cb_nom_valute1' AS cb_nom_valute WITH ; Anchor = 8, ; Left = 378, ; Name = "Cb_nom_valute1", ; TabIndex = 35, ; Top = 93, ; ZOrderSet = 43 *< END OBJECT: ClassLib="..\comun\clase\oparteneri.vcx" BaseClass="combobox" /> ADD OBJECT 'Ck_scadente' AS ck_filtru_text WITH ; Alignment = 0, ; Anchor = 3, ; AutoSize = .T., ; camp_nume = , ; Caption = "Scadente", ; FontName = "Arial Narrow", ; Left = 12, ; Name = "Ck_scadente", ; TabIndex = 9, ; ToolTipText = "Numele responsabilului", ; Top = 34, ; ZOrderSet = 24 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'cmdIncasPl' AS commandbutton WITH ; AutoSize = .T., ; Caption = "Plati / Incasari", ; Height = 27, ; Left = 446, ; Name = "cmdIncasPl", ; TabIndex = 49, ; Top = 2, ; Visible = .F., ; Width = 95, ; ZOrderSet = 46 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Command1' AS commandbutton WITH ; Caption = "Note contabile", ; Height = 27, ; Left = 308, ; Name = "Command1", ; TabIndex = 48, ; Top = 2, ; Visible = .F., ; Width = 84, ; ZOrderSet = 45 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Command2' AS commandbutton WITH ; Caption = "\ ADD OBJECT 'Command3' AS commandbutton WITH ; AutoSize = .T., ; Caption = "Istoric", ; Height = 27, ; Left = 394, ; Name = "Command3", ; TabIndex = 52, ; Top = 2, ; Visible = .F., ; Width = 51, ; ZOrderSet = 49 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'grid1' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 39, ; DeleteMark = .F., ; FontName = "Arial Narrow", ; Height = 377, ; Left = 3, ; Name = "grid1", ; Panel = 1, ; ReadOnly = .T., ; TabIndex = 22, ; Top = 132, ; Width = 786, ; ZOrderSet = 7, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "fdoc", ; Column1.FontName = "Arial Narrow", ; Column1.Name = "cfdoc", ; Column1.ReadOnly = .T., ; Column1.Visible = .T., ; Column1.Width = 70, ; Column2.ColumnOrder = 4, ; Column2.ControlSource = "dataAct", ; Column2.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column2.FontName = "Arial Narrow", ; Column2.Name = "cDataAct", ; Column2.ReadOnly = .T., ; Column2.Visible = .T., ; Column2.Width = 50, ; Column3.ColumnOrder = 5, ; Column3.ControlSource = "dataScad", ; Column3.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column3.FontName = "Arial Narrow", ; Column3.Name = "cDataScad", ; Column3.ReadOnly = .T., ; Column3.Visible = .T., ; Column3.Width = 58, ; Column4.ColumnOrder = 6, ; Column4.ControlSource = "dataIreg", ; Column4.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column4.FontName = "Arial Narrow", ; Column4.Name = "cDataireg", ; Column4.ReadOnly = .T., ; Column4.Visible = .T., ; Column4.Width = 51, ; Column5.ColumnOrder = 8, ; Column5.ControlSource = "nrAct", ; Column5.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column5.FontName = "Arial Narrow", ; Column5.Name = "cNrAct", ; Column5.ReadOnly = .T., ; Column5.Visible = .T., ; Column5.Width = 64, ; Column6.ColumnOrder = 9, ; Column6.ControlSource = "nume", ; Column6.FontName = "Arial Narrow", ; Column6.Name = "cNume", ; Column6.ReadOnly = .T., ; Column6.Visible = .T., ; Column6.Width = 160, ; Column7.ColumnOrder = 10, ; Column7.ControlSource = "debit+precdeb", ; Column7.FontName = "Arial Narrow", ; Column7.InputMask = (get_mask(12,gnPC)), ; Column7.Name = "cTotDeb", ; Column7.ReadOnly = .T., ; Column7.Visible = .T., ; Column7.Width = 73, ; Column8.ColumnOrder = 11, ; Column8.ControlSource = "credit+preccred", ; Column8.FontName = "Arial Narrow", ; Column8.InputMask = (get_mask(12,gnPC)), ; Column8.Name = "cTotCred", ; Column8.ReadOnly = .T., ; Column8.Visible = .T., ; Column8.Width = 72, ; Column9.ColumnOrder = 13, ; Column9.ControlSource = "(precdeb+debit)-(preccred+credit)", ; Column9.DynamicBackColor = "RGB(187,235,255)", ; Column9.FontName = "Arial Narrow", ; Column9.InputMask = (get_mask(12,gnPC)), ; Column9.Name = "cSoldFinal", ; Column9.ReadOnly = .T., ; Column9.Visible = .T., ; Column9.Width = 77, ; Column10.ColumnOrder = 12, ; Column10.ControlSource = "valdebit+precValDeb", ; Column10.FontName = "Arial Narrow", ; Column10.InputMask = (get_mask(12,gnPval)), ; Column10.Name = "cTotDebVal", ; Column10.ReadOnly = .T., ; Column10.Visible = .T., ; Column10.Width = 87, ; Column11.ColumnOrder = 14, ; Column11.ControlSource = "valcredit+precValCred", ; Column11.FontName = "Arial Narrow", ; Column11.InputMask = (get_mask(12,gnPval)), ; Column11.Name = "cTotCredVal", ; Column11.ReadOnly = .T., ; Column11.Visible = .T., ; Column11.Width = 75, ; Column12.ColumnOrder = 15, ; Column12.ControlSource = "(precValDeb+valDebit)-(precValCred+valCredit)", ; Column12.DynamicBackColor = "RGB(187,235,255)", ; Column12.FontName = "Arial Narrow", ; Column12.InputMask = (get_mask(12,gnPval)), ; Column12.Name = "cSoldVal", ; Column12.ReadOnly = .T., ; Column12.Visible = .T., ; Column13.ColumnOrder = 2, ; Column13.ControlSource = "acont", ; Column13.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column13.FontName = "Arial Narrow", ; Column13.Name = "cAcont", ; Column13.ReadOnly = .T., ; Column13.Visible = .T., ; Column13.Width = 32, ; Column14.ColumnOrder = 16, ; Column14.ControlSource = "explicatia", ; Column14.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column14.FontName = "Arial Narrow", ; Column14.Name = "cExplicatia", ; Column14.ReadOnly = .T., ; Column14.Visible = .T., ; Column14.Width = 100, ; Column15.ColumnOrder = 17, ; Column15.ControlSource = "nrord", ; Column15.FontName = "Arial Narrow", ; Column15.Name = "cNrord", ; Column15.ReadOnly = .T., ; Column15.Visible = .T., ; Column15.Width = 78, ; Column16.ColumnOrder = 19, ; Column16.ControlSource = "nresp", ; Column16.FontName = "Arial Narrow", ; Column16.Name = "cnresp", ; Column16.ReadOnly = .T., ; Column16.Visible = .T., ; Column16.Width = 139, ; Column17.ColumnOrder = 20, ; Column17.ControlSource = "debit", ; Column17.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column17.FontName = "Arial Narrow", ; Column17.InputMask = (get_mask(12,gnPC)), ; Column17.Name = "cDebit", ; Column17.ReadOnly = .T., ; Column17.Visible = .T., ; Column18.ColumnOrder = 21, ; Column18.ControlSource = "credit", ; Column18.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column18.FontName = "Arial Narrow", ; Column18.InputMask = (get_mask(12,gnPC)), ; Column18.Name = "cCredit", ; Column18.ReadOnly = .T., ; Column18.Visible = .T., ; Column19.ColumnOrder = 22, ; Column19.ControlSource = "valDebit", ; Column19.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column19.FontName = "Arial Narrow", ; Column19.InputMask = (get_mask(12,gnPval)), ; Column19.Name = "cValDebit", ; Column19.ReadOnly = .T., ; Column19.Visible = .T., ; Column20.ColumnOrder = 23, ; Column20.ControlSource = "valcredit", ; Column20.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column20.FontName = "Arial Narrow", ; Column20.InputMask = (get_mask(12,gnPval)), ; Column20.Name = "cValCredit", ; Column20.ReadOnly = .T., ; Column20.Visible = .T., ; Column21.ColumnOrder = 24, ; Column21.ControlSource = "nume_val", ; Column21.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column21.FontName = "Arial Narrow", ; Column21.Name = "cNume_val", ; Column21.ReadOnly = .T., ; Column21.Visible = .T., ; Column21.Width = 35, ; Column22.ColumnOrder = 25, ; Column22.ControlSource = "curs", ; Column22.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column22.FontName = "Arial Narrow", ; Column22.InputMask = (get_mask(12,gnPCurs2)), ; Column22.Name = "cCurs", ; Column22.ReadOnly = .T., ; Column22.Visible = .T., ; Column22.Width = 68, ; Column23.ColumnOrder = 26, ; Column23.ControlSource = "precDeb", ; Column23.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column23.FontName = "Arial Narrow", ; Column23.InputMask = (get_mask(12,gnPC)), ; Column23.Name = "cPrecDeb", ; Column23.ReadOnly = .T., ; Column23.Visible = .T., ; Column24.ColumnOrder = 27, ; Column24.ControlSource = "precCred", ; Column24.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column24.FontName = "Arial Narrow", ; Column24.InputMask = (get_mask(12,gnPC)), ; Column24.Name = "cPrecCred", ; Column24.ReadOnly = .T., ; Column24.Visible = .T., ; Column25.ColumnOrder = 30, ; Column25.ControlSource = "explicatia4", ; Column25.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column25.FontName = "Arial Narrow", ; Column25.Name = "cExplicatia4", ; Column25.ReadOnly = .T., ; Column25.Visible = .T., ; Column26.ColumnOrder = 31, ; Column26.ControlSource = "explicatia5", ; Column26.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column26.FontName = "Arial Narrow", ; Column26.Name = "cExplicatia5", ; Column26.ReadOnly = .T., ; Column26.Visible = .T., ; Column27.ColumnOrder = 32, ; Column27.ControlSource = "venChelt", ; Column27.FontName = "Arial Narrow", ; Column27.Name = "cVenChelt", ; Column27.ReadOnly = .T., ; Column27.Visible = .T., ; Column27.Width = 61, ; Column28.ColumnOrder = 33, ; Column28.ControlSource = "cod", ; Column28.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column28.FontName = "Arial Narrow", ; Column28.Name = "cCod", ; Column28.ReadOnly = .T., ; Column28.Visible = .T., ; Column28.Width = 51, ; Column29.ColumnOrder = 34, ; Column29.ControlSource = "id_fact", ; Column29.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column29.FontName = "Arial Narrow", ; Column29.Name = "cId_fact", ; Column29.ReadOnly = .T., ; Column29.Visible = .T., ; Column29.Width = 53, ; Column30.ColumnOrder = 35, ; Column30.ControlSource = "id_set", ; Column30.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column30.FontName = "Arial Narrow", ; Column30.Name = "cId_set", ; Column30.ReadOnly = .T., ; Column30.Visible = .T., ; Column30.Width = 50, ; Column31.ColumnOrder = 36, ; Column31.ControlSource = "id_part", ; Column31.FontName = "Arial Narrow", ; Column31.Name = "cId_part", ; Column31.ReadOnly = .T., ; Column31.Visible = .T., ; Column31.Width = 71, ; Column32.ColumnOrder = 1, ; Column32.ControlSource = "cont", ; Column32.FontName = "Arial Narrow", ; Column32.Name = "Column32", ; Column32.ReadOnly = .T., ; Column32.Width = 29, ; Column33.ColumnOrder = 28, ; Column33.ControlSource = "precvaldeb", ; Column33.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column33.FontName = "Arial Narrow", ; Column33.InputMask = (get_mask(12,gnPval)), ; Column33.Name = "cPrecValDeb", ; Column33.ReadOnly = .T., ; Column33.Width = 80, ; Column34.ColumnOrder = 29, ; Column34.ControlSource = "precvalcred", ; Column34.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column34.FontName = "Arial Narrow", ; Column34.InputMask = (get_mask(12,gnPval)), ; Column34.Name = "cPrecValCred", ; Column34.ReadOnly = .T., ; Column34.Width = 84, ; Column35.ColumnOrder = 18, ; Column35.ControlSource = "contract", ; Column35.FontName = "Arial Narrow", ; Column35.Name = "Column35", ; Column35.ReadOnly = .T., ; Column36.ColumnOrder = 7, ; Column36.ControlSource = "serie_act", ; Column36.FontName = "Arial Narrow", ; Column36.Name = "cSerie_act", ; Column36.ReadOnly = .T., ; Column36.Width = 53, ; Column37.ControlSource = "proc_tva", ; Column37.FontName = "Arial Narrow", ; Column37.Name = "cProcentTVA", ; Column37.ReadOnly = .T., ; Column38.ControlSource = "explicatie_TVA", ; Column38.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; Column38.FontName = "Arial Narrow", ; Column38.Name = "cExplicatieTVA", ; Column38.ReadOnly = .T., ; Column38.Sparse = .T., ; Column38.Width = 148, ; Column39.ControlSource = "sucursala", ; Column39.FontName = "Arial Narrow", ; Column39.Name = "cSucursala", ; Column39.ReadOnly = .T., ; Column39.Width = 151 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid1.cAcont.Header1' AS header WITH ; Alignment = 2, ; Caption = "Analitic", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cAcont.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cCod.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cCod.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cCredit.Header1' AS header WITH ; Alignment = 2, ; Caption = "Credit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cCredit.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cCurs.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs de schimb", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cCurs.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cDataAct.Header1' AS header WITH ; Alignment = 2, ; BackColor = 212,208,200, ; Caption = "Data Act", ; FontName = "Arial Narrow", ; ForeColor = 0,0,255, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cDataAct.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cDataireg.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data inreg", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cDataireg.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cDataScad.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data scadenta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cDataScad.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cDebit.Header1' AS header WITH ; Alignment = 2, ; Caption = "Debit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cDebit.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cExplicatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatia", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cExplicatia.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cExplicatia4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatia 4", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cExplicatia4.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cExplicatia5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatia 5", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cExplicatia5.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cExplicatieTVA.combo1' AS combobox WITH ; BoundColumn = 1, ; BoundTo = .T., ; FontName = "Arial Narrow", ; Height = 24, ; Left = 30, ; Name = "combo1", ; ReadOnly = .T., ; RowSource = "jtva_temp.denumire", ; RowSourceType = 6, ; SpecialEffect = 1, ; Top = 23, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grid1.cExplicatieTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatie TVA", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cfdoc.Header1' AS header WITH ; Alignment = 2, ; Caption = "Fel Doc", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cfdoc.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cId_fact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Id fact", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cId_fact.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cId_part.Header1' AS header WITH ; Alignment = 2, ; Caption = "Id Partener", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cId_part.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cId_set.Header1' AS header WITH ; Alignment = 2, ; Caption = "Id set", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cId_set.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cNrAct.Header1' AS header WITH ; Alignment = 2, ; BackColor = 212,208,200, ; Caption = "Nr. Doc.", ; FontName = "Arial Narrow", ; ForeColor = 0,0,255, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cNrAct.Text1' AS textbox WITH ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cnresp.Header1' AS header WITH ; Alignment = 2, ; Caption = "Responsabil", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cnresp.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cNrord.Header1' AS header WITH ; Alignment = 2, ; Caption = "Lucrare/Comanda", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cNrord.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cNume.Header1' AS header WITH ; Alignment = 2, ; BackColor = 192,192,192, ; Caption = "Nume", ; FontName = "Arial Narrow", ; ForeColor = 0,0,255, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cNume.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cNume_val.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nume valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cNume_val.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.Column32.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cont", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.Column32.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.Column35.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.Column35.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cPrecCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Prec. Credit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cPrecCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cPrecDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Prec. Debit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cPrecDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cPrecValCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Prec. Valuta Credit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cPrecValCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cPrecValDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Prec. Valuta Debit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cPrecValDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cProcentTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Procent TVA", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cProcentTVA.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ControlSource = "proc_tva", ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cSerie_act.Header1' AS header WITH ; Alignment = 2, ; Caption = "Serie Doc.", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cSerie_act.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cSoldFinal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Sold final", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cSoldFinal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cSoldVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Sold valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cSoldVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cSucursala.Header1' AS header WITH ; Alignment = 2, ; Caption = "Sucursala", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cSucursala.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cTotCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Total Credit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cTotCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cTotCredVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Total Credit Valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cTotCredVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cTotDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Total Debit", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cTotDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cTotDebVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Total Debit Valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cTotDebVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cValCredit.Header1' AS header WITH ; Alignment = 2, ; Caption = "Credit Valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cValCredit.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cValDebit.Header1' AS header WITH ; Alignment = 2, ; Caption = "Debit Valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cValDebit.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid1.cVenChelt.Header1' AS header WITH ; Alignment = 2, ; Caption = "Venituri/Chelt.", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid1.cVenChelt.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 0,64,128, ; Visible = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label2' AS label WITH ; Anchor = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = (thisform.grid1.cTotDeb.header1.caption), ; FontName = "Arial Narrow", ; Height = 18, ; Left = 516, ; Name = "Label2", ; TabIndex = 42, ; Top = 40, ; Width = 45, ; ZOrderSet = 38 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Anchor = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "TOTAL", ; FontBold = .T., ; FontName = "Times New Roman", ; FontSize = 12, ; Height = 22, ; Left = 381, ; Name = "Label3", ; TabIndex = 34, ; Top = 40, ; Width = 55, ; ZOrderSet = 31 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Anchor = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = (thisform.grid1.cTotCred.header1.caption), ; FontName = "Arial Narrow", ; Height = 18, ; Left = 623, ; Name = "Label4", ; TabIndex = 43, ; Top = 40, ; Width = 49, ; ZOrderSet = 39 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; Anchor = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Sold", ; FontName = "Arial Narrow", ; Height = 18, ; Left = 762, ; Name = "Label5", ; TabIndex = 44, ; Top = 40, ; Width = 21, ; ZOrderSet = 40 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; Anchor = 9, ; AutoSize = .T., ; BackStyle = 0, ; Caption = (thisform.grid1.cTotDebVal.header1.caption), ; FontName = "Arial Narrow", ; Height = 18, ; Left = 478, ; Name = "Label6", ; TabIndex = 31, ; Top = 76, ; Width = 2, ; ZOrderSet = 0 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label8' AS label WITH ; Anchor = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = (thisform.grid1.cTotCredVal.header1.caption), ; FontName = "Arial Narrow", ; Height = 18, ; Left = 594, ; Name = "Label8", ; TabIndex = 46, ; Top = 77, ; Width = 78, ; ZOrderSet = 42 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label9' AS label WITH ; Anchor = 8, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Sold Valuta", ; FontName = "Arial Narrow", ; Height = 18, ; Left = 733, ; Name = "Label9", ; TabIndex = 45, ; Top = 77, ; Width = 50, ; ZOrderSet = 41 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; Anchor = 8, ; Caption = "Valuta", ; FontName = "Arial Narrow", ; Left = 378, ; Name = "Lb_simplu1", ; TabIndex = 33, ; Top = 76, ; ZOrderSet = 30 *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; Anchor = 10, ; Caption = ' Pentru a vizualiza documentele salvate in baza de date, trebuie sa faceti click dreapta pe coloana "Nr.Doc." ( doar inregistrarile colorate au atasamente ).', ; Height = 47, ; Left = 13, ; Name = "Lb_simplu2", ; Top = 58, ; Width = 320, ; WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> ADD OBJECT 'oMenuShortcut' AS menulib WITH ; Left = 191, ; Name = "oMenuShortcut", ; TabIndex = 47, ; Top = 10, ; ZOrderSet = 44 *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> ADD OBJECT 'Shape2' AS shape WITH ; Anchor = 8, ; BackStyle = 0, ; Height = 88, ; Left = 376, ; Name = "Shape2", ; SpecialEffect = 0, ; Top = 36, ; Width = 411, ; ZOrderSet = 1 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'Text1' AS textbox WITH ; Alignment = 1, ; Anchor = 8, ; ControlSource = "Thisform.ntotdebit", ; FontName = "Arial Narrow", ; Format = "r", ; Height = 23, ; InputMask = (get_mask(12,gnPC)), ; Left = 453, ; Name = "Text1", ; ReadOnly = .T., ; TabIndex = 36, ; Top = 55, ; Width = 108, ; ZOrderSet = 32 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text2' AS textbox WITH ; Alignment = 1, ; Anchor = 8, ; ControlSource = "Thisform.ntotcredit", ; FontName = "Arial Narrow", ; Format = "r", ; Height = 23, ; InputMask = (get_mask(12,gnPC)), ; Left = 564, ; Name = "Text2", ; ReadOnly = .T., ; TabIndex = 37, ; Top = 55, ; Width = 108, ; ZOrderSet = 33 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text3' AS textbox WITH ; Alignment = 1, ; Anchor = 8, ; ControlSource = "Thisform.ntotSold", ; FontName = "Arial Narrow", ; Format = "r", ; Height = 23, ; InputMask = (get_mask(12,gnPC)), ; Left = 675, ; Name = "Text3", ; ReadOnly = .T., ; TabIndex = 38, ; Top = 55, ; Width = 108, ; ZOrderSet = 34 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text4' AS textbox WITH ; Alignment = 1, ; Anchor = 8, ; FontName = "Arial Narrow", ; Format = "r", ; Height = 23, ; InputMask = (get_mask(12,gnPval)), ; Left = 453, ; Name = "Text4", ; ReadOnly = .T., ; TabIndex = 39, ; Top = 94, ; Width = 108, ; ZOrderSet = 35 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text5' AS textbox WITH ; Alignment = 1, ; Anchor = 8, ; FontName = "Arial Narrow", ; Format = "r", ; Height = 23, ; InputMask = (get_mask(12,gnPval)), ; Left = 564, ; Name = "Text5", ; ReadOnly = .T., ; TabIndex = 40, ; Top = 94, ; Width = 108, ; ZOrderSet = 36 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Text6' AS textbox WITH ; Alignment = 1, ; Anchor = 8, ; FontName = "Arial Narrow", ; Format = "r", ; Height = 23, ; InputMask = (get_mask(12,gnPval)), ; Left = 675, ; Name = "Text6", ; ReadOnly = .T., ; TabIndex = 41, ; Top = 94, ; Width = 108, ; ZOrderSet = 37 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Activate Thisform.WindowState=2 tw1=Thisform.Width tl1=Thisform.Height tw2=Thisform.Width tl2=Thisform.Height gw1=Thisform.grid1.Width gl1=Thisform.grid1.Height Thisform.grid1.Width = Round(gw1*tw2/tw1,0) Thisform.grid1.Height = Round(gl1*tl2/tl1,0) lnlung1 = Thisform._shape1.Width Thisform._shape1.Width = Round(lnlung1*tw2/tw1,0) lndif = Thisform._shape1.Width-lnlung1 Thisform._shape2.Left = Thisform._shape2.Left+lndif ** Thisform.Paint Thisform.Refresh Set Safety Off Select actcv ENDPROC PROCEDURE actualizeaza_grid1 Lparameters tcFiltru Local lcFiltru,llCautareNoua If Empty(tcFiltru) lcFiltru = poireg_parteneri.ca_baza1.cfiltru llCautareNoua=.F. Else lcFiltru = tcFiltru llCautareNoua=.T. Endif lcOrder= This.corderby + " " + This.Casc Thisform.MousePointer= 11 Thisform.LockScreen=.T. save_grid_tag(Thisform.grid1) *!* IF USED("actcv") *!* USE IN actcv *!* ENDIF poireg_parteneri.ca_baza1.cfiltru = lcFiltru poireg_parteneri.ca_baza1.corder = lcOrder poireg_parteneri.ca_baza1.afisare() *!* STRTOFILE(poireg_parteneri.ca_baza1.selectcmd,"c:\sele.txt") *!* USE DBF("v_ireg_parteneri") IN 0 AGAIN ALIAS actcv restore_grid_tag(Thisform.grid1) Thisform.MousePointer= 0 Thisform.LockScreen=.F. *!* If !Thisform.eactan *!* Do nrord With "ACTJUR" *!* *!* else *!* *!* thisform.clb_tx_simplu1.visible=iif(thisform.ck_total.value=0,.F.,.T.) *!* Endif *!* If Thisform.ck_perioada.Value=1 *!* With Thisform.ck_perioada *!* If .cvaloare1=Thisform.ck_perioada.cvaloare2 *!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; *!* " "+.cvaloare1 *!* Else *!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; *!* " "+.cvaloare1+" - "+.cvaloare2 *!* Endif *!* Endwith *!* Else *!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; *!* " "+Padl(Alltrim(Str(gnluna)),2,"0")+"/"+Alltrim(Str(gnAn)) *!* Endif &&===========actualizeaza_totaluri *!* Select actcv *!* Sum (debit+precdeb) To Thisform.ntotdebit *!* SUM (credit+preccred) TO thisform.ntotcredit *!* Sum (valdebit+precvaldeb) To Thisform.ndebitval *!* SUM (valcredit+precvalcred) TO thisform.ncreditval *!* IF tlActiv *!* SUM ((precdeb + debit) - ( preccred + credit)) TO thisform.ntotsold *!* SUM ((precvaldeb + valdebit) - ( precvalcred + valcredit)) TO thisform.ntotsoldval *!* ELSE *!* SUM ((preccred + credit) - (precdeb + debit)) TO thisform.ntotsold *!* SUM (( precvalcred + valcredit) - (precvaldeb + valdebit)) TO thisform.ntotsoldval *!* ENDIF &&==================== Thisform.cb_nom_valute1.initializare(llCautareNoua) Thisform.actualizeaza_totaluri() Select actcv *!* If Thisform.clb_tx_simplu1.Visible=.T. *!* Sum suma To Thisform.nsuma *!* Endif *!* If Thisform.ck_sters.Visible=.T. *!* Endif thisform.griD1.SetFocus *!* Thisform.clb_tx_simplu1.text_simplu1.Refresh ENDPROC PROCEDURE actualizeaza_totaluri LOCAL lcValuta,lcPoz lcValuta=ALLTRIM(THISFORM.cb_nom_valute1.VALUE) SELECT actcv lnPoz=IIF(RECCOUNT('actcv')>0,RECNO(),0) *!* SELECT * FROM actcv INTO TABLE c:\actcv_.DBF SUM (debit+precdeb),(credit+preccred) TO THISFORM.ntotdebit,THISFORM.ntotcredit IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U' SUM (valdebit+precvaldeb),(valcredit+precvalcred) TO THISFORM.ndebitval,THISFORM.ncreditval FOR nume_val=lcValuta ENDIF IF THISFORM.lactiv SUM ((precdeb + debit) - ( preccred + credit)) TO THISFORM.ntotsold IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U' SUM ((precvaldeb + valdebit) - ( precvalcred + valcredit)) TO THISFORM.ntotsoldval FOR nume_val=lcValuta ENDIF ELSE SUM ((preccred + credit) - (precdeb + debit)) TO THISFORM.ntotsold IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U' SUM ((precvalcred + valcredit) - (precvaldeb + valdebit)) TO THISFORM.ntotsoldval FOR nume_val=lcValuta ENDIF ENDIF THISFORM.text1.REFRESH THISFORM.text2.REFRESH THISFORM.text3.REFRESH THISFORM.text4.REFRESH THISFORM.text5.REFRESH THISFORM.text6.REFRESH IF RECCOUNT('actcv')>0 SELECT actcv GO lnPoz ENDIF ENDPROC PROCEDURE butapend If glLunaInchisa RETURN Endif Local lcTitlu,lbMenu[4] lcTitlu=Thisform.lb_titlu_alb_b121.Caption lbMenu="" If Thisform.grid1.ReadOnly *!* lbMenu[1]="\Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) IF !EMPTY(locauta.nume) lnid_part=locauta.id_part lcnume=ALLTRIM(locauta.nume) ELSE RETURN ENDIF lcacont = [] IF USED('crsacont') USE IN crsacont ENDIF *!* lcSql=[select count(*) as aconturi from vplcont_analitic ]+; *!* [where cont=']+ALLTRIM(THISFORM.CONT)+[' and an=]+ALLTRIM(STR(gnAn)) lcSql=[select count(*) as aconturi from vplcont_analitic ]+; [where cont=']+lcCont+[' and an=]+ALLTRIM(STR(gnAn)) lnSucces = goExecutor.oExecute(lcSql,"crsacont") IF lnSucces < 0 lcTextEroare = goExecutor.cEroare aMESSAGEBOX(lcTextEroare,0+48,"Eroare") ENDIF IF lnSucces > 0 AND crsacont.aconturi>0 STORE "" TO locauta *!* pcselect = ['select acont,explicatie FROM vplcont_analitic '+]+; *!* ["where cont=']+ALLTRIM(THISFORM.CONT)+[' and an=]+ALLTRIM(STR(gnAn))+["] pcselect = ['select acont,explicatie FROM vplcont_analitic '+]+; ["where cont=']+lcCont+[' and an=]+ALLTRIM(STR(gnAn))+["] pcfiltru = [1=2] pcschema = [''] pcorder = [acont] pccoloane = [acont] pcTitlu = [Alegeti contul analitic] pcTitluColoane = [Acont,Explicatie] locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) IF !EMPTY(locauta.acont) lcacont=ALLTRIM(locauta.acont) ELSE IF gnButon=2 RETURN ELSE lcacont="" ENDIF ENDIF ENDIF IF USED('crsacont') USE IN crsacont ENDIF IF lnSucces > 0 loValuta = caut_valuta() lnIdValuta = IIF(!EMPTY(loValuta.id_valuta), loValuta.id_valuta, 0) lcNumeValuta = IIF(!EMPTY(loValuta.nume_val), loValuta.nume_val, "") *!* 17.10.2006 *!* marius.mutu IF EMPTY(loValuta.nume_val) OR EMPTY(loValuta.id_valuta) loCauta = GetMonedaNationala() lnIdValuta = loCauta.id_valuta lcNumeValuta = ALLTRIM(locauta.nume_val) ENDIF ENDIF IF lnSucces > 0 loFdoc = caut_fdoc() lnIdFdoc = IIF(!EMPTY(loFdoc.id_fdoc), loFdoc.id_fdoc, 0) lcfdoc = IIF(!EMPTY(loFdoc.fel_document), loFdoc.fel_document, "") ENDIF IF lnSucces > 0 loResp = caut_responsabil() lnIdResp = IIF(!EMPTY(loResp.id_responsabil), loResp.id_responsabil, 0) lcResp = IIF(!EMPTY(loResp.nume), loResp.nume, "") ENDIF SELECT actcv APPEND BLANK REPLACE CONT WITH lcCont && ALLTRIM(THISFORM.CONT) REPLACE acont WITH lcacont REPLACE id_ireg_part WITH 0 REPLACE id_part WITH lnid_part REPLACE nume WITH lcnume REPLACE id_fdoc WITH 0 REPLACE fdoc WITH lcfdoc REPLACE id_fdoc WITH lnIdFdoc REPLACE id_valuta WITH lnIdValuta REPLACE id_responsabil WITH lnIdResp REPLACE nresp WITH lcResp REPLACE nume_val WITH lcNumeValuta REPLACE id_responsabil WITH 0 REPLACE id_lucrare WITH 0 REPLACE id_fact WITH 0 REPLACE id_act WITH 0 REPLACE id_set WITH 0 REPLACE id_venchelt WITH 0 REPLACE cod WITH 0 REPLACE id_sucursala WITH lnIdSucursala, sucursala WITH lcSucursala THISFORM.lmodificata=.T. THISFORM.lvaluta=.F. THISFORM.grid1.cfdoc.SETFOCUS() *!* Else *!* Thisform.grid1.SetFocus() *!* Endif ENDPROC PROCEDURE do_cauta Local lcFiltru lcFiltru = "" *!* If m.nivel>1 *!* lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ] *!* ENDIF * nrdoc *!* If Thisform.ck_nrdoc.Value=1 *!* lcFiltru = lcFiltru + Thisform.ck_nrdoc.filtru *!* Endif *!* * responsabil *!* If Thisform.ck_responsabil.Value=1 *!* lcFiltru = lcFiltru + Thisform.ck_responsabil.filtru *!* Endif *!* * dataDoc *!* If This.ck_dataDoc.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_dataDoc.filtru *!* Endif *!* * datascad *!* If This.ck_datascad.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_datascad.filtru *!* Endif *!* * analitic *!* If This.ck_analitic.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_analitic.filtru *!* Endif *!* * cont *!* If This.ck_cont.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_cont.filtru *!* Endif *!* * firma *!* If This.ck_firma.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_firma.filtru *!* Endif *!* * venit_cheltuiala *!* If This.ck_venchelt.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_venchelt.filtru *!* ENDIF *!* * lucrare/comanda *!* If This.ck_lucrare.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_lucrare.filtru *!* ENDIF *!* * contract *!* If This.ck_contract.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_contract.filtru *!* Endif *!* * debit *!* If Thisform.ck_debit.Value=1 *!* lcFiltru = lcFiltru + Thisform.ck_debit.filtru *!* Endif *!* * credit *!* If Thisform.ck_credit.Value=1 *!* lcFiltru = lcFiltru + Thisform.ck_credit.filtru *!* Endif *!* * sold *!* If This.ck_sold.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_sold.filtru *!* Endif *!* * valuta *!* If This.ck_valuta.Value = 1 *!* lcFiltru = lcFiltru + Thisform.ck_valuta.filtru *!* Endif *!* * explicatia *!* If This.ck_explicatia.Value = 1 *!* lcFiltru = lcFiltru + This.ck_explicatia.filtru *!* ENDIF *!* * fel document *!* If This.Ck_fel_doc.Value = 1 *!* lcFiltru = lcFiltru + This.Ck_fel_doc.filtru *!* ENDIF *!* *scadente If This.Ck_scadente.Value = 1 lcFiltru = lcFiltru + This.Ck_scadente.filtru ENDIF *!* *explicatia4 *!* IF this.ck_explicatia4.Value=1 *!* lcFiltru = lcFiltru + this.ck_explicatia4.filtru *!* ENDIF *ACHITATE *!* If This.check3.Value = 1 *!* If thisform.lActiv *!* lcFiltru = lcFiltru + "and (i.precdeb + i.debit) - (i.preccred + i.credit) = 0" *!* Else *!* lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) = 0" *!* Endif *!* Endif *!* *NEACHITATE *!* If This.check4.Value = 1 *!* If thisform.lActiv *!* lcFiltru = lcFiltru + " and (i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0" *!* Else *!* lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) <> 0" *!* Endif *!* Endif *!* If This.check7.Value = 1 *!* lcFiltru = lcFiltru + " and extract (year from i.datascad) =" + Alltrim(Str(gnAn)) + "and extract (month from i.datascad) = " + Alltrim(Str(gnLuna)) *!* Endif IF PEMSTATUS(thisform,"filtru_pretty",5) else thisform.AddProperty("filtru_pretty","") endif IF LEN(thisform.filtru_pretty)>0 filtrutext=thisform.filtru_pretty IF AT("AND",filtrutext)=1 filtrutext=RIGHT(filtrutext,LEN(filtrutext)-4) ENDIF lcFiltru=lcFiltru+" and ("+ALLTRIM(filtrutext)+")" ENDIF If !Empty(lcFiltru) lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') ] + lcFiltru Else lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') ] Endif IF (this.filtru_pretty#"none") Thisform.MousePointer= 11 Thisform.LockScreen=.T. Thisform.actualizeaza_grid1(lcFiltru) Thisform.LockScreen=.F. Thisform.MousePointer= 0 If Reccount('actcv')=0 aMessagebox("Cautarea nu a intors rezultate!",64,"Info cautare") ENDIF ENDIF thisform.but_start_criterii1.SetFocus ENDPROC PROCEDURE do_excel Local lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder lcAlias = this.grid1.RecordSource lcFiltru = FILTER(lcAlias) IF EMPTY(lcFiltru) lcFiltru = '.T.' ENDIF exista_excel=.T. lcColumnList = '' lcHeaderList = '' lcSelect = '' llSelect = .T. lcType = 'CURSOR' lcFrom = lcAlias lcWhere = lcFiltru lcOrder = 'nume' lcOutput = 'crsIregPart' get_schema_grid(this.grid1,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput) &lcSelect IF USED(lcOutput) DO export_xls WITH lcOutput IN oproceduri_comune.prg USE IN (lcOutput) ENDIF ENDPROC PROCEDURE do_listare Local lcRaport, x Private pcTitlu, t1, t2, t3, t4 Store "" To pcTitlu lcRaport = "" lcTitlu = "" t1 = Thisform.grid1.cTotDeb.header1.Caption t2 = Thisform.grid1.cTotCred.header1.Caption t3 = Thisform.grid1.cTotDebVal.header1.Caption t4 = Thisform.grid1.cTotCredVal.header1.Caption *!* MESSAGEBOX('EACTIV = ' + TRANSFORM(EACTIV) + CHR(13) + t1 + " " + t2 + CHR(13) + t3 + " " + t4 + CHR(13) + iif(eActiv,t1,t2) + " " + iif(eActiv,t3,t4)) x = xmenu("Lista facturi pe parteneri - lei;Lista facturi simpla;Lista facturi pe parteneri - lei,valuta;Lista facturi pe parteneri - valuta;Lista solduri facturi pe parteneri;Centralizator facturi emise in luna") Private pcSubtitlu If This.filtru_traducere()#"" lctext=" si "+This.filtru_traducere() Else lctext="" Endif pcSubtitlu = this.filtru_pretty_ro + lctext Do Case Case x = 1 t1 = Thisform.grid1.cTotDeb.header1.Caption t2 = Thisform.grid1.cCredit.header1.Caption t3 = Thisform.grid1.cPrecCred.header1.Caption t4 = Thisform.grid1.cTotCred.header1.Caption lcTitlu = "pe parteneri" && Lista facturi pe parteneri - lei lcRaport = "ireg_parteneri_rpt2lei" Select * ; FROM actcv With (Buffering = .T.) ; ORDER By nume,dataact,nract ; INTO Cursor curent_cursor NOFILTER Case x = 2 lcTitlu = "" && Lista facturi simpla lcRaport = "ireg_parteneri_rpt1" Select * ; FROM actcv With (Buffering = .T.) ; ORDER By dataact,nract ; INTO Cursor curent_cursor NOFILTER Case x = 3 lcTitlu = "pe parteneri" && Lista facturi pe parteneri - lei,valuta lcRaport = "ireg_parteneri_rpt2" Select * ; FROM actcv With (Buffering = .T.) ; ORDER By nume,dataact,nract ; INTO Cursor curent_cursor NOFILTER Case x = 4 lcTitlu = "pe parteneri - valuta" && Lista facturi pe parteneri - valuta lcRaport = "ireg_parteneri_rpt3" Select * ; FROM actcv With (Buffering = .T.) ; WHERE precvaldeb <> 0 Or precvalcred <> 0 Or valdebit <> 0 Or valcredit <> 0 ; ORDER By nume,dataact,nract ; INTO Cursor curent_cursor NOFILTER Case x = 5 lcTitlu = "solduri pe parteneri" && Lista solduri facturi pe parteneri lcRaport = "ireg_parteneri_rpt5" Select nume, nume_val, Sum(precdeb) As precdeb, Sum(preccred) As preccred, Sum(precvaldeb) As precvaldeb, Sum(precvalcred) As precvalcred, ; SUM(debit) As debit, Sum(credit) As credit, Sum(valdebit) As valdebit, Sum(valcredit) As valcredit ; FROM actcv With (Buffering = .T.) ; GROUP By nume, nume_val ; ORDER By nume, nume_val ; INTO Cursor curent_cursor NOFILTER Case x = 6 lcTitlu = "centralizator" && Centralizator facturi emise in luna lcRaport = "ireg_parteneri_rpt6" Select nract, dataact, serie_act, nume, nume_val, Sum(precdeb) As precdeb, Sum(preccred) As preccred, Sum(precvaldeb) As precvaldeb, Sum(precvalcred) As precvalcred, ; SUM(debit) As debit, Sum(credit) As credit, Sum(valdebit) As valdebit, Sum(valcredit) As valcredit ; FROM actcv With (Buffering = .T.) ; WHERE Year(DATAIREG) * 12 + Month(DATAIREG) = gnAn * 12 + gnLuna ; GROUP By serie_act, nract, dataact, nume, nume_val ; ORDER By dataact, nume, serie_act, nract, nume_val ; INTO Cursor curent_cursor NOFILTER otherwise RETURN Endcase *!* If Empty(lcRaport) Or !Used('curent_cursor') *!* Return *!* Endif *!* If Reccount('curent_cursor') = 0 *!* AMESSAGEBOX('Raportul nu contine rezultate',0+48,"Raport") *!* Else pcTitlu = Thisform.lb_titlu_alb_b121.Caption + " " + lcTitlu *!* titlu = ceretitlu_rap('Titlul Raportului', lcTitlu) *!* pcDataOra = get_ora(2) *!* Thisform.AlwaysOnTop=.F. *!* Select curent_cursor *!* Report Format &lcRaport To Printer Prompt Preview *!* Thisform.AlwaysOnTop=.T. *!* Endif thisform.AlwaysOnTop = .F. goExport.export2frx([curent_cursor],lcRaport,.T.) thisform.AlwaysOnTop = .T. If Used('curent_cursor') Use In curent_cursor Endif RELEASE pcTitlu ENDPROC PROCEDURE do_modifica Parameters tlIesire *!* in contracte nu trebuie modificat Return LOCAL llInsert, lcIdSucursala lcIdSucursala = '' llInsert = .F. Local lcFunctie,lcSql,lcMesaj,lcActiune,lcTitlu,llIesire PRIVATE loRec llIesire=tlIesire If Empty(llIesire) llIesire=.F. Endif Select actcv Scatter Name loRec nrlin=Recno() lnid_part=loRec.id_part If loRec.id_ireg_part=0 llInsert = .T. lcMesaj=[Doriti sa adaugati aceasta inregistrare?] lcActiune=[adaugata] lcTitlu=[Adaugare] ELSE lcMesaj=[Doriti sa modificati aceasta inregistrare?] lcActiune=[modificata] lcTitlu=[Modificare] Endif Thisform.grid1.SetAll("DynamicFontBold","IIF(RECNO()=nrlin,.T.,.F.)","Column") Thisform.grid1.Refresh() If aMessagebox(lcMesaj,4+32+256,lcTitlu)==6 Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") Thisform.grid1.Refresh() If Empty(loRec.dataact) And !Isnull(loRec.fdoc) aMessagebox("Nu ati introdus data documentului!",0+48,"Atentie") Thisform.leroare=.T. Thisform.grid1.cDataAct.SetFocus() Return Endif *!* If Empty(loRec.datascad) And !Isnull(loRec.fdoc) *!* Messagebox("Nu ati introdus data scadenta!",0+48,"Atentie") *!* Thisform.leroare=.T. *!* Thisform.grid1.column2.SetFocus() *!* Return *!* Endif If Empty(loRec.nract) And !Isnull(loRec.fdoc) aMessagebox("Nu ati introdus numarul documentului!",0+48,"Atentie") Thisform.leroare=.T. Thisform.grid1.cNrAct.SetFocus() Return Endif If !Thisform.grid1.cNresp.Visible AddProperty(loRec,'id_responsabil',Null) Endif If loRec.id_valuta=0 And (loRec.valcredit>0 Or loRec.valdebit>0) aMessagebox("Nu ati introdus numele valutei!",0+48,"Atentie") Thisform.lvaluta=.T. Thisform.leroare=.T. Thisform.grid1.cNume_val.SetFocus() Return Endif If loRec.id_valuta>0 And loRec.Curs=0 aMessagebox("Nu ati introdus cursul de schimb!",0+48,"Atentie") Thisform.leroare=.T. Thisform.grid1.cCurs.SetFocus() Return ENDIF lnidjtva=VAL(TRANSFORM(loRec.id_jtva_coloana)) lnproctva=lorec.proc_tva lcIdSucursala = IIF(NVL(loRec.id_sucursala,0) = 0, 'NULL', ALLTRIM(STR(lorec.id_sucursala))) lcSql1=[begin pack_inregistrari.iregpartinsproc(]+NVL(Alltrim(Str(loRec.id_ireg_part)),'0')+[,]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,]+; ALLTRIM(Str(loRec.id_part))+[,']+Alltrim(loRec.Cont)+[',']+Nvl(Alltrim(loRec.acont),'')+[',]+; ALLTRIM(Str(loRec.Debit,21,4))+[,]+Alltrim(Str(loRec.credit,21,4))+[,]+Alltrim(Str(loRec.valdebit,21,4))+[,] lcSql2=Alltrim(Str(loRec.valcredit,21,4))+[,]+Alltrim(Str(loRec.Curs,15,gnPCurs2))+[,]+Nvl(Alltrim(Str(loRec.id_fdoc)),'0')+[,]+; [to_date(']+Nvl(Alltrim(Dtos(loRec.dataact)),'')+[','YYYY-MM-DD'),to_date(']+Nvl(Alltrim(Dtos(loRec.dataireg)),'')+[',]+; ['YYYY-MM-DD'),to_date(']+Nvl(Alltrim(Dtos(loRec.datascad)),'')+[','YYYY-MM-DD'),]+Nvl(Alltrim(Str(loRec.nract)),'')+[,]+; [']+NVL(ALLTRIM(loRec.serie_act),[])+[',] lcSql3=Nvl(Alltrim(Str(loRec.id_responsabil)),'0')+[,]+Alltrim(Str(loRec.precdeb,21,4))+[,]+Alltrim(Str(loRec.preccred,21,4))+[,]+; ALLTRIM(Str(loRec.precvaldeb,21,4))+[,]+ALLTRIM(Str(loRec.precvalcred,21,4))+[,]+NVL(Alltrim(Str(loRec.cod)),'0')+[,']+Nvl(Alltrim(loRec.explicatia),'')+[',] lcSql4=Nvl(Alltrim(Str(loRec.id_act)),'0')+[,]+NVL(Alltrim(Str(loRec.id_lucrare)),'0')+[,]+Alltrim(Str(loRec.id_valuta))+[,]+; NVL(ALLTRIM(Str(loRec.id_fact)),'0')+[,]+NVL(Alltrim(Str(loRec.id_set)),'0')+[,']+Nvl(Alltrim(loRec.explicatia4),'')+[',']+; NVL(Alltrim(loRec.explicatia5),'')+[',]+Nvl(Alltrim(Str(loRec.id_venchelt)),'0')+[,] + ALLTRIM(STR(lnidjtva))+[,]+ALLTRIM(STR(lorec.proc_tva,7,2))+[,] + lcIdSucursala + [); end;] lnSucces = goExecutor.oExecute(lcSql1+lcSql2+lcSql3+lcSql4) If lnSucces < 0 lcTextEroare = goExecutor.cEroare aMessagebox(lcTextEroare,0+48,"Eroare") Else aMessagebox("Inregistrarea a fost "+lcActiune+"!",0+64,lcTitlu) ENDIF Select actcv Locate For id_part=loRec.id_part And acont=loRec.acont And id_fdoc=loRec.id_fdoc And id_valuta=loRec.id_valuta pnRec=Recno() *!* IF llInsert *!* REPLACE id_ireg_part WITH loRec.id_ireg_part, id_fact WITH loRec.id_fact *!* ENDIF Else Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") Thisform.grid1.Refresh() Endif If !llIesire Thisform.MousePointer= 11 Thisform.LockScreen=.T. *Thisform.actualizeaza_grid1() Thisform.LockScreen=.F. Thisform.MousePointer= 0 Endif Thisform.lmodificata=.F. Thisform.lvaluta=.F. Thisform.leroare=.F. ENDPROC PROCEDURE do_reface *!* in contracte nu trebuie modificat Return LOCAL lcCont,x lcConturi = Alltrim(Thisform.ccont) lcSursa = [IREG_PARTENERI] lnLuna = gnLuna lnAn = gnAn IF glLunaInchisa AMESSAGEBOX('Luna este blocata. Nu se pot da refaceri.',0+48,'Refacere') RETURN ENDIF x= xmenu('Refacere \ 0 lcCont = GETWORDNUM(lcConturi, i, [,]) lnSucces = refacere(lcSursa,lcLunar,lcCont,lnLuna,lnAn) && IN orefaceri.prg ENDIF ENDFOR IF lnSucces > 0 Thisform.actualizeaza_grid1() do inainte WITH "IREG_PARTENERI",lcCont in oinainte_de.prg this.LockScreen = .f. this.griD1.SetFocus aMESSAGEBOX('Refacerea s-a terminat!',0+64,"Info refacere") ENDIF ENDPROC PROCEDURE do_renunt gnButon = 2 pnButon = 2 Buton = 2 pnIesire = 2 If This.lmodificata This.do_modifica(.T.) Endif If !This.leroare This.Release Endif ENDPROC PROCEDURE do_reset With Thisform For i=1 To .Objects.Count If Upper(.Objects(i).BaseClass)='CHECKBOX' .Objects(i).Value=0 Endif Endfor ENDWITH IF NOT PEMSTATUS(thisform,"filtru_pretty",5) thisform.AddProperty("filtru_pretty") ENDIF IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5) thisform.AddProperty("filtru_pretty_ro") ENDIF thisform.filtru_pretty="" thisform.filtru_pretty_ro="" thisform.but_start_criterii1.ToolTipText=thisform.filtru_pretty_ro Thisform.but_start_criterii1.SetFocus Thisform.Refresh thisform.but_start_criterii1.pornit="nu" thisform.do_cauta() ENDPROC PROCEDURE do_sterge *!* in contracte nu trebuie modificat Return Select actcv Scatter Name loRec nrlin=Recno() Thisform.grid1.SetAll("DynamicFontBold","IIF(RECNO()=nrlin,.T.,.F.)","Column") Thisform.grid1.Refresh() IF loRec.id_ireg_part = 0 OR ISNULL(loRec.id_ireg_part) aMESSAGEBOX("Aceasta inregistrare nu este salvata pe server. Repetati cautarea!",0+48,'Stergere') RETURN ENDIF If aMessagebox("Doriti sa stergeti aceasta inregistrare?",4+32+256,"Confirmare stergere")==6 Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") Thisform.grid1.Refresh() lcSql=[begin PACK_INREGISTRARI.iregpartdelproc(] + Alltrim(Str(loRec.id_ireg_part))+[); end;] lnSucces = goExecutor.oExecute(lcSql) If lnSucces < 0 lcTextEroare = goExecutor.cEroare aMessagebox(lcTextEroare,0+48,"Eroare") Else aMessagebox("Inregistrarea a fost stearsa!",0+64,"Info stergere") Endif Thisform.MousePointer= 11 Thisform.LockScreen=.T. Thisform.actualizeaza_grid1() Thisform.LockScreen=.F. Thisform.MousePointer= 0 Select actcv If Reccount()>0 nrlin=Max(nrlin-1,1) Go nrlin Endif Thisform.grid1.SetFocus() Else Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") Thisform.grid1.Refresh() Endif ENDPROC PROCEDURE do_termin gnButon = 1 pnButon = 1 Buton = 1 pnIesire = 1 IF THIS.lmodificata THIS.do_modifica(.T.) ENDIF IF !THIS.leroare THIS.RELEASE ENDIF THIS.BUT_STArt_criterii1.RESETstatus() DODEFAULT() ENDPROC PROCEDURE filtre STORE ".T." TO tfirma,TER,Tachitat,Tneachitat sele actcv if Bfirma==.t. then Tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" endif if Bachitat==.t. then Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' endif if Bneachitat==.t. then Tneachitat='ACTCV.totctva#ACTCV.achitat' endif ENDPROC PROCEDURE incaspl Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact Local lnTotsum,pcTitlu Store "" To poact,pctitlu Store .F. To llAfisare Store 0 To pnlunanan,lnTotsum pnlunanan = gnAn*12+gnLuna *Thisform.blocbuton1.terminat1.Enabled = .F. Thisform.AlwaysOnTop = .F. *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] pcschema = [''] pcselect = ['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; ['from ]+gcS+[.vact where 2=2'] Select actcv Do Case Case Thisform.lActiv && activ pcfiltru = [id_partC=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; [ and id_factc = ] + ALLTRIM(STR(id_fact))+[ and scc=']+Alltrim(Thisform.Cont)+[']+[ and NVL(ascc,'xxx')=']+NVL(ALLTRIM(acont),'xxx')+['] pcTitlu = "INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) pnachitat = credit+preccred Otherwise && pasiv pcfiltru = [id_partD=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; [ and id_factd = ] + ALLTRIM(STR(id_fact))+[ and scd=']+Alltrim(Thisform.Cont)+[']+[ and NVL(ascd,'xxx')=']+NVL(ALLTRIM(acont),'xxx')+['] pcTitlu = "PLATI LA FACTURA NR. "+Alltrim(Str(nract)) pnachitat = debit + precdeb Endcase pcorder = [dataact,nract] gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) poact.ca_baza1.afisare() GO top ORC = Createobj("AFincpl") ORC.lb_titlu_alb_b121.Caption = pcTitlu ORC.ali = "acn2" ORC.grid1.column6.Visible = .T. ORC.Show(1) pcTitlu = "" Thisform.AlwaysOnTop = .T. *Thisform.blocbuton1.terminat1.Enabled = .T. If Used('acn2') Use In acn2 Endif Release ORC,poact ****************************************************** ENDPROC PROCEDURE Init DoDefault() *!* modificare v 2.0.11 Thisform.grid1.cNrAct.DynamicBackColor = [Iif(nr<>0,Rgb(173,248,183),Rgb(255,255,255))] Thisform.grid1.cNrAct.SetAll("BackColor",[Iif(nr<>0,Rgb(173,248,183),Rgb(255,255,255))],"Text") *!* modificare v 2.0.11 ^ ENDPROC PROCEDURE initializare THISFORM.but_start_criterii1.ENABLED = !THISFORM.but_start_criterii1.ENABLED THISFORM.but_reset_criterii1.ENABLED = !THISFORM.but_reset_criterii1.ENABLED THISFORM.cmDINCASPL.ENABLED = !THISFORM.cmDINCASPL.ENABLED THISFORM.comMAND1.ENABLED = !THISFORM.comMAND1.ENABLED THISFORM.commAND2.ENABLED = !THISFORM.commAND2.ENABLED THISFORM.commAND3.ENABLED = !THISFORM.commAND3.ENABLED WITH THISFORM.grid1 .READONLY = !.READONLY .cExplicatieTVA.Combo1.readonly=!.READONLY .cTotDeb.READONLY = .T. .cTotCred.READONLY = .T. .cSoldFinal.READONLY = .T. .cTotDebVal.READONLY = .T. .cTotCredVal.READONLY = .T. .cSoldVal.READONLY = .T. .cFDoc.READONLY = .T. .cNume.READONLY = .T. .cNume_val.READONLY = .T. .cNresp.READONLY = .T. .cNrord.READONLY = .T. .cProcentTVA.readonly= .T. ENDWITH SELECT actcv THISFORM.grid1.REFRESH THISFORM.grid1.SETFOCUS() ENDPROC PROCEDURE ist_deb_cred Private pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume PRIVATE nl,an,pcluna,pcanul Store 0 To pnlunanan Store .F. To llAfisare Store "" To poacn1,poacn2 pcdatacrt=Alltrim(Str(gnAn))+Padl(Alltrim(Str(gnLuna)),2,'0')+[01] && prima zi a lunii *Thisform.blocbuton1.terminat1.Enabled=.F. Thisform.AlwaysOnTop= .F. pcanul='00' pcluna='00' Select calendar OSE=Crea('SELELUNA') OSE.Show(1) pnlunanan=gnAn*12+gnLuna pnlunaanales=Val(pcanul)*12+Val(pcluna) Select actcv pcnume=nume pnid_part=id_part *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] pcschema=[''] pcselect=['select * from ]+gcS+[.vact where 2=2'] pcorder=[dataact,serie_act,nract] pcfiltru=[scd=']+ALLTRIM(thisform.cont)+[' and id_partD=]+ALLTRIM(STR(pnid_part))+[ ]+; [and extract(year from dataact)*12+extract(month from dataact) ]+; [between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan)) gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) pcfiltru=[scc=']+ALLTRIM(thisform.cont)+[' and id_partC=]+ALLTRIM(STR(pnid_part))+[ ]+; [and extract(year from dataact)*12+extract(month from dataact) ]+; [between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan)) gencursor("poacn2","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) poacn1.ca_baza1.afisare() poacn2.ca_baza1.afisare() ORC=Createobj("frm_debsicred") orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - ISTORIC DEBIT CREDIT " ORC.Show(1) If Used('acn1') Use In acn1 Endif If Used('acn2') Use In acn2 Endif *Thisform.blocbuton1.terminat1.Enabled=.T. Thisform.AlwaysOnTop= .T. RELEASE orc,poacn1,poacn2 ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl LOCAL lbviz lbviz=THIS.bvizualizare DO CASE CASE (nKeyCode=13 AND nShiftAltCtrl=2) OR (nKeyCode=4 AND nShiftAltCtrl=2) If glLunaInchisa OR this.grID1.ReadOnly RETURN Endif NODEFAULT OTHERWISE DODEFAULT(nKeyCode, nShiftAltCtrl) ENDCASE ENDPROC PROCEDURE notacontab If Reccount('actcv')>0 Private pcselect,pcfiltru,pcschema,pcorder,poact Local lcTip,llTest Store .F. To llTest Store "" To poact *Thisform.blocbuton1.terminat1.Enabled=.F. Thisform.AlwaysOnTop=.F. *!* lunanan=gnLuna+gnAn*12 Select actcv SCATTER NAME oireg IF EMPTY(oireg.id_fact) pcfiltru = [dataact=to_date(']+Dtos(oireg.dataact)+[','YYYY-MM-DD') and nract=]+ALLTRIM(STR(oireg.nract))+; [ and ((id_partd=]+ALLTRIM(STR(oireg.id_part))+[ and ascd=']+NVL(ALLTRIM(oireg.acont),'')+; [') or (id_partc=]+ALLTRIM(STR(oireg.id_part))+[ and ascc=']+NVL(ALLTRIM(oireg.acont),'')+['))] ELSE pcfiltru = [id_fact=]+ALLTRIM(STR(oireg.id_fact)) ENDIF pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; ['SUMA N(19,2),SCD C(4),ASCD C(4),SCC C(4), ASCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,luna,an,cod '+]+; ['from ]+gcS+[.vact where 2=2'] pcorder=[dataact,serie_act,nract] llAfisare=.F. gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) poact.ca_baza1.afisare() Go Top ORC=CREATEOBJECT("frm_debcred") orc.lb_titlu_alb_b121.caption="NOTA CONTABILA" orc.lb_titlu1.caption=" "+UPPER(ALLTRIM(oireg.nume))+" " ORC.Show(1) Release poact,ORC *Thisform.blocbuton1.terminat1.Enabled=.T. Thisform.AlwaysOnTop=.T. Else aMessagebox("Nu aveti date in cautare!",48,"Atentie") Thisform.ck_nrdoc.SetFocus() Endif RELEASE oireg ENDPROC PROCEDURE plati THISFORM.CMDTERMIN1.ENABLED=.F. SCATTER FIELDS EXCEPT nl,an memv SELE ACT * DO NRORD WITH "ACT" Set filter to nume=m.nume and pereche=m.nract DO NRORD WITH "ACT" go top ORC=CREATEOBJ("AFDEBCRED") ORC.LABELTITLU.CAPTION="Plati" ORC.SHOW(1) THISFORM.CMDTERMIN1.ENABLED=.T. ENDPROC PROCEDURE salariati If Reccount('actcv')>0 Private pcselect,pcfiltru,pcschema,pcorder,postat Local lcTip,llTest Store .F. To llTest Store "" To postat *Thisform.blocbuton1.terminat1.Enabled=.F. Thisform.AlwaysOnTop=.F. *!* lunanan=gnLuna+gnAn*12 Select actcv PRIVATE oireg SCATTER NAME oireg IF oireg.id_part = gnID_PARTDRNERIDLIC &&lichidare pcschema= ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] pcselect=[select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.lichidare,ROUND(a.ACHITLICNERID,0) as bifa,a.SUMALICNERID from sal_vstattot a where 1=2] pcfiltru = [ id_fact_lic = ] +ALLTRIM(STR(oireg.id_fact)) ELSE &&avans pcschema= ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] pcselect=[select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.avans as lichidare,ROUND(a.ACHITAVNERID,0) as bifa,a.SUMAAVNERID as SUMALICNERID from sal_vstattot a where 1=2] pcfiltru = [ id_fact_av = ] +ALLTRIM(STR(oireg.id_fact)) ENDIF pcorder=[a.sectie,a.nume,A.PRENUME] llAfiseaza=.F. gencursor('postat','crsState',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) postat.ca_baza1.afisare() Select crsState ofrmSelect = CREATEOBJECT('frm_alege_neridicati') IF oireg.id_part = gnID_PARTDRNERIDLIC &&lichidare ofrmSelect.noptiune = 1&& pentru lichidare neridicata ELSE ofrmSelect.noptiune = 4&& pentru avans neridicat ENDIF ofrmSelect.show(1) RELEASE oireg USE IN crsState RELEASE ofrmSelect Thisform.AlwaysOnTop=.T. Else aMessagebox("Nu aveti date in cautare!",48,"Atentie") Thisform.ck_nrdoc.SetFocus() Endif RELEASE oireg ENDPROC PROCEDURE But_excel1.Click DODEFAULT() *!* Local i,xlsheet,XLApp,tmpsheet *!* exista_excel=.T. *!* p1='' *!* p2='' *!* With Thisform.grid1 *!* For nCol=1 To .ColumnCount *!* nColumn=.Columns(nCol).ColumnOrder *!* p1=p1+.Columns(nCol).ControlSource+',' *!* For lnobjcol=1 To .Columns(nCol).Objects.Count *!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER' *!* p2=p2+Strtran(.Columns(nCol).Objects(lnobjcol).Caption,Chr(32),'_')+',' *!* Exit *!* Endif *!* Endfor *!* Endfor *!* p1=Substr(p1,1,Len(p1)-1) *!* p2=Substr(p2,1,Len(p2)-1) *!* Endwith *!* On Error Do exportare With Thisform.grid1.RecordSource,p1,p2 *!* tmpsheet = Getobject('','excel.sheet') *!* On Error *!* If exista_excel *!* Wait Window "Se transmit datele catre Excel..." Nowait *!* XLApp = tmpsheet.Application *!* XLApp.workbooks.Close() *!* XLApp.workbooks.Add() *!* poExcel = XLApp.ActiveSheet *!* Go Top *!* poExcel.Cells(1,1).Font.Size=16 *!* poExcel.Cells(1,1).Font.Bold=.T. *!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) *!* nRows = 3 *!* With Thisform.grid1 *!* For nCol = 1 To .ColumnCount *!* nColumn = .Columns(nCol).ColumnOrder *!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 *!* For lnobjcol=1 To .Columns(nCol).Objects.Count *!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER' *!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).Objects(lnobjcol).Caption *!* Exit *!* Endif *!* Endfor *!* poExcel.Cells(nRows,nColumn).Font.Bold = .T. *!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 *!* Endfor *!* Scan *!* nRows = nRows + 1 *!* For nCol = 1 To .ColumnCount *!* nColumn = .Columns(nCol).ColumnOrder *!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 *!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') *!* Else *!* poExcel.Cells(nRows,nColumn) = Iif(Empty(Eval(.Columns(nCol).ControlSource)),'',Eval(.Columns(nCol).ControlSource)) *!* Endif *!* Endfor *!* Endscan *!* Endwith *!* XLApp.Visible = .T. *!* Endif ENDPROC PROCEDURE But_start_criterii1.loadcriterii Parameters tacriterii External Array tacriterii #Define crlf Chr(13)+Chr(10) lcStringCriterii = "Nr Document\i.nract\N\none\" + crlf + ; "Serie Document\i.serie_act\T\none\" + crlf + ; "Data document\i.dataact\D\none\" + crlf + ; "Data scadenta\i.datascad\D\none\"+ crlf + ; "Fel Document\i.fdoc\T\id_fdoc\nom_feldoc" + crlf + ; "Lucrare\i.nrord\T\id_lucrare\nom_lucrare"+ crlf + ; "Nume firma\i.nume\T\ID_PART\nom_parteneri"+ crlf + ; "Contract\i.contract\T\none\"+ crlf + ; "Debit\i.Debit\N|get_mask(12,gnPc)\none\"+ crlf + ; "Credit\i.credit\N|get_mask(12,gnPc)\none\"+ crlf If plactiv lcStringCriterii = lcStringCriterii + "Sold\precdeb+debit-credit-preccred\N|get_mask(12,gnPc)\none\"+ crlf Else lcStringCriterii = lcStringCriterii + "Sold\credit+preccred-precdeb-debit\N|get_mask(12,gnPc)\none\"+ crlf Endif lcStringCriterii = lcStringCriterii + ; "Cont\i.cont\T\none\"+ crlf + ; "Analitic\i.acont\T\none\"+ crlf + ; "Valuta\i.nume_val\T\id_valuta\nom_valuta"+ crlf + ; "Explicatia\i.explicatia\T\none\" + crlf + ; "Venit/Cheltuieli\i.venChelt\T\ID_VENCHELT\nom_venchel" + crlf + ; "Explicatia 4\i.explicatia4\T\none\" + crlf + ; "Cont creditor\i.nresp\T\none\" + crlf + ; "Achitate\nofield\E\" If Thisform.lActiv lcStringCriterii = lcStringCriterii + "(i.precdeb + i.debit) - (i.preccred + i.credit) = 0" Else lcStringCriterii = lcStringCriterii + "(i.preccred + i.credit) - (i.precdeb + i.debit) = 0" Endif lcStringCriterii = lcStringCriterii + "\" + crlf + ; "Neachitate\nofield\E\" If Thisform.lActiv lcStringCriterii = lcStringCriterii + "(i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0" Else lcStringCriterii = lcStringCriterii + "(i.preccred + i.credit) - (i.precdeb + i.debit) <> 0" Endif && aleg sucursale doar daca sunt pe mama If glEMama lcStringCriterii = lcStringCriterii + "\" + crlf + "Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala" Endif DoDefault() ENDPROC PROCEDURE Cb_nom_valute1.Init thisform.label6.Caption='Total Debit Valuta' thisform.label8.caption='Total Credit Valuta' thisform.label9.Caption='Sold Valuta' this.Enabled=.F. ENDPROC PROCEDURE Cb_nom_valute1.initializare Lparameters tlCautareNoua Local lcValuta,lnmaxinreg If Used('crsnumeval') Use In crsnumeval Endif Select Distinct nume_val,Count(*) As nrinreg From actcv Where id_valuta>0 Group By nume_val Order By nume_val Into Cursor crsnumeval lnValute = _tally If tlCautareNoua Select crsnumeval Calculate Max(nrinreg) To lnmaxinreg Locate For nrinreg=lnmaxinreg lcValuta=IIF(lnValute = 0,'Valuta',NUME_VAL) Else lcValuta=IIF(lnValute = 0,'Valuta',THIS.Value) Endif IF EMPTY(lcValuta) OR ISNULL(lcValuta) lcValuta = 'Valuta' ENDIF This.RowSourceType= 2 This.RowSource="crsnumeval" This.Value=lcValuta This.BoundTo=.T. If Reccount('crsnumeval')>1 This.Enabled=.T. Endif Thisform.label6.Caption='Total Debit '+lcValuta Thisform.label8.Caption='Total Credit '+lcValuta Thisform.label9.Caption='Sold '+lcValuta ENDPROC PROCEDURE Cb_nom_valute1.InteractiveChange lcValuta=Iif(Empty(This.Value),'Valuta',Alltrim(This.Value)) Thisform.label6.Caption='Total Debit '+lcValuta Thisform.label8.Caption='Total Credit '+lcValuta Thisform.label9.Caption='Sold '+lcValuta Thisform.actualizeaza_totaluri() ENDPROC PROCEDURE Ck_scadente.InteractiveChange lccondScad = [1=1] If This.Value = 1 Private pddataref,pddatascad_max,pnnrluni Store 0 To pnnrluni pddataref = Date() pddatascad_max = pddataref ofrmscad = Createobject('frm_facturi_scadente') ofrmscad.txt_dataref.ControlSource = [pddataref] ofrmscad.txt_datamax.ControlSource = [pddatascad_max] ofrmscad.Show(1) If gnButon = 1 lccondScad = [(i.datascad < to_date('] + Dtos(pddatascad_max) + [','yyyymmdd'))] This.Tag=" si data scadenta mai mica decat "+Transform(pddatascad_max) Endif Endif If This.Value=0 This.filtru ="" This.cTraducere="" this.Tag="" Else This.filtru = [ and ] + lccondScad This.cTraducere=This.Tag Endif thisform.do_cauta() Thisform.but_start_criterii1.refreshstatus ENDPROC PROCEDURE cmdIncasPl.Click thisform.incaspl ENDPROC PROCEDURE Command1.Click thisform.notacontab ENDPROC PROCEDURE Command2.Click SCAT fiel except nl,an MEMV thisform.istoric ENDPROC PROCEDURE Command3.Click thisform.ist_deb_cred ENDPROC PROCEDURE grid1.AfterRowColChange Lparameters nColIndex If Thisform.leroare Nodefault Return Endif Local lnluna Select actcv lnluna=luna If Thisform.lmodificata *!* Thisform.lmodificare_totaluri=.T. Thisform.actualizeaza_totaluri() *!* If lnluna=0 *!* Thisform.lmodificare_totaluri=.F. *!* Endif Thisform.grid1.Refresh Endif ENDPROC PROCEDURE grid1.BeforeRowColChange Lparameters nColIndex *!* If !Thisform.lmodificare_totaluri Local lnCol Private pnRec,pnCol If Thisform.grid1.ReadOnly=.F. And Thisform.coldvalue!=Thisform.cnewvalue Thisform.lmodificata=.T. Endif If (This.RowColChange= 1 Or This.RowColChange= 3) And Thisform.lmodificata For i=1 To This.ColumnCount If This.Columns(i).ColumnOrder=nColIndex lcColoana="thisform.grid1."+This.Columns(i).Name Exit Endif Endfor oColoana=&lcColoana If Thisform.coldvalue!=Thisform.cnewvalue And !oColoana.ReadOnly If PEMSTATUS(oColoana,"text1",5) lValue=oColoana.text1.Value lcNumeColoana=Substr(oColoana.ControlSource,At('.',oColoana.ControlSource)+1) If Type('oColoana.text1.value')='D' And !oColoana.text1.Valid() Nodefault Return Endif Select actcv Replace (lcNumeColoana) With lValue Endif Endif Thisform.coldvalue="" Thisform.cnewvalue="" pnRec=Recno() Thisform.do_modifica() If Thisform.leroare Nodefault Return Endif *!* Thisform.lmodificare_totaluri=.F. DoDefault() Endif *!* Else *!* *!* Nodefault *!* Thisform.lmodificare_totaluri=.F. *!* Endif ENDPROC PROCEDURE grid1.cAcont.Text1.GotFocus If This.ReadOnly = .F. Thisform.coldvalue = Alltrim(This.Value) Thisform.cnewvalue = Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cAcont.Text1.InteractiveChange If This.ReadOnly = .F. Thisform.cnewvalue = Alltrim(This.Value) Endif ENDPROC PROCEDURE grid1.cCod.Text1.GotFocus If !This.ReadOnly Thisform.coldvalue=Alltrim(Str(This.Value)) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cCod.Text1.InteractiveChange If !This.ReadOnly Thisform.cnewvalue=Alltrim(Str(This.Value)) Endif ENDPROC PROCEDURE grid1.cCredit.Text1.GotFocus If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cCredit.Text1.InteractiveChange If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Endif ENDPROC PROCEDURE grid1.cCurs.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cCurs.Text1.GotFocus If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cCurs.Text1.InteractiveChange If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Endif ENDPROC PROCEDURE grid1.cCurs.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cDataAct.Header1.DblClick thisform.corderby = "dataact" ENDPROC PROCEDURE grid1.cDataAct.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cDataAct.Text1.GotFocus If This.ReadOnly=.F. Thisform.coldvalue=Alltrim(Dtoc(This.Value)) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cDataAct.Text1.InteractiveChange If This.ReadOnly=.F. Thisform.cnewvalue=Dtoc(This.Value) Endif ENDPROC PROCEDURE grid1.cDataAct.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cDataAct.Text1.Valid If This.ReadOnly=.F. And !Isnull(fdoc) If (Empty(This.Value) Or Isnull(This.Value)) aMessagebox("Introduceti data documentului!",0+48,"Atentie") Return .F. Else If (Month(This.Value)+Year(This.Value)*12>gnLuna+gnAn*12) aMessagebox("Data documentului trebuie sa fie anterioara sau din luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))+"!",0+48,"Atentie") Thisform.lmodificata=.F. Return .F. Endif Endif Endif Return .T. ENDPROC PROCEDURE grid1.cDataireg.Text1.GotFocus If This.ReadOnly=.F. Thisform.coldvalue=NVL(Alltrim(Dtoc(This.Value)),'*') Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cDataireg.Text1.InteractiveChange If This.ReadOnly=.F. Thisform.cnewvalue=NVL(Dtoc(This.Value),'*') Endif ENDPROC PROCEDURE grid1.cDataireg.Text1.Valid If This.ReadOnly=.F. And !Isnull(fdoc) If (Empty(This.Value) Or Isnull(This.Value)) aMessagebox("Introduceti data inregistrarii!",0+48,"Atentie") Return .F. Else Do Case Case This.ValuegnLuna+gnAn*12) aMessagebox("Data inregistrarii trebuie sa fie din luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))+"!",0+48,"Atentie") Thisform.lmodificata=.F. Return .F. Endcase Endif Endif Return .T. ENDPROC PROCEDURE grid1.cDataScad.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cDataScad.Text1.GotFocus If This.ReadOnly=.F. Thisform.coldvalue=Alltrim(Dtoc(This.Value)) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cDataScad.Text1.InteractiveChange If This.ReadOnly=.F. Thisform.cnewvalue=Dtoc(This.Value) Endif ENDPROC PROCEDURE grid1.cDataScad.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cDataScad.Text1.Valid *!* (Empty(This.Value) And !Empty(dataact)) Or (Isnull(This.Value) And !Isnull(dataact)) *!* Messagebox("Introduceti data scadenta!",0+48,"Atentie") *!* Return .F. *!* Else If This.ReadOnly=.F. And !Isnull(fdoc) If !Empty(This.Value) And !Empty(dataact) And This.Value0,Len(lcMask)-lnNrZec,0))) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cDebit.Text1.InteractiveChange If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Endif ENDPROC PROCEDURE grid1.cExplicatia.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cExplicatia.Text1.GotFocus If !This.ReadOnly Thisform.coldvalue=Nvl(Alltrim(This.Value),'*') Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cExplicatia.Text1.InteractiveChange If This.ReadOnly=.F. Thisform.cnewvalue=NVL(Alltrim(This.Value),'*') Endif ENDPROC PROCEDURE grid1.cExplicatia.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cExplicatia4.Text1.GotFocus If !This.ReadOnly Thisform.coldvalue=NVL(Alltrim(This.Value),'*') Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cExplicatia4.Text1.InteractiveChange If !This.ReadOnly Thisform.cnewvalue=NVL(Alltrim(This.Value),'*') Endif ENDPROC PROCEDURE grid1.cExplicatia5.Text1.GotFocus If !This.ReadOnly Thisform.coldvalue=NVL(Alltrim(This.Value),'*') Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cExplicatia5.Text1.InteractiveChange If !This.ReadOnly Thisform.cnewvalue=NVL(Alltrim(This.Value),'*') Endif ENDPROC PROCEDURE grid1.cExplicatieTVA.combo1.GotFocus If !This.ReadOnly Thisform.coldvalue=ALLTRIM(STR(actcv.id_jtva_coloana)) Thisform.cnewvalue=Thisform.coldvalue ENDIF ENDPROC PROCEDURE grid1.cExplicatieTVA.combo1.InteractiveChange If !This.ReadOnly Thisform.cnewvalue=ALLTRIM(STR(actcv.id_jtva_coloana)) Endif ENDPROC PROCEDURE grid1.cExplicatieTVA.combo1.Valid replace actcv.id_jtva_coloana WITH jtva_temp.id_jtva_coloana replace actcv.proc_tva WITH ROUND((jtva_temp.cota_tva+100)/100,2) ENDPROC PROCEDURE grid1.cfdoc.Text1.DblClick If !Thisform.grid1.ReadOnly Nodefault Local locauta,lcOldValue,lcNewValue lcOldValue=Nvl(Alltrim(fdoc),'') Select actcv Store "" To locauta pcselect = ['select p.fel_document,p.id_fdoc FROM ] + Alltrim(gcS) + [.vnom_fdoc p where 2=2'] pcfiltru = [1=2] pcschema = [''] pcorder = [fel_document] pccoloane = [fel_document] pcTitlu = [Alegeti felul documentului] pcTitluColoane = [Fel document] lnRec=Recno() locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) If !Empty(locauta.fel_document) Select actcv Go lnRec Replace id_fdoc With locauta.id_fdoc Replace fdoc With Alltrim(locauta.fel_document) lcNewValue=Nvl(Alltrim(fdoc),'') Else lcNewValue=lcOldValue Endif This.SetFocus() Thisform.coldvalue=lcOldValue Thisform.cnewvalue=lcNewValue Release locauta For i=1 To Thisform.grid1.ColumnCount If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 Exit Endif Endfor Thisform.grid1.Columns(i).SetFocus() Else DoDefault() Endif ENDPROC PROCEDURE grid1.cfdoc.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cId_fact.Text1.GotFocus If !This.ReadOnly Thisform.coldvalue=Alltrim(Str(This.Value)) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cId_fact.Text1.InteractiveChange If !This.ReadOnly Thisform.cnewvalue=Alltrim(Str(This.Value)) Endif ENDPROC PROCEDURE grid1.cId_set.Text1.GotFocus If !This.ReadOnly Thisform.coldvalue=Alltrim(Str(This.Value)) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cId_set.Text1.InteractiveChange If !This.ReadOnly Thisform.cnewvalue=Alltrim(Str(This.Value)) Endif ENDPROC PROCEDURE grid1.cNrAct.Header1.DblClick thisform.corderby = "nract" ENDPROC PROCEDURE grid1.cNrAct.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cNrAct.Text1.GotFocus *!* modificare v 2.0.11 If nr<> 0 This.BackColor = Rgb(173,248,183) EndIf *!* modificare v 2.0.11 ^ If This.ReadOnly=.F. Thisform.coldvalue=Alltrim(Str(This.Value)) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cNrAct.Text1.InteractiveChange If This.ReadOnly=.F. Thisform.cnewvalue=Alltrim(Str(This.Value)) Endif ENDPROC PROCEDURE grid1.cNrAct.Text1.LostFocus *!* modificare v 2.0.11 If nr<> 0 This.BackColor = Rgb(255,255,255) EndIf *!* modificare v 2.0.11 ^ ENDPROC PROCEDURE grid1.cNrAct.Text1.RightClick Select (Thisform.grID1.RecordSource) If nr<> 0 arata_meniu_at_vanz(cod,serie_act,nract,Thisform.grID1.RecordSource+[.]+Substr(This.Parent.ControlSource,At([.],This.Parent.ControlSource,1)+1)) Else Do editscurt.mpr Endif ENDPROC PROCEDURE grid1.cnresp.Text1.DblClick If !Thisform.grid1.ReadOnly Local locauta,lcCol,lcOldValue,lcNewValue Select actcv lcOldValue=Nvl(Alltrim(nresp),'') Store "" To locauta pcselect = ['select p.nume, p.functie, p.id_responsabil FROM ] + gcs + [.vnom_responsabili p '+]+; ['where 2=2'] pcfiltru = [1=2] pcschema = [''] pcorder = [p.nume] pccoloane = [nume,functie] pcTitlu = [Alegeti numele] pcTitluColoane = [Responsabil,Functie] lnRec=Recno() locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") If !Empty(locauta.nume) Select actcv Go lnRec Replace id_responsabil With locauta.id_responsabil Replace nresp With Alltrim(locauta.nume) lcNewValue=Nvl(Alltrim(nresp),'') Else lcNewValue=lcOldValue Endif This.SetFocus() Thisform.coldvalue=lcOldValue Thisform.cnewvalue=lcNewValue Release locauta For i=1 To Thisform.grid1.ColumnCount If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 Exit Endif Endfor Thisform.grid1.Columns(i).SetFocus() Else DoDefault() Endif ENDPROC PROCEDURE grid1.cNrord.Text1.DblClick If !Thisform.grid1.ReadOnly Local locauta,lcOldValue,lcNewValue Select actcv lcOldValue=Nvl(Alltrim(nrord),'') Store "" To locauta pcselect = ['select p.nrord,p.id_lucrare FROM ] + gcs + [.vnom_lucrari p where 2=2'] pcfiltru = [1=2] pcschema = [''] pcorder = [nrord] pccoloane = [nrord] pcTitlu = [Alegeti lucrarea/contractul] pcTitluColoane = [Lucrare/Contract] lnRec=Recno() locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") If !Empty(locauta.nrord) Select actcv Go lnRec Replace id_lucrare With locauta.id_lucrare Replace nrord With locauta.nrord lcNewValue=Nvl(Alltrim(nrord),'') Else lcNewValue=lcOldValue Endif This.SetFocus() Thisform.coldvalue=lcOldValue Thisform.cnewvalue=lcNewValue For i=1 To Thisform.grid1.ColumnCount If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 Exit Endif Endfor Thisform.grid1.Columns(i).SetFocus() Else DoDefault() Endif ENDPROC PROCEDURE grid1.cNume.Header1.DblClick thisform.corderby = "nume" ENDPROC PROCEDURE grid1.cNume.Text1.DblClick LOCAL lcCont IF !THISFORM.grid1.READONLY NODEFAULT LOCAL locauta,lcOldValue,lcNewValue lcOldValue=NVL(ALLTRIM(nume),'') SELECT actcv STORE "" TO locauta lnRec = RECNO() lcCont = ALLTRIM(actcv.CONT) locauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) IF !EMPTY(locauta.nume) SELECT actcv GO lnRec REPLACE id_part WITH locauta.id_part REPLACE nume WITH ALLTRIM(locauta.nume) lcNewValue=NVL(ALLTRIM(nume),'') ELSE lcNewValue=lcOldValue ENDIF THIS.SETFOCUS() THISFORM.coldvalue=lcOldValue THISFORM.cnewvalue=lcNewValue RELEASE locauta FOR i=1 TO THISFORM.grid1.COLUMNCOUNT IF THISFORM.grid1.COLUMNS(i).COLUMNORDER=THIS.PARENT.COLUMNORDER+1 EXIT ENDIF ENDFOR THISFORM.grid1.COLUMNS(i).SETFOCUS() ELSE DODEFAULT() ENDIF ENDPROC PROCEDURE grid1.cNume.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cNume_val.Text1.DblClick If !Thisform.grid1.ReadOnly Local locauta,lcOldValue,lcNewValue Select actcv lcOldValue=Nvl(Alltrim(nume_val),'') Store "" To locauta pcselect = ['select p.nume_val,p.id_valuta FROM ] + gcs + [.vnom_valute p where 2=2'] pcfiltru = [1=2] pcschema = [''] pcorder = [nume_val] pccoloane = [nume_val] pcTitlu = [Alegeti valuta] pcTitluColoane = [Valuta] lnRec=Recno() locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") If !Empty(locauta.nume_val) Select actcv Go lnRec Replace id_valuta With locauta.id_valuta Replace nume_val With locauta.nume_val lcNewValue=Nvl(Alltrim(nume_val),'') Thisform.lvaluta=.F. thisform.actualizeaza_totaluri() Else lcNewValue=lcOldValue Endif This.SetFocus() Thisform.coldvalue=lcOldValue Thisform.cnewvalue=lcNewValue Release locauta For i=1 To Thisform.grid1.ColumnCount If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 Exit Endif Endfor Thisform.grid1.Columns(i).SetFocus() Else DoDefault() Endif ENDPROC PROCEDURE grid1.cNume_val.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cPrecCred.Text1.GotFocus If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cPrecCred.Text1.InteractiveChange If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Endif ENDPROC PROCEDURE grid1.cPrecDeb.Text1.GotFocus If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cPrecDeb.Text1.InteractiveChange If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Endif ENDPROC PROCEDURE grid1.cSoldFinal.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cSoldFinal.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cTotDeb.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cTotDeb.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cTotDebVal.Text1.DblClick thisform.butdrept ENDPROC PROCEDURE grid1.cTotDebVal.Text1.RightClick do editscurt.mpr ENDPROC PROCEDURE grid1.cValCredit.Text1.GotFocus If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cValCredit.Text1.InteractiveChange If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Endif ENDPROC PROCEDURE grid1.cValCredit.Text1.Valid IF this.Value>0 thisform.lvaluta=.T. ENDIF ENDPROC PROCEDURE grid1.cValDebit.Text1.GotFocus If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Thisform.cnewvalue=Thisform.coldvalue Endif ENDPROC PROCEDURE grid1.cValDebit.Text1.InteractiveChange If This.ReadOnly=.F. lcMask=Strtran(This.Parent.InputMask,' ','') lnNrZec=At(Thisform.cseparator,lcMask,1) Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) Endif ENDPROC PROCEDURE grid1.cValDebit.Text1.Valid IF this.Value>0 thisform.lvaluta=.T. ENDIF ENDPROC PROCEDURE grid1.cVenChelt.Text1.DblClick If !Thisform.grid1.ReadOnly Local locauta,lcOldValue,lcNewValue Select actcv lcOldValue=Nvl(Alltrim(venchelt),'') Store "" To locauta pcselect = ["select v.explicatie,(case v.tip_venchelt when 1 then 'C' else 'V' end) as tip,v.id_venchelt FROM "+] +; ["]+ Alltrim(gcs) + [.vnom_venchel v where 2=2"] pcfiltru = [1=2] pcschema = [''] pcorder = [explicatie] pccoloane = [explicatie,tip] pcTitlu = [Alegeti venitul\cheltuiala] pcTitluColoane = [Explicatie,Tip] lnRec=Recno() locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") If !Empty(locauta.explicatie) Select actcv Go lnRec Replace id_venchelt With locauta.id_venchelt Replace venchelt With locauta.explicatie lcNewValue=Nvl(Alltrim(venchelt),'') Else lcNewValue=lcOldValue Endif This.SetFocus() Thisform.coldvalue=lcOldValue Thisform.cnewvalue=lcNewValue Release locauta For i=1 To Thisform.grid1.ColumnCount If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 Exit Endif Endfor Thisform.grid1.Columns(i).SetFocus() Else DoDefault() Endif ENDPROC PROCEDURE grid1.Init *!* this.SetAll("DynamicForeColor", "IIF(abs(totctva-achitat)<1000,RGB(0,0,0),iif(totctva (preccred+credit)),RGB(255,0,0),RGB(0,0,255)))", "Column") *!* Endif ENDPROC PROCEDURE Text1.Refresh THIS.FORECOLOR=IIF(thisform.ntotdebit >=0, RGB(0,0,0), RGB(255,0,0)) this.Value = thisform.ntotdebit ENDPROC PROCEDURE Text2.Refresh THIS.FORECOLOR=IIF(thisform.ntotcredit >=0, RGB(0,0,0), RGB(255,0,0)) this.Value = thisform.ntotcredit ENDPROC PROCEDURE Text3.Refresh THIS.FORECOLOR=IIF(thisform.ntotsold >=0, RGB(0,0,0), RGB(255,0,0)) this.Value = thisform.ntotsold ENDPROC PROCEDURE Text4.Refresh THIS.FORECOLOR=IIF(thisform.ndebitval >=0, RGB(0,0,0), RGB(255,0,0)) this.Value = thisform.ndebitval ENDPROC PROCEDURE Text5.Refresh THIS.FORECOLOR=IIF(thisform.ncreditval >=0, RGB(0,0,0), RGB(255,0,0)) this.Value = thisform.ncreditval ENDPROC PROCEDURE Text6.Refresh THIS.FORECOLOR=IIF(thisform.ntotsoldval >=0, RGB(0,0,0), RGB(255,0,0)) this.Value = thisform.ntotsoldval ENDPROC ENDDEFINE DEFINE CLASS frm_ireg_parteneri_old AS frm_ireg_parteneri OF "..\comun\clase\oparteneri.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="GRID1.Column36.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="GRID1.Column36.Text1" UniqueID="" Timestamp="" /> * DoCreate = .T. Name = "frm_ireg_parteneri" Label6.Name = "Label6" SHAPE2.Name = "SHAPE2" Shape1.Name = "Shape1" _shape1.Name = "_shape1" Gridsort1.Name = "Gridsort1" _shape2.Name = "_shape2" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" GRID1.cAcont.Header1.Name = "Header1" GRID1.cAcont.Name = "cAcont" GRID1.cAcont.Text1.Name = "Text1" GRID1.CCOD.ColumnOrder = 33 GRID1.CCOD.Header1.Name = "Header1" GRID1.CCOD.Name = "CCOD" GRID1.CCOD.Text1.Name = "Text1" GRID1.cCredit.ColumnOrder = 21 GRID1.cCredit.Header1.Name = "Header1" GRID1.cCredit.Name = "cCredit" GRID1.cCredit.Text1.Name = "Text1" GRID1.cCurs.ColumnOrder = 25 GRID1.cCurs.Header1.Name = "Header1" GRID1.cCurs.Name = "cCurs" GRID1.cCurs.Text1.Name = "Text1" GRID1.cDataAct.Header1.Name = "Header1" GRID1.cDataAct.Name = "cDataAct" GRID1.cDataAct.Text1.Name = "Text1" GRID1.cDataireg.Header1.Name = "Header1" GRID1.cDataireg.Name = "cDataireg" GRID1.cDataireg.Text1.Name = "Text1" GRID1.cDataScad.Header1.Name = "Header1" GRID1.cDataScad.Name = "cDataScad" GRID1.cDataScad.Text1.Name = "Text1" GRID1.cDebit.ColumnOrder = 20 GRID1.cDebit.Header1.Name = "Header1" GRID1.cDebit.Name = "cDebit" GRID1.cDebit.Text1.Name = "Text1" GRID1.cExplicatia.ColumnOrder = 17 GRID1.cExplicatia.Header1.Name = "Header1" GRID1.cExplicatia.Name = "cExplicatia" GRID1.cExplicatia.Text1.Name = "Text1" GRID1.cExplicatia4.ColumnOrder = 30 GRID1.cExplicatia4.Header1.Name = "Header1" GRID1.cExplicatia4.Name = "cExplicatia4" GRID1.cExplicatia4.Text1.Name = "Text1" GRID1.cExplicatia5.ColumnOrder = 31 GRID1.cExplicatia5.Header1.Name = "Header1" GRID1.cExplicatia5.Name = "cExplicatia5" GRID1.cExplicatia5.Text1.Name = "Text1" GRID1.cfdoc.Header1.Name = "Header1" GRID1.cfdoc.Name = "cfdoc" GRID1.cfdoc.Text1.Name = "Text1" GRID1.cId_fact.ColumnOrder = 34 GRID1.cId_fact.Header1.Name = "Header1" GRID1.cId_fact.Name = "cId_fact" GRID1.cId_fact.Text1.Name = "Text1" GRID1.cId_part.ColumnOrder = 36 GRID1.cId_part.Header1.Name = "Header1" GRID1.cId_part.Name = "cId_part" GRID1.cId_part.Text1.Name = "Text1" GRID1.cId_set.ColumnOrder = 35 GRID1.cId_set.Header1.Name = "Header1" GRID1.cId_set.Name = "cId_set" GRID1.cId_set.Text1.Name = "Text1" GRID1.cNrAct.Header1.Name = "Header1" GRID1.cNrAct.Name = "cNrAct" GRID1.cNrAct.Text1.Name = "Text1" GRID1.cnresp.ColumnOrder = 19 GRID1.cnresp.Header1.Name = "Header1" GRID1.cnresp.Name = "cnresp" GRID1.cnresp.Text1.Name = "Text1" GRID1.cNrord.ColumnOrder = 18 GRID1.cNrord.Header1.Name = "Header1" GRID1.cNrord.Name = "cNrord" GRID1.cNrord.Text1.Name = "Text1" GRID1.CNUME.Header1.Name = "Header1" GRID1.CNUME.Name = "CNUME" GRID1.CNUME.Text1.Name = "Text1" GRID1.cNume_val.ColumnOrder = 24 GRID1.cNume_val.Header1.Name = "Header1" GRID1.cNume_val.Name = "cNume_val" GRID1.cNume_val.Text1.Name = "Text1" GRID1.COLUMN32.Header1.Name = "Header1" GRID1.COLUMN32.Name = "COLUMN32" GRID1.COLUMN32.Text1.Name = "Text1" GRID1.COLUMN35.ColumnOrder = 9 GRID1.COLUMN35.Header1.Name = "Header1" GRID1.COLUMN35.Name = "COLUMN35" GRID1.COLUMN35.Text1.Name = "Text1" GRID1.COLUMN35.Width = 101 GRID1.Column36.ColumnOrder = 10 GRID1.Column36.ControlSource = "rate_acoperite" GRID1.Column36.Name = "Column36" GRID1.Column36.Width = 98 GRID1.ColumnCount = 36 GRID1.cPrecCred.ColumnOrder = 27 GRID1.cPrecCred.Header1.Name = "Header1" GRID1.cPrecCred.Name = "cPrecCred" GRID1.cPrecCred.Text1.Name = "Text1" GRID1.cPrecDeb.ColumnOrder = 26 GRID1.cPrecDeb.Header1.Name = "Header1" GRID1.cPrecDeb.Name = "cPrecDeb" GRID1.cPrecDeb.Text1.Name = "Text1" GRID1.cPrecValCred.ColumnOrder = 29 GRID1.cPrecValCred.Header1.Name = "Header1" GRID1.cPrecValCred.Name = "cPrecValCred" GRID1.cPrecValCred.Text1.Name = "Text1" GRID1.cPrecValDeb.ColumnOrder = 28 GRID1.cPrecValDeb.Header1.Name = "Header1" GRID1.cPrecValDeb.Name = "cPrecValDeb" GRID1.cPrecValDeb.Text1.Name = "Text1" GRID1.cSoldFinal.ColumnOrder = 13 GRID1.cSoldFinal.Header1.Name = "Header1" GRID1.cSoldFinal.Name = "cSoldFinal" GRID1.cSoldFinal.Text1.Name = "Text1" GRID1.cSoldVal.ColumnOrder = 16 GRID1.cSoldVal.Header1.Name = "Header1" GRID1.cSoldVal.Name = "cSoldVal" GRID1.cSoldVal.Text1.Name = "Text1" GRID1.cTotCred.ColumnOrder = 12 GRID1.cTotCred.Header1.Name = "Header1" GRID1.cTotCred.Name = "cTotCred" GRID1.cTotCred.Text1.Name = "Text1" GRID1.cTotCredVal.ColumnOrder = 15 GRID1.cTotCredVal.Header1.Name = "Header1" GRID1.cTotCredVal.Name = "cTotCredVal" GRID1.cTotCredVal.Text1.Name = "Text1" GRID1.cTotDeb.ColumnOrder = 11 GRID1.cTotDeb.Header1.Name = "Header1" GRID1.cTotDeb.Name = "cTotDeb" GRID1.cTotDeb.Text1.Name = "Text1" GRID1.CTOTDEBVAL.ColumnOrder = 14 GRID1.CTOTDEBVAL.Header1.Name = "Header1" GRID1.CTOTDEBVAL.Name = "CTOTDEBVAL" GRID1.CTOTDEBVAL.Text1.Name = "Text1" GRID1.cValCredit.ColumnOrder = 23 GRID1.cValCredit.Header1.Name = "Header1" GRID1.cValCredit.Name = "cValCredit" GRID1.cValCredit.Text1.Name = "Text1" GRID1.cValDebit.ColumnOrder = 22 GRID1.cValDebit.Header1.Name = "Header1" GRID1.cValDebit.Name = "cValDebit" GRID1.cValDebit.Text1.Name = "Text1" GRID1.cVenChelt.ColumnOrder = 32 GRID1.cVenChelt.Header1.Name = "Header1" GRID1.cVenChelt.Name = "cVenChelt" GRID1.cVenChelt.Text1.Name = "Text1" GRID1.Name = "GRID1" GRID1.Panel = 1 But_reface1.lvizibil = .F. But_reface1.Name = "But_reface1" But_modifica1.lvizibil = .F. But_modifica1.Name = "But_modifica1" But_listare3.Name = "But_listare3" But_excel1.Name = "But_excel1" BUT_TERMIN1.Name = "BUT_TERMIN1" Ck_firma.Alignment = 0 Ck_firma.Name = "Ck_firma" Ck_fel_doc.Alignment = 0 Ck_fel_doc.Name = "Ck_fel_doc" Ck_cont.Alignment = 0 Ck_cont.Name = "Ck_cont" Ck_analitic.Alignment = 0 Ck_analitic.Name = "Ck_analitic" Ck_datascad.Alignment = 0 Ck_datascad.Name = "Ck_datascad" Ck_datadoc.Alignment = 0 Ck_datadoc.Name = "Ck_datadoc" Ck_nrdoc.Alignment = 0 Ck_nrdoc.Name = "Ck_nrdoc" ck_debit.Alignment = 0 ck_debit.Name = "ck_debit" ck_credit.Alignment = 0 ck_credit.Name = "ck_credit" ck_sold.Alignment = 0 ck_sold.Name = "ck_sold" Ck_explicatia4.Alignment = 0 Ck_explicatia4.Name = "Ck_explicatia4" Ck_lucrare.Alignment = 0 Ck_lucrare.Name = "Ck_lucrare" Ck_valuta.Alignment = 0 Ck_valuta.Name = "Ck_valuta" Ck_explicatia.Alignment = 0 Ck_explicatia.Name = "Ck_explicatia" Ck_responsabil.Alignment = 0 Ck_responsabil.Name = "Ck_responsabil" Check3.Alignment = 0 Check3.Name = "Check3" Check4.Alignment = 0 Check4.Name = "Check4" CMD_CAUTA1.Name = "CMD_CAUTA1" CMD_RESET1.Name = "CMD_RESET1" LB_SIMPLU1.Name = "LB_SIMPLU1" Label3.Name = "Label3" Text1.Name = "Text1" Text2.Name = "Text2" Text3.Name = "Text3" Text4.Name = "Text4" Text5.Name = "Text5" Text6.Name = "Text6" Label2.Name = "Label2" Label4.Name = "Label4" Label5.Name = "Label5" Label9.Name = "Label9" Label8.Name = "Label8" Cb_nom_valute1.Name = "Cb_nom_valute1" oMenuShortcut.Name = "oMenuShortcut" Command1.Name = "Command1" cmdIncasPl.Name = "cmdIncasPl" Command2.Name = "Command2" Ck_venchelt.Alignment = 0 Ck_venchelt.Name = "Ck_venchelt" Command3.Name = "Command3" Ck_scadente.Alignment = 0 Ck_scadente.Name = "Ck_scadente" Ck_contract.Alignment = 0 Ck_contract.Name = "Ck_contract" But_listare1.Name = "But_listare1" But_listare2.Name = "But_listare2" * ADD OBJECT 'GRID1.Column36.Header1' AS header WITH ; Alignment = 2, ; Caption = "Rate acoperite", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'GRID1.Column36.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> PROCEDURE do_cauta && am suprascris metoda do_cauta ca sa scot din lcfiltru conditia de an, luna LOCAL lcFiltru lcFiltru = "" *!* If m.nivel>1 *!* lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ] *!* ENDIF * nrdoc IF THISFORM.ck_nrdoc.VALUE=1 lcFiltru = lcFiltru + THISFORM.ck_nrdoc.filtru ENDIF * responsabil IF THISFORM.ck_responsabil.VALUE=1 lcFiltru = lcFiltru + THISFORM.ck_responsabil.filtru ENDIF * dataDoc IF THIS.ck_dataDoc.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_dataDoc.filtru ENDIF * datascad IF THIS.ck_datascad.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_datascad.filtru ENDIF * analitic IF THIS.ck_analitic.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_analitic.filtru ENDIF * cont IF THIS.ck_cont.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_cont.filtru ENDIF * firma IF THIS.ck_firma.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_firma.filtru ENDIF * venit_cheltuiala IF THIS.ck_venchelt.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_venchelt.filtru ENDIF * lucrare/comanda IF THIS.ck_lucrare.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_lucrare.filtru ENDIF * contract IF THIS.ck_contract.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_contract.filtru ENDIF * debit IF THISFORM.ck_debit.VALUE=1 lcFiltru = lcFiltru + THISFORM.ck_debit.filtru ENDIF * credit IF THISFORM.ck_credit.VALUE=1 lcFiltru = lcFiltru + THISFORM.ck_credit.filtru ENDIF * sold IF THIS.ck_sold.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_sold.filtru ENDIF * valuta IF THIS.ck_valuta.VALUE = 1 lcFiltru = lcFiltru + THISFORM.ck_valuta.filtru ENDIF * explicatia IF THIS.ck_explicatia.VALUE = 1 lcFiltru = lcFiltru + THIS.ck_explicatia.filtru ENDIF * fel document IF THIS.Ck_fel_doc.VALUE = 1 lcFiltru = lcFiltru + THIS.Ck_fel_doc.filtru ENDIF *scadente IF THIS.Ck_scadente.VALUE = 1 lcFiltru = lcFiltru + THIS.Ck_scadente.filtru ENDIF *explicatia4 IF THIS.ck_explicatia4.VALUE=1 lcFiltru = lcFiltru + THIS.ck_explicatia4.filtru ENDIF *ACHITATE IF THIS.check3.VALUE = 1 IF THISFORM.lActiv lcFiltru = lcFiltru + "and (i.precdeb + i.debit) - (i.preccred + i.credit) = 0" ELSE lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) = 0" ENDIF ENDIF *NEACHITATE IF THIS.check4.VALUE = 1 IF THISFORM.lActiv lcFiltru = lcFiltru + " and (i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0" ELSE lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) <> 0" ENDIF ENDIF *!* If This.check7.Value = 1 *!* lcFiltru = lcFiltru + " and extract (year from i.datascad) =" + Alltrim(Str(gnAn)) + "and extract (month from i.datascad) = " + Alltrim(Str(gnLuna)) *!* Endif *!* If !Empty(lcFiltru) *!* lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') and i.luna = ] + Alltrim(Str(gnLuna)) + [ and i.an = ] + Alltrim(Str(gnAn)) + lcFiltru *!* Else *!* lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') and i.luna = ] + Alltrim(Str(gnLuna)) + [ and i.an = ] + Alltrim(Str(gnAn)) *!* Endif IF !EMPTY(lcFiltru) lcFiltru = [i.cont in ('] + ALLTRIM(STRTRAN(THISFORM.CONT, [,], [','])) + [') ] + lcFiltru ELSE lcFiltru = [i.cont in ('] + ALLTRIM(STRTRAN(THISFORM.CONT, [,], [','])) + [') ] ENDIF THISFORM.MOUSEPOINTER= 11 THISFORM.LOCKSCREEN=.T. THISFORM.actualizeaza_grid1(lcFiltru) THISFORM.LOCKSCREEN=.F. THISFORM.MOUSEPOINTER= 0 IF RECCOUNT('actcv')=0 MESSAGEBOX("Cautarea nu a intors rezultate!",0+48,"Info cautare") THISFORM.ck_nrdoc.SETFOCUS() ELSE THISFORM.grid1.SETFOCUS() ENDIF ENDPROC PROCEDURE Init DODEFAULT() this.but_modifica1.Visible = .F. this.but_reface1.Visible = .F. ENDPROC ENDDEFINE DEFINE CLASS frm_multiplica_rate AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNrRate" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtFrecventa" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDataI" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValRata" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNume_val" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDen_rata" UniqueID="" Timestamp="" /> * BorderStyle = 1 DoCreate = .T. Height = 292 Name = "frm_multiplica_rate" Width = 419 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 696 _shape2.Height = 29 _shape2.Left = 355 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 64 Lb_titlu_alb_b121.Caption = "Adăugare rate" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 9 BUT_TERMIN1.Left = 388 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 7 BUT_TERMIN1.Top = 1 Gridsort1.Left = 113 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 5 * ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Left = 357, ; Name = "But_renunt1", ; TabIndex = 8, ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Command2' AS commandbutton WITH ; Caption = "", ; FontName = "Arial Narrow", ; Height = 25, ; Left = 225, ; Name = "Command2", ; Picture = ..\grafice\find.bmp, ; TabIndex = 6, ; Top = 173, ; Width = 28 *< END OBJECT: BaseClass="commandbutton" /> ADD OBJECT 'Label1' AS label WITH ; BackStyle = 0, ; Caption = "Nr rate", ; Height = 17, ; Left = 12, ; Name = "Label1", ; TabIndex = 10, ; Top = 47, ; Width = 40 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Frecvența", ; FontCharSet = 238, ; Height = 17, ; Left = 12, ; Name = "Label2", ; TabIndex = 11, ; Top = 72, ; Width = 55 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data de început", ; FontCharSet = 238, ; Height = 17, ; Left = 12, ; Name = "Label3", ; TabIndex = 12, ; Top = 98, ; Width = 88 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare rată", ; FontCharSet = 238, ; Height = 17, ; Left = 12, ; Name = "Label4", ; TabIndex = 14, ; Top = 124, ; Width = 68 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label5' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valuta", ; Height = 17, ; Left = 12, ; Name = "Label5", ; TabIndex = 15, ; Top = 177, ; Width = 36 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label6' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Denumire rată", ; FontCharSet = 238, ; Height = 17, ; Left = 12, ; Name = "Label6", ; TabIndex = 13, ; Top = 150, ; Width = 81 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label7' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Pentru luna", ; Height = 17, ; Left = 12, ; Name = "Label7", ; TabIndex = 16, ; Top = 202, ; Width = 65 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; AutoSize = .T., ; BackStyle = 0, ; ButtonCount = 4, ; ControlSource = "pnPtLuna", ; Height = 84, ; Left = 120, ; Name = "Optiongroup1", ; TabIndex = 18, ; Top = 202, ; Value = 1, ; Width = 168, ; Option1.AutoSize = .T., ; Option1.BackStyle = 0, ; Option1.Caption = "", ; Option1.Height = 17, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 5, ; Option1.Value = 1, ; Option1.Width = 98, ; Option2.AutoSize = .T., ; Option2.BackStyle = 0, ; Option2.Caption = "luna în care se facturează", ; Option2.FontCharSet = 238, ; Option2.Height = 17, ; Option2.Left = 5, ; Option2.Name = "Option2", ; Option2.Top = 24, ; Option2.Width = 158, ; Option3.AutoSize = .T., ; Option3.BackStyle = 0, ; Option3.Caption = "luna precedentă", ; Option3.FontCharSet = 238, ; Option3.Height = 17, ; Option3.Left = 5, ; Option3.Name = "Option3", ; Option3.Top = 43, ; Option3.Width = 107, ; Option4.AutoSize = .T., ; Option4.BackStyle = 0, ; Option4.Caption = "luna următoare", ; Option4.FontCharSet = 238, ; Option4.Height = 17, ; Option4.Left = 5, ; Option4.Name = "Option4", ; Option4.Top = 62, ; Option4.Width = 102 *< END OBJECT: BaseClass="optiongroup" /> ADD OBJECT 'txtDataI' AS textbox WITH ; ControlSource = "pdDataI", ; Format = "k", ; Height = 23, ; Left = 120, ; Name = "txtDataI", ; TabIndex = 3, ; Top = 95, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtDen_rata' AS textbox WITH ; ControlSource = "pcDen_rata", ; Format = "k", ; Height = 23, ; Left = 120, ; Name = "txtDen_rata", ; TabIndex = 5, ; Top = 147, ; Width = 288 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtFrecventa' AS textbox WITH ; ControlSource = "pnFrecventa", ; Height = 23, ; Left = 120, ; Name = "txtFrecventa", ; ReadOnly = .T., ; TabIndex = 2, ; Top = 69, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtNrRate' AS textbox WITH ; ControlSource = "pnNrRate", ; Format = "rk", ; Height = 23, ; Left = 120, ; Name = "txtNrRate", ; TabIndex = 1, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtNume_val' AS textbox WITH ; ControlSource = "pcNume_val", ; Format = "k", ; Height = 23, ; Left = 120, ; Name = "txtNume_val", ; ReadOnly = .T., ; TabIndex = 17, ; Top = 174, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValRata' AS textbox WITH ; ControlSource = "pnValRata", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(14,gnPc)), ; Left = 120, ; Name = "txtValRata", ; TabIndex = 4, ; Top = 121, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> PROCEDURE inainte_de_do_termin IF EMPTY(pdDataI) OR ISNULL(pdDataI) AMESSAGEBOX('Nu ati completat data de inceput',0+48,'Atentie') thisform.txtDataI.SetFocus() RETURN .F. ENDIF ENDPROC PROCEDURE Command2.Click locauta = caut_valuta() If buton=2 Return Endif pnid_valuta = locauta.id_valuta pcnume_val = locauta.nume_val Thisform.txtNume_val.Refresh *!* modificare v 2.0.46 With Thisform.txtValRata .InputMask =get_mask(14,Iif(locauta.moneda_nationala = 1,gnPc,gnPVal)) .Refresh() Endwith Thisform.txtValRata.Refresh() *!* modificare v 2.0.46 ^ ENDPROC PROCEDURE Optiongroup1.Valid pnPtLuna = this.Value ENDPROC ENDDEFINE DEFINE CLASS frm_politica_preturi AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="grd_articole" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cArticol.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cPret.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cPret.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.Column5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_articole.Column5.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" /> * *m: do_alege_politica_pret *p: cpolitica_pret *p: nid_politica_pret * * BorderStyle = 1 cpolitica_pret = DoCreate = .T. Height = 541 Name = "frm_politica_preturi" nid_politica_pret = 0 Width = 473 _shape1.Anchor = 11 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 480 _shape2.Anchor = 9 _shape2.Height = 29 _shape2.Left = 413 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 59 Lb_titlu_alb_b121.Caption = "Politici de prețuri" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 443 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 264 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 7 * ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 413, ; Name = "But_renunt1", ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Combo1' AS combobox WITH ; ColumnCount = 3, ; ColumnLines = .F., ; ColumnWidths = "200,65,65", ; Height = 24, ; Left = 116, ; Name = "Combo1", ; RowSource = "crsPoliticiGrup.nume_lista_preturi,nume_val,datai,datas,id_politica", ; RowSourceType = 2, ; Top = 40, ; Width = 292 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grd_articole' AS _grdrow WITH ; ColumnCount = 5, ; DeleteMark = .F., ; FontName = "Arial Narrow", ; Height = 458, ; Left = 13, ; Name = "grd_articole", ; Panel = 1, ; RecordSource = "cPol_pret_art", ; TabIndex = 10, ; Top = 70, ; Width = 446, ; Column1.ColumnOrder = 2, ; Column1.ControlSource = "nume_articol", ; Column1.FontName = "Arial Narrow", ; Column1.Name = "cArticol", ; Column1.Width = 225, ; Column2.ColumnOrder = 3, ; Column2.ControlSource = "um", ; Column2.FontName = "Arial Narrow", ; Column2.Name = "cUM", ; Column2.Width = 39, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "pretftva", ; Column3.FontName = "Arial Narrow", ; Column3.InputMask = (get_mask(14,gnPPretV)), ; Column3.Name = "cPret", ; Column3.Width = 72, ; Column4.ColumnOrder = 5, ; Column4.ControlSource = "nume_val", ; Column4.FontName = "Arial Narrow", ; Column4.Name = "cValuta", ; Column4.Width = 38, ; Column5.ColumnOrder = 1, ; Column5.ControlSource = "ales", ; Column5.FontName = "Arial Narrow", ; Column5.Name = "Column5", ; Column5.Sparse = .F., ; Column5.Width = 36 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grd_articole.cArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Articol", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grd_articole.cArticol.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grd_articole.Column5.Check1' AS checkbox WITH ; Alignment = 0, ; Caption = "", ; Height = 17, ; Left = 13, ; Name = "Check1", ; Top = 19, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grd_articole.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ales", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grd_articole.cPret.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grd_articole.cPret.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grd_articole.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "UM", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grd_articole.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grd_articole.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grd_articole.cValuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Politica de prețuri", ; FontCharSet = 238, ; Height = 17, ; Left = 10, ; Name = "Label1", ; Top = 43, ; Width = 97 *< END OBJECT: BaseClass="label" /> PROCEDURE Combo1.InteractiveChange Thisform.grd_articole.salveaza_grid() If Used('cPol_pret_art') Use In cPol_pret_art Endif Private poPol_pret_art Store '' To poPol_pret_art lcSchema1 = [] lcSelect1 = [select ppa.*, 0 as ales from vcrm_politici_pret_art ppa] lcOrder1 = [] lcgroup = [] lcFiltru1 = [2=2] lcFiltruOriginal = [ppa.id_pol=]+Alltrim(Str(crsPoliticiGrup.id_politica)) llModParam = .T. llAfiseaza = .F. gencursor('poPol_pret_art','cPol_pret_art', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poPol_pret_art.ca_baza1.afisare() Release poPol_pret_art *!* modificare v 2.0.46 This.Parent.grd_articole.cPret.InputMask = get_mask(14,Iif(crsPoliticiGrup.moneda_nationala=1,gnPPretV,gnPVal)) *!* modificare v 2.0.46 ^ Thisform.grd_articole.incarca_grid() ENDPROC ENDDEFINE DEFINE CLASS frm_ratedefacturat AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_txDatai" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_txDataf" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtPartener" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="img_cautare" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDenumire_tip" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_image1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lbPerioada" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_facturate" UniqueID="" Timestamp="" /> * *m: do_alege_partener *m: do_alege_tip_ctr *p: dataf *p: datai *p: nid_part *p: nid_tip_ctr * * BorderStyle = 1 dataf = {} datai = {} DoCreate = .T. Height = 183 Name = "frm_ratedefacturat" nid_part = 0 nid_tip_ctr = 0 Width = 313 _shape1.Height = 29 _shape1.Left = -2 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 559 _shape2.Height = 29 _shape2.Left = 221 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 93 Lb_titlu_alb_b121.Caption = "Rate de facturat" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 9 BUT_TERMIN1.Left = 283 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 7 BUT_TERMIN1.Top = 1 Gridsort1.Left = 130 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 2 * ADD OBJECT '_image1' AS _image WITH ; Anchor = 9, ; Height = 20, ; Left = 271, ; Name = "_image1", ; Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ; Stretch = 1, ; Top = 127, ; Width = 20 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" /> ADD OBJECT '_txDataf' AS _textbox WITH ; ControlSource = "thisform.dataf", ; DisabledForeColor = 0,0,0, ; FontName = "Arial Narrow", ; FontSize = 10, ; ForeColor = 0,0,0, ; Format = "k", ; Height = 22, ; Left = 116, ; Name = "_txDataf", ; TabIndex = 2, ; Top = 58, ; Width = 72, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\..\roagest\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT '_txDatai' AS _textbox WITH ; ControlSource = "thisform.datai", ; DisabledForeColor = 0,0,0, ; FontName = "Arial Narrow", ; FontSize = 10, ; ForeColor = 0,0,0, ; Format = "k", ; Height = 22, ; Left = 32, ; Name = "_txDatai", ; TabIndex = 1, ; Top = 58, ; Width = 72, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\..\roagest\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 9, ; Left = 222, ; Name = "But_excel1", ; TabIndex = 8, ; Top = 1 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 253, ; Name = "But_listare1", ; TabIndex = 6, ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'ck_facturate' AS checkbox WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Inclusiv ratele facturate", ; Height = 17, ; Left = 17, ; Name = "ck_facturate", ; TabIndex = 5, ; Top = 161, ; Width = 143 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'img_cautare' AS _image WITH ; Anchor = 9, ; Height = 20, ; Left = 271, ; Name = "img_cautare", ; Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ; Stretch = 1, ; Top = 100, ; Width = 20 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Partener", ; Height = 17, ; Left = 17, ; Name = "Label1", ; TabIndex = 11, ; Top = 102, ; Width = 49 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Tip contract", ; Height = 17, ; Left = 17, ; Name = "Label2", ; TabIndex = 12, ; Top = 129, ; Width = 65 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'lbPerioada' AS label WITH ; Alignment = 2, ; BackColor = 255,255,255, ; Caption = "Perioada", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; FontSize = 10, ; Height = 17, ; Left = 25, ; Name = "lbPerioada", ; TabIndex = 10, ; Top = 38, ; Width = 63, ; ZOrderSet = 16 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Shape3' AS shape WITH ; BackStyle = 0, ; Height = 39, ; Left = 17, ; Name = "Shape3", ; Top = 48, ; Width = 278, ; ZOrderSet = 1 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'txtDenumire_tip' AS textbox WITH ; Anchor = 11, ; Format = "k", ; Height = 23, ; Left = 98, ; Name = "txtDenumire_tip", ; TabIndex = 4, ; Top = 126, ; Value = , ; Width = 168 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtPartener' AS textbox WITH ; Anchor = 11, ; Format = "k", ; Height = 23, ; Left = 98, ; Name = "txtPartener", ; TabIndex = 3, ; Top = 99, ; Value = , ; Width = 168 *< END OBJECT: BaseClass="textbox" /> PROCEDURE do_alege_partener LOCAL lcIdTipPart, lcTitlu STORE '' TO lcIdTipPart, lcTitlu DO CASE CASE gnParametru_prog = 1 && contracte clienti lcIdTipPart = [-1] lcTitlu = 'Clienti' CASE gnParametru_prog = 2 && contracte furnizori lcIdTipPart = [-2] lcTitlu = 'Furnizori' ENDCASE loCauta = caut_partener(lcIdTipPart, lcTitlu) *!* IF buton = 2 *!* RETURN *!* ENDIF IF EMPTY(loCauta.id_part) THISFORM.nid_part = 0 THISFORM.txtPartener.VALUE = '' ELSE THISFORM.nid_part = loCauta.id_part THISFORM.txtPartener.VALUE = loCauta.denumire ENDIF THISFORM.txtPartener.REFRESH ENDPROC PROCEDURE do_alege_tip_ctr LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc lcselect = [select id_tip_ctr, denumire_tip FROM vtipuri_contracte] lcfiltru = [1=2] lcschema = [] lcorder = [denumire_tip] lccoloane = [denumire_tip] lcTitlu = [Alegeti tipul de contract] lcTitluColoane = [Tip contract] DO CASE CASE gnParametru_prog=1 lcFiltruOriginal = [substr(tata,2,6)='CLIENT'] CASE gnParametru_prog=2 lcFiltruOriginal = [substr(tata,2,6)='FURNIZ'] OTHERWISE lcFiltruOriginal = [] ENDCASE lcNumeProc = "" locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal) *!* IF buton=2 *!* RETURN *!* ENDIF IF EMPTY(loCauta.id_tip_ctr) THISFORM.nid_tip_ctr = 0 thisform.txtDenumire_tip.Value = '' ELSE THISFORM.nid_tip_ctr = loCauta.id_tip_ctr THISFORM.txtDenumire_tip.Value = loCauta.denumire ENDIF THISFORM.txtDenumire_tip.REFRESH ENDPROC PROCEDURE inainte_de_do_listare PRIVATE pcDataOra, pcTitlu, pcPerioada, pcDenumire, pcDenumire_tip, pcInclusivFacturate pcDataOra = get_ora(2) pcTitlu = 'Rate de facturat' LOCAL ldDataI, ldDataF, lcId_part, lcId_tip_ctr IF EMPTY(THISFORM.datai) AMESSAGEBOX('Completati data de inceput',0+48,'Atentie!') THISFORM._txDatai.SETFOCUS() RETURN ELSE ldDataI = THISFORM.datai ENDIF IF EMPTY(THISFORM.dataf) AMESSAGEBOX('Completati data de sfarsit',0+48,'Atentie!') THISFORM._txDataf.SETFOCUS() RETURN ELSE ldDataF = THISFORM.dataf ENDIF pcPerioada = DTOC(ldDataI)+ ' - ' +DTOC(ldDataF) pcDenumire = NVL(THISFORM.txtPartener.VALUE,'') pcDenumire_tip = NVL(THISFORM.txtDenumire_tip.VALUE,'') pcFacturate = ALLTRIM(STR(THISFORM.ck_facturate.VALUE)) && 1 IF THISFORM.ck_facturate.VALUE = 0 pcInclusivFacturate = '' ELSE pcInclusivFacturate = '' ENDIF lcId_part = IIF(EMPTY(THISFORM.nId_part),[NULL],ALLTRIM(STR(THISFORM.nId_part))) lcId_tip_ctr = IIF(EMPTY(THISFORM.nId_tip_ctr),[NULL],ALLTRIM(STR(THISFORM.nId_tip_ctr))) lcSel = [{call pack_crm.rateDeFacturat(to_date(']+DTOS(ldDataI)+ [','YYYYMMDD'), to_date('] + DTOS(ldDataF)+[','YYYYMMDD'),]+; lcId_part + [,] + lcId_tip_ctr + [,] + pcFacturate + [)}] lcCursor = 'cRateDeFacturat' lnSucces = goExecutor.oExecute(lcSel, lcCursor) IF lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") RETURN ENDIF THISFORM.ALWAYSONTOP = .F. DO CASE CASE gnParametru_prog = 1 SELECT rf.* ; FROM cRateDeFacturat rf ; LEFT JOIN cContracte c ON c.id_ctr = rf.id_ctr ; WHERE UPPER(SUBSTR(c.tata,2,6)) = 'CLIENT' ; ORDER BY rf.data_rata, rf.denumire, rf.den_rata ; INTO CURSOR cRateDeFacturat2 CASE gnParametru_prog = 2 SELECT rf.* ; FROM cRateDeFacturat rf ; LEFT JOIN cContracte c ON c.id_ctr = rf.id_ctr ; ORDER BY rf.data_rata, rf.denumire, rf.den_rata ; WHERE UPPER(SUBSTR(c.tata,2,6)) = 'FURNIZ' INTO CURSOR cRateDeFacturat2 ENDCASE *!* modificare v 2.0.34 goExport.export2frx([cRateDeFacturat2],[ratedefacturat]) *!* SELECT cRateDeFacturat2 *!* REPORT FORM ratedefacturat TO PRINTER PROMPT PREVIEW *!* modificare v 2.0.34 ^ THISFORM.ALWAYSONTOP = .T. IF USED('cRateDeFacturat') USE IN cRateDeFacturat ENDIF IF USED('cRateDeFacturat2') USE IN cRateDeFacturat2 ENDIF ENDPROC PROCEDURE Init DODEFAULT() lcData1 = '01/'+ALLTRIM(STR(gnLuna))+'/'+ALLTRIM(STR(gnAn)) thisform.datai = CTOD(lcData1) thisform.dataf = ULTIMAZI(STR(gnAn), STR(gnLuna)) ENDPROC PROCEDURE img_cautare.Click thisform.do_alege_partener() ENDPROC PROCEDURE Label1.Init IIF(gnParametru_prog = 1,this.Caption="Client",IIF(gnParametru_prog = 2,this.Caption="Furnizor",'')) ENDPROC PROCEDURE txtDenumire_tip.GotFocus thisform.do_alege_tip_ctr() ENDPROC PROCEDURE txtPartener.GotFocus thisform.do_alege_partener() ENDPROC PROCEDURE _image1.Click thisform.do_alege_tip_ctr() ENDPROC ENDDEFINE DEFINE CLASS frm_restdefacturat AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="optIncetat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="ck_group_respons" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="optInactiv" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_restDeFacturat" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_responsabil" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_valuta" UniqueID="" Timestamp="" /> * DoCreate = .T. Height = 138 Name = "frm_restdefacturat" Width = 421 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 444 _shape2.Height = 29 _shape2.Left = 360 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 62 Lb_titlu_alb_b121.Caption = "Rest de facturat" Lb_titlu_alb_b121.Left = 6 Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Height = 27 BUT_TERMIN1.Left = 391 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 144 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 8 * ADD OBJECT 'But_listare1' AS but_listare WITH ; Left = 360, ; Name = "But_listare1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = c.data, ; Caption = "Data ctr.", ; FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_data_ctr", ; TabIndex = 3, ; tip = D, ; Top = 93, ; ZOrderSet = 4 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'ck_group_respons' AS _checkbox WITH ; Alignment = 0, ; Caption = "Grupare pe responsabili", ; FontName = "Arial Narrow", ; Left = 294, ; Name = "ck_group_respons", ; Top = 115 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = c.numar_aa, ; Caption = "Nr. ctr.", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_nr_ctr", ; TabIndex = 2, ; Top = 75, ; ZOrderSet = 15 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = c.denumire, ; Caption = "Partener", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_nume", ; TabIndex = 1, ; Top = 57, ; ZOrderSet = 14 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_responsabil' AS ck_filtru_text WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = c.responsabil, ; Caption = "Responsabil", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; Left = 80, ; Name = "Ck_responsabil", ; TabIndex = 1, ; Top = 57, ; ZOrderSet = 14 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_restDeFacturat' AS _checkbox WITH ; Alignment = 0, ; Caption = "Rest de facturat <> 0", ; FontBold = .T., ; FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_restDeFacturat", ; Top = 36 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_valuta' AS ck_filtru_text WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = c.nume_val, ; Caption = "Valuta", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; Left = 80, ; Name = "Ck_valuta", ; TabIndex = 1, ; Top = 75, ; ZOrderSet = 14 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'optInactiv' AS optiongroup WITH ; Anchor = 3, ; BackStyle = 0, ; ButtonCount = 3, ; Height = 49, ; Left = 304, ; Name = "optInactiv", ; TabIndex = 12, ; Top = 59, ; Value = 1, ; Width = 111, ; ZOrderSet = 11, ; Option1.BackStyle = 0, ; Option1.Caption = "Contractele active", ; Option1.FontName = "Arial Narrow", ; Option1.Height = 18, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 1, ; Option1.Value = 1, ; Option1.Width = 126, ; Option2.BackStyle = 0, ; Option2.Caption = "Contractele inactive", ; Option2.FontName = "Arial Narrow", ; Option2.Height = 18, ; Option2.Left = 5, ; Option2.Name = "Option2", ; Option2.Top = 15, ; Option2.Width = 99, ; Option3.BackStyle = 0, ; Option3.Caption = "Toate contractele", ; Option3.FontName = "Arial Narrow", ; Option3.Height = 18, ; Option3.Left = 5, ; Option3.Name = "Option3", ; Option3.Top = 29, ; Option3.Width = 100 *< END OBJECT: BaseClass="optiongroup" /> ADD OBJECT 'optIncetat' AS optiongroup WITH ; Anchor = 3, ; BackStyle = 0, ; ButtonCount = 3, ; Height = 49, ; Left = 162, ; Name = "optIncetat", ; TabIndex = 11, ; Top = 59, ; Value = 1, ; Width = 134, ; ZOrderSet = 5, ; Option1.BackStyle = 0, ; Option1.Caption = "Contractele în desfășurare", ; Option1.FontCharSet = 238, ; Option1.FontName = "Arial Narrow", ; Option1.Height = 18, ; Option1.Left = 4, ; Option1.Name = "Option1", ; Option1.Top = 1, ; Option1.Value = 1, ; Option1.Width = 126, ; Option2.BackStyle = 0, ; Option2.Caption = "Contractele încetate", ; Option2.FontCharSet = 238, ; Option2.FontName = "Arial Narrow", ; Option2.Height = 18, ; Option2.Left = 4, ; Option2.Name = "Option2", ; Option2.Top = 15, ; Option2.Width = 99, ; Option3.BackStyle = 0, ; Option3.Caption = "Toate contractele", ; Option3.FontName = "Arial Narrow", ; Option3.Height = 18, ; Option3.Left = 4, ; Option3.Name = "Option3", ; Option3.Top = 29, ; Option3.Width = 87 *< END OBJECT: BaseClass="optiongroup" /> PROCEDURE inainte_de_do_listare Private pcFiltru, pnGroupResponsabil Store '' To pcFiltru Store 0 To pnGroupResponsabil Local lcCondSucursala Store '' To lcCondSucursala If This.ck_nume.Value = 1 pcFiltru = pcFiltru + This.ck_nume.filtru Endif If This.ck_nr_ctr.Value = 1 pcFiltru = pcFiltru + This.ck_nr_ctr.filtru Endif If This.ck_data_ctr.Value = 1 pcFiltru = pcFiltru + This.ck_data_ctr.filtru Endif If This.ck_responsabil.Value = 1 pcFiltru = pcFiltru + This.ck_responsabil.filtru Endif If This.ck_valuta.Value = 1 pcFiltru = pcFiltru + This.ck_valuta.filtru Endif If This.ck_restDeFacturat.Value=1 pcFiltru = pcFiltru + [ and round(sel2.valrata, 2) - round(sel2.valfact, 2) <> 0 ] Endif Do Case Case This.optIncetat.Value = 1 pcFiltru = pcFiltru + [ and c.incetat = 0] Case This.optIncetat.Value = 2 pcFiltru = pcFiltru + [ and c.incetat = 1] Case This.optIncetat.Value = 3 pcFiltru = pcFiltru + [ and (c.incetat = 0 or c.incetat = 1)] Endcase Do Case Case This.optInactiv.Value = 1 && active pcFiltru = pcFiltru + [ and c.inactiv = 0] Case This.optInactiv.Value = 2 && inactive pcFiltru = pcFiltru + [ and c.inactiv = 1] Case This.optInactiv.Value = 3 && toate pcFiltru = pcFiltru + [ and (c.inactiv = 0 or c.inactiv = 1)] Endcase lcCondSucursala = Iif(!Isnull(gnIdSucursala), ' AND id_sucursala = ' + Alltrim(Str(gnIdSucursala)), '') If gnParametru_prog=1 pcFiltru = pcFiltru + [ and substr(c.tata,2,6)='CLIENT'] + lcCondSucursala Else pcFiltru = pcFiltru + [ and substr(c.tata,2,6)='FURNIZ'] + lcCondSucursala Endif If !Empty(pcFiltru) pcFiltru = Substr(pcFiltru,6) Else pcFiltru = [1=1] Endif If Thisform.ck_group_respons.Value = 1 pnGroupResponsabil = 1 pcGroup1 = 'crsrestdefacturat.id_responsabil' Else pnGroupResponsabil = 0 pcGroup1 = '1=1' Endif *--- lcSel = [{call pack_crm.restdefacturat(?pcFiltru, ?pnGroupResponsabil)}] lcCursor = 'crsRestDeFacturat' If goExecutor.oExecuta(lcSel, lcCursor) Thisform.AlwaysOnTop = .F. goExport.export2frx(lcCursor,[rCtrRestDeFact]) Thisform.AlwaysOnTop = .T. Use In (lcCursor) Endif ENDPROC ENDDEFINE DEFINE CLASS frm_restdefacturat_mic AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="ck_group_respons" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_restDeFacturat" UniqueID="" Timestamp="" /> * BorderStyle = 1 DoCreate = .T. Height = 69 Name = "frm_restdefacturat_mic" Width = 375 _shape1.Name = "_shape1" _shape2.Name = "_shape2" Lb_titlu_alb_b121.Caption = "Rest de facturat" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Name = "BUT_TERMIN1" Gridsort1.Left = 156 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 7 BUT_RENUNT1.Name = "BUT_RENUNT1" * ADD OBJECT 'ck_group_respons' AS _checkbox WITH ; Alignment = 0, ; Caption = "Grupare pe responsabili", ; ControlSource = "pnGroupResponsabil", ; FontName = "Arial Narrow", ; Left = 240, ; Name = "ck_group_respons", ; Top = 39 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_restDeFacturat' AS _checkbox WITH ; Alignment = 0, ; Caption = "Rest de facturat <> 0", ; ControlSource = "pnRestDeFacturat", ; FontBold = .T., ; FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_restDeFacturat", ; Top = 41 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ENDDEFINE DEFINE CLASS frm_selectie_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Clb_categ_ctr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cus_odata_selectie1" UniqueID="" Timestamp="" /> * *p: cnumevechi *p: nid *p: nnivelmodificare && - 1 daca utilizatorul are voie sa modifice toate datele ; 0 daca are voie sa modifice doar nr. de telefon *p: orec * * BorderStyle = 1 cnumevechi = DoCreate = .T. Height = 83 Name = "frm_selectie_nou" nnivelmodificare = -1 Width = 358 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 744 _shape2.Height = 29 _shape2.Left = 291 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.Width = 69 Lb_titlu_alb_b121.Caption = "PROCEDURĂ SELECȚIE" Lb_titlu_alb_b121.FontBold = .T. Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 5 BUT_TERMIN1.Height = 27 BUT_TERMIN1.Left = 328 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 3 BUT_TERMIN1.Top = 0 BUT_TERMIN1.Width = 30 Gridsort1.Left = 240 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 5 * ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Height = 27, ; Left = 296, ; Name = "But_renunt1", ; TabIndex = 4, ; Top = 0, ; Width = 30 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Clb_categ_ctr' AS clb_tx_simplu WITH ; Height = 29, ; Left = 15, ; Name = "Clb_categ_ctr", ; TabIndex = 1, ; Top = 40, ; Width = 328, ; Text_simplu1.ControlSource = "porec.selectie", ; Text_simplu1.Left = 136, ; Text_simplu1.Name = "Text_simplu1", ; Text_simplu1.Top = 3, ; Lb_simplu1.Caption = "Procedură selecție", ; Lb_simplu1.Name = "Lb_simplu1" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Cus_odata_selectie1' AS cus_odata_selectie WITH ; Left = 210, ; Name = "Cus_odata_selectie1", ; Top = 1 *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="custom" /> PROCEDURE inainte_de_do_termin Local PLRETURN lccontrol = Upper(This.ActiveControl.BaseClass ) If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") lcval = This.ActiveControl.ControlSource &lcval = Thisform.ActiveControl.Value ENDIF Do Case Case Empty(porec.selectie) amessagebox('Nu ati completat denumirea procedurii de selectie!',0+48,"Atentie") this.clb_selectie.text_simplu1.SetFocus() PLRETURN = .F. OTHERWISE PLRETURN = This.cus_odata_selectie1.salvare(This.OREC, This.NID) ENDCASE Return PLRETURN ENDPROC PROCEDURE Init LPARAMETERS toRec, tnId, tcActiune DODEFAULT() THIS.orec = toRec THIS.nid = tnId THIS.cus_odata_selectie1.cactiune = tcActiune ENDPROC ENDDEFINE DEFINE CLASS frm_selectii AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="clb_selectie" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_selectii" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_selectii.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_selectii.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_selectii.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grd_selectii.Column2.Text1" UniqueID="" Timestamp="" /> * *m: do_adauga2 *m: do_modifica2 *m: do_sterge2 * * BorderStyle = 1 cgridsortlist = grd_selectii DoCreate = .T. Height = 466 Name = "frm_selectii" Width = 711 WindowState = 2 _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 744 _shape1.ZOrderSet = 2 _shape2.Anchor = 8 _shape2.Height = 29 _shape2.Left = 577 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.Width = 136 _shape2.ZOrderSet = 3 Lb_titlu_alb_b121.Caption = "PROCEDURI SELECȚIE" Lb_titlu_alb_b121.FontBold = .T. Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 11 Lb_titlu_alb_b121.ZOrderSet = 4 BUT_TERMIN1.Anchor = 8 BUT_TERMIN1.Left = 680 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 6 BUT_TERMIN1.Top = 0 BUT_TERMIN1.ZOrderSet = 5 Gridsort1.Left = 240 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 12 * ADD OBJECT 'But_modifica1' AS but_modifica WITH ; Anchor = 8, ; Left = 615, ; Name = "But_modifica1", ; TabIndex = 8, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 8, ; Left = 581, ; Name = "But_nou1", ; TabIndex = 7, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 8, ; Left = 648, ; Name = "But_sterge1", ; TabIndex = 9, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'clb_selectie' AS clb_tx_simplu WITH ; Anchor = 0, ; Left = 9, ; Name = "clb_selectie", ; TabIndex = 1, ; Top = 37, ; Text_simplu1.Name = "Text_simplu1", ; Lb_simplu1.Caption = "Denumire", ; Lb_simplu1.Name = "Lb_simplu1" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; Anchor = 0, ; Left = 330, ; Name = "Cmd_cauta1", ; TabIndex = 4, ; Top = 36 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; Anchor = 0, ; Left = 418, ; Name = "Cmd_reset1", ; TabIndex = 10, ; Top = 36 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grd_selectii' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 2, ; DeleteMark = .F., ; Height = 383, ; Left = 9, ; Name = "grd_selectii", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .F., ; RecordSource = "cSelectii", ; Top = 73, ; Width = 687, ; Column1.ControlSource = "", ; Column1.Name = "Column1", ; Column1.ReadOnly = .T., ; Column1.Width = 69, ; Column2.ControlSource = "", ; Column2.Name = "Column2", ; Column2.ReadOnly = .T., ; Column2.Width = 198 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grd_selectii.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Id selectie", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grd_selectii.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grd_selectii.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Procedura selectie", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grd_selectii.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. *< END OBJECT: BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 Lparameters lcFiltru If Empty(lcFiltru) lcFiltru = poSelectii.ca_baza1.cfiltru Endif Thisform.MousePointer= 11 Thisform.LockScreen=.T. save_grid_tag(Thisform.grd_selectii) poSelectii.ca_baza1.cfiltru = lcFiltru poSelectii.ca_baza1.afisare() restore_grid_tag(Thisform.grd_selectii) Thisform.LockScreen = .F. Thisform.MousePointer = 0 ENDPROC PROCEDURE do_adauga Private pniesire pniesire=0 Select cSelectii Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With "selectie",loRec,,"INSERT" If pniesire=1 This.actualizeaza_grid1() Select cSelectii Locate For selectie = loRec.selectie Thisform.grd_selectii.SetFocus() Endif ENDPROC PROCEDURE do_adauga2 ENDPROC PROCEDURE do_cauta Local lcFiltru Store '' To lcFiltru lcFiltru=[2=2] lcSelectie = Strtran(Upper(Alltrim(This.clB_SELECTIE.text_simplu1.Value)),['],['']) If !Empty(lcSelectie) lcFiltru = lcFiltru + [ and selectie like '] + lcSelectie + [%'] Endif Thisform.actualizeaza_grid1(lcFiltru) If Reccount('cSelectii')>0 Select cSelectii Go Top Thisform.grd_selectii.SetFocus() Else aMessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") Thisform.clB_SELECTIE.SetFocus() Endif ENDPROC PROCEDURE do_modifica If Reccount('cSelectii')>0 Private pniesire pniesire = 0 Select cSelectii Scatter Name loRec Do Adauga_Modifica_Inregistrare With "selectie",loRec,loRec.id_selectie,"UPDATE" If pniesire = 1 This.actualizeaza_grid1() Endif Endif ENDPROC PROCEDURE do_modifica2 ENDPROC PROCEDURE do_reset thisform.clb_selectie.TEXT_SIMPLU1.Value = '' Thisform.Refresh Thisform.clb_selectie.TEXT_SIMPLU1.SetFocus() ENDPROC PROCEDURE do_sterge If Reccount('cSelectii')>0 Select cSelectii Scatter Name loRec Do STERGE_INREGISTRARE With "selectie",loRec.id_selectie This.actualizeaza_grid1() Endif ENDPROC PROCEDURE do_sterge2 ENDPROC ENDDEFINE DEFINE CLASS frm_viz_facturi_ AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column3.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column3.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column4.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column4.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column5.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column6.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column6.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column7.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column7.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column8.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column8.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column9.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column9.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column10.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column10.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column11.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column11.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column12.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column12.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column13.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column13.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column14.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column14.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column15.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grid_facturi.Column15.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listfactura1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValtva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Ck_perioada" UniqueID="" Timestamp="" /> * *m: afisactual *m: do_listfact *p: lproforme *p: nvalctva *p: nvalftva *p: nvaltva * * cgridsortlist = grid_facturi DoCreate = .T. Height = 554 lproforme = .F. Name = "frm_viz_facturi_" nvalctva = 0 nvalftva = 0 nvaltva = 0 Width = 771 _shape1.Anchor = 11 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape1.ZOrderSet = 1 _shape2.Anchor = 9 _shape2.Height = 29 _shape2.Left = 650 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 121 _shape2.ZOrderSet = 2 Lb_titlu_alb_b121.Caption = "Facturi" Lb_titlu_alb_b121.Left = 9 Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.Top = 6 Lb_titlu_alb_b121.ZOrderSet = 3 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 740 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 BUT_TERMIN1.ZOrderSet = 4 Gridsort1.Left = 120 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 4 * ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 651, ; Name = "But_listare1", ; ToolTipText = "Listare selectie (CTRL+P)", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_listfactura1' AS but_listfactura WITH ; Anchor = 9, ; Left = 681, ; Name = "But_listfactura1", ; ToolTipText = "Listare factura", ; Top = 1, ; Visible = .T., ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; Left = 711, ; Name = "But_sterge1", ; Top = 1, ; Visible = .T., ; ZOrderSet = 11 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = data_fact, ; Caption = "Data fact.", ; FontName = "Arial Narrow", ; Left = 119, ; Name = "Ck_data_fact", ; TabIndex = 1, ; tip = D, ; Top = 38, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = nr_fact, ; Caption = "Nr. fact.", ; FontName = "Arial Narrow", ; Left = 60, ; mask = (replicate('9',12)), ; Name = "Ck_nr_fact", ; TabIndex = 4, ; Top = 38, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; Alignment = 0, ; AutoSize = .T., ; camp_nume = nume, ; Caption = "Client", ; Comment = "*:OnResize=LT", ; FontName = "Arial Narrow", ; Left = 9, ; Name = "Ck_nume", ; TabIndex = 5, ; Top = 38, ; ZOrderSet = 6 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Ck_perioada' AS ck_filtru_luna WITH ; Alignment = 0, ; Anchor = 33, ; camp_nume = luna+an*12, ; Caption = "Perioada", ; FontName = "Arial Narrow", ; Left = 392, ; luna = , ; Name = "Ck_perioada", ; TabIndex = 30, ; Top = 38 *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 504, ; Name = "Cmd_cauta1", ; TabIndex = 34, ; Top = 34, ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; Anchor = 9, ; Comment = "*:OnResize=LT", ; Left = 600, ; Name = "Cmd_reset1", ; TabIndex = 45, ; Top = 34, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grid_facturi' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 15, ; DeleteMark = .F., ; FontName = "Arial Narrow", ; Height = 431, ; Left = 9, ; Name = "grid_facturi", ; Panel = 1, ; RecordMark = .F., ; RecordSource = "tFacturi", ; Top = 68, ; Width = 744, ; ZOrderSet = 5, ; Column1.ControlSource = "recno()", ; Column1.FontName = "Arial Narrow", ; Column1.Format = "rk", ; Column1.InputMask = "999999999999999", ; Column1.Name = "Column1", ; Column1.Width = 44, ; Column2.ControlSource = "nr_fact", ; Column2.FontName = "Arial Narrow", ; Column2.Format = "rk", ; Column2.InputMask = "9999999999", ; Column2.Name = "Column2", ; Column2.Width = 54, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "nr_ctr", ; Column3.FontName = "Arial Narrow", ; Column3.Format = "rk", ; Column3.InputMask = "999999", ; Column3.Name = "Column3", ; Column3.Width = 71, ; Column4.ColumnOrder = 3, ; Column4.ControlSource = "nume", ; Column4.FontName = "Arial Narrow", ; Column4.Name = "Column4", ; Column4.Width = 100, ; Column5.ControlSource = "data_fact", ; Column5.FontName = "Arial Narrow", ; Column5.Name = "Column5", ; Column5.Width = 72, ; Column6.ControlSource = "data_scad", ; Column6.FontName = "Arial Narrow", ; Column6.Name = "Column6", ; Column6.Width = 69, ; Column7.ControlSource = "valftva", ; Column7.FontName = "Arial Narrow", ; Column7.Format = "rk", ; Column7.InputMask = (get_mask(15,gnPA)), ; Column7.Name = "Column7", ; Column7.Width = 100, ; Column8.ControlSource = "valtva", ; Column8.FontName = "Arial Narrow", ; Column8.Format = "rk", ; Column8.InputMask = (get_mask(15,gnPA)), ; Column8.Name = "Column8", ; Column8.Width = 89, ; Column9.ControlSource = "valctva", ; Column9.FontName = "Arial Narrow", ; Column9.Format = "rk", ; Column9.InputMask = (get_mask(15,gnPA)), ; Column9.Name = "Column9", ; Column10.ControlSource = "nume_val", ; Column10.FontName = "Arial Narrow", ; Column10.Name = "Column10", ; Column10.Width = 62, ; Column11.ControlSource = "curs", ; Column11.FontName = "Arial Narrow", ; Column11.Format = "rk", ; Column11.InputMask = (get_mask(8,gnPCurs)), ; Column11.Name = "Column11", ; Column11.Width = 43, ; Column12.ControlSource = "valval", ; Column12.FontName = "Arial Narrow", ; Column12.Format = "rk", ; Column12.InputMask = (get_mask(15,gnPA)), ; Column12.Name = "Column12", ; Column12.Width = 121, ; Column13.ControlSource = "tvaval", ; Column13.FontName = "Arial Narrow", ; Column13.Format = "rk", ; Column13.InputMask = (get_mask(15,gnPA)), ; Column13.Name = "Column13", ; Column13.Width = 99, ; Column14.ControlSource = "totval", ; Column14.FontName = "Arial Narrow", ; Column14.Format = "rk", ; Column14.InputMask = (get_mask(15,gnPA)), ; Column14.Name = "Column14", ; Column14.Width = 103, ; Column15.ControlSource = "cod", ; Column15.FontName = "Arial Narrow", ; Column15.Name = "Column15", ; Column15.Width = 59 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grid_facturi.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. crt.", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column10.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nume valuta", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column10.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column11.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column11.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column12.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta fara TVA", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column12.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column13.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta TVA", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column13.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column14.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta totala", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column14.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column15.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column15.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. factura", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. contract", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nume", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column4.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data facturii", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column5.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column6.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data scadentei", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column6.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column7.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare lei fara TVA", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column8.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare lei TVA", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column8.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grid_facturi.Column9.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare lei totala", ; FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_facturi.Column9.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Label1' AS label WITH ; Anchor = 12, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare lei fără TVA", ; FontCharSet = 238, ; FontName = "Arial Narrow", ; Height = 18, ; Left = 439, ; Name = "Label1", ; Top = 504, ; Width = 86, ; ZOrderSet = 13 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; Anchor = 12, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare lei TVA", ; FontName = "Arial Narrow", ; Height = 18, ; Left = 568, ; Name = "Label2", ; Top = 504, ; Width = 68, ; ZOrderSet = 14 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Anchor = 12, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Valoare lei cu TVA", ; FontName = "Arial Narrow", ; Height = 18, ; Left = 663, ; Name = "Label3", ; Top = 504, ; Width = 84, ; ZOrderSet = 15 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label4' AS label WITH ; Anchor = 12, ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Total sume", ; FontBold = .T., ; FontName = "Arial Narrow", ; Height = 18, ; Left = 358, ; Name = "Label4", ; Top = 522, ; Width = 54, ; ZOrderSet = 19 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Shape1' AS shape WITH ; Anchor = 12, ; BackStyle = 0, ; Height = 43, ; Left = 354, ; Name = "Shape1", ; SpecialEffect = 0, ; Style = 0, ; Top = 504, ; Width = 399, ; ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> ADD OBJECT 'txtValctva' AS textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValctva", ; FontName = "Arial Narrow", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(15,gnPA)), ; Left = 639, ; Name = "txtValctva", ; Top = 520, ; Width = 108, ; ZOrderSet = 18 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValftva' AS textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValftva", ; FontName = "Arial Narrow", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(15,gnPA)), ; Left = 417, ; Name = "txtValftva", ; Top = 520, ; Width = 108, ; ZOrderSet = 16 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtValtva' AS textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValtva", ; FontName = "Arial Narrow", ; Format = "rk", ; Height = 23, ; InputMask = (get_mask(15,gnPA)), ; Left = 528, ; Name = "txtValtva", ; Top = 520, ; Width = 108, ; ZOrderSet = 17 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Activate THISFORM.WindowState = 2 ENDPROC PROCEDURE actualizeaza_grid1 LPARAMETERS pcFiltru LOCAL lcFiltru lcFiltru = pcFiltru IF EMPTY(lcFiltru) lcFiltru = pofacturi.ca_baza1.cfiltru ENDIF *lcOrder = This.corderby + " " + This.Casc save_grid_tag(thisform.grid_facturi) pofacturi.ca_baza1.cfiltru = lcFiltru *pofacturi.ca_baza1.corder = lcOrder pofacturi.ca_baza1.afisare() restore_grid_tag(thisform.grid_facturi) If Thisform.ck_perioada.Value=1 With Thisform.ck_perioada If .cvaloare1=Thisform.ck_perioada.cvaloare2 Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; " "+.cvaloare1 Else Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; " "+.cvaloare1+" - "+.cvaloare2 Endif Endwith Else Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; " "+Padl(Alltrim(Str(gnluna)),2,"0")+"/"+Alltrim(Str(gnAn)) ENDIF IF RECCOUNT('tFacturi')>0 thisform.grid_facturi.SetFocus() ENDIF ENDPROC PROCEDURE afisactual LOCAL lcTabel lcTabel = thisform.grid_facturi.RecordSource SELECT (lcTabel) CALCULATE SUM(NVL(valftva,0)), SUM(NVL(valtva,0)), SUM(NVL(valctva,0)) TO thisform.nValftva, thisform.nValtva, thisform.nValctva thisform.txtValftva.Refresh thisform.txtValtva.Refresh thisform.txtValctva.Refresh ENDPROC PROCEDURE do_cauta LOCAL lcFiltru lcFiltru = "" If This.ck_nume.Value = 1 lcFiltru = lcFiltru + Thisform.ck_nume.filtru ENDIF IF this.ck_nr_fact.Value = 1 lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru ENDIF IF this.ck_data_fact.Value = 1 lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru ENDIF * perioada If thisform.ck_perioada.Value=1 lcFiltru = lcFiltru + thisform.ck_perioada.filtru ELSE lcFiltru = lcFiltru + [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) ENDIF lcFiltru = SUBSTR(lcFiltru,6) *!* If llIstoric *!* this.lb_titlu_alb_b121.Caption = "Istoric facturi" *!* Else *!* this.lb_titlu_alb_b121.Caption = "Facturi" *!* Endif Thisform.actualizeaza_grid1(lcFiltru) thisform.afisactual Thisform.grid_facturi.SetFocus() ENDPROC PROCEDURE do_listfact *!* Thisform.AlwaysOnTop=.F. *!* Local lcTabel, lnid_Fact *!* lcTabel = Thisform.grid_facturi.RecordSource *!* Select (lcTabel) *!* If This.lProforme *!* If !Eof() *!* lnid_proforma = id_proforma *!* Do listfactura With lnid_proforma, This.lProforme In oproceduri_roacontracte.prg *!* Endif *!* Else *!* If !Eof() *!* lnid_Fact = id_fact *!* Do listfactura With lnid_Fact In oproceduri_roacontracte.prg *!* Endif *!* Endif *!* Thisform.AlwaysOnTop=.T. ENDPROC PROCEDURE do_reset thisform.ck_nume.Value = 0 thisform.ck_nr_fact.Value = 0 thisform.ck_data_fact.Value = 0 WITH thisform.ck_perioada .filtru=[ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) .luna=PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn)) .cvaloare1=.luna .cvaloare2=.luna .value = 1 ENDWITH thisform.Refresh() ENDPROC PROCEDURE inainte_de_do_listare thisform.AlwaysOnTop = .F. PRIVATE pcDataOra, pcTitlu pcDataOra = get_ora(2) pcTitlu = "Facturi" LOCAL lcTabel lcTabel = thisform.grid_facturi.RecordSource SELECT (lcTabel) REPORT FORM rFacturi TO PRINTER PROMPT PREVIEW thisform.AlwaysOnTop = .T. ENDPROC PROCEDURE inainte_de_do_sterge Local lcTabel lcTabel = Thisform.grid_facturi.RecordSource Select (lcTabel) If This.lProforme lnRaspuns = amessage('Doriti sa stergeti proforma?',4+32,_Screen.Caption) If lnRaspuns = 7 && 7 = No ; 6 = Yes Return ENDIF lnId_proforma = id_proforma lcSel = [{call pack_crm.sterg_proforma(']+gcS+[',]+Alltrim(Str(lnId_proforma))+[,]+Alltrim(Str(gnIdUtil))+[)}] lnSucces = goExecutor.oExecute(lcSel) If lnSucces < 0 Messagebox('Call pack_crm.sterg_proforma' + Chr(13) + goExecutor.cEroare,0+16,"Eroare") Return Endif Else lnId_fact = id_fact lnAn = an lnLuna = luna ***--------- Private poActactan Store '' To poActactan Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza lcSchema1 = [''] lcSelect1 = [select * from ] + gcS + [.act fe where 1=2] lcOrder1 = [] lcFiltru1 = [id_fact=]+Alltrim(Str(lnId_fact))+[ and an=]+Alltrim(Str(lnAn))+ [ and luna=]+Alltrim(Str(lnLuna)) llAfiseaza = .F. gencursor('poActactan','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) poActactan.ca_baza1.afisare() Select * From cIntermediar Into Cursor actactan Readwrite Release poActactan ***--------- lnRaspuns = amessage('Doriti sa stergeti factura?',4+32,_Screen.Caption) If lnRaspuns = 7 && 7 = No ; 6 = Yes Return Endif llRul = .F. Select actactan lnSucces = OSCRIE_IN_FISIERE(2,.F.,llRul) lcSel = [{call pack_crm.sterg_factura(']+gcS+[',]+Alltrim(Str(lnId_fact))+[,]+Alltrim(Str(gnIdUtil))+[)}] lnSucces = goExecutor.oExecute(lcSel) If lnSucces < 0 Messagebox('Call pack_crm.sterg_factura' + Chr(13) + goExecutor.cEroare,0+16,"Eroare") Return Endif Endif thisform.afisactual Thisform.actualizeaza_grid1() ENDPROC PROCEDURE Init PARAMETERS tlProforme DODEFAULT() this.lProforme = tlProforme IF this.lProforme this.lb_titlu_alb_b121.Caption = "PROFORME * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn)) else this.lb_titlu_alb_b121.Caption = "FACTURI * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn)) ENDIF ENDPROC PROCEDURE Show Lparameters nStyle With This.ck_perioada .filtru=[ AND LUNA=]+Alltrim(Str(gnluna))+[ AND AN=]+Alltrim(Str(gnan)) .luna=Padl(Alltrim(Str(gnluna)),2,'0')+"/"+Alltrim(Str(gnan)) .cvaloare1=.luna .cvaloare2=.luna .Value = 1 Endwith ENDPROC ENDDEFINE DEFINE CLASS text AS _frmbase OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> * BorderStyle = 3 DoCreate = .T. Height = 91 Name = "text" Width = 372 _shape1.Name = "_shape1" _shape2.Height = 29 _shape2.Left = 342 _shape2.Name = "_shape2" _shape2.Top = 0 _shape2.Width = 31 Lb_titlu_alb_b121.Caption = "" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Name = "BUT_TERMIN1" Gridsort1.Name = "Gridsort1" * ADD OBJECT 'Image1' AS image WITH ; Height = 32, ; Left = 12, ; Name = "Image1", ; Picture = ..\grafice\exclam1.ico, ; Top = 40, ; Width = 32 *< END OBJECT: BaseClass="image" /> ADD OBJECT 'Label2' AS label WITH ; Alignment = 2, ; BackStyle = 0, ; Caption = "Label2", ; Height = 17, ; Left = 60, ; Name = "Label2", ; Top = 40, ; Width = 299 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Alignment = 2, ; BackStyle = 0, ; Caption = "Label3", ; Height = 17, ; Left = 60, ; Name = "Label3", ; Top = 65, ; Width = 299 *< END OBJECT: BaseClass="label" /> ENDDEFINE