Marius Mutu
9f5ffd87d5
La alegerea clientului pe rapoartele de venituri (tranzit, cheiaj) si pe formularul de situatii venituri se verifica acum automat codul fiscal la ANAF, la fel ca pe factura.
18426 lines
573 KiB
Plaintext
18426 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_client_contract_activ(, , , .T., Thisform.poDate.dataact)
|
|
IF LOWER(m.tcTipPartener) = 'client'
|
|
this.cDenumireClient = loCauta.denumire
|
|
this.nIdClient = locauta.id_part
|
|
|
|
Thisform.cContractClient = alltrim(loCauta.numar)
|
|
thisform.nIdContractClient = loCauta.id_ctr
|
|
|
|
this.txtClient.Refresh()
|
|
this.GetContracteClient(this.nIdClient, thisform.nIdContractClient)
|
|
ELSE
|
|
this.cDenumireBeneficiar = loCauta.denumire
|
|
this.nIdBeneficiar = locauta.id_part
|
|
this.txtBeneficiar.Refresh()
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE do_executa
|
|
LPARAMETERS tlImportCalculat
|
|
* tlImportCalculat (optional, default .F.): daca s-au calculat deja datele pentru import intr-un formular de calcul si din formularul de calcul s-a lansat factura
|
|
|
|
LOCAL llSucces
|
|
|
|
IF EMPTY(NVL(this.nIdClient,0))
|
|
AMESSAGEBOX('Alegeti clientul!',0+48,_screen.Caption)
|
|
RETURN
|
|
ENDIF
|
|
|
|
This.CompleteazaCapFactura()
|
|
|
|
llSucces = factura_import(m.tlImportCalculat) && proceduri_acnpro.prg
|
|
IF m.llSucces
|
|
This.cmdImport.Enabled = .F. && nu mai import altceva
|
|
This.chkIntern.Enabled = .F. && nu mai schimb intern/extern pentru ca s-a salvat in ips_voyages_vanzari.intern la import
|
|
This.ActiveazaSalvare() && activez butonul de salvare
|
|
Thisform.CalculeazaPreturi()
|
|
This.grdFactura.SetFocus()
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_executa2
|
|
ENDPROC
|
|
|
|
PROCEDURE do_reset
|
|
This.lFacturaSalvata = .F. && activez controalele de pe formular pentru a putea edita factura
|
|
this.but_cautare_client.SetFocus()
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_salvare
|
|
Local lcTip, llSucces, loEx as Exception
|
|
DoDefault()
|
|
lcTip = ''
|
|
llSucces = .T.
|
|
|
|
If EMPTY(poDate.nract)
|
|
AMESSAGEBOX('Completati numarul facturii!', 0 + 16, _Screen.Caption)
|
|
this.clb_serie_act._cbbase1.SetFocus()
|
|
llSucces = .F.
|
|
Endif
|
|
|
|
llExista = VerificaFacturaClientiVanzari(poDate.nract, NVL(poDate.serie_act,'')) && oproceduri_comune.prg
|
|
IF m.llExista
|
|
AMESSAGEBOX('Factura cu numarul ' + ALLTRIM(NVL(poDate.serie_act,'')) + ' ' + ALLTRIM(STR(poDate.nract)) + ' exista deja in luna curenta!',0+48, _screen.Caption)
|
|
this.clb_serie_act._cbbase1.SetFocus()
|
|
llSucces = .F.
|
|
ENDIF
|
|
|
|
If !(Year(poDate.dataact) = m.gnAn And Month(poDate.dataact) = m.gnLuna)
|
|
AMESSAGEBOX('Data facturii trebuie sa fie din luna curenta!', 0 + 16, _Screen.Caption)
|
|
this.txtDataFact.SetFocus()
|
|
llSucces = .F.
|
|
Endif
|
|
|
|
SELECT crsFactura
|
|
LOCATE FOR EMPTY(NVL(id_jtva_coloana_ex,0))
|
|
If FOUND()
|
|
AMESSAGEBOX('Completati toate Explicatiile TVA!', 0 + 16, _Screen.Caption)
|
|
llSucces = .F.
|
|
ENDIF
|
|
|
|
* Este posibil sa vreau sa fac factura fara contract, desi clientul are alte contracte
|
|
*!* IF RECCOUNT('crsContracteX') > 0 AND EMPTY(NVL(thisform.nIdContractClient,0))
|
|
*!* AMESSAGEBOX('Alegeti contractul clientului!', 0 + 16, _Screen.Caption)
|
|
*!* llSucces = .F.
|
|
*!* ENDIF
|
|
|
|
If m.llSucces
|
|
This.CompleteazaCapFactura()
|
|
llSucces = factura_salvare() && proceduri_acnpro.prg
|
|
|
|
If m.llSucces
|
|
AMESSAGEBOX('Factura s-a salvat cu succes!', 0 + 64, _Screen.Caption)
|
|
lcTip = 'SALVARE' && SALVARE/RESETARE/INIT
|
|
This.InitFactura(m.lcTip) && Resetare cap factura
|
|
ELSE
|
|
AMESSAGEBOX('Factura NU s-a salvat!', 0 + 48, _Screen.Caption)
|
|
Endif
|
|
ENDIF
|
|
Return m.llSucces
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_sterge
|
|
SELECT crsFactura
|
|
IF !EOF('crsFactura')
|
|
IF AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,_screen.Caption) = 6
|
|
SELECT crsFactura
|
|
DELETE
|
|
IF !BOF()
|
|
SKIP -1
|
|
ELSE
|
|
GO TOP
|
|
ENDIF
|
|
This.CalculeazaTotaluri()
|
|
|
|
this.grdFactura.SetFocus()
|
|
this.grdFactura.Refresh()
|
|
ENDIF
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE getcontracteclient
|
|
Lparameters tnIdPart, tnIdCtr
|
|
|
|
Local lcSource, lcSelect
|
|
lnIdCtr = NVL(m.tnIdCtr,0)
|
|
lcSelect = SELECT()
|
|
lcSource = This.cboContract.RowSource
|
|
This.cboContract.RowSource = []
|
|
Do make_contracte With "id_part=" + Alltrim(Str(m.tnIdPart)) && crsContracte
|
|
SELECT crsContracte
|
|
INSERT INTO crsContracte(id_ctr, numar) VALUES (0, '') && o linie goala daca se doreste factura fara contract
|
|
|
|
LOCATE FOR id_ctr = NVL(m.tnIdCtr,0)
|
|
IF !FOUND()
|
|
GO TOP
|
|
ENDIF
|
|
|
|
This.cboContract.RowSource = m.lcSource
|
|
|
|
IF RECCOUNT('crsContracte') > 0
|
|
this.cboContract.Enabled = .T. && activez/dezactivez cboContracte daca sunt/nu sunt inregistrari
|
|
thisform.nIdContractClient = crsContracte.id_ctr
|
|
Thisform.cContractClient = alltrim(crsContracte.numar)
|
|
thisform.nNrZileScadenta = crsContracte.nr_zile_scadenta
|
|
thisform.nTipCurs = crsContracte.tip_curs
|
|
|
|
Thisform.RefreshDate() && data scadenta (data act), datacurs valutar (tip curs)
|
|
|
|
this.cboContract.SetFocus()
|
|
ENDIF
|
|
|
|
SELECT (m.lcSelect)
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_renunt
|
|
LOCAL llReturn
|
|
llReturn = .F.
|
|
|
|
IF !This.lFacturaSalvata
|
|
* Daca editez o factura nesalvata si apas Terminat
|
|
llReturn = (AMESSAGEBOX('Atentie! Nu ati salvat factura! Doriti sa iesiti fara sa salvati factura?',4+32,_screen.Caption) = 6)
|
|
IF m.llReturn AND This.lNumarActGenerat
|
|
* Dezaloc ultimul numar generat
|
|
poGeneratorNumere.dezaloca_numar(poDate.nIdTipDoc)
|
|
ENDIF
|
|
IF m.llReturn
|
|
DO CASE
|
|
CASE poDate.cTip = 'TRANZIT' AND !This.cmdImport.Enabled && TRANZIT la care s-a importat deja, sterg DIN ips_voyages_vanzari
|
|
llSucces = STERG_TRANZIT()
|
|
CASE poDate.cTip = 'CHEIAJ' AND !This.cmdImport.Enabled && TRANZIT la care s-a importat deja, sterg DIN ips_voyages_vanzari
|
|
llSucces = STERG_CHEIAJ()
|
|
CASE INLIST(poDate.cTip, 'CHIRII', 'APA') AND !This.cmdImport.Enabled && CHIRII si APA la care s-a importat deja, sterg DIN ips_regdoc
|
|
llSucces = STERG_CONTRACT_REGDOC()
|
|
ENDCASE
|
|
ENDIF
|
|
ELSE
|
|
llReturn = .T.
|
|
ENDIF
|
|
|
|
RETURN m.llReturn
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_termin
|
|
RETURN This.inainte_de_do_renunt()
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
LPARAMETERS toDateAditionale
|
|
|
|
DoDefault()
|
|
This.gridextra1.Setup()
|
|
this.grdFactura.HeaderHeight = 36 && se suprascrie la gridextra1.setup. nu stiu de ce
|
|
Thisform.InitFactura("NOU", toDateAditionale)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE initfactura
|
|
*!* Resetare factura la prima factura, dupa o salvare reusita sau la apasare butonului Reset
|
|
LPARAMETERS tcTip, toDateAditionale
|
|
* tcTip: SALVARE; RESETARE; NOU SAU EMPTY (DEFAULT)
|
|
* toDateAditionale: (optional), poate contine Numele clientului, contractul, apel la make_factura daca este initiata factura din alt formular
|
|
|
|
LOCAL lcTip, llResetare, llNou, lnNrAct, loDateAditionale, llImportFactura
|
|
|
|
lcTip = IIF(!EMPTY(m.tcTip), UPPER(ALLTRIM(m.tcTip)), 'NOU')
|
|
lcTip = IIF(INLIST(m.lcTip, 'SALVARE', 'RESETARE', 'NOU'), m.lcTip, 'NOU')
|
|
|
|
llResetare = (m.lcTip = 'RESETARE')
|
|
llNou = (m.lcTip = 'NOU')
|
|
|
|
IF TYPE('toDateAditionale') = 'O'
|
|
loDateAditionale = m.toDateAditionale
|
|
ELSE
|
|
loDateAditionale = CREATEOBJECT("oDateFacturaACN")
|
|
ENDIF
|
|
llImportFactura = loDateAditionale.lImportFactura && daca se importa factura la intrarea in factura, daca este lansata factura dintr-un formular de calcul
|
|
|
|
* La resetare, pastrez nract. La salvare sau la prima factura golesc numarul
|
|
* Daca initializez cu 0 se genereaza un numar nou din plaja de numere factura
|
|
lnNrAct = 0
|
|
IF m.llResetare
|
|
SELECT crsCapFactura
|
|
GO TOP
|
|
lnNrAct = nract
|
|
ENDIF
|
|
|
|
SELECT crsCapFactura
|
|
DELETE ALL
|
|
GO TOP
|
|
APPEND BLANK
|
|
REPLACE intern WITH 1, nract WITH m.lnNrAct
|
|
REPLACE client WITH loDateAditionale.cDenumireClient, client_id WITH loDateAditionale.nIdClient, contract_client WITH loDateAditionale.cContractClient, client_ctr_id WITH loDateAditionale.nIdContractClient, intern WITH loDateAditionale.nIntern
|
|
|
|
SELECT crsFactura
|
|
DELETE ALL
|
|
GO TOP
|
|
|
|
make_cregdoc()
|
|
make_actactan()
|
|
|
|
With Thisform
|
|
Select crsCapFactura
|
|
Go Top
|
|
.cDenumireClient = Alltrim(Nvl(client, ''))
|
|
.nIdClient = client_id
|
|
.cContractClient = Alltrim(Nvl(contract_client, ''))
|
|
.nIdContractClient = client_ctr_id
|
|
.cDenumireBeneficiar = Alltrim(Nvl(beneficiar, ''))
|
|
.nIdBeneficiar = beneficiar_id
|
|
.nEAgent = eagent
|
|
.nIntern = intern
|
|
.nNrZileScadenta = nr_zile_scadenta
|
|
.nTipCurs = tip_curs
|
|
|
|
poDate.nract = 0
|
|
poDate.dataact = GenDataAct() && proceduri_acnpro.prg
|
|
poGeneratorNumere.ResetNumar(poDate.nIdTipDoc)
|
|
poDate.in_valuta = IIF(.nIntern = 1, 0, 1)
|
|
|
|
Thisform.RefreshDate() && data scadenta (data act), datacurs valutar (tip curs)
|
|
|
|
IF m.llNou
|
|
If Inlist(poDate.rezultat_serii, 1, 2, 3) && Tratez si rezultat_serii = 2 FARA SERIE CU PLAJE, sa generez numarul urmator pentru BON FISCAL
|
|
.clb_serie_act.nid_tipdoc = poDate.nIdTipDoc
|
|
.clb_serie_act.do_initializeaza(poDate.rezultat_serii)
|
|
Else
|
|
.RemoveObject('clb_serie_act')
|
|
ENDIF
|
|
|
|
* Initializez seria initiala. Ar trebui sa iau dintr-un tabel de asocieri!
|
|
IF USED('crsseriitemp5')
|
|
poDate.serie_act = IIF(poDate.cTip = 'TRANZIT', 'TRI', IIF(poDate.cTip = 'CHEIAJ', 'DVI', IIF(poDate.cTip = 'CHIRII', 'CHI', IIF(poDate.cTip = 'APA', '', IIF(poDate.cTip = 'PENALITATI', 'AVN', 'DVI'))))) && initializez serie_act in functie de tipul de factura (TRANZIT, CHEIAJ...)
|
|
|
|
SELECT crsseriitemp5
|
|
LOCATE FOR serie = poDate.serie_act
|
|
IF !FOUND()
|
|
GO TOP
|
|
ENDIF
|
|
poDate.serie_act = ALLTRIM(serie)
|
|
.clb_serie_act._cbbase1.value = poDate.serie_act
|
|
ENDIF && USED('crsseriitemp5')
|
|
ENDIF
|
|
ENDWITH
|
|
|
|
This.lFacturaSalvata = (m.lcTip = 'SALVARE') && activez/dezactivez butoanele FACTURA NOUA / SALVARE FACTURA
|
|
|
|
This.lNumarActGenerat = .F. && resetez marca de numar act generat automat
|
|
|
|
* Import factura daca este lansata factura dintr-un formular de calcul
|
|
IF m.llNou AND m.llImportFactura
|
|
IF !(EMPTY(NVL(thisform.nIdClient,0)) AND EMPTY(NVL(thisform.nIdContractClient,0)))
|
|
this.GetContracteClient(this.nIdClient, thisform.nIdContractClient)
|
|
ENDIF
|
|
This.do_executa(m.llImportFactura)
|
|
ENDIF
|
|
|
|
This.CalculeazaTotaluri()
|
|
|
|
This.Refresh()
|
|
DO CASE
|
|
CASE m.lcTip = 'SALVARE'
|
|
This.but_factura_noua.SetFocus()
|
|
CASE m.llNou AND m.llImportFactura
|
|
this.clb_serie_act.SetFocus()
|
|
OTHERWISE
|
|
This.but_cautare_client.SetFocus()
|
|
ENDCASE
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lfacturasalvata_assign
|
|
Lparameters tlFacturaSalvata
|
|
|
|
LOCAL llFacturaEditabila, llAdaugareLibera, llRorisSauContracte
|
|
This.lFacturaSalvata = m.tlFacturaSalvata
|
|
|
|
llFacturaEditabila = !This.lFacturaSalvata && pot sa editez factura doar daca nu este salvata
|
|
llAdaugareLibera = (poDate.cTip = 'DIVERSE') && se pot adauga/sterge linii doar pentru facturi diverse
|
|
llRorisSauContracte = INLIST(poDate.cTip, 'TRANZIT', 'CHEIAJ', 'CHIRII', 'APA', 'PENALITATI') && butonul import RORIS&Contracte este activ doar pentru RORIS sau contracte
|
|
|
|
With This
|
|
.but_factura_noua.Enabled = !m.llFacturaEditabila
|
|
.but_salveaza1.Enabled = .F. && m.llFacturaEditabila ; activez butonul salvare doar cand adaug o linie pe factura
|
|
|
|
.but_cautare_client.Enabled = m.llFacturaEditabila
|
|
.but_cautare_beneficiar.Enabled = m.llFacturaEditabila
|
|
.cboContract.Enabled = .F. && contractul este editabil doar daca exista contracte pentru clientul ales m.llFacturaEditabila
|
|
* .chkAgent.Enabled = m.llFacturaEditabila
|
|
.chkIntern.Enabled = m.llFacturaEditabila
|
|
|
|
.clb_serie_act.Enabled = m.llFacturaEditabila
|
|
.txtNrFact.Enabled = m.llFacturaEditabila
|
|
.txtdataFact.Enabled = m.llFacturaEditabila
|
|
.txtdataScad.Enabled = m.llFacturaEditabila
|
|
.txtDataCurs.Enabled = m.llFacturaEditabila
|
|
.cmdImport.Enabled = m.llFacturaEditabila
|
|
.chkIntern.Enabled = m.llFacturaEditabila
|
|
.but_nou1.Enabled = m.llFacturaEditabila and m.llAdaugareLibera
|
|
.but_sterge1.Enabled = m.llFacturaEditabila and m.llAdaugareLibera
|
|
.grdFactura.Enabled = m.llFacturaEditabila
|
|
.edtTextSubsol.Enabled = m.llFacturaEditabila
|
|
.cmdImport.Enabled = m.llFacturaEditabila and m.llRorisSauContracte
|
|
Endwith
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE refreshdatascadenta
|
|
poDate.DataScad = poDate.dataact + IIF(!EMPTY(Nvl(Thisform.nNrZileScadenta, 0)), Thisform.nNrZileScadenta, 30)
|
|
Thisform.txtDataScad.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE refreshdate
|
|
* recalculez data scadenta in functie de numarul de zile de scadenta, zi curs valutar in functie de setarile din contract
|
|
Local lnTipCurs
|
|
lnTipCurs = NVL(Thisform.nTipCurs, 0)
|
|
|
|
Do Case
|
|
Case m.lnTipCurs = 2 && ultima zi a lunii precedente datei de facturare
|
|
poDate.zi_curs = poDate.dataact - Day(poDate.dataact)
|
|
Otherwise && 0 = nedefinit, 1 = data factura
|
|
poDate.zi_curs = poDate.dataact
|
|
ENDCASE
|
|
thisform.CitesteCursuri()
|
|
Thisform.CalculeazaPreturi()
|
|
|
|
thisform.txtDataCurs.Refresh()
|
|
|
|
This.RefreshDataScadenta()
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
DODEFAULT(nStyle)
|
|
|
|
this.WindowState = 2
|
|
*this.Height = 416
|
|
*this.AutoCenter = .T.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cboContract.LostFocus
|
|
Thisform.cContractClient = alltrim(NVL(crsContracteX.contract,''))
|
|
thisform.nNrZileScadenta = crsContracteX.nr_zile_scadenta
|
|
thisform.nTipCurs = crsContracteX.tip_curs
|
|
|
|
Thisform.RefreshDate() && data scadenta (data act), datacurs valutar (tip curs)
|
|
ENDPROC
|
|
|
|
PROCEDURE cboTip.Valid
|
|
Thisform.cContractClient = ALLTRIM(NVL(crsContracteX.contract, ''))
|
|
ENDPROC
|
|
|
|
PROCEDURE Clb_serie_act._cbbase1.LostFocus
|
|
LOCAL lnNumarAct
|
|
lnNumarAct = poDate.nract && numar original
|
|
DODEFAULT() && posibil sa genereze numar - daca am schimbat seria sau numarul original este 0
|
|
Thisform.lNumarActGenerat = (poDate.nract <> m.lnNumarAct) && daca dau renunt fara sa salvez, vreau sa dezaloc numarul
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cmdImport.GotFocus
|
|
This.BackColor= RGB(0,80,200)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cmdImport.LostFocus
|
|
This.BackColor= RGB(0,159,236)
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cArticol.Combo1.Valid
|
|
REPLACE denumire WITH crsArticoleX.denumire, um WITH crsArticoleX.um IN crsFactura
|
|
thisform.grdFactura.cdenumire.Refresh()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cCantitate.Text2.LostFocus
|
|
IF crsFactura.cantitate <> Thisform.nCantitate
|
|
Thisform.CalculeazaPreturiRand()
|
|
THisform.CalculeazaTotaluri()
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cCantitate.Text2.When
|
|
Thisform.nCantitate = crsFactura.cantitate
|
|
RETURN .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cCurs.Text2.LostFocus
|
|
IF crsFactura.curs <> Thisform.nCurs
|
|
Thisform.CalculeazaPreturiRand()
|
|
THisform.CalculeazaTotaluri()
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cCurs.Text2.When
|
|
Thisform.nCurs = crsFactura.curs
|
|
RETURN .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cExplicatieTVA.Combo1.Valid
|
|
Local lnIdJtvaColoana, lnIdJtvaColoanaEx0, lnIdJtvaColoanaEx1, lnProcTva, lnRecno
|
|
lnIdJtvaColoanaEx0 = Thisform.nIdJtvaColoanaEx
|
|
lnIdJtvaColoanaEx1 = crsJTVAX.Id
|
|
lnIdJtvaColoana = crsJTVAX.id_jtva_coloana
|
|
lnProcTva = Round(1 + crsJTVAX.cota_tva / 100, 2)
|
|
IF lnIdJtvaColoanaEx0 = lnIdJtvaColoanaEx1
|
|
RETURN .T.
|
|
ENDIF
|
|
|
|
Select crsFactura
|
|
Replace id_jtva_coloana With m.lnIdJtvaColoana, proc_tva With m.lnProcTva In crsFactura
|
|
lnRecno = Recno('crsFactura')
|
|
lnRecc = RECCOUNT('crsFactura')
|
|
Thisform.CalculeazaPreturiRand()
|
|
|
|
IF m.lnRecno < m.lnRecc AND AMESSAGEBOX('Se actualizeaza toate explicatiile de TVA similare?', 4 + 32, _Screen.Caption) = 6
|
|
|
|
Select crsFactura
|
|
Scan For id_jtva_coloana_ex = m.lnIdJtvaColoanaEx0
|
|
Replace id_jtva_coloana_ex With m.lnIdJtvaColoanaEx1, ;
|
|
id_jtva_coloana With m.lnIdJtvaColoana, ;
|
|
proc_tva With m.lnProcTva
|
|
|
|
Thisform.CalculeazaPreturiRand()
|
|
Endscan
|
|
|
|
Select crsFactura
|
|
If m.lnRecno > 0
|
|
Locate For Recno() = m.lnRecno
|
|
If !Found()
|
|
Go Top
|
|
Endif
|
|
Endif
|
|
Endif
|
|
|
|
Thisform.CalculeazaTotaluri()
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cExplicatieTVA.Combo1.When
|
|
Thisform.nIdJtvaColoanaEx = crsFactura.id_jtva_coloana_ex
|
|
RETURN .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cPretcTVA.Check1.Valid
|
|
thisform.CalculeazaPreturiRand()
|
|
thisform.CalculeazaTotaluri()
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cPretUnitar.Text2.LostFocus
|
|
IF crsFactura.pret <> Thisform.nPret
|
|
Thisform.CalculeazaPreturiRand()
|
|
THisform.CalculeazaTotaluri()
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cPretUnitar.Text2.When
|
|
Thisform.nPret = crsFactura.pret
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cPUValuta.Text2.LostFocus
|
|
IF crsFactura.pretval <> Thisform.nPretVal
|
|
Thisform.CalculeazaPreturiRand()
|
|
THisform.CalculeazaTotaluri()
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cPUValuta.Text2.When
|
|
Thisform.nPretVal = crsFactura.PretVal
|
|
RETURN .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cValuta.Combo1.Valid
|
|
IF crsValuteX.id_valuta <> Thisform.nIdValuta
|
|
Thisform.CalculeazaPreturiRand()
|
|
Thisform.CalculeazaTotaluri()
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFactura.cValuta.Combo1.When
|
|
Thisform.nIdValuta = crsFactura.id_valuta
|
|
RETURN .T.
|
|
ENDPROC
|
|
|
|
PROCEDURE txtBeneficiar.Click
|
|
IF EMPTY(thisform.cDenumireBeneficiar)
|
|
thisform.do_cauta_partener('beneficiar')
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE txtBeneficiar.DblClick
|
|
thisform.do_cauta_partener('beneficiar')
|
|
ENDPROC
|
|
|
|
PROCEDURE txtBeneficiar.InteractiveChange
|
|
thisform.do_cauta_partener('beneficiar')
|
|
ENDPROC
|
|
|
|
PROCEDURE txtClient.Click
|
|
IF EMPTY(thisform.cDenumireClient)
|
|
thisform.do_cauta_partener('client')
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE txtClient.DblClick
|
|
thisform.do_cauta_partener('client')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtClient.InteractiveChange
|
|
thisform.do_cauta_partener('client')
|
|
ENDPROC
|
|
|
|
PROCEDURE txtDataCurs.Valid
|
|
thisform.CitesteCursuri()
|
|
Thisform.CalculeazaPreturi()
|
|
ENDPROC
|
|
|
|
PROCEDURE txtDataFact.LostFocus
|
|
Thisform.RefreshDataScadenta()
|
|
ENDPROC
|
|
|
|
PROCEDURE txtNrFact.LostFocus
|
|
* verific daca numarul facturii este cel generat automat. daca numarul facturii a fost suprascris, se va dezaloca numarul generat automat
|
|
poGeneratorNumere.verifica_numar(poDate.nIdTipDoc, poDate.nract)
|
|
DODEFAULT()
|
|
|
|
llExista = VerificaFacturaClientiVanzari(poDate.nract, NVL(poDate.serie_act,'')) && oproceduri_comune.prg
|
|
IF m.llExista
|
|
AMESSAGEBOX('Factura cu numarul ' + ALLTRIM(NVL(poDate.serie_act,'')) + ' ' + ALLTRIM(STR(poDate.nract)) + ' exista deja in luna curenta!',0+48, _screen.Caption)
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_penalitati AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataFact.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataFact.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNrFact.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNrFact.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cTotctva.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cTotctva.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataScad.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataScad.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataDoc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataDoc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNrDoc.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNrDoc.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cSuma.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cSuma.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNrZile.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNrZile.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPenalitati.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPenalitati.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNume.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cNume.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cContract.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cContract.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cExplicatia.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cExplicatia.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.Column15.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.Column15.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.Column16.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.Column16.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cBeneficiar.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cBeneficiar.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataBaza.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataBaza.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataRef.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDataRef.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDescriere.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cDescriere.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cZileGratie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cZileGratie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cCont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cCont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPpenzi2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPenzile.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPenzile.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPenzile2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cPenzile2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cFacturat.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cFacturat.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cFacturat._CHECKBOX1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cSters.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cSters.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdPenalitati.cSters._CHECKBOX1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="chkIncerti" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cmdCalcul" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="optZile" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtTotalPen" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblTotal" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="optTipCalcul" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cmdFactura" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cboClienti" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="chkFacturate" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="chkSterse" UniqueID="" Timestamp="" />
|
|
|
|
*<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(, , , .T., Thisform.dDataF)
|
|
This.cDenumireClient = loCauta.denumire
|
|
This.nIdClient = loCauta.id_part
|
|
|
|
Thisform.cContractClient = Alltrim(loCauta.numar)
|
|
Thisform.nIdContractClient = loCauta.id_ctr
|
|
|
|
This.txtClient.Refresh()
|
|
This.GetContracteClient(This.nIdClient, Thisform.nIdContractClient)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_excel
|
|
Local lcRaport, lcTabel, pcTitlu, lcExcel
|
|
Local loExcel As "VFPxWorkbookXLSX" Of "VFPxWorkbookXLSX.vcx"
|
|
|
|
loReturn = This.do_executa()
|
|
lcTabel = loReturn.cTabel
|
|
lcColoane = loReturn.cColoane
|
|
|
|
If !Empty(m.lcTabel)
|
|
lcRaport = Alltrim(crsRapoarteVenituri.raport)
|
|
pcTitlu = Alltrim(crsRapoarteVenituri.titlu)
|
|
pcTitlu = Strtran(m.pcTitlu, "[CLIENT]", ALLTRIM(Nvl(This.cDenumireClient, '')), 1, 1, 1)
|
|
pcTitlu = Strtran(m.pcTitlu, "[CONTRACT]", IIF(!EMPTY(NVL(thisform.cContractClient, "")), "(" + ALLTRIM(Thisform.cContractClient) + ")", "") , 1, 1, 1)
|
|
pcTitlu = Strtran(m.pcTitlu, "[DATA1]", Dtoc(Thisform.dDataI), 1, 1, 1)
|
|
pcTitlu = Strtran(m.pcTitlu, "[DATA2]", Dtoc(Thisform.dDataF), 1, 1, 1)
|
|
pcTitlu = STRTRAN(m.pcTitlu, " ", " ",1,10,1)
|
|
|
|
* EXPORT XLSX
|
|
goExport.export2xlsx(m.lcTabel, m.pcTitlu)
|
|
Endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_executa
|
|
Local ldDataF, ldDataI, lnIdCtrClient, lnRaportNr, lnTip, lcTabel, lcColoane
|
|
Local loReturn As "empty", loDate as "empty"
|
|
Local llReturn
|
|
|
|
lcTabel = ''
|
|
lcColoane = ''
|
|
llReturn = .T.
|
|
ldDataI = Thisform.dDataI
|
|
ldDataF = Thisform.dDataF
|
|
|
|
Do Case
|
|
Case Empty(m.ldDataI)
|
|
AMESSAGEBOX("Nu ati completat data initiala!", 0 + 48, "Atentie")
|
|
Thisform.txtDatai.SetFocus()
|
|
llReturn = .F.
|
|
Case Empty(m.ldDataF)
|
|
AMESSAGEBOX("Nu ati completat data finala!", 0 + 48, "Atentie")
|
|
Thisform.txtDataf.SetFocus()
|
|
llReturn = .F.
|
|
Case m.ldDataI > m.ldDataF
|
|
AMESSAGEBOX("Data finala trebuie sa fie mai mare decat data initiala !", 0 + 48, "Atentie")
|
|
Thisform.txtDataf.SetFocus()
|
|
llReturn = .F.
|
|
Endcase
|
|
|
|
If m.llReturn
|
|
loDate = CREATEOBJECT("empty")
|
|
ADDPROPERTY(loDate, "nTip", crsRapoarteVenituri.tip)
|
|
ADDPROPERTY(loDate, "nNrRaport", crsRapoarteVenituri.numar)
|
|
ADDPROPERTY(loDate, "dData1", m.ldDataI)
|
|
ADDPROPERTY(loDate, "dData2", m.ldDataF)
|
|
ADDPROPERTY(loDate, "nIdClient", This.nIdClient)
|
|
ADDPROPERTY(loDate, "nIdCtrClient", This.nIdContractClient)
|
|
|
|
= GET_DATE_VENITURI(loDate, @lcTabel, @lcColoane)
|
|
Endif
|
|
|
|
loReturn = Createobject("empty")
|
|
AddProperty(loReturn, "cTabel", m.lcTabel)
|
|
AddProperty(loReturn, "cColoane", m.lcColoane)
|
|
Return m.loReturn
|
|
ENDPROC
|
|
|
|
PROCEDURE do_executa2
|
|
ENDPROC
|
|
|
|
PROCEDURE do_listare
|
|
Private pcTitlu, pcIntocmit
|
|
|
|
Local lcRaport, lcTabel, loPartener
|
|
Local loReturn
|
|
* Nu stiu de ce nu apare raportul de pe linia aleasa. Trebuie ales de 2 ori???
|
|
* daca dau browse, este totul corect de prima oara. Incerc cu locate
|
|
SELECT crsRapoarteVenituri
|
|
LOCATE FOR id = thisform.nIdRaport
|
|
|
|
loReturn = This.do_executa()
|
|
lcTabel = loReturn.cTabel
|
|
If !Empty(m.lcTabel) AND USED(m.lcTabel) AND RECCOUNT(m.lcTabel) > 0
|
|
lcRaport = Alltrim(crsRapoarteVenituri.raport)
|
|
pcTitlu = Alltrim(crsRapoarteVenituri.titlu)
|
|
pcTitlu = Strtran(m.pcTitlu, "[CLIENT]", ALLTRIM(Nvl(This.cDenumireClient, '')), 1, 1, 1)
|
|
pcTitlu = Strtran(m.pcTitlu, "[CONTRACT]", IIF(!EMPTY(NVL(thisform.cContractClient, "")), "(" + ALLTRIM(Thisform.cContractClient) + ")", "") , 1, 1, 1)
|
|
pcTitlu = Strtran(m.pcTitlu, "[DATA1]", Dtoc(Thisform.dDataI), 1, 1, 1)
|
|
pcTitlu = Strtran(m.pcTitlu, "[DATA2]", Dtoc(Thisform.dDataF), 1, 1, 1)
|
|
pcTitlu = STRTRAN(m.pcTitlu, " ", " ",1,10,1)
|
|
|
|
loPartener = GetPartenerByUtil(m.gnIdUtil)
|
|
pcIntocmit = ALLTRIM(NVL(loPartener.partener,''))
|
|
|
|
This.AlwaysOnTop = .F.
|
|
|
|
goExport.export2frx(m.lcTabel, m.lcRaport, , , , , , .T.)
|
|
this.AlwaysOnTop = .T.
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE getcontracteclient
|
|
Lparameters tnIdPart, tnIdCtr
|
|
|
|
Local lcSource, lcSelect, lnIdCtr
|
|
lnIdCtr = Nvl(m.tnIdCtr, 0)
|
|
lcSelect = Select()
|
|
lcSource = This.cboContract.RowSource
|
|
This.cboContract.RowSource = []
|
|
Do make_contracte With "id_part=" + Alltrim(Str(m.tnIdPart)) && crsContracte
|
|
Select crsContracte
|
|
Insert Into crsContracte(id_ctr, numar) Values (0, '') && o linie goala daca se doreste factura fara contract
|
|
|
|
|
|
This.cboContract.RowSource = m.lcSource
|
|
SELECT crsContracteX
|
|
Locate For id_ctr = Nvl(m.tnIdCtr, 0)
|
|
If !Found()
|
|
Go Top
|
|
Endif
|
|
|
|
If Reccount('crsContracte') > 0
|
|
This.cboContract.Enabled = .T. && activez/dezactivez cboContracte daca sunt/nu sunt inregistrari
|
|
This.cboContract.SetFocus()
|
|
Endif
|
|
|
|
Select (m.lcSelect)
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DODEFAULT()
|
|
|
|
thisform.ddatai = DATE(m.gnAn, m.gnLuna, 1)
|
|
thisform.ddataf = GOMONTH(DATE(m.gnAn, m.gnLuna, 1),1) - 1
|
|
|
|
SELECT crsRapoarteVenituri
|
|
GO TOP
|
|
this.cboRaport.Value = crsRapoarteVenituri.denumire
|
|
ENDPROC
|
|
|
|
PROCEDURE lmodificat_assign
|
|
ENDPROC
|
|
|
|
PROCEDURE Load
|
|
Do make_contracte With "1=2" && crsContracte
|
|
|
|
CREATE CURSOR crsRapoarteVenituri (id N(10), tip N(2), numar N(3), denumire C(200), raport C(200), titlu c(200))
|
|
INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (7, 0, 3, '0.3 Tranzit > Clienti - indicatori, valori', "SIT_TRANZIT3.FRX", "SITUATIE INDICATORI SI VALORI TRANZIT [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 0 Tranzit, Numar raport 3
|
|
INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (8, 0, 13, '0.13 Tranzit > Clienti - capacitate pe transe, marfa', "", "SITUATIE CAPACITATE PE TRANSE SI MARFA [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 0 Tranzit, Numar raport 13
|
|
|
|
|
|
INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (1, 1, 4, '1.4 Cheiaj > Clienti - indicatori, valori', "SIT_CHEIAJ4.FRX", "SITUATIE INDICATORI SI VALORI CHEIAJ [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 1 Cheiaj, Numar raport 4
|
|
INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (6, 1, 5, '1.5 Cheiaj > Clienti - venituri pe locatii (lei)', "SIT_CHEIAJ5.FRX", "SITUATIE VENITURI PE LOCATII (LEI) [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 1 Cheiaj, Numar raport 5
|
|
|
|
INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (2, 2, 1, '2.1 Apa > Clienti/Prestatii, valori', "", "SITUATIE VALORI [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 2 Apa, Numar raport 1
|
|
INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (3, 3, 1, '3.1 Chirii > Clienti/Prestatii, valori', "", "SITUATIE VALORI [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 3 Chirii, Numar raport 1
|
|
INSERT INTO crsRapoarteVenituri (id, tip, numar, denumire, raport, titlu) VALUES (5, 9, 1, '9.1 Diverse > Clienti/Prestatii, valori', "", "SITUATIE VALORI [CLIENT] [CONTRACT] DE LA [DATA1] LA [DATA2]") && Tip 9 Diverse, Numar raport 1
|
|
|
|
|
|
GO TOP IN crsRapoarteVenituri
|
|
Thisform.nIdRaport = crsRapoarteVenituri.id
|
|
ENDPROC
|
|
|
|
PROCEDURE cboContract.LostFocus
|
|
Thisform.cContractClient = alltrim(NVL(crsContracteX.contract,''))
|
|
ENDPROC
|
|
|
|
PROCEDURE cboRaport.LostFocus
|
|
Thisform.nIdRaport = crsRapoarteVenituri.id
|
|
ENDPROC
|
|
|
|
PROCEDURE cboRaport.Valid
|
|
Thisform.nIdRaport = crsRapoarteVenituri.id
|
|
* Inactivez butonul de listare daca nu am raport, doar export xls
|
|
thisform.but_listare1.Enabled = !EMPTY(crsRapoarteVenituri.raport)
|
|
thisform.but_listare1.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE txtClient.Click
|
|
IF EMPTY(thisform.cDenumireClient)
|
|
thisform.do_cauta_partener()
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE txtClient.DblClick
|
|
thisform.do_cauta_partener('client')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtClient.InteractiveChange
|
|
thisform.do_cauta_partener('client')
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_tarife_cheiaj AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Grid2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid2.cIdCtr.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid2.cIdCtr.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid2.cDenumire.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid2.cDenumire.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid2.cNumar.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid2.cNumar.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cb_tx_cautare1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cBaza.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cBaza.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cBaza._checkbox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cUM.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cUM.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cUM._combobox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cArticol.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cArticol.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cArticol.Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cLim2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cLim2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cCorect.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cCorect.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cCorect._combobox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cLim1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cLim1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cValuta.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cValuta.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cValuta.Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cValoare.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cValoare.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cIntern.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cIntern.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cIntern.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cPlus.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cPlus.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cPlus._checkbox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cAreBaza.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cAreBaza.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cAreBaza._checkbox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Sfsplitterh1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" />
|
|
|
|
*<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
|