Files
comun/ferestre/verificare.sc2

1354 lines
40 KiB
Plaintext

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="verificare.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _frmbase12 AS _frmbase OF "..\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Header9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column25.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column25.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column26.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column26.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column27.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column27.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column28.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column28.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column29.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column29.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column30.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column30.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column31.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column31.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column32.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column32.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column33.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column33.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column34.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column34.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column23.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column23.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column24.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column24.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_precedent1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: lcompletare_partener
*p: lnuverificcont
*p: lverificaacont
*</DefinedPropArrayMethod>
*<PropValue>
DataSession = 1
DoCreate = .T.
Height = 329
lcompletare_partener = .T.
lnuverificcont = .F.
lverificaacont = .T.
Name = "_frmbase12"
Width = 667
WindowType = 1
_SHAPE1.Anchor = 10
_SHAPE1.Height = 30
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = -1
_SHAPE1.Width = 673
_SHAPE1.ZOrderSet = 1
_SHAPE2.Height = 29
_SHAPE2.Left = 568
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 99
_SHAPE2.ZOrderSet = 0
LB_TITLU_ALB_B121.Caption = "VERIFICAREA SETULUI DE NOTE CONTABILE"
LB_TITLU_ALB_B121.FontSize = 10
LB_TITLU_ALB_B121.Left = 6
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.Top = 2
LB_TITLU_ALB_B121.ZOrderSet = 4
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 635
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 8
GRIDSORT1.Left = 24
GRIDSORT1.Name = "GRIDSORT1"
GRIDSORT1.Top = 72
*</PropValue>
ADD OBJECT 'But_precedent1' AS but_precedent WITH ;
Anchor = 8, ;
Left = 575, ;
Name = "But_precedent1", ;
Top = 1, ;
Visible = .F., ;
ZOrderSet = 6
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Anchor = 8, ;
Left = 605, ;
Name = "BUT_RENUNT1", ;
Top = 1, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Grid1' AS grid WITH ;
Anchor = 15, ;
BackColor = 255,255,255, ;
ColumnCount = 34, ;
DeleteMark = .F., ;
FontSize = 10, ;
GridLineColor = 192,192,192, ;
GridLines = 3, ;
Height = 299, ;
Left = 1, ;
Name = "Grid1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "ACTACTAN", ;
RowHeight = 19, ;
TabIndex = 5, ;
Top = 30, ;
Width = 667, ;
ZOrderSet = 2, ;
Column1.Alignment = 1, ;
Column1.BackColor = 255,255,255, ;
Column1.ControlSource = "NRCRT()", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 34, ;
Column2.Alignment = 1, ;
Column2.BackColor = 255,255,255, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "DATAIREG", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 67, ;
Column3.Alignment = 0, ;
Column3.BackColor = 255,255,255, ;
Column3.ColumnOrder = 2, ;
Column3.ControlSource = "FDOC", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 96, ;
Column4.Alignment = 1, ;
Column4.BackColor = 255,255,255, ;
Column4.ColumnOrder = 4, ;
Column4.ControlSource = "DATAACT", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .T., ;
Column4.Width = 79, ;
Column5.Alignment = 1, ;
Column5.BackColor = 255,255,255, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "NRACT", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Width = 112, ;
Column6.Alignment = 0, ;
Column6.BackColor = 255,255,255, ;
Column6.ColumnOrder = 12, ;
Column6.ControlSource = "partd", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.Name = "Column6", ;
Column6.ReadOnly = .T., ;
Column6.Width = 125, ;
Column7.Alignment = 1, ;
Column7.BackColor = 255,255,255, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "SCD", ;
Column7.DynamicForeColor = "rgb(0,0,128)", ;
Column7.FontBold = .F., ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.ForeColor = 0,0,128, ;
Column7.Name = "Column7", ;
Column7.ReadOnly = .T., ;
Column7.Width = 62, ;
Column8.Alignment = 1, ;
Column8.BackColor = 255,255,255, ;
Column8.ColumnOrder = 10, ;
Column8.ControlSource = "SCC", ;
Column8.DynamicForeColor = "rgb(0,0,128)", ;
Column8.FontBold = .F., ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.Name = "Column8", ;
Column8.ReadOnly = .T., ;
Column8.Width = 66, ;
Column9.Alignment = 1, ;
Column9.BackColor = 255,255,255, ;
Column9.ColumnOrder = 7, ;
Column9.ControlSource = "SUMA", ;
Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column9.FontBold = .F., ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.Format = "r", ;
Column9.InputMask = (get_mask(12,gnPc)), ;
Column9.Name = "Column9", ;
Column9.ReadOnly = .T., ;
Column9.Width = 108, ;
Column10.Alignment = 0, ;
Column10.BackColor = 255,255,255, ;
Column10.ColumnOrder = 13, ;
Column10.ControlSource = "partc", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Name = "Column10", ;
Column10.ReadOnly = .T., ;
Column10.Width = 137, ;
Column11.Alignment = 0, ;
Column11.BackColor = 255,255,255, ;
Column11.ColumnOrder = 14, ;
Column11.ControlSource = "EXPLICATIA", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Name = "Column11", ;
Column11.ReadOnly = .T., ;
Column11.Width = 137, ;
Column12.BackColor = 255,255,255, ;
Column12.ColumnOrder = 22, ;
Column12.ControlSource = "gestout", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column12.Width = 92, ;
Column13.BackColor = 255,255,255, ;
Column13.ColumnOrder = 18, ;
Column13.ControlSource = "pereched", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.Name = "Column13", ;
Column13.ReadOnly = .T., ;
Column13.Width = 92, ;
Column14.BackColor = 255,255,255, ;
Column14.ColumnOrder = 28, ;
Column14.ControlSource = "explicatia4", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.Name = "Column14", ;
Column14.ReadOnly = .T., ;
Column14.Width = 72, ;
Column15.BackColor = 255,255,255, ;
Column15.ColumnOrder = 23, ;
Column15.ControlSource = "suma_val", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.Format = "r", ;
Column15.InputMask = (get_mask(12,gnPVal)), ;
Column15.Name = "Column16", ;
Column15.ReadOnly = .T., ;
Column15.Width = 79, ;
Column16.BackColor = 255,255,255, ;
Column16.ColumnOrder = 24, ;
Column16.ControlSource = "curs", ;
Column16.FontName = "Arial", ;
Column16.FontSize = 10, ;
Column16.Format = "r", ;
Column16.InputMask = (get_mask(12,gnPcurs)), ;
Column16.Name = "Column17", ;
Column16.ReadOnly = .T., ;
Column16.Width = 70, ;
Column17.BackColor = 255,255,255, ;
Column17.ColumnOrder = 20, ;
Column17.ControlSource = "datascad", ;
Column17.FontName = "Arial", ;
Column17.FontSize = 10, ;
Column17.Name = "Column19", ;
Column17.ReadOnly = .T., ;
Column17.Visible = .T., ;
Column17.Width = 88, ;
Column18.BackColor = 255,255,255, ;
Column18.ColumnOrder = 29, ;
Column18.ControlSource = "explicatia5", ;
Column18.FontName = "Arial", ;
Column18.FontSize = 10, ;
Column18.Name = "Column20", ;
Column18.ReadOnly = .T., ;
Column18.Width = 72, ;
Column19.BackColor = 255,255,255, ;
Column19.ColumnOrder = 25, ;
Column19.ControlSource = "nresp", ;
Column19.FontName = "Arial", ;
Column19.FontSize = 10, ;
Column19.Name = "Column25", ;
Column19.ReadOnly = .T., ;
Column19.Width = 78, ;
Column20.BackColor = 255,255,255, ;
Column20.ColumnOrder = 26, ;
Column20.ControlSource = "dst_chlt", ;
Column20.FontName = "Arial", ;
Column20.FontSize = 10, ;
Column20.Name = "Column26", ;
Column20.ReadOnly = .T., ;
Column20.Width = 57, ;
Column21.BackColor = 255,255,255, ;
Column21.ColumnOrder = 15, ;
Column21.ControlSource = "nrord", ;
Column21.FontName = "Arial", ;
Column21.FontSize = 10, ;
Column21.Name = "Column27", ;
Column21.ReadOnly = .T., ;
Column21.Width = 106, ;
Column22.BackColor = 255,255,255, ;
Column22.ColumnOrder = 17, ;
Column22.ControlSource = "nnir", ;
Column22.FontName = "Arial", ;
Column22.FontSize = 10, ;
Column22.Name = "Column28", ;
Column22.ReadOnly = .T., ;
Column22.Width = 69, ;
Column23.BackColor = 255,255,255, ;
Column23.ColumnOrder = 27, ;
Column23.ControlSource = "sectie", ;
Column23.FontName = "Arial", ;
Column23.FontSize = 10, ;
Column23.Name = "Column29", ;
Column23.ReadOnly = .T., ;
Column23.Width = 41, ;
Column24.BackColor = 255,255,255, ;
Column24.ColumnOrder = 21, ;
Column24.ControlSource = "gestin", ;
Column24.FontName = "Arial", ;
Column24.FontSize = 10, ;
Column24.Name = "Column30", ;
Column24.ReadOnly = .T., ;
Column24.Width = 116, ;
Column25.BackColor = 242,255,255, ;
Column25.ColumnOrder = 9, ;
Column25.ControlSource = "ascd", ;
Column25.DynamicBackColor = "rgb(242,255,255)", ;
Column25.FontName = "Arial", ;
Column25.FontSize = 10, ;
Column25.Format = "r", ;
Column25.InputMask = "xxxx", ;
Column25.Name = "Column31", ;
Column25.ReadOnly = .F., ;
Column25.Width = 50, ;
Column26.BackColor = 242,255,255, ;
Column26.ColumnOrder = 11, ;
Column26.ControlSource = "ascc", ;
Column26.DynamicBackColor = "rgb(242,255,255)", ;
Column26.FontName = "Arial", ;
Column26.FontSize = 10, ;
Column26.Format = "r", ;
Column26.InputMask = "xxxx", ;
Column26.Name = "Column32", ;
Column26.ReadOnly = .F., ;
Column26.Width = 50, ;
Column27.BackColor = 255,255,255, ;
Column27.ColumnOrder = 31, ;
Column27.ControlSource = "proc_tva", ;
Column27.FontName = "Arial", ;
Column27.FontSize = 10, ;
Column27.Name = "Column33", ;
Column27.ReadOnly = .T., ;
Column27.Width = 60, ;
Column28.BackColor = 255,255,255, ;
Column28.ColumnOrder = 19, ;
Column28.ControlSource = "perechec", ;
Column28.FontName = "Arial", ;
Column28.FontSize = 10, ;
Column28.Name = "Column34", ;
Column28.ReadOnly = .T., ;
Column28.Width = 88, ;
Column29.BackColor = 255,255,255, ;
Column29.ColumnOrder = 30, ;
Column29.ControlSource = "sucursala", ;
Column29.FontName = "Arial", ;
Column29.FontSize = 10, ;
Column29.Name = "Column15", ;
Column29.ReadOnly = .T., ;
Column29.Width = 98, ;
Column30.BackColor = 255,255,255, ;
Column30.ColumnOrder = 16, ;
Column30.ControlSource = "contract", ;
Column30.FontName = "Arial", ;
Column30.FontSize = 10, ;
Column30.Name = "Column18", ;
Column30.ReadOnly = .T., ;
Column30.Width = 127, ;
Column31.BackColor = 255,255,255, ;
Column31.ColumnOrder = 5, ;
Column31.ControlSource = "serie_act", ;
Column31.FontName = "Arial", ;
Column31.FontSize = 10, ;
Column31.Name = "Column21", ;
Column31.ReadOnly = .T., ;
Column31.Width = 65, ;
Column32.BackColor = 255,255,255, ;
Column32.ControlSource = "explicatie_tva", ;
Column32.FontSize = 10, ;
Column32.Name = "Column22", ;
Column32.ReadOnly = .T., ;
Column32.Width = 124, ;
Column33.BackColor = 255,255,255, ;
Column33.ControlSource = "taxname", ;
Column33.FontSize = 10, ;
Column33.Name = "Column23", ;
Column33.ReadOnly = .T., ;
Column33.Width = 142, ;
Column34.BackColor = 255,255,255, ;
Column34.ControlSource = "paymentname", ;
Column34.FontSize = 10, ;
Column34.Name = "Column24", ;
Column34.ReadOnly = .T., ;
Column34.Width = 89
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "NrCrt", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie Credit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune sursa", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.doc.platit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 4", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.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.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma Valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadenta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
Alignment = 2, ;
Caption = "Data Inreg.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header2"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia 5", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column21.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.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie TVA", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column23.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Taxa SAFT", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column23.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column24.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod plata SAFT", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column24.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabili", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column25.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cheltuieli", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column26.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column27.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column28.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.NIR/Bon", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column28.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column29.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
Alignment = 2, ;
Caption = "Fel Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header3"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune destinatie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column30.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
Caption = "Analit.D", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column31.Text1' AS textbox WITH ;
BackColor = 242,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
Caption = "Analit.C", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
BackColor = 242,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column33.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cota TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column34.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.doc.incasat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column34.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
Alignment = 2, ;
Caption = "Data Doc", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header4"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header5"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie Debit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header6"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderColor = 0,0,0, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
Alignment = 2, ;
Caption = "Cont Deb.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header7"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
Alignment = 2, ;
Caption = "Cont Cred.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header8"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header9"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
Left = 408, ;
Name = "Gridextra1", ;
productname = ROA, ;
Top = 42
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
Caption = "CTRL+F = Terminare; ESC = Renuntare", ;
Left = 8, ;
Name = "Lb_shortcuts1", ;
Top = 16, ;
ZOrderSet = 5
*< END OBJECT: ClassLib="..\clase\lb.vcx" BaseClass="label" />
PROCEDURE inainte_de_do_termin
llRet = verificare_note_contabile('actactan', thisform.lverificaacont,thisform.lcompletare_partener, thisform.lNuverificcont)
*PARAMETERS tcAct,tlVerificAnalitic,tlAlegPartener
IF !llRet
thisform.gRID1.column7.text1.SetFocus
RETURN .f.
ENDIF
ENDPROC
PROCEDURE Init
Parameters tVerificAnalitic, tAlegPartener, tnButonIntoarcere, tlNuVerificCont
DoDefault()
If Pcount() > 0
Thisform.lverificaacont = tVerificAnalitic
Thisform.lNuVerificCont = tlNuVerificCont
Endif
If Pcount() > 1
Thisform.lcompletare_partener = tAlegPartener
Endif
If Pcount() > 2 And Type('tnButonIntoarcere') = 'N' And tnButonIntoarcere = 3
This.but_precedent1.Visible = .T.
*!* Else
*!* This._shAPE1.Width = This._shAPE1.Width + This.but_precedent1.Width
ENDIF
lnGridHeight = RECCOUNT('actactan') * this.griD1.RowHeight + this.grid1.HeaderHeight
lnFormHeight = m.lnGridHeight + this._sHAPE1.Height
thisform.Height = MAX(400, MIN(m.lnFormHeight, INT(_screen.Height*0.7)))
thisform.Width = INT(_screen.Width*0.7)
tHIS.AutoCenter = .T.
* SAFT
This.grID1.column23.Visible = m.gl406 && taxname
This.grID1.column24.Visible = m.gl406 && paymentname
Do nrord With 'actactan'
Select actactan
Go Top
This.griD1.AutoFit
This.griD1.SetFocus()
*!* modificare ROAGEST v 2.0.107
This.but_TERMIN1.SetFocus()
*!* modificare ROAGEST v 2.0.107 ^
this.gridextra1.setup()
ENDPROC
PROCEDURE Grid1.Column1.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column1.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column10.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column10.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column11.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column11.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column12.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column12.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column2.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column2.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column3.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column3.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column31.Text1.Click
this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.Column31.Text1.LostFocus
PARAMETERS PlClick
*!* Local llReturn, lcCont, lcAcont
*!* SELECT actactan
*!* lcCont = scd
*!* lcAcont = ascd
*!* llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','actactan') && in oOperatii_comune.prg
*!* 04.03.2013
*!* liana.neagu
*!* completez analiticul pentru toate aparitiile contului - la fel ca in actbaza2007
*!* 14.03.2013
*!* mutu marius
*!* nu pot sa completez acelasi analitic la toate aparitiile contului pentru ca e posibil sa trebuiasca analitice diferite si incurc utilizatorul
*!* Parameters PlClick
LOCAL lcCont, lcAcont, lnRecno, llReturn
Select actactan
lcCont = scd
lcAcont = ascd
lnRecno = RECNO()
*ll_l=Thisformset.verific_analitic(PlClick, lcCont, lcAcont,'ascd')
llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','actactan')
If !llReturn
Replace actactan.ascd With ''
Return 0
ELSE
*** nu pot sa completez acelasi analitic la toate aparitiile contului pentru ca e posibil sa trebuiasca analitice diferite si incurc utilizatorul
*!* SELECT actactan
*!* REPLACE ALL ascd WITH lcAcont FOR ALLTRIM(scd) == ALLTRIM(lcCont) AND (EMPTY(ascd) OR ISNULL(ascd))
*!* REPLACE ALL ascc WITH lcAcont FOR ALLTRIM(scc) == ALLTRIM(lcCont) AND (EMPTY(ascc) OR ISNULL(ascc))
*!* GOTO lnRecno
Endif
This.Parent.Parent.Refresh
ENDPROC
PROCEDURE Grid1.Column32.Text1.Click
this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.Column32.Text1.LostFocus
*!* 14.03.2013
*!* mutu marius
*!* nu pot sa completez acelasi analitic la toate aparitiile contului pentru ca e posibil sa trebuiasca analitice diferite si incurc utilizatorul
PARAMETERS PlClick
Local llReturn, lcCont, lcAcont,lnRecno
SELECT actactan
lnRecno = RECNO()
lcCont = scc
lcAcont = ascc
llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc','actactan') && in oOperatii_comune.prg
*!* v05.03.2013
*!* liana.neagu
IF !llReturn
REPLACE ACTACTAN.ASCC WITH ''
RETURN 0
ELSE
*!* SELECT actactan
*!* REPLACE ALL ascd WITH lcAcont FOR ALLTRIM(scd) == ALLTRIM(lcCont) AND (EMPTY(ascd) OR ISNULL(ascd))
*!* REPLACE ALL ascc WITH lcAcont FOR ALLTRIM(scc) == ALLTRIM(lcCont) AND (EMPTY(ascc) OR ISNULL(ascc))
*!* GOTO lnRecno
ENDIF
THIS.Parent.Parent.Refresh
ENDPROC
PROCEDURE Grid1.Column4.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column4.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column5.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column5.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column6.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column6.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column7.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column7.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column8.Text1.DblClick
*thisform.butdrept
ENDPROC
PROCEDURE Grid1.Column8.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column9.Text1.DblClick
*!* 08.06.2017
*!* marius.mutu
*!* am pus readonly = .F. pe campul suma pentru a putea fi modificata suma de la nota TVA calculata si adaugata automat de program la anumite operatii
*!* Atentie!!! Efect secundar se poate modifica orice suma!!!
IF TYPE('gnEditareSumaVerificare') = 'N' AND m.gnEditareSumaVerificare = 1
This.ReadOnly = .F.
this.parent.BackColor = RGB(242,255,255)
ENDIF
ENDPROC
PROCEDURE Grid1.Column9.Text1.RightClick
do editscurt.mpr
ENDPROC
ENDDEFINE
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