1622 lines
53 KiB
Plaintext
1622 lines
53 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_verificare_rulaje.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS dataenvironment AS dataenvironment
|
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
|
|
|
*<PropValue>
|
|
DataSource = .NULL.
|
|
Height = 0
|
|
Left = 0
|
|
Name = "Dataenvironment"
|
|
Top = 0
|
|
Width = 0
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_termin12 AS frm_termin OF "..\clase\_frm_child.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cPart.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cPart.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cBaza.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cBaza.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.Column1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSuma.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSuma.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSectie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid1.cSectie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column5.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.cSerie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.cSerie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Grid2.Column1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cmd_reset1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cmd_cauta1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_nract" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_dataact" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_part" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_tx_totrul" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_tx_totact" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_tx_totrulv" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Ck_serie_act" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.ck_sectie" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cDataact.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cDataact.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cNract.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cNract.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cPart.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cPart.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cBaza.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cBaza.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSerieAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSerieAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSuma.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSuma.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSectie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid1.cSectie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cNnir.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cNnir.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoare.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoare.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoareV.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoareV.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cDataact.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cDataact.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoarevTva.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Grid2.cValoarevTva.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Clb_tx_totrul" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Clb_tx_totact" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Clb_tx_totrulv" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: actualizeaza_grid3
|
|
*m: calcul_sume
|
|
*p: lproductie
|
|
*p: nfel
|
|
*p: ntotact
|
|
*p: ntotrul
|
|
*p: ntotrulv
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
cgridsortlist = pageframe1.page1.grid1;pageframe1.page1.grid2;pageframe1.page2.grid1;pageframe1.page2.grid2
|
|
DoCreate = .T.
|
|
Height = 482
|
|
lproductie = .F.
|
|
Name = "Frm_termin12"
|
|
nfel = 0
|
|
ntotact = 0
|
|
ntotrul = 0
|
|
ntotrulv = 0
|
|
Width = 752
|
|
_shape1.Anchor = 10
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 752
|
|
_shape2.Anchor = 8
|
|
_shape2.Height = 29
|
|
_shape2.Left = 684
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 68
|
|
Lb_titlu_alb_b121.Anchor = 2
|
|
Lb_titlu_alb_b121.Caption = "Facturi de achizitie cu NIR"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 2
|
|
BUT_TERMIN1.Anchor = 8
|
|
BUT_TERMIN1.Left = 721
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 3
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Left = 576
|
|
Gridsort1.Name = "Gridsort1"
|
|
Gridsort1.Top = 9
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
|
Anchor = 8, ;
|
|
Left = 690, ;
|
|
Name = "But_listare1", ;
|
|
TabIndex = 4, ;
|
|
Top = 1
|
|
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
|
|
Anchor = 15, ;
|
|
ErasePage = .T., ;
|
|
Height = 428, ;
|
|
Left = 8, ;
|
|
Name = "Pageframe1", ;
|
|
PageCount = 2, ;
|
|
TabIndex = 1, ;
|
|
Top = 40, ;
|
|
Width = 739, ;
|
|
Page1.Caption = "Verificare Facturi cu NIR-uri", ;
|
|
Page1.Name = "Page1", ;
|
|
Page2.Caption = "Verificare NIR-uri cu Facturi", ;
|
|
Page2.Name = "Page2"
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Ck_dataact' AS ck_filtru_numar WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 3, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = a1.dataact, ;
|
|
Caption = "Data factura", ;
|
|
FontName = "Arial Narrow", ;
|
|
Left = 157, ;
|
|
Name = "Ck_dataact", ;
|
|
TabIndex = 3, ;
|
|
tip = D, ;
|
|
Top = 8
|
|
*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Ck_nract' AS ck_filtru_numar WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 3, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = A1.NRACT, ;
|
|
Caption = "Nr. factura", ;
|
|
FontName = "Arial Narrow", ;
|
|
Left = 90, ;
|
|
mask = (replicate('9',15)), ;
|
|
Name = "Ck_nract", ;
|
|
TabIndex = 2, ;
|
|
Top = 8
|
|
*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Ck_part' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 3, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = b.denumire, ;
|
|
Caption = "Partener", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontName = "Arial Narrow", ;
|
|
Left = 230, ;
|
|
Name = "Ck_part", ;
|
|
TabIndex = 4, ;
|
|
Top = 8
|
|
*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.ck_sectie' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 3, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = s.sectie, ;
|
|
Caption = "Sectie", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontName = "Arial Narrow", ;
|
|
Left = 292, ;
|
|
Name = "ck_sectie", ;
|
|
TabIndex = 4, ;
|
|
Top = 8
|
|
*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Ck_serie_act' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 3, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = a1.serie_act, ;
|
|
Caption = "Serie factura", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontName = "Arial Narrow", ;
|
|
Left = 13, ;
|
|
Name = "Ck_serie_act", ;
|
|
TabIndex = 1, ;
|
|
Top = 8
|
|
*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Clb_tx_totact' AS clb_tx_simplu WITH ;
|
|
Anchor = 6, ;
|
|
BackColor = 255,255,255, ;
|
|
Height = 29, ;
|
|
Left = 2, ;
|
|
Name = "Clb_tx_totact", ;
|
|
TabIndex = 10, ;
|
|
Top = 361, ;
|
|
Width = 240, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.FontBold = .T., ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
|
|
Text_simplu1.Left = 101, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 135, ;
|
|
Lb_simplu1.Caption = "Valoare fara TVA", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Clb_tx_totrul' AS clb_tx_simplu WITH ;
|
|
Anchor = 6, ;
|
|
BackColor = 255,255,255, ;
|
|
Height = 29, ;
|
|
Left = 244, ;
|
|
Name = "Clb_tx_totrul", ;
|
|
TabIndex = 9, ;
|
|
Top = 361, ;
|
|
Width = 223, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.FontBold = .T., ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
|
|
Text_simplu1.Left = 84, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 135, ;
|
|
Lb_simplu1.Caption = "Valoare NIR", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Clb_tx_totrulv' AS clb_tx_simplu WITH ;
|
|
Anchor = 6, ;
|
|
BackColor = 255,255,255, ;
|
|
Height = 29, ;
|
|
Left = 469, ;
|
|
Name = "Clb_tx_totrulv", ;
|
|
TabIndex = 11, ;
|
|
Top = 361, ;
|
|
Width = 265, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.FontBold = .T., ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
|
|
Text_simplu1.Left = 126, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 135, ;
|
|
Lb_simplu1.Caption = "Valoare vanzare NIR", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Cmd_cauta1' AS cmd_cauta WITH ;
|
|
Anchor = 0, ;
|
|
Comment = "*:OnResize=LT", ;
|
|
Height = 27, ;
|
|
Left = 372, ;
|
|
Name = "Cmd_cauta1", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 7, ;
|
|
Top = 4, ;
|
|
Width = 78
|
|
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Cmd_reset1' AS cmd_reset WITH ;
|
|
Anchor = 0, ;
|
|
Comment = "*:OnResize=LT", ;
|
|
Height = 27, ;
|
|
Left = 456, ;
|
|
Name = "Cmd_reset1", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 8, ;
|
|
Top = 4, ;
|
|
Width = 78
|
|
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1' AS grid WITH ;
|
|
Anchor = 15, ;
|
|
ColumnCount = 7, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
HeaderHeight = 35, ;
|
|
Height = 143, ;
|
|
Left = 8, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "crsAct", ;
|
|
RowHeight = 19, ;
|
|
TabIndex = 5, ;
|
|
Top = 35, ;
|
|
Width = 720, ;
|
|
Column1.ColumnOrder = 3, ;
|
|
Column1.ControlSource = "ttod(dataact)", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.FontSize = 9, ;
|
|
Column1.Name = "Column2", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 76, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "nract", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.FontSize = 9, ;
|
|
Column2.Name = "Column3", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 79, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "part", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.FontSize = 9, ;
|
|
Column3.Name = "cPart", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 328, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "baza", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.FontSize = 9, ;
|
|
Column4.InputMask = (get_mask(14,gnPc)), ;
|
|
Column4.Name = "cBaza", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 102, ;
|
|
Column5.ColumnOrder = 1, ;
|
|
Column5.ControlSource = "serie_act", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.FontSize = 10, ;
|
|
Column5.Name = "Column1", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 46, ;
|
|
Column6.ColumnOrder = 6, ;
|
|
Column6.ControlSource = "suma", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.FontSize = 9, ;
|
|
Column6.InputMask = (get_mask(14,gnPc)), ;
|
|
Column6.Name = "cSuma", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 86, ;
|
|
Column7.ColumnOrder = 7, ;
|
|
Column7.ControlSource = "sectie", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.FontSize = 10, ;
|
|
Column7.Name = "cSectie", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 157
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cBaza.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare fara TVA contabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cBaza.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.Column1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Serie fact.", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.Column1.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.Column2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data factura", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.Column3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. factura", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cPart.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Partener", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cPart.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cSectie.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sectie", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cSectie.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cSuma.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare cu TVA contabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid1.cSuma.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2' AS grid WITH ;
|
|
Anchor = 14, ;
|
|
ColumnCount = 12, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
HeaderHeight = 36, ;
|
|
Height = 171, ;
|
|
Left = 8, ;
|
|
Name = "Grid2", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "crsRul", ;
|
|
RowHeight = 19, ;
|
|
TabIndex = 6, ;
|
|
Top = 179, ;
|
|
Width = 720, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "nnir", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.FontSize = 9, ;
|
|
Column1.Name = "Column2", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 64, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "codmat", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.FontSize = 9, ;
|
|
Column2.Name = "Column3", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 77, ;
|
|
Column3.ColumnOrder = 3, ;
|
|
Column3.ControlSource = "denumire", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.FontSize = 9, ;
|
|
Column3.Name = "Column4", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 156, ;
|
|
Column4.ColumnOrder = 6, ;
|
|
Column4.ControlSource = "pret", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.FontSize = 9, ;
|
|
Column4.InputMask = (get_mask(14,gnPpret)), ;
|
|
Column4.Name = "Column5", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 80, ;
|
|
Column5.ColumnOrder = 8, ;
|
|
Column5.ControlSource = "cont", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.FontSize = 9, ;
|
|
Column5.Name = "Column6", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 31, ;
|
|
Column6.ColumnOrder = 5, ;
|
|
Column6.ControlSource = "cantitate", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.FontSize = 9, ;
|
|
Column6.InputMask = (get_mask(14,gnPcant)), ;
|
|
Column6.Name = "Column7", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 53, ;
|
|
Column7.ColumnOrder = 7, ;
|
|
Column7.ControlSource = "valoare", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.FontSize = 9, ;
|
|
Column7.InputMask = (get_mask(14,gnPc)), ;
|
|
Column7.Name = "Column8", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 82, ;
|
|
Column8.ColumnOrder = 9, ;
|
|
Column8.ControlSource = "acont", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.FontSize = 9, ;
|
|
Column8.Name = "Column9", ;
|
|
Column8.ReadOnly = .T., ;
|
|
Column8.Width = 47, ;
|
|
Column9.ColumnOrder = 10, ;
|
|
Column9.ControlSource = "PRETV", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.FontSize = 9, ;
|
|
Column9.InputMask = (get_mask(14,gnPPretV)), ;
|
|
Column9.Name = "Column10", ;
|
|
Column9.ReadOnly = .T., ;
|
|
Column9.Width = 76, ;
|
|
Column10.ColumnOrder = 11, ;
|
|
Column10.ControlSource = "valoareV", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.FontSize = 9, ;
|
|
Column10.InputMask = (get_mask(14,gnPc)), ;
|
|
Column10.Name = "Column11", ;
|
|
Column10.ReadOnly = .T., ;
|
|
Column10.Width = 96, ;
|
|
Column11.ColumnOrder = 4, ;
|
|
Column11.ControlSource = "serie", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.FontSize = 9, ;
|
|
Column11.Name = "cSerie", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.Width = 86, ;
|
|
Column12.ControlSource = "valoarevtva", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.FontSize = 10, ;
|
|
Column12.InputMask = (get_mask(14,gnPc)), ;
|
|
Column12.Name = "Column1", ;
|
|
Column12.ReadOnly = .T., ;
|
|
Column12.Width = 81
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare vanzare cu TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column1.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Pret vanzare", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column10.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column11.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare vanzare fara TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column11.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr NIR", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod material", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column4.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire articol", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column4.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column5.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Pret achizitie", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column5.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column6.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column6.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column7.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cantitate", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column8.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare achizitie fara TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column8.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column9.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.Column9.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.cSerie.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Serie", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Grid2.cSerie.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Clb_tx_totact' AS clb_tx_simplu WITH ;
|
|
Anchor = 6, ;
|
|
BackColor = 255,255,255, ;
|
|
Height = 29, ;
|
|
Left = 2, ;
|
|
Name = "Clb_tx_totact", ;
|
|
TabIndex = 4, ;
|
|
Top = 362, ;
|
|
Width = 240, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.FontBold = .T., ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
|
|
Text_simplu1.Left = 101, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 135, ;
|
|
Lb_simplu1.Caption = "Valoare fara TVA", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Clb_tx_totrul' AS clb_tx_simplu WITH ;
|
|
Anchor = 6, ;
|
|
BackColor = 255,255,255, ;
|
|
Height = 29, ;
|
|
Left = 244, ;
|
|
Name = "Clb_tx_totrul", ;
|
|
TabIndex = 3, ;
|
|
Top = 362, ;
|
|
Width = 223, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.FontBold = .T., ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
|
|
Text_simplu1.Left = 84, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 135, ;
|
|
Lb_simplu1.Caption = "Valoare NIR", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Clb_tx_totrulv' AS clb_tx_simplu WITH ;
|
|
Anchor = 6, ;
|
|
BackColor = 255,255,255, ;
|
|
Height = 29, ;
|
|
Left = 469, ;
|
|
Name = "Clb_tx_totrulv", ;
|
|
TabIndex = 5, ;
|
|
Top = 362, ;
|
|
Width = 265, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.FontBold = .T., ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = (get_mask(14,gnPc)), ;
|
|
Text_simplu1.Left = 126, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 135, ;
|
|
Lb_simplu1.Caption = "Valoare vanzare NIR", ;
|
|
Lb_simplu1.Name = "Lb_simplu1"
|
|
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1' AS grid WITH ;
|
|
Anchor = 14, ;
|
|
ColumnCount = 7, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
HeaderHeight = 35, ;
|
|
Height = 171, ;
|
|
Left = 7, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "crsActCont", ;
|
|
RowHeight = 19, ;
|
|
TabIndex = 2, ;
|
|
Top = 178, ;
|
|
Width = 721, ;
|
|
Column1.ColumnOrder = 3, ;
|
|
Column1.ControlSource = "ttod(dataact)", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.FontSize = 10, ;
|
|
Column1.Name = "cDataact", ;
|
|
Column1.Width = 73, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "nract", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.FontSize = 10, ;
|
|
Column2.Name = "cNract", ;
|
|
Column2.Width = 79, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "part", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.FontSize = 10, ;
|
|
Column3.Name = "cPart", ;
|
|
Column3.Width = 289, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "baza", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.FontSize = 10, ;
|
|
Column4.InputMask = (get_mask(14,gnPc)), ;
|
|
Column4.Name = "cBaza", ;
|
|
Column4.Width = 77, ;
|
|
Column5.ColumnOrder = 1, ;
|
|
Column5.ControlSource = "serie_act", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.FontSize = 10, ;
|
|
Column5.Name = "cSerieAct", ;
|
|
Column5.Width = 54, ;
|
|
Column6.ControlSource = "suma", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.FontSize = 10, ;
|
|
Column6.InputMask = (get_mask(14,gnPc)), ;
|
|
Column6.Name = "cSuma", ;
|
|
Column7.ControlSource = "sectie", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.FontSize = 10, ;
|
|
Column7.Name = "cSectie", ;
|
|
Column7.Width = 174
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cBaza.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare fara TVA contabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cBaza.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cDataact.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data factura", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cDataact.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cNract.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. factura", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cNract.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cPart.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Partener", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cPart.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cSectie.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sectie", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cSectie.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cSerieAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Serie fact.", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cSerieAct.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cSuma.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare cu TVA contabil", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid1.cSuma.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2' AS grid WITH ;
|
|
Anchor = 15, ;
|
|
ColumnCount = 5, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
HeaderHeight = 38, ;
|
|
Height = 171, ;
|
|
Left = 7, ;
|
|
Name = "Grid2", ;
|
|
Panel = 1, ;
|
|
RecordSource = "crsRulCont", ;
|
|
RowHeight = 19, ;
|
|
TabIndex = 1, ;
|
|
Top = 5, ;
|
|
Width = 721, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "nnir", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.FontSize = 9, ;
|
|
Column1.Name = "cNnir", ;
|
|
Column1.Width = 79, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "valoare", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.FontSize = 9, ;
|
|
Column2.InputMask = (get_mask(14,gnPc)), ;
|
|
Column2.Name = "cValoare", ;
|
|
Column2.Width = 91, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "valoarev", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.FontSize = 9, ;
|
|
Column3.InputMask = (get_mask(14,gnPc)), ;
|
|
Column3.Name = "cValoareV", ;
|
|
Column3.Width = 96, ;
|
|
Column4.ColumnOrder = 2, ;
|
|
Column4.ControlSource = "ttod(dataact)", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.FontSize = 10, ;
|
|
Column4.Name = "cDataact", ;
|
|
Column4.Width = 67, ;
|
|
Column5.ControlSource = "valoarevtva", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.FontSize = 10, ;
|
|
Column5.InputMask = (get_mask(14,gnPc)), ;
|
|
Column5.Name = "cValoarevTva", ;
|
|
Column5.Width = 98
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cDataact.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data NIR", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cDataact.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cNnir.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr NIR", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cNnir.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cValoare.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare achizitie fara TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cValoare.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cValoareV.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare vanzare fara TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cValoareV.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cValoarevTva.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare vanzare cu TVA", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Grid2.cValoarevTva.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE actualizeaza_grid1
|
|
Lparameters tcFiltru
|
|
Local lcFiltru
|
|
If TYPE('tcFiltru') <> 'C'
|
|
lcFiltru = poRul.ca_baza1.cfiltru
|
|
Else
|
|
lcFiltru = tcFiltru
|
|
Endif
|
|
save_grid_tag(Thisform.pageframe1.page1.grid2)
|
|
poRul.ca_baza1.cfiltru=lcFiltru
|
|
poRul.ca_baza1.afisare()
|
|
restore_grid_tag(Thisform.pageframe1.page1.grid2)
|
|
Thisform.pageframe1.page1.grid2.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE actualizeaza_grid2
|
|
Lparameters tcFiltru
|
|
|
|
Local lcFiltru
|
|
lcFiltru = tcFiltru
|
|
If Empty(lcFiltru)
|
|
lcFiltru = poAct.ca_baza1.cfiltru
|
|
Endif
|
|
|
|
save_grid_tag(Thisform.pageframe1.page2.grid1)
|
|
poAct.ca_baza1.cfiltru = lcFiltru
|
|
poAct.ca_baza1.afisare()
|
|
restore_grid_tag(Thisform.pageframe1.page2.grid1)
|
|
ENDPROC
|
|
|
|
PROCEDURE actualizeaza_grid3
|
|
Lparameters tcFiltru
|
|
Local lcFiltru
|
|
If Empty(tcFiltru)
|
|
lcFiltru = poNirBon.ca_baza1.cfiltru
|
|
Else
|
|
lcFiltru = tcFiltru
|
|
Endif
|
|
|
|
save_grid_tag(Thisform.pageframe1.page1.grid1)
|
|
save_grid_tag(Thisform.pageframe1.page1.grid2)
|
|
save_grid_tag(Thisform.pageframe1.page2.grid1)
|
|
save_grid_tag(Thisform.pageframe1.page2.grid2)
|
|
poNirBon.ca_baza1.cfiltru=lcFiltru
|
|
poNirBon.ca_baza1.afisare()
|
|
restore_grid_tag(Thisform.pageframe1.page1.grid1)
|
|
restore_grid_tag(Thisform.pageframe1.page1.grid2)
|
|
restore_grid_tag(Thisform.pageframe1.page2.grid1)
|
|
restore_grid_tag(Thisform.pageframe1.page2.grid2)
|
|
Thisform.pageframe1.page1.grid1.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE calcul_sume
|
|
If This.pageframe1.ActivePage = 1
|
|
With This.pageframe1.page1
|
|
lcAct = .grid1.RecordSource
|
|
lcRul = .grid2.RecordSource
|
|
Select (lcAct)
|
|
Thisform.nTotAct = baza
|
|
|
|
Select (lcRul)
|
|
Calculate Sum(valoare) To Thisform.nTotRul
|
|
Calculate Sum(valoareV) To Thisform.nTotRulV
|
|
Locate
|
|
|
|
If This.nTotRul <> This.nTotAct And This.nTotRulV <> This.nTotAct
|
|
.clb_tx_totrul.text_simplu1.ForeColor = Rgb(255,0,0)
|
|
.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(255,0,0)
|
|
Else
|
|
.clb_tx_totrul.text_simplu1.ForeColor = Rgb(0,0,0)
|
|
.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(0,0,0)
|
|
Endif
|
|
With .clb_tx_totrul.text_simplu1
|
|
.Value = Thisform.nTotRul
|
|
.Refresh()
|
|
Endwith
|
|
With .clb_tx_totrulv.text_simplu1
|
|
.Value = Thisform.nTotRulV
|
|
.Refresh()
|
|
Endwith
|
|
With .clb_tx_totact.text_simplu1
|
|
.Value = Thisform.nTotAct
|
|
.Refresh()
|
|
Endwith
|
|
Endwith
|
|
Else
|
|
With This.pageframe1.page2
|
|
lcAct = .grid1.RecordSource
|
|
lcRul = .grid2.RecordSource
|
|
Select (lcRul)
|
|
Thisform.nTotRul = valoare
|
|
Thisform.nTotRulV = valoareV
|
|
|
|
Select (lcAct)
|
|
Calculate Sum(baza) To Thisform.nTotAct
|
|
Locate
|
|
|
|
If This.nTotRul <> This.nTotAct And This.nTotRulV <> This.nTotAct
|
|
.clb_tx_totrul.text_simplu1.ForeColor = Rgb(255,0,0)
|
|
.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(255,0,0)
|
|
Else
|
|
.clb_tx_totrul.text_simplu1.ForeColor = Rgb(0,0,0)
|
|
.clb_tx_totrulv.text_simplu1.ForeColor = Rgb(0,0,0)
|
|
Endif
|
|
With .clb_tx_totrul.text_simplu1
|
|
.Value = Thisform.nTotRul
|
|
.Refresh()
|
|
Endwith
|
|
With .clb_tx_totrulv.text_simplu1
|
|
.Value = Thisform.nTotRulV
|
|
.Refresh()
|
|
Endwith
|
|
With .clb_tx_totact.text_simplu1
|
|
.Value = Thisform.nTotAct
|
|
.Refresh()
|
|
Endwith
|
|
Endwith
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE do_cauta
|
|
Local lcFiltru
|
|
lcFiltru = []
|
|
With This.pageframe1.page1
|
|
lcRul = .grid2.RecordSource
|
|
|
|
* data fact.
|
|
If .ck_dataact.Value=1
|
|
lcFiltru = lcFiltru + .ck_dataact.filtru
|
|
ELSE
|
|
lcFiltru =lcFiltru + [ and (a1.an=?gnAn and a1.luna=?gnLuna)]
|
|
Endif
|
|
|
|
* serie fact.
|
|
If .ck_serie_act.Value=1
|
|
lcFiltru = lcFiltru + .ck_serie_act.filtru
|
|
Endif
|
|
|
|
* nr. fact.
|
|
If .ck_nract.Value=1
|
|
lcFiltru = lcFiltru + .ck_nract.filtru
|
|
Endif
|
|
|
|
* explicatia 1
|
|
If .ck_part.Value = 1
|
|
*!* lcFiltru = lcFiltru + STRTRAN(.ck_part.filtru,[^PART^],IIF(pnFel = 1, [partc], [partd]))
|
|
lcFiltru = lcFiltru + .ck_part.filtru
|
|
Endif
|
|
|
|
If .ck_sectie.Value = 1
|
|
lcFiltru = lcFiltru + .ck_sectie.filtru
|
|
Endif
|
|
Endwith
|
|
|
|
If !Empty(lcFiltru)
|
|
lcFiltru = Substr(lcFiltru,6)
|
|
ELSE
|
|
lcFiltru=[2=2]
|
|
Endif
|
|
|
|
Thisform.actualizeaza_grid3(lcFiltru)
|
|
If Reccount('crsAct')=0
|
|
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
|
|
Endif
|
|
|
|
This.calcul_sume
|
|
ENDPROC
|
|
|
|
PROCEDURE do_listare
|
|
Local lcFiltruData
|
|
lcFiltruData=[]
|
|
|
|
If Thisform.pageframe1.page1.ck_dataact.Value = 1
|
|
lcFiltruData = lcFiltruData + Alltrim(Thisform.pageframe1.page1.ck_dataact.filtru)
|
|
lcFiltruData = Substr(lcFiltruData,6)
|
|
lcFiltruData = Strtran(lcFiltruData,'A1.','')
|
|
ENDIF
|
|
|
|
Thisform.AlwaysOnTop=.F.
|
|
DO listare_centralizator_nir_bon WITH Thisform.nfel, thisform.lProductie, lcFiltruData
|
|
Thisform.AlwaysOnTop=.T.
|
|
|
|
* Am mutat listarea intr-o procedura separata, sa o pot apela separat, din meniu
|
|
RETURN
|
|
|
|
*!* *!* 11.06.2015
|
|
*!* *!* MARIUS.MUTU
|
|
*!* *!* ID_SET = 268: bon consum pe lucrari in curs de executie cu import din fisier (pentru import consum vopsea 301 si creare si consum mix vopsea 345)
|
|
*!* *!* nu am nevoie de iesirea de mix 345 pentru ca se dubleaza iesirea de pe bon. Iese deja 301
|
|
|
|
*!* Local lcFiltruData
|
|
*!* lcFiltruData=[]
|
|
|
|
*!* If Thisform.pageframe1.page1.ck_dataact.Value = 1
|
|
*!* lcFiltruData = lcFiltruData + Alltrim(Thisform.pageframe1.page1.ck_dataact.filtru)
|
|
*!* lcFiltruData = Substr(lcFiltruData,6)
|
|
*!* lcFiltruData = Strtran(lcFiltruData,'A1.','')
|
|
*!* Endif
|
|
*!* *!* 04.02.2009
|
|
*!* && SELECTEZ DIN RUL NIR-URILE GRUPATE DUPA COD, NNIR, SECTIE, NRORD, DATAACT
|
|
*!* lcSqlRulListare = [select cod, nnir, sectie, nrord, dataact, ] + ;
|
|
*!* [SUM(case id_set when 234 then Round((PRET+TVA)*CANT, ?gnPC)- Round(Round((PRET+TVA)*CANT, ?gnPC)*(proc_tva-1)/proc_tva, ?gnPC) ] + ;
|
|
*!* [ else ROUND(pret*] + Iif(pnFel = 1, [cant], [cante]) + [,?gnPc) end) as valoare,] + ;
|
|
*!* [SUM(case id_set when 234 then Round(Round((PRET+TVA)*CANT, ?gnPC)*(proc_tva-1)/proc_tva, ?gnPC) ] + ;
|
|
*!* [ else Round(ROUND(pret*] + Iif(pnFel = 1, [cant], [cante]) + [,?gnPc)*(proc_tva-1), ?gnPC) end) as valtva,] + ;
|
|
*!* [SUM(case id_set when 234 then Round((PRET+TVA)*CANT, ?gnPC) ] + ;
|
|
*!* [ else ROUND(pret*] + Iif(pnFel = 1, [cant], [cante]) + [,?gnPc) + Round(Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pret, ?gnPC)*(PROC_TVA-1), ?gnPC) end) as valctva,] + ;
|
|
*!* [SUM(case when nr_pag in (6,7) and proc_tvav <> 0 then + Round(] + Iif(pnFel = 1, [cant], [cante]) + [*(pretv + tvav), ?gnPC) - ] + ;
|
|
*!* [ Round(Round(] + Iif(pnFel = 1, [cant], [cante]) + [*(pretv+tvav), ?gnPC)*(PROC_TVAV-1)/PROC_TVAV, ?gnPC) else ] + ;
|
|
*!* [ Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pretv, ?gnPC) end) as valoarev, ] + ;
|
|
*!* [SUM(case when nr_pag in (6,7) and proc_tvav <> 0 then Round(] + Iif(pnFel = 1, [cant], [cante]) + [*(pretv + tvav), ?gnPC) else ] + ;
|
|
*!* [ Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pretv, ?gnPC) + Round(Round(] + Iif(pnFel = 1, [cant], [cante]) + [*pretv, ?gnPC)*(PROC_TVAV-1), ?gnPC) end) as valoarevtva ] + ;
|
|
*!* [from vrul where ] + Iif(!EMPTY(lcFiltruData),;
|
|
*!* [(]+lcFiltruData+[ and ],;
|
|
*!* [an = ?gnAn and luna = ?gnLuna and ]) +;
|
|
*!* IIF(tlProductie, [(id_set=26000 or id_set=26001) and ],[]) + ;
|
|
*!* [id_tip_rulaj = 0 ] + gcCondSucursala + [ and ] + ;
|
|
*!* IIF(pnFel = 1, [cant], [cante]) + [ <> 0 ] + ;
|
|
*!* IIF(pnFel = 2, [ and ((id_set = 268 and cont <> '345') or id_set <> 268)], []) + ;
|
|
*!* [group by cod, nnir, dataact, nrord, sectie ORDER BY DATAACT, NNIR]
|
|
|
|
*!* * ID_SET = 268: bon consum pe lucrari in curs de executie cu import din fisier (pentru import consum vopsea 301 si creare si consum mix vopsea 345)
|
|
*!* * nu am nevoie de iesirea de mix 345 pentru ca se dubleaza iesirea de pe bon. Iese deja 301
|
|
|
|
*!* lcCursor = [crsRulListare]
|
|
*!* lnSucces = goExecutor.oexecute(lcSqlRulListare,lcCursor)
|
|
*!* If lnSucces < 0
|
|
*!* aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
|
|
*!* Return
|
|
*!* Endif
|
|
*!* *!* 04.02.2009 ^
|
|
*!* If Used('crsraport')
|
|
*!* Use In crsraport
|
|
*!* Endif
|
|
|
|
*!* If Thisform.nfel=2 && Bonuri
|
|
*!* lcRaport=[centralizator_bon.frx]
|
|
*!* Select nnir,dataact,nrord,sectie,Sum(valoare) As valoare,Sum(valoarev) As valoarev ;
|
|
*!* FROM crsrullistare Group By nnir,dataact,nrord,sectie ;
|
|
*!* ORDER By dataact,nnir Into Cursor crsraport
|
|
*!* Else
|
|
*!* lcRaport=[centralizator_nir.frx]
|
|
*!* If Used('crstoate')
|
|
*!* Use In crstoate
|
|
*!* Endif
|
|
|
|
*!* If Type('crsact.part') <> 'U'
|
|
*!* Select a.Part As nume,a.serie_act,a.nract,a.dataact,a.baza As valftvacont, a.suma As valctvacont, b.nnir,b.valoare As valftva,b.valtva As valtva,b.valctva As valctva, ;
|
|
*!* a.disc_baza as valdiscb, a.disc_tva as valdisct, b.valoarev - b.valoare as valadaos ;
|
|
*!* FROM crsact a Left Join crsrullistare b On a.cod=b.cod ;
|
|
*!* ORDER By a.dataact,b.nnir Into Cursor crstoate
|
|
*!* Else
|
|
*!* Select '' As nume,a.serie_act,a.nract,a.dataact,a.baza As valftvacont, a.suma As valctvacont, b.nnir,b.valoare As valftva,b.valtva,b.valctva ;
|
|
*!* FROM crsact a Left Join crsrullistare b On a.cod=b.cod ;
|
|
*!* ORDER By a.dataact,b.nnir Into Cursor crstoate
|
|
*!* Endif
|
|
|
|
*!* Select nume,nract,serie_act,dataact,nnir,valftvacont, valctvacont, Sum(valftva) As valftva,Sum(valtva) As valtva,Sum(valctva) As valctva ,SUM(valdiscb) as valdiscb,SUM(valdisct) as valdisct,SUM(valadaos) as valadaos;
|
|
*!* FROM crstoate Group By nume,serie_act,nract,dataact,nnir,valftvacont, valctvacont ;
|
|
*!* ORDER By dataact,nnir Into Cursor crsraport
|
|
|
|
*!* If Used('crstoate')
|
|
*!* Use In crstoate
|
|
*!* Endif
|
|
*!* Endif
|
|
|
|
*!* If Reccount('crsraport')>0
|
|
*!* Thisform.AlwaysOnTop=.F.
|
|
*!* pcDataora=get_ora(2)
|
|
*!* Select crsraport
|
|
*!* Report Form (lcRaport) To Printer Prompt Preview
|
|
*!* Thisform.AlwaysOnTop=.T.
|
|
*!* Else
|
|
*!* aMESSAGEBOX("Nu exista inregistrari pentru listare!",0+48,"Atentie")
|
|
*!* Endif
|
|
|
|
*!* If Used('crsraport')
|
|
*!* Use In crsraport
|
|
*!* Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_reset
|
|
With This.pageframe1.page1
|
|
.SetAll('value',0,'ck_filtru_text')
|
|
.SetAll('value',0,'ck_filtru_numar')
|
|
.ck_serie_act.SetFocus()
|
|
Endwith
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
Parameters tnFel, tlProductie
|
|
DoDefault()
|
|
Thisform.nfel=tnFel
|
|
If tnFel = 2 && BON-uri
|
|
This.lb_titlu_alb_b121.Caption = [Verificare BONURI]
|
|
With Thisform.pageframe1.page1
|
|
.clb_tx_totrul.lb_simplu1.Caption = [Valoare BON]
|
|
.clb_tx_totrulv.lb_simplu1.Caption = [Valoare vanzare BON]
|
|
.Caption = [Verificare Facturi cu BONURI]
|
|
.grid2.column2.header1.Caption = [Nr. BON]
|
|
Endwith
|
|
With Thisform.pageframe1.page2
|
|
.clb_tx_totrul.lb_simplu1.Caption = [Valoare BON]
|
|
.clb_tx_totrulv.lb_simplu1.Caption = [Valoare vanzare BON]
|
|
.Caption = [Verificare BONURI cu Facturi]
|
|
.grid2.cNnir.header1.Caption = [Nr. BON]
|
|
.grid2.cDataAct.header1.Caption = [Data BON] && modificare ROAPRODUCTIE v 2.0.2
|
|
Endwith
|
|
Endif
|
|
|
|
Thisform.lProductie = tlProductie
|
|
|
|
If Thisform.lProductie && AND Thisform.nfel = 1
|
|
With Thisform.pageframe1.page1
|
|
.grid1.cPart.Width=0
|
|
.ck_part.Visible = .F.
|
|
Endwith
|
|
Endif
|
|
|
|
If Thisform.lProductie
|
|
If tnFel = 1
|
|
This.lb_titlu_alb_b121.Caption = [Procese verbale de productie]
|
|
Else
|
|
This.lb_titlu_alb_b121.Caption = [Bonuri de consum]
|
|
Endif
|
|
This.pageframe1.page1.Caption = [Verificare document cu rulaje]
|
|
This.pageframe1.page2.Caption = [Verificare rulaje cu document]
|
|
Endif
|
|
This.pageframe1.page1.grid1.SetFocus()
|
|
This.WindowState = 2
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page1.Grid1.AfterRowColChange
|
|
Lparameters nColIndex
|
|
If Inlist(This.RowColChange,0,1,3)
|
|
Select crsAct
|
|
pnCod = cod
|
|
Thisform.actualizeaza_grid1("")
|
|
Thisform.calcul_sume
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Activate
|
|
This.grid2.SetFocus()
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Grid2.AfterRowColChange
|
|
Lparameters nColIndex
|
|
If Inlist(This.RowColChange,0,1,3)
|
|
Select crsRulCont
|
|
pnCod = cod
|
|
*!* pcCont = Alltrim(Cont)
|
|
*!* pcAcont = Alltrim(Nvl(acont,'XXXX'))
|
|
Thisform.actualizeaza_grid2
|
|
Thisform.calcul_sume
|
|
Endif
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|