*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="oacnpro.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * DEFINE CLASS frm_calcul_cheiaj 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="Grid2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cArticol.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CTARIF.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CTARIF.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CVALVAL.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CVALVAL.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CNUMEVALUTA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CNUMEVALUTA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CNUMEVALUTA.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CDATAI.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CDATAI.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CDATAP.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.CDATAP.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDurata.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDurata.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cCant.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cCant.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIndicativ.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIndicativ.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cAles.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cAles.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDana.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDana.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.CTRN.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.CTRN.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.CLBD.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.CLBD.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.CHP.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.CHP.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.ctipvas.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.ctipvas.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIndicativ.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIndicativ.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTcap.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTcap.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLung.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLung.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cRptId.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cRptId.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDatai.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDatai.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDatap.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDatap.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDeclcdt.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDeclcdt.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdPrestatii" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkIntern" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdCalcul" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkStornare" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValFinala" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValConvoi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_client" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtBeneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_beneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDocument" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> * *m: do_calcul_tarife *m: do_cauta_partener *m: do_executa2 *m: do_genereaza_prestatii *m: getcontracteclient *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: cdocument *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: ncapacitateclient *p: ncapacitatetotal *p: neagent *p: nidbeneficiar *p: nidclient *p: nidcontractclient *p: nidlocatia *p: nintern *p: ntiprecap && 0 = recapitulatie standard, 1 = fara recapitulatie pentru ca valoarea totala a fost suprascrisa de utilizaotr * * BorderStyle = 3 ccontractclient = cdenumirebeneficiar = cdenumireclient = cdocument = cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 DoCreate = .T. Height = 468 Name = "frm_calcul_cheiaj" ncapacitateclient = 0 ncapacitatetotal = 0 neagent = 0 nidbeneficiar = 0 nidclient = 0 nidcontractclient = 0 nidlocatia = 0 nintern = 1 ntiprecap = 0 Width = 779 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Calcul Cheiaj" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 15 BUT_TERMIN1.Anchor = 8 BUT_TERMIN1.Enabled = .F. BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 5 BUT_TERMIN1.Top = 0 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 416 * ADD OBJECT '_label1' AS _label WITH ; Caption = "Document:", ; FontBold = .T., ; Left = 15, ; Name = "_label1", ; TabIndex = 25, ; TabStop = .F., ; Top = 97 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label2' AS _label WITH ; Anchor = 12, ; Caption = "Valoare finala", ; FontBold = .T., ; Left = 533, ; Name = "_label2", ; TabIndex = 16, ; Top = 408 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label3' AS _label WITH ; Anchor = 12, ; Caption = "Valoare cheiaj", ; FontBold = .T., ; Left = 672, ; Name = "_label3", ; TabIndex = 17, ; Top = 408 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label5' AS _label WITH ; Caption = "Beneficiar:", ; FontBold = .T., ; Left = 15, ; Name = "_label5", ; TabIndex = 24, ; TabStop = .F., ; Top = 70 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'but_cautare_beneficiar' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'beneficiar', ; Enabled = .F., ; Left = 385, ; Name = "but_cautare_beneficiar", ; TabIndex = 10, ; TabStop = .F., ; Top = 64 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'but_cautare_client' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'client', ; Enabled = .F., ; Left = 385, ; Name = "but_cautare_client", ; TabIndex = 8, ; TabStop = .F., ; Top = 36 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou2' AS but_nou WITH ; Anchor = 12, ; Left = 706, ; Name = "But_nou2", ; TabIndex = 21, ; Top = 225 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 8, ; Left = 718, ; Name = "But_renunt1", ; TabIndex = 6, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge2' AS but_sterge WITH ; Anchor = 12, ; caction = do_sterge, ; Left = 734, ; Name = "But_sterge2", ; TabIndex = 23, ; Top = 225, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'cboContract' AS _combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "thisform.nIdContractClient", ; Enabled = .F., ; Height = 24, ; Left = 485, ; Name = "cboContract", ; ReadOnly = .F., ; RowSource = "select crsContracte.numar as contract, id_ctr, nr_zile_scadenta, tip_curs from crsContracte into cursor crsContracteZ", ; RowSourceType = 3, ; TabIndex = 9, ; TabStop = .F., ; Top = 38, ; Width = 175 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'chkIntern' AS _checkbox WITH ; Alignment = 1, ; Caption = "Intern:", ; ControlSource = "thisform.nIntern", ; Enabled = .F., ; FontBold = .T., ; Left = 666, ; Name = "chkIntern", ; TabIndex = 13, ; TabStop = .F., ; Top = 39 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'chkStornare' AS _checkbox WITH ; Alignment = 1, ; Anchor = 8, ; Caption = "Stornare", ; ControlSource = "", ; Enabled = .T., ; FontBold = .T., ; ForeColor = 255,0,0, ; Left = 396, ; Name = "chkStornare", ; TabIndex = 11, ; TabStop = .F., ; ToolTipText = "Cantitatea si valoarea fiecarei nave va avea semn negativ", ; Top = 69, ; Value = 0 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'cmdCalcul' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .T., ; caction = do_calcul_tarife, ; Caption = "2. \ ADD OBJECT 'cmdPrestatii' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .T., ; caction = do_genereaza_prestatii, ; Caption = "1. \ ADD OBJECT 'Grid1' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 14, ; DeleteMark = .F., ; FontName = "Arial", ; FontSize = 10, ; Height = 93, ; Left = 12, ; Name = "Grid1", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsBerthings", ; RowHeight = 19, ; TabIndex = 2, ; Top = 120, ; Width = 756, ; Column1.BackColor = 205,230,255, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "ales", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cAles", ; Column1.ReadOnly = .F., ; Column1.Sparse = .F., ; Column1.Width = 28, ; Column2.BackColor = 205,230,255, ; Column2.Bound = .F., ; Column2.ColumnOrder = 7, ; Column2.ControlSource = "Iif(Seek(crsBerthings.dana_id,'crsDane','id'),crsDane.dana,'')", ; Column2.CurrentControl = "Combo1", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cDana", ; Column2.ReadOnly = .F., ; Column2.Sparse = .F., ; Column2.Width = 122, ; Column3.BackColor = 205,230,255, ; Column3.ColumnOrder = 9, ; Column3.ControlSource = "trn", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "CTRN", ; Column3.ReadOnly = .F., ; Column3.Sparse = .F., ; Column3.Width = 58, ; Column4.BackColor = 205,230,255, ; Column4.ColumnOrder = 10, ; Column4.ControlSource = "lbd", ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Name = "CLBD", ; Column4.ReadOnly = .F., ; Column4.Sparse = .F., ; Column4.Width = 57, ; Column5.BackColor = 205,230,255, ; Column5.ColumnOrder = 11, ; Column5.ControlSource = "hp", ; Column5.FontName = "Arial", ; Column5.FontSize = 10, ; Column5.Name = "CHP", ; Column5.ReadOnly = .F., ; Column5.Sparse = .F., ; Column5.Width = 59, ; Column6.BackColor = 205,230,255, ; Column6.Bound = .F., ; Column6.ColumnOrder = 6, ; Column6.ControlSource = "Iif(Seek(crsBerthings.tipn_id,'crsAramisTipNave','id'),crsAramisTipNave.nume,'')", ; Column6.FontName = "Arial", ; Column6.FontSize = 10, ; Column6.Name = "ctipvas", ; Column6.ReadOnly = .F., ; Column6.Sparse = .F., ; Column6.Width = 228, ; Column7.Bound = .T., ; Column7.ColumnOrder = 3, ; Column7.ControlSource = "nava", ; Column7.FontName = "Arial", ; Column7.FontSize = 10, ; Column7.Name = "cIndicativ", ; Column7.ReadOnly = .F., ; Column7.Sparse = .F., ; Column7.Width = 97, ; Column8.BackColor = 205,230,255, ; Column8.ColumnOrder = 8, ; Column8.ControlSource = "cap", ; Column8.FontName = "Arial", ; Column8.FontSize = 10, ; Column8.Name = "cTcap", ; Column8.ReadOnly = .F., ; Column8.Sparse = .F., ; Column8.Width = 58, ; Column9.BackColor = 205,230,255, ; Column9.ColumnOrder = 12, ; Column9.ControlSource = "LUNG", ; Column9.FontName = "Arial", ; Column9.FontSize = 10, ; Column9.Name = "cLung", ; Column9.ReadOnly = .F., ; Column9.Sparse = .F., ; Column9.Width = 56, ; Column10.BackColor = 205,230,255, ; Column10.Bound = .F., ; Column10.ColumnOrder = 5, ; Column10.ControlSource = "Iif(Seek(crsBerthings.id_locatia,'crsLocatii','id'),crsLocatii.denumire,'')", ; Column10.CurrentControl = "Combo1", ; Column10.FontName = "Arial", ; Column10.FontSize = 10, ; Column10.Name = "cLocatia", ; Column10.ReadOnly = .F., ; Column10.Sparse = .F., ; Column10.Width = 130, ; Column11.ColumnOrder = 4, ; Column11.ControlSource = "rpt_name", ; Column11.FontName = "Arial", ; Column11.FontSize = 10, ; Column11.Name = "cRptId", ; Column11.ReadOnly = .F., ; Column12.BackColor = 205,230,255, ; Column12.ColumnOrder = 13, ; Column12.ControlSource = "datai", ; Column12.FontName = "Arial", ; Column12.FontSize = 10, ; Column12.Name = "cDatai", ; Column12.ReadOnly = .F., ; Column12.Width = 153, ; Column13.BackColor = 205,230,255, ; Column13.ColumnOrder = 14, ; Column13.ControlSource = "datap", ; Column13.FontName = "Arial", ; Column13.FontSize = 10, ; Column13.Name = "cDatap", ; Column13.ReadOnly = .F., ; Column13.Width = 140, ; Column14.ColumnOrder = 2, ; Column14.ControlSource = "declaratio", ; Column14.FontName = "Arial", ; Column14.FontSize = 10, ; Column14.Name = "cDeclcdt", ; Column14.ReadOnly = .T. *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid1.cAles.Check1' AS checkbox WITH ; Alignment = 0, ; BackColor = 205,230,255, ; Caption = "", ; FontName = "Arial", ; FontSize = 10, ; Height = 17, ; Left = 6, ; Name = "Check1", ; ReadOnly = .F., ; Top = 60, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'Grid1.cAles.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ales", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDana.Combo1' AS combobox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsBerthings.dana_id", ; FontName = "Arial", ; FontSize = 10, ; Height = 10, ; Left = 66, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsDane.dana, id from crsDane into cursor crsDaneX order by id", ; RowSourceType = 3, ; SpecialEffect = 1, ; Style = 2, ; Top = 47, ; Width = 10 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cDana.Header1' AS header WITH ; Alignment = 2, ; Caption = "Dana", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDatai.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data si ora intrare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDatai.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid1.cDatap.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data si ora plecare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDatap.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid1.cDeclcdt.Header1' AS header WITH ; Alignment = 2, ; Caption = "Declaratia", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDeclcdt.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.CHP.Header1' AS header WITH ; Alignment = 2, ; Caption = "HP", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.CHP.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid1.cIndicativ.Header1' AS header WITH ; Alignment = 2, ; Caption = "Indicativ", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cIndicativ.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 'Grid1.CLBD.Header1' AS header WITH ; Alignment = 2, ; Caption = "LBD", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.CLBD.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid1.cLocatia.Combo1' AS combobox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsBerthings.id_locatia", ; FontName = "Arial", ; FontSize = 10, ; Height = 24, ; Left = 80, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsLocatii.denumire, id from crsLocatii into cursor crsLocatiiX1 order by denumire", ; RowSourceType = 3, ; Style = 2, ; Top = 58, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cLocatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Locatia", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cLocatia.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 'Grid1.cLung.Header1' AS header WITH ; Alignment = 2, ; Caption = "Lung.", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cLung.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid1.cRptId.Header1' AS header WITH ; Alignment = 2, ; Caption = "Punct ruta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cRptId.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 'Grid1.cTcap.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cap.", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cTcap.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid1.ctipvas.Combo1' AS combobox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsBerthings.tipn_id", ; FontName = "Arial", ; FontSize = 10, ; Height = 24, ; Left = 28, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsAramisTipNave.nume, id from crsAramisTipNave into cursor crsAramisTipNaveX order by nume", ; RowSourceType = 3, ; SpecialEffect = 1, ; Style = 2, ; Top = 83, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.ctipvas.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip vas", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.CTRN.Header1' AS header WITH ; Alignment = 2, ; Caption = "TRN", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.CTRN.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid2' AS _grdbase WITH ; Anchor = 14, ; ColumnCount = 9, ; DeleteMark = .F., ; FontName = "Arial", ; FontSize = 10, ; Height = 147, ; Left = 12, ; Name = "Grid2", ; Panel = 1, ; ReadOnly = .F., ; RecordSource = "crsBerthingDetails", ; RowHeight = 19, ; TabIndex = 7, ; Top = 256, ; Width = 756, ; ZOrderSet = 4, ; Column1.BackColor = 205,230,255, ; Column1.Bound = .F., ; Column1.ColumnOrder = 4, ; Column1.ControlSource = "Iif(Seek(crsBerthingDetails.id_articol,'crsArticole','id_articol'),crsArticole.denumire,'')", ; Column1.CurrentControl = "Combo1", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cArticol", ; Column1.ReadOnly = .F., ; Column1.Sparse = .F., ; Column1.Width = 260, ; Column2.ColumnOrder = 5, ; Column2.ControlSource = "tarif", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "CTARIF", ; Column2.ReadOnly = .T., ; Column2.Width = 69, ; Column3.ColumnOrder = 6, ; Column3.ControlSource = "valval", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "CVALVAL", ; Column3.ReadOnly = .T., ; Column3.Width = 85, ; Column4.Bound = .F., ; Column4.ColumnOrder = 7, ; Column4.ControlSource = "Iif(Seek(crsBerthingDetails.id_valuta,'crsValute','id_valuta'),crsValute.nume_val,'')", ; Column4.CurrentControl = "Combo1", ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Name = "CNUMEVALUTA", ; Column4.ReadOnly = .F., ; Column4.Sparse = .T., ; Column4.Width = 73, ; Column5.BackColor = 205,230,255, ; Column5.ColumnOrder = 2, ; Column5.ControlSource = "datai", ; Column5.FontName = "Arial", ; Column5.FontSize = 10, ; Column5.Name = "CDATAI", ; Column5.ReadOnly = .F., ; Column5.Width = 102, ; Column6.BackColor = 205,230,255, ; Column6.ColumnOrder = 3, ; Column6.ControlSource = "datap", ; Column6.FontName = "Arial", ; Column6.FontSize = 10, ; Column6.Name = "CDATAP", ; Column6.ReadOnly = .F., ; Column6.Width = 108, ; Column7.ColumnOrder = 8, ; Column7.ControlSource = "durata", ; Column7.FontName = "Arial", ; Column7.FontSize = 10, ; Column7.Name = "cDurata", ; Column7.ReadOnly = .F., ; Column7.Width = 66, ; Column8.ColumnOrder = 9, ; Column8.ControlSource = "cant", ; Column8.FontName = "Arial", ; Column8.FontSize = 10, ; Column8.Name = "cCant", ; Column8.ReadOnly = .F., ; Column8.Width = 53, ; Column9.ColumnOrder = 1, ; Column9.ControlSource = "nava", ; Column9.FontName = "Arial", ; Column9.FontSize = 10, ; Column9.Name = "cIndicativ", ; Column9.ReadOnly = .T., ; Column9.Width = 112 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid2.cArticol.Combo1' AS combobox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ColumnCount = 2, ; ColumnLines = .F., ; ColumnWidths = "250,0", ; ControlSource = "crsBerthingDetails.id_articol", ; FontName = "Arial", ; FontSize = 10, ; Height = 24, ; Left = 32, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsArticole.denumire, id_articol from crsArticole into cursor crsArticoleX1 order by denumire", ; RowSourceType = 3, ; SpecialEffect = 1, ; Style = 2, ; Top = 43, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid2.cArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Prestatie", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cCant.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cCant.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 'Grid2.CDATAI.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data si ora intrare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.CDATAI.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid2.CDATAP.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data si ora plecare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.CDATAP.Text1' AS textbox WITH ; BackColor = 205,230,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 'Grid2.cDurata.Header1' AS header WITH ; Alignment = 2, ; Caption = "Durata", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cDurata.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 'Grid2.cIndicativ.Header1' AS header WITH ; Alignment = 2, ; Caption = "Indicativ", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cIndicativ.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.CNUMEVALUTA.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsBerthingDetails.id_valuta", ; FontName = "Arial", ; FontSize = 10, ; Height = 24, ; Left = 18, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select nume_val, id_valuta from crsValute order by nume_val into cursor crsValuteX1", ; RowSourceType = 3, ; Style = 2, ; Top = 46, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid2.CNUMEVALUTA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.CNUMEVALUTA.Text1' AS textbox WITH ; Alignment = 3, ; 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 'Grid2.CTARIF.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tarif/UM", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.CTARIF.Text1' AS textbox WITH ; FontName = "Arial", ; FontSize = 10, ; Height = 23, ; Left = 39, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255, ; Top = 43, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.CVALVAL.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.CVALVAL.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.Grid1, ; Left = 493, ; Name = "Gridextra1", ; productname = ROA, ; Top = 179 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Gridextra2' AS gridextra WITH ; gridexpression = Thisform.Grid2, ; Left = 514, ; Name = "Gridextra2", ; productname = ROA, ; Top = 350 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'lblClient' AS _label WITH ; Caption = "Platitor/Agent:", ; FontBold = .T., ; Left = 15, ; Name = "lblClient", ; TabIndex = 19, ; TabStop = .F., ; Top = 42 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'lblContract' AS _label WITH ; Caption = "Contract:", ; FontBold = .T., ; Left = 422, ; Name = "lblContract", ; TabIndex = 20, ; TabStop = .F., ; Top = 42 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'txtBeneficiar' AS _textbox WITH ; ControlSource = "thisform.cDenumireBeneficiar", ; Enabled = .F., ; Height = 23, ; Left = 110, ; Name = "txtBeneficiar", ; ReadOnly = .T., ; TabIndex = 22, ; TabStop = .F., ; Top = 67, ; Width = 272 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtClient' AS _textbox WITH ; ControlSource = "thisform.cDenumireClient", ; Enabled = .F., ; Height = 23, ; Left = 110, ; Name = "txtClient", ; ReadOnly = .T., ; TabIndex = 18, ; TabStop = .F., ; Top = 39, ; Width = 272 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtDocument' AS _textbox WITH ; BackColor = 205,230,255, ; ControlSource = "thisform.cDocument", ; Enabled = .T., ; Format = "!K", ; Height = 23, ; Left = 110, ; Name = "txtDocument", ; ReadOnly = .F., ; TabIndex = 1, ; TabStop = .F., ; Top = 94, ; Width = 274 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValConvoi' AS _textbox WITH ; Anchor = 12, ; ControlSource = "THISFORM.CVALOARE_CONVOI", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnPVal)), ; Left = 653, ; Name = "txtValConvoi", ; TabIndex = 14, ; Top = 431, ; Width = 115 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValFinala' AS _textbox WITH ; Anchor = 12, ; BackColor = 205,230,255, ; ControlSource = "THISFORM.CVALOARE_FINALA", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnPVal)), ; Left = 510, ; Name = "txtValFinala", ; TabIndex = 12, ; ToolTipText = "Valoarea finala va suprascrie valoarea calculata pe baza tarifului. Daca valoarea finala este negativa, se considera ca se doreste stornarea valorii.", ; Top = 432, ; Width = 115 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE do_adauga SELECT crsBerthingDetails APPEND BLANK this.grid2.SetFocus() ENDPROC PROCEDURE do_calcul_tarife *!* 10.01.2020 *!* daca UM tarif este "ZI", cantitatea este 1 in loc de TC/TRN/LBD/CP *!* serveste la cheiaj iernat 150 euro/luna sau 5 EUR/zi * Calcul valoare convoi Local lcBtsId, lcVesId, lcConditie, lcConditie2, lcUM, ldDataP, ldDatai, llAreBaza, llBaza, llEagent Local llFound, llPlus, llStornare, lllZile, llimsupbaza, lnCant, lnCap, lnClientCtrId, lnClientCtrId2 Local lnClientId, lnCorect, lnDurata, lnDurata1, lnHp, lnIdArticol, lnIdValuta, lnIntern, lnLbd Local lnLimInf, lnLung, lnStornoSemn, lnTarifId, lnTarifTotal, lnTrn, lplus LOCAL lnValVal, llZile, lcWhereCond, lnValoareConvoi, lnValoareFinala lnClientId = This.nIdClient lnClientCtrId = This.nIdContractClient If Empty(m.lnClientId) And Empty(m.lnClientCtrId) AMESSAGEBOX('Alegeti un client si/sau un contract!', 0 + 48, _Screen.Caption) Return Endif SET STEP ON lnClientCtrId2 = get_ctr_id_fara_contract() lnIntern = This.nIntern llEagent = (This.nEAgent = 1) Do make_tarife_cheiaj_contract With m.lnClientCtrId, m.lnClientCtrId2 && crsTarifeDiverseContract llStornare = (This.chkStornare.Value = 1) lnStornoSemn = Iif(m.llStornare, -1, 1) lnValoareFinala = This.cValoare_finala Select crsBerthingDetails Scan lnIdArticol = id_articol lcBtsId = bts_id lcVesId = ves_id ldDataP = datap ldDatai = datai lnDurata1 = Round((m.ldDataP - m.ldDatai) / 3600, 3) && -->durata in ore lnDurata = m.lnDurata1 lnCap = 0 lnTrn = 0 lnLbd = 0 lnHp = 0 lnLung = 0 Sele crsBerthings Loca For Id = m.lcBtsId and ves_id = m.lcVesId If Found() lnCap = cap lnTrn = trn lnLbd = lbd lnHp = hp lnLung = lung Endif lcConditie = " ctr_id= " + Allt(Str(lnClientCtrId)) + " and id_articol= " + Allt(Str(lnIdArticol)) + " and lim1*corect< " + Allt(Str(lnDurata1, 20, 3)) + " and lim2*corect>= " + Allt(Str(lnDurata1, 20, 3)) + " and intern=" + Alltrim(Str(m.lnIntern)) lcConditie2 = " ctr_id = " + Transform(lnClientCtrId2) + " and id_articol= " + Allt(Str(lnIdArticol)) + " and lim1*corect< " + Allt(Str(lnDurata1, 20, 3)) + " and lim2*corect>= " + Allt(Str(lnDurata1, 20, 3)) + " and intern=" + Alltrim(Str(m.lnIntern)) llFound = .T. Select crsTarifeDiverseContract Loca For &lcConditie If !Found() llFound = .F. * CAUT TARIFUL PENTRU CONTRACTUL GENERAL Select crsTarifeDiverseContract Loca For &lcConditie2 If !Found() AMESSAGEBOX('Nu exista tariful pentru aceasta prestatie. Alegeti alta prestatie!',0+48,_screen.Caption) Sele crsBerthingDetails Repl cant With 0, durata With 0, valval With 0, id_valuta With Null, TARIF With 0 Thisform.GRID2.Refresh Exit Else llFound = .T. lnClientCtrId = m.lnClientCtrId2 Endif Endif If !m.llFound Exit Endif * sunt pe linia cu tariful lplus = .F. Select crsTarifeDiverseContract lnCorect = corect llAreBaza = (arebaza = 1) llBaza = (baza = 1) lnTarifId = Id lnLimInf = lim1 lnIdValuta = id_valuta llPlus = (plus = 1) && DACA TREBUIE ROTUNJIT IN PLUS DURATA (NR ZILE INCEPUT = NR ZILE FACTURAT) lnTarifTotal = tarif lnDurata = lnDurata / lnCorect && TRANSFORM DURATA DIN ORE IN UNITATEA DE MASURA (ORE SAU ZILE) If m.llPlus && ROTUNJESC DURATA DACA ESTE NEVOIE lnDurata = Ceiling(lnDurata) Endif lcUM = Uppe(Allt(UM)) llZile = .F. lnCant = 0 Do Case Case Uppe(Allt(lcUM)) = 'ZI' && cheiaj iernat are tariful pe ZI, nu TC/ZI lnCant = 1 Case 'TC' $ Uppe(Allt(lcUM)) lnCant = lnCap Case 'TRN' $ Uppe(Allt(lcUM)) lnCant = lnTrn Case 'ML' $ Uppe(Allt(lcUM)) lnCant = lnLung Case 'CP' $ Uppe(Allt(lcUM)) OR 'HP' $ Uppe(Allt(lcUM)) lnCant = lnHp Case 'LBP' $ Uppe(Allt(lcUM)) OR 'LBD' $ Uppe(Allt(lcUM)) lnCant = lnLbd Otherwise AMESSAGEBOX('Cazul ' + m.lcUM + ' nu este tratat! Sunati la suportul tehnic.', 0 + 48, _Screen.Caption) Endcase If "ZI" $ Uppe(Allt(lcUM)) llZile = .T. && PENTRU INMULTIREA SI CU NUMARUL DE ZILE DACA ESTE NEVOIE Endif *----------------------------------------------------------------- lnValVal = 0 If m.llAreBaza lcWhereCond = "lim2<=" + Allt(Str(m.lnLimInf)) + " and BAZA = 1 AND ID <>" + Allt(Str(lnTarifId)) + " AND ctr_id=" + Allt(Str(lnClientCtrId)) + " and id_articol= " + Allt(Str(lnIdArticol)) + " and intern=" + lnIntern llimsupbaza = 0 Sele * From crsTarifeDiverseContract Where &lcWhereCond Into Cursor TBAZA Order By lim1 Sele TBAZA Scan If "ZI" $ Uppe(Allt(UM)) lllZile = .T. Else lllZile = .F. Endif lnValVal = lnValVal + tarif * lnCant * Iif(lllZile, (lim2 - lim1), 1) llimsupbaza = lim2 Endscan Use In TBAZA Sele crsTarifeDiverseContract Loca For Id = lnTarifId lnValVal = lnValVal + tarif * lnCant * Iif(llZile, (lnDurata - llimsupbaza), 1) Else lnValVal = crsTarifeDiverseContract.tarif * lnCant * Iif(llZile, lnDurata, 1) Endif lnValVal = ROUND(lnValVal, m.gnPVal) Sele crsBerthingDetails Repl cant With m.lnStornoSemn * lnCant, durata With lnDurata, valval With m.lnStornoSemn * lnValVal, id_valuta With lnIdValuta, TARIF With lnTarifTotal, um WITH m.lcUM Select crsBerthingDetails Endscan && crsBerthingDetails Calculate Sum(valval) To lnValoareConvoi In crsBerthingDetails If m.lnValoareFinala <> 0 AND m.lnValoareConvoi <> m.lnValoareFinala * valoarea finala = valoarea scrisa cu mana de utilizator Sele crsBerthingDetails Replace All valval With Round(m.lnValoareFinala * valval / m.lnValoareConvoi, m.gnPVal) REPLACE ALL cant With ROUND(valval / tarif, 2) * diferenta dintre suma calculata si valoarea finala o pun pe primul rand Calculate Sum(valval) To lnValoareConvoi In crsBerthingDetails GO TOP Replace valval With valval + (m.lnValoareFinala - m.lnValoareConvoi) Endif Calculate Sum(valval) To Thisform.cvaloare_convoi In crsBerthingDetails Thisform.cvaloare_convoi = ROUND(Thisform.cvaloare_convoi, m.gnPVal) Thisform.txtValConvoi.Refresh() Go Top In crsBerthingDetails This.but_terMIN1.Enabled = .T. && activez butonul Termin dupa calculul de tarife ENDPROC PROCEDURE do_cauta_partener LPARAMETERS tcTipPartener * tcTipPartener: client/beneficiar loCauta = caut_partener("-1", "Alege partener") IF LOWER(m.tcTipPartener) = 'client' this.cDenumireClient = loCauta.denumire this.nIdClient = locauta.id_part this.txtClient.Refresh() this.GetContracteClient(this.nIdClient) ELSE this.cDenumireBeneficiar = loCauta.denumire this.nIdBeneficiar = locauta.id_part this.txtBeneficiar.Refresh() ENDIF ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_genereaza_prestatii Local lcBtsId, ldDataI, ldDataP, lnDanaId, lnIdArticol, lnTipNId, lcVesId, lcNava SELECT crsBerthings LOCATE FOR ales = 1 AND EMPTY(NVL(id_locatia,0)) IF FOUND() AMESSAGEBOX('Completati locatia pe fiecare nava aleasa!',0+48,_screen.Caption) RETURN .F. ENDIF SELECT crsBerthings SCAN FOR ales = 1 lnDanaId = dana_id lnTipNId = tipn_id ldDataI = datai ldDataP = datap lcBtsId = Id lcVesId = ves_id lcNava = ALLTRIM(nava) lnIdLocatia = id_locatia * Daca exista prestatii definite pentru locatia aleasa le adaug cu prioritate, altfel caut in prestatiile pentru orice locatie * Prestatiile pentru locatia aleasa Select id_articol From crsCheiajPrestatii Where dana_id = m.lnDanaId And tipn_id = m.lnTipNId AND id_locatia = m.lnIdLocatia Into Cursor cPrestatiiTemp IF RECCOUNT('cPrestatiiTemp') = 0 USE IN (SELECT('cPrestatiiTemp')) * Prestatiile pentru orice locatie Select id_articol From crsCheiajPrestatii Where dana_id = m.lnDanaId And tipn_id = m.lnTipNId AND ISNULL(id_locatia) Into Cursor cPrestatiiTemp ENDIF Select cPrestatiiTemp Scan lnIdArticol = id_articol Insert Into crsBerthingDetails (nava, bts_id, ves_id, id_articol, datai, datap) Values (m.lcNava, m.lcBtsId, lcVesId, m.lnIdArticol, m.ldDataI, m.ldDataP) Endscan Use In (Select('cPrestatiiTemp')) Select crsBerthings Endscan this.cmdCalcul.Enabled = .T. Sele crsBerthingDetails Go Top Thisform.grid2.SetFocus ENDPROC PROCEDURE do_sterge IF AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_screen.Caption) <> 6 RETURN ENDIF SELECT crsBerthingDetails DELETE TRY SKIP -1 CATCH GO TOP ENDTRY this.grid2.SetFocus() ENDPROC PROCEDURE getcontracteclient Lparameters tcIdPart Local lcSource, lcSelect lcSelect = SELECT() lcSource = This.cboContract.RowSource This.cboContract.RowSource = [] Do make_contracte With "id_part=" + Alltrim(Str(m.tcIdPart)) && crsContracte SELECT crsContracte GO TOP This.cboContract.RowSource = m.lcSource SELECT (m.lcSelect) ENDPROC PROCEDURE inainte_de_do_termin Local lcVVIds, llSucces Update crsVoyage ; Set client_id = Thisform.nIdClient, ; client_ctr_id = Thisform.nIdContractClient, ; eagent = Thisform.nEAgent, ; beneficiar_id = Thisform.nIdBeneficiar, ; tiprecap = Thisform.nTipRecap, ; intern = Thisform.nIntern, ; document = UPPER(ALLTRIM(thisform.cDocument)) SELECT crsBerthingDetails LOCATE FOR !EMPTY(tarif) IF !FOUND() AMESSAGEBOX('Calculati tarifele!', 0+48, _screen.Caption) RETURN .F. ENDIF IF EMPTY(thisform.cDocument) AMESSAGEBOX('Completati documentul!',0+48,_screen.Caption) this.txtDocument.SetFocus() RETURN .F. ENDIF lcVVIds = salvare_cheiaj() && proceduri_acnpro.prg poDate.uuid = m.lcVVIds *poDate.document = UPPER(ALLTRIM(thisform.cDocument)) If Empty(m.lcVVIds) AMESSAGEBOX('Eroare salvare informatii cheiaj!',0+48,_screen.Caption) RETURN .F. ELSE RETURN .T. Endif ENDPROC PROCEDURE Init LPARAMETERS tcTitlu DODEFAULT() With Thisform If Used('crsCapFactura') Select crsCapFactura Go Top .cDenumireClient = Alltrim(Nvl(client, '')) .nIdClient = client_id .cContractClient = Alltrim(Nvl(contract_client, '')) .nIdContractClient = client_ctr_id .cDenumireBeneficiar = Alltrim(Nvl(beneficiar, '')) .nIdBeneficiar = beneficiar_id .nEAgent = eagent .nIntern = intern Endif ENDWITH IF !EMPTY(m.tcTitlu) and TYPE('tcTitlu') = 'C' this.lb_titlu_alb_b121.Caption = ALLTRIM(NVL(m.tcTitlu,'')) ENDIF ENDPROC PROCEDURE Show LPARAMETERS nStyle DODEFAULT(nStyle) THIS.gridextra1.setup() this.gridextra2.setup() this.WindowState = 2 this.Height = 416 this.AutoCenter = .T. ENDPROC PROCEDURE cboContract.Valid Thisform.nIdContractClient = crsContracte.id_ctr ENDPROC PROCEDURE Grid1.cLocatia.Combo1.Valid Local lcRptName, lnRecc, lnRecno lnRecno = Recno('crsBerthings') lnRecc = Reccount('crsBerthings') lcRptName = Nvl(rpt_name, 'x') If Thisform.nIdLocatia = crsBerthings.id_locatia Return .T. Endif Thisform.nIdLocatia = crsBerthings.id_locatia If m.lnRecno < m.lnRecc And AMESSAGEBOX('Se actualizeaza toate locatiile cu acelasi punct ruta?', 4 + 32, _Screen.Caption) = 6 Replace id_locatia With Thisform.nIdLocatia For Nvl(rpt_name, 'x') = m.lcRptName In crsBerthings Select crsBerthings If m.lnRecno > 0 Locate For Recno() = m.lnRecno If !Found() Go Top Endif Endif Endif ENDPROC PROCEDURE Grid1.cLocatia.Combo1.When Thisform.nIdLocatia = crsBerthings.id_locatia RETURN .T. ENDPROC PROCEDURE Grid1.cTcap.Text1.Click MESSAGEBOX(this.FontName + ' ' + TRANSFORM(this.FontSize)) ENDPROC PROCEDURE Grid1.Init * Nu sterge. va suprascrie fontul cu Arial Narrow ENDPROC PROCEDURE Grid2.cArticol.Combo1.Valid *THISFORM.CALCUL(nomprest.id) *THIS.PARENT.PARENT.REFRESH ENDPROC PROCEDURE Grid2.Init * Nu sterge. va suprascrie fontul cu Arial Narrow *this.SetAll("DynamicBackColor", "IIF(RECNO( )=thisform.recno2, RGB(250,255,190), RGB(255,255,255))", "Column") ENDPROC PROCEDURE txtValFinala.Valid IF (thisform.chkStornare.value = 0) AND this.Value < 0 thisform.chkStornare.Value = 1 thisform.chkStornare.Refresh() ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_calcul_contract 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="txtClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_client" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtBeneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cPerioada.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cPerioada.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cPerioada._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cArticol.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cArticol._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cLocatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cLocatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cLocatia._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cCantitate.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cCantitate.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cCantitate._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cPret.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cPret.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cPret._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cValuta._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cValval.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cValval.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cCotaTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cCotaTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticoleContract.cCotaTVA._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_beneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkIntern" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValval" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> * *m: calculeazapreturi *m: calculeazapreturirand *m: calculeazatotaluri *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: ncantitate *p: nidbeneficiar *p: nidclient *p: nidcontractclient *p: nintern *p: npret *p: nvaloare *p: nvalval * * BorderStyle = 3 ccontractclient = cdenumirebeneficiar = cdenumireclient = DoCreate = .T. Height = 438 Name = "frm_calcul_contract" ncantitate = 0 nidbeneficiar = 0 nidclient = 0 nidcontractclient = 0 nintern = 1 npret = 0 nvaloare = 0 nvalval = 0 Width = 779 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 781 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Calcul Contract" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 15 BUT_TERMIN1.Anchor = 8 BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 6 BUT_TERMIN1.Top = 0 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 416 * ADD OBJECT '_label3' AS _label WITH ; Anchor = 12, ; Caption = "Valoare", ; FontBold = .T., ; Left = 594, ; Name = "_label3", ; TabIndex = 19, ; Top = 412 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label5' AS _label WITH ; Caption = "Beneficiar:", ; FontBold = .T., ; Left = 15, ; Name = "_label5", ; TabIndex = 22, ; TabStop = .F., ; Top = 69 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'but_cautare_beneficiar' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'beneficiar', ; Enabled = .F., ; Left = 378, ; Name = "but_cautare_beneficiar", ; TabIndex = 10, ; TabStop = .F., ; Top = 63 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'but_cautare_client' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'client', ; Enabled = .F., ; Left = 378, ; Name = "but_cautare_client", ; TabIndex = 9, ; TabStop = .F., ; Top = 35 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou2' AS but_nou WITH ; Anchor = 9, ; Left = 704, ; Name = "But_nou2", ; TabIndex = 23, ; Top = 72 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 8, ; Left = 718, ; Name = "But_renunt1", ; TabIndex = 8, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge2' AS but_sterge WITH ; Anchor = 9, ; caction = do_sterge, ; Left = 732, ; Name = "But_sterge2", ; TabIndex = 24, ; Top = 72, ; Visible = .T. *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'cboContract' AS _combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "thisform.nIdContractClient", ; Enabled = .F., ; Height = 24, ; Left = 477, ; Name = "cboContract", ; ReadOnly = .F., ; RowSource = "select crsContracte.numar as contract, id_ctr, nr_zile_scadenta, tip_curs from crsContracte into cursor crsContracteZ", ; RowSourceType = 3, ; TabIndex = 4, ; TabStop = .F., ; Top = 37, ; Width = 175 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'chkIntern' AS _checkbox WITH ; Alignment = 1, ; Caption = "Intern:", ; ControlSource = "thisform.nIntern", ; Enabled = .F., ; FontBold = .T., ; Left = 696, ; Name = "chkIntern", ; TabIndex = 13, ; TabStop = .F., ; Top = 39 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdArticoleContract' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 9, ; DeleteMark = .F., ; FontSize = 10, ; HeaderHeight = 20, ; Height = 300, ; lcamptextneeditabil = .F., ; Left = 12, ; Name = "grdArticoleContract", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsArticoleContract", ; RowHeight = 19, ; Top = 102, ; Width = 756, ; ZOrderSet = 10, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "crsArticoleContract.perioada", ; Column1.CurrentControl = "_textbox1", ; Column1.FontSize = 10, ; Column1.Name = "cPerioada", ; Column1.ReadOnly = .F., ; Column1.Width = 166, ; Column2.Bound = .F., ; Column2.ColumnOrder = 3, ; Column2.ControlSource = "Iif(Seek(crsArticoleContract.id_articol,'crsArticole','id_articol'),crsArticole.denumire,'')", ; Column2.CurrentControl = "_combobox1", ; Column2.FontSize = 10, ; Column2.Name = "cArticol", ; Column2.ReadOnly = .F., ; Column2.Sparse = .F., ; Column2.Width = 161, ; Column3.Bound = .F., ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "Iif(Seek(crsArticoleContract.locatia,'crsLocatii','id'),crsLocatii.denumire,'')", ; Column3.CurrentControl = "_combobox1", ; Column3.FontSize = 10, ; Column3.Name = "cLocatia", ; Column3.ReadOnly = .F., ; Column3.Sparse = .F., ; Column3.Width = 141, ; Column4.BackColor = 205,230,255, ; Column4.ColumnOrder = 4, ; Column4.ControlSource = "crsArticoleContract.cantitate", ; Column4.CurrentControl = "_textbox1", ; Column4.FontSize = 10, ; Column4.Format = "RK", ; Column4.InputMask = "999 999 999.9999", ; Column4.Name = "cCantitate", ; Column4.ReadOnly = .F., ; Column4.Width = 101, ; Column5.ColumnOrder = 5, ; Column5.ControlSource = "crsArticoleContract.um", ; Column5.FontSize = 10, ; Column5.Name = "cUM", ; Column5.ReadOnly = .T., ; Column5.Width = 36, ; Column6.BackColor = 205,230,255, ; Column6.ColumnOrder = 6, ; Column6.ControlSource = "crsArticoleContract.pret", ; Column6.CurrentControl = "_textbox1", ; Column6.FontSize = 10, ; Column6.Format = "RK", ; Column6.InputMask = (get_mask(12,4)), ; Column6.Name = "cPret", ; Column6.ReadOnly = .F., ; Column6.Width = 83, ; Column7.Bound = .F., ; Column7.ColumnOrder = 7, ; Column7.ControlSource = "Iif(Seek(crsArticoleContract.id_valuta,'crsValute','id_valuta'),crsValute.nume_val,'')", ; Column7.CurrentControl = "_combobox1", ; Column7.FontSize = 10, ; Column7.Name = "cValuta", ; Column7.ReadOnly = .F., ; Column7.Sparse = .F., ; Column7.Width = 75, ; Column8.BackColor = 205,230,255, ; Column8.ColumnOrder = 8, ; Column8.ControlSource = "crsArticoleContract.valval", ; Column8.FontSize = 10, ; Column8.Format = "RK", ; Column8.InputMask = (get_mask(12,gnPC)), ; Column8.Name = "cValval", ; Column8.ReadOnly = .F., ; Column8.Width = 90, ; Column9.Bound = .F., ; Column9.ControlSource = "Iif(Seek(crsArticoleContract.proc_tvav,'crsCoteTVA','proc_tva'),crsCoteTVA.procent,'')", ; Column9.CurrentControl = "_combobox1", ; Column9.FontSize = 10, ; Column9.Name = "cCotaTVA", ; Column9.ReadOnly = .F., ; Column9.Sparse = .F. *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdArticoleContract.cArticol._combobox1' AS _combobox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsArticoleContract.id_articol", ; Height = 12, ; Left = 40, ; Name = "_combobox1", ; ReadOnly = .F., ; RowSource = "select crsArticole.denumire, id_articol, um from crsArticole into cursor crsArticoleY order by denumire", ; RowSourceType = 3, ; SpecialEffect = 1, ; Top = 101 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'grdArticoleContract.cArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Articol", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cArticol.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ControlSource = "crsArticoleContract.id_articol", ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cCantitate._textbox1' AS _textbox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; Left = 70, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 53 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cCantitate.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cCantitate.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cCotaTVA._combobox1' AS _combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsArticoleContract.proc_tvav", ; Left = 45, ; Name = "_combobox1", ; ReadOnly = .F., ; RowSource = "select procent, proc_tva from crsCoteTVA order by proc_tva desc into cursor crsCoteTVAY", ; RowSourceType = 3, ; SpecialEffect = 1, ; Top = 89 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'grdArticoleContract.cCotaTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cota TVA", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cCotaTVA.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 'grdArticoleContract.cLocatia._combobox1' AS _combobox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsArticoleContract.id_locatia", ; Left = 86, ; Name = "_combobox1", ; ReadOnly = .F., ; RowSource = "select crsLocatii.denumire, id from crsLocatii into cursor crsLocatiiX1 order by denumire", ; RowSourceType = 3, ; SpecialEffect = 1, ; Top = 65 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'grdArticoleContract.cLocatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Locatia", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cLocatia.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cPerioada._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 61, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 89 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cPerioada.Header1' AS header WITH ; Alignment = 2, ; Caption = "Perioada", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cPerioada.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cPret._textbox1' AS _textbox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; Left = 38, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 53 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cPret.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cPret.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "Um", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cValuta._combobox1' AS _combobox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsArticoleContract.id_valuta", ; Left = 32, ; Name = "_combobox1", ; RowSource = "select nume_val, id_valuta from crsValute order by nume_val into cursor crsValuteY", ; RowSourceType = 3, ; SpecialEffect = 1, ; Top = 65 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'grdArticoleContract.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cValuta.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticoleContract.cValval.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticoleContract.cValval.Text1' AS textbox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.grdArticoleContract, ; Left = 276, ; Name = "Gridextra1", ; productname = ROA, ; Top = 414 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'lblClient' AS _label WITH ; Caption = "Platitor:", ; FontBold = .T., ; Left = 15, ; Name = "lblClient", ; TabIndex = 18, ; TabStop = .F., ; Top = 41 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'lblContract' AS _label WITH ; Caption = "Contract:", ; FontBold = .T., ; Left = 415, ; Name = "lblContract", ; TabIndex = 20, ; TabStop = .F., ; Top = 41 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'txtBeneficiar' AS _textbox WITH ; ControlSource = "thisform.cDenumireBeneficiar", ; Enabled = .F., ; Height = 23, ; Left = 84, ; Name = "txtBeneficiar", ; ReadOnly = .T., ; TabIndex = 21, ; TabStop = .F., ; Top = 66, ; Width = 288 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtClient' AS _textbox WITH ; ControlSource = "thisform.cDenumireClient", ; Enabled = .F., ; Height = 23, ; Left = 84, ; Name = "txtClient", ; ReadOnly = .T., ; TabIndex = 16, ; TabStop = .F., ; Top = 38, ; Width = 288 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValval' AS _textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValval", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnPC)), ; Left = 653, ; Name = "txtValval", ; TabIndex = 14, ; Top = 408, ; Width = 115 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE calculeazapreturi SELECT crsArticoleContract SCAN This.CalculeazaPreturiRand() ENDSCAN This.CalculeazaTotaluri() ENDPROC PROCEDURE calculeazapreturirand LPARAMETERS tlValoare * tlValoare: daca se modifica valoarea se recalculeaza pretul unitar si invers Local lcSelect lcSelect = Select() Select crsArticoleContract IF m.tlValoare Replace pret WITH ROUND(valval/cantitate, 4) this.grdArticoleContract.cPret.Refresh() ELSE Replace valval With Round(Pret * cantitate, m.gnPC) this.grdArticoleContract.cValval.Refresh() ENDIF Select (m.lcSelect) ENDPROC PROCEDURE calculeazatotaluri Local lnRecno Select crsArticoleContract lnRecno = Recno() Calculate Sum(valval) To Thisform.nValVal Select crsArticoleContract If m.lnRecno > 0 Locate For Recno() = m.lnRecno If !Found() Go Top Endif Endif Thisform.txtValval.Refresh() ENDPROC PROCEDURE do_adauga LOCAL loRec SELECT crsArticoleContract TABLEUPDATE(1,.F., 'crsArticoleContract') && DADEA EROARE CURSOR CONTAINES UNCOMMITED CHANGES DACA COMPLETAM PERIOADA PE VREO LINIE IF !EMPTY(NVL(crsArticoleContract.id_articol,0)) SCATTER NAME loRec MEMO APPEND BLANK GATHER NAME loRec MEMO ELSE APPEND BLANK ENDIF this.grdArticoleContract.cArticol.SetFocus() ENDPROC PROCEDURE do_cauta_partener LPARAMETERS tcTipPartener * tcTipPartener: client/beneficiar loCauta = caut_partener("-1", "Alege partener") IF LOWER(m.tcTipPartener) = 'client' this.cDenumireClient = loCauta.denumire this.nIdClient = locauta.id_part this.txtClient.Refresh() this.GetContracteClient(this.nIdClient) ELSE this.cDenumireBeneficiar = loCauta.denumire this.nIdBeneficiar = locauta.id_part this.txtBeneficiar.Refresh() ENDIF ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_sterge If AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_Screen.Caption) <> 6 Return Endif Select crsArticoleContract Delete Try If !Bof() Skip -1 Endif Catch Go Top Endtry This.grdArticoleContract.cArticol.SetFocus() ENDPROC PROCEDURE getcontracteclient Lparameters tcIdPart Local lcSource, lcSelect lcSelect = SELECT() lcSource = This.cboContract.RowSource This.cboContract.RowSource = [] Do make_contracte With "id_part=" + Alltrim(Str(m.tcIdPart)) && crsContracte SELECT crsContracte GO TOP This.cboContract.RowSource = m.lcSource SELECT (m.lcSelect) ENDPROC PROCEDURE inainte_de_do_termin Local lcRgdIds, llSucces TABLEUPDATE(1,.F., 'crsArticoleContract') SELECT crsArticoleContract LOCATE FOR ISNULL(proc_tvav) IF FOUND() AMESSAGEBOX('Completati cota de TVA la toate articolele!',0+48,_screen.Caption) This.grdArticoleContract.cCotaTVA.SetFocus() RETURN .F. ENDIF Update crsArticoleContract ; Set id_part = Thisform.nIdClient, ; id_ctr = Thisform.nIdContractClient lcRgdIds = salvare_contract() && proceduri_acnpro.prg If Empty(m.lcRgdIds) AMESSAGEBOX('Eroare salvare informatii contract!',0+48,_screen.Caption) RETURN .F. ENDIF RETURN .T. ENDPROC PROCEDURE Init LPARAMETERS tcTitlu DODEFAULT() With Thisform If Used('crsCapFactura') Select crsCapFactura Go Top .cDenumireClient = Alltrim(Nvl(client, '')) .nIdClient = client_id .cContractClient = Alltrim(Nvl(contract_client, '')) .nIdContractClient = client_ctr_id .cDenumireBeneficiar = Alltrim(Nvl(beneficiar, '')) .nIdBeneficiar = beneficiar_id .nIntern = intern Endif ENDWITH IF !EMPTY(m.tcTitlu) and TYPE('tcTitlu') = 'C' this.lb_titlu_alb_b121.Caption = ALLTRIM(NVL(m.tcTitlu,'')) ENDIF This.CalculeazaTotaluri() SELECT crsArticoleContract GO TOP this.grdArticoleContract.cPerioada.SetFocus() ENDPROC PROCEDURE Show LPARAMETERS nStyle DODEFAULT(nStyle) this.WindowState = 2 this.Height = 468 this.AutoCenter = .T. this.gridextra1.setup() ENDPROC PROCEDURE cboContract.Valid Thisform.nIdContractClient = crsContracte.id_ctr ENDPROC PROCEDURE grdArticoleContract.cArticol._combobox1.Valid REPLACE crsArticoleContract.um WITH crsArticoleY.um ENDPROC PROCEDURE grdArticoleContract.cCantitate.Text1.LostFocus IF crsArticoleContract.cantitate <> Thisform.nCantitate Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdArticoleContract.cCantitate.Text1.When Thisform.nCantitate = crsArticoleContract.cantitate ENDPROC PROCEDURE grdArticoleContract.cCantitate._textbox1.LostFocus IF crsArticoleContract.cantitate <> Thisform.nCantitate Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdArticoleContract.cCantitate._textbox1.When Thisform.nCantitate = crsArticoleContract.cantitate ENDPROC PROCEDURE grdArticoleContract.cPret.Text1.LostFocus IF crsArticoleContract.pret <> Thisform.nPret Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdArticoleContract.cPret.Text1.When Thisform.nPret = crsArticoleContract.pret ENDPROC PROCEDURE grdArticoleContract.cPret._textbox1.LostFocus IF crsArticoleContract.pret <> Thisform.nPret Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdArticoleContract.cPret._textbox1.When Thisform.nPret = crsArticoleContract.pret ENDPROC PROCEDURE grdArticoleContract.cValval.Text1.LostFocus IF crsArticoleContract.valval <> Thisform.nValoare Thisform.CalculeazaPreturiRand(.T.) THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdArticoleContract.cValval.Text1.When Thisform.nValoare = crsArticoleContract.valval ENDPROC ENDDEFINE DEFINE CLASS frm_calcul_tranzit 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="grdTranzit" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.Column2.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CKMI.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CKMI.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CKMI._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cGrupaVas.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cGrupaVas.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CTRN.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CTRN.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CTRN._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CLBD.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CLBD.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CLBD._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CHP.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CHP.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CHP._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CTCAP.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CTCAP.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CTCAP._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CCARGO.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CCARGO.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CFELCARGO.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CFELCARGO.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.ctipvas.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.ctipvas.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.ctipvas._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.ccuplat.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.ccuplat.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cruta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cruta.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.ccodruta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.ccodruta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CINDICATIV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CINDICATIV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.CINDICATIV._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cProcDiv.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cProcDiv.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cProcDiv._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cGrupaMarfa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cGrupaMarfa.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cPericulos.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cPericulos.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistantaCDMN.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistantaCDMN.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistantaCDMN._textbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTarif.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTarif.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValoare.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValoare.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDeclaratie.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDeclaratie.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cEcluzari.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cEcluzari.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cEclDif.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cEclDif.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cEclDif._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cMarfaCountry.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cMarfaCountry.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValFinala" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValConvoi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValMInConvoi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtCap" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdTarife" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblEcluzari" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_client" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtBeneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_beneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkIntern" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkStornare" UniqueID="" Timestamp="" /> * *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: ncapacitateclient *p: ncapacitatetotal *p: neagent *p: nidbeneficiar *p: nidclient *p: nidcontractclient *p: nintern *p: ntiprecap && 0 = recapitulatie standard, 1 = fara recapitulatie pentru ca valoarea totala a fost suprascrisa de utilizaotr * * BorderStyle = 3 ccontractclient = cdenumirebeneficiar = cdenumireclient = cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 DoCreate = .T. Height = 416 Name = "frm_calcul_tranzit" ncapacitateclient = 0 ncapacitatetotal = 0 neagent = 0 nidbeneficiar = 0 nidclient = 0 nidcontractclient = 0 nintern = 1 ntiprecap = 0 Width = 779 WindowState = 2 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Calcul Tranzit" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 9 BUT_TERMIN1.Anchor = 8 BUT_TERMIN1.Enabled = .F. BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 10 BUT_TERMIN1.Top = 0 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label1' AS _label WITH ; Anchor = 12, ; Caption = "Valoare finala", ; FontBold = .T., ; Left = 314, ; Name = "_label1", ; TabIndex = 15, ; Top = 357 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label2' AS _label WITH ; Anchor = 12, ; Caption = "Valoare tranzit", ; FontBold = .T., ; Left = 441, ; Name = "_label2", ; TabIndex = 17, ; Top = 357 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label3' AS _label WITH ; Anchor = 12, ; Caption = "Valoare minima", ; FontBold = .T., ; Left = 565, ; Name = "_label3", ; TabIndex = 18, ; Top = 357 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label4' AS _label WITH ; Anchor = 12, ; Caption = "Total capacitate", ; FontBold = .T., ; Left = 673, ; Name = "_label4", ; TabIndex = 16, ; Top = 357 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label5' AS _label WITH ; Caption = "Beneficiar:", ; FontBold = .T., ; Left = 15, ; Name = "_label5", ; TabIndex = 24, ; TabStop = .F., ; Top = 69 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'but_cautare_beneficiar' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'beneficiar', ; Enabled = .F., ; Left = 384, ; Name = "but_cautare_beneficiar", ; TabIndex = 3, ; TabStop = .F., ; Top = 63 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'but_cautare_client' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'client', ; Enabled = .F., ; Left = 384, ; Name = "but_cautare_client", ; TabIndex = 1, ; TabStop = .F., ; Top = 35 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 8, ; Left = 720, ; Name = "But_renunt1", ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'cboContract' AS _combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "thisform.nIdContractClient", ; Enabled = .F., ; Height = 24, ; Left = 484, ; Name = "cboContract", ; ReadOnly = .F., ; RowSource = "select crsContracte.numar as contract, id_ctr, nr_zile_scadenta, tip_curs from crsContracte into cursor crsContracteZ", ; RowSourceType = 3, ; TabIndex = 2, ; TabStop = .F., ; Top = 37, ; Width = 175 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'chkIntern' AS _checkbox WITH ; Alignment = 1, ; Caption = "Intern:", ; ControlSource = "thisform.nIntern", ; Enabled = .F., ; FontBold = .T., ; Left = 684, ; Name = "chkIntern", ; TabIndex = 5, ; TabStop = .F., ; Top = 39 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'chkStornare' AS _checkbox WITH ; Alignment = 1, ; Anchor = 8, ; Caption = "Stornare", ; ControlSource = "", ; Enabled = .T., ; FontBold = .T., ; ForeColor = 255,0,0, ; Left = 563, ; Name = "chkStornare", ; TabIndex = 5, ; TabStop = .F., ; ToolTipText = "Cantitatea si valoarea fiecarei nave va avea semn negativ", ; Top = 67, ; Value = 0 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'cmdTarife' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .T., ; Caption = "\ ADD OBJECT 'grdTranzit' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 25, ; DeleteMark = .F., ; FontName = "Arial", ; Height = 229, ; Left = 12, ; Name = "grdTranzit", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsVoyages", ; TabIndex = 6, ; Top = 96, ; Width = 756, ; Column1.BackColor = 139,199,216, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "ales", ; Column1.FontName = "Arial", ; Column1.Name = "Column2", ; Column1.ReadOnly = .F., ; Column1.Sparse = .F., ; Column1.Width = 28, ; Column2.BackColor = 139,199,216, ; Column2.ColumnOrder = 8, ; Column2.ControlSource = "crsVoyages.distanta", ; Column2.CurrentControl = "_textbox1", ; Column2.FontName = "Arial", ; Column2.Name = "CKMI", ; Column2.ReadOnly = .F., ; Column2.Sparse = .F., ; Column2.Width = 62, ; Column3.ColumnOrder = 5, ; Column3.ControlSource = "grupa_nava", ; Column3.CurrentControl = "Combo1", ; Column3.FontName = "Arial", ; Column3.Name = "cGrupaVas", ; Column3.ReadOnly = .T., ; Column3.Sparse = .F., ; Column3.Width = 162, ; Column4.BackColor = 139,199,216, ; Column4.ColumnOrder = 11, ; Column4.ControlSource = "crsVoyages.TRN", ; Column4.CurrentControl = "_textbox1", ; Column4.FontName = "Arial", ; Column4.Name = "CTRN", ; Column4.ReadOnly = .F., ; Column4.Sparse = .F., ; Column4.Width = 57, ; Column5.BackColor = 139,199,216, ; Column5.ColumnOrder = 12, ; Column5.ControlSource = "crsVoyages.LBD", ; Column5.CurrentControl = "_textbox1", ; Column5.FontName = "Arial", ; Column5.Name = "CLBD", ; Column5.ReadOnly = .F., ; Column5.Sparse = .F., ; Column5.Width = 51, ; Column6.BackColor = 139,199,216, ; Column6.ColumnOrder = 13, ; Column6.ControlSource = "crsVoyages.HP", ; Column6.CurrentControl = "_textbox1", ; Column6.FontName = "Arial", ; Column6.Name = "CHP", ; Column6.ReadOnly = .F., ; Column6.Sparse = .F., ; Column6.Width = 54, ; Column7.BackColor = 139,199,216, ; Column7.ColumnOrder = 14, ; Column7.ControlSource = "crsVoyages.TCAP", ; Column7.CurrentControl = "_textbox1", ; Column7.FontName = "Arial", ; Column7.Name = "CTCAP", ; Column7.ReadOnly = .F., ; Column7.Sparse = .F., ; Column7.Width = 61, ; Column8.ColumnOrder = 15, ; Column8.ControlSource = "CARGO", ; Column8.FontName = "Arial", ; Column8.Name = "CCARGO", ; Column8.ReadOnly = .T., ; Column9.ColumnOrder = 16, ; Column9.ControlSource = "FELCARGO", ; Column9.FontName = "Arial", ; Column9.Name = "CFELCARGO", ; Column9.ReadOnly = .T., ; Column9.Width = 166, ; Column10.BackColor = 139,199,216, ; Column10.ColumnOrder = 4, ; Column10.ControlSource = "TIP_NAVA", ; Column10.CurrentControl = "_combobox1", ; Column10.FontName = "Arial", ; Column10.Name = "ctipvas", ; Column10.ReadOnly = .F., ; Column10.Sparse = .F., ; Column10.Width = 172, ; Column11.BackColor = 252,255,225, ; Column11.ColumnOrder = 10, ; Column11.ControlSource = "CUPLAT", ; Column11.FontName = "Arial", ; Column11.Name = "ccuplat", ; Column11.ReadOnly = .T., ; Column11.Sparse = .F., ; Column11.Width = 42, ; Column12.BackColor = 252,255,225, ; Column12.Bound = .T., ; Column12.ColumnOrder = 7, ; Column12.ControlSource = "crsVoyages.ruta", ; Column12.FontName = "Arial", ; Column12.Name = "cruta", ; Column12.ReadOnly = .T., ; Column12.Sparse = .F., ; Column12.Width = 152, ; Column13.ColumnOrder = 6, ; Column13.ControlSource = "RTE_ID", ; Column13.FontName = "Arial", ; Column13.Name = "ccodruta", ; Column13.ReadOnly = .T., ; Column13.Width = 50, ; Column14.BackColor = 139,199,216, ; Column14.ColumnOrder = 3, ; Column14.ControlSource = "INDICATIV", ; Column14.CurrentControl = "_textbox1", ; Column14.FontName = "Arial", ; Column14.Name = "CINDICATIV", ; Column14.ReadOnly = .F., ; Column14.Sparse = .F., ; Column14.Width = 97, ; Column15.BackColor = 139,199,216, ; Column15.ColumnOrder = 18, ; Column15.ControlSource = "procdiv", ; Column15.CurrentControl = "_textbox1", ; Column15.FontName = "Arial", ; Column15.Name = "cProcDiv", ; Column15.ReadOnly = .F., ; Column15.Sparse = .F., ; Column15.Width = 64, ; Column16.ColumnOrder = 17, ; Column16.ControlSource = "grupa_marfa", ; Column16.CurrentControl = "Combo1", ; Column16.FontName = "Arial", ; Column16.Name = "cGrupaMarfa", ; Column16.ReadOnly = .T., ; Column16.Sparse = .F., ; Column16.Width = 144, ; Column17.BackColor = 139,199,216, ; Column17.ColumnOrder = 19, ; Column17.ControlSource = "periculos", ; Column17.FontName = "Arial", ; Column17.Name = "cPericulos", ; Column17.ReadOnly = .F., ; Column17.Sparse = .F., ; Column17.Width = 66, ; Column18.BackColor = 139,199,216, ; Column18.ColumnOrder = 9, ; Column18.ControlSource = "crsVoyages.distanta_cdmn", ; Column18.CurrentControl = "_textbox1", ; Column18.FontName = "Arial", ; Column18.Name = "cDistantaCDMN", ; Column18.ReadOnly = .F., ; Column18.Sparse = .F., ; Column18.Width = 89, ; Column19.BackColor = 136,219,194, ; Column19.ColumnOrder = 20, ; Column19.ControlSource = "tarif", ; Column19.FontName = "Arial", ; Column19.Name = "cTarif", ; Column19.ReadOnly = .F., ; Column20.BackColor = 136,219,194, ; Column20.ColumnOrder = 21, ; Column20.ControlSource = "valval", ; Column20.FontName = "Arial", ; Column20.Name = "cValoare", ; Column20.ReadOnly = .F., ; Column21.ColumnOrder = 22, ; Column21.ControlSource = "valuta", ; Column21.FontName = "Arial", ; Column21.Name = "cValuta", ; Column21.ReadOnly = .T., ; Column22.ColumnOrder = 2, ; Column22.ControlSource = "declaratio", ; Column22.FontName = "Arial", ; Column22.Name = "cDeclaratie", ; Column22.ReadOnly = .T., ; Column23.ControlSource = "ecluzari", ; Column23.FontName = "Arial", ; Column23.Name = "cEcluzari", ; Column23.ReadOnly = .T., ; Column23.Width = 366, ; Column24.ControlSource = "ecldif", ; Column24.CurrentControl = "_checkbox1", ; Column24.FontName = "Arial", ; Column24.Name = "cEclDif", ; Column24.ReadOnly = .T., ; Column24.Sparse = .F., ; Column24.Width = 87, ; Column25.ControlSource = "marfa_country", ; Column25.FontName = "Arial", ; Column25.Name = "cMarfaCountry", ; Column25.ReadOnly = .T., ; Column25.Width = 101 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdTranzit.CCARGO.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cargo", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CCARGO.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 'grdTranzit.ccodruta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod ruta", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.ccodruta.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 'grdTranzit.ccuplat.Check1' AS checkbox WITH ; Alignment = 0, ; BackColor = 252,255,225, ; Caption = "", ; FontName = "Arial", ; Height = 17, ; Left = 26, ; Name = "Check1", ; ReadOnly = .T., ; Top = 47, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.ccuplat.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cuplat", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDeclaratie.Header1' AS header WITH ; Alignment = 2, ; Caption = "Declaratie", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDeclaratie.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cDistantaCDMN._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 27, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cDistantaCDMN.Header1' AS header WITH ; Alignment = 2, ; Caption = "Distanta CDMN", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDistantaCDMN.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cEclDif._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; ControlSource = "ecldif", ; Left = 78, ; Name = "_checkbox1", ; ReadOnly = .T., ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cEclDif.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ecluzari diferite", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cEclDif.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cEcluzari.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ecluzari", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cEcluzari.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CFELCARGO.Header1' AS header WITH ; Alignment = 2, ; Caption = "Marfa", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CFELCARGO.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 'grdTranzit.cGrupaMarfa.Combo1' AS combobox WITH ; BorderStyle = 0, ; Height = 10, ; Left = 85, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "crsGrupeMarfa.grupa", ; RowSourceType = 6, ; SpecialEffect = 1, ; Style = 2, ; Top = 47, ; Width = 10 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdTranzit.cGrupaMarfa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Grupa marfa", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cGrupaVas.Combo1' AS combobox WITH ; BorderStyle = 0, ; Height = 10, ; Left = 66, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "crsGrupeVase.grupa", ; RowSourceType = 6, ; SpecialEffect = 1, ; Style = 2, ; Top = 47, ; Width = 10 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdTranzit.cGrupaVas.Header1' AS header WITH ; Alignment = 2, ; Caption = "Grupa vas", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CHP._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 36, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 83 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CHP.Header1' AS header WITH ; Alignment = 2, ; Caption = "HP", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CHP.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CINDICATIV._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 52, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 71 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CINDICATIV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Indicativ", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CINDICATIV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CKMI._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 6, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CKMI.Header1' AS header WITH ; Alignment = 2, ; Caption = "Distanta", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CKMI.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CLBD._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 40, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 71 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CLBD.Header1' AS header WITH ; Alignment = 2, ; Caption = "LBD", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CLBD.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cMarfaCountry.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pavilion marfa", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cMarfaCountry.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.Column2.Check1' AS checkbox WITH ; Alignment = 0, ; BackColor = 139,199,216, ; Caption = "", ; FontName = "Arial", ; Height = 17, ; Left = 6, ; Name = "Check1", ; ReadOnly = .F., ; Top = 60, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ales", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cPericulos.Check1' AS checkbox WITH ; Alignment = 2, ; BackColor = 139,199,216, ; Caption = "", ; Height = 17, ; Left = 34, ; Name = "Check1", ; ReadOnly = .F., ; Top = 59, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cPericulos.Header1' AS header WITH ; Alignment = 2, ; Caption = "Periculos", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cProcDiv._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 48, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cProcDiv.Header1' AS header WITH ; Alignment = 2, ; Caption = "Coef. Supl.", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cProcDiv.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cruta.Combo1' AS combobox WITH ; BackColor = 252,255,225, ; BorderStyle = 0, ; BoundColumn = 1, ; ColumnCount = 3, ; ColumnLines = .F., ; ColumnWidths = "300,100,100", ; FontName = "Arial", ; Height = 24, ; Left = 34, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "crsRoutes.name,distanta,id", ; RowSourceType = 6, ; SpecialEffect = 1, ; Style = 2, ; Top = 24, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdTranzit.cruta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ruta", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTarif.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tarif/UM", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTarif.Text1' AS textbox WITH ; BackColor = 136,219,194, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CTCAP._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 39, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CTCAP.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cap. totala", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CTCAP.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.ctipvas._combobox1' AS _combobox WITH ; BorderStyle = 0, ; BoundTo = .T., ; Left = 86, ; Name = "_combobox1", ; RowSource = "crsVesselTypes.name", ; RowSourceType = 6, ; SpecialEffect = 1, ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'grdTranzit.ctipvas.Combo1' AS combobox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; FontName = "Arial", ; Height = 10, ; Left = 28, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "crsVesselTypes.name", ; RowSourceType = 2, ; SpecialEffect = 1, ; Top = 83, ; Width = 10 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdTranzit.ctipvas.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip vas", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CTRN._textbox1' AS _textbox WITH ; BorderStyle = 0, ; Left = 38, ; Name = "_textbox1", ; SelectedBackColor = 100,185,255, ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grdTranzit.CTRN.Header1' AS header WITH ; Alignment = 2, ; Caption = "TRN", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.CTRN.Text1' AS textbox WITH ; BackColor = 139,199,216, ; BorderStyle = 0, ; FontName = "Arial", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValoare.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValoare.Text1' AS textbox WITH ; BackColor = 136,219,194, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'lblClient' AS _label WITH ; Caption = "Platitor/Agent:", ; FontBold = .T., ; Left = 15, ; Name = "lblClient", ; TabIndex = 21, ; TabStop = .F., ; Top = 41 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'lblContract' AS _label WITH ; Caption = "Contract:", ; FontBold = .T., ; Left = 421, ; Name = "lblContract", ; TabIndex = 22, ; TabStop = .F., ; Top = 41 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'lblEcluzari' AS _label WITH ; Anchor = 14, ; AutoSize = .F., ; Caption = "Ecluzari:", ; FontBold = .T., ; Height = 17, ; Left = 15, ; Name = "lblEcluzari", ; TabIndex = 19, ; Top = 331, ; Width = 753 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'txtBeneficiar' AS _textbox WITH ; ControlSource = "thisform.cDenumireBeneficiar", ; Enabled = .F., ; Height = 23, ; Left = 110, ; Name = "txtBeneficiar", ; ReadOnly = .T., ; TabIndex = 23, ; TabStop = .F., ; Top = 66, ; Width = 272 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtCap' AS _textbox WITH ; Anchor = 12, ; ControlSource = "THISFORM.nCapacitateTotal", ; Left = 666, ; Name = "txtCap", ; ReadOnly = .T., ; TabIndex = 14, ; Top = 381 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtClient' AS _textbox WITH ; ControlSource = "thisform.cDenumireClient", ; Enabled = .F., ; Height = 23, ; Left = 110, ; Name = "txtClient", ; ReadOnly = .T., ; TabIndex = 20, ; TabStop = .F., ; Top = 38, ; Width = 272 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValConvoi' AS _textbox WITH ; Anchor = 12, ; ControlSource = "THISFORM.CVALOARE_CONVOI", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 411, ; Name = "txtValConvoi", ; TabIndex = 12, ; Top = 380, ; Width = 115 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValFinala' AS _textbox WITH ; Anchor = 12, ; BackColor = 139,199,216, ; ControlSource = "THISFORM.CVALOARE_FINALA", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 279, ; Name = "txtValFinala", ; TabIndex = 11, ; ToolTipText = "Valoarea finala va suprascrie valoarea calculata pe baza tarifului. Daca valoarea finala este negativa, se considera ca se doreste stornarea valorii.", ; Top = 381, ; Width = 115 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValMInConvoi' AS _textbox WITH ; Anchor = 12, ; ControlSource = "THISFORM.CVALOARE_MINIMA_CONVOI", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 541, ; Name = "txtValMInConvoi", ; TabIndex = 13, ; Top = 381, ; Width = 115 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE do_cauta_partener LPARAMETERS tcTipPartener * tcTipPartener: client/beneficiar loCauta = caut_partener("-1", "Alege partener") IF LOWER(m.tcTipPartener) = 'client' this.cDenumireClient = loCauta.denumire this.nIdClient = locauta.id_part this.txtClient.Refresh() this.GetContracteClient(this.nIdClient) ELSE this.cDenumireBeneficiar = loCauta.denumire this.nIdBeneficiar = locauta.id_part this.txtBeneficiar.Refresh() ENDIF ENDPROC PROCEDURE do_executa * Calcul valoare convoi Local lcConditieGrupaMarfa, lcConditieGrupaMarfaOrice, lcConditieGrupaNava, lcConditieMarfa Local lcCursorTarife, lcLocate1, lcLocate1Orice, lcLocate2, lcLocate3, lcMesaj1, lcMesaj2, lcSql Local lcTipUM, lcUM, lcValuta, llGasit, llSucces, lnCantitate, lnCapacitateConvoi Local lnCapacitateCumulataClient, lnClientCtrId, lnClientCtrId2, lnClientId, lnCoeficient Local lnIdGrupaNava, lnIdValuta, lnIntern, lnNrNave, lnProcCuplat, lnProcFaraMarfa, lnProcPericulos Local lnProcent, lnRteId2, lnTally1, lnTally2, lnTarif, lnValoareConvoi, lnValoareFinala, lnBazaConvoi, llBazaFaraDist Local lnValoareMinimaConvoi, lnValoareProcent, lnValoareX, lnVumId, loNava, llStornare lnClientId = This.nIdClient lnClientCtrId = This.nIdContractClient If Empty(m.lnClientId) And Empty(m.lnClientCtrId) AMESSAGEBOX('Alegeti un client si/sau un contract!', 0 + 48, _Screen.Caption) Return Endif llStornare = (This.chkStornare.Value = 1) lnStornoSemn = Iif(m.llStornare, -1, 1) lnClientCtrId2 = get_ctr_id_fara_contract() lnIntern = This.nIntern lnProcFaraMarfa = Iif(Type('gnACNPFmarfa') = 'N', m.gnACNPFmarfa, 0) && coeficient fara marfa lnProcCuplat = Iif(Type('gnIpsPCuplat') = 'N', m.gnIpsPCuplat, 0) && coeficient cuplat lnProcPericulos = Iif(Type('gnIpsPPer') = 'N', m.gnIpsPPericulos, 0) && coeficient periculos lnValoareMinimaConvoi = Iif(Type('gnIpsValoareMinConvoi') = 'N', m.gnIpsValoareMinConvoi, 0) && valoare minima convoi lnValoareFinala = This.cValoare_finala Calculate Sum(tcap) For ales = 1 To This.nCapacitateClient In crsVoyages * se cauta tariful pentru capacitatea totala a convoiului, nu doar pentru capacitatea navelor selectate pentru clientul respectiv, * in cazul in care convoiul este facturat catre mai multi clienti, toti beneficiaza de tariful scazut la capacitatea totala a convoiului Calculate Sum(tcap) TO lnCapacitateConvoi In crsVoyages *!* lnCapacitateConvoi = This.nCapacitateClient lnCapacitateCumulataClient = 0 * TARIFE CONTRACT TEXT To lcSql Textmerge Noshow SELECT T.Id,T.TCAP1,T.TCAP2,T.TCCAP1,T.TCCAP2,T.VALOARE,T.ID_VALUTA,T.VALUTA,T.INTERN,T.RTE_ID, T.GDSG_ID, V.UM As UM,V.Id As VUM_ID, T.GTN_ID, T.GDS_ID FROM (IPS_VTARIFE_TRANZIT T Left Join IPS_VVAS_UM V On T.VUM_ID=V.Id) WHERE T.ctr_ID = <> ENDTEXT llSucces = goExecutor.oExecuta(m.lcSql, 'tTarife') lnTally1 = Reccount('tTarife') * TARIFE FARA CONTRACT TEXT To m.lcSql Textmerge Noshow SELECT T.Id,T.TCAP1,T.TCAP2,T.TCCAP1,T.TCCAP2,T.VALOARE,T.ID_VALUTA,T.VALUTA,T.INTERN,T.RTE_ID, T.GDSG_ID, V.UM As UM,V.Id As VUM_ID, T.GTN_ID, T.GDS_ID FROM (IPS_VTARIFE_TRANZIT T Left Join IPS_VVAS_UM V On T.VUM_ID=V.Id) WHERE T.ctr_ID = <> ENDTEXT llSucces = goExecutor.oExecuta(m.lcSql, 'tTarife2') lnTally2 = Reccount('tTarife') && SELECTEZ NAVELE CLIENTULUI *!* 16.03.2010 Sele *, Recno() As NR From crsVoyages Where ales = 1 Into Cursor TNAVE_CLIENT lnNrNave = _Tally && PT FIECARE NAVA CALCULEZ TARIFUL SI VALOAREA Sele TNAVE_CLIENT Scan Scat Name loNava lnCoeficient = 100 && COEFICIENT CORECTOR lnCantitate = 1 lcUM = '' lcTipUM = "TC" If Nvl(loNava.CUPLAT, 0) = 0 m.lnCoeficient = m.lnCoeficient + m.lnProcCuplat Endif If Nvl(loNava.PERICULOS, 0) = 1 m.lnCoeficient = m.lnCoeficient + m.lnProcPericulos Endif Sele crsVasEchivalent Loca For Alltrim(VTP_ID) == Alltrim(loNava.VGRP_ID) If !Found() AMESSAGEBOX("Nu exista tipul navei (" + Allt(loNava.INDICATIV) + ") in tabelul ." + Chr(13) + "VTP_ID = " + Allt(Transform(loNava.GDSG_ID)), 0 + 48, _Screen.Caption) Loop Else lnVumId = VUM_ID lnIdGrupaNava = ID_GRUP Sele crsVasUM Loca For Id = m.lnVumId If Found() lcTipUM = Uppe(Allt(UM)) Endif Endif lnRteId2 = 21 loNava.RTE_ID = 23 && TARIF TC, BARJE SI NAVE FLUVIALE FARA MARFA lcConditieMarfa = "" Do Case Case Nvl(loNava.CARGO, 0) = 0 And Inlist(m.lcTipUM, "TC", "TRN") AND loNava.GDSG_ID <> 25 * navele fara marfa, exclusiv CONTAINERE (gdsg_id = 25)cu sau fara marfa lcConditieGrupaMarfa = [GDSG_ID = -1] lcConditieMarfa = [.T.] Otherwise lcConditieGrupaMarfa = [GDSG_ID = ] + Transform(loNava.GDSG_ID) lcConditieMarfa = [gds_id = '] + Transform(loNava.GDS_ID) + ['] Endcase lcConditieGrupaMarfaOrice = [GDSG_ID = 0] && TARIF LBT, TRN, HP - DUPA TIP NAVE lcConditieGrupaNava = [GTN_ID = ] + Transform(m.lnIdGrupaNava) lcLocate3 = "" lcLocate1Orice = "" && orice tip de marfa Do Case Case m.lcTipUM = "TC" lnCantitate = loNava.tcap lcUM = 'TON' lcLocate2 = [LOCA FOR 'TC'$UPPE(UM) AND INTERN=m.lnIntern AND (TCAP1<=] + Allt(Str(Abs(m.lnCapacitateConvoi))) + [ AND TCAP2>=] + Allt(Str(Abs(m.lnCapacitateConvoi))) + [) AND (TCCAP1<=] + Allt(Str(m.lnCapacitateCumulataClient)) + [ AND TCCAP2>] + Allt(Str(m.lnCapacitateCumulataClient)) + [) AND (RTE_ID=] + Allt(Str(loNava.RTE_ID)) + [ OR RTE_ID=] + Allt(Str(lnRteId2)) + [) ] lcLocate1 = m.lcLocate2 + [ AND ] + m.lcConditieGrupaMarfa lcLocate1Orice = m.lcLocate2 + [ AND ] + m.lcConditieGrupaMarfaOrice lcLocate3 = m.lcLocate1 + [ AND ] + m.lcConditieMarfa Case m.lcTipUM = "TRN" m.lnCantitate = loNava.TRN m.lcUM = 'TRN' lcLocate2 = [LOCA FOR 'TRN'$UPPE(UM) AND INTERN=m.lnIntern AND (RTE_ID=loNava.RTE_ID OR RTE_ID=lnRteId2)] + [ AND ] + m.lcConditieGrupaNava lcLocate1 = lcLocate2 + [ AND ] + m.lcConditieGrupaMarfa lcLocate1Orice = m.lcLocate2 + [ AND ] + m.lcConditieGrupaMarfaOrice lcLocate3 = m.lcLocate1 + [ AND ] + m.lcConditieMarfa Case INLIST(m.lcTipUM, "LBT", "LBD") m.lnCantitate = loNava.LBD m.lcUM = 'LBD' lcLocate2 = [LOCA FOR 'LBD'$UPPE(UM) AND INTERN=m.lnIntern AND (RTE_ID=loNava.RTE_ID OR RTE_ID=m.lnRteId2)] lcLocate1 = lcLocate2 + [ AND ] + m.lcConditieGrupaNava Case m.lcTipUM = "HP" m.lnCantitate = loNava.HP m.lcUM = 'HP' lcLocate2 = [LOCA FOR 'HP'$UPPE(UM) AND INTERN=m.lnIntern AND (RTE_ID=loNava.RTE_ID OR RTE_ID=m.lnRteId2)] lcLocate1 = lcLocate2 + [ AND ] + m.lcConditieGrupaNava Endcase lcMesaj1 = "" lcMesaj2 = "" llGasit = !Empty(lcLocate3) *!* CAUT TARIFELE INCLUSIV TIP MARFA PENTRU TC Sele TTARIFE If !Empty(lcLocate3) &lcLocate3 && caut in tarifele contractului inclusiv dupa grupa de marfa, tip marfa If !Found() Select TTARIFE2 &lcLocate3 && caut in tarifele generale inclusiv dupa grupa de marfa, tip marfa llGasit = Found() Else llGasit = .T. Endif Endif *!* DACA NU AM GASIT TARIFUL PENTRU TRN, LBT, HP, SAU DUPA TIP MARFA PENTRU TC If !llGasit Sele TTARIFE &lcLocate1 && caut in tarifele contractului inclusiv dupa grupa de marfa llGasit = Found() If !Found() If !Empty(m.lcLocate1Orice) && tariful pentru orice tip de marfa (GDSG_ID = 0) pentru TC Sele TTARIFE &lcLocate1Orice llGasit = Found() Else lcMesaj1 = 'Nu exista tarif pe contract pentru ' + Allt(loNava.INDICATIV) llGasit = .F. Endif If !m.llGasit Select TTARIFE2 &lcLocate1 && caut in tarifele generale inclusiv dupa grupa de marfa llGasit = Found() If !Found() If !Empty(m.lcLocate1Orice) && tariful pentru orice tip de marfa (GDSG_ID = 0) pentru TC Select TTARIFE2 &lcLocate1Orice llGasit = Found() Else lcMesaj2 = 'Nu exista tarif general pentru ' + Allt(loNava.INDICATIV) llGasit = .F. Endif If !m.llGasit AMESSAGEBOX(m.lcMesaj1 + Chr(13) + m.lcMesaj2, 0 + 48, _Screen.Caption) Loop Endif Endif Endif Endif Endif *!* 11.12.2009 ^ lcCursorTarife = Alias() Select(m.lcCursorTarife) lnTarif = valoare lcValuta = valuta lnIdValuta = id_valuta *** Coeficientul fara marfa, cuplat, marfa periculoasa Sele crsVoyages Goto loNava.NR Repl corect With Round(m.lnCoeficient / 100, 3) *** Coeficientul de distanta: Nr. de km din 64.4 Replace procdist With MIN(Round(Abs(distanta) / 64.4, m.gnProcDistPrecizie), 1.00) Repl tarif With m.lnTarif, valuta With m.lcValuta, id_valuta With m.lnIdValuta, procdiv With Nvl(procdiv, 0) Repl cant With m.lnStornoSemn * m.lnCantitate, UM With m.lcUM Repl valval With Round(tarif * cant * procdist * (corect + procdiv), 2) loNava = '' Sele TNAVE_CLIENT Endscan ****************** && COMPLETEZ VALOAREA TARIFULUI IN MEMBRII VOIAJULUI Use In (Select('TNAVE_CLIENT')) Use In (Select('TTARIFE')) Use In (Select('TTARIFE2')) Select crsVoyages CALCULATE Sum(VALVAL) To lnValoareConvoi For ales = 1 && DACA VALOAREA CONVOIULUI ESTE MAI MICA DECAT VALOAREA MINIMA && INLOCUIESC VALORILE IN VALUTA CU EURO, VALORILE IN LEI, TVA PT FIECARE NAVA ALEASA * Daca valoarea convoiului este mai mica decat valoarea minima, initializez valoarea finala cu valoarea minima pentru a recalcula valorile pe nave aferente noii valorii finale If m.lnValoareConvoi <= m.lnValoareMinimaConvoi And m.lnValoareConvoi > 0 And m.lnValoareFinala = 0 lnValoareFinala = m.lnValoareMinimaConvoi Endif If m.lnValoareFinala <> 0 AND m.lnValoareConvoi <> m.lnValoareFinala * valoarea finala = valoarea scrisa cu mana de utilizator llBazaFaraDist = .F. && .T. cand procdist a fost rotunjit la 0 si repartizez dupa baza fara coeficient de distanta Sele crsVoyages If m.lnValoareConvoi <> 0 Replace All VALVAL With Round(m.lnValoareFinala * VALVAL / m.lnValoareConvoi, m.gnPC) For ales = 1 ELSE * coeficientul de distanta a fost rotunjit la 0 (distante scurte) => valval = 0 pe toate navele. * repartizez valoarea finala proportional cu baza fara coeficient de distanta: tarif * cant * (corect + procdiv) Calculate Sum(tarif * cant * (corect + procdiv)) To lnBazaConvoi For ales = 1 If m.lnBazaConvoi <> 0 llBazaFaraDist = .T. Replace All VALVAL With Round(m.lnValoareFinala * (tarif * cant * (corect + procdiv)) / m.lnBazaConvoi, m.gnPC) For ales = 1 Endif Endif * LA STORNARE RECALCULEZ CANTITATEA, STORNEZ PARTIAL INDICATORII TCAP/TRN/LBD/HP IF m.lnValoareFinala < 0 && stornare, recalculez cantitatea IF m.llBazaFaraDist * procdist = 0: recalculez cantitatea din baza fara coeficient de distanta (tarif * (corect + procdiv)) REPLACE ALL CANT With IIF(tarif * (corect + procdiv) <> 0, ROUND(valval / (tarif * (corect + procdiv)), 2), cant) For ales = 1 ELSE REPLACE ALL CANT With ROUND(valval / tarif * procdist * (corect + procdiv), 2) For ales = 1 ENDIF ELSE * Recalculez tariful astfel in functie de valoarea finala * NU MAI RECALCULEZ TARIFUL!!! SAU CANTITATEA PENTRU CA PE RECAPITULATIE SA APARA TARIFUL CORECT DE INCADRARE SI TCAP/TRN/LBD/HP ALE NAVEI, CHIAR DACA VALOAREA NU ESTE EGALA * REPLACE ALL TARIF WITH ROUND(valval/(cant * procdist * (corect + procdiv)), 4) ENDIF * diferenta dintre suma calculata si valoarea finala o pun pe primul rand Calculate Sum(valval) To lnValoareConvoi For ales = 1 In crsVoyages Locate For ales = 1 If Found() Replace valval With valval + (m.lnValoareFinala - m.lnValoareConvoi) Endif Thisform.nTipRecap = 1 Endif Calculate Sum(VALVAL) For ales = 1 To lnValoareConvoi In crsVoyages Thisform.CVALOARE_CONVOI = m.lnValoareConvoi This.but_terMIN1.Enabled = .T. && activez butonul Termin dupa calculul de tarife Thisform.txtValConvoi.Refresh() ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE getcontracteclient Lparameters tcIdPart Local lcSource, lcSelect lcSelect = SELECT() lcSource = This.cboContract.RowSource This.cboContract.RowSource = [] Do make_contracte With "id_part=" + Alltrim(Str(m.tcIdPart)) && crsContracte SELECT crsContracte GO TOP This.cboContract.RowSource = m.lcSource SELECT (m.lcSelect) ENDPROC PROCEDURE inainte_de_do_termin Local lcVVIds Update crsVoyage ; Set client_id = Thisform.nIdClient, ; client_ctr_id = Thisform.nIdContractClient, ; eagent = Thisform.nEAgent, ; beneficiar_id = Thisform.nIdBeneficiar, ; tiprecap = Thisform.nTipRecap, ; intern = Thisform.nIntern SELECT crsVoyages LOCATE FOR ales=1 AND !EMPTY(tarif) IF !FOUND() AMESSAGEBOX('Calculati tarifele!', 0+48, _screen.Caption) RETURN .F. ENDIF lcVVIds = salvare_tranzit() && proceduri_acnpro.prg poDate.uuid = m.lcVVIds If Empty(m.lcVVIds) AMESSAGEBOX('Eroare salvare informatii tranzit!',0+48,_screen.Caption) RETURN .F. ELSE RETURN .T. Endif ENDPROC PROCEDURE Init Lparameters tcTitlu, tcEcluzari DoDefault() If !Empty(m.tcTitlu) And Type('tcTitlu') = 'C' This.lb_titlu_alb_b121.Caption = Alltrim(Nvl(m.tcTitlu,'')) Endif If !Empty(m.tcEcluzari) And Type('tcEcluzari') = 'C' This.lblEcluzari.Caption = Alltrim(Nvl(m.tcEcluzari,'')) Endif With Thisform If Used('crsCapFactura') Select crsCapFactura Go Top .cDenumireClient = Alltrim(Nvl(client, '')) .nIdClient = client_id .cContractClient = Alltrim(Nvl(contract_client, '')) .nIdContractClient = client_ctr_id .cDenumireBeneficiar = Alltrim(Nvl(beneficiar, '')) .nIdBeneficiar = beneficiar_id .nEAgent = eagent .nIntern = intern Endif ENDWITH Calculate Sum(tcap) To This.nCapacitateTotal In crsVoyages Go Top In crsVoyages * ROSU = navele care nu au trecut prin toate ecluzele (ecldif = 1) this.grdTranzit.SetAll("DynamicForeColor", "IIF(ecldif = 1, RGB(255,0,0), RGB(0,0,0))", "Column") this.WindowState = 2 ENDPROC PROCEDURE Show Lparameters nStyle DODEFAULT(nStyle) Select crsVoyages This.grdTranzit.SetFocus() This.WindowState = 2 ENDPROC PROCEDURE cboContract.Valid Thisform.nIdContractClient = crsContracte.id_ctr ENDPROC PROCEDURE grdTranzit.cGrupaMarfa.Combo1.Valid Local lnMgrpID Local lcGdsID, lcGrupa lcGdsID = ALLTRIM(NVL(crsVoyages.gds_id, '')) lnMgrpID = NVL(crsGrupeMarfa.id, 0) lcGrupa = ALLTRIM(NVL(crsGrupeMarfa.grupa, '')) REPL ALL GRP_ID WITH m.lnMgrpId, grupa_marfa WITH m.lcGrupa FOR ALLTRIM(NVL(GDS_ID, '')) = m.lcGdsID IN crsVoyages ENDPROC PROCEDURE grdTranzit.cGrupaVas.Combo1.Valid Local lcGrupa, lcVTPID, lcVgrpID lcVTPID = ALLTRIM(NVL(crsVoyages.vtp_id, '')) lcVgrpID = ALLTRIM(NVL(crsGrupeVase.id, '')) lcGrupa = ALLTRIM(NVL(crsGrupeVase.grupa, '')) REPL ALL VGRP_ID WITH m.lcVgrpID, grupa_nava WITH m.lcGrupa FOR ALLTRIM(NVL(VTP_ID, '')) = m.lcVTPID IN crsVoyages ENDPROC PROCEDURE grdTranzit.CINDICATIV.Text1.DblClick BROWSE ENDPROC PROCEDURE grdTranzit.cruta.Combo1.Valid REPLACE rte_id with crsRoutes.id IN crsVoyages this.parent.parent.refresh ENDPROC PROCEDURE grdTranzit.ctipvas.Combo1.Valid SELE crsVoyages REPLACE vtp_id WITH crsVesselTypes.id ENDPROC PROCEDURE grdTranzit.ctipvas._combobox1.Valid SELE crsVoyages REPLACE vtp_id WITH crsVesselTypes.id ENDPROC PROCEDURE txtValFinala.Valid IF (thisform.chkStornare.value = 0) AND this.Value < 0 thisform.chkStornare.Value = 1 thisform.chkStornare.Refresh() ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_cheiaje_nave 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="But_start_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column3.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column3.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column4.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column4.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column5.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column5.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTotalFaraTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTotalFaraTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column7.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column7.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cDeclaratie.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cDeclaratie.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column9.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column9.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column10.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column10.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column11.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column11.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column12.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column12.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column13.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column13.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column14.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column14.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column15.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column15.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column16.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column16.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column17.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column17.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column18.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column18.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column19.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column19.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValftva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValftva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValTva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValTva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValcTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValcTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column23.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column23.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column24.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column24.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValval.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cValval.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTvaval.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTvaval.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTotval.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTotval.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCap.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCap.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTRN.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTRN.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLung.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLung.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCP.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCP.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLbd.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLbd.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cZi.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cZi.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCapVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCapVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTrnVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cTrnVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLungVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLungVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCpVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cCpVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLbdVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cLbdVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cZiVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.cZiVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column40.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column40.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column41.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column41.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column42.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdCheiaj.Column42.Text1" UniqueID="" Timestamp="" /> * *p: ntip && 0=tranzit, 1=cheiaj * * BorderStyle = 3 DoCreate = .T. Height = 460 LockScreen = .T. Name = "frm_cheiaje_nave" ntip = 0 Width = 792 WindowState = 2 _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 793 _shape2.Left = 741 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Registru cheiaj" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 761 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 780 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 449 * ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; ccolwithlabel = cDeclaratie, ; csourcegrid = thisform.grdCheiaj, ; csumcolumns = cValftva, cValtva, cValctva, cValval, cTvaval, cTotval, cCap, cTrn, cLung, cCp, cLbd, cZi, cCapVal, cTrnVal, cLungVal, cCpVal, cLbdVal, cZiVal, ; Left = 12, ; Name = "_grdfooter1", ; Top = 420, ; Width = 771 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 8, ; Left = 732, ; Name = "But_excel1", ; 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 = 672, ; Name = "But_reset_criterii1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; Anchor = 9, ; Comment = "*:OnResize=RT", ; Left = 701, ; Name = "But_start_criterii1", ; Top = 1 *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grdCheiaj' AS _grdbase WITH ; Anchor = 15, ; BackColor = 255,255,255, ; ColumnCount = 42, ; DeleteMark = .F., ; FontSize = 10, ; GridLineColor = 192,192,192, ; Height = 383, ; lcamptextneeditabil = .F., ; Left = 12, ; Name = "grdCheiaj", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crscheiaje", ; RowHeight = 19, ; TabIndex = 5, ; Top = 36, ; Width = 771, ; Column1.BackColor = 255,255,255, ; Column1.ColumnOrder = 5, ; Column1.ControlSource = "TTOD(data_act)", ; Column1.FontSize = 10, ; Column1.Name = "Column1", ; Column1.ReadOnly = .T., ; Column1.Width = 75, ; Column2.BackColor = 255,255,255, ; Column2.ColumnOrder = 4, ; Column2.ControlSource = "crscheiaje.numar_act", ; Column2.FontSize = 10, ; Column2.Name = "Column2", ; Column2.ReadOnly = .T., ; Column2.Width = 85, ; Column3.BackColor = 255,255,255, ; Column3.ColumnOrder = 6, ; Column3.ControlSource = "crscheiaje.client", ; Column3.FontSize = 10, ; Column3.Name = "Column3", ; Column3.ReadOnly = .T., ; Column3.Width = 165, ; Column4.BackColor = 255,255,255, ; Column4.ColumnOrder = 7, ; Column4.ControlSource = "crscheiaje.contract", ; Column4.FontSize = 10, ; Column4.Name = "Column4", ; Column4.ReadOnly = .T., ; Column4.Width = 106, ; Column5.BackColor = 255,255,255, ; Column5.ColumnOrder = 8, ; Column5.ControlSource = "crscheiaje.beneficiar", ; Column5.FontSize = 10, ; Column5.Name = "Column5", ; Column5.ReadOnly = .T., ; Column5.Width = 114, ; Column6.BackColor = 255,255,255, ; Column6.ColumnOrder = 9, ; Column6.ControlSource = "crscheiaje.total_fara_tva", ; Column6.FontSize = 10, ; Column6.InputMask = "999 999 999.99", ; Column6.Name = "cTotalFaraTVA", ; Column6.ReadOnly = .T., ; Column6.Width = 129, ; Column7.BackColor = 255,255,255, ; Column7.ColumnOrder = 10, ; Column7.ControlSource = "crscheiaje.port", ; Column7.FontSize = 10, ; Column7.Name = "Column7", ; Column7.ReadOnly = .T., ; Column7.Width = 75, ; Column8.BackColor = 255,255,255, ; Column8.ColumnOrder = 1, ; Column8.ControlSource = "crscheiaje.declaratie", ; Column8.FontSize = 10, ; Column8.Name = "cDeclaratie", ; Column8.ReadOnly = .T., ; Column8.Width = 75, ; Column9.BackColor = 255,255,255, ; Column9.ColumnOrder = 2, ; Column9.ControlSource = "crscheiaje.document", ; Column9.FontSize = 10, ; Column9.Name = "Column9", ; Column9.ReadOnly = .T., ; Column9.Width = 75, ; Column10.BackColor = 255,255,255, ; Column10.ColumnOrder = 11, ; Column10.ControlSource = "crscheiaje.vas", ; Column10.FontSize = 10, ; Column10.Name = "Column10", ; Column10.ReadOnly = .T., ; Column10.Width = 75, ; Column11.BackColor = 255,255,255, ; Column11.ColumnOrder = 14, ; Column11.ControlSource = "crscheiaje.dana", ; Column11.FontSize = 10, ; Column11.Name = "Column11", ; Column11.ReadOnly = .T., ; Column11.Width = 147, ; Column12.BackColor = 255,255,255, ; Column12.ColumnOrder = 15, ; Column12.ControlSource = "crscheiaje.ctip", ; Column12.FontSize = 10, ; Column12.Name = "Column12", ; Column12.ReadOnly = .T., ; Column12.Width = 126, ; Column13.BackColor = 255,255,255, ; Column13.ColumnOrder = 16, ; Column13.ControlSource = "crscheiaje.cant", ; Column13.FontSize = 10, ; Column13.InputMask = "999 999.9999", ; Column13.Name = "Column13", ; Column13.ReadOnly = .T., ; Column13.Width = 75, ; Column14.BackColor = 255,255,255, ; Column14.ColumnOrder = 17, ; Column14.ControlSource = "crscheiaje.um", ; Column14.FontSize = 10, ; Column14.Name = "Column14", ; Column14.ReadOnly = .T., ; Column14.Width = 61, ; Column15.BackColor = 255,255,255, ; Column15.ColumnOrder = 18, ; Column15.ControlSource = "crscheiaje.tarif", ; Column15.FontSize = 10, ; Column15.InputMask = "999 999.9999", ; Column15.Name = "Column15", ; Column15.ReadOnly = .T., ; Column15.Width = 75, ; Column16.BackColor = 255,255,255, ; Column16.ColumnOrder = 19, ; Column16.ControlSource = "crscheiaje.articol", ; Column16.FontSize = 10, ; Column16.Name = "Column16", ; Column16.ReadOnly = .T., ; Column16.Width = 205, ; Column17.BackColor = 255,255,255, ; Column17.ColumnOrder = 20, ; Column17.ControlSource = "crscheiaje.datai", ; Column17.FontSize = 10, ; Column17.Name = "Column17", ; Column17.ReadOnly = .T., ; Column17.Width = 122, ; Column18.BackColor = 255,255,255, ; Column18.ColumnOrder = 21, ; Column18.ControlSource = "crscheiaje.datap", ; Column18.FontSize = 10, ; Column18.Name = "Column18", ; Column18.ReadOnly = .T., ; Column18.Width = 128, ; Column19.BackColor = 255,255,255, ; Column19.ColumnOrder = 22, ; Column19.ControlSource = "crscheiaje.durata", ; Column19.FontSize = 10, ; Column19.Name = "Column19", ; Column19.ReadOnly = .T., ; Column19.Width = 42, ; Column20.BackColor = 255,255,255, ; Column20.ColumnOrder = 23, ; Column20.ControlSource = "crscheiaje.valftva", ; Column20.FontSize = 10, ; Column20.InputMask = "999 999 999.99", ; Column20.Name = "cValftva", ; Column20.ReadOnly = .T., ; Column20.Width = 102, ; Column21.BackColor = 255,255,255, ; Column21.ColumnOrder = 24, ; Column21.ControlSource = "crscheiaje.valtva", ; Column21.FontSize = 10, ; Column21.InputMask = "999 999 999.99", ; Column21.Name = "cValTva", ; Column21.ReadOnly = .T., ; Column21.Width = 75, ; Column22.BackColor = 255,255,255, ; Column22.ColumnOrder = 25, ; Column22.ControlSource = "crscheiaje.valctva", ; Column22.FontSize = 10, ; Column22.InputMask = "999 999 999.99", ; Column22.Name = "cValcTVA", ; Column22.ReadOnly = .T., ; Column22.Width = 95, ; Column23.BackColor = 255,255,255, ; Column23.ColumnOrder = 29, ; Column23.ControlSource = "crscheiaje.nume_val", ; Column23.FontSize = 10, ; Column23.Name = "Column23", ; Column23.ReadOnly = .T., ; Column23.Width = 41, ; Column24.BackColor = 255,255,255, ; Column24.ColumnOrder = 30, ; Column24.ControlSource = "crscheiaje.curs", ; Column24.FontSize = 10, ; Column24.InputMask = "999 999.9999", ; Column24.Name = "Column24", ; Column24.ReadOnly = .T., ; Column24.Width = 75, ; Column25.BackColor = 255,255,255, ; Column25.ColumnOrder = 26, ; Column25.ControlSource = "crscheiaje.valval", ; Column25.FontSize = 10, ; Column25.InputMask = "999 999 999.99", ; Column25.Name = "cValval", ; Column25.ReadOnly = .T., ; Column25.Width = 139, ; Column26.BackColor = 255,255,255, ; Column26.ColumnOrder = 27, ; Column26.ControlSource = "crscheiaje.tvaval", ; Column26.FontSize = 10, ; Column26.InputMask = "999 999 999.99", ; Column26.Name = "cTvaval", ; Column26.ReadOnly = .T., ; Column26.Width = 114, ; Column27.BackColor = 255,255,255, ; Column27.ColumnOrder = 28, ; Column27.ControlSource = "crscheiaje.totval", ; Column27.FontSize = 10, ; Column27.InputMask = "999 999 999.99", ; Column27.Name = "cTotval", ; Column27.ReadOnly = .T., ; Column27.Width = 132, ; Column28.BackColor = 255,255,255, ; Column28.ColumnOrder = 31, ; Column28.ControlSource = "crscheiaje.cap", ; Column28.FontSize = 10, ; Column28.InputMask = "999 999 999.99", ; Column28.Name = "cCap", ; Column28.ReadOnly = .T., ; Column28.Width = 75, ; Column29.BackColor = 255,255,255, ; Column29.ColumnOrder = 32, ; Column29.ControlSource = "crscheiaje.trn", ; Column29.FontSize = 10, ; Column29.InputMask = "999 999 999.99", ; Column29.Name = "cTRN", ; Column29.ReadOnly = .T., ; Column29.Width = 75, ; Column30.BackColor = 255,255,255, ; Column30.ColumnOrder = 33, ; Column30.ControlSource = "crscheiaje.lung", ; Column30.FontSize = 10, ; Column30.InputMask = "999 999 999.99", ; Column30.Name = "cLung", ; Column30.ReadOnly = .T., ; Column30.Width = 75, ; Column31.BackColor = 255,255,255, ; Column31.ColumnOrder = 34, ; Column31.ControlSource = "crscheiaje.cp", ; Column31.FontSize = 10, ; Column31.InputMask = "999 999 999.99", ; Column31.Name = "cCP", ; Column31.ReadOnly = .T., ; Column31.Width = 75, ; Column32.BackColor = 255,255,255, ; Column32.ColumnOrder = 35, ; Column32.ControlSource = "crscheiaje.lbd", ; Column32.FontSize = 10, ; Column32.InputMask = "999 999 999.99", ; Column32.Name = "cLbd", ; Column32.ReadOnly = .T., ; Column32.Width = 75, ; Column33.BackColor = 255,255,255, ; Column33.ColumnOrder = 36, ; Column33.ControlSource = "crscheiaje.zi", ; Column33.FontSize = 10, ; Column33.Name = "cZi", ; Column33.ReadOnly = .T., ; Column33.Width = 47, ; Column34.BackColor = 255,255,255, ; Column34.ColumnOrder = 37, ; Column34.ControlSource = "crscheiaje.cap_val", ; Column34.FontSize = 10, ; Column34.InputMask = "999 999 999.99", ; Column34.Name = "cCapVal", ; Column34.ReadOnly = .T., ; Column34.Width = 86, ; Column35.BackColor = 255,255,255, ; Column35.ColumnOrder = 38, ; Column35.ControlSource = "crscheiaje.trn_val", ; Column35.FontSize = 10, ; Column35.InputMask = "999 999 999.99", ; Column35.Name = "cTrnVal", ; Column35.ReadOnly = .T., ; Column35.Width = 75, ; Column36.BackColor = 255,255,255, ; Column36.ColumnOrder = 39, ; Column36.ControlSource = "crscheiaje.lung_val", ; Column36.FontSize = 10, ; Column36.InputMask = "999 999 999.99", ; Column36.Name = "cLungVal", ; Column36.ReadOnly = .T., ; Column36.Width = 101, ; Column37.BackColor = 255,255,255, ; Column37.ColumnOrder = 40, ; Column37.ControlSource = "crscheiaje.cp_val", ; Column37.FontSize = 10, ; Column37.InputMask = "999 999 999.99", ; Column37.Name = "cCpVal", ; Column37.ReadOnly = .T., ; Column37.Width = 75, ; Column38.BackColor = 255,255,255, ; Column38.ColumnOrder = 41, ; Column38.ControlSource = "crscheiaje.lbd_val", ; Column38.FontSize = 10, ; Column38.InputMask = "999 999 999.99", ; Column38.Name = "cLbdVal", ; Column38.ReadOnly = .T., ; Column38.Width = 75, ; Column39.BackColor = 255,255,255, ; Column39.ColumnOrder = 42, ; Column39.ControlSource = "crscheiaje.zi_val", ; Column39.FontSize = 10, ; Column39.InputMask = "999 999 999.99", ; Column39.Name = "cZiVal", ; Column39.ReadOnly = .T., ; Column39.Width = 75, ; Column40.BackColor = 255,255,255, ; Column40.ColumnOrder = 3, ; Column40.ControlSource = "crscheiaje.serie_act", ; Column40.FontSize = 10, ; Column40.Name = "Column40", ; Column40.ReadOnly = .T., ; Column41.BackColor = 255,255,255, ; Column41.ColumnOrder = 12, ; Column41.ControlSource = "crscheiaje.tip_vas", ; Column41.FontSize = 10, ; Column41.Name = "Column41", ; Column41.ReadOnly = .T., ; Column41.Width = 112, ; Column42.BackColor = 255,255,255, ; Column42.ColumnOrder = 13, ; Column42.ControlSource = "crscheiaje.grupa_vas", ; Column42.FontSize = 10, ; Column42.Name = "Column42", ; Column42.ReadOnly = .T., ; Column42.Width = 119 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdCheiaj.cCap.Header1' AS header WITH ; Alignment = 2, ; Caption = "TCAP", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cCap.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cCapVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare TCAP", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cCapVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cCP.Header1' AS header WITH ; Alignment = 2, ; Caption = "HP", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cCP.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cCpVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare HP", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cCpVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cDeclaratie.Header1' AS header WITH ; Alignment = 2, ; Caption = "Declaratie", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cDeclaratie.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cLbd.Header1' AS header WITH ; Alignment = 2, ; Caption = "LBD", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cLbd.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cLbdVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare LBD", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cLbdVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cLung.Header1' AS header WITH ; Alignment = 2, ; Caption = "Lungime", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cLung.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cLungVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare Lungime", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cLungVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data factura", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column10.Header1' AS header WITH ; Alignment = 2, ; Caption = "Vas", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column10.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column11.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip stationare ROA/dana", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column11.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column12.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip stationare RORIS", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column12.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column13.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column13.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column14.Header1' AS header WITH ; Alignment = 2, ; Caption = "UM", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column14.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column15.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tarif", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column15.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column16.Header1' AS header WITH ; Alignment = 2, ; Caption = "Articol", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column16.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column17.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data inceput", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column17.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column18.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data sfarsit", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column18.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column19.Header1' AS header WITH ; Alignment = 2, ; Caption = "Durata", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column19.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Numar factura", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column23.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column23.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column24.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column24.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column3.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column4.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column40.Header1' AS header WITH ; Alignment = 2, ; Caption = "Serie factura", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column40.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column41.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip vas", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column41.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column42.Header1' AS header WITH ; Alignment = 2, ; Caption = "Grupa vas", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column42.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Beneficiar", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column5.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column7.Header1' AS header WITH ; Alignment = 2, ; Caption = "Locatie", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column7.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.Column9.Header1' AS header WITH ; Alignment = 2, ; Caption = "Document", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.Column9.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cTotalFaraTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Total fara TVA factura", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cTotalFaraTVA.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cTotval.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta cu TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cTotval.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cTRN.Header1' AS header WITH ; Alignment = 2, ; Caption = "TRN", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cTRN.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cTrnVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare TRN", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cTrnVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cTvaval.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cTvaval.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cValcTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare cu TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cValcTVA.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cValftva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare fara TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cValftva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cValTva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cValTva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cValval.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta fara TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cValval.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cZi.Header1' AS header WITH ; Alignment = 2, ; Caption = "Zi", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cZi.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdCheiaj.cZiVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare Zi", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdCheiaj.cZiVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.grdCheiaj, ; Left = 780, ; Name = "Gridextra1", ; productname = ROA, ; Top = 180 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> PROCEDURE Activate * ENDPROC PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.LockScreen=.F. save_grid_tag(This.grdCheiaj) poCheiaje.ca_baza1.cfiltru = m.lcFiltru poCheiaje.ca_baza1.afisare() SELECT crsCheiaje Go Top restore_grid_tag(This.grdCheiaj) This.grdCheiaj.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_cauta LOCAL lcfiltru, lcval1, lcColoana, ldData1, ldData2 lcfiltru='' * DACA FILTRUL NU CONTINE DATA_ACT, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA ldData1 = DATE(m.gnAn, m.gnLuna, 1) ldData2 = GOMONTH(m.ldData1,1) - 1 IF !(' DATA_ACT '$upper(THISFORM.filtru_pretty)) lcFiltru = m.lcFiltru + [ and data_act between to_date('] + DTOC(m.ldData1,1) + [', 'yyyymmdd') and to_date('] + DTOC(m.ldData2,1) + [', 'yyyymmdd')] ENDIF * Filtre buton cautare IF LEN(THISFORM.filtru_pretty)>0 lcFiltru = m.lcFiltru + " and (" + ALLTRIM(THISFORM.filtru_pretty) + ")" ENDIF If Empty(m.lcFiltru) aMessagebox("Alegeti un criteriu!",0+48,"Atentie") This.cb_tx_cautare1.criteriu.SetFocus() Return Endif IF !EMPTY(m.lcFiltru) AND LEFT(LOWER(ALLTRIM(m.lcFiltru)),3) = "and" lcFiltru = SUBSTR(ALLTRIM(m.lcFiltru),4) ENDIF IF !EMPTY(m.lcFiltru) THISFORM.actualizeaza_grid1(lcFiltru) this._grdfooter1.Calctotal() ENDIF SELECT crsCheiaje Return m.lcFiltru ENDPROC PROCEDURE do_excel do export_excel_grid WITH thisform.grdCheiaj,"data_act,numar_act,client,contract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg ENDPROC PROCEDURE Show LPARAMETERS nStyle DODEFAULT(nStyle) this.WindowState = 2 this.gridextra1.setup() THIS._grdfooter1.attachtogrid(This.grdCheiaj) This.do_cauta() ENDPROC PROCEDURE But_start_criterii1.loadcriterii PARAMETERS tacriterii EXTERNAL ARRAY tacriterii #DEFINE crlf CHR(13)+CHR(10) lcStringCriterii="Serie factura\serie_act\T\none\"+ crlf + ; "Numar factura\numar_act\N\none\" + crlf + ; "Data factura\data_act\D\none\" + crlf + ; "Client\client\T\client_id\nom_parteneri"+ crlf + ; "Contract\contract_client\T\client_ctr_id\nom_contracte"+ crlf + ; "Beneficiar\beneficiar\T\beneficiar_id\nom_parteneri"+ crlf + ; "Armator\armator\T\none\"+ crlf + ; "Declaratia\declaratio\T\none\"+ crlf + ; "Document\document\T\none\"+ crlf + ; "Locatie\port\T\none\" DODEFAULT() ENDPROC ENDDEFINE DEFINE CLASS frm_configurare_articole_conturi 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="grdArticole" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cDescriere.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cDescriere.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cDenumire.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cDenumire.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cNumar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cNumar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cGrupa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cGrupa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cSubgrupa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cSubgrupa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.Column6.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.Column6.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cIdArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdArticole.cIdArticol.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cb_tx_cautare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtaiCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtaiCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtAeCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtAeCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cLocatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cLocatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cLocatia.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtdebitor.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtdebitor.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtaidDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtaidDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtaeDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtaeDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtCreditor.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtCreditor.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtPiDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtPiDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtApiDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtApiDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtPiCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtPiCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtApiCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdConturi.cCtApiCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_modifica2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Sfsplitterh1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> * *m: do_adauga_articol *m: do_cauta_partener *m: do_executa2 *m: do_modifica_articol *m: do_sterge_articol *m: getcontracteclient * * BorderStyle = 3 bvizualizare = .T. DoCreate = .T. Height = 401 Name = "frm_configurare_articole_conturi" Width = 779 WindowState = 2 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape1.ZOrderSet = 0 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.ZOrderSet = 1 Lb_titlu_alb_b121.Caption = "Configurare articole / conturi pe locatii" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 9 Lb_titlu_alb_b121.ZOrderSet = 2 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 10 BUT_TERMIN1.Top = 0 BUT_TERMIN1.ZOrderSet = 3 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label3' AS _label WITH ; Caption = "Prestatii", ; Left = 10, ; Name = "_label3", ; Top = 35, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'But_modifica2' AS but_modifica WITH ; Anchor = 0, ; caction = do_modifica_articol, ; Left = 385, ; Name = "But_modifica2", ; Top = 56, ; Visible = .T., ; ZOrderSet = 11 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 8, ; Left = 711, ; Name = "But_nou1", ; Top = 56, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou2' AS but_nou WITH ; Anchor = 0, ; caction = do_adauga_articol, ; Left = 357, ; Name = "But_nou2", ; Top = 56, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 720, ; Name = "But_renunt1", ; Top = 0, ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 8, ; Left = 740, ; Name = "But_sterge1", ; Top = 56, ; Visible = .T., ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge2' AS but_sterge WITH ; Anchor = 0, ; caction = do_sterge_articol, ; Left = 412, ; Name = "But_sterge2", ; Top = 56, ; Visible = .T., ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ; Height = 27, ; Left = 8, ; Name = "Cb_tx_cautare1", ; Top = 56, ; Width = 304, ; ZOrderSet = 6, ; Text.Height = 25, ; Text.Left = 103, ; Text.Name = "Text", ; Text.Top = 1, ; Text.Width = 197, ; Criteriu.Name = "Criteriu" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'grdArticole' AS _grdbase WITH ; Anchor = 5, ; ColumnCount = 7, ; DeleteMark = .F., ; FontName = "Arial", ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 8, ; Name = "grdArticole", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .T., ; RecordSource = "crsArticole", ; RowHeight = 19, ; TabIndex = 2, ; Top = 87, ; Width = 436, ; ZOrderSet = 5, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "descriere", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cDescriere", ; Column1.ReadOnly = .T., ; Column1.Width = 115, ; Column2.ColumnOrder = 1, ; Column2.ControlSource = "denumire", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cDenumire", ; Column2.ReadOnly = .T., ; Column2.Width = 198, ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "codmat", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "cNumar", ; Column3.ReadOnly = .T., ; Column3.Width = 82, ; Column4.ColumnOrder = 5, ; Column4.ControlSource = "grupa", ; Column4.FontName = "Arial", ; Column4.Name = "cGrupa", ; Column4.ReadOnly = .T., ; Column4.Width = 125, ; Column5.ColumnOrder = 6, ; Column5.ControlSource = "subgrupa", ; Column5.FontName = "Arial", ; Column5.Name = "cSubgrupa", ; Column5.ReadOnly = .T., ; Column5.Width = 117, ; Column6.ColumnOrder = 4, ; Column6.ControlSource = "um", ; Column6.FontName = "Arial", ; Column6.Name = "Column6", ; Column6.ReadOnly = .T., ; Column6.Width = 33, ; Column7.ControlSource = "id_articol", ; Column7.FontName = "Arial", ; Column7.Name = "cIdArticol", ; Column7.ReadOnly = .T., ; Column7.Width = 88 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdArticole.cDenumire.Header1' AS header WITH ; Alignment = 2, ; Caption = "Denumire", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticole.cDenumire.Text1' AS textbox WITH ; FontName = "Arial", ; FontSize = 10, ; Height = 23, ; Left = 46, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255, ; Top = 35, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticole.cDescriere.Header1' AS header WITH ; Alignment = 2, ; Caption = "Descriere", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticole.cDescriere.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticole.cGrupa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Grupa", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticole.cGrupa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticole.cIdArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Id", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticole.cIdArticol.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticole.cNumar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticole.cNumar.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticole.Column6.Header1' AS header WITH ; Alignment = 2, ; Caption = "UM", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticole.Column6.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdArticole.cSubgrupa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Subgrupa", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdArticole.cSubgrupa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 11, ; DeleteMark = .F., ; HeaderHeight = 51, ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 456, ; Name = "grdConturi", ; Panel = 1, ; ReadOnly = .F., ; RecordSource = "crsConturi", ; RowHeight = 19, ; Top = 87, ; Width = 316, ; ZOrderSet = 8, ; Column1.ColumnOrder = 6, ; Column1.ControlSource = "ctaicred", ; Column1.FontSize = 10, ; Column1.Format = "K", ; Column1.Name = "cCtaiCred", ; Column1.ReadOnly = .F., ; Column1.Width = 60, ; Column2.ColumnOrder = 7, ; Column2.ControlSource = "ctaecred", ; Column2.FontSize = 10, ; Column2.Format = "k", ; Column2.Name = "cCtAeCred", ; Column2.ReadOnly = .F., ; Column2.Width = 63, ; Column3.Bound = .F., ; Column3.ColumnOrder = 1, ; Column3.ControlSource = "Iif(Seek(crsConturi.id_locatia,'crsLocatii','id'),crsLocatii.denumire,'')", ; Column3.CurrentControl = "Combo1", ; Column3.FontSize = 10, ; Column3.Name = "cLocatia", ; Column3.ReadOnly = .F., ; Column3.Sparse = .F., ; Column3.Width = 120, ; Column4.ColumnOrder = 2, ; Column4.ControlSource = "ctdebitor", ; Column4.FontSize = 10, ; Column4.Format = "K", ; Column4.Name = "cCtdebitor", ; Column4.ReadOnly = .F., ; Column4.Width = 53, ; Column5.ColumnOrder = 3, ; Column5.ControlSource = "ctaideb", ; Column5.CurrentControl = "Text1", ; Column5.FontSize = 10, ; Column5.Format = "K", ; Column5.Name = "cCtaidDeb", ; Column5.ReadOnly = .F., ; Column5.Width = 59, ; Column6.ColumnOrder = 4, ; Column6.ControlSource = "ctaedeb", ; Column6.FontSize = 10, ; Column6.Format = "RK", ; Column6.Name = "cCtaeDeb", ; Column6.ReadOnly = .F., ; Column6.Width = 56, ; Column7.ColumnOrder = 5, ; Column7.ControlSource = "ctcreditor", ; Column7.FontSize = 10, ; Column7.Format = "K", ; Column7.Name = "cCtCreditor", ; Column7.ReadOnly = .F., ; Column7.Width = 56, ; Column8.ColumnOrder = 8, ; Column8.ControlSource = "ctpideb", ; Column8.FontSize = 10, ; Column8.Format = "K", ; Column8.Name = "cCtPiDeb", ; Column8.ReadOnly = .F., ; Column8.Sparse = .F., ; Column8.Width = 64, ; Column9.ControlSource = "ctapideb", ; Column9.Format = "k", ; Column9.Name = "cCtApiDeb", ; Column9.ReadOnly = .F., ; Column9.Width = 72, ; Column10.ControlSource = "ctpicred", ; Column10.Format = "k", ; Column10.Name = "cCtPiCred", ; Column10.ReadOnly = .F., ; Column10.Width = 54, ; Column11.ControlSource = "ctapicred", ; Column11.Format = "K", ; Column11.Name = "cCtApiCred", ; Column11.ReadOnly = .F., ; Column11.Width = 58 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdConturi.cCtAeCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. credit analitic extern", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtAeCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtaeDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. debit analitic extern", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtaeDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtaiCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. credit analitic intern", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtaiCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtaidDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. debit analitic intern", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtaidDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtApiCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. credit analitic penalitati", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtApiCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtApiDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. debit analitic penalitati", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtApiDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtCreditor.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cont credit", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtCreditor.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtdebitor.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cont debit", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtdebitor.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtPiCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cont credit penalitati", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtPiCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cCtPiDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cont debit penalitati", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cCtPiDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdConturi.cLocatia.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsConturi.id_locatia", ; FontSize = 10, ; Height = 24, ; Left = 73, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsLocatii.denumire, id from crsLocatii into cursor crsLocatiiX order by denumire", ; RowSourceType = 3, ; SpecialEffect = 1, ; Style = 2, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdConturi.cLocatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Locatia", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdConturi.cLocatia.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.grdArticole, ; Left = 288, ; Name = "Gridextra1", ; productname = ROA, ; Top = 144 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Gridextra2' AS gridextra WITH ; gridexpression = Thisform.grdConturi, ; Left = 480, ; Name = "Gridextra2", ; productname = ROA, ; Top = 204 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Sfsplitterh1' AS sfsplitterh WITH ; Anchor = 5, ; BackColor = 255,255,255, ; cobject1name = grdArticole, ; cobject2name = grdConturi, ; Height = 302, ; Left = 447, ; Name = "Sfsplitterh1", ; Top = 89, ; Width = 8, ; ZOrderSet = 15, ; gripper.GripperDot1.Name = "GripperDot1", ; gripper.GripperDot1.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot1.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot1.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot2.Name = "GripperDot2", ; gripper.GripperDot2.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot2.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot2.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot3.Name = "GripperDot3", ; gripper.GripperDot3.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot3.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot3.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot4.Name = "GripperDot4", ; gripper.GripperDot4.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot4.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot4.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot5.Name = "GripperDot5", ; gripper.GripperDot5.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot5.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot5.ShapeMiddle.Name = "ShapeMiddle", ; gripper.Name = "gripper" *< END OBJECT: ClassLib="..\comun\clase\sfsplitter.vcx" BaseClass="control" /> PROCEDURE actualizeaza_grid1 Lparameters tcFiltru Local lcFiltru lcFiltru = Iif(!Empty(m.tcFiltru), m.tcFiltru, "") Thisform.LockScreen=.T. Select crsConturi Set Filter To &lcFiltru Go Top This.grdConturi.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_adauga Local lnIdArticol, loRec lnIdArticol = Nvl(crsArticole.id_articol, 0) If Empty(m.lnIdArticol) Return Endif Sele crsConturi If !EMPTY(crsConturi.id_locatia) Scatter Name loRec MEMO Else Scatter Name loRec Memo Blank ENDIF loRec.id_articol = m.lnIdArticol loRec.id = 0 loRec.modificat = 1 Append Blank Gather Name loRec Memo this.grdConturi.SetFocus() ENDPROC PROCEDURE do_adauga_articol Local llReturn, lnId lnId = 0 llReturn = nom_articole_nou(@lnId) If m.llReturn loBizDataObject = CreateObject("BizDataObject", GetHash([cSelect=>Select * from vnom_articole where id_articol = ] + ALLTRIM(STR(m.lnId)))) loArticol = loBizDataObject.GetDataObject() IF !ISNULL(loArticol) AND TYPE('loArticol') = 'O' INSERT INTO crsArticole FROM NAME loArticol SELECT crsArticole LOCATE FOR id_articol = m.lnId IF !FOUND() GO TOP ENDIF ENDIF ENDIF this.grdArticole.SetFocus() this.grdArticole.AfterRowColChange() ENDPROC PROCEDURE do_cauta Local lcfiltru, lcValoare lcfiltru='' lcValoare = STRTRAN(ALLTRIM(UPPER(This.cb_tx_cautare1.TEXT.VALUE)),['],['']) With This.cb_tx_cautare1 If !Empty(.Text.Value) Or (Empty(.Text.Value) And .criteriu.Value = "6") Do Case Case .criteriu.Value = "1" lcfiltru = lcfiltru + [LIKE('] + lcValoare + [*', denumire)] Case .criteriu.Value = "2" lcfiltru = lcfiltru + [denumire ='] + lcValoare + ['] Case .criteriu.Value = "3" lcfiltru = lcfiltru + [denumire !='] + lcValoare + ['] Case .criteriu.Value = "4" lcfiltru = lcfiltru + [LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "5" lcfiltru = lcfiltru + [!LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "6" lcfiltru = lcfiltru + [2=2] Endcase Endif Endwith SELECT crsArticole lnRecno = RECNO() LOCATE FOR &lcFiltru IF !FOUND() TRY GOTO m.lnRecno CATCH GO TOP ENDTRY ENDIF this.grdArticole.SetFocus() thisform.actualizeaza_grid1("id_articol = " + ALLTRIM(STR(crsArticole.id_articol))) ENDPROC PROCEDURE do_cauta_partener ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_modifica_articol LOCAL lnIdArticol Local loRec, loBizDataObject Select crsArticole lnIdArticol = crsArticole.id_articol *!* loBizDataObject = CreateObject("BizDataObject", GetHash([cSelect=>Select * from vnom_articole where id_articol = ] + ALLTRIM(STR(m.lnIdArticol)))) *!* loRec = loBizDataObject.GetDataObject() *!* lorec.conditii_pastrare = Nvl(lorec.conditii_pastrare,'') *!* If gnCodMatAutomat = 2 *!* Private poGeneratorCodmat *!* poGeneratorCodmat= Createobject("oGeneratorNumere") *!* lnRezultat = poGeneratorCodmat.creeaza_cursor_serii(14) *!* Endif *!* If gnCodBareAutomat = 2 *!* Private poGeneratorCodBare *!* poGeneratorCodBare= Createobject("oGeneratorNumere") *!* lnRezultat2 = poGeneratorCodBare.creeaza_cursor_serii(15) *!* Endif *!* lnButon = Adauga_Modifica_Inregistrare([catalog_articole],lorec,lnIdArticol,[UPDATE]) llSucces = nom_articole_modifica(m.lnIdArticol) If m.llSucces loBizDataObject = CreateObject("BizDataObject", GetHash([cSelect=>Select * from vnom_articole where id_articol = ] + ALLTRIM(STR(m.lnIdArticol)))) loRec = loBizDataObject.GetDataObject() IF !ISNULL(loRec) AND TYPE('loRec') = 'O' SELECT crsArticole LOCATE FOR id_articol = m.lnIdArticol IF FOUND() GATHER NAME loRec FIELDS EXCEPT id_articol ELSE GO TOP ENDIF ENDIF Endif This.grdArticole.SetFocus() ENDPROC PROCEDURE do_sterge IF AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_screen.Caption) <> 6 RETURN ENDIF SELECT crsConturi REPLACE modificat with 1 DELETE TRY SKIP -1 CATCH GO TOP ENDTRY this.grdConturi.SetFocus() ENDPROC PROCEDURE do_sterge_articol Local llReturn, lnId Select crsArticole lnId = crsArticole.id_articol *!* pnId = lnId *!* pnIdUtil = NVL(m.gnIdUtil,0) llReturn = STERGE_INREGISTRARE("catalog_articole", m.lnId) If m.llReturn SELECT crsConturi REPLACE modificat with 2 FOR id_articol = m.lnId IN crsConturi DELETE FOR id_articol = m.lnId IN crsConturi Select crsArticole Delete Try Skip - 1 Catch Go Top ENDTRY Endif This.grdArticole.SetFocus() ENDPROC PROCEDURE getcontracteclient ENDPROC PROCEDURE Init DODEFAULT() thisform.gridextra1.setup() thisform.gridextra2.setup() thisform.actualizeaza_grid1("id_articol = " + ALLTRIM(STR(crsArticole.id_articol))) thisform.cb_tx_cautare1.text.SetFocus() this.WindowState = 2 ENDPROC PROCEDURE Cb_tx_cautare1.Init this.do_initializeaza_ct() ENDPROC PROCEDURE Cb_tx_cautare1.Text.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 THISFORM.DO_CAUTA() NODEFAULT ENDIF ENDPROC PROCEDURE grdArticole.AfterRowColChange LPARAMETERS nColIndex thisform.actualizeaza_grid1("id_articol = " + ALLTRIM(STR(crsArticole.id_articol))) ENDPROC PROCEDURE grdConturi.AfterRowColChange Lparameters nColIndex REPLACE modificat WITH 1 IN crsConturi ENDPROC ENDDEFINE DEFINE CLASS frm_factura 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="txtValval" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValtva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_client" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtBeneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_beneficiar" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkIntern" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cNr.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cNr.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cArticol.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cArticol.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cDenumire.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cDenumire.Edit1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cUM.Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cCantitate.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cCantitate.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cCantitate.Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPretUnitar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPretUnitar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPretUnitar.Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValoare.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValoare.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValoare.Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cTVA.Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cCurs.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cCurs.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cCurs.Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPUValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPUValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPUValuta.Text2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValuta.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cExplicatieTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cExplicatieTVA.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cLocatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cLocatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cLocatia._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPretcTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPretcTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cPretcTVA.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValcTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdFactura.cValcTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtNrFact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDataScad" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDataFact" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="edtTextSubsol" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDataCurs" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Clb_serie_act" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboTip" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdImport" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_factura_noua" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtCursEUR" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label12" UniqueID="" Timestamp="" /> * *m: activeazasalvare && Activeaza butonul de salvare la adaugarea unei linii noi in factura sau la import din RORIS/Contracte *m: calculeazapreturi *m: calculeazapreturirand *m: calculeazatotaluri *m: citestecursuri *m: completeazacapfactura *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *m: initfactura *m: lfacturasalvata_assign *m: refreshdatascadenta *m: refreshdate *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: ctip *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: ddatacurs *p: ddatafact *p: ddatascad *p: lfacturasalvata *p: lnumaractgenerat *p: lnumargenerat *p: ncantitate *p: ncapacitateclient *p: ncapacitatetotal *p: ncurs *p: ncurseur *p: neagent *p: nidbeneficiar *p: nidclient *p: nidcontractclient *p: nidjtvacoloanaex *p: nidvaluta *p: nintern *p: nnrfact *p: nnrzilescadenta *p: npret *p: npretval *p: ntipcurs *p: nvalctva *p: nvalftva *p: nvaltva *p: nvalval * * BorderStyle = 3 ccontractclient = cdenumirebeneficiar = cdenumireclient = ctip = TRANZIT cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 ddatacurs = {} ddatafact = {} ddatascad = {} DoCreate = .T. Height = 361 lfacturasalvata = .F. lnumaractgenerat = .F. lnumargenerat = .F. Name = "frm_factura" ncantitate = 0 ncapacitateclient = 0 ncapacitatetotal = 0 ncurs = 0 ncurseur = 0.00 neagent = 0 nidbeneficiar = 0 nidclient = 0 nidcontractclient = 0 nidjtvacoloanaex = 0 nidvaluta = 0 nintern = 0 nnrfact = 0 nnrzilescadenta = 0 npret = 0 npretval = 0 ntipcurs = 0 nvalctva = 0 nvalftva = 0 nvaltva = 0 nvalval = 0 Width = 779 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Factura" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 21 BUT_TERMIN1.Anchor = 8 BUT_TERMIN1.Left = 796 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 19 BUT_TERMIN1.TabStop = .F. BUT_TERMIN1.Top = 36 BUT_TERMIN1.Visible = .F. Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label1' AS _label WITH ; Anchor = 12, ; Caption = "Total valuta", ; FontBold = .T., ; Left = 363, ; Name = "_label1", ; TabIndex = 26, ; Top = 306 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label10' AS _label WITH ; Anchor = 4, ; Caption = "Text aditional factura:", ; FontBold = .T., ; Height = 18, ; Left = 15, ; Name = "_label10", ; TabIndex = 36, ; Top = 273, ; Width = 142 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label11' AS _label WITH ; Caption = "Data curs", ; FontBold = .T., ; Left = 430, ; Name = "_label11", ; TabIndex = 37, ; Top = 103 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label12' AS _label WITH ; Caption = "Curs EUR", ; FontBold = .T., ; Left = 518, ; Name = "_label12", ; TabIndex = 38, ; Top = 103 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label2' AS _label WITH ; Anchor = 12, ; Caption = "Total fara TVA", ; FontBold = .T., ; Left = 459, ; Name = "_label2", ; TabIndex = 28, ; Top = 306 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label3' AS _label WITH ; Anchor = 12, ; Caption = "Total TVA", ; FontBold = .T., ; Left = 596, ; Name = "_label3", ; TabIndex = 29, ; Top = 306 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label4' AS _label WITH ; Anchor = 12, ; Caption = "Total cu TVA", ; FontBold = .T., ; Left = 689, ; Name = "_label4", ; TabIndex = 27, ; Top = 306 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label5' AS _label WITH ; Caption = "Beneficiar:", ; FontBold = .T., ; Left = 15, ; Name = "_label5", ; TabIndex = 32, ; Top = 70 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label6' AS _label WITH ; Anchor = 8, ; Caption = "Tip", ; FontBold = .T., ; Left = 475, ; Name = "_label6", ; TabIndex = 39, ; Top = 70 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label7' AS _label WITH ; Caption = "Numar", ; FontBold = .T., ; Height = 18, ; Left = 127, ; Name = "_label7", ; TabIndex = 33, ; Top = 103, ; Width = 44 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label8' AS _label WITH ; Caption = "Data scadenta", ; FontBold = .T., ; Left = 335, ; Name = "_label8", ; TabIndex = 34, ; Top = 103 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label9' AS _label WITH ; Caption = "Data", ; FontBold = .T., ; Height = 18, ; Left = 248, ; Name = "_label9", ; TabIndex = 35, ; Top = 103, ; Width = 31 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'but_cautare_beneficiar' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'beneficiar', ; Left = 372, ; Name = "but_cautare_beneficiar", ; TabIndex = 6, ; TabStop = .F., ; Top = 65 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'but_cautare_client' AS but_cautare WITH ; caction = do_cauta_partener, ; clistaparametri = 'client', ; Left = 372, ; Name = "but_cautare_client", ; TabIndex = 2, ; Top = 35 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'but_factura_noua' AS but_nou WITH ; Anchor = 8, ; caction = do_reset, ; Left = 688, ; Name = "but_factura_noua", ; TabIndex = 40, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 8, ; Left = 707, ; Name = "But_nou1", ; TabIndex = 14, ; Top = 120 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 8, ; Left = 749, ; Name = "But_renunt1", ; TabIndex = 41, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ; Anchor = 8, ; Left = 719, ; Name = "But_salveaza1", ; TabIndex = 18, ; Top = 0 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 8, ; Left = 737, ; Name = "But_sterge1", ; TabIndex = 15, ; Top = 120 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'cboContract' AS _combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "thisform.nIdContractClient", ; Enabled = .F., ; Height = 24, ; Left = 472, ; Name = "cboContract", ; ReadOnly = .F., ; RowSource = "select crsContracte.numar as contract, id_ctr, nr_zile_scadenta, tip_curs from crsContracte into cursor crsContracteX", ; RowSourceType = 3, ; TabIndex = 3, ; Top = 37, ; Width = 175 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'cboTip' AS _combobox WITH ; Anchor = 8, ; BoundColumn = 1, ; BoundTo = .T., ; ControlSource = "poDate.cTip", ; Enabled = .F., ; Left = 507, ; Name = "cboTip", ; ReadOnly = .F., ; RowSource = "select tip from crsTipFactura into cursor crsTipFacturaX", ; RowSourceType = 3, ; TabIndex = 12, ; TabStop = .F., ; Top = 67, ; Width = 84 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'chkIntern' AS _checkbox WITH ; Alignment = 1, ; Caption = "Intern:", ; ControlSource = "thisform.nIntern", ; FontBold = .T., ; Left = 412, ; Name = "chkIntern", ; TabIndex = 4, ; TabStop = .F., ; Top = 70 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'Clb_serie_act' AS clb_serie_act WITH ; BorderWidth = 0, ; cvariabila = serie_act, ; cvariabiladoc = nract, ; Height = 54, ; Left = 4, ; Name = "Clb_serie_act", ; nid_tipdoc = 5, ; pcobj = poDate, ; TabIndex = 7, ; Top = 97, ; Width = 125, ; Text_simplu1.Height = 23, ; Text_simplu1.Left = 8, ; Text_simplu1.Name = "Text_simplu1", ; Text_simplu1.Top = 25, ; Text_simplu1.Width = 109, ; _cbbase1.Height = 23, ; _cbbase1.Left = 8, ; _cbbase1.Name = "_cbbase1", ; _cbbase1.Top = 25, ; _cbbase1.Width = 109, ; _lbbase1.Caption = "Serie", ; _lbbase1.FontBold = .T., ; _lbbase1.Left = 8, ; _lbbase1.Name = "_lbbase1", ; _lbbase1.Top = 6 *< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" /> ADD OBJECT 'cmdImport' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .F., ; BackColor = 0,159,236, ; Caption = "\ ADD OBJECT 'edtTextSubsol' AS _editbox WITH ; Anchor = 4, ; ControlSource = "poDate.text_aditional", ; Height = 61, ; Left = 12, ; MaxLength = 500, ; Name = "edtTextSubsol", ; TabIndex = 20, ; Top = 292, ; Width = 312 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="editbox" /> ADD OBJECT 'grdFactura' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 15, ; DeleteMark = .F., ; FontSize = 10, ; HeaderHeight = 37, ; Height = 115, ; Left = 10, ; Name = "grdFactura", ; Panel = 1, ; ReadOnly = .F., ; RecordSource = "crsFactura", ; RowHeight = 56, ; TabIndex = 17, ; Top = 151, ; Width = 758, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "nrcrt", ; Column1.FontSize = 10, ; Column1.Name = "cNr", ; Column1.ReadOnly = .F., ; Column1.Width = 39, ; Column2.Bound = .F., ; Column2.ColumnOrder = 3, ; Column2.ControlSource = "Iif(Seek(crsFactura.id_articol,'crsArticole','id_articol'),crsArticole.denumire,'')", ; Column2.CurrentControl = "Combo1", ; Column2.FontSize = 10, ; Column2.Name = "cArticol", ; Column2.ReadOnly = .F., ; Column2.Sparse = .F., ; Column2.Width = 136, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "denumire", ; Column3.CurrentControl = "Edit1", ; Column3.FontSize = 10, ; Column3.Name = "cDenumire", ; Column3.ReadOnly = .F., ; Column3.Sparse = .F., ; Column3.Width = 167, ; Column4.ColumnOrder = 5, ; Column4.ControlSource = "um", ; Column4.CurrentControl = "Text2", ; Column4.FontSize = 10, ; Column4.Name = "cUM", ; Column4.ReadOnly = .T., ; Column4.Width = 32, ; Column5.ColumnOrder = 6, ; Column5.ControlSource = "crsFactura.cantitate", ; Column5.CurrentControl = "Text2", ; Column5.FontSize = 10, ; Column5.Format = "RK", ; Column5.InputMask = (get_mask(16, gnPCant)), ; Column5.Name = "cCantitate", ; Column5.ReadOnly = .F., ; Column5.Width = 64, ; Column6.BackColor = 215,215,215, ; Column6.ColumnOrder = 11, ; Column6.ControlSource = "crsFactura.pret", ; Column6.CurrentControl = "Text2", ; Column6.FontSize = 10, ; Column6.Format = "RK", ; Column6.InputMask = (get_mask(16, gnPPret)), ; Column6.Name = "cPretUnitar", ; Column6.ReadOnly = .T., ; Column6.Width = 83, ; Column7.BackColor = 215,215,215, ; Column7.ColumnOrder = 12, ; Column7.ControlSource = "crsFactura.valftva", ; Column7.CurrentControl = "Text2", ; Column7.FontSize = 10, ; Column7.Format = "RK", ; Column7.InputMask = (get_mask(16, gnPC)), ; Column7.Name = "cValoare", ; Column7.ReadOnly = .T., ; Column7.Width = 105, ; Column8.BackColor = 215,215,215, ; Column8.ColumnOrder = 14, ; Column8.ControlSource = "valtva", ; Column8.CurrentControl = "Text2", ; Column8.FontSize = 10, ; Column8.Format = "RK", ; Column8.InputMask = (get_mask(16, gnPC)), ; Column8.Name = "cTVA", ; Column8.ReadOnly = .F., ; Column8.Width = 85, ; Column9.ColumnOrder = 10, ; Column9.ControlSource = "curs", ; Column9.CurrentControl = "Text2", ; Column9.FontSize = 10, ; Column9.Format = "RK", ; Column9.InputMask = (get_mask(16, gnPCurs)), ; Column9.Name = "cCurs", ; Column9.ReadOnly = .F., ; Column9.Width = 56, ; Column10.ColumnOrder = 7, ; Column10.ControlSource = "pretval", ; Column10.CurrentControl = "Text2", ; Column10.FontSize = 10, ; Column10.Format = "RK", ; Column10.InputMask = (get_mask(16, gnPVal)), ; Column10.Name = "cPUValuta", ; Column10.ReadOnly = .F., ; Column10.Width = 67, ; Column11.Bound = .F., ; Column11.ColumnOrder = 9, ; Column11.ControlSource = "Iif(Seek(crsFactura.id_valuta,'crsValute','id_valuta'),crsValute.nume_val,'')", ; Column11.CurrentControl = "Combo1", ; Column11.FontSize = 10, ; Column11.Name = "cValuta", ; Column11.ReadOnly = .F., ; Column11.Sparse = .F., ; Column11.Width = 63, ; Column12.Bound = .F., ; Column12.ColumnOrder = 13, ; Column12.ControlSource = "Iif(Seek(crsFactura.id_jtva_coloana_ex,'crsJtva','id'),crsJtva.explicatie,'')", ; Column12.CurrentControl = "Combo1", ; Column12.FontSize = 10, ; Column12.Name = "cExplicatieTVA", ; Column12.ReadOnly = .F., ; Column12.Sparse = .F., ; Column12.Width = 164, ; Column13.Bound = .F., ; Column13.ColumnOrder = 2, ; Column13.ControlSource = "Iif(Seek(crsFactura.id_locatia,'crsLocatii','id'),crsLocatii.denumire,'')", ; Column13.CurrentControl = "_combobox1", ; Column13.FontSize = 10, ; Column13.Name = "cLocatia", ; Column13.ReadOnly = .F., ; Column13.Sparse = .F., ; Column13.Width = 147, ; Column14.ColumnOrder = 8, ; Column14.ControlSource = "pret_cu_tva", ; Column14.CurrentControl = "Check1", ; Column14.FontSize = 10, ; Column14.Name = "cPretcTVA", ; Column14.ReadOnly = .F., ; Column14.Sparse = .F., ; Column14.Width = 44, ; Column15.BackColor = 215,215,215, ; Column15.ControlSource = "crsFactura.valctva", ; Column15.FontSize = 10, ; Column15.Format = "RK", ; Column15.InputMask = (get_mask(16, gnPC)), ; Column15.Name = "cValcTVA", ; Column15.ReadOnly = .T., ; Column15.Width = 99 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdFactura.cArticol.Combo1' AS combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ColumnWidths = "200,0", ; ControlSource = "crsFactura.id_articol", ; FontSize = 10, ; Height = 24, ; Left = 74, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsArticole.denumire, id_articol, um from crsArticole into cursor crsArticoleX order by denumire", ; RowSourceType = 3, ; SpecialEffect = 0, ; Style = 2, ; Top = 71, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdFactura.cArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Articol", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cArticol.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 'grdFactura.cCantitate.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate (3)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cCantitate.Text1' AS textbox WITH ; Height = 10, ; Left = 33, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 52, ; Width = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cCantitate.Text2' AS textbox WITH ; FontSize = 10, ; Height = 23, ; Left = 21, ; Name = "Text2", ; SelectedBackColor = 100,185,255, ; Top = 52, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cCurs.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cCurs.Text1' AS textbox WITH ; Height = 10, ; Left = 34, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 40, ; Width = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cCurs.Text2' AS textbox WITH ; FontSize = 10, ; Height = 23, ; Left = 22, ; Name = "Text2", ; SelectedBackColor = 100,185,255, ; Top = 52, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cDenumire.Edit1' AS editbox WITH ; FontSize = 10, ; Height = 53, ; Left = 78, ; Name = "Edit1", ; Top = 52, ; Width = 100 *< END OBJECT: BaseClass="editbox" /> ADD OBJECT 'grdFactura.cDenumire.Header1' AS header WITH ; Alignment = 2, ; Caption = "Denumire (1)", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cExplicatieTVA.Combo1' AS combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ColumnCount = 4, ; ColumnLines = .F., ; ColumnWidths = "500,0,0,0", ; ControlSource = "crsFactura.id_jtva_coloana_ex", ; FontSize = 10, ; Height = 10, ; Left = 129, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsJTva.explicatie,id, id_jtva_coloana, cota_tva from crsJTVA order by ordine into cursor crsJTVAX", ; RowSourceType = 3, ; Style = 2, ; Top = 47, ; Width = 10 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdFactura.cExplicatieTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Expl. TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cLocatia._combobox1' AS _combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsFactura.id_locatia", ; FontSize = 10, ; Left = 83, ; Name = "_combobox1", ; RowSource = "select crsLocatii.denumire, id from crsLocatii into cursor crsLocatiiX order by denumire", ; RowSourceType = 3, ; Top = 76 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'grdFactura.cLocatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Locatia", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cLocatia.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cNr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. crt. (0)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cNr.Text1' AS textbox WITH ; FontSize = 10, ; Height = 23, ; Left = 27, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 64, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cPretcTVA.Check1' AS checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Height = 17, ; Left = 27, ; Name = "Check1", ; Top = 64, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'grdFactura.cPretcTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret cu TVA", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cPretcTVA.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 'grdFactura.cPretUnitar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret unitar lei (4)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cPretUnitar.Text1' AS textbox WITH ; Height = 10, ; Left = 64, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 40, ; Width = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cPretUnitar.Text2' AS textbox WITH ; BackColor = 215,215,215, ; FontSize = 10, ; Height = 23, ; Left = 28, ; Name = "Text2", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255, ; Top = 40, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cPUValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret unitar valuta", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cPUValuta.Text1' AS textbox WITH ; Height = 10, ; Left = 49, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 52, ; Width = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cPUValuta.Text2' AS textbox WITH ; FontSize = 10, ; Height = 23, ; Left = 37, ; Name = "Text2", ; SelectedBackColor = 100,185,255, ; Top = 64, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoarea TVA (6)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cTVA.Text1' AS textbox WITH ; Height = 10, ; Left = 60, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 64, ; Width = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cTVA.Text2' AS textbox WITH ; BackColor = 215,215,215, ; FontSize = 10, ; Height = 23, ; Left = 72, ; Name = "Text2", ; SelectedBackColor = 100,185,255, ; Top = 52, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "U.M. (2)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cUM.Text2' AS textbox WITH ; Enabled = .T., ; FontSize = 10, ; Height = 23, ; Left = 18, ; Name = "Text2", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255, ; Top = 52, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cValcTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoarea cu TVA (7)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cValcTVA.Text1' AS textbox WITH ; BackColor = 215,215,215, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cValoare.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoarea fara TVA (5=3*4)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cValoare.Text1' AS textbox WITH ; Height = 10, ; Left = 52, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 52, ; Width = 10 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cValoare.Text2' AS textbox WITH ; BackColor = 215,215,215, ; FontSize = 10, ; Height = 23, ; Left = 64, ; Name = "Text2", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255, ; Top = 64, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdFactura.cValuta.Combo1' AS combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsFactura.id_valuta", ; FontSize = 10, ; Height = 24, ; Left = 29, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select nume_val, id_valuta from crsValute order by nume_val into cursor crsValuteX", ; RowSourceType = 3, ; Style = 2, ; Top = 47, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'grdFactura.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdFactura.cValuta.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 'Gridextra1' AS gridextra WITH ; companyname = ROMFAST, ; gridexpression = Thisform.grdFactura, ; Left = 749, ; Name = "Gridextra1", ; productname = ROAACNPRO, ; Top = 228 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'lblClient' AS _label WITH ; Caption = "Platitor:", ; FontBold = .T., ; Left = 15, ; Name = "lblClient", ; TabIndex = 30, ; Top = 40 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'lblContract' AS _label WITH ; Caption = "Contract:", ; FontBold = .T., ; Left = 412, ; Name = "lblContract", ; TabIndex = 31, ; Top = 40 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'txtBeneficiar' AS _textbox WITH ; ControlSource = "thisform.cDenumireBeneficiar", ; Height = 23, ; Left = 84, ; Name = "txtBeneficiar", ; ReadOnly = .T., ; TabIndex = 5, ; TabStop = .F., ; ToolTipText = "Alegere beneficiar la Mouse-Click sau apasarea unei taste. Schimbare beneficiar la Dublu Mouse-Click sau apasarea unei taste.", ; Top = 68, ; Width = 280 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtClient' AS _textbox WITH ; ControlSource = "thisform.cDenumireClient", ; Height = 23, ; Left = 84, ; Name = "txtClient", ; ReadOnly = .T., ; TabIndex = 1, ; TabStop = .F., ; ToolTipText = "Alegere client la Mouse-Click sau apasarea unei taste. Schimbare client la Dublu Mouse-Click sau apasarea unei taste.", ; Top = 38, ; Width = 280 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtCursEUR' AS _textbox WITH ; Alignment = 3, ; ControlSource = "thisform.nCursEUR", ; Enabled = .F., ; Format = "K", ; Left = 518, ; Name = "txtCursEUR", ; TabIndex = 16, ; Top = 122, ; Value = 0.0, ; Width = 80 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtDataCurs' AS _textbox WITH ; ControlSource = "poDate.zi_curs", ; Format = "K", ; Left = 430, ; Name = "txtDataCurs", ; TabIndex = 11, ; Top = 122, ; Width = 80 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtDataFact' AS _textbox WITH ; ControlSource = "poDate.dataact", ; Format = "K", ; Left = 248, ; Name = "txtDataFact", ; TabIndex = 9, ; Top = 122, ; Width = 80 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtDataScad' AS _textbox WITH ; ControlSource = "poDate.datascad", ; Format = "K", ; Left = 335, ; Name = "txtDataScad", ; TabIndex = 10, ; Top = 122, ; Width = 80 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtNrFact' AS _textbox WITH ; ControlSource = "poDate.nract", ; Format = "K", ; Left = 127, ; Name = "txtNrFact", ; TabIndex = 8, ; Top = 122, ; Width = 116 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValctva' AS _textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValctva", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 662, ; Name = "txtValctva", ; ReadOnly = .T., ; TabIndex = 25, ; TabStop = .F., ; Top = 329, ; Width = 108 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValftva' AS _textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValftva", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 443, ; Name = "txtValftva", ; ReadOnly = .T., ; TabIndex = 23, ; TabStop = .F., ; Top = 329, ; Width = 108 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValtva' AS _textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValtva", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 552, ; Name = "txtValtva", ; ReadOnly = .T., ; TabIndex = 24, ; TabStop = .F., ; Top = 329, ; Width = 108 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValval' AS _textbox WITH ; Anchor = 12, ; ControlSource = "Thisform.nValVal", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 332, ; Name = "txtValval", ; ReadOnly = .T., ; TabIndex = 22, ; TabStop = .F., ; Top = 329, ; Width = 108 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE activeazasalvare && Activeaza butonul de salvare la adaugarea unei linii noi in factura sau la import din RORIS/Contracte This.but_salveaza1.Enabled = .T. ENDPROC PROCEDURE calculeazapreturi SELECT crsFactura SCAN This.CalculeazaPreturiRand() ENDSCAN This.CalculeazaTotaluri() ENDPROC PROCEDURE calculeazapreturirand * Recalculeaza preturile in lei dupa preturile in valuta si cursul valutar pentru articolele in valuta * Completez cursul valutar Local lnCurs, lnIdValuta, lcSelect, llIsMonedaNationala lcSelect = Select() Select crsFactura lnIdValuta = id_valuta loMonedaNationala = GetMonedaNationala() llIsMonedaNationala = (m.lnIdValuta = loMonedaNationala.id_valuta) Select crsFactura If !m.llIsMonedaNationala If Inlist(Nvl(Curs,0), 0, 1) If !Used('crsCursuri') Thisform.CitesteCursuri() Endif Select crsCursuri Locate For id_valuta = m.lnIdValuta If Found() lnCurs = Curs Replace Curs With m.lnCurs In crsFactura Endif Endif Else Replace Curs With 1 In crsFactura Endif && m.llIsMonedaNationala SET STEP ON Select crsFactura Replace Pret With Round(pretval * Curs, m.gnPC) If Nvl(pret_cu_tva, 0) = 1 And Nvl(proc_tva, 0) > 0 * pretval este CU TVA inclus -> calcul invers (identic cu PACK_FACTURARE, V_PRET_CU_TVA = 1) Replace valctva With Round(Pret * cantitate, m.gnPC) Replace valtva With Round(valctva * (proc_tva - 1) / proc_tva, m.gnPC) Replace valftva With valctva - valtva Replace totval With Round(pretval * cantitate, m.gnPval) Replace tvaval With Round(totval * (proc_tva - 1) / proc_tva, m.gnPval) Replace valval With totval - tvaval Else * pretval este FARA TVA (comportament actual) Replace valftva With Round(Pret * cantitate, m.gnPC) Replace valtva With Round(valftva * (proc_tva - 1), m.gnPC) Replace valctva With valftva + valtva Replace valval With Round(pretval * cantitate, m.gnPval) Replace tvaval With Round(valval * (proc_tva - 1), m.gnPval) Replace totval With valval + tvaval Endif Select (m.lcSelect) ENDPROC PROCEDURE calculeazatotaluri Local lnRecno Select crsFactura lnRecno = Recno() Calculate Sum(valval), Sum(valftva), Sum(valtva), Sum(valctva) To Thisform.nValVal, Thisform.nValFtva, Thisform.nValTVA, Thisform.nValcTVA Select crsFactura If m.lnRecno > 0 Locate For Recno() = m.lnRecno If !Found() Go Top Endif Endif Thisform.txtValval.Refresh() Thisform.txtValftva.Refresh() Thisform.txtValtva.Refresh() Thisform.txtValctva.Refresh() ENDPROC PROCEDURE citestecursuri Local lcSelect lcSelect = Select() citeste_cursuri_zi(poDate.zi_curs) && crsCursuri (Curs, nume_val, id_valuta, multiplicator) If Used('crsCursuri') Select crsCursuri Locate For 'EUR' $ Upper(nume_val) If Found() Thisform.nCursEUR = Curs Else AMESSAGEBOX('Completati cursul valutar pentru ' + Dtoc(poDate.zi_curs) + '!', 0 + 48, _Screen.Caption) Do vizualizeaza_curs In oproceduri_curs.prg With poDate.zi_curs citeste_cursuri_zi(poDate.zi_curs) && crsCursuri (Curs, nume_val, id_valuta, multiplicator) Select crsCursuri Locate For 'EUR' $ Upper(nume_val) If Found() Thisform.nCursEUR = Curs Endif Endif Endif Thisform.txtCursEUR.Refresh() Select (m.lcSelect) ENDPROC PROCEDURE completeazacapfactura * crsCapFactura (uuid N(20) Null, dataact D, datascad D, nract N(20), serie_act C(10), client_id N(10) Null, client C(100) Null, client_ctr_id N(10) Null, contract_client C(100) Null, nr_zile_scadenta N(5) Null, tip_curs N(1) Null, eAgent N(1) Null, intern N(1) Null, beneficiar_id N(10) Null, beneficiar C(100) Null, id_set N(10), id_fdoc N(5)) poDate.nume_client = Thisform.cDenumireClient poDate.id_client = Thisform.nIdClient poDate.listaId = Thisform.nIdContractClient poDate.descriere = Thisform.cContractClient poDate.in_valuta = IIF(Thisform.nIntern = 1, 0, 1) poDate.nIdBeneficiar = thisform.nIdBeneficiar Update crsCapFactura Set nract = poDate.nract, dataact = poDate.dataact, datascad = poDate.datascad, serie_act = poDate.serie_act, ; id_set = poDate.id_set, id_fdoc = poDate.id_fdoc, ; client_id = poDate.id_client, client = poDate.nume_client, client_ctr_id = poDate.listaId, contract_client = poDate.descriere, ; beneficiar = thisform.cDenumireBeneficiar, beneficiar_id = thisform.nIdBeneficiar, eagent = thisform.nEAgent, intern = thisform.nIntern, ; nr_zile_scadenta = thisform.nNrZileScadenta, tip_curs = thisform.nTipCurs ENDPROC PROCEDURE do_adauga Select crsFactura If !Empty(crsFactura.id_articol) Scatter Name loRec Memo Else Scatter Name loRec Memo Blank lnIntern = This.nIntern IF lnIntern = 0 AND USED('crsValute') SELECT crsValute LOCATE FOR 'EUR'$nume_val IF FOUND() loRec.id_valuta = id_valuta ENDIF ENDIF loTVAStandard = GetTVAStandard(m.lnIntern) && obiect TVA standard cu proprietatile: IdJtvaExpl, IdJtva, ProcTva loRec.id_jtva_coloana_ex = loTVAStandard.IdJtvaExpl loRec.id_jtva_coloana = loTVAStandard.IdJtva loRec.proc_tva = loTVAStandard.ProcTva ENDIF Select crsFactura Append Blank Gather Name loRec Memo This.CalculeazaTotaluri() This.ActiveazaSalvare() This.grdFactura.SetFocus() This.grdFactura.Refresh() ENDPROC PROCEDURE do_cauta_partener LPARAMETERS tcTipPartener * tcTipPartener: client/beneficiar loCauta = caut_client_contract_activ(, , , .T., Thisform.poDate.dataact) IF LOWER(m.tcTipPartener) = 'client' this.cDenumireClient = loCauta.denumire this.nIdClient = locauta.id_part Thisform.cContractClient = alltrim(loCauta.numar) thisform.nIdContractClient = loCauta.id_ctr this.txtClient.Refresh() this.GetContracteClient(this.nIdClient, thisform.nIdContractClient) ELSE this.cDenumireBeneficiar = loCauta.denumire this.nIdBeneficiar = locauta.id_part this.txtBeneficiar.Refresh() ENDIF ENDPROC PROCEDURE do_executa LPARAMETERS tlImportCalculat * tlImportCalculat (optional, default .F.): daca s-au calculat deja datele pentru import intr-un formular de calcul si din formularul de calcul s-a lansat factura LOCAL llSucces IF EMPTY(NVL(this.nIdClient,0)) AMESSAGEBOX('Alegeti clientul!',0+48,_screen.Caption) RETURN ENDIF This.CompleteazaCapFactura() llSucces = factura_import(m.tlImportCalculat) && proceduri_acnpro.prg IF m.llSucces This.cmdImport.Enabled = .F. && nu mai import altceva This.chkIntern.Enabled = .F. && nu mai schimb intern/extern pentru ca s-a salvat in ips_voyages_vanzari.intern la import This.ActiveazaSalvare() && activez butonul de salvare Thisform.CalculeazaPreturi() This.grdFactura.SetFocus() ENDIF ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_reset This.lFacturaSalvata = .F. && activez controalele de pe formular pentru a putea edita factura this.but_cautare_client.SetFocus() ENDPROC PROCEDURE do_salvare Local lcTip, llSucces, loEx as Exception DoDefault() lcTip = '' llSucces = .T. If EMPTY(poDate.nract) AMESSAGEBOX('Completati numarul facturii!', 0 + 16, _Screen.Caption) this.clb_serie_act._cbbase1.SetFocus() llSucces = .F. Endif llExista = VerificaFacturaClientiVanzari(poDate.nract, NVL(poDate.serie_act,'')) && oproceduri_comune.prg IF m.llExista AMESSAGEBOX('Factura cu numarul ' + ALLTRIM(NVL(poDate.serie_act,'')) + ' ' + ALLTRIM(STR(poDate.nract)) + ' exista deja in luna curenta!',0+48, _screen.Caption) this.clb_serie_act._cbbase1.SetFocus() llSucces = .F. ENDIF If !(Year(poDate.dataact) = m.gnAn And Month(poDate.dataact) = m.gnLuna) AMESSAGEBOX('Data facturii trebuie sa fie din luna curenta!', 0 + 16, _Screen.Caption) this.txtDataFact.SetFocus() llSucces = .F. Endif SELECT crsFactura LOCATE FOR EMPTY(NVL(id_jtva_coloana_ex,0)) If FOUND() AMESSAGEBOX('Completati toate Explicatiile TVA!', 0 + 16, _Screen.Caption) llSucces = .F. ENDIF * Este posibil sa vreau sa fac factura fara contract, desi clientul are alte contracte *!* IF RECCOUNT('crsContracteX') > 0 AND EMPTY(NVL(thisform.nIdContractClient,0)) *!* AMESSAGEBOX('Alegeti contractul clientului!', 0 + 16, _Screen.Caption) *!* llSucces = .F. *!* ENDIF If m.llSucces This.CompleteazaCapFactura() llSucces = factura_salvare() && proceduri_acnpro.prg If m.llSucces AMESSAGEBOX('Factura s-a salvat cu succes!', 0 + 64, _Screen.Caption) lcTip = 'SALVARE' && SALVARE/RESETARE/INIT This.InitFactura(m.lcTip) && Resetare cap factura ELSE AMESSAGEBOX('Factura NU s-a salvat!', 0 + 48, _Screen.Caption) Endif ENDIF Return m.llSucces ENDPROC PROCEDURE do_sterge SELECT crsFactura IF !EOF('crsFactura') IF AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_screen.Caption) = 6 SELECT crsFactura DELETE IF !BOF() SKIP -1 ELSE GO TOP ENDIF This.CalculeazaTotaluri() this.grdFactura.SetFocus() this.grdFactura.Refresh() ENDIF ENDIF ENDPROC PROCEDURE getcontracteclient Lparameters tnIdPart, tnIdCtr Local lcSource, lcSelect lnIdCtr = NVL(m.tnIdCtr,0) lcSelect = SELECT() lcSource = This.cboContract.RowSource This.cboContract.RowSource = [] Do make_contracte With "id_part=" + Alltrim(Str(m.tnIdPart)) && crsContracte SELECT crsContracte INSERT INTO crsContracte(id_ctr, numar) VALUES (0, '') && o linie goala daca se doreste factura fara contract LOCATE FOR id_ctr = NVL(m.tnIdCtr,0) IF !FOUND() GO TOP ENDIF This.cboContract.RowSource = m.lcSource IF RECCOUNT('crsContracte') > 0 this.cboContract.Enabled = .T. && activez/dezactivez cboContracte daca sunt/nu sunt inregistrari thisform.nIdContractClient = crsContracte.id_ctr Thisform.cContractClient = alltrim(crsContracte.numar) thisform.nNrZileScadenta = crsContracte.nr_zile_scadenta thisform.nTipCurs = crsContracte.tip_curs Thisform.RefreshDate() && data scadenta (data act), datacurs valutar (tip curs) this.cboContract.SetFocus() ENDIF SELECT (m.lcSelect) ENDPROC PROCEDURE inainte_de_do_renunt LOCAL llReturn llReturn = .F. IF !This.lFacturaSalvata * Daca editez o factura nesalvata si apas Terminat llReturn = (AMESSAGEBOX('Atentie! Nu ati salvat factura! Doriti sa iesiti fara sa salvati factura?',4+32,_screen.Caption) = 6) IF m.llReturn AND This.lNumarActGenerat * Dezaloc ultimul numar generat poGeneratorNumere.dezaloca_numar(poDate.nIdTipDoc) ENDIF IF m.llReturn DO CASE CASE poDate.cTip = 'TRANZIT' AND !This.cmdImport.Enabled && TRANZIT la care s-a importat deja, sterg DIN ips_voyages_vanzari llSucces = STERG_TRANZIT() CASE poDate.cTip = 'CHEIAJ' AND !This.cmdImport.Enabled && TRANZIT la care s-a importat deja, sterg DIN ips_voyages_vanzari llSucces = STERG_CHEIAJ() CASE INLIST(poDate.cTip, 'CHIRII', 'APA') AND !This.cmdImport.Enabled && CHIRII si APA la care s-a importat deja, sterg DIN ips_regdoc llSucces = STERG_CONTRACT_REGDOC() ENDCASE ENDIF ELSE llReturn = .T. ENDIF RETURN m.llReturn ENDPROC PROCEDURE inainte_de_do_termin RETURN This.inainte_de_do_renunt() ENDPROC PROCEDURE Init LPARAMETERS toDateAditionale DoDefault() This.gridextra1.Setup() this.grdFactura.HeaderHeight = 36 && se suprascrie la gridextra1.setup. nu stiu de ce Thisform.InitFactura("NOU", toDateAditionale) ENDPROC PROCEDURE initfactura *!* Resetare factura la prima factura, dupa o salvare reusita sau la apasare butonului Reset LPARAMETERS tcTip, toDateAditionale * tcTip: SALVARE; RESETARE; NOU SAU EMPTY (DEFAULT) * toDateAditionale: (optional), poate contine Numele clientului, contractul, apel la make_factura daca este initiata factura din alt formular LOCAL lcTip, llResetare, llNou, lnNrAct, loDateAditionale, llImportFactura lcTip = IIF(!EMPTY(m.tcTip), UPPER(ALLTRIM(m.tcTip)), 'NOU') lcTip = IIF(INLIST(m.lcTip, 'SALVARE', 'RESETARE', 'NOU'), m.lcTip, 'NOU') llResetare = (m.lcTip = 'RESETARE') llNou = (m.lcTip = 'NOU') IF TYPE('toDateAditionale') = 'O' loDateAditionale = m.toDateAditionale ELSE loDateAditionale = CREATEOBJECT("oDateFacturaACN") ENDIF llImportFactura = loDateAditionale.lImportFactura && daca se importa factura la intrarea in factura, daca este lansata factura dintr-un formular de calcul * La resetare, pastrez nract. La salvare sau la prima factura golesc numarul * Daca initializez cu 0 se genereaza un numar nou din plaja de numere factura lnNrAct = 0 IF m.llResetare SELECT crsCapFactura GO TOP lnNrAct = nract ENDIF SELECT crsCapFactura DELETE ALL GO TOP APPEND BLANK REPLACE intern WITH 1, nract WITH m.lnNrAct REPLACE client WITH loDateAditionale.cDenumireClient, client_id WITH loDateAditionale.nIdClient, contract_client WITH loDateAditionale.cContractClient, client_ctr_id WITH loDateAditionale.nIdContractClient, intern WITH loDateAditionale.nIntern SELECT crsFactura DELETE ALL GO TOP make_cregdoc() make_actactan() With Thisform Select crsCapFactura Go Top .cDenumireClient = Alltrim(Nvl(client, '')) .nIdClient = client_id .cContractClient = Alltrim(Nvl(contract_client, '')) .nIdContractClient = client_ctr_id .cDenumireBeneficiar = Alltrim(Nvl(beneficiar, '')) .nIdBeneficiar = beneficiar_id .nEAgent = eagent .nIntern = intern .nNrZileScadenta = nr_zile_scadenta .nTipCurs = tip_curs poDate.nract = 0 poDate.dataact = GenDataAct() && proceduri_acnpro.prg poGeneratorNumere.ResetNumar(poDate.nIdTipDoc) poDate.in_valuta = IIF(.nIntern = 1, 0, 1) Thisform.RefreshDate() && data scadenta (data act), datacurs valutar (tip curs) IF m.llNou If Inlist(poDate.rezultat_serii, 1, 2, 3) && Tratez si rezultat_serii = 2 FARA SERIE CU PLAJE, sa generez numarul urmator pentru BON FISCAL .clb_serie_act.nid_tipdoc = poDate.nIdTipDoc .clb_serie_act.do_initializeaza(poDate.rezultat_serii) Else .RemoveObject('clb_serie_act') ENDIF * Initializez seria initiala. Ar trebui sa iau dintr-un tabel de asocieri! IF USED('crsseriitemp5') poDate.serie_act = IIF(poDate.cTip = 'TRANZIT', 'TRI', IIF(poDate.cTip = 'CHEIAJ', 'DVI', IIF(poDate.cTip = 'CHIRII', 'CHI', IIF(poDate.cTip = 'APA', '', IIF(poDate.cTip = 'PENALITATI', 'AVN', 'DVI'))))) && initializez serie_act in functie de tipul de factura (TRANZIT, CHEIAJ...) SELECT crsseriitemp5 LOCATE FOR serie = poDate.serie_act IF !FOUND() GO TOP ENDIF poDate.serie_act = ALLTRIM(serie) .clb_serie_act._cbbase1.value = poDate.serie_act ENDIF && USED('crsseriitemp5') ENDIF ENDWITH This.lFacturaSalvata = (m.lcTip = 'SALVARE') && activez/dezactivez butoanele FACTURA NOUA / SALVARE FACTURA This.lNumarActGenerat = .F. && resetez marca de numar act generat automat * Import factura daca este lansata factura dintr-un formular de calcul IF m.llNou AND m.llImportFactura IF !(EMPTY(NVL(thisform.nIdClient,0)) AND EMPTY(NVL(thisform.nIdContractClient,0))) this.GetContracteClient(this.nIdClient, thisform.nIdContractClient) ENDIF This.do_executa(m.llImportFactura) ENDIF This.CalculeazaTotaluri() This.Refresh() DO CASE CASE m.lcTip = 'SALVARE' This.but_factura_noua.SetFocus() CASE m.llNou AND m.llImportFactura this.clb_serie_act.SetFocus() OTHERWISE This.but_cautare_client.SetFocus() ENDCASE ENDPROC PROCEDURE lfacturasalvata_assign Lparameters tlFacturaSalvata LOCAL llFacturaEditabila, llAdaugareLibera, llRorisSauContracte This.lFacturaSalvata = m.tlFacturaSalvata llFacturaEditabila = !This.lFacturaSalvata && pot sa editez factura doar daca nu este salvata llAdaugareLibera = (poDate.cTip = 'DIVERSE') && se pot adauga/sterge linii doar pentru facturi diverse llRorisSauContracte = INLIST(poDate.cTip, 'TRANZIT', 'CHEIAJ', 'CHIRII', 'APA', 'PENALITATI') && butonul import RORIS&Contracte este activ doar pentru RORIS sau contracte With This .but_factura_noua.Enabled = !m.llFacturaEditabila .but_salveaza1.Enabled = .F. && m.llFacturaEditabila ; activez butonul salvare doar cand adaug o linie pe factura .but_cautare_client.Enabled = m.llFacturaEditabila .but_cautare_beneficiar.Enabled = m.llFacturaEditabila .cboContract.Enabled = .F. && contractul este editabil doar daca exista contracte pentru clientul ales m.llFacturaEditabila * .chkAgent.Enabled = m.llFacturaEditabila .chkIntern.Enabled = m.llFacturaEditabila .clb_serie_act.Enabled = m.llFacturaEditabila .txtNrFact.Enabled = m.llFacturaEditabila .txtdataFact.Enabled = m.llFacturaEditabila .txtdataScad.Enabled = m.llFacturaEditabila .txtDataCurs.Enabled = m.llFacturaEditabila .cmdImport.Enabled = m.llFacturaEditabila .chkIntern.Enabled = m.llFacturaEditabila .but_nou1.Enabled = m.llFacturaEditabila and m.llAdaugareLibera .but_sterge1.Enabled = m.llFacturaEditabila and m.llAdaugareLibera .grdFactura.Enabled = m.llFacturaEditabila .edtTextSubsol.Enabled = m.llFacturaEditabila .cmdImport.Enabled = m.llFacturaEditabila and m.llRorisSauContracte Endwith ENDPROC PROCEDURE refreshdatascadenta poDate.DataScad = poDate.dataact + IIF(!EMPTY(Nvl(Thisform.nNrZileScadenta, 0)), Thisform.nNrZileScadenta, 30) Thisform.txtDataScad.Refresh() ENDPROC PROCEDURE refreshdate * recalculez data scadenta in functie de numarul de zile de scadenta, zi curs valutar in functie de setarile din contract Local lnTipCurs lnTipCurs = NVL(Thisform.nTipCurs, 0) Do Case Case m.lnTipCurs = 2 && ultima zi a lunii precedente datei de facturare poDate.zi_curs = poDate.dataact - Day(poDate.dataact) Otherwise && 0 = nedefinit, 1 = data factura poDate.zi_curs = poDate.dataact ENDCASE thisform.CitesteCursuri() Thisform.CalculeazaPreturi() thisform.txtDataCurs.Refresh() This.RefreshDataScadenta() ENDPROC PROCEDURE Show LPARAMETERS nStyle DODEFAULT(nStyle) this.WindowState = 2 *this.Height = 416 *this.AutoCenter = .T. ENDPROC PROCEDURE cboContract.LostFocus Thisform.cContractClient = alltrim(NVL(crsContracteX.contract,'')) thisform.nNrZileScadenta = crsContracteX.nr_zile_scadenta thisform.nTipCurs = crsContracteX.tip_curs Thisform.RefreshDate() && data scadenta (data act), datacurs valutar (tip curs) ENDPROC PROCEDURE cboTip.Valid Thisform.cContractClient = ALLTRIM(NVL(crsContracteX.contract, '')) ENDPROC PROCEDURE Clb_serie_act._cbbase1.LostFocus LOCAL lnNumarAct lnNumarAct = poDate.nract && numar original DODEFAULT() && posibil sa genereze numar - daca am schimbat seria sau numarul original este 0 Thisform.lNumarActGenerat = (poDate.nract <> m.lnNumarAct) && daca dau renunt fara sa salvez, vreau sa dezaloc numarul ENDPROC PROCEDURE cmdImport.GotFocus This.BackColor= RGB(0,80,200) ENDPROC PROCEDURE cmdImport.LostFocus This.BackColor= RGB(0,159,236) ENDPROC PROCEDURE grdFactura.cArticol.Combo1.Valid REPLACE denumire WITH crsArticoleX.denumire, um WITH crsArticoleX.um IN crsFactura thisform.grdFactura.cdenumire.Refresh() ENDPROC PROCEDURE grdFactura.cCantitate.Text2.LostFocus IF crsFactura.cantitate <> Thisform.nCantitate Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdFactura.cCantitate.Text2.When Thisform.nCantitate = crsFactura.cantitate RETURN .T. ENDPROC PROCEDURE grdFactura.cCurs.Text2.LostFocus IF crsFactura.curs <> Thisform.nCurs Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdFactura.cCurs.Text2.When Thisform.nCurs = crsFactura.curs RETURN .T. ENDPROC PROCEDURE grdFactura.cExplicatieTVA.Combo1.Valid Local lnIdJtvaColoana, lnIdJtvaColoanaEx0, lnIdJtvaColoanaEx1, lnProcTva, lnRecno lnIdJtvaColoanaEx0 = Thisform.nIdJtvaColoanaEx lnIdJtvaColoanaEx1 = crsJTVAX.Id lnIdJtvaColoana = crsJTVAX.id_jtva_coloana lnProcTva = Round(1 + crsJTVAX.cota_tva / 100, 2) IF lnIdJtvaColoanaEx0 = lnIdJtvaColoanaEx1 RETURN .T. ENDIF Select crsFactura Replace id_jtva_coloana With m.lnIdJtvaColoana, proc_tva With m.lnProcTva In crsFactura lnRecno = Recno('crsFactura') lnRecc = RECCOUNT('crsFactura') Thisform.CalculeazaPreturiRand() IF m.lnRecno < m.lnRecc AND AMESSAGEBOX('Se actualizeaza toate explicatiile de TVA similare?', 4 + 32, _Screen.Caption) = 6 Select crsFactura Scan For id_jtva_coloana_ex = m.lnIdJtvaColoanaEx0 Replace id_jtva_coloana_ex With m.lnIdJtvaColoanaEx1, ; id_jtva_coloana With m.lnIdJtvaColoana, ; proc_tva With m.lnProcTva Thisform.CalculeazaPreturiRand() Endscan Select crsFactura If m.lnRecno > 0 Locate For Recno() = m.lnRecno If !Found() Go Top Endif Endif Endif Thisform.CalculeazaTotaluri() ENDPROC PROCEDURE grdFactura.cExplicatieTVA.Combo1.When Thisform.nIdJtvaColoanaEx = crsFactura.id_jtva_coloana_ex RETURN .T. ENDPROC PROCEDURE grdFactura.cPretcTVA.Check1.Valid thisform.CalculeazaPreturiRand() thisform.CalculeazaTotaluri() ENDPROC PROCEDURE grdFactura.cPretUnitar.Text2.LostFocus IF crsFactura.pret <> Thisform.nPret Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdFactura.cPretUnitar.Text2.When Thisform.nPret = crsFactura.pret ENDPROC PROCEDURE grdFactura.cPUValuta.Text2.LostFocus IF crsFactura.pretval <> Thisform.nPretVal Thisform.CalculeazaPreturiRand() THisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdFactura.cPUValuta.Text2.When Thisform.nPretVal = crsFactura.PretVal RETURN .T. ENDPROC PROCEDURE grdFactura.cValuta.Combo1.Valid IF crsValuteX.id_valuta <> Thisform.nIdValuta Thisform.CalculeazaPreturiRand() Thisform.CalculeazaTotaluri() ENDIF ENDPROC PROCEDURE grdFactura.cValuta.Combo1.When Thisform.nIdValuta = crsFactura.id_valuta RETURN .T. ENDPROC PROCEDURE txtBeneficiar.Click IF EMPTY(thisform.cDenumireBeneficiar) thisform.do_cauta_partener('beneficiar') ENDIF ENDPROC PROCEDURE txtBeneficiar.DblClick thisform.do_cauta_partener('beneficiar') ENDPROC PROCEDURE txtBeneficiar.InteractiveChange thisform.do_cauta_partener('beneficiar') ENDPROC PROCEDURE txtClient.Click IF EMPTY(thisform.cDenumireClient) thisform.do_cauta_partener('client') ENDIF ENDPROC PROCEDURE txtClient.DblClick thisform.do_cauta_partener('client') ENDPROC PROCEDURE txtClient.InteractiveChange thisform.do_cauta_partener('client') ENDPROC PROCEDURE txtDataCurs.Valid thisform.CitesteCursuri() Thisform.CalculeazaPreturi() ENDPROC PROCEDURE txtDataFact.LostFocus Thisform.RefreshDataScadenta() ENDPROC PROCEDURE txtNrFact.LostFocus * verific daca numarul facturii este cel generat automat. daca numarul facturii a fost suprascris, se va dezaloca numarul generat automat poGeneratorNumere.verifica_numar(poDate.nIdTipDoc, poDate.nract) DODEFAULT() llExista = VerificaFacturaClientiVanzari(poDate.nract, NVL(poDate.serie_act,'')) && oproceduri_comune.prg IF m.llExista AMESSAGEBOX('Factura cu numarul ' + ALLTRIM(NVL(poDate.serie_act,'')) + ' ' + ALLTRIM(STR(poDate.nract)) + ' exista deja in luna curenta!',0+48, _screen.Caption) ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_penalitati 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="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataFact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataFact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNrFact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNrFact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cTotctva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cTotctva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataScad.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataScad.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataDoc.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataDoc.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNrDoc.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNrDoc.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cSuma.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cSuma.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNrZile.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNrZile.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPenalitati.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPenalitati.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNume.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cNume.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cContract.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cContract.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cExplicatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cExplicatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.Column14.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.Column14.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.Column15.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.Column15.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.Column16.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.Column16.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cBeneficiar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cBeneficiar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataBaza.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataBaza.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataRef.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDataRef.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDescriere.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cDescriere.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cZileGratie.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cZileGratie.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cCont.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cCont.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPenzile.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPenzile.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPenzile2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cPenzile2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cFacturat.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cFacturat.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cFacturat._CHECKBOX1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cSters.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cSters.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdPenalitati.cSters._CHECKBOX1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkIncerti" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdCalcul" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="optZile" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtTotalPen" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblTotal" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="optTipCalcul" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdFactura" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboClienti" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkFacturate" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="chkSterse" UniqueID="" Timestamp="" /> * *m: afisactual *m: calculeaza_totaluri *m: do_cauta_partener *m: do_factura *m: salveazapenalitati *p: ccontractclient *p: ccontractfiltru *p: cdenumirebeneficiar *p: cdenumireclient *p: cexplicatiafiltru *p: cnumefiltru *p: ddatabaza *p: ddatareferinta && Data de referinta pentru calculul zilelor de penalitati pentru evaluare, *p: levaluare && Daca se evalueaza penalitatile fata de o data de referinta. *p: neagent *p: nidbeneficiar *p: nidclient *p: nidcontractclient *p: ninter *p: nintern *p: nnrzile && numarul de zile penalitati din linia curenta *p: npenalitati * * BorderStyle = 3 ccontractclient = ccontractfiltru = cdenumirebeneficiar = cdenumireclient = cexplicatiafiltru = cnumefiltru = ddatabaza = {} ddatareferinta = {} DoCreate = .T. Height = 483 levaluare = .F. Name = "frm_penalitati" neagent = 0 nidbeneficiar = 0 nidclient = 0 nidcontractclient = 0 ninter = 0 nintern = 0 nnrzile = 0 npenalitati = 0 Width = 787 WindowState = 2 _memberdata = _SHAPE1.Anchor = 10 _SHAPE1.Height = 29 _SHAPE1.Left = 5 _SHAPE1.Name = "_SHAPE1" _SHAPE1.Top = 0 _SHAPE1.Width = 813 _SHAPE1.ZOrderSet = 1 _shape2.Left = 804 _shape2.Name = "_shape2" _shape2.Top = -12 _shape2.ZOrderSet = 2 LB_TITLU_ALB_B121.Caption = "Penalitati" LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" LB_TITLU_ALB_B121.TabIndex = 12 LB_TITLU_ALB_B121.ZOrderSet = 3 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Enabled = .F. BUT_TERMIN1.Left = 756 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Picture = ..\comun\grafice\terminat_sus.bmp BUT_TERMIN1.TabIndex = 11 BUT_TERMIN1.Top = 0 BUT_TERMIN1.ZOrderSet = 5 Gridsort1.Height = 17 Gridsort1.Left = 768 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 108 Gridsort1.Width = 24 * ADD OBJECT '_shape3' AS _shape WITH ; BackStyle = 0, ; Height = 89, ; Left = 13, ; Name = "_shape3", ; Top = 32, ; Width = 599, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 9, ; Left = 666, ; Name = "But_excel1", ; Picture = ..\comun\grafice\excel_sus.bmp, ; TabIndex = 9, ; Top = 0, ; Visible = .T., ; ZOrderSet = 15 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 9, ; Left = 696, ; Name = "But_listare1", ; Picture = ..\comun\grafice\listare_sus.bmp, ; TabIndex = 10, ; Top = 0, ; Visible = .T., ; ZOrderSet = 16 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 8, ; Left = 727, ; Name = "But_renunt1", ; Top = 0, ; ZOrderSet = 21 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 9, ; Left = 636, ; Name = "But_sterge1", ; Picture = ..\comun\grafice\sterg_sus.bmp, ; TabIndex = 8, ; Top = 0, ; ZOrderSet = 18 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'cboClienti' AS _combobox WITH ; Height = 24, ; Left = 13, ; Name = "cboClienti", ; RowSource = "crsClientiPenalitati.nume", ; RowSourceType = 6, ; Top = 129, ; Width = 299, ; ZOrderSet = 22 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'chkFacturate' AS _checkbox WITH ; Alignment = 0, ; Caption = "Inclusiv documente facturate", ; ControlSource = "m.plFacturate", ; FontBold = .F., ; Height = 18, ; Left = 176, ; Name = "chkFacturate", ; TabIndex = 3, ; Top = 96, ; Value = .F., ; Width = 183, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'chkIncerti' AS _checkbox WITH ; Alignment = 0, ; Caption = "Inclusiv clienti incerti", ; ControlSource = "m.pl4118", ; FontBold = .F., ; Height = 18, ; Left = 21, ; Name = "chkIncerti", ; TabIndex = 3, ; Top = 96, ; Value = .F., ; Width = 138, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'chkSterse' AS _checkbox WITH ; Alignment = 0, ; Caption = "Inclusiv documente sterse", ; ControlSource = "m.plSterse", ; FontBold = .F., ; Height = 18, ; Left = 372, ; Name = "chkSterse", ; TabIndex = 3, ; Top = 96, ; Value = .F., ; Width = 169, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'cmdCalcul' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .F., ; Caption = "1. \ ADD OBJECT 'cmdFactura' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .F., ; caction = do_factura, ; Caption = "2. \ ADD OBJECT 'grdPenalitati' AS _grdrow WITH ; Anchor = 15, ; ColumnCount = 27, ; Comment = "*:OnResize=ss", ; DeleteMark = .F., ; HeaderHeight = 36, ; Height = 288, ; HighlightBackColor = 92,107,150, ; HighlightForeColor = 255,255,255, ; HighlightStyle = 2, ; Left = 12, ; Name = "grdPenalitati", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsCalculPenalitati", ; RowHeight = 19, ; TabIndex = 7, ; Top = 156, ; Width = 766, ; ZOrderSet = 7, ; Column1.ColumnOrder = 6, ; Column1.ControlSource = "dataFact", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cDataFact", ; Column1.ReadOnly = .T., ; Column1.Width = 69, ; Column2.ColumnOrder = 5, ; Column2.ControlSource = "nrFact", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cNrFact", ; Column2.ReadOnly = .T., ; Column2.Width = 90, ; Column3.ColumnOrder = 7, ; Column3.ControlSource = "valctva", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.InputMask = (get_mask(12,gnZ)), ; Column3.Name = "cTotctva", ; Column3.ReadOnly = .T., ; Column3.Width = 82, ; Column4.ColumnOrder = 10, ; Column4.ControlSource = "dataScad", ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Name = "cDataScad", ; Column4.ReadOnly = .T., ; Column4.Width = 91, ; Column5.ColumnOrder = 11, ; Column5.ControlSource = "dataact", ; Column5.FontName = "Arial", ; Column5.FontSize = 10, ; Column5.Name = "cDataDoc", ; Column5.ReadOnly = .T., ; Column5.Width = 82, ; Column6.ColumnOrder = 12, ; Column6.ControlSource = "nract", ; Column6.FontName = "Arial", ; Column6.FontSize = 10, ; Column6.Name = "cNrDoc", ; Column6.ReadOnly = .T., ; Column6.Width = 87, ; Column7.ColumnOrder = 13, ; Column7.ControlSource = "suma", ; Column7.FontName = "Arial", ; Column7.FontSize = 10, ; Column7.Format = "", ; Column7.InputMask = (get_mask(12,gnZ)), ; Column7.Name = "cSuma", ; Column7.ReadOnly = .T., ; Column7.Width = 67, ; Column8.ColumnOrder = 20, ; Column8.ControlSource = "nr_zile", ; Column8.FontName = "Arial", ; Column8.FontSize = 10, ; Column8.Name = "cNrZile", ; Column8.ReadOnly = .T., ; Column8.Sparse = .F., ; Column8.Width = 59, ; Column9.ColumnOrder = 23, ; Column9.ControlSource = "penalitati", ; Column9.DynamicBackColor = "RGB(220,220,220)", ; Column9.FontName = "Arial", ; Column9.FontSize = 10, ; Column9.InputMask = (get_mask(12,gnZ)), ; Column9.Name = "cPenalitati", ; Column9.ReadOnly = .T., ; Column9.Width = 103, ; Column10.ColumnOrder = 1, ; Column10.ControlSource = "nume", ; Column10.FontName = "Arial", ; Column10.FontSize = 10, ; Column10.Name = "cNume", ; Column10.ReadOnly = .T., ; Column10.Width = 135, ; Column11.ColumnOrder = 21, ; Column11.ControlSource = "ppenzi", ; Column11.FontName = "Arial", ; Column11.FontSize = 10, ; Column11.InputMask = "99.99", ; Column11.Name = "cPpenzi", ; Column11.ReadOnly = .T., ; Column11.Width = 95, ; Column12.ColumnOrder = 2, ; Column12.ControlSource = "contract", ; Column12.FontName = "Arial", ; Column12.FontSize = 10, ; Column12.Name = "cContract", ; Column12.ReadOnly = .T., ; Column12.Width = 153, ; Column13.ColumnOrder = 4, ; Column13.ControlSource = "explicatia", ; Column13.FontName = "Arial", ; Column13.FontSize = 10, ; Column13.Name = "cExplicatia", ; Column13.ReadOnly = .T., ; Column13.Width = 105, ; Column14.ColumnOrder = 8, ; Column14.ControlSource = "totval", ; Column14.FontName = "Arial", ; Column14.FontSize = 10, ; Column14.Format = "R", ; Column14.InputMask = (get_mask(12,gnZ)), ; Column14.Name = "Column14", ; Column14.ReadOnly = .T., ; Column14.Width = 91, ; Column15.ColumnOrder = 9, ; Column15.ControlSource = "valuta", ; Column15.FontName = "Arial", ; Column15.FontSize = 10, ; Column15.Name = "Column15", ; Column15.ReadOnly = .T., ; Column15.Width = 85, ; Column16.ColumnOrder = 14, ; Column16.ControlSource = "sumaval", ; Column16.FontName = "Arial", ; Column16.FontSize = 10, ; Column16.Format = "R", ; Column16.InputMask = (get_mask(12,gnZ)), ; Column16.Name = "Column16", ; Column16.ReadOnly = .T., ; Column16.Width = 105, ; Column17.ColumnOrder = 3, ; Column17.ControlSource = "beneficiar", ; Column17.FontName = "Arial", ; Column17.FontSize = 10, ; Column17.Name = "cBeneficiar", ; Column17.ReadOnly = .T., ; Column17.Width = 128, ; Column18.ColumnOrder = 16, ; Column18.ControlSource = "databaza", ; Column18.DynamicBackColor = "RGB(200,250,220)", ; Column18.FontName = "Arial", ; Column18.FontSize = 10, ; Column18.Name = "cDataBaza", ; Column18.ReadOnly = .F., ; Column18.Width = 78, ; Column19.ColumnOrder = 17, ; Column19.ControlSource = "dataref", ; Column19.FontName = "Arial", ; Column19.FontSize = 10, ; Column19.Name = "cDataRef", ; Column19.ReadOnly = .T., ; Column19.Width = 91, ; Column20.ColumnOrder = 25, ; Column20.ControlSource = "descriere", ; Column20.FontName = "Arial", ; Column20.FontSize = 10, ; Column20.Name = "cDescriere", ; Column20.ReadOnly = .T., ; Column20.Width = 209, ; Column21.ColumnOrder = 15, ; Column21.ControlSource = "zilegratie", ; Column21.FontName = "Arial", ; Column21.FontSize = 10, ; Column21.Name = "cZileGratie", ; Column21.ReadOnly = .T., ; Column21.Width = 73, ; Column22.ColumnOrder = 24, ; Column22.ControlSource = "cont", ; Column22.FontName = "Arial", ; Column22.FontSize = 10, ; Column22.Name = "cCont", ; Column22.ReadOnly = .T., ; Column22.Width = 51, ; Column23.ColumnOrder = 22, ; Column23.ControlSource = "ppenzi2", ; Column23.FontName = "Arial", ; Column23.FontSize = 10, ; Column23.InputMask = "99.99", ; Column23.Name = "cPpenzi2", ; Column23.ReadOnly = .T., ; Column23.Width = 91, ; Column24.ColumnOrder = 18, ; Column24.ControlSource = "nr_zile1", ; Column24.FontName = "Arial", ; Column24.FontSize = 10, ; Column24.Name = "cPenzile", ; Column24.ReadOnly = .T., ; Column24.Width = 56, ; Column25.ColumnOrder = 19, ; Column25.ControlSource = "nr_zile2", ; Column25.FontName = "Arial", ; Column25.FontSize = 10, ; Column25.Name = "cPenzile2", ; Column25.ReadOnly = .T., ; Column25.Width = 57, ; Column26.ControlSource = "facturate", ; Column26.CurrentControl = "_CHECKBOX1", ; Column26.Name = "cFacturat", ; Column26.ReadOnly = .T., ; Column26.Sparse = .F., ; Column26.Width = 48, ; Column27.ControlSource = "sterse", ; Column27.CurrentControl = "_CHECKBOX1", ; Column27.Name = "cSters", ; Column27.ReadOnly = .T., ; Column27.Sparse = .F., ; Column27.Width = 33 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdPenalitati.cBeneficiar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Beneficiar", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cBeneficiar.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cCont.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cont", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cCont.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cContract.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cContract.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cDataBaza.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data baza", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cDataBaza.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 'grdPenalitati.cDataDoc.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data incasare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cDataDoc.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cDataFact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data factura", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cDataFact.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cDataRef.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data referinta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cDataRef.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cDataScad.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data scadenta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cDataScad.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cDescriere.Header1' AS header WITH ; Alignment = 2, ; Caption = "Descriere", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cDescriere.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cExplicatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatia", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cExplicatia.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cFacturat._CHECKBOX1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; Centered = .T., ; ControlSource = "facturate", ; Left = 35, ; Name = "_CHECKBOX1", ; Top = 71 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdPenalitati.cFacturat.Header1' AS header WITH ; Alignment = 2, ; BackColor = 240,240,240, ; Caption = "Facturat", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cFacturat.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cNrDoc.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. doc. incasare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cNrDoc.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cNrFact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. factura", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cNrFact.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cNrZile.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. zile penalitati", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cNrZile.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cNume.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.Column14.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare factura in valuta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.Column14.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.Column15.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.Column15.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.Column16.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare incasare in valuta", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.Column16.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cPenalitati.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare penalitati", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cPenalitati.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cPenzile.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. zile pen. 1", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cPenzile.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cPenzile2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. zile pen. 2", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cPenzile2.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cPpenzi.Header1' AS header WITH ; Alignment = 2, ; Caption = "Procent penalitati / zi", ; FontBold = .F., ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cPpenzi.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cPpenzi2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Procent penalitati / zi 2", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cPpenzi2.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cSters._CHECKBOX1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; Centered = .T., ; ControlSource = "sterse", ; Left = 22, ; Name = "_CHECKBOX1", ; Top = 83 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdPenalitati.cSters.Header1' AS header WITH ; Alignment = 2, ; Caption = "Sters", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cSters.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cSuma.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare incasare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cSuma.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cTotctva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare factura", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cTotctva.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdPenalitati.cZileGratie.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. zile gratie", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdPenalitati.cZileGratie.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.grdPenalitati, ; Height = 17, ; Left = 516, ; Name = "Gridextra1", ; Top = 456, ; Width = 17 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Label1' AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "Calcul zile penalitati", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 218, ; Name = "Label1", ; TabIndex = 10, ; Top = 38, ; Width = 131, ; WordWrap = .T., ; ZOrderSet = 17 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label2' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Tip calcul", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 22, ; Name = "Label2", ; TabIndex = 11, ; Top = 36, ; Width = 64, ; ZOrderSet = 19 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data referinta", ; FontBold = .T., ; FontSize = 10, ; Height = 18, ; Left = 390, ; Name = "Label3", ; TabIndex = 8, ; Top = 38, ; Width = 89, ; ZOrderSet = 10 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'lblTotal' AS _lbbase WITH ; Anchor = 12, ; Caption = "TOTAL", ; FontBold = .T., ; Left = 604, ; Name = "lblTotal", ; TabIndex = 14, ; Top = 456, ; ZOrderSet = 14 *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> ADD OBJECT 'optTipCalcul' AS _optiongrup WITH ; AutoSize = .T., ; BorderStyle = 0, ; ButtonCount = 4, ; ControlSource = "pnTipCalcul", ; Height = 46, ; Left = 14, ; Name = "optTipCalcul", ; TabIndex = 1, ; Top = 48, ; Width = 183, ; ZOrderSet = 20, ; Option1.AutoSize = .T., ; Option1.Caption = "Incasari si sold", ; Option1.FontSize = 10, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 5, ; Option2.AutoSize = .T., ; Option2.Caption = "Incasari", ; Option2.FontSize = 10, ; Option2.Left = 114, ; Option2.Name = "Option2", ; Option2.Top = 5, ; Option3.AutoSize = .T., ; Option3.BackStyle = 0, ; Option3.Caption = "Sold", ; Option3.FontSize = 10, ; Option3.Height = 18, ; Option3.Left = 114, ; Option3.Name = "Option3", ; Option3.Top = 23, ; Option3.Width = 45, ; Option4.AutoSize = .T., ; Option4.BackStyle = 0, ; Option4.Caption = "Evaluare", ; Option4.FontSize = 10, ; Option4.Height = 18, ; Option4.Left = 5, ; Option4.Name = "Option4", ; Option4.Top = 23, ; Option4.Width = 68 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> ADD OBJECT 'optZile' AS _optiongrup WITH ; BorderStyle = 0, ; ControlSource = "pnCalculZile", ; Height = 46, ; Left = 210, ; Name = "optZile", ; TabIndex = 4, ; Top = 51, ; Width = 179, ; ZOrderSet = 12, ; Option1.AutoSize = .T., ; Option1.Caption = "Fata de luna precedenta", ; Option1.FontSize = 10, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 5, ; Option2.AutoSize = .F., ; Option2.Caption = "Fata de data scadenta", ; Option2.FontSize = 10, ; Option2.Height = 17, ; Option2.Left = 5, ; Option2.Name = "Option2", ; Option2.Top = 24, ; Option2.Width = 169 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> ADD OBJECT 'txtData' AS textbox WITH ; ControlSource = "pdDataReferinta", ; FontSize = 10, ; Format = "k!", ; Height = 23, ; Left = 393, ; Name = "txtData", ; TabIndex = 2, ; Top = 60, ; Width = 97, ; ZOrderSet = 11 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'txtTotalPen' AS _txbase WITH ; Anchor = 12, ; ControlSource = "thisform.nPenalitati", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(16,gnPC)), ; Left = 648, ; Name = "txtTotalPen", ; TabIndex = 13, ; Top = 453, ; Width = 132, ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> PROCEDURE afisactual ENDPROC PROCEDURE calculeaza_totaluri Local lnRecno, lcSelect lcSelect = Select() Select crsCalculPenalitati lnRecno = Recno() Calculate Sum(penalitati) To Thisform.nPenalitati Thisform.txtTotalPen.Refresh If m.lnRecno > 0 AND RECCOUNT('crsCalculPenalitati') >= m.lnRecno Goto m.lnRecno Else Go Top Endif Select (lcSelect) ENDPROC PROCEDURE do_cauta_partener LPARAMETERS tcTipPartener * tcTipPartener: client/beneficiar loCauta = caut_partener("-1", "Alege partener") IF LOWER(m.tcTipPartener) = 'client' this.cDenumireClient = loCauta.denumire this.nIdClient = locauta.id_part this.txtClient.Refresh() this.GetContracteClient(this.nIdClient) ELSE this.cDenumireBeneficiar = loCauta.denumire this.nIdBeneficiar = locauta.id_part this.txtBeneficiar.Refresh() ENDIF ENDPROC PROCEDURE do_excel Do export_excel_grid with this.grdPenalitati ENDPROC PROCEDURE do_executa LOCAL llEsteFactura llEsteFactura = Used('crsCapFactura') this.grdPenalitati.salveaza_grid() This.cboClienti.RowSource = '' *!* DO calcul_penalitati IN proceduri_acnpro.prg DO calcul_penalitati2 WITH This.nIdClient IN proceduri_acnpro.prg && folosesc ireg_parteneri in loc de vanzari, pana import vanzarile this.grdPenalitati.incarca_grid() SELECT crsCalculPenalitati LOCATE FOR !EMPTY(nume) IF !FOUND() AMESSAGEBOX('Nu exista inregistrari care corespund criteriilor!',0+64,_screen.Caption) ENDIF This.cboClienti.RowSource = 'crsClientiPenalitati.nume' SELECT crsClientiPenalitati GO TOP this.cboClienti.Value = crsClientiPenalitati.nume Thisform.calculeaza_totaluri() IF m.llEsteFactura * Daca sunt intr-o factura si am dat import, pot sa apas pe Terminat this.but_terMIN1.Enabled = .T. ELSE * Daca sunt in formularul de calcul direct, pot sa facturez this.cmdFactura.Enabled = .T. ENDIF ENDPROC PROCEDURE do_factura Local loDateFactura As "oDateFacturaACN" Local llSucces, lcContractClient, lcDenumireClient, lnIdClient, lnIdContractClient Select crsCalculPenalitati lcDenumireClient = Alltrim(nume) lnIdClient = clie_id lcContractClient = Alltrim(numar) lnIdContractClient = Iif(!Empty(id_ctr), id_ctr, Null) loDateFactura = Createobject("oDateFacturaACN") With loDateFactura .nIntern = 1 .cDenumireClient = m.lcDenumireClient .nIdClient = m.lnIdClient .cContractClient = m.lcContractClient .nIdContractClient = m.lnIdContractClient .lImportFactura = .T. && daca se apeleaza importul la intrarea in factura Endwith llSucces = This.SalveazaPenalitati() If !m.llSucces Return Endif Do factura_acn With "PENALITATI", loDateFactura ENDPROC PROCEDURE do_listare LOCAL lcFilter, lcTitlu, llEvaluare lcFilter = FILTER('crsCalculPenalitati') lcFilter = IIF(!EMPTY(m.lcFilter), m.lcFilter, [.T.]) SELECT * FROM crsCalculPenalitati WHERE &lcFilter ORDER BY nume, contract, datafact, nrfact, dataact, nract INTO CURSOR crsRecapitulatie lcTitlu = 'Situatia calculului penalitatilor de intarziere la ' + Alltrim(Transform(m.pdDataReferinta)) llEvaluare = .T. DO listeaza_recapitulatie_penalitati WITH llEvaluare, m.lcTitlu USE IN (SELECT('crsRecapitulatie')) ENDPROC PROCEDURE do_sterge * Pot sa sterg inregistrari doar daca sunt intr-o factura * Inregistrarile sterse se salveaza doar odata cu factura, nu la vizualizarea separata *!* IF !Used('crsCapFactura') *!* RETURN *!* ENDIF If !Empty(crsCalculPenalitati.nume) If aMessageBox('Doriti sa stergeti inregistrarea?',4+32,'Penalitati') = 6 If aMessageBox('Stergeti definitiv?' + Chr(13) + Chr(10) + 'Atentie nu se poate reveni asupra inregistrarilor sterse daca se continua cu factura!',4+32,'Penalitati') = 6 SELECT crsCalculPenalitati REPLACE sters WITH 2 DELETE TRY SKIP -1 CATCH GO TOP ENDTRY Endif this.calculeaza_totaluri() This.grdPenalitati.Refresh() This.grdPenalitati.SetFocus() Endif Endif ENDPROC PROCEDURE inainte_de_do_termin * Daca nu am lansat formularul de penalitati din Factura, ies fara sa fac nimic Local llSucces If !Used('crsCapFactura') Return .T. Endif If Reccount('crsCalculPenalitati') = 0 Return .F. Endif llSucces = This.SalveazaPenalitati() If !m.llSucces AMESSAGEBOX('Eroare salvare informatii penalitati!', 0 + 48, _Screen.Caption) Endif Return m.llSucces ENDPROC PROCEDURE Init DODEFAULT() With Thisform If Used('crsCapFactura') Select crsCapFactura Go Top .cDenumireClient = Alltrim(Nvl(client, '')) .nIdClient = client_id .cContractClient = Alltrim(Nvl(contract_client, '')) .nIdContractClient = client_ctr_id .cDenumireBeneficiar = Alltrim(Nvl(beneficiar, '')) .nIdBeneficiar = beneficiar_id .nEAgent = eagent .nIntern = intern ENDIF ENDWITH * Pot sa sterg inregistrari doar daca sunt intr-o factura * Inregistrarile sterse se salveaza doar odata cu factura, nu la vizualizarea separata * This.but_Sterge1.Visible = Used('crsCapFactura') * Facturat si sters: verde * Facturat: albastru * Sters: rosu * Normal: negru this.grdPenalitati.SetAll("DynamicForecolor", "IIF(facturate, IIF(sterse, RGB(240,240,0), RGB(0,0,240)), IIF(sterse, RGB(240,0,0), RGB(0,0,0)))","Column") ENDPROC PROCEDURE salveazapenalitati Local lcFiltru, lcIds, lnClienti, llSucces llSucces = .F. lcFiltru = Filter('crsCalculPenalitati') lcFiltru = Iif(!Empty(m.lcFiltru), m.lcFiltru, [.T.]) Select Distinct nume From crsCalculPenalitati Where &lcFiltru Into Cursor cClientiTemp lnClienti = Reccount('cClientiTemp') Use In (Select('cClientiTemp')) If m.lnClienti <> 1 AMESSAGEBOX('Alegeti un client!', 0 + 48, _Screen.Caption) llSucces = .F. ELSE llSucces = .T. Endif IF m.llSucces UPDATE crsCalculPenalitati SET ales = .F. && in caz ca apas de mai multe ori pe butonul factura, resetez bifa Ales Update crsCalculPenalitati Set ales = .T. Where &lcFiltru lcIds = salvare_penalitati() && proceduri_acnpro.prg * poDate.uuid = m.lcIds llSucces = (!EMPTY(m.lcIds)) ENDIF RETURN llSucces ENDPROC PROCEDURE Show LPARAMETERS nStyle this.gridextra1.setup() this.grdPenalitati.HeaderHeight = 36 && se reseteaza cred dupa gridextra.setup THIS.WindowState = 2 ENDPROC PROCEDURE cboClienti.Valid SELECT crsClientiPenalitati IF crsClientiPenalitati.clie_id = 0 lcFilter = [] ELSE lcFilter = [clie_id = ] + ALLTRIM(STR(crsClientiPenalitati.clie_id)) ENDIF SELECT crsCalculPenalitati SET FILTER TO &lcFilter thisform.calculeaza_totaluri() GO TOP thisform.grdPenalitati.SetFocus() ENDPROC PROCEDURE grdPenalitati.AfterRowColChange LPARAMETERS nColIndex * NU STERGE ENDPROC PROCEDURE grdPenalitati.cDataBaza.Text1.Valid LOCAL ldDataBaza Select crsCalculPenalitati ldDataBaza = crsCalculPenalitati.databaza IF m.ldDataBaza <> Thisform.dDataBaza DO calcul_penalitati_linie WITH m.pnCalculzile,m.pdDataReferinta, m.ldDataBaza IN proceduri_acnpro.prg Thisform.calculeaza_totaluri() ENDIF ENDPROC PROCEDURE grdPenalitati.cDataBaza.Text1.When Thisform.dDataBaza = crsCalculPenalitati.databaza ENDPROC PROCEDURE grdPenalitati.Init * NU STERGE ENDPROC PROCEDURE Gridextra1.applyfilter DODEFAULT() Thisform.calculeaza_totaluri() ENDPROC PROCEDURE Gridextra1.clearfilter DODEFAULT() Thisform.calculeaza_totaluri() ENDPROC PROCEDURE optTipCalcul.Valid ENDPROC ENDDEFINE DEFINE CLASS frm_registru 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="txtValval" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cData.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cData.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDocument.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDocument.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cClient.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cClient.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cContract.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cContract.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtip.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtip.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCantitate.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCantitate.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPret.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPret.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCurs.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCurs.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValval.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValval.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValftva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValftva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cNumarAct.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cNumarAct.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDataAct.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDataAct.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctdebitor.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctdebitor.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaideb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaideb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaedeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaedeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctcreditor.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctcreditor.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaicred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaicred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaecred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cctaecred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtPiDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtPiDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtApiDeb.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtApiDeb.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtpiCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtpiCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtApiCred.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCtApiCred.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDocument2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cDocument2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> * *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *m: refreshtotal *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: nvalftva *p: nvalval * * BorderStyle = 3 ccontractclient = cdenumirebeneficiar = cdenumireclient = cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 DoCreate = .T. Height = 416 Name = "frm_registru" nvalftva = 0 nvalval = 0 Width = 779 WindowState = 2 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape1.ZOrderSet = 0 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.ZOrderSet = 1 Lb_titlu_alb_b121.Caption = "Registru documente" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 9 Lb_titlu_alb_b121.ZOrderSet = 2 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 10 BUT_TERMIN1.Top = 0 BUT_TERMIN1.ZOrderSet = 3 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label1' AS _label WITH ; Anchor = 12, ; Caption = "Valoare valuta", ; FontBold = .T., ; Left = 348, ; Name = "_label1", ; TabIndex = 15, ; Top = 388, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT '_label2' AS _label WITH ; Anchor = 12, ; Caption = "Valoare lei", ; FontBold = .T., ; Left = 574, ; Name = "_label2", ; TabIndex = 17, ; Top = 388, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; Anchor = 9, ; Left = 689, ; Name = "But_reset_criterii1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; Anchor = 9, ; Comment = "*:OnResize=RT", ; Left = 720, ; Name = "But_start_criterii1", ; Top = 0, ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Grid1' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 27, ; DeleteMark = .F., ; FontSize = 10, ; HeaderHeight = 41, ; Height = 328, ; Left = 8, ; Name = "Grid1", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsRegdoc", ; RowHeight = 19, ; Top = 44, ; Width = 763, ; ZOrderSet = 10, ; Column1.ColumnOrder = 1, ; Column1.ControlSource = "crsRegdoc.data", ; Column1.FontSize = 10, ; Column1.Name = "cData", ; Column1.ReadOnly = .T., ; Column1.Width = 81, ; Column2.ColumnOrder = 2, ; Column2.ControlSource = "crsRegdoc.document", ; Column2.FontSize = 10, ; Column2.Name = "cDocument", ; Column2.ReadOnly = .T., ; Column2.Width = 81, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "crsRegdoc.client", ; Column3.FontSize = 10, ; Column3.Name = "cClient", ; Column3.ReadOnly = .T., ; Column3.Width = 166, ; Column4.ColumnOrder = 5, ; Column4.ControlSource = "crsRegdoc.contract", ; Column4.FontSize = 10, ; Column4.Name = "cContract", ; Column4.ReadOnly = .T., ; Column4.Width = 75, ; Column5.ColumnOrder = 6, ; Column5.ControlSource = "crsRegdoc.cTip", ; Column5.FontSize = 10, ; Column5.Name = "cCtip", ; Column5.ReadOnly = .T., ; Column5.Width = 146, ; Column6.ColumnOrder = 7, ; Column6.ControlSource = "crsRegdoc.articol", ; Column6.FontSize = 10, ; Column6.Name = "cArticol", ; Column6.ReadOnly = .T., ; Column6.Width = 109, ; Column7.ColumnOrder = 8, ; Column7.ControlSource = "crsRegdoc.locatia", ; Column7.FontSize = 10, ; Column7.Name = "cLocatia", ; Column7.ReadOnly = .T., ; Column7.Width = 120, ; Column8.ColumnOrder = 9, ; Column8.ControlSource = "crsRegdoc.cantitate", ; Column8.FontSize = 10, ; Column8.Name = "cCantitate", ; Column8.ReadOnly = .T., ; Column8.Width = 53, ; Column9.ColumnOrder = 10, ; Column9.ControlSource = "crsRegdoc.um", ; Column9.FontSize = 10, ; Column9.Name = "cUM", ; Column9.ReadOnly = .T., ; Column9.Width = 36, ; Column10.ColumnOrder = 11, ; Column10.ControlSource = "crsRegdoc.pret", ; Column10.FontSize = 10, ; Column10.Format = "RK", ; Column10.InputMask = (get_mask(12,gnPVal)), ; Column10.Name = "cPret", ; Column10.ReadOnly = .T., ; Column10.Width = 77, ; Column11.ColumnOrder = 12, ; Column11.ControlSource = "crsRegdoc.valuta", ; Column11.FontSize = 10, ; Column11.Name = "cValuta", ; Column11.ReadOnly = .T., ; Column11.Width = 75, ; Column12.ColumnOrder = 13, ; Column12.ControlSource = "crsRegdoc.curs", ; Column12.FontSize = 10, ; Column12.Format = "RK", ; Column12.InputMask = (get_mask(12,gnPCurs)), ; Column12.Name = "cCurs", ; Column12.ReadOnly = .T., ; Column12.Width = 75, ; Column13.ColumnOrder = 14, ; Column13.ControlSource = "crsRegdoc.valval", ; Column13.FontSize = 10, ; Column13.Format = "RK", ; Column13.InputMask = (get_mask(12,gnPVal)), ; Column13.Name = "cValval", ; Column13.ReadOnly = .T., ; Column13.Width = 90, ; Column14.ColumnOrder = 15, ; Column14.ControlSource = "crsRegdoc.valftva", ; Column14.FontSize = 10, ; Column14.Format = "RK", ; Column14.InputMask = (get_mask(12,gnZ)), ; Column14.Name = "cValftva", ; Column14.ReadOnly = .T., ; Column14.Width = 80, ; Column15.ColumnOrder = 16, ; Column15.ControlSource = "crsRegdoc.numar_act", ; Column15.FontSize = 10, ; Column15.Name = "cNumarAct", ; Column15.ReadOnly = .T., ; Column16.ColumnOrder = 17, ; Column16.ControlSource = "crsRegdoc.data_act", ; Column16.FontSize = 10, ; Column16.Name = "cDataAct", ; Column16.ReadOnly = .T., ; Column17.ColumnOrder = 18, ; Column17.ControlSource = "ctdebitor", ; Column17.FontSize = 10, ; Column17.Name = "cctdebitor", ; Column17.ReadOnly = .T., ; Column18.ColumnOrder = 19, ; Column18.ControlSource = "ctaideb", ; Column18.FontSize = 10, ; Column18.Name = "cctaideb", ; Column18.ReadOnly = .T., ; Column18.Width = 60, ; Column19.ColumnOrder = 20, ; Column19.ControlSource = "ctaedeb", ; Column19.FontSize = 10, ; Column19.Name = "cctaedeb", ; Column19.ReadOnly = .T., ; Column19.Width = 69, ; Column20.ColumnOrder = 21, ; Column20.ControlSource = "ctcreditor", ; Column20.FontSize = 10, ; Column20.Name = "cctcreditor", ; Column20.ReadOnly = .T., ; Column21.ColumnOrder = 22, ; Column21.ControlSource = "ctaicred", ; Column21.FontSize = 10, ; Column21.Name = "cctaicred", ; Column21.ReadOnly = .T., ; Column21.Width = 67, ; Column22.ColumnOrder = 23, ; Column22.ControlSource = "ctaecred", ; Column22.FontSize = 10, ; Column22.Name = "cctaecred", ; Column22.ReadOnly = .T., ; Column22.Width = 64, ; Column23.ColumnOrder = 24, ; Column23.ControlSource = "ctpideb", ; Column23.FontSize = 10, ; Column23.Name = "cCtPiDeb", ; Column23.ReadOnly = .T., ; Column24.ColumnOrder = 25, ; Column24.ControlSource = "ctapideb", ; Column24.FontSize = 10, ; Column24.Name = "cCtApiDeb", ; Column24.ReadOnly = .T., ; Column25.ColumnOrder = 26, ; Column25.ControlSource = "ctpicred", ; Column25.FontSize = 10, ; Column25.Name = "cCtpiCred", ; Column25.ReadOnly = .T., ; Column26.ColumnOrder = 27, ; Column26.ControlSource = "ctapicred", ; Column26.FontSize = 10, ; Column26.Name = "cCtApiCred", ; Column26.ReadOnly = .T., ; Column27.ColumnOrder = 3, ; Column27.ControlSource = "crsRegdoc.document2", ; Column27.FontSize = 10, ; Column27.Name = "cDocument2", ; Column27.ReadOnly = .T. *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid1.cArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Articol", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cArticol.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCantitate.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCantitate.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cClient.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cClient.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cContract.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cContract.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cctaecred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. a.e. cred.", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cctaecred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cctaedeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. a.e. deb.", ; FontSize = 10, ; Name = "Header1", ; ToolTipText = "cont analitic extern debit", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cctaedeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cctaicred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. a.i. cred.", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cctaicred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cctaideb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. a.i. deb.", ; FontSize = 10, ; Name = "Header1", ; ToolTipText = "cont analitic intern debit", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cctaideb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCtApiCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. a. cred. pen.", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCtApiCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCtApiDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. a. deb. pen", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCtApiDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cctcreditor.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. cred.", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cctcreditor.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cctdebitor.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. deb.", ; FontSize = 10, ; Name = "Header1", ; ToolTipText = "cont debit" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cctdebitor.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCtip.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCtip.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCtpiCred.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. cred. pen.", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCtpiCred.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCtPiDeb.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ct. deb. pen.", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCtPiDeb.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCurs.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCurs.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cData.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data doc.", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cData.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cDataAct.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data factura", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDataAct.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cDocument.Header1' AS header WITH ; Alignment = 2, ; Caption = "Document", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDocument.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cDocument2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Document2", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cDocument2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cLocatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Locatia", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cLocatia.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cNumarAct.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. factura", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cNumarAct.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cPret.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cPret.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "Um", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValftva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare lei (fara TVA)", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValftva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValval.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValval.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; Left = 684, ; Name = "Gridextra1", ; Top = 36 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'txtValftva' AS _textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValftva", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 648, ; Name = "txtValftva", ; TabIndex = 12, ; Top = 385, ; Width = 115, ; ZOrderSet = 6 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtValval' AS _textbox WITH ; Anchor = 12, ; ControlSource = "thisform.nValVal", ; Format = "RK", ; Height = 23, ; InputMask = (get_mask(12,gnZ)), ; Left = 446, ; Name = "txtValval", ; TabIndex = 11, ; Top = 385, ; Width = 115, ; ZOrderSet = 5 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.LockScreen=.T. This.grid1.RecordSource='' poRegdoc.ca_baza1.cfiltru = m.lcFiltru poRegdoc.ca_baza1.afisare() SELECT crsRegdoc Go Top With This.grid1 .RecordSource='crsRegdoc' .cdata.ControlSource='crsRegdoc.data' .cdocument.ControlSource='crsRegdoc.document' .cclient.ControlSource='crsRegdoc.client' .ccontract.ControlSource='crsRegdoc.contract' .cctip.ControlSource='crsRegdoc.ctip' .carticol.ControlSource='crsRegdoc.articol' .clocatia.ControlSource="crsRegdoc.locatia" .ccantitate.ControlSource="crsRegdoc.cantitate" .cum.ControlSource="crsRegdoc.um" .cpret.ControlSource="crsRegdoc.pret" .cvaluta.ControlSource="crsRegdoc.valuta" .ccurs.ControlSource="crsRegdoc.curs" .cvalval.ControlSource="crsRegdoc.valval" .cvalftva.ControlSource="crsRegdoc.valftva" .cNumarAct.ControlSource="crsRegdoc.numar_act" .cdataact.ControlSource="crsRegdoc.data_act" .cctdebitor.ControlSource="crsRegdoc.ctdebitor" .cctaideb.ControlSource="crsRegdoc.ctaideb" .cctaedeb.ControlSource="crsRegdoc.ctaedeb" .cctcreditor.ControlSource="crsRegdoc.ctcreditor" .cctaicred.ControlSource="crsRegdoc.ctaicred" .cctaecred.ControlSource="crsRegdoc.ctaecred" .cctpideb.ControlSource="crsRegdoc.ctpideb" .cctapideb.ControlSource="crsRegdoc.ctapideb" .cctpicred.ControlSource="crsRegdoc.ctpicred" .cctapicred.ControlSource="crsRegdoc.ctapicred" Endwith This.grid1.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_cauta LOCAL lcfiltru, lcFiltruInitial lcFiltruInitial = [ and (extract(year from data) * 12 + extract(month from data) = ?gnAn*12+?gnLuna)] lcfiltru='' IF LEN(THISFORM.filtru_pretty)>0 lcFiltru = ALLTRIM(THISFORM.filtru_pretty) ENDIF IF !(' DATA'$upper(THISFORM.filtru_pretty)) lcFiltru = m.lcFiltru + m.lcfiltruInitial ENDIF IF !EMPTY(m.lcFiltru) AND ALLTRIM(LEFT(LOWER(m.lcFiltru),5)) = "and" lcFiltru = SUBSTR(m.lcFiltru, 6) ENDIF IF !EMPTY(m.lcFiltru) THISFORM.actualizeaza_grid1(m.lcFiltru) IF RECCOUNT('crsRegdoc')=0 aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare") ELSE this.grid1.SetFocus() ENDIF ENDIF This.RefreshTotal() Return m.lcFiltru ENDPROC PROCEDURE do_cauta_partener ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE getcontracteclient ENDPROC PROCEDURE Init DODEFAULT() thisform.gridextra1.setup() This.grid1.HeaderHeight = 36 THisform.Refreshtotal() ENDPROC PROCEDURE refreshtotal SELECT crsRegDoc CALCULATE SUM(valval), SUM(valftva) TO this.nValVal, this.nValFtva GO TOP this.txtValval.Refresh() this.txtValFtva.Refresh() ENDPROC PROCEDURE But_start_criterii1.loadcriterii PARAMETERS tacriterii EXTERNAL ARRAY tacriterii #DEFINE crlf CHR(13)+CHR(10) *!* DEBUG *!* SUSPEND lcStringCriterii="Data doc.\data\D\none\" + crlf + ; "Document\document\T\none\" + crlf + ; "Document2\document2\T\none\" + crlf + ; "Client\client\T\id_client\nom_parteneri"+ crlf + ; "Contract\contract\T\id_contract\nom_contracte"+ crlf + ; "Tip\ctip\T\tip\nom_tipfactura"+ crlf + ; "Articol\articol\T\id_articol\nom_articole"+ crlf + ; "Locatia\locatia\T\id_locatia\nom_locatii"+ crlf + ; "Anul\extract(year from data)\N\none\" + crlf + ; "Perioada\extract(year from data)*12+extract(month from data)\D1\none\" + crlf + ; "Nr. factura\numar_act\N\none\" + crlf + ; "Data factura\data_act\D\none\" + crlf + ; "Facturat\nofiled\E\(NVL(numar_act,0) <> 0)\" DODEFAULT() ENDPROC PROCEDURE Gridextra1.applyfilter DODEFAULT() THisform.Refreshtotal() ENDPROC PROCEDURE Gridextra1.clearfilter DODEFAULT() THisform.Refreshtotal() ENDPROC ENDDEFINE DEFINE CLASS frm_situatii_venituri 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="txtClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="but_cautare_client" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDataF" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="txtDataI" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblClient" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblContract" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lblPerioada" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cboRaport" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> * *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *m: lmodificat_assign *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: ddataf *p: ddatai *p: lmodificat *p: nidclient *p: nidcontractclient *p: nidraport *p: nraportid *p: nrecno *p: nreno *p: nvalftva *p: nvalval * * BorderStyle = 1 bvizualizare = .T. ccontractclient = cdenumirebeneficiar = cdenumireclient = cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 ddataf = {} ddatai = {} DoCreate = .T. Height = 165 lmodificat = .F. Name = "frm_situatii_venituri" nidclient = 0 nidcontractclient = 0 nidraport = 7 nraportid = 0 nrecno = 0 nreno = 0 nvalftva = 0 nvalval = 0 Width = 426 WindowState = 0 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape1.ZOrderSet = 0 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.ZOrderSet = 1 Lb_titlu_alb_b121.Caption = "Situatii venituri" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 10 Lb_titlu_alb_b121.ZOrderSet = 2 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Height = 27 BUT_TERMIN1.Left = 396 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 9 BUT_TERMIN1.Top = 0 BUT_TERMIN1.Width = 30 BUT_TERMIN1.ZOrderSet = 3 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label1' AS _label WITH ; Caption = "Raport:", ; FontBold = .T., ; Left = 8, ; Name = "_label1", ; TabIndex = 13, ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'but_cautare_client' AS but_cautare WITH ; caction = do_cauta_partener, ; Left = 386, ; Name = "but_cautare_client", ; TabIndex = 3, ; Top = 68 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 8, ; Height = 27, ; Left = 336, ; Name = "But_excel1", ; TabIndex = 8, ; Top = 0, ; Width = 30 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_listare1' AS but_listare WITH ; Anchor = 8, ; Height = 27, ; Left = 366, ; Name = "But_listare1", ; TabIndex = 7, ; Top = 0, ; Width = 30, ; ZOrderSet = 21 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'cboContract' AS _combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "thisform.nIdContractClient", ; Enabled = .F., ; Height = 24, ; Left = 100, ; Name = "cboContract", ; ReadOnly = .F., ; RowSource = "select crsContracte.numar as contract, id_ctr, nr_zile_scadenta, tip_curs from crsContracte into cursor crsContracteX", ; RowSourceType = 3, ; TabIndex = 4, ; Top = 100, ; Width = 280 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'cboRaport' AS _combobox WITH ; Height = 24, ; Left = 100, ; Name = "cboRaport", ; RowSource = "crsRapoarteVenituri.denumire", ; RowSourceType = 6, ; TabIndex = 1, ; Top = 44, ; Width = 280 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'lblClient' AS _label WITH ; Caption = "Client platitor:", ; FontBold = .T., ; Left = 8, ; Name = "lblClient", ; TabIndex = 11, ; Top = 73 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'lblContract' AS _label WITH ; Caption = "Contract:", ; FontBold = .T., ; Left = 8, ; Name = "lblContract", ; TabIndex = 12, ; Top = 103 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'lblPerioada' AS _label WITH ; Caption = "Perioada:", ; FontBold = .T., ; Left = 8, ; Name = "lblPerioada", ; TabIndex = 14, ; Top = 131 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'txtClient' AS _textbox WITH ; ControlSource = "thisform.cDenumireClient", ; Height = 23, ; Left = 100, ; Name = "txtClient", ; ReadOnly = .T., ; TabIndex = 2, ; TabStop = .F., ; ToolTipText = "Alegere client la Mouse-Click sau apasarea unei taste. Schimbare client la Dublu Mouse-Click sau apasarea unei taste.", ; Top = 71, ; Width = 280 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtDataF' AS _textbox WITH ; ControlSource = "thisform.ddataf", ; DisabledForeColor = 0,0,0, ; ForeColor = 0,0,0, ; Format = "k", ; Height = 22, ; Left = 187, ; Name = "txtDataF", ; TabIndex = 6, ; Top = 129, ; Width = 80, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'txtDataI' AS _textbox WITH ; ControlSource = "thisform.ddatai", ; DisabledForeColor = 0,0,0, ; ForeColor = 0,0,0, ; Format = "k", ; Height = 22, ; Left = 100, ; Name = "txtDataI", ; TabIndex = 5, ; Top = 129, ; Width = 80, ; ZOrderSet = 8 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE Destroy USE IN (SELECT('crsContracte')) USE IN (SELECT('crsRapoarteVenituri')) ENDPROC PROCEDURE do_cauta_partener LOCAL loCauta loCauta = caut_client_contract_activ(, , , .T., Thisform.dDataF) This.cDenumireClient = loCauta.denumire This.nIdClient = loCauta.id_part Thisform.cContractClient = Alltrim(loCauta.numar) Thisform.nIdContractClient = loCauta.id_ctr This.txtClient.Refresh() This.GetContracteClient(This.nIdClient, Thisform.nIdContractClient) ENDPROC PROCEDURE do_excel Local lcRaport, lcTabel, pcTitlu, lcExcel Local loExcel As "VFPxWorkbookXLSX" Of "VFPxWorkbookXLSX.vcx" loReturn = This.do_executa() lcTabel = loReturn.cTabel lcColoane = loReturn.cColoane If !Empty(m.lcTabel) lcRaport = Alltrim(crsRapoarteVenituri.raport) pcTitlu = Alltrim(crsRapoarteVenituri.titlu) pcTitlu = Strtran(m.pcTitlu, "[CLIENT]", ALLTRIM(Nvl(This.cDenumireClient, '')), 1, 1, 1) pcTitlu = Strtran(m.pcTitlu, "[CONTRACT]", IIF(!EMPTY(NVL(thisform.cContractClient, "")), "(" + ALLTRIM(Thisform.cContractClient) + ")", "") , 1, 1, 1) pcTitlu = Strtran(m.pcTitlu, "[DATA1]", Dtoc(Thisform.dDataI), 1, 1, 1) pcTitlu = Strtran(m.pcTitlu, "[DATA2]", Dtoc(Thisform.dDataF), 1, 1, 1) pcTitlu = STRTRAN(m.pcTitlu, " ", " ",1,10,1) * EXPORT XLSX goExport.export2xlsx(m.lcTabel, m.pcTitlu) Endif ENDPROC PROCEDURE do_executa Local ldDataF, ldDataI, lnIdCtrClient, lnRaportNr, lnTip, lcTabel, lcColoane Local loReturn As "empty", loDate as "empty" Local llReturn lcTabel = '' lcColoane = '' llReturn = .T. ldDataI = Thisform.dDataI ldDataF = Thisform.dDataF Do Case Case Empty(m.ldDataI) AMESSAGEBOX("Nu ati completat data initiala!", 0 + 48, "Atentie") Thisform.txtDatai.SetFocus() llReturn = .F. Case Empty(m.ldDataF) AMESSAGEBOX("Nu ati completat data finala!", 0 + 48, "Atentie") Thisform.txtDataf.SetFocus() llReturn = .F. Case m.ldDataI > m.ldDataF AMESSAGEBOX("Data finala trebuie sa fie mai mare decat data initiala !", 0 + 48, "Atentie") Thisform.txtDataf.SetFocus() llReturn = .F. Endcase If m.llReturn loDate = CREATEOBJECT("empty") ADDPROPERTY(loDate, "nTip", crsRapoarteVenituri.tip) ADDPROPERTY(loDate, "nNrRaport", crsRapoarteVenituri.numar) ADDPROPERTY(loDate, "dData1", m.ldDataI) ADDPROPERTY(loDate, "dData2", m.ldDataF) ADDPROPERTY(loDate, "nIdClient", This.nIdClient) ADDPROPERTY(loDate, "nIdCtrClient", This.nIdContractClient) = GET_DATE_VENITURI(loDate, @lcTabel, @lcColoane) Endif loReturn = Createobject("empty") AddProperty(loReturn, "cTabel", m.lcTabel) AddProperty(loReturn, "cColoane", m.lcColoane) Return m.loReturn ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_listare Private pcTitlu, pcIntocmit Local lcRaport, lcTabel, loPartener Local loReturn * Nu stiu de ce nu apare raportul de pe linia aleasa. Trebuie ales de 2 ori??? * daca dau browse, este totul corect de prima oara. Incerc cu locate SELECT crsRapoarteVenituri LOCATE FOR id = thisform.nIdRaport loReturn = This.do_executa() lcTabel = loReturn.cTabel If !Empty(m.lcTabel) AND USED(m.lcTabel) AND RECCOUNT(m.lcTabel) > 0 lcRaport = Alltrim(crsRapoarteVenituri.raport) pcTitlu = Alltrim(crsRapoarteVenituri.titlu) pcTitlu = Strtran(m.pcTitlu, "[CLIENT]", ALLTRIM(Nvl(This.cDenumireClient, '')), 1, 1, 1) pcTitlu = Strtran(m.pcTitlu, "[CONTRACT]", IIF(!EMPTY(NVL(thisform.cContractClient, "")), "(" + ALLTRIM(Thisform.cContractClient) + ")", "") , 1, 1, 1) pcTitlu = Strtran(m.pcTitlu, "[DATA1]", Dtoc(Thisform.dDataI), 1, 1, 1) pcTitlu = Strtran(m.pcTitlu, "[DATA2]", Dtoc(Thisform.dDataF), 1, 1, 1) pcTitlu = STRTRAN(m.pcTitlu, " ", " ",1,10,1) loPartener = GetPartenerByUtil(m.gnIdUtil) pcIntocmit = ALLTRIM(NVL(loPartener.partener,'')) This.AlwaysOnTop = .F. goExport.export2frx(m.lcTabel, m.lcRaport, , , , , , .T.) this.AlwaysOnTop = .T. Endif ENDPROC PROCEDURE getcontracteclient Lparameters tnIdPart, tnIdCtr Local lcSource, lcSelect, lnIdCtr lnIdCtr = Nvl(m.tnIdCtr, 0) lcSelect = Select() lcSource = This.cboContract.RowSource This.cboContract.RowSource = [] Do make_contracte With "id_part=" + Alltrim(Str(m.tnIdPart)) && crsContracte Select crsContracte Insert Into crsContracte(id_ctr, numar) Values (0, '') && o linie goala daca se doreste factura fara contract This.cboContract.RowSource = m.lcSource SELECT crsContracteX Locate For id_ctr = Nvl(m.tnIdCtr, 0) If !Found() Go Top Endif If Reccount('crsContracte') > 0 This.cboContract.Enabled = .T. && activez/dezactivez cboContracte daca sunt/nu sunt inregistrari This.cboContract.SetFocus() Endif Select (m.lcSelect) ENDPROC PROCEDURE Init DODEFAULT() thisform.ddatai = DATE(m.gnAn, m.gnLuna, 1) thisform.ddataf = GOMONTH(DATE(m.gnAn, m.gnLuna, 1),1) - 1 SELECT crsRapoarteVenituri GO TOP this.cboRaport.Value = crsRapoarteVenituri.denumire ENDPROC PROCEDURE lmodificat_assign ENDPROC PROCEDURE Load Do make_contracte With "1=2" && crsContracte CREATE CURSOR crsRapoarteVenituri (id N(10), tip N(2), numar N(3), denumire C(200), raport C(200), titlu c(200)) INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (7, 0, 3, '0.3 Tranzit > Clienti - indicatori, valori', "SIT_TRANZIT3.FRX", "SITUATIE INDICATORI SI VALORI TRANZIT [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 0 Tranzit, Numar raport 3 INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (8, 0, 13, '0.13 Tranzit > Clienti - capacitate pe transe, marfa', "", "SITUATIE CAPACITATE PE TRANSE SI MARFA [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 0 Tranzit, Numar raport 13 INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (1, 1, 4, '1.4 Cheiaj > Clienti - indicatori, valori', "SIT_CHEIAJ4.FRX", "SITUATIE INDICATORI SI VALORI CHEIAJ [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 1 Cheiaj, Numar raport 4 INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (6, 1, 5, '1.5 Cheiaj > Clienti - venituri pe locatii (lei)', "SIT_CHEIAJ5.FRX", "SITUATIE VENITURI PE LOCATII (LEI) [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 1 Cheiaj, Numar raport 5 INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (2, 2, 1, '2.1 Apa > Clienti/Prestatii, valori', "", "SITUATIE VALORI [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 2 Apa, Numar raport 1 INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (3, 3, 1, '3.1 Chirii > Clienti/Prestatii, valori', "", "SITUATIE VALORI [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 3 Chirii, Numar raport 1 INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (5, 9, 1, '9.1 Diverse > Clienti/Prestatii, valori', "", "SITUATIE VALORI [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 9 Diverse, Numar raport 1 GO TOP IN crsRapoarteVenituri Thisform.nIdRaport = crsRapoarteVenituri.id ENDPROC PROCEDURE cboContract.LostFocus Thisform.cContractClient = alltrim(NVL(crsContracteX.contract,'')) ENDPROC PROCEDURE cboRaport.LostFocus Thisform.nIdRaport = crsRapoarteVenituri.id ENDPROC PROCEDURE cboRaport.Valid Thisform.nIdRaport = crsRapoarteVenituri.id * Inactivez butonul de listare daca nu am raport, doar export xls thisform.but_listare1.Enabled = !EMPTY(crsRapoarteVenituri.raport) thisform.but_listare1.Refresh() ENDPROC PROCEDURE txtClient.Click IF EMPTY(thisform.cDenumireClient) thisform.do_cauta_partener() ENDIF ENDPROC PROCEDURE txtClient.DblClick thisform.do_cauta_partener('client') ENDPROC PROCEDURE txtClient.InteractiveChange thisform.do_cauta_partener('client') ENDPROC ENDDEFINE DEFINE CLASS frm_tarife_cheiaj 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="Grid2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIdCtr.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIdCtr.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDenumire.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDenumire.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cNumar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cNumar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cb_tx_cautare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cBaza.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cBaza.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cBaza._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLim2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLim2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCorect.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCorect.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCorect._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLim1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLim1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValoare.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValoare.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIntern.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIntern.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIntern.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPlus.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPlus.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPlus._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cAreBaza.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cAreBaza.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cAreBaza._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Sfsplitterh1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> * *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *m: lmodificat_assign *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: lmodificat *p: nrecno *p: nreno *p: nvalftva *p: nvalval * * BorderStyle = 3 bvizualizare = .T. ccontractclient = cdenumirebeneficiar = cdenumireclient = cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 DoCreate = .T. Height = 401 lmodificat = .F. Name = "frm_tarife_cheiaj" nrecno = 0 nreno = 0 nvalftva = 0 nvalval = 0 Width = 779 WindowState = 2 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape1.ZOrderSet = 0 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.ZOrderSet = 1 Lb_titlu_alb_b121.Caption = "Tarife cheiaj" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 9 Lb_titlu_alb_b121.ZOrderSet = 2 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 10 BUT_TERMIN1.Top = 0 BUT_TERMIN1.ZOrderSet = 3 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label3' AS _label WITH ; Caption = "Client", ; Left = 10, ; Name = "_label3", ; Top = 35, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ; Anchor = 8, ; Left = 657, ; Name = "But_copiaza1", ; Top = 56, ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_modifica1' AS but_modifica WITH ; Anchor = 8, ; Left = 713, ; Name = "But_modifica1", ; Top = 56, ; ZOrderSet = 11 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 8, ; Left = 685, ; Name = "But_nou1", ; Top = 56, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 720, ; Name = "But_renunt1", ; Top = 0, ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 8, ; Left = 740, ; Name = "But_sterge1", ; Top = 56, ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ; Height = 27, ; Left = 8, ; Name = "Cb_tx_cautare1", ; Top = 56, ; Width = 304, ; ZOrderSet = 6, ; Text.Height = 25, ; Text.Left = 103, ; Text.Name = "Text", ; Text.Top = 1, ; Text.Width = 197, ; Criteriu.Name = "Criteriu" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Grid1' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 11, ; DeleteMark = .F., ; HeaderHeight = 39, ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 360, ; Name = "Grid1", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsTarife", ; RowHeight = 19, ; Top = 87, ; Width = 412, ; ZOrderSet = 8, ; Column1.ColumnOrder = 11, ; Column1.ControlSource = "baza", ; Column1.CurrentControl = "_checkbox1", ; Column1.FontSize = 10, ; Column1.Name = "cBaza", ; Column1.ReadOnly = .T., ; Column1.Sparse = .F., ; Column1.Width = 61, ; Column2.Bound = .F., ; Column2.ColumnOrder = 8, ; Column2.ControlSource = "um", ; Column2.CurrentControl = "_combobox1", ; Column2.FontSize = 10, ; Column2.Name = "cUM", ; Column2.ReadOnly = .T., ; Column2.Sparse = .F., ; Column2.Width = 66, ; Column3.Bound = .F., ; Column3.ColumnOrder = 1, ; Column3.ControlSource = "Iif(Seek(crsTarife.id_articol,'crsArticole','id_articol'),crsArticole.denumire,'')", ; Column3.CurrentControl = "Combo1", ; Column3.FontSize = 10, ; Column3.Name = "cArticol", ; Column3.ReadOnly = .F., ; Column3.Sparse = .F., ; Column3.Width = 234, ; Column4.ColumnOrder = 3, ; Column4.ControlSource = "lim2", ; Column4.FontSize = 10, ; Column4.Name = "cLim2", ; Column4.ReadOnly = .T., ; Column4.Width = 64, ; Column5.ColumnOrder = 4, ; Column5.ControlSource = "corect", ; Column5.CurrentControl = "_combobox1", ; Column5.FontSize = 10, ; Column5.Name = "cCorect", ; Column5.ReadOnly = .T., ; Column5.Sparse = .F., ; Column5.Width = 36, ; Column6.ColumnOrder = 2, ; Column6.ControlSource = "lim1", ; Column6.FontSize = 10, ; Column6.Name = "cLim1", ; Column6.ReadOnly = .T., ; Column6.Width = 71, ; Column7.Bound = .F., ; Column7.ColumnOrder = 7, ; Column7.ControlSource = "Iif(Seek(crsTarife.id_valuta,'crsValute','id_valuta'),crsValute.nume_val,'')", ; Column7.CurrentControl = "Combo1", ; Column7.FontSize = 10, ; Column7.Name = "cValuta", ; Column7.ReadOnly = .F., ; Column7.Sparse = .F., ; Column7.Width = 75, ; Column8.ColumnOrder = 6, ; Column8.ControlSource = "valoare", ; Column8.FontSize = 10, ; Column8.Format = "RK", ; Column8.InputMask = (get_mask(12,4)), ; Column8.Name = "cValoare", ; Column8.ReadOnly = .T., ; Column8.Width = 75, ; Column9.ColumnOrder = 5, ; Column9.ControlSource = "intern", ; Column9.CurrentControl = "Check1", ; Column9.FontSize = 10, ; Column9.Name = "cIntern", ; Column9.ReadOnly = .T., ; Column9.Sparse = .F., ; Column9.Width = 41, ; Column10.ColumnOrder = 9, ; Column10.ControlSource = "plus", ; Column10.CurrentControl = "_checkbox1", ; Column10.FontSize = 10, ; Column10.Name = "cPlus", ; Column10.ReadOnly = .T., ; Column10.Sparse = .F., ; Column10.Width = 74, ; Column11.ColumnOrder = 10, ; Column11.ControlSource = "arebaza", ; Column11.CurrentControl = "_checkbox1", ; Column11.FontSize = 10, ; Column11.Name = "cAreBaza", ; Column11.ReadOnly = .T., ; Column11.Sparse = .F., ; Column11.Width = 68 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid1.cAreBaza._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; Left = 33, ; Name = "_checkbox1", ; Top = 56 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'Grid1.cAreBaza.Header1' AS header WITH ; Alignment = 2, ; Caption = "Are baza de calcul", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cAreBaza.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cArticol.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.id_articol", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 73, ; Name = "Combo1", ; RowSource = "select crsArticole.denumire, id_articol from crsArticole into cursor crsArticoleX order by denumire", ; RowSourceType = 3, ; Style = 2, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Prestatie", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cArticol.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cBaza._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; Left = 24, ; Name = "_checkbox1", ; Top = 68 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'Grid1.cBaza.Header1' AS header WITH ; Alignment = 2, ; Caption = "Baza de calcul", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cBaza.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCorect._combobox1' AS _combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ColumnCount = 2, ; ColumnLines = .F., ; ColumnWidths = "200,0", ; ControlSource = "corect", ; FontSize = 10, ; Left = 18, ; Name = "_combobox1", ; ReadOnly = .F., ; RowSource = "ore,1,zile,24", ; RowSourceType = 1, ; Top = 80 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'Grid1.cCorect.Header1' AS header WITH ; Alignment = 2, ; Caption = "Um", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCorect.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cIntern.Check1' AS checkbox WITH ; Alignment = 2, ; BackStyle = 0, ; Caption = "", ; FontSize = 10, ; Height = 17, ; Left = 39, ; Name = "Check1", ; ReadOnly = .T., ; Top = 68, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'Grid1.cIntern.Header1' AS header WITH ; Alignment = 2, ; Caption = "Intern", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cIntern.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 'Grid1.cLim1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Limita minima", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cLim1.Text1' AS textbox WITH ; Alignment = 3, ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cLim2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Limita maxima", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cLim2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cPlus._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; Left = 24, ; Name = "_checkbox1", ; Top = 68 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'Grid1.cPlus.Header1' AS header WITH ; Alignment = 2, ; Caption = "In plus", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cPlus.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cUM._combobox1' AS _combobox WITH ; ControlSource = "um", ; Left = 46, ; Name = "_combobox1", ; ReadOnly = .F., ; RowSource = "ZI,ML,ML/ZI,TC,TC/ZI,CP,CP/ZI,LBP,LBP/ZI,TRN,TRN/ZI", ; RowSourceType = 1, ; Top = 56 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'Grid1.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "UM limita", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ControlSource = "um", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValoare.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValoare.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValuta.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.id_valuta", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 28, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsValute.nume_val, id_valuta from crsValute order by nume_val into cursor crsValuteX", ; RowSourceType = 3, ; Style = 2, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2' AS _grdbase WITH ; Anchor = 5, ; ColumnCount = 3, ; DeleteMark = .F., ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 8, ; Name = "Grid2", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .T., ; RecordSource = "crsContracte", ; RowHeight = 19, ; TabIndex = 2, ; Top = 87, ; Width = 338, ; ZOrderSet = 5, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "id_ctr", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cIdCtr", ; Column1.ReadOnly = .T., ; Column1.Width = 60, ; Column2.ColumnOrder = 1, ; Column2.ControlSource = "denumire", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cDenumire", ; Column2.ReadOnly = .T., ; Column2.Width = 198, ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "numar", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "cNumar", ; Column3.ReadOnly = .T., ; Column3.Width = 82 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid2.cDenumire.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cDenumire.Text1' AS textbox WITH ; FontName = "Arial", ; FontSize = 10, ; Height = 23, ; Left = 46, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 35, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.cIdCtr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cIdCtr.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.cNumar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cNumar.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.Grid1, ; Left = 504, ; Name = "Gridextra1", ; productname = ROA, ; Top = 36 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Gridextra2' AS gridextra WITH ; gridexpression = Thisform.Grid2, ; Left = 264, ; Name = "Gridextra2", ; productname = ROA, ; Top = 156 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Sfsplitterh1' AS sfsplitterh WITH ; Anchor = 5, ; BackColor = 255,255,255, ; cobject1name = Grid2, ; cobject2name = Grid1, ; Height = 302, ; Left = 349, ; Name = "Sfsplitterh1", ; Top = 88, ; Width = 8, ; ZOrderSet = 14, ; gripper.GripperDot1.Name = "GripperDot1", ; gripper.GripperDot1.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot1.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot1.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot2.Name = "GripperDot2", ; gripper.GripperDot2.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot2.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot2.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot3.Name = "GripperDot3", ; gripper.GripperDot3.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot3.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot3.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot4.Name = "GripperDot4", ; gripper.GripperDot4.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot4.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot4.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot5.Name = "GripperDot5", ; gripper.GripperDot5.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot5.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot5.ShapeMiddle.Name = "ShapeMiddle", ; gripper.Name = "gripper" *< END OBJECT: ClassLib="..\comun\clase\sfsplitter.vcx" BaseClass="control" /> PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.lModificat = .F. Thisform.LockScreen=.T. SELECT crsTarife SET FILTER TO &lcFiltru Go Top This.grid1.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_adauga Local lnCtrId lnCtrId = Nvl(crsContracte.id_ctr, 0) If Empty(m.lnCtrId) Return Endif Sele crsTarife IF RECNO() > 0 SCATTER NAME loRec MEMO ELSE SCATTER NAME loRec MEMO BLANK ENDIF loRec.ctr_id = m.lnCtrId APPEND blank GATHER NAME loRec FIELDS EXCEPT id MEMO This.do_modifica() ENDPROC PROCEDURE do_cauta Local lcfiltru, lcValoare lcfiltru='' lcValoare = STRTRAN(ALLTRIM(UPPER(This.cb_tx_cautare1.TEXT.VALUE)),['],['']) With This.cb_tx_cautare1 If !Empty(.Text.Value) Or (Empty(.Text.Value) And .criteriu.Value = "6") Do Case Case .criteriu.Value = "1" lcfiltru = lcfiltru + [LIKE('] + lcValoare + [*', denumire)] Case .criteriu.Value = "2" lcfiltru = lcfiltru + [denumire ='] + lcValoare + ['] Case .criteriu.Value = "3" lcfiltru = lcfiltru + [denumire !='] + lcValoare + ['] Case .criteriu.Value = "4" lcfiltru = lcfiltru + [LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "5" lcfiltru = lcfiltru + [!LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "6" lcfiltru = lcfiltru + [2=2] Endcase Endif Endwith SELECT crsContracte lnRecno = RECNO() LOCATE FOR &lcFiltru IF !FOUND() GOTO m.lnRecno ENDIF this.grid2.SetFocus() thisform.actualizeaza_grid1("ctr_id = " + ALLTRIM(STR(crsContracte.id_ctr))) ENDPROC PROCEDURE do_cauta_partener ENDPROC PROCEDURE do_copiaza Local lnCtrId, loContract, ldActivLaData, lnIdTipCtr, lnIdPart lnCtrId = Nvl(crsTarife.ctr_id, 0) ldActivLaData = DATE(m.gnAn, m.gnLuna, 1) lnIdTipCtr = -1 lnIdPart = 0 If Empty(m.lnCtrId) Return Endif If AMESSAGEBOX('Doriti sa copiati tarifele contractului curent pe alt contract?', 4 + 32, _Screen.Caption) <> 6 Return Endif AMESSAGEBOX("Alegeti clientul destinatie, unde doriti sa copiati tarifele.", 0 + 64, _Screen.Caption) loContract = caut_contract_activ(-1, 0, m.ldActivLaData) If Type('loContract') = 'O' And !Isnull(loContract) Select * From crsTarife Where ctr_id = m.lnCtrId Into Cursor cTarifeTemp Readwrite Update cTarifeTemp Set ctr_id = loContract.id_ctr, modificat = 1, id = 0 Select crsTarife Append From Dbf('cTarifeTemp') AMESSAGEBOX(Alltrim(Str(Reccount('cTarifeTemp'))) + ' inregistrari copiate.', 0 + 64, _Screen.Caption) Endif Use In (Select('cTarifeTemp')) ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_modifica SELECT crsTarife IF RECNO() > 0 REPLACE modificat with 1 thisform.nRecno=recno() thisform.lModificat = .T. ENDIF thisform.grid1.setfocus ENDPROC PROCEDURE do_sterge IF AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_screen.Caption) <> 6 RETURN ENDIF SELECT crsTarife REPLACE modificat with 1 DELETE TRY SKIP -1 IN crsTarife CATCH TO loEx GO TOP IN crsTarife ENDTRY THISFORM.GRID1.SETFOCUS ENDPROC PROCEDURE getcontracteclient ENDPROC PROCEDURE Init DODEFAULT() thisform.gridextra1.setup() thisform.gridextra2.setup() thisform.actualizeaza_grid1("ctr_id = " + ALLTRIM(STR(crsContracte.id_ctr))) thisform.cb_tx_cautare1.text.SetFocus() this.WindowState = 2 ENDPROC PROCEDURE lmodificat_assign Lparameters tlModificat Local llEnabled, llReadOnly This.lModificat = tlModificat llEnabled = m.tlModificat llReadOnly = !m.tlModificat With This.grid1 .cArticol.combo1.Enabled = m.llEnabled .cLim1.ReadOnly = m.llReadOnly .cLim2.ReadOnly = m.llReadOnly .cCorect._combobox1.Enabled = m.llEnabled .cIntern.ReadOnly = m.llReadOnly .cIntern.Check1.ReadOnly = m.llReadOnly .cValoare.ReadOnly = m.llReadOnly .cValuta.combo1.Enabled = m.llEnabled .cUM._combobox1.Enabled = m.llEnabled .cPlus.ReadOnly = m.llReadOnly .cPlus._checkbox1.ReadOnly = m.llReadOnly .cAreBaza.ReadOnly = m.llReadOnly .cAreBaza._checkbox1.ReadOnly = m.llReadOnly .cBaza.ReadOnly = m.llReadOnly .cBaza._checkbox1.ReadOnly = m.llReadOnly Endwith ENDPROC PROCEDURE Cb_tx_cautare1.Init this.do_initializeaza_ct() ENDPROC PROCEDURE Cb_tx_cautare1.Text.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 THISFORM.DO_CAUTA() NODEFAULT ENDIF ENDPROC PROCEDURE Grid1.AfterRowColChange Lparameters nColIndex * Daca sunt in modul editare si schimb randul, ies din modul editare Local lnRecno Select crsTarife lnRecno = Recno() If Thisform.lModificat If Thisform.nRecno != m.lnRecno Thisform.lModificat = .F. This.Refresh Endif ENDIF ENDPROC PROCEDURE Grid2.AfterRowColChange LPARAMETERS nColIndex IF INLIST(this.RowColChange,1,3) thisform.actualizeaza_grid1("ctr_id = " + ALLTRIM(STR(crsContracte.id_ctr))) ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_tarife_contracte 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="Grid2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIdCtr.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIdCtr.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDenumire.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDenumire.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cNumar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cNumar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cb_tx_cautare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCoefDiscount.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCoefDiscount.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValDiscount.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValDiscount.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cArticol.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cLocatia.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCant.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCant.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPret.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPret.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValoare.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValoare.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPretcuTVA.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPretcuTVA.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cPretcuTVA.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cExplicatie.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cExplicatie.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cProcTva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cProcTva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cProcTva._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Sfsplitterh1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> * *m: calculeazapreturirand *m: do_actualizare_cote_tva *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *m: lmodificat_assign *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: lmodificat *p: ncant *p: npretcutva *p: npretunitar *p: nproctvav *p: nrecno *p: nreno *p: nvalftva *p: nvaloare *p: nvalval * * BorderStyle = 3 bvizualizare = .T. ccontractclient = cdenumirebeneficiar = cdenumireclient = cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 DoCreate = .T. Height = 401 lmodificat = .F. Name = "frm_tarife_contracte" ncant = 0 npretcutva = 0 npretunitar = 0 nproctvav = 0 nrecno = 0 nreno = 0 nvalftva = 0 nvaloare = 0 nvalval = 0 Width = 779 WindowState = 2 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape1.ZOrderSet = 0 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.ZOrderSet = 1 Lb_titlu_alb_b121.Caption = "Tarife contracte" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 9 Lb_titlu_alb_b121.ZOrderSet = 2 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 10 BUT_TERMIN1.Top = 0 BUT_TERMIN1.ZOrderSet = 3 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label3' AS _label WITH ; Caption = "Client", ; Left = 10, ; Name = "_label3", ; Top = 35, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ; Anchor = 8, ; Left = 657, ; Name = "But_copiaza1", ; Top = 56, ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_modifica1' AS but_modifica WITH ; Anchor = 8, ; Left = 713, ; Name = "But_modifica1", ; Top = 56, ; ZOrderSet = 11 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 8, ; Left = 685, ; Name = "But_nou1", ; Top = 56, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 720, ; Name = "But_renunt1", ; Top = 0, ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 8, ; Left = 740, ; Name = "But_sterge1", ; Top = 56, ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ; Height = 27, ; Left = 8, ; Name = "Cb_tx_cautare1", ; Top = 56, ; Width = 304, ; ZOrderSet = 6, ; Text.Height = 25, ; Text.Left = 103, ; Text.Name = "Text", ; Text.Top = 1, ; Text.Width = 197, ; Criteriu.Name = "Criteriu" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .F., ; caction = do_actualizare_cote_tva, ; Caption = "\ ADD OBJECT 'Grid1' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 12, ; DeleteMark = .F., ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 360, ; Name = "Grid1", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsTarife", ; RowHeight = 19, ; Top = 87, ; Width = 412, ; ZOrderSet = 8, ; Column1.ColumnOrder = 8, ; Column1.ControlSource = "coef_discount", ; Column1.FontSize = 10, ; Column1.Format = "RK", ; Column1.InputMask = (get_mask(12,4)), ; Column1.Name = "cCoefDiscount", ; Column1.ReadOnly = .T., ; Column1.Width = 83, ; Column2.ColumnOrder = 9, ; Column2.ControlSource = "val_discount", ; Column2.FontSize = 10, ; Column2.Format = "RK", ; Column2.InputMask = (get_mask(12,gnPVal)), ; Column2.Name = "cValDiscount", ; Column2.ReadOnly = .T., ; Column2.Width = 81, ; Column3.Bound = .F., ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "Iif(Seek(crsTarife.id_articol,'crsArticole','id_articol'),crsArticole.denumire,'')", ; Column3.CurrentControl = "Combo1", ; Column3.FontSize = 10, ; Column3.Name = "cArticol", ; Column3.ReadOnly = .F., ; Column3.Sparse = .F., ; Column3.Width = 109, ; Column4.Bound = .F., ; Column4.ColumnOrder = 1, ; Column4.ControlSource = "Iif(Seek(crsTarife.id_locatia,'crsLocatii','id'),crsLocatii.denumire,'')", ; Column4.CurrentControl = "Combo1", ; Column4.FontSize = 10, ; Column4.Name = "cLocatia", ; Column4.ReadOnly = .F., ; Column4.Sparse = .F., ; Column4.Width = 120, ; Column5.BackColor = 205,230,255, ; Column5.ColumnOrder = 3, ; Column5.ControlSource = "cant", ; Column5.FontSize = 10, ; Column5.Format = "RK", ; Column5.InputMask = (get_mask(12,4)), ; Column5.Name = "cCant", ; Column5.ReadOnly = .T., ; Column5.Width = 53, ; Column6.ColumnOrder = 4, ; Column6.ControlSource = "um", ; Column6.CurrentControl = "Text1", ; Column6.FontSize = 10, ; Column6.Format = "!K", ; Column6.Name = "cUM", ; Column6.ReadOnly = .T., ; Column6.Width = 36, ; Column7.BackColor = 205,230,255, ; Column7.ColumnOrder = 5, ; Column7.ControlSource = "pret_unitar", ; Column7.FontSize = 10, ; Column7.Format = "RK", ; Column7.InputMask = (get_mask(12,4)), ; Column7.Name = "cPret", ; Column7.ReadOnly = .T., ; Column7.Width = 60, ; Column8.Bound = .F., ; Column8.ColumnOrder = 6, ; Column8.ControlSource = "Iif(Seek(crsTarife.id_valuta,'crsValute','id_valuta'),crsValute.nume_val,'')", ; Column8.CurrentControl = "Combo1", ; Column8.FontSize = 10, ; Column8.Name = "cValuta", ; Column8.ReadOnly = .F., ; Column8.Sparse = .F., ; Column8.Width = 75, ; Column9.BackColor = 205,230,255, ; Column9.ColumnOrder = 7, ; Column9.ControlSource = "valoare", ; Column9.FontSize = 10, ; Column9.Format = "RK", ; Column9.InputMask = (get_mask(12,gnPC)), ; Column9.Name = "cValoare", ; Column9.ReadOnly = .F., ; Column9.Width = 75, ; Column10.ControlSource = "pret_cu_tva", ; Column10.CurrentControl = "Check1", ; Column10.FontSize = 10, ; Column10.Name = "cPretcuTVA", ; Column10.ReadOnly = .T., ; Column10.Sparse = .F., ; Column11.ColumnOrder = 12, ; Column11.ControlSource = "explicatie", ; Column11.FontSize = 10, ; Column11.Name = "cExplicatie", ; Column11.ReadOnly = .T., ; Column11.Sparse = .F., ; Column11.Width = 140, ; Column12.Bound = .F., ; Column12.ColumnOrder = 11, ; Column12.ControlSource = "Iif(Seek(crsTarife.proc_tvav,'crsCoteTVA','proc_tva'),crsCoteTVA.procent,'')", ; Column12.CurrentControl = "_combobox1", ; Column12.Name = "cProcTva", ; Column12.ReadOnly = .F., ; Column12.Sparse = .F. *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid1.cArticol.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.id_articol", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 48, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsArticole.denumire, id_articol,um from crsArticole into cursor crsArticoleX order by denumire", ; RowSourceType = 3, ; Style = 2, ; Top = 56, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cArticol.Header1' AS header WITH ; Alignment = 2, ; Caption = "Articol", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cArticol.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCant.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCant.Text1' AS textbox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cCoefDiscount.Header1' AS header WITH ; Alignment = 2, ; Caption = "Coef. discount", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCoefDiscount.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cExplicatie.Header1' AS header WITH ; Alignment = 2, ; Caption = "Explicatie", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cExplicatie.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cLocatia.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.id_locatia", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 73, ; Name = "Combo1", ; RowSource = "select crsLocatii.denumire, id from crsLocatii into cursor crsLocatiiX order by denumire", ; RowSourceType = 3, ; Style = 2, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cLocatia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Locatia", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cLocatia.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cPret.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cPret.Text1' AS textbox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cPretcuTVA.Check1' AS checkbox WITH ; Alignment = 2, ; BackStyle = 0, ; Caption = "", ; Enabled = .F., ; FontSize = 10, ; Height = 17, ; Left = 39, ; Name = "Check1", ; ReadOnly = .F., ; Top = 68, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'Grid1.cPretcuTVA.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pret cu TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cPretcuTVA.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 'Grid1.cProcTva._combobox1' AS _combobox WITH ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.proc_tvav", ; Left = 62, ; Name = "_combobox1", ; RowSource = "select procent, proc_tva from crsCoteTVA order by proc_tva desc into cursor crsCoteTVAY", ; RowSourceType = 3, ; SpecialEffect = 1, ; Top = 68 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'Grid1.cProcTva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cota TVA", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cProcTva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "Um", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValDiscount.Header1' AS header WITH ; Alignment = 2, ; Caption = "Val. discount", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValDiscount.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValoare.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValoare.Text1' AS textbox WITH ; BackColor = 205,230,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValuta.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.id_valuta", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 28, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsValute.nume_val, id_valuta from crsValute order by nume_val into cursor crsValuteX", ; RowSourceType = 3, ; Style = 2, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2' AS _grdbase WITH ; Anchor = 5, ; ColumnCount = 3, ; DeleteMark = .F., ; FontName = "Arial", ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 8, ; Name = "Grid2", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .T., ; RecordSource = "crsContracte", ; RowHeight = 19, ; TabIndex = 2, ; Top = 87, ; Width = 338, ; ZOrderSet = 5, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "id_ctr", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cIdCtr", ; Column1.ReadOnly = .T., ; Column1.Width = 60, ; Column2.ColumnOrder = 1, ; Column2.ControlSource = "denumire", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cDenumire", ; Column2.ReadOnly = .T., ; Column2.Width = 198, ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "numar", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "cNumar", ; Column3.ReadOnly = .T., ; Column3.Width = 82 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid2.cDenumire.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cDenumire.Text1' AS textbox WITH ; FontName = "Arial", ; FontSize = 10, ; Height = 23, ; Left = 46, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 35, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.cIdCtr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cIdCtr.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.cNumar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cNumar.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; Left = 456, ; Name = "Gridextra1", ; productname = ROA, ; Top = 156 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Gridextra2' AS gridextra WITH ; gridexpression = Thisform.Grid2, ; Left = 216, ; Name = "Gridextra2", ; productname = ROA, ; Top = 132 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Sfsplitterh1' AS sfsplitterh WITH ; Anchor = 5, ; BackColor = 255,255,255, ; cobject1name = Grid2, ; cobject2name = Grid1, ; Height = 302, ; Left = 349, ; Name = "Sfsplitterh1", ; Top = 88, ; Width = 8, ; ZOrderSet = 15, ; gripper.GripperDot1.Name = "GripperDot1", ; gripper.GripperDot1.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot1.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot1.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot2.Name = "GripperDot2", ; gripper.GripperDot2.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot2.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot2.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot3.Name = "GripperDot3", ; gripper.GripperDot3.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot3.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot3.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot4.Name = "GripperDot4", ; gripper.GripperDot4.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot4.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot4.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot5.Name = "GripperDot5", ; gripper.GripperDot5.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot5.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot5.ShapeMiddle.Name = "ShapeMiddle", ; gripper.Name = "gripper" *< END OBJECT: ClassLib="..\comun\clase\sfsplitter.vcx" BaseClass="control" /> PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.lModificat = .F. Thisform.LockScreen=.T. SELECT crsTarife SET FILTER TO &lcFiltru Go Top This.grid1.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE calculeazapreturirand LPARAMETERS tlValoare * tlValoare: Daca s-a modificat valoarea, se porneste calculul de la valoare si se modifica pretul. Local lcSelect, lnProcTvav lcSelect = Select() Select crsTarife lnProcTvav = IIF(NVL(proc_tvav,0) = -1, 0, proc_tvav) IF m.tlValoare Replace pret_unitar WITH ROUND(valoare / cant,4) this.grid1.cPret.Refresh() ELSE Replace valoare With Round(pret_unitar * cant, m.gnPC) this.grid1.cValoare.Refresh() ENDIF Select (m.lcSelect) ENDPROC PROCEDURE do_actualizare_cote_tva Local llPastreazaPretcuTVA, lnCotaNoua, lnCotaVeche, lnPretFaraTVA, lnProcNoua, lnProcNouaDefault Local lnProcVeche, lnProcVecheDefault, lnTVA, lnValoare SET STEP ON llPastreazaPretcuTVA = .T. && se pastreaza pretul cu TVA pentru tarifele cu TVA inclus lnProcVecheDefault = 19 lnProcNouaDefault = 21 lnProcVeche = AINPUTBOX('Procent TVA vechi', 'Actualizare TVA', m.lnProcVecheDefault) IF !EMPTY(m.lnProcVeche) lnProcNoua = AINPUTBOX('Procent TVA nou', 'Actualizare TVA', m.lnProcNouaDefault) IF !EMPTY(m.lnProcNoua) llPastreazaPretcuTVA = (AMESSAGEBOX('Se pastreaza pretul cu TVA pentru tarifele cu TVA inclus?',4+32, 'Actualizare TVA') = 6) ENDIF ENDIF IF !EMPTY(m.lnProcVeche) AND !EMPTY(m.lnProcNoua) lnCotaVeche = 1 + ROUND(m.lnProcVeche/100,2) lnCotaNoua = 1 + ROUND(m.lnProcNoua/100,2) * Actualizare tarife fara TVA inclus UPDATE crsTarife SET modificat = 1, proc_tvav = m.lnCotaNoua WHERE proc_tvav = m.lnCotaVeche AND NVL(pret_cu_tva,0) = 0 * Actualizare tarife cu TVA inclus IF m.llPastreazaPretCuTVA * Se pastreaza preturile UPDATE crsTarife SET modificat = 1, proc_tvav = m.lnCotaNoua WHERE proc_tvav = m.lnCotaVeche AND NVL(pret_cu_tva,0) = 1 ELSE * Se recalculeaza pretul cu TVA, pornind de la pretul fara TVA si procent TVA nou SELECT crsTarife SCAN FOR proc_tvav = m.lnCotaVeche AND NVL(pret_cu_tva,0) = 1 lnTVA = pret_unitar * ROUND(m.lnProcVeche / 100, 4) lnPretFaraTVA = pret_unitar - m.lnTVA lnValoare = Round(m.lnPretFaraTVA * cant, m.gnPC) REPLACE modificat WITH 1, proc_tvav WITH m.lnCotaNoua, pret_unitar WITH m.lnPretFaraTVA, valoare WITH m.lnValoare ENDSCAN ENDIF AMESSAGEBOX('Au fost actualizate cotele de TVA si preturile daca a fost cazul',0+64, 'Actualizare TVA') ENDIF ENDPROC PROCEDURE do_adauga Local lnCtrId lnCtrId = Nvl(crsContracte.id_ctr, 0) If Empty(m.lnCtrId) Return Endif Sele crsTarife IF RECNO() > 0 SCATTER NAME loRec MEMO ELSE SCATTER NAME loRec MEMO BLANK ENDIF loRec.id_ctr = m.lnCtrId APPEND blank GATHER NAME loRec FIELDS EXCEPT id_ctr_art MEMO This.do_modifica() ENDPROC PROCEDURE do_cauta Local lcfiltru, lcValoare lcfiltru='' lcValoare = STRTRAN(ALLTRIM(UPPER(This.cb_tx_cautare1.TEXT.VALUE)),['],['']) With This.cb_tx_cautare1 If !Empty(.Text.Value) Or (Empty(.Text.Value) And .criteriu.Value = "6") Do Case Case .criteriu.Value = "1" lcfiltru = lcfiltru + [LIKE('] + lcValoare + [*', denumire)] Case .criteriu.Value = "2" lcfiltru = lcfiltru + [denumire ='] + lcValoare + ['] Case .criteriu.Value = "3" lcfiltru = lcfiltru + [denumire !='] + lcValoare + ['] Case .criteriu.Value = "4" lcfiltru = lcfiltru + [LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "5" lcfiltru = lcfiltru + [!LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "6" lcfiltru = lcfiltru + [2=2] Endcase Endif Endwith SELECT crsContracte lnRecno = RECNO() LOCATE FOR &lcFiltru IF !FOUND() GOTO m.lnRecno ENDIF this.grid2.SetFocus() thisform.actualizeaza_grid1("id_ctr = " + ALLTRIM(STR(crsContracte.id_ctr))) ENDPROC PROCEDURE do_cauta_partener ENDPROC PROCEDURE do_copiaza Local lnCtrId, loContract, ldActivLaData, lnIdTipCtr, lnIdPart lnCtrId = Nvl(crsTarife.id_ctr, 0) ldActivLaData = DATE(m.gnAn, m.gnLuna, 1) lnIdTipCtr = -1 lnIdPart = 0 If Empty(m.lnCtrId) Return Endif If AMESSAGEBOX('Doriti sa copiati tarifele contractului curent pe alt contract?', 4 + 32, _Screen.Caption) <> 6 Return Endif AMESSAGEBOX("Alegeti clientul destinatie, unde doriti sa copiati tarifele.", 0 + 64, _Screen.Caption) loContract = caut_contract_activ(-1, 0, m.ldActivLaData) If Type('loContract') = 'O' And !Isnull(loContract) Select * From crsTarife Where id_ctr = m.lnCtrId Into Cursor cTarifeTemp Readwrite Update cTarifeTemp Set id_ctr = loContract.id_ctr, modificat = 1, id_ctr_art = 0 Select crsTarife Append From Dbf('cTarifeTemp') AMESSAGEBOX(Alltrim(Str(Reccount('cTarifeTemp'))) + ' inregistrari copiate.', 0 + 64, _Screen.Caption) Endif Use In (Select('cTarifeTemp')) ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_modifica SELECT crsTarife IF RECNO() > 0 REPLACE modificat with 1 thisform.nRecno=recno() thisform.lModificat = .T. ENDIF thisform.grid1.setfocus ENDPROC PROCEDURE do_sterge IF AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_screen.Caption) <> 6 RETURN ENDIF SELECT crsTarife REPLACE modificat with 1 DELETE TRY SKIP -1 IN crsTarife CATCH TO loEx GO TOP IN crsTarife ENDTRY THISFORM.GRID1.SETFOCUS ENDPROC PROCEDURE getcontracteclient ENDPROC PROCEDURE Init DODEFAULT() thisform.gridextra1.setup() thisform.gridextra2.setup() thisform.actualizeaza_grid1("id_ctr = " + ALLTRIM(STR(crsContracte.id_ctr))) thisform.cb_tx_cautare1.text.SetFocus() this.WindowState = 2 ENDPROC PROCEDURE lmodificat_assign Lparameters tlModificat Local llEnabled, llReadOnly This.lModificat = tlModificat llEnabled = m.tlModificat llReadOnly = !m.tlModificat With This.grid1 .cLocatia.combo1.Enabled = m.llEnabled .cArticol.combo1.Enabled = m.llEnabled .cCant.ReadOnly = m.llReadOnly .cUM.ReadOnly = .T. .cPret.ReadOnly = m.llReadOnly .cValuta.combo1.Enabled = m.llEnabled .cValoare.ReadOnly = m.llReadOnly .cCoefDiscount.ReadOnly = m.llReadOnly .cValDiscount.ReadOnly = m.llReadOnly .cPretcuTVA.check1.enabled = m.llEnabled .cExplicatie.ReadOnly = m.llReadOnly .cProcTva._combobox1.Enabled = m.llEnabled Endwith ENDPROC PROCEDURE Cb_tx_cautare1.Init this.do_initializeaza_ct() ENDPROC PROCEDURE Cb_tx_cautare1.Text.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 THISFORM.DO_CAUTA() NODEFAULT ENDIF ENDPROC PROCEDURE Grid1.AfterRowColChange Lparameters nColIndex * Daca sunt in modul editare si schimb randul, ies din modul editare Local lnRecno Select crsTarife lnRecno = Recno() If Thisform.lModificat If Thisform.nRecno != m.lnRecno Thisform.lModificat = .F. This.Refresh Endif Endif ENDPROC PROCEDURE Grid1.cArticol.Combo1.Valid REPLACE um WITH crsArticoleX.um IN crsTarife thisform.grid1.cUm.Refresh() ENDPROC PROCEDURE Grid1.cCant.Text1.LostFocus IF crsTarife.cant <> Thisform.nCant Thisform.CalculeazaPreturiRand() ENDIF ENDPROC PROCEDURE Grid1.cCant.Text1.When Thisform.nCant = crsTarife.cant ENDPROC PROCEDURE Grid1.cPret.Text1.LostFocus IF crsTarife.pret_unitar <> Thisform.nPretUnitar Thisform.CalculeazaPreturiRand() ENDIF ENDPROC PROCEDURE Grid1.cPret.Text1.When Thisform.nPretUnitar = crsTarife.pret_unitar ENDPROC PROCEDURE Grid1.cPretcuTVA.Check1.Valid *!* IF NVL(crsTarife.pret_cu_tva,0) <> thisform.nPretCuTVA *!* Thisform.CalculeazaPreturiRand() *!* ENDIF ENDPROC PROCEDURE Grid1.cPretcuTVA.Check1.When Thisform.nPretCuTva = NVL(crsTarife.pret_cu_tva,0) ENDPROC PROCEDURE Grid1.cProcTva._combobox1.Valid IF NVL(crsTarife.proc_tvav,0) <> thisform.nProcTvav Thisform.CalculeazaPreturiRand() ENDIF ENDPROC PROCEDURE Grid1.cProcTva._combobox1.When Thisform.nProcTvav = crsTarife.proc_tvav ENDPROC PROCEDURE Grid1.cValoare.Text1.LostFocus IF crsTarife.valoare <> Thisform.nValoare Thisform.CalculeazaPreturiRand(.T.) ENDIF ENDPROC PROCEDURE Grid1.cValoare.Text1.When Thisform.nValoare = crsTarife.valoare ENDPROC PROCEDURE Grid2.AfterRowColChange LPARAMETERS nColIndex thisform.actualizeaza_grid1("id_ctr = " + ALLTRIM(STR(crsContracte.id_ctr))) ENDPROC ENDDEFINE DEFINE CLASS frm_tarife_tranzit 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="Grid2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIdCtr.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cIdCtr.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDenumire.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cDenumire.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cNumar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid2.cNumar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Cb_tx_cautare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTccap1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTccap1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTccap2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTccap2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cGrupaMarfa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cGrupaMarfa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cGrupaMarfa.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cRuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cRuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cRuta.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTcap2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTcap2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cUM._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTcap1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cTcap1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValuta.Combo1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValoare.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cValoare.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIntern.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIntern.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cIntern.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cMarfa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cMarfa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cMarfa._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cGrupaNave.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cGrupaNave.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cGrupaNave._combobox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCodRuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Grid1.cCodRuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Sfsplitterh1" UniqueID="" Timestamp="" /> * *m: do_cauta_partener *m: do_executa2 *m: getcontracteclient *m: lmodificat_assign *p: ccontractclient *p: cdenumirebeneficiar *p: cdenumireclient *p: cvaloare_convoi *p: cvaloare_finala *p: cvaloare_minima_convoi *p: lmodificat *p: nrecno *p: nreno *p: nvalftva *p: nvalval * * BorderStyle = 3 bvizualizare = .T. ccontractclient = cdenumirebeneficiar = cdenumireclient = cvaloare_convoi = 0 cvaloare_finala = 0 cvaloare_minima_convoi = 0 DoCreate = .T. Height = 401 lmodificat = .F. Name = "frm_tarife_tranzit" nrecno = 0 nreno = 0 nvalftva = 0 nvalval = 0 Width = 779 WindowState = 2 _memberdata = _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 780 _shape1.ZOrderSet = 0 _shape2.Left = 728 _shape2.Name = "_shape2" _shape2.Top = -1 _shape2.ZOrderSet = 1 Lb_titlu_alb_b121.Caption = "Tarife tranzit" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" Lb_titlu_alb_b121.TabIndex = 6 Lb_titlu_alb_b121.ZOrderSet = 2 BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 748 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.TabIndex = 4 BUT_TERMIN1.Top = 0 BUT_TERMIN1.ZOrderSet = 3 Gridsort1.Left = 0 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 403 * ADD OBJECT '_label3' AS _label WITH ; Caption = "Client", ; Left = 10, ; Name = "_label3", ; TabIndex = 7, ; Top = 35, ; ZOrderSet = 7 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ; Anchor = 8, ; Left = 657, ; Name = "But_copiaza1", ; TabIndex = 8, ; Top = 56, ; ZOrderSet = 9 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_modifica1' AS but_modifica WITH ; Anchor = 8, ; Left = 713, ; Name = "But_modifica1", ; TabIndex = 10, ; Top = 56, ; ZOrderSet = 11 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_nou1' AS but_nou WITH ; Anchor = 8, ; Left = 685, ; Name = "But_nou1", ; TabIndex = 9, ; Top = 56, ; ZOrderSet = 10 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 720, ; Name = "But_renunt1", ; TabIndex = 5, ; Top = 0, ; ZOrderSet = 13 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_sterge1' AS but_sterge WITH ; Anchor = 8, ; Left = 740, ; Name = "But_sterge1", ; TabIndex = 11, ; Top = 56, ; ZOrderSet = 12 *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ; Height = 27, ; Left = 8, ; Name = "Cb_tx_cautare1", ; TabIndex = 1, ; Top = 56, ; Width = 304, ; ZOrderSet = 6, ; Text.Height = 25, ; Text.Left = 103, ; Text.Name = "Text", ; Text.TabIndex = 1, ; Text.Top = 1, ; Text.Width = 197, ; Criteriu.Name = "Criteriu", ; Criteriu.TabIndex = 2 *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'Grid1' AS _grdbase WITH ; Anchor = 15, ; ColumnCount = 13, ; DeleteMark = .F., ; HeaderHeight = 39, ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 360, ; Name = "Grid1", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsTarife", ; RowHeight = 19, ; TabIndex = 3, ; Top = 87, ; Width = 412, ; ZOrderSet = 8, ; Column1.ColumnOrder = 12, ; Column1.ControlSource = "tccap1", ; Column1.FontSize = 10, ; Column1.Format = "RK", ; Column1.InputMask = "999 999 999 999", ; Column1.Name = "cTccap1", ; Column1.ReadOnly = .T., ; Column1.Width = 83, ; Column2.ColumnOrder = 13, ; Column2.ControlSource = "tccap2", ; Column2.FontSize = 10, ; Column2.Format = "RK", ; Column2.InputMask = "999 999 999 999", ; Column2.Name = "cTccap2", ; Column2.ReadOnly = .T., ; Column2.Width = 81, ; Column3.Bound = .F., ; Column3.ColumnOrder = 3, ; Column3.ControlSource = "Iif(Seek(crsTarife.gdsg_id,'crsGrupeMarfa','id'),crsGrupeMarfa.grupa,'')", ; Column3.CurrentControl = "Combo1", ; Column3.FontSize = 10, ; Column3.Name = "cGrupaMarfa", ; Column3.ReadOnly = .F., ; Column3.Sparse = .F., ; Column3.Width = 109, ; Column4.Bound = .F., ; Column4.ColumnOrder = 2, ; Column4.ControlSource = "Iif(Seek(crsTarife.rte_id,'crsRoutes','id'),crsRoutes.name,'')", ; Column4.CurrentControl = "Combo1", ; Column4.FontSize = 10, ; Column4.Name = "cRuta", ; Column4.ReadOnly = .F., ; Column4.Sparse = .F., ; Column4.Width = 120, ; Column5.ColumnOrder = 11, ; Column5.ControlSource = "tcap2", ; Column5.FontSize = 10, ; Column5.Format = "RK", ; Column5.InputMask = "999 999", ; Column5.Name = "cTcap2", ; Column5.ReadOnly = .T., ; Column5.Width = 64, ; Column6.Bound = .F., ; Column6.ColumnOrder = 6, ; Column6.ControlSource = "Iif(Seek(crsTarife.vum_id,'crsVasUm','id'),crsVasUM.um,'')", ; Column6.CurrentControl = "_combobox1", ; Column6.FontSize = 10, ; Column6.Name = "cUM", ; Column6.ReadOnly = .T., ; Column6.Width = 36, ; Column7.ColumnOrder = 10, ; Column7.ControlSource = "tcap1", ; Column7.FontSize = 10, ; Column7.Format = "RK", ; Column7.InputMask = "999 999", ; Column7.Name = "cTcap1", ; Column7.ReadOnly = .T., ; Column7.Width = 71, ; Column8.Bound = .F., ; Column8.ColumnOrder = 8, ; Column8.ControlSource = "Iif(Seek(crsTarife.id_valuta,'crsValute','id_valuta'),crsValute.nume_val,'')", ; Column8.CurrentControl = "Combo1", ; Column8.FontSize = 10, ; Column8.Name = "cValuta", ; Column8.ReadOnly = .F., ; Column8.Sparse = .F., ; Column8.Width = 75, ; Column9.ColumnOrder = 9, ; Column9.ControlSource = "valoare", ; Column9.FontSize = 10, ; Column9.Format = "RK", ; Column9.InputMask = (get_mask(12,4)), ; Column9.Name = "cValoare", ; Column9.ReadOnly = .T., ; Column9.Width = 75, ; Column10.ColumnOrder = 7, ; Column10.ControlSource = "intern", ; Column10.CurrentControl = "Check1", ; Column10.FontSize = 10, ; Column10.Name = "cIntern", ; Column10.ReadOnly = .T., ; Column10.Sparse = .F., ; Column10.Width = 41, ; Column11.Bound = .F., ; Column11.ColumnOrder = 4, ; Column11.ControlSource = "Iif(Seek(crsTarife.gds_id,'crsMarfa','id'),crsMarfa.marfa,'')", ; Column11.CurrentControl = "_combobox1", ; Column11.FontSize = 10, ; Column11.Name = "cMarfa", ; Column11.ReadOnly = .T., ; Column11.Sparse = .F., ; Column11.Width = 110, ; Column12.Bound = .F., ; Column12.ColumnOrder = 5, ; Column12.ControlSource = "Iif(Seek(crsTarife.gtn_id,'crsGrupTipNave','id'),crsGrupTipNave.nume,'')", ; Column12.CurrentControl = "_combobox1", ; Column12.FontSize = 10, ; Column12.Name = "cGrupaNave", ; Column12.ReadOnly = .T., ; Column12.Sparse = .F., ; Column12.Width = 156, ; Column13.ColumnOrder = 1, ; Column13.ControlSource = "rte_id", ; Column13.FontSize = 10, ; Column13.Name = "cCodRuta", ; Column13.ReadOnly = .T., ; Column13.Width = 57 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid1.cCodRuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod ruta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cCodRuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cGrupaMarfa.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.gdsg_id", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 48, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsGrupeMarfa.grupa, id from crsGrupeMarfa into cursor crsGrupeMarfaX order by id", ; RowSourceType = 3, ; Style = 2, ; Top = 56, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cGrupaMarfa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Grupa marfa", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cGrupaMarfa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cGrupaNave._combobox1' AS _combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.gtn_id", ; FontSize = 10, ; Left = 31, ; Name = "_combobox1", ; RowSource = "select crsGrupTipNave.nume, id from crsGrupTipNave into cursor crsGrupTipNaveX order by nume", ; RowSourceType = 3, ; Top = 56 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'Grid1.cGrupaNave.Header1' AS header WITH ; Alignment = 2, ; Caption = "Grupa nave", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cGrupaNave.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cIntern.Check1' AS checkbox WITH ; Alignment = 2, ; BackStyle = 0, ; Caption = "", ; FontSize = 10, ; Height = 17, ; Left = 39, ; Name = "Check1", ; ReadOnly = .T., ; Top = 68, ; Width = 60 *< END OBJECT: BaseClass="checkbox" /> ADD OBJECT 'Grid1.cIntern.Header1' AS header WITH ; Alignment = 2, ; Caption = "Intern", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cIntern.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 'Grid1.cMarfa._combobox1' AS _combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.gds_id", ; FontSize = 10, ; Left = 58, ; Name = "_combobox1", ; RowSource = "select crsMarfa.marfa, id from crsMarfa into cursor crsMarfaX order by id", ; RowSourceType = 3, ; Top = 56 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'Grid1.cMarfa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Marfa", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cMarfa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cRuta.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.rte_id", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 73, ; Name = "Combo1", ; RowSource = "select crsRoutes.name, id from crsRoutes into cursor crsRoutesX order by id", ; RowSourceType = 3, ; Style = 2, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cRuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ruta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cRuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .F., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cTcap1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Capacitate minima", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cTcap1.Text1' AS textbox WITH ; Alignment = 3, ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cTcap2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Capacitate maxima", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cTcap2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cTccap1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cap. min. cumulat", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cTccap1.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cTccap2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cap. max. cumulat", ; FontSize = 10, ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cTccap2.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cUM._combobox1' AS _combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.vum_id", ; FontSize = 10, ; Left = 18, ; Name = "_combobox1", ; RowSource = "select crsVasUm.um,id from crsVasUm into cursor crsVasUmX order by um", ; RowSourceType = 3, ; Top = 80 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> ADD OBJECT 'Grid1.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "Um", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValoare.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValoare.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid1.cValuta.Combo1' AS combobox WITH ; BorderStyle = 0, ; BoundColumn = 2, ; BoundTo = .T., ; ControlSource = "crsTarife.id_valuta", ; Enabled = .F., ; FontSize = 10, ; Height = 24, ; Left = 28, ; Name = "Combo1", ; ReadOnly = .F., ; RowSource = "select crsValute.nume_val, id_valuta from crsValute order by nume_val into cursor crsValuteX", ; RowSourceType = 3, ; Style = 2, ; Top = 44, ; Width = 100 *< END OBJECT: BaseClass="combobox" /> ADD OBJECT 'Grid1.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid1.cValuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2' AS _grdbase WITH ; Anchor = 5, ; ColumnCount = 3, ; DeleteMark = .F., ; Height = 304, ; lcamptextneeditabil = .F., ; Left = 8, ; Name = "Grid2", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .T., ; RecordSource = "crsContracte", ; RowHeight = 19, ; TabIndex = 2, ; Top = 87, ; Width = 338, ; ZOrderSet = 5, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "id_ctr", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cIdCtr", ; Column1.ReadOnly = .T., ; Column1.Width = 60, ; Column2.ColumnOrder = 1, ; Column2.ControlSource = "denumire", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cDenumire", ; Column2.ReadOnly = .T., ; Column2.Width = 198, ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "numar", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "cNumar", ; Column3.ReadOnly = .T., ; Column3.Width = 82 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'Grid2.cDenumire.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cDenumire.Text1' AS textbox WITH ; FontName = "Arial", ; FontSize = 10, ; Height = 23, ; Left = 46, ; Name = "Text1", ; SelectedBackColor = 100,185,255, ; Top = 35, ; Width = 100 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.cIdCtr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cIdCtr.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Grid2.cNumar.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'Grid2.cNumar.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; companyname = ROA, ; gridexpression = Thisform.Grid1, ; Left = 528, ; Name = "Gridextra1", ; Top = 216 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Gridextra2' AS gridextra WITH ; companyname = ROA, ; gridexpression = Thisform.Grid2, ; Left = 252, ; Name = "Gridextra2", ; Top = 240 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> ADD OBJECT 'Sfsplitterh1' AS sfsplitterh WITH ; Anchor = 5, ; BackColor = 255,255,255, ; cobject1name = Grid2, ; cobject2name = Grid1, ; Height = 302, ; Left = 350, ; Name = "Sfsplitterh1", ; Top = 89, ; Width = 8, ; ZOrderSet = 15, ; gripper.GripperDot1.Name = "GripperDot1", ; gripper.GripperDot1.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot1.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot1.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot2.Name = "GripperDot2", ; gripper.GripperDot2.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot2.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot2.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot3.Name = "GripperDot3", ; gripper.GripperDot3.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot3.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot3.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot4.Name = "GripperDot4", ; gripper.GripperDot4.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot4.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot4.ShapeMiddle.Name = "ShapeMiddle", ; gripper.GripperDot5.Name = "GripperDot5", ; gripper.GripperDot5.ShapeDark.Name = "ShapeDark", ; gripper.GripperDot5.ShapeLight.Name = "ShapeLight", ; gripper.GripperDot5.ShapeMiddle.Name = "ShapeMiddle", ; gripper.Name = "gripper" *< END OBJECT: ClassLib="..\comun\clase\sfsplitter.vcx" BaseClass="control" /> PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.lModificat = .F. Thisform.LockScreen=.T. SELECT crsTarife SET FILTER TO &lcFiltru Go Top This.grid1.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_adauga Local lnCtrId lnCtrId = Nvl(crsContracte.id_ctr, 0) If Empty(m.lnCtrId) Return Endif Sele crsTarife IF RECNO() > 0 SCATTER NAME loRec MEMO ELSE SCATTER NAME loRec MEMO BLANK ENDIF loRec.ctr_id = m.lnCtrId APPEND blank GATHER NAME loRec FIELDS EXCEPT id MEMO This.do_modifica() ENDPROC PROCEDURE do_cauta Local lcfiltru, lcValoare lcfiltru='' lcValoare = STRTRAN(ALLTRIM(UPPER(This.cb_tx_cautare1.TEXT.VALUE)),['],['']) With This.cb_tx_cautare1 If !Empty(.Text.Value) Or (Empty(.Text.Value) And .criteriu.Value = "6") Do Case Case .criteriu.Value = "1" lcfiltru = lcfiltru + [LIKE('] + lcValoare + [*', denumire)] Case .criteriu.Value = "2" lcfiltru = lcfiltru + [denumire ='] + lcValoare + ['] Case .criteriu.Value = "3" lcfiltru = lcfiltru + [denumire !='] + lcValoare + ['] Case .criteriu.Value = "4" lcfiltru = lcfiltru + [LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "5" lcfiltru = lcfiltru + [!LIKE('*] + lcValoare + [*', denumire)] Case .criteriu.Value = "6" lcfiltru = lcfiltru + [2=2] Endcase Endif Endwith SELECT crsContracte lnRecno = RECNO() LOCATE FOR &lcFiltru IF !FOUND() GOTO m.lnRecno ENDIF this.grid2.SetFocus() thisform.actualizeaza_grid1("ctr_id = " + ALLTRIM(STR(crsContracte.id_ctr))) ENDPROC PROCEDURE do_cauta_partener ENDPROC PROCEDURE do_copiaza Local lnCtrId, loContract, ldActivLaData, lnIdTipCtr, lnIdPart lnCtrId = Nvl(crsTarife.ctr_id, 0) ldActivLaData = DATE(m.gnAn, m.gnLuna, 1) lnIdTipCtr = -1 lnIdPart = 0 If Empty(m.lnCtrId) Return Endif If AMESSAGEBOX('Doriti sa copiati tarifele contractului curent pe alt contract?', 4 + 32, _Screen.Caption) <> 6 Return Endif AMESSAGEBOX("Alegeti clientul destinatie, unde doriti sa copiati tarifele.", 0 + 64, _Screen.Caption) loContract = caut_contract_activ(-1, 0, m.ldActivLaData) If Type('loContract') = 'O' And !Isnull(loContract) Select * From crsTarife Where ctr_id = m.lnCtrId Into Cursor cTarifeTemp Readwrite Update cTarifeTemp Set ctr_id = loContract.id_ctr, modificat = 1, id = 0 Select crsTarife Append From Dbf('cTarifeTemp') AMESSAGEBOX(Alltrim(Str(Reccount('cTarifeTemp'))) + ' inregistrari copiate.', 0 + 64, _Screen.Caption) Endif Use In (Select('cTarifeTemp')) ENDPROC PROCEDURE do_executa2 ENDPROC PROCEDURE do_modifica SELECT crsTarife IF RECNO() > 0 REPLACE modificat with 1 thisform.nRecno=recno() thisform.lModificat = .T. ENDIF thisform.grid1.setfocus ENDPROC PROCEDURE do_sterge IF AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_screen.Caption) <> 6 RETURN ENDIF SELECT crsTarife REPLACE modificat with 1 DELETE TRY SKIP -1 IN crsTarife CATCH TO loEx GO TOP IN crsTarife ENDTRY THISFORM.GRID1.SETFOCUS ENDPROC PROCEDURE getcontracteclient ENDPROC PROCEDURE Init DODEFAULT() thisform.gridextra1.setup() thisform.gridextra2.setup() thisform.actualizeaza_grid1("ctr_id = " + ALLTRIM(STR(crsContracte.id_ctr))) thisform.cb_tx_cautare1.text.SetFocus() this.WindowState = 2 ENDPROC PROCEDURE lmodificat_assign Lparameters tlModificat Local llEnabled, llReadOnly This.lModificat = tlModificat llEnabled = m.tlModificat llReadOnly = !m.tlModificat With This.grid1 .cCodRuta.ReadOnly = m.llReadOnly .cRuta.combo1.Enabled = m.llEnabled .cGrupaMarfa.combo1.Enabled = m.llEnabled .cMarfa._combobox1.Enabled = m.llEnabled .cGrupaNave._combobox1.Enabled = m.llEnabled .cUM._combobox1.Enabled = m.llEnabled .cIntern.ReadOnly = m.llReadOnly .cIntern.Check1.ReadOnly = m.llReadOnly .cValoare.ReadOnly = m.llReadOnly .cValuta.combo1.Enabled = m.llEnabled .cTcap1.ReadOnly = m.llReadOnly .cTcap2.ReadOnly = m.llReadOnly .cTccap1.ReadOnly = m.llReadOnly .cTccap2.ReadOnly = m.llReadOnly Endwith ENDPROC PROCEDURE Cb_tx_cautare1.Init this.do_initializeaza_ct() ENDPROC PROCEDURE Cb_tx_cautare1.Text.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 THISFORM.DO_CAUTA() NODEFAULT ENDIF ENDPROC PROCEDURE Grid1.AfterRowColChange Lparameters nColIndex * Daca sunt in modul editare si schimb randul, ies din modul editare Local lnRecno Select crsTarife lnRecno = Recno() If Thisform.lModificat If Thisform.nRecno != m.lnRecno Thisform.lModificat = .F. This.Refresh Endif ENDIF ENDPROC PROCEDURE Grid2.AfterRowColChange LPARAMETERS nColIndex IF INLIST(this.RowColChange,1,3) thisform.actualizeaza_grid1("ctr_id = " + ALLTRIM(STR(crsContracte.id_ctr))) ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_tranzit 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="Cb_tx_cautare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="cmdCalculeaza" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatadecl.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatadecl.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnumeconvoi.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnumeconvoi.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdeclcdt.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdeclcdt.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.corig.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.corig.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdest.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdest.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAles.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAles.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAles.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> * *p: ntip && 0=tranzit, 1=cheiaj * * BorderStyle = 3 DoCreate = .T. Height = 460 Name = "frm_tranzit" ntip = 0 Width = 792 WindowState = 2 _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 793 _shape2.Left = 741 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Convoaie" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 761 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 780 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 449 * ADD OBJECT '_label1' AS _label WITH ; Caption = "Declaratia", ; Left = 12, ; Name = "_label1", ; Top = 35 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'But_renunt1' AS but_renunt WITH ; Anchor = 9, ; Left = 733, ; Name = "But_renunt1", ; 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 = 674, ; Name = "But_reset_criterii1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; Anchor = 9, ; Comment = "*:OnResize=RT", ; Left = 703, ; Name = "But_start_criterii1", ; Top = 1 *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ; Height = 27, ; Left = 10, ; Name = "Cb_tx_cautare1", ; Top = 54, ; Width = 210, ; Text.Height = 25, ; Text.Left = 103, ; Text.Name = "Text", ; Text.Top = 1, ; Text.Width = 100, ; criteriu.Name = "criteriu" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'cmdCalculeaza' AS cmd_executa WITH ; Anchor = 8, ; AutoSize = .T., ; Caption = "\ ADD OBJECT 'grdTranzit' AS _grdbase WITH ; Anchor = 15, ; BackColor = 255,255,255, ; ColumnCount = 6, ; DeleteMark = .F., ; GridLineColor = 192,192,192, ; Height = 360, ; Left = 12, ; Name = "grdTranzit", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .T., ; RecordSource = "crsConvoaie", ; TabIndex = 5, ; Top = 84, ; Width = 771, ; Column1.BackColor = 255,255,255, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "crsConvoaie.generation", ; Column1.FontName = "Arial", ; Column1.Name = "cdatadecl", ; Column1.ReadOnly = .T., ; Column1.Width = 68, ; Column2.BackColor = 255,255,255, ; Column2.ColumnOrder = 4, ; Column2.ControlSource = "crsConvoaie.convoy_nam", ; Column2.FontName = "Arial", ; Column2.Name = "cnumeconvoi", ; Column2.ReadOnly = .T., ; Column2.Width = 144, ; Column3.BackColor = 255,255,255, ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "crsConvoaie.declaratio", ; Column3.FontName = "Arial", ; Column3.Name = "cdeclcdt", ; Column3.ReadOnly = .T., ; Column3.Width = 68, ; Column4.BackColor = 255,255,255, ; Column4.ColumnOrder = 5, ; Column4.ControlSource = "crsConvoaie.origin", ; Column4.FontName = "Arial", ; Column4.Name = "corig", ; Column4.ReadOnly = .T., ; Column4.Width = 92, ; Column5.BackColor = 255,255,255, ; Column5.ColumnOrder = 6, ; Column5.ControlSource = "crsConvoaie.destinatio", ; Column5.FontName = "Arial", ; Column5.Name = "cdest", ; Column5.ReadOnly = .T., ; Column5.Width = 99, ; Column6.BackColor = 255,255,255, ; Column6.ColumnOrder = 1, ; Column6.ControlSource = "crsConvoaie.ales", ; Column6.CurrentControl = "Check1", ; Column6.Name = "cAles", ; Column6.ReadOnly = .F., ; Column6.Sparse = .F., ; Column6.Width = 28 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdTranzit.cAles.Check1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; ControlSource = "ales", ; Left = 13, ; Name = "Check1", ; ReadOnly = .F., ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cAles.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ales", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAles.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 'grdTranzit.cdatadecl.Header1' AS header WITH ; Caption = "Data decl.", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdatadecl.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 'grdTranzit.cdeclcdt.Header1' AS header WITH ; Caption = "Declaratia", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdeclcdt.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 'grdTranzit.cdest.Header1' AS header WITH ; Caption = "Destinatie", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdest.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 'grdTranzit.cnumeconvoi.Header1' AS header WITH ; Caption = "Convoi", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cnumeconvoi.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 'grdTranzit.corig.Header1' AS header WITH ; Caption = "Plecare", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.corig.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 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.grdTranzit, ; Left = 265, ; Name = "Gridextra1", ; Top = 45 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> PROCEDURE Activate * ENDPROC PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.LockScreen=.F. This.grdTranzit.RecordSource='' poConvoaie.ca_baza1.cfiltru = m.lcFiltru poConvoaie.ca_baza1.afisare() SELECT crsConvoaie Go Top With This.grdTranzit .RecordSource='crsConvoaie' .cAles.ControlSource='crsConvoaie.ales' .cdeclcdt.ControlSource='crsConvoaie.declaratio' .cdatadecl.ControlSource='crsConvoaie.generation' .corig.ControlSource='crsConvoaie.origin' .cdest.ControlSource='crsConvoaie.destinatio' .cnumeconvoi.ControlSource="crsConvoaie.convoy_nam" Endwith This.grdTranzit.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_cauta LOCAL lcfiltru, lcval1, lcColoana, lcVyeIds IF Empty(This.cb_tx_cautare1.Text.Value) AND LEN(THISFORM.filtru_pretty)=0 AMESSAGEBOX('Alegeti un criteriu de cautare!',0+48,_screen.Caption) RETURN ENDIF lcfiltru='' lcColoana = "declaratio" With This.cb_tx_cautare1 lcval1 = Strtran(Alltrim(Upper(.Text.Value)),['],['']) Do Case Case .criteriu.Value = "1" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ LIKE '] + lcval1 + [%'] Case .criteriu.Value = "2" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ ='] + lcval1 + ['] Case .criteriu.Value = "3" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ !='] + lcval1 + ['] Case .criteriu.Value = "4" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ LIKE '%] + lcval1 + [%'] Case .criteriu.Value = "5" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ NOT LIKE '%] + lcval1 + [%'] Case .criteriu.Value = "6" lcfiltru = [2=2] Endcase Endwith lcFiltru = "(" + m.lcFiltru * Filtru ales = 1 (Voiajele ales = 1 vreau sa le aduc si pe ele in cautare si sa le bifez ales=1 dupa cautare) lcVyeIds = '' CREATE CURSOR cVoyagesAlesTemp (vye_id C(36)) SELECT crsConvoaie SCAN FOR ales = 1 lcVyeId = crsConvoaie.vye_id INSERT INTO cVoyagesAlesTemp (vye_id) VALUES (m.lcVyeId) lcVyeIds = lcVyeIds + [,'] + ALLTRIM(vye_id) + ['] ENDSCAN IF !EMPTY(m.lcVyeIds) lcVyeIds = SUBSTR(m.lcVyeIds,2) lcFiltru = m.lcFiltru + [ or vye_id in (] + m.lcVyeIds + [)] ENDIF lcFiltru = lcFiltru + ")" * Filtre buton cautare IF LEN(THISFORM.filtru_pretty)>0 lcFiltru = m.lcFiltru + " and (" + ALLTRIM(THISFORM.filtru_pretty) + ")" ENDIF If Empty(m.lcFiltru) aMessagebox("Alegeti un criteriu!",0+48,"Atentie") This.cb_tx_cautare1.criteriu.SetFocus() Return Endif IF !EMPTY(m.lcFiltru) AND ALLTRIM(LEFT(LOWER(m.lcFiltru),5)) = "and" lcFiltru = SUBSTR(m.lcFiltru, 6) ENDIF IF !EMPTY(m.lcFiltru) THISFORM.actualizeaza_grid1(lcFiltru) IF RECCOUNT('crsConvoaie')=0 aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare") This.cb_tx_cautare1.criteriu.SetFocus() ELSE UPDATE crsConvoaie SET ales = 1 WHERE vye_id in (select vye_id from cVoyagesAlesTemp ) GO TOP IN crsConvoaie this.grdTranzit.SetFocus() ENDIF ENDIF USE IN (SELECT('cVoyagesAlesTemp')) SELECT crsConvoaie Return m.lcFiltru ENDPROC PROCEDURE do_executa LOCAL lcVyeId, llSucces, lcVyeIds llSucces = .F. lcVyeIds = '' SELECT crsConvoaie lcVyeId = ['] + ALLTRIM(NVL(crsConvoaie.vye_id,'')) + ['] SCAN FOR ales = 1 lcVyeIds = lcVyeIds + [,'] + ALLTRIM(vye_id) + ['] ENDSCAN IF EMPTY(m.lcVyeIds) lcVyeIds = m.lcVyeId ELSE lcVyeIds = SUBSTR(m.lcVyeIds,2) ENDIF IF !EMPTY(m.lcVyeIds) * Verific daca mai exista facturi pe convoaiele selectate Text To lcSql Textmerge Noshow SELECT numar_act, data_act, client FROM ips_vvoyages_vanzari WHERE vye_id in (<>) AND numar_act is NOT null ORDER BY client, data_act, numar_act ENDTEXT llSucces = goExecutor.oExecuta(m.lcSql, 'cFacturiTranzitTemp') IF m.llSucces IF RECCOUNT('cFacturiTranzitTemp') > 0 lcMesaj = 'Atentie! Exista facturi pe tranzitele alese!' + CHR(13) + CHR(10) SELECT cFacturiTranzitTemp SCAN lcMesaj = lcMesaj + TRANSFORM(numar_act) + ' ' + DTOC(TTOD(data_act)) + ' ' + ALLTRIM(client) + CHR(13) + CHR(10) ENDSCAN AMESSAGEBOX(m.lcMesaj,0+48,_screen.Caption) ENDIF ENDIF USE IN (SELECT('cFacturiTranzitTemp')) IF this.nTip = 0 llSucces = calcul_tranzit(m.lcVyeIds) && IN proceduri_acnpro.prg ELSE llSucces = calcul_cheiaj(m.lcVyeIds) && IN proceduri_acnpro.prg ENDIF This.but_termin1.Enabled = m.llSucces IF m.llSucces This.do_termin() ENDIF ENDIF ENDPROC PROCEDURE Init LPARAMETERS tnTip, tnMod * tnTIp: 0 = TRANZIT, 1 = CHEIAJ * tnMod: 0/1 = APELAT DIN FACTURA, 2 = VIZUALIZARE DIRECT DODEFAULT() this.nTip = m.tnTip this.cb_tx_cautare1.criteriu.Value = "2" && Este this.cb_tx_cautare1.text.SetFocus() lnMod = IIF(TYPE('tnMod') = 'N', m.lnMod, 1) this.cmdCalculeaza.Visible = INLIST(m.lnMod,0,1) This.but_termin1.Enabled = !INLIST(m.lnMod,0,1) && dezactivez butonul Termin. Il activez dupa ce am un calcul Tranzit/Cheiaj cu succes this.WindowState = 2 this.gridextra1.setup() ENDPROC PROCEDURE KeyPress Lparameters nKeyCode, nShiftAltCtrl If Lower(This.ActiveControl.Name) = 'grdtranzit' And m.nKeyCode = 13 && Enter This.cmdCalculeaza.SetFocus() Nodefault Else DoDefault(m.nKeyCode, m.nShiftAltCtrl) Endif ENDPROC PROCEDURE But_start_criterii1.loadcriterii PARAMETERS tacriterii EXTERNAL ARRAY tacriterii #DEFINE crlf CHR(13)+CHR(10) *!* DEBUG *!* SUSPEND lcStringCriterii="Declaratia\declaratio\T\none\"+ crlf + ; "Data decl.\generation\D\none\" + crlf + ; "Convoi\convoy_nam\T\none\"+ crlf + ; "Plecare\origin\T\none\"+ crlf + ; "Destinatie\destinatio\T\none\" DODEFAULT() ENDPROC PROCEDURE Cb_tx_cautare1.Text.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 THISFORM.DO_CAUTA() NODEFAULT ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_tranzit_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="Cb_tx_cautare1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatadecl.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatadecl.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnumeconvoi.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnumeconvoi.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdeclcdt.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdeclcdt.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.corig.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.corig.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdest.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdest.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnrfact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnrfact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatafact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatafact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValftva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValftva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cClient.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cClient.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAles.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAles.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAles.Check1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSerieFact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSerieFact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cBeneficiar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cBeneficiar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDocument.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDocument.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cContractClient.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cContractClient.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTipFactura.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTipFactura.Text1" UniqueID="" Timestamp="" /> * *p: ntip && 0=tranzit, 1=cheiaj * * BorderStyle = 3 DoCreate = .T. Height = 460 Name = "frm_tranzit_facturi" ntip = 0 Width = 792 WindowState = 2 _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 793 _shape2.Left = 741 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Convoaie" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 761 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 780 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 449 * ADD OBJECT '_label1' AS _label WITH ; Caption = "Declaratia", ; Left = 12, ; Name = "_label1", ; Top = 42 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; Anchor = 9, ; Left = 703, ; Name = "But_reset_criterii1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; Anchor = 9, ; Comment = "*:OnResize=RT", ; Left = 732, ; Name = "But_start_criterii1", ; Top = 1 *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ; Height = 27, ; Left = 78, ; Name = "Cb_tx_cautare1", ; Top = 37, ; Width = 210, ; Text.Height = 25, ; Text.Left = 103, ; Text.Name = "Text", ; Text.Top = 1, ; Text.Width = 100, ; criteriu.Name = "criteriu" *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> ADD OBJECT 'grdTranzit' AS _grdbase WITH ; Anchor = 15, ; BackColor = 255,255,255, ; ColumnCount = 15, ; DeleteMark = .F., ; GridLineColor = 192,192,192, ; Height = 384, ; Left = 12, ; Name = "grdTranzit", ; Panel = 1, ; ReadOnly = .T., ; RecordMark = .T., ; RecordSource = "crsConvoaie", ; TabIndex = 5, ; Top = 69, ; Width = 771, ; Column1.BackColor = 255,255,255, ; Column1.ColumnOrder = 11, ; Column1.ControlSource = "crsConvoaie.generation", ; Column1.FontName = "Arial", ; Column1.Name = "cdatadecl", ; Column1.ReadOnly = .T., ; Column1.Width = 75, ; Column2.BackColor = 255,255,255, ; Column2.ColumnOrder = 12, ; Column2.ControlSource = "crsConvoaie.convoy_nam", ; Column2.FontName = "Arial", ; Column2.Name = "cnumeconvoi", ; Column2.ReadOnly = .T., ; Column2.Width = 144, ; Column3.BackColor = 255,255,255, ; Column3.ColumnOrder = 10, ; Column3.ControlSource = "crsConvoaie.declaratio", ; Column3.FontName = "Arial", ; Column3.Name = "cdeclcdt", ; Column3.ReadOnly = .T., ; Column3.Width = 68, ; Column4.BackColor = 255,255,255, ; Column4.ColumnOrder = 14, ; Column4.ControlSource = "crsConvoaie.origin", ; Column4.FontName = "Arial", ; Column4.Name = "corig", ; Column4.ReadOnly = .T., ; Column4.Width = 92, ; Column5.BackColor = 255,255,255, ; Column5.ColumnOrder = 15, ; Column5.ControlSource = "crsConvoaie.destinatio", ; Column5.FontName = "Arial", ; Column5.Name = "cdest", ; Column5.ReadOnly = .T., ; Column5.Width = 99, ; Column6.BackColor = 255,255,255, ; Column6.ColumnOrder = 3, ; Column6.ControlSource = "crsConvoaie.numar_act", ; Column6.FontName = "Arial", ; Column6.Name = "cnrfact", ; Column6.ReadOnly = .T., ; Column6.Width = 87, ; Column7.Alignment = 6, ; Column7.BackColor = 255,255,255, ; Column7.ColumnOrder = 4, ; Column7.ControlSource = "TTOD(crsConvoaie.data_act)", ; Column7.FontName = "Arial", ; Column7.Name = "cdatafact", ; Column7.ReadOnly = .T., ; Column7.Width = 85, ; Column8.BackColor = 255,255,255, ; Column8.ColumnOrder = 8, ; Column8.ControlSource = "crsConvoaie.total_fara_tva", ; Column8.FontName = "Arial", ; Column8.Format = "Rk", ; Column8.InputMask = (get_mask(12,gnZ)), ; Column8.Name = "cValftva", ; Column8.ReadOnly = .T., ; Column8.Width = 101, ; Column9.BackColor = 255,255,255, ; Column9.ColumnOrder = 5, ; Column9.ControlSource = "crsConvoaie.client", ; Column9.FontName = "Arial", ; Column9.Name = "cClient", ; Column9.ReadOnly = .T., ; Column9.Width = 263, ; Column10.BackColor = 255,255,255, ; Column10.ColumnOrder = 1, ; Column10.ControlSource = "crsConvoaie.ales", ; Column10.CurrentControl = "Check1", ; Column10.Name = "cAles", ; Column10.ReadOnly = .F., ; Column10.Sparse = .F., ; Column10.Width = 28, ; Column11.BackColor = 255,255,255, ; Column11.ColumnOrder = 2, ; Column11.ControlSource = "crsConvoaie.serie_act", ; Column11.Name = "cSerieFact", ; Column11.ReadOnly = .T., ; Column11.Width = 79, ; Column12.BackColor = 255,255,255, ; Column12.ColumnOrder = 7, ; Column12.ControlSource = "crsConvoaie.beneficiar", ; Column12.Name = "cBeneficiar", ; Column12.ReadOnly = .T., ; Column12.Width = 170, ; Column13.BackColor = 255,255,255, ; Column13.ColumnOrder = 13, ; Column13.ControlSource = "crsConvoaie.document", ; Column13.Name = "cDocument", ; Column13.ReadOnly = .T., ; Column14.BackColor = 255,255,255, ; Column14.ColumnOrder = 6, ; Column14.ControlSource = "crsConvoaie.contract_client", ; Column14.Name = "cContractClient", ; Column14.ReadOnly = .T., ; Column14.Width = 133, ; Column15.BackColor = 255,255,255, ; Column15.ColumnOrder = 9, ; Column15.ControlSource = "ctip_factura", ; Column15.Name = "cTipFactura", ; Column15.ReadOnly = .T., ; Column15.Width = 118 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdTranzit.cAles.Check1' AS _checkbox WITH ; Alignment = 0, ; Caption = "", ; ControlSource = "ales", ; Left = 13, ; Name = "Check1", ; ReadOnly = .F., ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cAles.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ales", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAles.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 'grdTranzit.cBeneficiar.Header1' AS header WITH ; Alignment = 2, ; BackColor = 240,240,240, ; Caption = "Beneficiar", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cBeneficiar.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cClient.Header1' AS header WITH ; Caption = "Client", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cClient.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 'grdTranzit.cContractClient.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cContractClient.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cdatadecl.Header1' AS header WITH ; Caption = "Data decl.", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdatadecl.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 'grdTranzit.cdatafact.Header1' AS header WITH ; Caption = "Data factura", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdatafact.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 'grdTranzit.cdeclcdt.Header1' AS header WITH ; Caption = "Declaratia", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdeclcdt.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 'grdTranzit.cdest.Header1' AS header WITH ; Caption = "Destinatie", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdest.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 'grdTranzit.cDocument.Header1' AS header WITH ; Alignment = 2, ; Caption = "Document", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDocument.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cnrfact.Header1' AS header WITH ; Caption = "Numar factura", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cnrfact.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 'grdTranzit.cnumeconvoi.Header1' AS header WITH ; Caption = "Convoi", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cnumeconvoi.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 'grdTranzit.corig.Header1' AS header WITH ; Caption = "Plecare", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.corig.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 'grdTranzit.cSerieFact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Serie factura", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cSerieFact.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cTipFactura.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tip", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTipFactura.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValftva.Header1' AS header WITH ; Caption = "Valoare (fara TVA)", ; FontName = "Arial", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValftva.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 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.grdTranzit, ; Left = 432, ; Name = "Gridextra1", ; Top = 48 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> PROCEDURE Activate * ENDPROC PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.LockScreen=.F. This.grdTranzit.RecordSource='' poConvoaie.ca_baza1.cfiltru = m.lcFiltru poConvoaie.ca_baza1.afisare() SELECT crsConvoaie Go Top With This.grdTranzit .RecordSource='crsConvoaie' .cAles.ControlSource='crsConvoaie.ales' .cSerieFact.ControlSource='crsConvoaie.serie_act' .cnrfact.ControlSource='crsConvoaie.numar_act' .cdatafact.ControlSource='TTOD(crsConvoaie.data_act)' .cdeclcdt.ControlSource='crsConvoaie.declaratio' .cdatadecl.ControlSource='crsConvoaie.generation' .cDocument.ControlSource='crsConvoaie.document' .corig.ControlSource='crsConvoaie.origin' .cdest.ControlSource='crsConvoaie.destinatio' .cnumeconvoi.ControlSource="crsConvoaie.convoy_nam" .cvalftva.ControlSource="crsConvoaie.total_fara_tva" .cClient.ControlSource="crsConvoaie.client" .cContractClient.ControlSource="crsConvoaie.contract_client" .cBeneficiar.ControlSource="crsConvoaie.beneficiar" .cTipFactura.ControlSource="crsConvoaie.ctip_factura" Endwith This.grdTranzit.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_cauta LOCAL lcfiltru, lcval1, lcColoana, ldData1, ldData2 lcfiltru='' lcColoana = "declaratio" With This.cb_tx_cautare1 lcval1 = Strtran(Alltrim(Upper(.Text.Value)),['],['']) Do Case Case .criteriu.Value = "1" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ LIKE '] + lcval1 + [%'] Case .criteriu.Value = "2" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ ='] + lcval1 + ['] Case .criteriu.Value = "3" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ !='] + lcval1 + ['] Case .criteriu.Value = "4" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ LIKE '%] + lcval1 + [%'] Case .criteriu.Value = "5" And !Empty(.Text.Value) lcfiltru = Alltrim(Upper(lcColoana)) + [ NOT LIKE '%] + lcval1 + [%'] Case .criteriu.Value = "6" lcfiltru = [] Endcase Endwith * DACA FILTRUL NU CONTINE DATA_ACT, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA ldData1 = DATE(m.gnAn, m.gnLuna, 1) ldData2 = GOMONTH(m.ldData1,1) - 1 IF !(' DATA_ACT '$upper(THISFORM.filtru_pretty)) lcFiltru = m.lcFiltru + [ and data_act between to_date('] + DTOC(m.ldData1,1) + [', 'yyyymmdd') and to_date('] + DTOC(m.ldData2,1) + [', 'yyyymmdd')] ENDIF * Filtre buton cautare IF LEN(THISFORM.filtru_pretty)>0 lcFiltru = m.lcFiltru + " and (" + ALLTRIM(THISFORM.filtru_pretty) + ")" ENDIF If Empty(m.lcFiltru) aMessagebox("Alegeti un criteriu!",0+48,"Atentie") This.cb_tx_cautare1.criteriu.SetFocus() Return Endif IF !EMPTY(m.lcFiltru) AND LEFT(LOWER(ALLTRIM(m.lcFiltru)),3) = "and" lcFiltru = SUBSTR(ALLTRIM(m.lcFiltru),4) ENDIF IF !EMPTY(m.lcFiltru) THISFORM.actualizeaza_grid1(lcFiltru) ENDIF SELECT crsConvoaie Return m.lcFiltru ENDPROC PROCEDURE Init LPARAMETERS tnTip, tnMod * tnTIp: 0 = TRANZIT, 1 = CHEIAJ * tnMod: 0/1 = APELAT DIN FACTURA, 2 = VIZUALIZARE DIRECT DODEFAULT() this.nTip = m.tnTip this.cb_tx_cautare1.criteriu.Value = "2" && Este this.cb_tx_cautare1.text.SetFocus() this.WindowState = 2 this.gridextra1.setup() ENDPROC PROCEDURE Show LPARAMETERS nStyle DODEFAULT(nStyle) This.do_cauta() ENDPROC PROCEDURE But_start_criterii1.loadcriterii PARAMETERS tacriterii EXTERNAL ARRAY tacriterii #DEFINE crlf CHR(13)+CHR(10) lcStringCriterii="Serie factura\serie_act\T\none\"+ crlf + ; "Numar factura\numar_act\N\none\" + crlf + ; "Data factura\data_act\D\none\" + crlf + ; "Client\client\T\client_id\nom_parteneri"+ crlf + ; "Contract\contract_client\T\client_ctr_id\nom_contracte"+ crlf + ; "Beneficiar\beneficiar\T\beneficiar_id\nom_parteneri"+ crlf + ; "Tip factura\ctip_factura\T\none\"+ crlf + ; "Declaratia\declaratio\T\none\"+ crlf + ; "Data decl.\trunc(generation)\D\none\" + crlf + ; "Convoi\convoy_nam\T\none\"+ crlf + ; "Document\document\T\none\" DODEFAULT() ENDPROC PROCEDURE Cb_tx_cautare1.Text.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 THISFORM.DO_CAUTA() NODEFAULT ENDIF ENDPROC ENDDEFINE DEFINE CLASS frm_tranzit_nave 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="But_start_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatadecl.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatadecl.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnumeconvoi.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnumeconvoi.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdeclcdt.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdeclcdt.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.corig.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.corig.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdest.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdest.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnrfact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cnrfact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatafact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cdatafact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cClient.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cClient.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSerieFact.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSerieFact.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cBeneficiar.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cBeneficiar.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cRuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cRuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cContractClient.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cContractClient.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cArmator.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cArmator.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDataAvizare.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDataAvizare.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cIndicativ.cIndicativ" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cIndicativ.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cLBD.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cLBD.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTRN.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTRN.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cHP.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cHP.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCantTarif.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCantTarif.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTcap.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTcap.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTcapConv.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTcapConv.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cUM.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cUM.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCantMarfa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCantMarfa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cUmMarfa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cUmMarfa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cMarfa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cMarfa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cProcDist.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cProcDist.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cProcDiv.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cProcDiv.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistanta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistanta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistantaCDMN.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistantaCDMN.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistantaPAMN.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cDistantaPAMN.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigea.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigea.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigea._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavoda.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavoda.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavoda._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiu.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiu.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiu._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodari.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodari.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodari._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cVyeId.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cVyeId.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cVmsId.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cVmsId.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTarif.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTarif.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValftva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValftva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValTva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValTva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValcTva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValcTva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValval.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValval.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTvaVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTvaVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTotVal.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cTotVal.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValuta.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cValuta.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCurs.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCurs.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cGrupaMarfa.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cGrupaMarfa.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cIntern.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cIntern.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cIntern._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSas1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSas1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSas1._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSas2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSas2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSas2._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSasn.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSasn.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaSasn._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSas1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSas1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSas1._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSas2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSas2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSas2._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSasn.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSasn.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaSasn._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuC1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuC1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuC1._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuC2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuC2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuC2._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuCn.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuCn.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuCn._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodarC1.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodarC1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodarC1._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariC2.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariC2.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariC2._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariCn.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariCn.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariCn._checkbox1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigea1V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigea1V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigea2V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigea2V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaNV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaNV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavoda1V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavoda1V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavoda2V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavoda2V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaNV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaNV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiu1V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiu1V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiu2V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiu2V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuNV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuNV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodari1V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodari1V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodari2V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodari2V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariNV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariNV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalCDMN1V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalCDMN1V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalPAM1V.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalPAM1V.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalCDMNV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalCDMNV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalPAMV.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cSenalPAMV.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cRn.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cRn.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cPvalftva.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cPvalftva.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaData.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cAgigeaData.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaData.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cCernavodaData.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuData.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cOvidiuData.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariData.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavodariData.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavaCountry.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cNavaCountry.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cMarfaCountry.Header1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="grdTranzit.cMarfaCountry.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> * *p: ntip && 0=tranzit, 1=cheiaj * * BorderStyle = 3 DoCreate = .T. Height = 460 Name = "frm_tranzit_nave" ntip = 0 Width = 792 WindowState = 2 _shape1.Anchor = 10 _shape1.Height = 29 _shape1.Left = 0 _shape1.Name = "_shape1" _shape1.Top = 0 _shape1.Width = 793 _shape2.Left = 741 _shape2.Name = "_shape2" _shape2.Top = -1 Lb_titlu_alb_b121.Caption = "Registru tranzit" Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" BUT_TERMIN1.Anchor = 9 BUT_TERMIN1.Left = 761 BUT_TERMIN1.Name = "BUT_TERMIN1" BUT_TERMIN1.Top = 1 Gridsort1.Left = 780 Gridsort1.Name = "Gridsort1" Gridsort1.Top = 449 * ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; ccolwithlabel = cNumeConvoi, ; csourcegrid = thisform.grdTranzit, ; csumcolumns = cLBD,cTRN,cHP,cTCap,cCantTarif,cCantMarfa,cValftva,cValTva,cValcTva,cValVal,cTvaVal,cTotVal, ; Left = 12, ; Name = "_grdfooter1", ; Top = 420, ; Width = 771 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'But_excel1' AS but_excel WITH ; Anchor = 8, ; Left = 732, ; Name = "But_excel1", ; 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 = 672, ; Name = "But_reset_criterii1", ; Top = 1, ; Visible = .T. *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; Anchor = 9, ; Comment = "*:OnResize=RT", ; Left = 701, ; Name = "But_start_criterii1", ; Top = 1 *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grdTranzit' AS _grdbase WITH ; Anchor = 15, ; BackColor = 255,255,255, ; ColumnCount = 87, ; DeleteMark = .F., ; FontSize = 10, ; GridLineColor = 192,192,192, ; Height = 383, ; lcamptextneeditabil = .F., ; Left = 12, ; Name = "grdTranzit", ; Panel = 1, ; ReadOnly = .T., ; RecordSource = "crsConvoaie", ; RowHeight = 19, ; TabIndex = 5, ; Top = 36, ; Width = 771, ; Column1.BackColor = 255,255,255, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "crsConvoaie.generation", ; Column1.FontName = "Arial", ; Column1.FontSize = 10, ; Column1.Name = "cdatadecl", ; Column1.ReadOnly = .T., ; Column1.Width = 75, ; Column2.BackColor = 255,255,255, ; Column2.ColumnOrder = 1, ; Column2.ControlSource = "crsConvoaie.convoy_nam", ; Column2.FontName = "Arial", ; Column2.FontSize = 10, ; Column2.Name = "cnumeconvoi", ; Column2.ReadOnly = .T., ; Column2.Width = 144, ; Column3.BackColor = 255,255,255, ; Column3.ColumnOrder = 2, ; Column3.ControlSource = "crsConvoaie.declaratio", ; Column3.FontName = "Arial", ; Column3.FontSize = 10, ; Column3.Name = "cdeclcdt", ; Column3.ReadOnly = .T., ; Column3.Width = 68, ; Column4.BackColor = 255,255,255, ; Column4.ColumnOrder = 14, ; Column4.ControlSource = "crsConvoaie.origin", ; Column4.FontName = "Arial", ; Column4.FontSize = 10, ; Column4.Name = "corig", ; Column4.ReadOnly = .T., ; Column4.Width = 92, ; Column5.BackColor = 255,255,255, ; Column5.ColumnOrder = 15, ; Column5.ControlSource = "crsConvoaie.destinatio", ; Column5.FontName = "Arial", ; Column5.FontSize = 10, ; Column5.Name = "cdest", ; Column5.ReadOnly = .T., ; Column5.Width = 99, ; Column6.BackColor = 255,255,255, ; Column6.ColumnOrder = 6, ; Column6.ControlSource = "numar_act", ; Column6.FontName = "Arial", ; Column6.FontSize = 10, ; Column6.Name = "cnrfact", ; Column6.ReadOnly = .T., ; Column6.Width = 87, ; Column7.BackColor = 255,255,255, ; Column7.ColumnOrder = 7, ; Column7.ControlSource = "TTOD(data_act)", ; Column7.FontName = "Arial", ; Column7.FontSize = 10, ; Column7.Name = "cdatafact", ; Column7.ReadOnly = .T., ; Column7.Width = 85, ; Column8.BackColor = 255,255,255, ; Column8.ColumnOrder = 8, ; Column8.ControlSource = "client", ; Column8.FontName = "Arial", ; Column8.FontSize = 10, ; Column8.Name = "cClient", ; Column8.ReadOnly = .T., ; Column8.Width = 263, ; Column9.BackColor = 255,255,255, ; Column9.ColumnOrder = 5, ; Column9.ControlSource = "serie_act", ; Column9.FontSize = 10, ; Column9.Name = "cSerieFact", ; Column9.ReadOnly = .T., ; Column9.Width = 79, ; Column10.BackColor = 255,255,255, ; Column10.ColumnOrder = 10, ; Column10.ControlSource = "crsConvoaie.beneficiar", ; Column10.FontSize = 10, ; Column10.Name = "cBeneficiar", ; Column10.ReadOnly = .T., ; Column10.Width = 170, ; Column11.BackColor = 255,255,255, ; Column11.ColumnOrder = 13, ; Column11.ControlSource = "crsConvoaie.ruta", ; Column11.FontSize = 10, ; Column11.Name = "cRuta", ; Column11.ReadOnly = .T., ; Column12.BackColor = 255,255,255, ; Column12.ColumnOrder = 9, ; Column12.ControlSource = "crsConvoaie.contract_client", ; Column12.FontSize = 10, ; Column12.Name = "cContractClient", ; Column12.ReadOnly = .T., ; Column12.Width = 133, ; Column13.BackColor = 255,255,255, ; Column13.ColumnOrder = 11, ; Column13.ControlSource = "crsConvoaie.armator", ; Column13.FontSize = 10, ; Column13.Name = "cArmator", ; Column13.ReadOnly = .T., ; Column13.Width = 118, ; Column14.BackColor = 255,255,255, ; Column14.ColumnOrder = 4, ; Column14.ControlSource = "data_aviz", ; Column14.FontSize = 10, ; Column14.Name = "cDataAvizare", ; Column14.ReadOnly = .T., ; Column15.BackColor = 255,255,255, ; Column15.ColumnOrder = 12, ; Column15.ControlSource = "crsConvoaie.indicativ", ; Column15.FontSize = 10, ; Column15.Name = "cIndicativ", ; Column15.ReadOnly = .T., ; Column16.BackColor = 255,255,255, ; Column16.ColumnOrder = 17, ; Column16.ControlSource = "lbd", ; Column16.FontSize = 10, ; Column16.Format = "RK", ; Column16.InputMask = "999 999 999 999.99", ; Column16.Name = "cLBD", ; Column16.ReadOnly = .T., ; Column17.BackColor = 255,255,255, ; Column17.ColumnOrder = 18, ; Column17.ControlSource = "trn", ; Column17.FontSize = 10, ; Column17.Format = "RK", ; Column17.InputMask = "999 999 999 999.99", ; Column17.Name = "cTRN", ; Column17.ReadOnly = .T., ; Column18.BackColor = 255,255,255, ; Column18.ColumnOrder = 19, ; Column18.ControlSource = "hp", ; Column18.FontSize = 10, ; Column18.Format = "RK", ; Column18.InputMask = "999 999 999 999.99", ; Column18.Name = "cHP", ; Column18.ReadOnly = .T., ; Column19.BackColor = 255,255,255, ; Column19.ColumnOrder = 22, ; Column19.ControlSource = "cant", ; Column19.FontSize = 10, ; Column19.Format = "RK", ; Column19.InputMask = "999 999 999 999.99", ; Column19.Name = "cCantTarif", ; Column19.ReadOnly = .T., ; Column20.BackColor = 255,255,255, ; Column20.ColumnOrder = 20, ; Column20.ControlSource = "tcap", ; Column20.FontSize = 10, ; Column20.Format = "RK", ; Column20.InputMask = "999 999 999 999.99", ; Column20.Name = "cTcap", ; Column20.ReadOnly = .T., ; Column21.BackColor = 255,255,255, ; Column21.ColumnOrder = 21, ; Column21.ControlSource = "tcap_conv", ; Column21.FontSize = 10, ; Column21.Format = "RK", ; Column21.InputMask = "999 999 999 999.99", ; Column21.Name = "cTcapConv", ; Column21.ReadOnly = .T., ; Column22.BackColor = 255,255,255, ; Column22.ColumnOrder = 23, ; Column22.ControlSource = "um", ; Column22.FontSize = 10, ; Column22.Name = "cUM", ; Column22.ReadOnly = .T., ; Column23.BackColor = 255,255,255, ; Column23.ColumnOrder = 24, ; Column23.ControlSource = "cant_marfa", ; Column23.FontSize = 10, ; Column23.Format = "RK", ; Column23.InputMask = "999 999 999 999.99", ; Column23.Name = "cCantMarfa", ; Column23.ReadOnly = .T., ; Column23.Width = 88, ; Column24.BackColor = 255,255,255, ; Column24.ColumnOrder = 25, ; Column24.ControlSource = "um_marfa", ; Column24.FontSize = 10, ; Column24.Name = "cUmMarfa", ; Column24.ReadOnly = .T., ; Column25.BackColor = 255,255,255, ; Column25.ColumnOrder = 26, ; Column25.ControlSource = "marfa", ; Column25.FontSize = 10, ; Column25.Name = "cMarfa", ; Column25.ReadOnly = .T., ; Column25.Width = 126, ; Column26.BackColor = 255,255,255, ; Column26.ColumnOrder = 28, ; Column26.ControlSource = "procdist", ; Column26.FontSize = 10, ; Column26.Format = "RK", ; Column26.InputMask = "9.99", ; Column26.Name = "cProcDist", ; Column26.ReadOnly = .T., ; Column27.BackColor = 255,255,255, ; Column27.ColumnOrder = 29, ; Column27.ControlSource = "procdiv", ; Column27.FontSize = 10, ; Column27.Format = "RK", ; Column27.InputMask = "9.99", ; Column27.Name = "cProcDiv", ; Column27.ReadOnly = .T., ; Column28.BackColor = 255,255,255, ; Column28.ColumnOrder = 30, ; Column28.ControlSource = "distanta", ; Column28.FontSize = 10, ; Column28.Format = "RK", ; Column28.InputMask = "99.99", ; Column28.Name = "cDistanta", ; Column28.ReadOnly = .T., ; Column28.Width = 83, ; Column29.BackColor = 255,255,255, ; Column29.ColumnOrder = 31, ; Column29.ControlSource = "distanta_cdmn", ; Column29.FontSize = 10, ; Column29.Format = "RK", ; Column29.InputMask = "99.99", ; Column29.Name = "cDistantaCDMN", ; Column29.ReadOnly = .T., ; Column29.Width = 89, ; Column30.BackColor = 255,255,255, ; Column30.ColumnOrder = 32, ; Column30.ControlSource = "distanta_pamn", ; Column30.FontSize = 10, ; Column30.Format = "RK", ; Column30.InputMask = "99.99", ; Column30.Name = "cDistantaPAMN", ; Column30.ReadOnly = .T., ; Column30.Width = 86, ; Column31.BackColor = 255,255,255, ; Column31.ColumnOrder = 33, ; Column31.ControlSource = "agigea", ; Column31.CurrentControl = "_checkbox1", ; Column31.FontSize = 10, ; Column31.Name = "cAgigea", ; Column31.ReadOnly = .T., ; Column31.Sparse = .F., ; Column31.Width = 58, ; Column32.BackColor = 255,255,255, ; Column32.ColumnOrder = 34, ; Column32.ControlSource = "cernavoda", ; Column32.CurrentControl = "_checkbox1", ; Column32.FontSize = 10, ; Column32.Name = "cCernavoda", ; Column32.ReadOnly = .T., ; Column32.Sparse = .F., ; Column32.Width = 71, ; Column33.BackColor = 255,255,255, ; Column33.ColumnOrder = 35, ; Column33.ControlSource = "ovidiu", ; Column33.CurrentControl = "_checkbox1", ; Column33.FontSize = 10, ; Column33.Name = "cOvidiu", ; Column33.ReadOnly = .T., ; Column33.Sparse = .F., ; Column33.Width = 61, ; Column34.BackColor = 255,255,255, ; Column34.ColumnOrder = 36, ; Column34.ControlSource = "navodari", ; Column34.CurrentControl = "_checkbox1", ; Column34.FontSize = 10, ; Column34.Name = "cNavodari", ; Column34.ReadOnly = .T., ; Column34.Sparse = .F., ; Column34.Width = 63, ; Column35.BackColor = 255,255,255, ; Column35.ColumnOrder = 37, ; Column35.ControlSource = "vye_id", ; Column35.FontSize = 10, ; Column35.Name = "cVyeId", ; Column35.ReadOnly = .T., ; Column36.BackColor = 255,255,255, ; Column36.ColumnOrder = 38, ; Column36.ControlSource = "vms_id", ; Column36.FontSize = 10, ; Column36.Name = "cVmsId", ; Column36.ReadOnly = .T., ; Column36.Width = 92, ; Column37.BackColor = 255,255,255, ; Column37.ColumnOrder = 39, ; Column37.ControlSource = "tarif", ; Column37.FontSize = 10, ; Column37.Format = "RK", ; Column37.InputMask = (get_mask(14,4)), ; Column37.Name = "cTarif", ; Column37.ReadOnly = .T., ; Column38.BackColor = 255,255,255, ; Column38.ColumnOrder = 40, ; Column38.ControlSource = "valftva", ; Column38.FontSize = 10, ; Column38.Format = "RK", ; Column38.InputMask = (get_mask(14,gnPc)), ; Column38.Name = "cValftva", ; Column38.ReadOnly = .T., ; Column38.Width = 94, ; Column39.BackColor = 255,255,255, ; Column39.ColumnOrder = 41, ; Column39.ControlSource = "valtva", ; Column39.FontSize = 10, ; Column39.Format = "RK", ; Column39.InputMask = (get_mask(14,gnPc)), ; Column39.Name = "cValTva", ; Column39.ReadOnly = .T., ; Column39.Width = 99, ; Column40.BackColor = 255,255,255, ; Column40.ColumnOrder = 42, ; Column40.ControlSource = "valctva", ; Column40.FontSize = 10, ; Column40.Format = "RK", ; Column40.InputMask = (get_mask(14,gnPc)), ; Column40.Name = "cValcTva", ; Column40.ReadOnly = .T., ; Column40.Width = 104, ; Column41.BackColor = 255,255,255, ; Column41.ColumnOrder = 43, ; Column41.ControlSource = "valval", ; Column41.FontSize = 10, ; Column41.Format = "RK", ; Column41.InputMask = (get_mask(14,gnPc)), ; Column41.Name = "cValval", ; Column41.ReadOnly = .T., ; Column41.Width = 129, ; Column42.BackColor = 255,255,255, ; Column42.ColumnOrder = 44, ; Column42.ControlSource = "tvaval", ; Column42.FontSize = 10, ; Column42.Format = "RK", ; Column42.InputMask = (get_mask(14,gnPc)), ; Column42.Name = "cTvaVal", ; Column42.ReadOnly = .T., ; Column42.Width = 118, ; Column43.BackColor = 255,255,255, ; Column43.ColumnOrder = 45, ; Column43.ControlSource = "totval", ; Column43.FontSize = 10, ; Column43.Format = "RK", ; Column43.InputMask = (get_mask(14,gnPc)), ; Column43.Name = "cTotVal", ; Column43.ReadOnly = .T., ; Column43.Width = 121, ; Column44.BackColor = 255,255,255, ; Column44.ColumnOrder = 46, ; Column44.ControlSource = "valuta", ; Column44.FontSize = 10, ; Column44.Name = "cValuta", ; Column44.ReadOnly = .T., ; Column45.BackColor = 255,255,255, ; Column45.ColumnOrder = 47, ; Column45.ControlSource = "curs", ; Column45.FontSize = 10, ; Column45.Format = "RK", ; Column45.InputMask = (get_mask(14,gnPcurs)), ; Column45.Name = "cCurs", ; Column45.ReadOnly = .T., ; Column46.BackColor = 255,255,255, ; Column46.ColumnOrder = 27, ; Column46.ControlSource = "grupa_marfa", ; Column46.FontSize = 10, ; Column46.Name = "cGrupaMarfa", ; Column46.ReadOnly = .T., ; Column46.Width = 159, ; Column47.BackColor = 255,255,255, ; Column47.ColumnOrder = 16, ; Column47.ControlSource = "intern", ; Column47.CurrentControl = "_checkbox1", ; Column47.FontSize = 10, ; Column47.Name = "cIntern", ; Column47.ReadOnly = .T., ; Column47.Sparse = .F., ; Column47.Width = 38, ; Column48.BackColor = 255,255,255, ; Column48.ControlSource = "agigea_sas1", ; Column48.CurrentControl = "_checkbox1", ; Column48.FontSize = 10, ; Column48.Name = "cAgigeaSas1", ; Column48.ReadOnly = .T., ; Column48.Sparse = .F., ; Column49.BackColor = 255,255,255, ; Column49.ControlSource = "agigea_sas2", ; Column49.CurrentControl = "_checkbox1", ; Column49.FontSize = 10, ; Column49.Name = "cAgigeaSas2", ; Column49.ReadOnly = .T., ; Column49.Sparse = .F., ; Column50.BackColor = 255,255,255, ; Column50.ControlSource = "agigea_sasn", ; Column50.CurrentControl = "_checkbox1", ; Column50.FontSize = 10, ; Column50.Name = "cAgigeaSasn", ; Column50.ReadOnly = .T., ; Column50.Sparse = .F., ; Column51.BackColor = 255,255,255, ; Column51.ControlSource = "cernavoda_sas1", ; Column51.CurrentControl = "_checkbox1", ; Column51.FontSize = 10, ; Column51.Name = "cCernavodaSas1", ; Column51.ReadOnly = .T., ; Column51.Sparse = .F., ; Column51.Width = 97, ; Column52.BackColor = 255,255,255, ; Column52.ControlSource = "cernavoda_sas2", ; Column52.CurrentControl = "_checkbox1", ; Column52.FontSize = 10, ; Column52.Name = "cCernavodaSas2", ; Column52.ReadOnly = .T., ; Column52.Sparse = .F., ; Column52.Width = 97, ; Column53.BackColor = 255,255,255, ; Column53.ControlSource = "cernavoda_sasn", ; Column53.CurrentControl = "_checkbox1", ; Column53.FontSize = 10, ; Column53.Name = "cCernavodaSasn", ; Column53.ReadOnly = .T., ; Column53.Sparse = .F., ; Column53.Width = 97, ; Column54.BackColor = 255,255,255, ; Column54.ControlSource = "ovidiu_c1", ; Column54.CurrentControl = "_checkbox1", ; Column54.FontSize = 10, ; Column54.Name = "cOvidiuC1", ; Column54.ReadOnly = .T., ; Column54.Sparse = .F., ; Column55.BackColor = 255,255,255, ; Column55.ControlSource = "ovidiu_c2", ; Column55.CurrentControl = "_checkbox1", ; Column55.FontSize = 10, ; Column55.Name = "cOvidiuC2", ; Column55.ReadOnly = .T., ; Column55.Sparse = .F., ; Column56.BackColor = 255,255,255, ; Column56.ControlSource = "ovidiu_cn", ; Column56.CurrentControl = "_checkbox1", ; Column56.FontSize = 10, ; Column56.Name = "cOvidiuCn", ; Column56.ReadOnly = .T., ; Column56.Sparse = .F., ; Column57.BackColor = 255,255,255, ; Column57.ControlSource = "navodari_c1", ; Column57.CurrentControl = "_checkbox1", ; Column57.FontSize = 10, ; Column57.Name = "cNavodarC1", ; Column57.ReadOnly = .T., ; Column57.Sparse = .F., ; Column58.BackColor = 255,255,255, ; Column58.ControlSource = "navodari_c2", ; Column58.CurrentControl = "_checkbox1", ; Column58.FontSize = 10, ; Column58.Name = "cNavodariC2", ; Column58.ReadOnly = .T., ; Column58.Sparse = .F., ; Column59.BackColor = 255,255,255, ; Column59.ControlSource = "navodari_cn", ; Column59.CurrentControl = "_checkbox1", ; Column59.FontSize = 10, ; Column59.Name = "cNavodariCn", ; Column59.ReadOnly = .T., ; Column59.Sparse = .F., ; Column60.BackColor = 255,255,255, ; Column60.ControlSource = "agigea1_valoare", ; Column60.FontSize = 10, ; Column60.InputMask = (get_mask(20,gnPc)), ; Column60.Name = "cAgigea1V", ; Column60.ReadOnly = .T., ; Column60.Width = 120, ; Column61.BackColor = 255,255,255, ; Column61.ControlSource = "agigea2_valoare", ; Column61.FontSize = 10, ; Column61.InputMask = (get_mask(20,gnPc)), ; Column61.Name = "cAgigea2V", ; Column61.ReadOnly = .T., ; Column61.Width = 120, ; Column62.BackColor = 255,255,255, ; Column62.ControlSource = "agigean_valoare", ; Column62.FontSize = 10, ; Column62.InputMask = (get_mask(20,gnPc)), ; Column62.Name = "cAgigeaNV", ; Column62.ReadOnly = .T., ; Column62.Width = 122, ; Column63.BackColor = 255,255,255, ; Column63.ControlSource = "cernavoda1_valoare", ; Column63.FontSize = 10, ; Column63.InputMask = (get_mask(20,gnPc)), ; Column63.Name = "cCernavoda1V", ; Column63.ReadOnly = .T., ; Column63.Width = 142, ; Column64.BackColor = 255,255,255, ; Column64.ControlSource = "cernavoda2_valoare", ; Column64.FontSize = 10, ; Column64.InputMask = (get_mask(20,gnPc)), ; Column64.Name = "cCernavoda2V", ; Column64.ReadOnly = .T., ; Column64.Width = 142, ; Column65.BackColor = 255,255,255, ; Column65.ControlSource = "cernavodan_valoare", ; Column65.FontSize = 10, ; Column65.InputMask = (get_mask(20,gnPc)), ; Column65.Name = "cCernavodaNV", ; Column65.ReadOnly = .T., ; Column65.Width = 144, ; Column66.BackColor = 255,255,255, ; Column66.ControlSource = "ovidiu1_valoare", ; Column66.FontSize = 10, ; Column66.InputMask = (get_mask(20,gnPc)), ; Column66.Name = "cOvidiu1V", ; Column66.ReadOnly = .T., ; Column66.Width = 102, ; Column67.BackColor = 255,255,255, ; Column67.ControlSource = "ovidiu2_valoare", ; Column67.FontSize = 10, ; Column67.InputMask = (get_mask(20,gnPc)), ; Column67.Name = "cOvidiu2V", ; Column67.ReadOnly = .T., ; Column67.Width = 102, ; Column68.BackColor = 255,255,255, ; Column68.ControlSource = "ovidiun_valoare", ; Column68.FontSize = 10, ; Column68.InputMask = (get_mask(20,gnPc)), ; Column68.Name = "cOvidiuNV", ; Column68.ReadOnly = .T., ; Column68.Width = 104, ; Column69.BackColor = 255,255,255, ; Column69.ControlSource = "navodari1_valoare", ; Column69.FontSize = 10, ; Column69.InputMask = (get_mask(20,gnPc)), ; Column69.Name = "cNavodari1V", ; Column69.ReadOnly = .T., ; Column69.Width = 117, ; Column70.BackColor = 255,255,255, ; Column70.ControlSource = "navodari2_valoare", ; Column70.FontSize = 10, ; Column70.InputMask = (get_mask(20,gnPc)), ; Column70.Name = "cNavodari2V", ; Column70.ReadOnly = .T., ; Column70.Width = 117, ; Column71.BackColor = 255,255,255, ; Column71.ControlSource = "navodarin_valoare", ; Column71.FontSize = 10, ; Column71.InputMask = (get_mask(20,gnPc)), ; Column71.Name = "cNavodariNV", ; Column71.ReadOnly = .T., ; Column71.Width = 119, ; Column72.BackColor = 255,255,255, ; Column72.ControlSource = "senal_cdmn1_valoare", ; Column72.FontSize = 10, ; Column72.InputMask = (get_mask(20,gnPc)), ; Column72.Name = "cSenalCDMN1V", ; Column72.ReadOnly = .T., ; Column72.Width = 139, ; Column73.BackColor = 255,255,255, ; Column73.ControlSource = "senal_pam1_valoare", ; Column73.FontSize = 10, ; Column73.InputMask = (get_mask(20,gnPc)), ; Column73.Name = "cSenalPAM1V", ; Column73.ReadOnly = .T., ; Column73.Width = 118, ; Column74.BackColor = 255,255,255, ; Column74.ControlSource = "agigea_valoare", ; Column74.FontSize = 10, ; Column74.InputMask = (get_mask(20,gnPc)), ; Column74.Name = "cAgigeaV", ; Column74.ReadOnly = .T., ; Column74.Width = 87, ; Column75.BackColor = 255,255,255, ; Column75.ControlSource = "cernavoda_valoare", ; Column75.FontSize = 10, ; Column75.InputMask = (get_mask(20,gnPc)), ; Column75.Name = "cCernavodaV", ; Column75.ReadOnly = .T., ; Column75.Width = 109, ; Column76.BackColor = 255,255,255, ; Column76.ControlSource = "ovidiu_valoare", ; Column76.FontSize = 10, ; Column76.InputMask = (get_mask(20,gnPc)), ; Column76.Name = "cOvidiuV", ; Column76.ReadOnly = .T., ; Column76.Width = 83, ; Column77.BackColor = 255,255,255, ; Column77.ControlSource = "navodari_valoare", ; Column77.FontSize = 10, ; Column77.InputMask = (get_mask(20,gnPc)), ; Column77.Name = "cNavodariV", ; Column77.ReadOnly = .T., ; Column77.Width = 98, ; Column78.BackColor = 255,255,255, ; Column78.ControlSource = "senal_cdmn_valoare", ; Column78.FontSize = 10, ; Column78.InputMask = (get_mask(20,gnPc)), ; Column78.Name = "cSenalCDMNV", ; Column78.ReadOnly = .T., ; Column78.Width = 120, ; Column79.BackColor = 255,255,255, ; Column79.ControlSource = "senal_pam_valoare", ; Column79.FontSize = 10, ; Column79.InputMask = (get_mask(20,gnPc)), ; Column79.Name = "cSenalPAMV", ; Column79.ReadOnly = .T., ; Column79.Width = 108, ; Column80.BackColor = 255,255,255, ; Column80.ControlSource = "rn", ; Column80.FontSize = 10, ; Column80.InputMask = "999", ; Column80.Name = "cRn", ; Column80.ReadOnly = .T., ; Column80.Width = 49, ; Column81.BackColor = 255,255,255, ; Column81.ControlSource = "pvalftva", ; Column81.FontSize = 10, ; Column81.InputMask = "9.9999", ; Column81.Name = "cPvalftva", ; Column81.ReadOnly = .T., ; Column81.Width = 118, ; Column82.BackColor = 255,255,255, ; Column82.ControlSource = "agigea_data", ; Column82.FontSize = 10, ; Column82.Name = "cAgigeaData", ; Column82.ReadOnly = .T., ; Column82.Width = 121, ; Column83.BackColor = 255,255,255, ; Column83.ControlSource = "cernavoda_data", ; Column83.FontSize = 10, ; Column83.Name = "cCernavodaData", ; Column83.ReadOnly = .T., ; Column83.Width = 118, ; Column84.BackColor = 255,255,255, ; Column84.ColumnOrder = 84, ; Column84.ControlSource = "ovidiu_data", ; Column84.FontSize = 10, ; Column84.Name = "cOvidiuData", ; Column84.ReadOnly = .T., ; Column84.Width = 116, ; Column85.BackColor = 255,255,255, ; Column85.ColumnOrder = 85, ; Column85.ControlSource = "navodari_data", ; Column85.FontSize = 10, ; Column85.Name = "cNavodariData", ; Column85.ReadOnly = .T., ; Column85.Width = 120, ; Column86.BackColor = 255,255,255, ; Column86.ControlSource = "nava_country", ; Column86.FontSize = 10, ; Column86.Name = "cNavaCountry", ; Column86.ReadOnly = .T., ; Column86.Width = 113, ; Column87.BackColor = 255,255,255, ; Column87.ControlSource = "marfa_country", ; Column87.FontSize = 10, ; Column87.Name = "cMarfaCountry", ; Column87.ReadOnly = .T., ; Column87.Width = 129 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> ADD OBJECT 'grdTranzit.cAgigea._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 64, ; Name = "_checkbox1", ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cAgigea.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigea.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cAgigea1V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea SAS1 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigea1V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cAgigea2V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea SAS2 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigea2V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cAgigeaData.Header1' AS header WITH ; Alignment = 2, ; Caption = "AG data", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigeaData.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cAgigeaNV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea SASN Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigeaNV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cAgigeaSas1._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 39, ; Name = "_checkbox1", ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cAgigeaSas1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea SAS1", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigeaSas1.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 'grdTranzit.cAgigeaSas2._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 59, ; Name = "_checkbox1", ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cAgigeaSas2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea SAS2", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigeaSas2.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 'grdTranzit.cAgigeaSasn._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 43, ; Name = "_checkbox1", ; Top = 83 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cAgigeaSasn.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea SASn", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigeaSasn.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 'grdTranzit.cAgigeaV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Agigea Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cAgigeaV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cArmator.Header1' AS header WITH ; Alignment = 2, ; Caption = "Armator", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cArmator.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cBeneficiar.Header1' AS header WITH ; Alignment = 2, ; BackColor = 240,240,240, ; Caption = "Beneficiar", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cBeneficiar.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCantMarfa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate marfa", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCantMarfa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCantTarif.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cantitate tarif", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCantTarif.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCernavoda._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 36, ; Name = "_checkbox1", ; Top = 71 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cCernavoda.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavoda.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCernavoda1V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda SAS1 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavoda1V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCernavoda2V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda SAS2 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavoda2V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCernavodaData.Header1' AS header WITH ; Alignment = 2, ; Caption = "CV data", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavodaData.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCernavodaNV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda SASN Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavodaNV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCernavodaSas1._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 75, ; Name = "_checkbox1", ; Top = 71 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cCernavodaSas1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda SAS1", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavodaSas1.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 'grdTranzit.cCernavodaSas2._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 61, ; Name = "_checkbox1", ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cCernavodaSas2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda SAS2", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavodaSas2.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 'grdTranzit.cCernavodaSasn._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 23, ; Name = "_checkbox1", ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cCernavodaSasn.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda SASn", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavodaSasn.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 'grdTranzit.cCernavodaV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cernavoda Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCernavodaV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cClient.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cClient.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cContractClient.Header1' AS header WITH ; Alignment = 2, ; Caption = "Contract", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cContractClient.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cCurs.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cCurs.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cDataAvizare.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data avizare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDataAvizare.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cdatadecl.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data decl.", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdatadecl.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cdatafact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data factura", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdatafact.Text1' AS textbox WITH ; Alignment = 3, ; BackColor = 255,255,255, ; 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 'grdTranzit.cdeclcdt.Header1' AS header WITH ; Alignment = 2, ; Caption = "Declaratia", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdeclcdt.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cdest.Header1' AS header WITH ; Caption = "Destinatie", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cdest.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cDistanta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Distanta totala", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDistanta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cDistantaCDMN.Header1' AS header WITH ; Alignment = 2, ; Caption = "Distanta CDMN", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDistantaCDMN.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cDistantaPAMN.Header1' AS header WITH ; Alignment = 2, ; Caption = "Distanta PAMN", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cDistantaPAMN.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cGrupaMarfa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Grupa marfa", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cGrupaMarfa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cHP.Header1' AS header WITH ; Alignment = 2, ; Caption = "HP", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cHP.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cIndicativ.cIndicativ' AS header WITH ; Alignment = 2, ; Caption = "Indicativ", ; FontSize = 10, ; Name = "cIndicativ" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cIndicativ.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cIntern._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 21, ; Name = "_checkbox1", ; Top = 71 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cIntern.Header1' AS header WITH ; Alignment = 2, ; Caption = "Intern", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cIntern.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cLBD.Header1' AS header WITH ; Alignment = 2, ; Caption = "LBD", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cLBD.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cMarfa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Marfa", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cMarfa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cMarfaCountry.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pavilion marfa", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cMarfaCountry.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cNavaCountry.Header1' AS header WITH ; Alignment = 2, ; Caption = "Pavilion nava", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavaCountry.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cNavodarC1._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 29, ; Name = "_checkbox1", ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cNavodarC1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Navodari C1", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodarC1.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 'grdTranzit.cNavodari._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 52, ; Name = "_checkbox1", ; Top = 71 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cNavodari.Header1' AS header WITH ; Alignment = 2, ; Caption = "Navodari", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodari.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cNavodari1V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Navodari C1 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodari1V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cNavodari2V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Navodari C2 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodari2V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cNavodariC2._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 25, ; Name = "_checkbox1", ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cNavodariC2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Navodari C2", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodariC2.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 'grdTranzit.cNavodariCn._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 33, ; Name = "_checkbox1", ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cNavodariCn.Header1' AS header WITH ; Alignment = 2, ; Caption = "Navodari Cn", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodariCn.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 'grdTranzit.cNavodariData.Header1' AS header WITH ; Alignment = 2, ; Caption = "NV data", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodariData.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cNavodariNV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Navodari CN Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodariNV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cNavodariV.Header1' AS header WITH ; Caption = "Navodari Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cNavodariV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cnrfact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Numar factura", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cnrfact.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cnumeconvoi.Header1' AS header WITH ; Alignment = 2, ; Caption = "Convoi", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cnumeconvoi.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.corig.Header1' AS header WITH ; Alignment = 2, ; Caption = "Plecare", ; FontName = "Arial", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.corig.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 = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cOvidiu._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 56, ; Name = "_checkbox1", ; Top = 59 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cOvidiu.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiu.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cOvidiu1V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu C1 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiu1V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cOvidiu2V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu C2 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiu2V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cOvidiuC1._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 53, ; Name = "_checkbox1", ; Top = 35 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cOvidiuC1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu C1", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiuC1.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 'grdTranzit.cOvidiuC2._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 37, ; Name = "_checkbox1", ; Top = 35 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cOvidiuC2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu C2", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiuC2.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 'grdTranzit.cOvidiuCn._checkbox1' AS _checkbox WITH ; Alignment = 2, ; Caption = "", ; FontSize = 10, ; Left = 33, ; Name = "_checkbox1", ; Top = 47 *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grdTranzit.cOvidiuCn.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu Cn", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiuCn.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 'grdTranzit.cOvidiuData.Header1' AS header WITH ; Alignment = 2, ; Caption = "OV data", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiuData.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cOvidiuNV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu CN Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiuNV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cOvidiuV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ovidiu Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cOvidiuV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cProcDist.Header1' AS header WITH ; Alignment = 2, ; Caption = "Proc. distanta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cProcDist.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cProcDiv.Header1' AS header WITH ; Alignment = 2, ; Caption = "Proc. diverse", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cProcDiv.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cPvalftva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Procent valoare nava", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cPvalftva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cRn.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. nava", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cRn.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cRuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Ruta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cRuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cSenalCDMN1V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Senal CDMN 1 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cSenalCDMN1V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cSenalCDMNV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Senal CDMN Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cSenalCDMNV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cSenalPAM1V.Header1' AS header WITH ; Alignment = 2, ; Caption = "Senal PAM 1 Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cSenalPAM1V.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cSenalPAMV.Header1' AS header WITH ; Alignment = 2, ; Caption = "Senal PAM Valoare", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cSenalPAMV.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cSerieFact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Serie factura", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cSerieFact.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cTarif.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tarif", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTarif.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cTcap.Header1' AS header WITH ; Alignment = 2, ; Caption = "TCAP", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTcap.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cTcapConv.Header1' AS header WITH ; Alignment = 2, ; Caption = "Tcap convoi", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTcapConv.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cTotVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta cu TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTotVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cTRN.Header1' AS header WITH ; Alignment = 2, ; Caption = "TRN", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTRN.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cTvaVal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cTvaVal.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cUM.Header1' AS header WITH ; Alignment = 2, ; Caption = "UM tarif", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cUM.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cUmMarfa.Header1' AS header WITH ; Alignment = 2, ; Caption = "UM marfa", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cUmMarfa.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValcTva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare cu TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValcTva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValftva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare fara TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValftva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValTva.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValTva.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValuta.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valuta", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValuta.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cValval.Header1' AS header WITH ; Alignment = 2, ; Caption = "Valoare valuta fara TVA", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cValval.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cVmsId.Header1' AS header WITH ; Alignment = 2, ; Caption = "Id membru voiaj", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cVmsId.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'grdTranzit.cVyeId.Header1' AS header WITH ; Alignment = 2, ; Caption = "Id Voiaj", ; FontSize = 10, ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grdTranzit.cVyeId.Text1' AS textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; FontSize = 10, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T., ; SelectedBackColor = 100,185,255 *< END OBJECT: BaseClass="textbox" /> ADD OBJECT 'Gridextra1' AS gridextra WITH ; gridexpression = Thisform.grdTranzit, ; Left = 780, ; Name = "Gridextra1", ; Top = 180 *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> PROCEDURE Activate * ENDPROC PROCEDURE actualizeaza_grid1 LPARAMETERS tcFiltru LOCAL lcFiltru lcFiltru = IIF(!EMPTY(m.tcFiltru), m.tcFiltru, "") Thisform.LockScreen=.F. save_grid_tag(This.grdTranzit) poConvoaie.ca_baza1.cfiltru = m.lcFiltru poConvoaie.ca_baza1.afisare() SELECT crsConvoaie Go Top restore_grid_tag(This.grdTranzit) SET STEP ON This.grdTranzit.Refresh Thisform.LockScreen=.F. ENDPROC PROCEDURE do_cauta LOCAL lcfiltru, lcval1, lcColoana, ldData1, ldData2 lcfiltru='' * DACA FILTRUL NU CONTINE DATA_ACT, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA ldData1 = DATE(m.gnAn, m.gnLuna, 1) ldData2 = GOMONTH(m.ldData1,1) - 1 IF !(' DATA_ACT '$upper(THISFORM.filtru_pretty)) lcFiltru = m.lcFiltru + [ and data_act between to_date('] + DTOC(m.ldData1,1) + [', 'yyyymmdd') and to_date('] + DTOC(m.ldData2,1) + [', 'yyyymmdd')] ENDIF * Filtre buton cautare IF LEN(THISFORM.filtru_pretty)>0 lcFiltru = m.lcFiltru + " and (" + ALLTRIM(THISFORM.filtru_pretty) + ")" ENDIF If Empty(m.lcFiltru) aMessagebox("Alegeti un criteriu!",0+48,"Atentie") This.cb_tx_cautare1.criteriu.SetFocus() Return Endif IF !EMPTY(m.lcFiltru) AND LEFT(LOWER(ALLTRIM(m.lcFiltru)),3) = "and" lcFiltru = SUBSTR(ALLTRIM(m.lcFiltru),4) ENDIF IF !EMPTY(m.lcFiltru) THISFORM.actualizeaza_grid1(lcFiltru) this._grdfooter1.Calctotal() ENDIF SELECT crsConvoaie Return m.lcFiltru ENDPROC PROCEDURE do_excel Local lnOptiune lnOptiune = xmenu('1. Registru;2. Client-marfa-indicatori-valoare') IF EMPTY(m.lnOptiune) RETURN ENDIF DO CASE CASE m.lnOptiune = 1 goExport.export2xlsxGrid(thisform.grdTranzit, "registru-tranzit-detaliat", "", "data_act, numar_act, indicativ") CASE m.lnOptiune = 2 SELECT client, marfa_country as pavilion_marfa, grupa_marfa, marfa, ; SUM(cant_marfa) as cant_marfa, ; SUM(tcap) as tcap, ; SUM(trn) as trn, ; SUM(lbd) as lbd, ; SUM(hp) as hp, ; SUM(valftva) as valoare_fara_tva ; FROM crsConvoaie ; GROUP BY 1,2,3,4 ; ORDER BY 1,2,3,4 ; INTO CURSOR cRaportTemp goExport.export2xlsx('cRaportTemp', 'Registru-tranzit') USE IN (SELECT('cRaportTemp')) ENDCASE ENDPROC PROCEDURE Show LPARAMETERS nStyle DODEFAULT(nStyle) this.WindowState = 2 this.gridextra1.setup() THIS._grdfooter1.attachtogrid(This.grdTranzit) This.do_cauta() ENDPROC PROCEDURE But_start_criterii1.loadcriterii PARAMETERS tacriterii EXTERNAL ARRAY tacriterii #DEFINE crlf CHR(13)+CHR(10) lcStringCriterii="Serie factura\serie_act\T\none\"+ crlf + ; "Numar factura\numar_act\N\none\" + crlf + ; "Data factura\data_act\D\none\" + crlf + ; "Client\client\T\client_id\nom_parteneri"+ crlf + ; "Contract\contract_client\T\client_ctr_id\nom_contracte"+ crlf + ; "Beneficiar\beneficiar\T\beneficiar_id\nom_parteneri"+ crlf + ; "Armator\armator\T\none\"+ crlf + ; "Declaratia\declaratio\T\none\"+ crlf + ; "Data decl.\trunc(generation)\D\none\" + crlf + ; "Convoi\convoy_nam\T\none\"+ crlf + ; "Indicativ\indicativ\T\none\"+ crlf + ; "Ruta\indicativ\T\none\"+ crlf + ; "Plecare\indicativ\T\none\"+ crlf + ; "Destinatie\indicativ\T\none\"+ crlf + ; "Marfa\indicativ\T\none\"+ crlf + ; "AG ecl.\nofiled\E\(agigea=1)\" + crlf + ; "AG data\trunc(agigea_data)\D\none\" + crlf + ; "AG Sas1\nofiled\E\(agigea_sas1=1)\" + crlf + ; "AG Sas2\nofiled\E\(agigea_sas2=1)\" + crlf + ; "AG Sasn\nofiled\E\(agigea_sasn=1)\" + crlf + ; "CV ecl.\nofiled\E\(cernavoda=1)\" + crlf + ; "CV data\trunc(cernavoda_data)\D\none\" + crlf + ; "CV Sas1\nofiled\E\(cernavoda_sas1=1)\" + crlf + ; "CV Sas2\nofiled\E\(cernavoda_sas2=1)\" + crlf + ; "CV Sasn\nofiled\E\(cernavoda_sasn=1)\" + crlf + ; "OV Ecl.\nofiled\E\(ovidiu=1)\" + crlf + ; "OV data\trunc(ovidiu_data)\D\none\" + crlf + ; "OV Cam1\nofiled\E\(ovidiu_c1=1)\" + crlf + ; "OV Cam2\nofiled\E\(ovidiu_c2=1)\" + crlf + ; "OV Camn\nofiled\E\(ovidiu_cn=1)\" + crlf + ; "NV ecl.\nofiled\E\(navodari=1)\" + crlf + ; "NV data\trunc(navodari_data)\D\none\" + crlf + ; "NV Cam1\nofiled\E\(navodari_c1=1)\" + crlf + ; "NV Cam2\nofiled\E\(navodari_c2=1)\" + crlf + ; "NV Camn\nofiled\E\(navodari_cn=1)\" DODEFAULT() ENDPROC ENDDEFINE