sync SVN r18096
This commit is contained in:
@@ -9322,6 +9322,12 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cDistribuie.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cDistribuie.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cDistribuie._CHECKBOX1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cExplicatia.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cExplicatia.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cExplicatia4.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cExplicatia4.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cExplicatia5.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdDetaliiFacturi.cExplicatia5.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdFacturi" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdFacturi.cAles.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdFacturi.cAles.Text1" UniqueID="" Timestamp="" />
|
||||
@@ -9385,43 +9391,47 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_BifeazaTot1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_Anulare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_executa2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblNrAct" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtNrAct" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblDataAct" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtDataAct" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblDataScad" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtDataScad" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblSerieAct" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtSerieAct" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblResponsabil" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtResponsabil" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblVenChelt" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtVenChelt" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblSectie" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtExplicatia" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtSectie" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblContract" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtContract" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblLucrare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtLucrare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblPartener" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtCodFiscal" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="chkDistribuieDiscount" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtPartener" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="chkTVAIncasare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblValuta" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtAcont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblCurs" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtCurs" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtCont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblLucrare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtLucrare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblContract" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtContract" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblSectie" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtSectie" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblVenChelt" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtVenChelt" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblResponsabil" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtResponsabil" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_executa2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtExplicatia" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblCurs" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtCurs" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtCodFiscal" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtAcont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="chkDistribuieDiscount" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_Anulare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_BifeazaTot1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtExplicatia4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblExplicatia4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txtExplicatia5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="chkDiferente" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lblExplicatia5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="chkLipsaRegistru" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="but_cont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="but_gestiune" UniqueID="" Timestamp="" />
|
||||
@@ -9466,6 +9476,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
*m: modificanote
|
||||
*m: modifica_partener
|
||||
*m: numaradiferenteimport
|
||||
*m: pozitioneazalistasubimport
|
||||
*m: scrienote
|
||||
*p: cantetlot
|
||||
*p: llotactiv
|
||||
@@ -9516,6 +9527,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
<memberdata name="listarenir" display="ListareNIR"/>
|
||||
<memberdata name="cantetlot" display="cAntetLot"/>
|
||||
<memberdata name="actualizeazarandimportat" display="ActualizeazaRandImportat"/>
|
||||
<memberdata name="pozitioneazalistasubimport" display="PozitioneazaListaSubImport"/>
|
||||
</VFPData>
|
||||
_shape1.Anchor = 10
|
||||
_shape1.Height = 29
|
||||
@@ -9624,7 +9636,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||||
Left = 559, ;
|
||||
Name = "But_modifica1", ;
|
||||
TabIndex = 7, ;
|
||||
TabIndex = 9, ;
|
||||
Top = 371, ;
|
||||
Visible = .T.
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
@@ -9632,7 +9644,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||||
Left = 589, ;
|
||||
Name = "But_nou1", ;
|
||||
TabIndex = 8, ;
|
||||
TabIndex = 10, ;
|
||||
Top = 371
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
@@ -9732,9 +9744,9 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ForeColor = 255,255,255, ;
|
||||
Left = 524, ;
|
||||
Name = "chkDistribuieDiscount", ;
|
||||
TabIndex = 10, ;
|
||||
TabIndex = 12, ;
|
||||
ToolTipText = "Distribuie discount general pe articole", ;
|
||||
Top = 451, ;
|
||||
Top = 448, ;
|
||||
Value = .F., ;
|
||||
ZOrderSet = 23
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||||
@@ -9762,7 +9774,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ControlSource = "crsFacturi.TVAIncasare", ;
|
||||
Left = 624, ;
|
||||
Name = "chkTVAIncasare", ;
|
||||
TabIndex = 9, ;
|
||||
TabIndex = 11, ;
|
||||
Top = 377, ;
|
||||
ZOrderSet = 23
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||||
@@ -9808,7 +9820,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Height = 27, ;
|
||||
Left = 741, ;
|
||||
Name = "Cmd_executa1", ;
|
||||
TabIndex = 20, ;
|
||||
TabIndex = 27, ;
|
||||
Top = 405, ;
|
||||
Width = 140, ;
|
||||
ZOrderSet = 12
|
||||
@@ -9822,7 +9834,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Height = 27, ;
|
||||
Left = 741, ;
|
||||
Name = "Cmd_executa2", ;
|
||||
TabIndex = 21, ;
|
||||
TabIndex = 28, ;
|
||||
Top = 373, ;
|
||||
Width = 140, ;
|
||||
ZOrderSet = 12
|
||||
@@ -9847,7 +9859,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ADD OBJECT 'grdDetaliiFacturi' AS _grdbase WITH ;
|
||||
Anchor = 15, ;
|
||||
BackColor = 255,255,255, ;
|
||||
ColumnCount = 25, ;
|
||||
ColumnCount = 28, ;
|
||||
DeleteMark = .F., ;
|
||||
FontName = "Arial", ;
|
||||
FontSize = 10, ;
|
||||
@@ -10082,7 +10094,31 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Column25.Name = "cDistribuie", ;
|
||||
Column25.ReadOnly = .F., ;
|
||||
Column25.Sparse = .F., ;
|
||||
Column25.Width = 57
|
||||
Column25.Width = 57, ;
|
||||
Column26.BackColor = 255,255,255, ;
|
||||
Column26.ColumnOrder = 26, ;
|
||||
Column26.ControlSource = "crsDetaliiFacturi.explicatia", ;
|
||||
Column26.FontName = "Arial", ;
|
||||
Column26.FontSize = 10, ;
|
||||
Column26.Name = "cExplicatia", ;
|
||||
Column26.ReadOnly = .F., ;
|
||||
Column26.Width = 120, ;
|
||||
Column27.BackColor = 255,255,255, ;
|
||||
Column27.ColumnOrder = 27, ;
|
||||
Column27.ControlSource = "crsDetaliiFacturi.explicatia4", ;
|
||||
Column27.FontName = "Arial", ;
|
||||
Column27.FontSize = 10, ;
|
||||
Column27.Name = "cExplicatia4", ;
|
||||
Column27.ReadOnly = .F., ;
|
||||
Column27.Width = 120, ;
|
||||
Column28.BackColor = 255,255,255, ;
|
||||
Column28.ColumnOrder = 28, ;
|
||||
Column28.ControlSource = "crsDetaliiFacturi.explicatia5", ;
|
||||
Column28.FontName = "Arial", ;
|
||||
Column28.FontSize = 10, ;
|
||||
Column28.Name = "cExplicatia5", ;
|
||||
Column28.ReadOnly = .F., ;
|
||||
Column28.Width = 120
|
||||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'grdDetaliiFacturi.cAcont.Header1' AS header WITH ;
|
||||
@@ -10363,6 +10399,60 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
SelectedBackColor = 100,185,255
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdDetaliiFacturi.cExplicatia.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Explicatia", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdDetaliiFacturi.cExplicatia.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 'grdDetaliiFacturi.cExplicatia4.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Explicatia 4", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdDetaliiFacturi.cExplicatia4.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 'grdDetaliiFacturi.cExplicatia5.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Explicatia 5", ;
|
||||
FontSize = 10, ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdDetaliiFacturi.cExplicatia5.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 'grdDetaliiFacturi.cGestiune._combobox1' AS _combobox WITH ;
|
||||
BorderStyle = 0, ;
|
||||
BoundColumn = 2, ;
|
||||
@@ -11470,6 +11560,24 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ZOrderSet = 17
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lblExplicatia4' AS _label WITH ;
|
||||
Anchor = 0, ;
|
||||
Caption = "Expl. 4", ;
|
||||
Left = 185, ;
|
||||
Name = "lblExplicatia4", ;
|
||||
Top = 471, ;
|
||||
ZOrderSet = 52
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lblExplicatia5' AS _label WITH ;
|
||||
Anchor = 0, ;
|
||||
Caption = "Expl. 5", ;
|
||||
Left = 356, ;
|
||||
Name = "lblExplicatia5", ;
|
||||
Top = 471, ;
|
||||
ZOrderSet = 53
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lblGrupRegistru' AS _label WITH ;
|
||||
Anchor = 0, ;
|
||||
Caption = "Registru TVA", ;
|
||||
@@ -11566,7 +11674,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Height = 23, ;
|
||||
Left = 300, ;
|
||||
Name = "txtAcont", ;
|
||||
TabIndex = 12, ;
|
||||
TabIndex = 14, ;
|
||||
Top = 397, ;
|
||||
Width = 47, ;
|
||||
ZOrderSet = 27
|
||||
@@ -11579,7 +11687,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 445, ;
|
||||
Name = "txtCodFiscal", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 7, ;
|
||||
TabIndex = 9, ;
|
||||
ToolTipText = "Cod fiscal. Dublu click pentru alegere partener", ;
|
||||
Top = 373, ;
|
||||
Width = 108, ;
|
||||
@@ -11593,7 +11701,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Height = 23, ;
|
||||
Left = 239, ;
|
||||
Name = "txtCont", ;
|
||||
TabIndex = 11, ;
|
||||
TabIndex = 13, ;
|
||||
ToolTipText = "Dublu click pentru alegere cont", ;
|
||||
Top = 397, ;
|
||||
Width = 55, ;
|
||||
@@ -11607,7 +11715,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 239, ;
|
||||
Name = "txtContract", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 18, ;
|
||||
TabIndex = 20, ;
|
||||
ToolTipText = "Dublu click pentru alegere contract", ;
|
||||
Top = 446, ;
|
||||
Width = 109, ;
|
||||
@@ -11621,7 +11729,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Height = 23, ;
|
||||
Left = 584, ;
|
||||
Name = "txtCurs", ;
|
||||
TabIndex = 14, ;
|
||||
TabIndex = 16, ;
|
||||
Top = 397, ;
|
||||
Width = 61, ;
|
||||
ZOrderSet = 27
|
||||
@@ -11662,11 +11770,39 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Name = "txtExplicatia", ;
|
||||
TabIndex = 5, ;
|
||||
ToolTipText = "Explicatia din Registrul Jurnal", ;
|
||||
Top = 469, ;
|
||||
Width = 165, ;
|
||||
Top = 470, ;
|
||||
Width = 100, ;
|
||||
ZOrderSet = 27
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtExplicatia4' AS _textbox WITH ;
|
||||
Anchor = 0, ;
|
||||
ControlSource = "crsFacturi.explicatia4ROA", ;
|
||||
Format = "!K", ;
|
||||
Height = 23, ;
|
||||
Left = 239, ;
|
||||
Name = "txtExplicatia4", ;
|
||||
TabIndex = 6, ;
|
||||
ToolTipText = "Explicatia 2 din Registrul Jurnal", ;
|
||||
Top = 470, ;
|
||||
Width = 109, ;
|
||||
ZOrderSet = 50
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtExplicatia5' AS _textbox WITH ;
|
||||
Anchor = 0, ;
|
||||
ControlSource = "crsFacturi.explicatia5ROA", ;
|
||||
Format = "!K", ;
|
||||
Height = 23, ;
|
||||
Left = 410, ;
|
||||
Name = "txtExplicatia5", ;
|
||||
TabIndex = 7, ;
|
||||
ToolTipText = "Explicatia 3 din Registrul Jurnal", ;
|
||||
Top = 470, ;
|
||||
Width = 109, ;
|
||||
ZOrderSet = 51
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'txtLucrare' AS _textbox WITH ;
|
||||
Anchor = 0, ;
|
||||
ControlSource = "crsFacturi.nrord", ;
|
||||
@@ -11674,7 +11810,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 239, ;
|
||||
Name = "txtLucrare", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 15, ;
|
||||
TabIndex = 17, ;
|
||||
ToolTipText = "Dublu click pentru alegere lucrare", ;
|
||||
Top = 421, ;
|
||||
Width = 109, ;
|
||||
@@ -11700,7 +11836,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 239, ;
|
||||
Name = "txtPartener", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 6, ;
|
||||
TabIndex = 8, ;
|
||||
ToolTipText = "Dublu click pentru alegere partener", ;
|
||||
Top = 373, ;
|
||||
Width = 203, ;
|
||||
@@ -11714,7 +11850,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 584, ;
|
||||
Name = "txtResponsabil", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 17, ;
|
||||
TabIndex = 19, ;
|
||||
ToolTipText = "Dublu click pentru alegere Responsabil", ;
|
||||
Top = 421, ;
|
||||
Width = 109, ;
|
||||
@@ -11728,7 +11864,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 410, ;
|
||||
Name = "txtSectie", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 16, ;
|
||||
TabIndex = 18, ;
|
||||
ToolTipText = "Dublu click pentru alegere sectie", ;
|
||||
Top = 421, ;
|
||||
Width = 109, ;
|
||||
@@ -11755,7 +11891,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 410, ;
|
||||
Name = "txtValuta", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 13, ;
|
||||
TabIndex = 15, ;
|
||||
Top = 397, ;
|
||||
Width = 45, ;
|
||||
ZOrderSet = 25
|
||||
@@ -11768,7 +11904,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Left = 410, ;
|
||||
Name = "txtVenChelt", ;
|
||||
ReadOnly = .T., ;
|
||||
TabIndex = 19, ;
|
||||
TabIndex = 21, ;
|
||||
ToolTipText = "Dublu click pentru alegere Tip venit/cheltuiala", ;
|
||||
Top = 446, ;
|
||||
Width = 109, ;
|
||||
@@ -11891,7 +12027,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE ActualizeazaRandImportat
|
||||
PROCEDURE actualizeazarandimportat
|
||||
* reciteste jtotctva/diferenta din Registrul TVA pentru factura, fara sa mute pozitia curenta din crsFacturi
|
||||
LPARAMETERS tnIdEfactura
|
||||
LOCAL lcView, lcSql, llSucces, lnSelect
|
||||
@@ -11976,11 +12112,14 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE aplicafiltrudecompletat
|
||||
*!* tlGoTop: .T. cand utilizatorul schimba o bifa de filtru - lista porneste de sus, nu ramane pe randul curent
|
||||
LPARAMETERS tlGoTop
|
||||
IF !USED('crsFacturi')
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
LOCAL lcFiltru, lnIdCurent
|
||||
LOCAL lcFiltru, lnIdCurent, llGoTop
|
||||
llGoTop = (Vartype(m.tlGoTop) = 'L' And m.tlGoTop)
|
||||
lnIdCurent = 0
|
||||
SELECT crsFacturi
|
||||
IF !EOF()
|
||||
@@ -12002,11 +12141,13 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
SET FILTER TO
|
||||
ENDIF
|
||||
|
||||
IF m.lnIdCurent <> 0
|
||||
LOCATE FOR id = m.lnIdCurent
|
||||
ENDIF
|
||||
IF m.lnIdCurent = 0 OR !FOUND()
|
||||
IF m.llGoTop OR m.lnIdCurent = 0
|
||||
GO TOP
|
||||
ELSE
|
||||
LOCATE FOR id = m.lnIdCurent
|
||||
IF !FOUND()
|
||||
GO TOP
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
Thisform.grdFacturi.Refresh()
|
||||
@@ -12606,7 +12747,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
|
||||
PROCEDURE do_coada
|
||||
* Coada ghidata de contabilizare: proceseaza facturile bifate si eligibile, una dupa alta, prin do_executa
|
||||
LOCAL loCoada, lnTotal, lnCurent, lnRuta, llSucces, lcMotivEsec, lnIdEfactura, lnIdFactInainte, lnIdFactDupa, lcCaptionOriginal, lnAltGrid
|
||||
LOCAL loCoada, lnTotal, lnCurent, lnRuta, llSucces, lcMotivEsec, lnIdEfactura, lnIdFactInainte, lnIdFactDupa, lcCaptionOriginal
|
||||
LOCAL ARRAY laRecnos[1]
|
||||
PRIVATE pnIdEfactura
|
||||
|
||||
@@ -12667,13 +12808,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Thisform.lblCoadaAntet.Refresh()
|
||||
Thisform.cAntetLot = '[' + Alltrim(Str(m.lnCurent)) + '/' + Alltrim(Str(m.lnTotal)) + '] ' + Alltrim(Nvl(crsFacturi.xfurnizor,'')) + ' ' + Alltrim(Nvl(crsFacturi.numar_act,'')) + ' - '
|
||||
_screen.Caption = lcCaptionOriginal + ' - ' + Alltrim(Thisform.lblCoadaAntet.Caption)
|
||||
Thisform.LockScreen = .T.
|
||||
lnAltGrid = Thisform.grdFacturi.Height
|
||||
Thisform.grdFacturi.Height = Thisform.grdFacturi.HeaderHeight + 6 * Thisform.grdFacturi.RowHeight
|
||||
Thisform.grdFacturi.Refresh()
|
||||
Thisform.grdFacturi.Height = m.lnAltGrid
|
||||
Thisform.grdFacturi.Refresh()
|
||||
Thisform.LockScreen = .F.
|
||||
Thisform.PozitioneazaListaSubImport()
|
||||
|
||||
Thisform.CompleteazaFactura()
|
||||
SELECT crsFacturi
|
||||
@@ -12915,8 +13050,9 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
|
||||
PROCEDURE do_import
|
||||
* un singur buton de import: coada de contabilizare cand exista facturi bifate, altfel doar factura curenta
|
||||
Local loCoadaImp, loContorImp, lnBifateImp
|
||||
Local loCoadaImp, loContorImp, lnBifateImp, lnIdCurentImp
|
||||
This.actualizeazalipsurirandcurent()
|
||||
lnIdCurentImp = Iif(Used('crsFacturi'), Nvl(crsFacturi.Id, 0), 0)
|
||||
lnBifateImp = 0
|
||||
If This.lLotActiv
|
||||
SELECT crsFacturi
|
||||
@@ -12932,6 +13068,15 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
This.do_executa()
|
||||
Endif
|
||||
This.do_cauta()
|
||||
*!* do_cauta reface cursorul, deci lista sare pe primul rand: repun randul de la care s-a pornit importul
|
||||
If m.lnIdCurentImp <> 0 And Used('crsFacturi')
|
||||
Select crsFacturi
|
||||
Locate For Id = m.lnIdCurentImp
|
||||
If !Found()
|
||||
Go Top
|
||||
Endif
|
||||
Thisform.grdFacturi.Refresh()
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_listare
|
||||
@@ -13160,7 +13305,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Local lcXMLFacturaDetalii, llAcont, llCalcTVA, llCursorCreat, llPlata, llPrimite, llSucces
|
||||
Local lnTVAIncasare, llTaxareInversa, lnDeducere, lnDiscountFaraTVA, lnIdJtva, lnIdSet, lnInValuta, lnTaxeFaraTVA
|
||||
Local lnTotalCuTVA, lnTotalFaraTVA, lnTotalTVA, lnTotaldePlata, lnValoareFaraTVA, loFactura, lnTotalFaraTVA, lnTotalTVA
|
||||
Local lcCont, lcAcont, loRec
|
||||
Local lcCont, lcAcont, loRec, lcExplicatia4, lcExplicatia5
|
||||
Local lcContTVA, lcTitlu, lnPTVA
|
||||
Local lcContCredit, lcContDebit, lcFiltru
|
||||
Local lcScc, lcScd, lnCurs, lnIdValuta, lnIdEfactura, llDistribuieArticole
|
||||
@@ -13206,6 +13351,8 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
lnTaxeFaraTVA = Nvl(loFactura.taxe_fara_tva, 0) && taxe la nivelul facturii
|
||||
llDistribuieDiscountTaxe = This.chkDistribuieDiscount.Value and (m.lnDiscountFaraTVA <> 0 or m.lnTaxeFaraTVA <> 0)
|
||||
lcExplicatia = ALLTRIM(LEFT(loFactura.explicatiaROA, 100))
|
||||
lcExplicatia4 = Alltrim(Left(Nvl(loFactura.explicatia4ROA, ''), 100))
|
||||
lcExplicatia5 = Alltrim(Left(Nvl(loFactura.explicatia5ROA, ''), 100))
|
||||
|
||||
* Verific daca exista bife pe articole sa distribui valoarea pe restul articolelor (discount-uri, taxe)
|
||||
SELECT crsDetaliiFacturi
|
||||
@@ -13347,7 +13494,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
id_fdoc WITH thisform.nIdFdoc, fdoc WITH thisform.cFdoc, id_sectie WITH loFactura.id_Sectie, sectie WITH loFactura.sectie, ;
|
||||
nrord WITH loFactura.nrord, id_lucrare WITH loFactura.id_Lucrare, contract WITH loFactura.contract, id_ctr WITH loFactura.id_ctr,;
|
||||
dst_chlt WITH loFactura.dst_chlt, id_venchelt WITH loFactura.id_Venchelt, nresp WITH loFactura.nresp, id_responsabil WITH loFactura.id_responsabil, ;
|
||||
explicatia with m.lcExplicatia, scd WITH m.lcScd, scc WITH m.lcScc
|
||||
explicatia with m.lcExplicatia, scd WITH m.lcScd, scc WITH m.lcScc, explicatia4 with m.lcExplicatia4, explicatia5 with m.lcExplicatia5
|
||||
* Nu completez explicatia cu denumirea primului articol pentru ca se completeaza si pe nota de TVA. Nu doresc explicatii completate in nota contabila.
|
||||
|
||||
If m.llPrimite
|
||||
@@ -13363,9 +13510,12 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
CAST(0 As I) As id_jtax, Space(200) As denumiretax, ;
|
||||
m.lcTipJ As tipjurnal, Cast(Null As I) As taxcode, Cast(Null As C(5)) As paymentcode, ;
|
||||
SUM(ValoareFaraTVA) As ValoareFaraTVA, ;
|
||||
CAST(0 As N(16,4)) As suma, Cast(0 As N(16,4)) As suma_val, Cast(0 As N(5)) As id_valuta, Cast('' As C(5)) As nume_val, Cast(0 As N(16,4)) As Curs, discount ;
|
||||
CAST(0 As N(16,4)) As suma, Cast(0 As N(16,4)) As suma_val, Cast(0 As N(5)) As id_valuta, Cast('' As C(5)) As nume_val, Cast(0 As N(16,4)) As Curs, discount, ;
|
||||
Max(Upper(Nvl(explicatia, Space(100)))) As expl_art, ;
|
||||
Max(Upper(Nvl(explicatia4, Space(100)))) As expl4_art, ;
|
||||
Max(Upper(Nvl(explicatia5, Space(100)))) As expl5_art ;
|
||||
from crsDetaliiFacturiTemp ;
|
||||
group By scd, ascd, scc, ascc, proctva, tiptva, discount ;
|
||||
group By scd, ascd, scc, ascc, proctva, tiptva, discount, explicatia, explicatia4, explicatia5 ;
|
||||
INTO Cursor cnote_contabile Readwrite
|
||||
|
||||
IF m.lnDeducere = 1 AND NVL(goCalendar.impozit_profit,0) = 1 && Deducere 50% cheltuieli si TVA pentru Platitorii de Impozit pe Profit
|
||||
@@ -13480,7 +13630,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
CREATE CURSOR xcont (contPart C(4), idPart N(10) NULL, numePart V(250))
|
||||
INSERT INTO xcont (contpart, idpart, numepart) VALUES (m.lcCont, loFactura.IdPartROA, loFactura.PartenerROA)
|
||||
|
||||
lnTopLot = Iif(Empty(Thisform.cAntetLot), 0, Iif(Thisform.WindowState = 2, 0, Thisform.Top) + Thisform.grdFacturi.Top + Thisform.grdFacturi.HeaderHeight + 6 * Thisform.grdFacturi.RowHeight)
|
||||
lnTopLot = Thisform.PozitioneazaListaSubImport()
|
||||
DO introducere_compacta WITH 'achi_mat',lcContDebit, m.lcContCredit,m.llCalcTVA, m.llPlata, m.lcTitlu,m.lcContTVA,m.lnIdSet, m.llAcont, m.lnDeducere, m.llCursorCreat, m.lnTotalCuTVA, m.lnTopLot
|
||||
|
||||
|
||||
@@ -13512,6 +13662,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Local lnTotalTVA, loJtva, loTotal, loRec, lnIdEfactura
|
||||
Local lcContDiscount, lcDetalii, lcXmlDisc, llDistribuieDiscountTaxe, lnDiscount, lnDiscountFaraTVA
|
||||
Local lnPret, lnProcTVA, lnProcent, lnValoareArticol, lnValoareFaraTVA, loFactParse, lcContTaxe, llDistribuieArticole
|
||||
Local lcExplicatia4, lcExplicatia5
|
||||
|
||||
LOCAL lcMesaj, lcMesajTemp, lcRaspuns
|
||||
lcMesaj = ''
|
||||
@@ -13552,6 +13703,8 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
lnTaxeFaraTVA = Nvl(loFactura.taxe_fara_tva, 0) && taxe la nivelul facturii
|
||||
llDistribuieDiscountTaxe = This.chkDistribuieDiscount.Value and (m.lnDiscountFaraTVA <> 0 or m.lnTaxeFaraTVA <> 0)
|
||||
lcExplicatia = Alltrim(LEFT(loFactura.explicatiaROA, 100))
|
||||
lcExplicatia4 = Alltrim(Left(Nvl(loFactura.explicatia4ROA, ''), 100))
|
||||
lcExplicatia5 = Alltrim(Left(Nvl(loFactura.explicatia5ROA, ''), 100))
|
||||
|
||||
* Verific daca exista bife pe articole sa distribui valoarea pe restul articolelor (discount-uri, taxe)
|
||||
SELECT crsDetaliiFacturi
|
||||
@@ -13880,7 +14033,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
* CONTABILITATE
|
||||
*************************************
|
||||
* tip 1 = baza, 2 = TVA, 3 = adaos comercial marfa 371
|
||||
Select 1 As tip, Cast(0 As N(5)) As id_note, Max(Upper(articol)) As explicatia, ;
|
||||
Select 1 As tip, Cast(0 As N(5)) As id_note, Max(Upper(Nvl(explicatia, ''))) As explicatia, Max(Upper(Nvl(explicatia4, ''))) As explicatia4, Max(Upper(Nvl(explicatia5, ''))) As explicatia5, ;
|
||||
scd, ascd, scc, ascc, m.lnIdSet As id_set, Cast(0 As I) As ordine, m.lnInValuta As in_valuta, 1 As cu_tva, proctva As ptva, 1 + Round(proctva/100,2) As proc_tva, tiptva, ;
|
||||
CAST(0 As I) As id_jtax, Space(50) As denumiretax, ;
|
||||
CAST(0 As I) As id_jtva_coloana , Space(50) As explicatie_Tva , ;
|
||||
@@ -13889,9 +14042,9 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
CAST(0 As N(16,4)) As suma, Cast(0 As N(16,4)) As suma_val, Cast(0 As N(5)) As id_valuta, Cast('' As C(5)) As nume_val, Cast(0 As N(16,4)) As Curs, ;
|
||||
id_gestiune As id_gestin, Space(100) As gestin, lnNnir As nnir, discount ;
|
||||
from crsDetaliiFacturiTemp ;
|
||||
group By proctva, tiptva, scd, ascd, scc, ascc, id_gestiune, discount ;
|
||||
group By proctva, tiptva, scd, ascd, scc, ascc, id_gestiune, discount, explicatia, explicatia4, explicatia5 ;
|
||||
UNION ;
|
||||
Select 2 As tip, Cast(0 As N(5)) As id_note, Max(Upper(articol)) As explicatia, ;
|
||||
Select 2 As tip, Cast(0 As N(5)) As id_note, Max(Upper(Nvl(explicatia, ''))) As explicatia, Max(Upper(Nvl(explicatia4, ''))) As explicatia4, Max(Upper(Nvl(explicatia5, ''))) As explicatia5, ;
|
||||
scd2 As scd, ascd2 As ascd, scc2 As scc, ascc2 As ascc, m.lnIdSet As id_set, Cast(0 As I) As ordine, m.lnInValuta As in_valuta, 1 As cu_tva, proctva As ptva, 1 + Round(proctva/100,2) As proc_tva, tiptva, ;
|
||||
CAST(0 As I) As id_jtax, Space(50) As denumiretax, ;
|
||||
CAST(0 As I) As id_jtva_coloana , Space(50) As explicatie_Tva , ;
|
||||
@@ -13900,9 +14053,9 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
CAST(0 As N(16,4)) As suma, Cast(0 As N(16,4)) As suma_val, Cast(0 As N(5)) As id_valuta, Cast('' As C(5)) As nume_val, Cast(0 As N(16,4)) As Curs, ;
|
||||
id_gestiune As id_gestin, Space(100) As gestin, lnNnir As nnir, discount ;
|
||||
from crsDetaliiFacturiTemp ;
|
||||
group By proctva, tiptva, scd2, ascd2, scc2, ascc2, id_gestiune, discount ;
|
||||
group By proctva, tiptva, scd2, ascd2, scc2, ascc2, id_gestiune, discount, explicatia, explicatia4, explicatia5 ;
|
||||
UNION ;
|
||||
Select 3 As tip, Cast(0 As N(5)) As id_note, 'VALOARE ADAOS FARA TVA' As explicatia, ;
|
||||
Select 3 As tip, Cast(0 As N(5)) As id_note, Space(100) As explicatia, Space(100) As explicatia4, Space(100) As explicatia5, ;
|
||||
cont As scd, acont As ascd, '378 ' As scc, Space(4) As ascc, m.lnIdSet As id_set, Cast(0 As I) As ordine, m.lnInValuta As in_valuta, 0 As cu_tva, proc_tvav As ptva, proc_tvav As proc_tva, ' ' as tiptva, ;
|
||||
CAST(0 As I) As id_jtax, Space(50) As denumiretax, ;
|
||||
CAST(0 As I) As id_jtva_coloana , Space(50) As explicatie_Tva , ;
|
||||
@@ -13914,7 +14067,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
WHERE Cont = '371' And valoare_adaos <> 0 ;
|
||||
group By Cont, acont, proc_tvav, id_gestiune ;
|
||||
UNION ;
|
||||
Select 4 As tip, Cast(0 As N(5)) As id_note, 'VALOARE TVA ADAOS' As explicatia, ;
|
||||
Select 4 As tip, Cast(0 As N(5)) As id_note, Space(100) As explicatia, Space(100) As explicatia4, Space(100) As explicatia5, ;
|
||||
cont As scd, acont As ascd, '4428' As scc, Space(4) As ascc, m.lnIdSet As id_set, Cast(0 As I) As ordine, m.lnInValuta As in_valuta, 0 As cu_tva, proc_tvav As ptva, proc_tvav As proc_tva, ' ' as tiptva, ;
|
||||
CAST(0 As I) As id_jtax, Space(50) As denumiretax, ;
|
||||
CAST(0 As I) As id_jtva_coloana , Space(50) As explicatie_Tva , ;
|
||||
@@ -13925,7 +14078,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
from trul ;
|
||||
WHERE Cont = '371' And valoare_adaos <> 0 ;
|
||||
group By Cont, acont, proc_tvav, id_gestiune ;
|
||||
ORDER By 1, 11, 4, 6 ;
|
||||
ORDER By 1, 13, 6, 8 ;
|
||||
INTO Cursor cnote_contabile Readwrite
|
||||
* ordonat dupa tip, procent tva, scd, scc
|
||||
|
||||
@@ -14080,7 +14233,9 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
nrord With loFactura.nrord, id_lucrare With loFactura.id_lucrare, contract With loFactura.contract, id_ctr With loFactura.id_ctr,;
|
||||
dst_chlt With loFactura.dst_chlt, id_venchelt With loFactura.id_venchelt, nresp With loFactura.nresp, id_responsabil With loFactura.id_responsabil
|
||||
|
||||
Update tact Set explicatia = m.lcExplicatia && nu doresc explicatia primul articol pe baza, tva, discount
|
||||
Update tact Set explicatia = m.lcExplicatia Where Empty(Nvl(explicatia, '')) && nu doresc explicatia primul articol pe baza, tva, discount
|
||||
Update tact Set explicatia4 = m.lcExplicatia4 Where Empty(Nvl(explicatia4, ''))
|
||||
Update tact Set explicatia5 = m.lcExplicatia5 Where Empty(Nvl(explicatia5, ''))
|
||||
|
||||
Update tact Set id_partc = loFactura.IdPartROA, partc = loFactura.PartenerROA Where scc = m.lcCont
|
||||
Update tact Set id_partd = loFactura.IdPartROA, partd = loFactura.PartenerROA Where scd = m.lcCont
|
||||
@@ -14104,7 +14259,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
Omodif = Createobject([frm_modific2024], m.lnIdSet)
|
||||
Omodif.Lb_titlu_alb_b121.Caption = m.lcTitlu
|
||||
*!* DO FORM frm_modific2024 NAME omodif LINKED WITH m.lnIdSet NOSHOW
|
||||
lnTopLot = Iif(Empty(Thisform.cAntetLot), 0, Iif(Thisform.WindowState = 2, 0, Thisform.Top) + Thisform.grdFacturi.Top + Thisform.grdFacturi.HeaderHeight + 6 * Thisform.grdFacturi.RowHeight)
|
||||
lnTopLot = Thisform.PozitioneazaListaSubImport()
|
||||
Omodif.Show(1, .F., m.lnTopLot)
|
||||
|
||||
If m.gnButon=1
|
||||
@@ -14511,6 +14666,19 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
This.chkLipsaRegistru.Caption = ALLTRIM(IIF(EMPTY(NVL(This.chkLipsaRegistru.Tag,'')), This.chkLipsaRegistru.Caption, This.chkLipsaRegistru.Tag)) + IIF(m.lnLipsa > 0, ' (' + ALLTRIM(STR(m.lnLipsa)) + ')', '')
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE pozitioneazalistasubimport
|
||||
*!* deruleaza randul curent in primele randuri vizibile si intoarce top-ul de sub ele, ca formularul de import sa nu-l acopere
|
||||
Local lnAltGrid
|
||||
Thisform.LockScreen = .T.
|
||||
lnAltGrid = Thisform.grdFacturi.Height
|
||||
Thisform.grdFacturi.Height = Thisform.grdFacturi.HeaderHeight + 6 * Thisform.grdFacturi.RowHeight
|
||||
Thisform.grdFacturi.Refresh()
|
||||
Thisform.grdFacturi.Height = m.lnAltGrid
|
||||
Thisform.grdFacturi.Refresh()
|
||||
Thisform.LockScreen = .F.
|
||||
Return Iif(Thisform.WindowState = 2, 0, Thisform.Top) + Thisform.grdFacturi.Top + Thisform.grdFacturi.HeaderHeight + 6 * Thisform.grdFacturi.RowHeight
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE scrienote
|
||||
ENDPROC
|
||||
|
||||
@@ -14628,11 +14796,11 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE chkCuGestiune.Valid
|
||||
Thisform.AplicaFiltruDeCompletat()
|
||||
Thisform.AplicaFiltruDeCompletat(.T.)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE chkDeCompletat.Valid
|
||||
Thisform.AplicaFiltruDeCompletat()
|
||||
Thisform.AplicaFiltruDeCompletat(.T.)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE chkDiferente.Valid
|
||||
|
||||
Reference in New Issue
Block a user