18427 lines
573 KiB
Plaintext
18427 lines
573 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="nidclient" display="nIdClient"/>
|
|
<memberdata name="nidbeneficiar" display="nIdBeneficiar"/>
|
|
<memberdata name="neagent" display="nEAgent"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="nidcontractclient" display="nIdContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="ncapacitateclient" display="nCapacitateClient"/>
|
|
<memberdata name="ncapacitatetotal" display="nCapacitateTotal"/>
|
|
<memberdata name="ntiprecap" display="nTipRecap"/>
|
|
<memberdata name="nidlocatia" display="nIdLocatia"/>
|
|
<memberdata name="cdocument" display="cDocument"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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. \<Calculare tarife", ;
|
|
Enabled = .F., ;
|
|
Left = 632, ;
|
|
Name = "cmdCalcul", ;
|
|
TabIndex = 4, ;
|
|
Top = 64, ;
|
|
Width = 135
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'cmdPrestatii' AS cmd_executa WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .T., ;
|
|
caction = do_genereaza_prestatii, ;
|
|
Caption = "1. \<Generare prestatii", ;
|
|
Left = 476, ;
|
|
Name = "cmdPrestatii", ;
|
|
TabIndex = 3, ;
|
|
Top = 64, ;
|
|
Width = 152
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="nidclient" display="nIdClient"/>
|
|
<memberdata name="nidbeneficiar" display="nIdBeneficiar"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="nidcontractclient" display="nIdContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="nvalval" display="nValVal"/>
|
|
<memberdata name="calculeazapreturirand" display="CalculeazaPreturiRand"/>
|
|
<memberdata name="calculeazapreturi" display="CalculeazaPreturi"/>
|
|
<memberdata name="calculeazatotaluri" display="CalculeazaTotaluri"/>
|
|
<memberdata name="npret" display="nPret"/>
|
|
<memberdata name="ncantitate" display="nCantitate"/>
|
|
<memberdata name="nvaloare" display="nValoare"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="nidclient" display="nIdClient"/>
|
|
<memberdata name="nidbeneficiar" display="nIdBeneficiar"/>
|
|
<memberdata name="neagent" display="nEAgent"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="nidcontractclient" display="nIdContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="ncapacitateclient" display="nCapacitateClient"/>
|
|
<memberdata name="ncapacitatetotal" display="nCapacitateTotal"/>
|
|
<memberdata name="ntiprecap" display="nTipRecap"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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 = "\<Calculare tarife", ;
|
|
Height = 29, ;
|
|
Left = 648, ;
|
|
Name = "cmdTarife", ;
|
|
TabIndex = 7, ;
|
|
Top = 61, ;
|
|
Width = 120
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
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 = <<m.lnClientCtrId>>
|
|
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 = <<m.lnClientCtrId2>>
|
|
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 <crsVasEchivalent>." + 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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: ntip && 0=tranzit, 1=cheiaj
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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
|
|
*</PropValue>
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: do_adauga_articol
|
|
*m: do_cauta_partener
|
|
*m: do_executa2
|
|
*m: do_modifica_articol
|
|
*m: do_sterge_articol
|
|
*m: getcontracteclient
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
bvizualizare = .T.
|
|
DoCreate = .T.
|
|
Height = 401
|
|
Name = "frm_configurare_articole_conturi"
|
|
Width = 779
|
|
WindowState = 2
|
|
_memberdata = <VFPData>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="nidclient" display="nIdClient"/>
|
|
<memberdata name="nidbeneficiar" display="nIdBeneficiar"/>
|
|
<memberdata name="neagent" display="nEAgent"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="nidcontractclient" display="nIdContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="ncapacitateclient" display="nCapacitateClient"/>
|
|
<memberdata name="ncapacitatetotal" display="nCapacitateTotal"/>
|
|
<memberdata name="nvalval" display="nValVal"/>
|
|
<memberdata name="nvalftva" display="nValFtva"/>
|
|
<memberdata name="nvaltva" display="nValTVA"/>
|
|
<memberdata name="nvalctva" display="nValcTVA"/>
|
|
<memberdata name="nnrfact" display="nNrFact"/>
|
|
<memberdata name="ddatafact" display="dDataFact"/>
|
|
<memberdata name="ddatascad" display="dDataScad"/>
|
|
<memberdata name="ddatacurs" display="dDataCurs"/>
|
|
<memberdata name="citestecursuri" display="CitesteCursuri"/>
|
|
<memberdata name="refreshdate" display="RefreshDate"/>
|
|
<memberdata name="nnrzilescadenta" display="nNrZileScadenta"/>
|
|
<memberdata name="ntipcurs" display="nTipCurs"/>
|
|
<memberdata name="calculeazapreturi" display="CalculeazaPreturi"/>
|
|
<memberdata name="completeazacapfactura" display="CompleteazaCapFactura"/>
|
|
<memberdata name="initfactura" display="InitFactura"/>
|
|
<memberdata name="lfacturasalvata" display="lFacturaSalvata"/>
|
|
<memberdata name="lfacturasalvata_assign" display="lFacturaSalvata_Assign"/>
|
|
<memberdata name="lnumargenerat" display="lNumarGenerat"/>
|
|
<memberdata name="lnumaractgenerat" display="lNumarActGenerat"/>
|
|
<memberdata name="calculeazapreturirand" display="CalculeazaPreturiRand"/>
|
|
<memberdata name="ncurseur" display="nCursEUR"/>
|
|
<memberdata name="nidjtvacoloanaex" display="nIdJtvaColoanaEx"/>
|
|
<memberdata name="calculeazatotaluri" display="CalculeazaTotaluri"/>
|
|
<memberdata name="npret" display="nPret"/>
|
|
<memberdata name="npretval" display="nPretVal"/>
|
|
<memberdata name="ncantitate" display="nCantitate"/>
|
|
<memberdata name="ncurs" display="nCurs"/>
|
|
<memberdata name="nidvaluta" display="nIdValuta"/>
|
|
<memberdata name="activeazasalvare" display="ActiveazaSalvare"/>
|
|
<memberdata name="refreshdatascadenta" display="RefreshDataScadenta"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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 = "\<Import Roris & Contracte", ;
|
|
Height = 29, ;
|
|
Left = 597, ;
|
|
Name = "cmdImport", ;
|
|
TabIndex = 13, ;
|
|
Top = 65, ;
|
|
Width = 169
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
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_partener("-1", "Alege partener")
|
|
loCauta = caut_client_contract_activ()
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="levaluare" type="property" display="lEvaluare"/>
|
|
<memberdata name="ddatareferinta" type="property" display="dDataReferinta"/>
|
|
<memberdata name="nidcontractclient" display="nIdContractClient"/>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="nidclient" display="nIdClient"/>
|
|
<memberdata name="nidbeneficiar" display="nIdBeneficiar"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="neagent" display="nEAgent"/>
|
|
<memberdata name="ninter" display="nInter"/>
|
|
<memberdata name="nintern" display="nIntern"/>
|
|
<memberdata name="salveazapenalitati" display="SalveazaPenalitati"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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. \<Calculare", ;
|
|
Height = 27, ;
|
|
Left = 660, ;
|
|
Name = "cmdCalcul", ;
|
|
Top = 41, ;
|
|
Width = 119, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'cmdFactura' AS cmd_executa WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .F., ;
|
|
caction = do_factura, ;
|
|
Caption = "2. \<Factura", ;
|
|
Enabled = .F., ;
|
|
Height = 27, ;
|
|
Left = 660, ;
|
|
Name = "cmdFactura", ;
|
|
Top = 69, ;
|
|
Width = 120, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="nvalval" display="nValVal"/>
|
|
<memberdata name="nvalftva" display="nValFtva"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="nvalval" display="nValVal"/>
|
|
<memberdata name="nvalftva" display="nValFtva"/>
|
|
<memberdata name="nrecno" display="nRecno"/>
|
|
<memberdata name="lmodificat" display="lModificat"/>
|
|
<memberdata name="lmodificat_assign" display="lModificat_Assign"/>
|
|
<memberdata name="nreno" display="nReno"/>
|
|
<memberdata name="ddatai" display="dDataI"/>
|
|
<memberdata name="ddataf" display="dDataF"/>
|
|
<memberdata name="nraportid" display="nRaportId"/>
|
|
<memberdata name="nidcontractclient" display="nIdContractClient"/>
|
|
<memberdata name="nidclient" display="nIdClient"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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()
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="nvalval" display="nValVal"/>
|
|
<memberdata name="nvalftva" display="nValFtva"/>
|
|
<memberdata name="nrecno" display="nRecno"/>
|
|
<memberdata name="lmodificat" display="lModificat"/>
|
|
<memberdata name="lmodificat_assign" display="lModificat_Assign"/>
|
|
<memberdata name="nreno" display="nReno"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="nvalval" display="nValVal"/>
|
|
<memberdata name="nvalftva" display="nValFtva"/>
|
|
<memberdata name="nrecno" display="nRecno"/>
|
|
<memberdata name="lmodificat" display="lModificat"/>
|
|
<memberdata name="lmodificat_assign" display="lModificat_Assign"/>
|
|
<memberdata name="nreno" display="nReno"/>
|
|
<memberdata name="calculeazapreturirand" display="CalculeazaPreturiRand"/>
|
|
<memberdata name="npretunitar" display="nPretUnitar"/>
|
|
<memberdata name="ncant" display="nCant"/>
|
|
<memberdata name="npretcutva" display="nPretCuTva"/>
|
|
<memberdata name="nproctvav" display="nProcTvav"/>
|
|
<memberdata name="nvaloare" display="nValoare"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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 = "\<Actualizare cota TVA", ;
|
|
Height = 27, ;
|
|
Left = 503, ;
|
|
Name = "Cmd_executa1", ;
|
|
Top = 56, ;
|
|
Width = 144
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*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
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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 = <VFPData>
|
|
<memberdata name="cdenumireclient" display="cDenumireClient"/>
|
|
<memberdata name="cdenumirebeneficiar" display="cDenumireBeneficiar"/>
|
|
<memberdata name="ccontractclient" display="cContractClient"/>
|
|
<memberdata name="getcontracteclient" display="GetContracteClient"/>
|
|
<memberdata name="nvalval" display="nValVal"/>
|
|
<memberdata name="nvalftva" display="nValFtva"/>
|
|
<memberdata name="nrecno" display="nRecno"/>
|
|
<memberdata name="lmodificat" display="lModificat"/>
|
|
<memberdata name="lmodificat_assign" display="lModificat_Assign"/>
|
|
<memberdata name="nreno" display="nReno"/>
|
|
</VFPData>
|
|
_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
|
|
*</PropValue>
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: ntip && 0=tranzit, 1=cheiaj
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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
|
|
*</PropValue>
|
|
|
|
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 = "\<Calculare Tarife", ;
|
|
Left = 656, ;
|
|
Name = "cmdCalculeaza", ;
|
|
Top = 52
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
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 (<<m.lcVyeIds>>) 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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: ntip && 0=tranzit, 1=cheiaj
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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
|
|
*</PropValue>
|
|
|
|
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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: ntip && 0=tranzit, 1=cheiaj
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
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
|
|
*</PropValue>
|
|
|
|
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
|