15424 lines
485 KiB
Plaintext
15424 lines
485 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="omodificari.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS frm_editare_set AS _frmbase OF "_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="txtIdSet" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtNumeSet" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grdRequest" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grdRequest.cLabelItem.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grdRequest.cLabelItem.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grdRequest.cLabelItem._combobox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grdRequest.cValoareDefaultText.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grdRequest.cValoareDefaultText.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdAdauga" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cboCategorie" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: leditmode_assign
|
||
*m: selectfromlookup
|
||
*p: leditmode
|
||
*p: oxset
|
||
*p: textcharacter
|
||
*p: textdate
|
||
*p: textnumber
|
||
*p: texttime
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 3
|
||
DoCreate = .T.
|
||
Height = 410
|
||
leditmode = .F.
|
||
Name = "frm_editare_set"
|
||
oxset = NULL
|
||
textcharacter =
|
||
textdate = {}
|
||
textnumber = 0
|
||
texttime = {}
|
||
Width = 482
|
||
_shape1.Anchor = 10
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 494
|
||
_shape2.Height = 29
|
||
_shape2.Left = 432
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 48
|
||
Lb_titlu_alb_b121.Caption = "Editare set"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 9
|
||
BUT_TERMIN1.Anchor = 8
|
||
BUT_TERMIN1.Left = 451
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 6
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Left = 276
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 24
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_label1' AS _label WITH ;
|
||
Caption = "ID", ;
|
||
Left = 6, ;
|
||
Name = "_label1", ;
|
||
TabIndex = 10, ;
|
||
Top = 40
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT '_label2' AS _label WITH ;
|
||
Caption = "Nume", ;
|
||
Left = 6, ;
|
||
Name = "_label2", ;
|
||
TabIndex = 11, ;
|
||
Top = 64
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT '_label3' AS _label WITH ;
|
||
Caption = "Categorie", ;
|
||
Left = 6, ;
|
||
Name = "_label3", ;
|
||
TabIndex = 12, ;
|
||
Top = 89
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT '_label4' AS _label WITH ;
|
||
Caption = "Cerere date", ;
|
||
FontBold = .T., ;
|
||
FontUnderline = .T., ;
|
||
Left = 6, ;
|
||
Name = "_label4", ;
|
||
TabIndex = 13, ;
|
||
Top = 121
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Anchor = 8, ;
|
||
Left = 421, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 7, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 8, ;
|
||
Left = 413, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 4, ;
|
||
Top = 111
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cboCategorie' AS _combobox WITH ;
|
||
Left = 66, ;
|
||
Name = "cboCategorie", ;
|
||
RowSource = "crsCategorii.categorie", ;
|
||
RowSourceType = 6, ;
|
||
TabIndex = 2, ;
|
||
Top = 85, ;
|
||
Width = 318
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'cmdAdauga' AS but_nou WITH ;
|
||
Anchor = 8, ;
|
||
Left = 443, ;
|
||
Name = "cmdAdauga", ;
|
||
TabIndex = 3, ;
|
||
ToolTipText = "Adaugare cerere date (CTRL+N)", ;
|
||
Top = 111
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grdRequest' AS _grdbase WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 2, ;
|
||
DeleteMark = .F., ;
|
||
Height = 264, ;
|
||
Left = 6, ;
|
||
Name = "grdRequest", ;
|
||
Panel = 1, ;
|
||
RecordSource = "crsRequest", ;
|
||
TabIndex = 5, ;
|
||
Top = 140, ;
|
||
Width = 467, ;
|
||
Column1.ColumnOrder = 1, ;
|
||
Column1.ControlSource = "label_item", ;
|
||
Column1.CurrentControl = "Text1", ;
|
||
Column1.Name = "cLabelItem", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.ToolTipText = "Dublu click pentru editare", ;
|
||
Column1.Width = 226, ;
|
||
Column2.ColumnOrder = 2, ;
|
||
Column2.ControlSource = "valoare_default_text", ;
|
||
Column2.Name = "cValoareDefaultText", ;
|
||
Column2.ToolTipText = "Dublu click pentru editare", ;
|
||
Column2.Width = 204
|
||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grdRequest.cLabelItem._combobox1' AS _combobox WITH ;
|
||
ControlSource = "crsRequest.id_item", ;
|
||
Enabled = .T., ;
|
||
Left = 81, ;
|
||
Name = "_combobox1", ;
|
||
ReadOnly = .F., ;
|
||
RowSource = "crsItems.label_item,id_item", ;
|
||
RowSourceType = 2, ;
|
||
ToolTipText = "Dublu click pentru editare", ;
|
||
Top = 35
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'grdRequest.cLabelItem.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Element", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grdRequest.cLabelItem.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255, ;
|
||
ToolTipText = "Dublu click pentru editare"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grdRequest.cValoareDefaultText.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare implicita", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grdRequest.cValoareDefaultText.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255, ;
|
||
ToolTipText = "Dublu click pentru editare"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtIdSet' AS _textbox WITH ;
|
||
ControlSource = "crsSet.id_set", ;
|
||
Height = 23, ;
|
||
Left = 66, ;
|
||
Name = "txtIdSet", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 8, ;
|
||
TabStop = .F., ;
|
||
Top = 37, ;
|
||
Width = 138
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtNumeSet' AS _textbox WITH ;
|
||
ControlSource = "crsSet.nume_set", ;
|
||
Height = 23, ;
|
||
Left = 66, ;
|
||
Name = "txtNumeSet", ;
|
||
TabIndex = 1, ;
|
||
Top = 61, ;
|
||
Width = 318
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
PROCEDURE do_adauga
|
||
Local lnNrItem
|
||
Calculate Max(nr_item) To m.lnNrItem IN crsRequest
|
||
lnNrItem = m.lnNrItem + 1
|
||
|
||
Append Blank In crsRequest
|
||
Replace nr_item With m.lnNrItem In crsRequest
|
||
|
||
This.lEditMode = .T.
|
||
Thisform.grdRequest.SetFocus()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
SELECT crsRequest
|
||
IF !EMPTY(label_item)
|
||
IF AMESSAGEBOX('Doriti sa stergeti ' + ALLTRIM(crsRequest.label_item) + '?',4+32, _screen.caption) = 6
|
||
SELECT crsRequest
|
||
DELETE
|
||
ENDIF
|
||
ENDIF
|
||
This.lEditMode = .F.
|
||
thisform.grdRequest.SetFocus()
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
Local llSucces, lcSql
|
||
PRIVATE pcXMLSets, pcXmlRequest
|
||
STORE '' TO pcXmlSets, pcXmlRequest
|
||
|
||
Cursortoxml("crsSet", "pcXmlSets",1,0+2+8,0,"")
|
||
Cursortoxml("crsRequest", "pcXmlRequest",1,0+2+8,0,"")
|
||
This.oXset.cXmlSets = m.pcXmlSets
|
||
This.oXset.cXmlRequest = m.pcXmlRequest
|
||
|
||
llSucces = This.oXset.save()
|
||
|
||
IF m.llSucces
|
||
AMESSAGEBOX('Setul de note s-a inregistrat cu ID: ' + ALLTRIM(TRANSFORM(this.oxset.nIdSet)), 0+64, _screen.Caption)
|
||
ENDIF
|
||
|
||
RETURN m.llSucces
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS toXset
|
||
|
||
DODEFAULT()
|
||
|
||
this.oXset = m.toXset
|
||
|
||
this.grdRequest.SetAll("dynamicbackcolor","iif(Empty(Nvl(crsRequest.fis_lista, '')), RGB(200,200,200), RGB(255,255,255))", "Column")
|
||
ENDPROC
|
||
|
||
PROCEDURE leditmode_assign
|
||
LPARAMETERS vNewVal
|
||
*To do: Modify this routine for the Assign method
|
||
THIS.leditmode = m.vNewVal
|
||
|
||
llReadOnly = !THIS.lEditMode
|
||
llEnabled = THIS.lEditMode
|
||
|
||
Thisform.grdRequest.cLabelItem.ReadOnly = m.llReadOnly
|
||
Thisform.grdRequest.cValoareDefaultText.ReadOnly = m.llReadOnly
|
||
IF m.llEnabled
|
||
thisform.grdRequest.cLabelItem.CurrentControl = "_combobox1"
|
||
ELSE
|
||
*** pun textbox, ca sa pot sa dau dublu click
|
||
*** combobox-ul pe readonly, pot sa il deschid, iar pe enabled = .F., nu pot sa dau dublu click
|
||
thisform.grdRequest.cLabelItem.CurrentControl = "Text1"
|
||
Thisform.grdRequest.cLabelItem.Text1.readonly = m.llReadOnly
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE selectfromlookup
|
||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcNumeProc, lcFiltruOriginal, ;
|
||
loCauta, lcColoanaText, lcValoareText, lcColoanaId, lcValoareId, liat, lcValoareIdOld, lcValoareTextOld
|
||
|
||
Select crsItems
|
||
Locate For crsItems.id_item = crsRequest.id_item
|
||
If Empty(Nvl(crsItems.fis_lista,[]))
|
||
*this.Parent.ReadOnly = .F. && permit scrierea de text in coloana daca nu trebuie sa aleg valoarea dintr-un nomenclator
|
||
Return
|
||
Endif
|
||
|
||
lcValoareTextOld = Alltrim(crsRequest.valoare_default_text)
|
||
lnValoareIdOld = crsRequest.valoare_default
|
||
lcValoareIdOld = ALLTRIM(TRANSFORM(m.lnValoareIdOld))
|
||
|
||
lcSelect = [select ] + Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier) + ;
|
||
[ from ] + Alltrim(crsItems.fis_lista)
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = Alltrim(crsItems.camp_lista)
|
||
lcColoane = Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier)
|
||
lcTitlu = Alltrim(crsItems.label_item)
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
lcNumeProc = []
|
||
loCauta = cauta_alfa(lcSelect,lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, ;
|
||
lcTitlu, lcNumeProc, .F., lcFiltruOriginal)
|
||
|
||
|
||
|
||
*!* cand camp_lista retine doua valori(ex:nume,cod_fiscal) se pastreaza doar prima valoare
|
||
liat = Rat(',',Alltrim(crsItems.camp_lista))
|
||
*lccoloanatext = [loCauta.] + LEFT(ALLTRIM(crsitems.camp_lista),liat - 1)
|
||
lcColoanaText = [loCauta.] + Left(Alltrim(crsItems.camp_lista), ;
|
||
Iif(liat!=0,liat - 1,Len(Alltrim(crsItems.camp_lista))))
|
||
lcValoareText = Evaluate(lcColoanaText)
|
||
|
||
lcColoanaId = [loCauta.] + Alltrim(crsItems.id_fisier)
|
||
lcValoareId = Alltrim(Str(Evaluate(lcColoanaId)))
|
||
|
||
*!* daca locauta nu intoarce nimic, se memoreaza valorile vechi
|
||
If m.gnButon = 2
|
||
lcValoareText = lcValoareTextOld
|
||
lcValoareId = lcValoareIdOld
|
||
Endif
|
||
*!* ^^
|
||
|
||
Select crsRequest
|
||
Replace valoare_default With lcValoareId, valoare_default_text With lcValoareText
|
||
Thisform.grdRequest.cValoareDefaultText.Refresh()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cboCategorie.Init
|
||
DODEFAULT()
|
||
LOCAL lcSelect
|
||
lcSelect = SELECT()
|
||
|
||
SELECT crsCategorii
|
||
LOCATE FOR id_categorie = crsSet.id_categorie
|
||
IF FOUND()
|
||
This.Value = crsCategorii.categorie
|
||
ENDIF
|
||
|
||
SELECT (m.lcSelect)
|
||
ENDPROC
|
||
|
||
PROCEDURE cboCategorie.Valid
|
||
DODEFAULT()
|
||
REPLACE id_categorie WITH crsCategorii.id_categorie IN crsSet
|
||
ENDPROC
|
||
|
||
PROCEDURE grdRequest.AfterRowColChange
|
||
Lparameters nColIndex
|
||
Thisform.lEditMode = .F.
|
||
|
||
This.cvaloareDefaultText.ReadOnly = Empty(Nvl(crsRequest.fis_lista, ''))
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grdRequest.cLabelItem.Text1.DblClick
|
||
Thisform.lEditMode = .T.
|
||
ENDPROC
|
||
|
||
PROCEDURE grdRequest.cLabelItem._combobox1.Valid
|
||
Replace id_item With crsItems.id_item, fis_lista WITH NVL(crsItems.fis_lista, ''), camp_lista With NVL(crsItems.camp_lista, '') In crsRequest
|
||
|
||
Select crsItems
|
||
Locate For id_item = crsRequest.id_item
|
||
|
||
Thisform.lEditMode = .F.
|
||
|
||
This.Parent.Parent.Refresh()
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grdRequest.cValoareDefaultText.Text1.DblClick
|
||
If !Empty(Nvl(crsRequest.fis_lista, ''))
|
||
Thisform.Selectfromlookup()
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE grdRequest.cValoareDefaultText.Text1.KeyPress
|
||
Lparameters nKeyCode, nShiftAltCtrl
|
||
|
||
If !Empty(Nvl(crsRequest.fis_lista, ''))
|
||
Thisform.Selectfromlookup()
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_modific AS _frmbase OF "_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="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.Column15.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column15.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.Column18.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column18.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.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="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="Command1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cnomenclator" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: aleg_document_pereche
|
||
*m: ccontrol_assign
|
||
*p: ccontrol
|
||
*p: fel_compensare
|
||
*p: pccontrol
|
||
*p: pcx_item
|
||
*p: pncolumnorder
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
DoCreate = .T.
|
||
Height = 306
|
||
Name = "frm_modific"
|
||
pccontrol = []
|
||
pcx_item = 0
|
||
pncolumnorder = 0
|
||
Width = 804
|
||
WindowType = 1
|
||
_shape1.Height = 31
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 727
|
||
_shape2.Height = 31
|
||
_shape2.Left = 670
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 134
|
||
Lb_titlu_alb_b121.Caption = "MODIFICARE"
|
||
Lb_titlu_alb_b121.Left = 6
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.Top = 5
|
||
BUT_TERMIN1.Left = 771
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 2
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Left = 673, ;
|
||
Name = "But_nou1", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 739, ;
|
||
Name = "But_renunt1", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Left = 706, ;
|
||
Name = "But_sterge1", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cnomenclator' AS commandbutton WITH ;
|
||
Caption = "Nomenclator", ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 20, ;
|
||
Left = 726, ;
|
||
Name = "cnomenclator", ;
|
||
Top = 96, ;
|
||
Width = 74
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||
Caption = "Partener Debit", ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 20, ;
|
||
Left = 726, ;
|
||
Name = "Command1", ;
|
||
Top = 46, ;
|
||
Width = 74
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||
Caption = "Partener Credit", ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 20, ;
|
||
Left = 726, ;
|
||
Name = "Command2", ;
|
||
Top = 68, ;
|
||
Width = 74
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
||
Caption = "Nr.Doc.Pereche", ;
|
||
Enabled = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 38, ;
|
||
Left = 726, ;
|
||
Name = "Command3", ;
|
||
Top = 118, ;
|
||
Width = 74, ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||
BackColor = 244,250,255, ;
|
||
ColumnCount = 34, ;
|
||
DeleteMark = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
GridLineColor = 128,128,128, ;
|
||
Height = 255, ;
|
||
HighlightStyle = 1, ;
|
||
Left = 5, ;
|
||
Name = "Grid1", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .F., ;
|
||
RecordSource = "tACT", ;
|
||
TabIndex = 1, ;
|
||
Top = 40, ;
|
||
Width = 718, ;
|
||
ZOrderSet = 3, ;
|
||
Column1.Alignment = 1, ;
|
||
Column1.BackColor = 244,250,255, ;
|
||
Column1.ControlSource = "", ;
|
||
Column1.FontName = "Arial Narrow", ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.ReadOnly = .F., ;
|
||
Column1.Width = 29, ;
|
||
Column2.Alignment = 0, ;
|
||
Column2.BackColor = 244,250,255, ;
|
||
Column2.ControlSource = "dataireg", ;
|
||
Column2.FontName = "Arial Narrow", ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.ReadOnly = .F., ;
|
||
Column2.Width = 49, ;
|
||
Column3.Alignment = 0, ;
|
||
Column3.BackColor = 244,250,255, ;
|
||
Column3.ColumnOrder = 13, ;
|
||
Column3.ControlSource = "fdoc", ;
|
||
Column3.FontName = "Arial Narrow", ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.ReadOnly = .F., ;
|
||
Column3.Width = 88, ;
|
||
Column4.Alignment = 0, ;
|
||
Column4.BackColor = 244,250,255, ;
|
||
Column4.ColumnOrder = 3, ;
|
||
Column4.ControlSource = "dataact", ;
|
||
Column4.FontName = "Arial Narrow", ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.ReadOnly = .F., ;
|
||
Column4.Width = 51, ;
|
||
Column5.Alignment = 1, ;
|
||
Column5.BackColor = 244,250,255, ;
|
||
Column5.ColumnOrder = 4, ;
|
||
Column5.ControlSource = "nract", ;
|
||
Column5.FontName = "Arial Narrow", ;
|
||
Column5.Name = "Column5", ;
|
||
Column5.ReadOnly = .F., ;
|
||
Column5.Width = 53, ;
|
||
Column6.Alignment = 0, ;
|
||
Column6.BackColor = 244,250,255, ;
|
||
Column6.ColumnOrder = 5, ;
|
||
Column6.ControlSource = "partd", ;
|
||
Column6.FontName = "Arial Narrow", ;
|
||
Column6.Name = "Column6", ;
|
||
Column6.ReadOnly = .F., ;
|
||
Column6.Width = 87, ;
|
||
Column7.Alignment = 1, ;
|
||
Column7.BackColor = 244,250,255, ;
|
||
Column7.ColumnOrder = 8, ;
|
||
Column7.ControlSource = "scd", ;
|
||
Column7.FontName = "Arial Narrow", ;
|
||
Column7.Name = "Column7", ;
|
||
Column7.ReadOnly = .F., ;
|
||
Column7.Width = 44, ;
|
||
Column8.Alignment = 1, ;
|
||
Column8.BackColor = 244,250,255, ;
|
||
Column8.ColumnOrder = 10, ;
|
||
Column8.ControlSource = "scc", ;
|
||
Column8.FontName = "Arial Narrow", ;
|
||
Column8.Name = "Column8", ;
|
||
Column8.ReadOnly = .F., ;
|
||
Column8.Width = 48, ;
|
||
Column9.Alignment = 1, ;
|
||
Column9.BackColor = 244,250,255, ;
|
||
Column9.ColumnOrder = 12, ;
|
||
Column9.ControlSource = "suma", ;
|
||
Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
||
Column9.FontName = "Arial Narrow", ;
|
||
Column9.FontSize = 9, ;
|
||
Column9.Format = "r", ;
|
||
Column9.InputMask = (get_mask(12,gnPa)), ;
|
||
Column9.Name = "Column9", ;
|
||
Column9.ReadOnly = .F., ;
|
||
Column9.Width = 93, ;
|
||
Column10.Alignment = 0, ;
|
||
Column10.BackColor = 244,250,255, ;
|
||
Column10.ColumnOrder = 6, ;
|
||
Column10.ControlSource = "partc", ;
|
||
Column10.FontName = "Arial Narrow", ;
|
||
Column10.Name = "Column10", ;
|
||
Column10.ReadOnly = .F., ;
|
||
Column10.Width = 79, ;
|
||
Column11.Alignment = 0, ;
|
||
Column11.BackColor = 244,250,255, ;
|
||
Column11.ColumnOrder = 7, ;
|
||
Column11.ControlSource = "explicatia", ;
|
||
Column11.FontName = "Arial Narrow", ;
|
||
Column11.Name = "Column11", ;
|
||
Column11.ReadOnly = .F., ;
|
||
Column11.Width = 77, ;
|
||
Column12.BackColor = 244,250,255, ;
|
||
Column12.ColumnOrder = 31, ;
|
||
Column12.ControlSource = "cod", ;
|
||
Column12.FontName = "Arial Narrow", ;
|
||
Column12.Name = "Column12", ;
|
||
Column12.ReadOnly = .T., ;
|
||
Column12.Width = 52, ;
|
||
Column13.BackColor = 244,250,255, ;
|
||
Column13.ColumnOrder = 14, ;
|
||
Column13.ControlSource = "pereched", ;
|
||
Column13.FontName = "Arial Narrow", ;
|
||
Column13.Name = "Column13", ;
|
||
Column13.ReadOnly = .F., ;
|
||
Column13.Width = 65, ;
|
||
Column14.BackColor = 244,250,255, ;
|
||
Column14.ColumnOrder = 24, ;
|
||
Column14.ControlSource = "explicatia4", ;
|
||
Column14.FontName = "Arial Narrow", ;
|
||
Column14.Name = "Column14", ;
|
||
Column14.ReadOnly = .F., ;
|
||
Column15.BackColor = 244,250,255, ;
|
||
Column15.ColumnOrder = 17, ;
|
||
Column15.ControlSource = "nrord", ;
|
||
Column15.FontName = "Arial Narrow", ;
|
||
Column15.Name = "Column15", ;
|
||
Column15.ReadOnly = .F., ;
|
||
Column16.BackColor = 244,250,255, ;
|
||
Column16.ColumnOrder = 19, ;
|
||
Column16.ControlSource = "nresp", ;
|
||
Column16.FontName = "Arial Narrow", ;
|
||
Column16.Format = "", ;
|
||
Column16.InputMask = "", ;
|
||
Column16.Name = "Column16", ;
|
||
Column16.ReadOnly = .F., ;
|
||
Column17.BackColor = 244,250,255, ;
|
||
Column17.ColumnOrder = 20, ;
|
||
Column17.ControlSource = "dst_chlt", ;
|
||
Column17.FontName = "Arial Narrow", ;
|
||
Column17.Format = "", ;
|
||
Column17.InputMask = "", ;
|
||
Column17.Name = "Column17", ;
|
||
Column17.ReadOnly = .F., ;
|
||
Column18.BackColor = 244,250,255, ;
|
||
Column18.ColumnOrder = 25, ;
|
||
Column18.ControlSource = "explicatia5", ;
|
||
Column18.FontName = "Arial Narrow", ;
|
||
Column18.Name = "Column18", ;
|
||
Column18.ReadOnly = .F., ;
|
||
Column19.BackColor = 244,250,255, ;
|
||
Column19.ColumnOrder = 16, ;
|
||
Column19.ControlSource = "datascad", ;
|
||
Column19.FontName = "Arial Narrow", ;
|
||
Column19.Name = "Column19", ;
|
||
Column19.ReadOnly = .F., ;
|
||
Column19.Visible = .T., ;
|
||
Column20.BackColor = 244,250,255, ;
|
||
Column20.ColumnOrder = 21, ;
|
||
Column20.ControlSource = "suma_val", ;
|
||
Column20.FontName = "Arial Narrow", ;
|
||
Column20.InputMask = (get_mask(12,gnPa)), ;
|
||
Column20.Name = "Column20", ;
|
||
Column20.ReadOnly = .F., ;
|
||
Column21.BackColor = 244,250,255, ;
|
||
Column21.ColumnOrder = 23, ;
|
||
Column21.ControlSource = "curs", ;
|
||
Column21.FontName = "Arial Narrow", ;
|
||
Column21.InputMask = (get_mask(12,gnPcurs)), ;
|
||
Column21.Name = "Column21", ;
|
||
Column21.ReadOnly = .F., ;
|
||
Column21.Width = 61, ;
|
||
Column22.BackColor = 244,250,255, ;
|
||
Column22.ColumnOrder = 26, ;
|
||
Column22.ControlSource = "gestin", ;
|
||
Column22.FontName = "Arial Narrow", ;
|
||
Column22.Name = "Column22", ;
|
||
Column22.ReadOnly = .F., ;
|
||
Column22.Width = 87, ;
|
||
Column23.BackColor = 244,250,255, ;
|
||
Column23.ColumnOrder = 9, ;
|
||
Column23.ControlSource = "ascd", ;
|
||
Column23.FontName = "Arial Narrow", ;
|
||
Column23.Name = "Column23", ;
|
||
Column23.ReadOnly = .F., ;
|
||
Column23.Width = 33, ;
|
||
Column24.BackColor = 244,250,255, ;
|
||
Column24.ColumnOrder = 11, ;
|
||
Column24.ControlSource = "ascc", ;
|
||
Column24.FontName = "Arial Narrow", ;
|
||
Column24.Name = "Column24", ;
|
||
Column24.ReadOnly = .F., ;
|
||
Column24.Width = 33, ;
|
||
Column25.BackColor = 244,250,255, ;
|
||
Column25.ColumnOrder = 32, ;
|
||
Column25.ControlSource = "id_set", ;
|
||
Column25.FontName = "Arial Narrow", ;
|
||
Column25.Name = "Column25", ;
|
||
Column25.ReadOnly = .T., ;
|
||
Column25.Width = 52, ;
|
||
Column26.BackColor = 244,250,255, ;
|
||
Column26.ColumnOrder = 30, ;
|
||
Column26.ControlSource = "proc_tva", ;
|
||
Column26.FontName = "Arial Narrow", ;
|
||
Column26.Name = "Column26", ;
|
||
Column26.ReadOnly = .F., ;
|
||
Column26.Width = 45, ;
|
||
Column27.BackColor = 244,250,255, ;
|
||
Column27.ColumnOrder = 15, ;
|
||
Column27.ControlSource = "perechec", ;
|
||
Column27.FontName = "Arial Narrow", ;
|
||
Column27.Name = "Column27", ;
|
||
Column27.ReadOnly = .F., ;
|
||
Column27.Width = 64, ;
|
||
Column28.BackColor = 244,250,255, ;
|
||
Column28.ColumnOrder = 28, ;
|
||
Column28.ControlSource = "sectie", ;
|
||
Column28.FontName = "Arial Narrow", ;
|
||
Column28.Name = "Column28", ;
|
||
Column28.ReadOnly = .F., ;
|
||
Column28.Width = 88, ;
|
||
Column29.BackColor = 244,250,255, ;
|
||
Column29.ColumnOrder = 22, ;
|
||
Column29.ControlSource = "nume_val", ;
|
||
Column29.FontName = "Arial Narrow", ;
|
||
Column29.Name = "Column29", ;
|
||
Column29.ReadOnly = .F., ;
|
||
Column29.Width = 61, ;
|
||
Column30.BackColor = 244,250,255, ;
|
||
Column30.ColumnOrder = 33, ;
|
||
Column30.ControlSource = "id_partd", ;
|
||
Column30.FontName = "Arial Narrow", ;
|
||
Column30.Name = "Column30", ;
|
||
Column30.ReadOnly = .T., ;
|
||
Column30.Width = 45, ;
|
||
Column31.BackColor = 244,250,255, ;
|
||
Column31.ColumnOrder = 34, ;
|
||
Column31.ControlSource = "id_partc", ;
|
||
Column31.FontName = "Arial Narrow", ;
|
||
Column31.Name = "Column31", ;
|
||
Column31.ReadOnly = .T., ;
|
||
Column31.Width = 43, ;
|
||
Column32.BackColor = 244,250,255, ;
|
||
Column32.ColumnOrder = 27, ;
|
||
Column32.ControlSource = "gestout", ;
|
||
Column32.FontName = "Arial Narrow", ;
|
||
Column32.Name = "Column32", ;
|
||
Column32.ReadOnly = .F., ;
|
||
Column32.Width = 89, ;
|
||
Column33.BackColor = 244,250,255, ;
|
||
Column33.ColumnOrder = 29, ;
|
||
Column33.ControlSource = "sucursala", ;
|
||
Column33.FontName = "Arial Narrow", ;
|
||
Column33.Name = "Column33", ;
|
||
Column33.ReadOnly = .F., ;
|
||
Column33.Width = 121, ;
|
||
Column34.BackColor = 244,250,255, ;
|
||
Column34.ColumnOrder = 18, ;
|
||
Column34.ControlSource = "contract", ;
|
||
Column34.FontName = "Arial Narrow", ;
|
||
Column34.Name = "Column34", ;
|
||
Column34.ReadOnly = .T., ;
|
||
Column34.Width = 65
|
||
*< END OBJECT: BaseClass="grid" />
|
||
|
||
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "NrCrt", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Expl.2", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Expl.3", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "COD", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.doc.platit", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatia 4", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lucrarea", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Responsabil", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cheltuiala", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatia 5", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data scadenta", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
Visible = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data Inreg.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header2"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Suma in valuta", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Curs valutar", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column21.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune destinatie", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column23.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "AnalitD", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column23.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column24.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "AnalitC", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column24.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Tip operatie", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column25.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cota TVA", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column26.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column27.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.doc.incasat", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column28.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sectia", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column28.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column29.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nume Valuta", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
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 Narrow", ;
|
||
Name = "Header3"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Part D", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column30.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Part C", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column31.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune sursa", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column33.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sucursala", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column34.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Contract", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column34.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data Act", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header4"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.Doc.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header5"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Expl.1", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header6"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderColor = 0,0,0, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont Deb.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header7"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont Cred.", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header8"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Suma", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header9"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
FontSize = 9, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE aleg_document_pereche
|
||
PARAMETERS tcFel,toAct
|
||
LOCAL lcSel,lcSelAct
|
||
lcSelAct = thisform.grid1.RecordSource
|
||
pnFelCont = tcFel
|
||
|
||
IF pnFelCont = 0 && ACTIV
|
||
pcContul = ALLTRIM(NVL(toAct.scc,[]))
|
||
pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
|
||
pnIdPart = NVL(toAct.Id_partc,0)
|
||
pcNume = ALLTRIM(NVL(toAct.partc,[]))
|
||
pnPereche = [perecheC]
|
||
pnIdPereche = [id_factC]
|
||
ELSE && PASIV
|
||
pcContul = ALLTRIM(NVL(toAct.scd,[]))
|
||
pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
|
||
pnIdPart = NVL(toAct.Id_partd,0)
|
||
pcNume = ALLTRIM(NVL(toAct.partd,[]))
|
||
pnPereche = [perecheD]
|
||
pnIdPereche = [id_factD]
|
||
ENDIF
|
||
|
||
lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
|
||
lcCursor = [crsTest]
|
||
lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
|
||
IF lnSucces < 0
|
||
aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT crsTest
|
||
LOCATE
|
||
IF ePereche = 0
|
||
USE IN crsTest
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
RETURN
|
||
ENDIF
|
||
|
||
|
||
IF !EMPTY(toAct.Suma_val)
|
||
llval = .t.
|
||
pnSuma = toAct.Suma_val
|
||
lcFormular = [ocompensari_val]
|
||
ELSE
|
||
llval = .f.
|
||
pnSuma = toAct.Suma
|
||
lcFormular = [ocompensari]
|
||
ENDIF
|
||
pnIdValuta = toAct.Id_Valuta
|
||
pcDenumire = [Partener ] + pcContul
|
||
|
||
pcCond = [ an = ?gnAn and luna = ?gnluna]
|
||
|
||
IF llval
|
||
pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
|
||
ELSE
|
||
pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
|
||
ENDIF
|
||
|
||
pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
|
||
IF ALLTRIM(pcACont) # [NULL]
|
||
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
|
||
ELSE
|
||
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
|
||
ENDIF
|
||
pcschema = ['']
|
||
pcorder = ['']
|
||
|
||
PRIVATE podateintrod
|
||
STORE '' TO podateintrod
|
||
|
||
gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
|
||
|
||
lcFis = 'actcv' + ALLTRIM(pcContul)
|
||
|
||
IF USED(lcFis)
|
||
USE IN &lcFis
|
||
ENDIF
|
||
|
||
IF pnFelCont = 0
|
||
lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
|
||
[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
|
||
[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
|
||
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
|
||
ELSE
|
||
lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
|
||
[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
|
||
[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
|
||
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
|
||
ENDIF
|
||
&lcsel
|
||
|
||
USE IN crs_actcv
|
||
SELECT (lcFis)
|
||
|
||
OPLATA=CREATEOBJECT(lcFormular)
|
||
OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
|
||
OPLATA.pcFis = lcFis
|
||
OPLATA.SUMA = pnSuma
|
||
OPLATA.pnFelCont = pnFelCont
|
||
OPLATA.SHOW(1)
|
||
|
||
IF gnButon = 1
|
||
SELECT (lcSelAct)
|
||
DELETE
|
||
SELECT (lcFis)
|
||
SCAN FOR ales
|
||
SCATTER NAME oper
|
||
SELECT (lcSelAct)
|
||
APPEND BLANK
|
||
GATHER NAME toAct
|
||
REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
|
||
SELECT (lcFis)
|
||
ENDSCAN
|
||
ELSE
|
||
SELECT (lcSelAct)
|
||
REPLACE &pnPereche WITH toact.&pnPereche
|
||
ENDIF
|
||
|
||
IF USED(lcFis)
|
||
USE IN (lcFis)
|
||
ENDIF
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE ccontrol_assign
|
||
LPARAMETERS vNewVal
|
||
*To do: Modify this routine for the Assign method
|
||
THIS.cControl = m.vNewVal
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
SELECT tact
|
||
SCATTER NAME oadd FIELDS EXCEPT id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, suma_val
|
||
APPEND BLANK
|
||
GATHER NAME oadd
|
||
RELEASE oadd
|
||
|
||
DO nrord WITH 'tact'
|
||
this.grid1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
PARAMETERS tcCont
|
||
LOCAL loCauta, loHash
|
||
|
||
IF EMPTY(tcCont)
|
||
RETURN
|
||
ENDIF
|
||
*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
|
||
loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
|
||
IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
|
||
loHash.SetValue('dDataDoc', tact.dataact)
|
||
ENDIF
|
||
loCauta = CautPartenerContabilitate(loHash)
|
||
|
||
RETURN loCauta
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
PARAMETERS tcX_item, tcControl
|
||
|
||
*!* IF EMPTY(tcX_item) OR ISNULL(tcX_item)
|
||
*!* tcX_item = thisform.pcx_item
|
||
*!* ENDIF
|
||
|
||
*!* IF EMPTY(tcControl) OR ISNULL(tcControl)
|
||
*!* tcControl = thisform.pccontrol
|
||
*!* ENDIF
|
||
|
||
lcControl = ALLTRIM(tcControl)
|
||
IF '.'$ tcControl
|
||
lcControl = RIGHT(lcControl,LEN(lcControl)-AT('.',lcControl))
|
||
ENDIF
|
||
|
||
SELECT xitems
|
||
LOCATE FOR ALLTRIM(x_item) = ALLTRIM(tcX_item)
|
||
IF !FOUND()
|
||
RETURN
|
||
ENDIF
|
||
|
||
SCATTER NAME locauta
|
||
lcColoane = ALLTRIM(locauta.camp_lista)
|
||
lcIdFis = ALLTRIM(locauta.id_fisier)
|
||
lcFisier = ALLTRIM(locauta.fis_lista)
|
||
lcVarAct = lcControl
|
||
lcIdAct = lcIdFis
|
||
|
||
pcselect = [select ] + lcColoane + [,] + lcIdFis + [ from ] + lcFisier
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = lcColoane
|
||
pccoloane = lcColoane
|
||
pcTitlu = PROPER(ALLTRIM(locauta.label_item))
|
||
pcTitluColoane = pcTitlu
|
||
lnColoane = OCCURS([,],lcColoane)
|
||
pcFiltruOriginal = [inactiv = 0]
|
||
IF lnColoane > 0
|
||
FOR i= 1 TO lnColoane
|
||
pcTitluColoane = pcTitluColoane + [, ]
|
||
ENDFOR
|
||
ENDIF
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,lcFisier,.f.,pcFiltruOriginal) && 11.07.2007
|
||
|
||
|
||
IF gnButon = 1
|
||
IF ',' $ lcColoane
|
||
lcPrimVal = LEFT(lcColoane,AT(',',lcColoane)-1)
|
||
ELSE
|
||
lcPrimVal = ALLTRIM(lcColoane)
|
||
ENDIF
|
||
|
||
IF 'nume_gestiune'$LOWER(lcPrimVal)
|
||
lcIdAct = [id_] + lcVarAct
|
||
ENDIF
|
||
|
||
SELECT tact
|
||
lcReplace = [replace ] + lcVarAct + [ with locauta.] + lcPrimVal + [,] + lcIdAct + [ with locauta.] + lcIdFis
|
||
SELECT tact
|
||
&lcReplace
|
||
|
||
ENDIF
|
||
|
||
RETURN locauta
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
LOCAL lnAn, lnLuna, lnCod, lnIdFact, llReferinteDocumente
|
||
|
||
SELECT tact
|
||
lnAn = an
|
||
lnLuna = luna
|
||
lnCod = cod
|
||
lnIdFact = id_fact
|
||
|
||
llReferinteDocumente = ReferinteDocument(lnAn, lnLuna, lnCod, lnIdFact) && odocumente.prg
|
||
IF llReferinteDocumente
|
||
AMESSAGEBOX("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT tact
|
||
DELETE
|
||
this.grid1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE do_verifica
|
||
*!* PARAMETERS tlClick, tccont, tcacont, tcColoana
|
||
|
||
*!* m.den=''
|
||
*!* ll_l=.f.
|
||
|
||
*!* IF EMPTY(tccont)
|
||
*!* RETURN ll_l
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
|
||
*!* lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where to_number(cont) = ] + tcCont + [ and inactiv = 0 and an = ] + pcAn + [ order by acont ]
|
||
*!* lcCursor = 'tceva'
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
|
||
*!* SELECT tceva
|
||
*!* LOCATE
|
||
*!* IF EOF()
|
||
*!* IF !EMPTY(tcAcont) AND !ISNULL(tcAcont)
|
||
*!* DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont
|
||
*!* ll_l=.t.
|
||
*!* ENDIF
|
||
*!*
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
*!* SELECT actactan
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
*!* ELSE
|
||
*!* IF !tlClick
|
||
*!* IF empty(tcAcont)
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* SELECT tceva
|
||
*!* IF tlClick
|
||
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
|
||
*!* SELECT tceva
|
||
*!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
|
||
*!* lcAcont = acont
|
||
|
||
*!* SELECT tact
|
||
*!* REPLACE &tcColoana WITH lcAcont
|
||
*!* ELSE
|
||
*!* LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont)
|
||
*!* IF !FOUND()
|
||
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
|
||
*!* SELECT tceva
|
||
*!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
|
||
*!* lcAcont = acont
|
||
|
||
*!* SELECT tact
|
||
*!* REPLACE &tcColoana WITH lcAcont
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
|
||
*!* SELECT tact
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
lVerificAnalitic = .T.
|
||
lCompletezPartener = .F.
|
||
llRet = verificare_note_contabile('tact',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune
|
||
RETURN llRet
|
||
|
||
|
||
*!* LOCAL lcInMesaj,lcInMesajP,lcInMesajIreg
|
||
*!* STORE '' TO lcInMesaj,lcInMesajP, lcInMesajIreg
|
||
|
||
*!* SELECT tact
|
||
*!* GO TOP
|
||
*!* lnId_set=id_set
|
||
*!* ll_return = .T.
|
||
|
||
*!* SELECT DISTINCT scd AS CONT FROM tact ;
|
||
*!* WHERE suma # 0 ;
|
||
*!* UNION ;
|
||
*!* SELECT DISTINCT scc AS CONT FROM tact ;
|
||
*!* WHERE suma # 0 ;
|
||
*!* INTO CURSOR tcont
|
||
|
||
*!* i = 0
|
||
*!* SELECT tcont
|
||
*!* SCAN
|
||
*!* i = i + 1
|
||
*!* IF i = 1
|
||
*!* lcLista = ALLTRIM(CONT)
|
||
*!* ELSE
|
||
*!* lcLista = lcLista + ',' + ALLTRIM(CONT)
|
||
*!* ENDIF
|
||
*!* ENDSCAN
|
||
|
||
*!* lcSql = 'select distinct c.cont as contpart, c.fel_cont, c.cu_inregistrari, c.explicatie as explic_cont,e.cont_c as exceptie, e.debit as pozitie, e.invers, 0 as gasit ' + ;
|
||
*!* 'from ' + gcs + '.vcoresp_tip_cont c left join ' + gcs + '.exceptii_ireg e on c.cont = e.cont and e.invers = 1 ' + ;
|
||
*!* 'where to_number(c.cont) in (' + lcLista + ')'
|
||
*!* lcCursor = 'verif_part'
|
||
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
*!* IF lnSucces < 0
|
||
*!* MESSAGEBOX('Modificare:Verific completare id_part ' +goExecutor.cEroare,0+16,"Eroare")
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0
|
||
*!* IF RECCOUNT('verif_part') > 0
|
||
*!* SELECT tact
|
||
*!* SCAN FOR !EMPTY(suma)
|
||
*!* SCATTER NAME loCont
|
||
*!* SELECT verif_part
|
||
*!* LOCATE FOR contpart=loCont.scd
|
||
*!* IF FOUND()
|
||
*!* IF EMPTY(loCont.Id_partd) AND !(loCont.scd$lcInMesajP)
|
||
*!* lcInMesajP=lcInMesajP+','+loCont.scd
|
||
*!* REPLACE gasit WITH 1
|
||
*!* ENDIF
|
||
|
||
*!* IF EMPTY(loCont.pereched) AND cu_inregistrari = 1 AND fel_cont = 1 AND !(loCont.scd$lcInMesajIreg)
|
||
*!* LOCATE FOR contpart=loCont.scd AND exceptie = loCont.scc AND fel_cont = 1 AND pozitie = 0 AND invers = 1
|
||
*!* IF !FOUND()
|
||
*!* lcInMesajIreg = lcInMesajIreg + ',' + loCont.scd
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* SELECT verif_part
|
||
*!* LOCATE FOR contpart=loCont.scc
|
||
*!* IF FOUND()
|
||
*!* IF EMPTY(loCont.Id_partc) AND !(loCont.scc$lcInMesajP)
|
||
*!* lcInMesajP=lcInMesajP+','+loCont.scc
|
||
*!* REPLACE gasit WITH 1
|
||
*!* ENDIF
|
||
*!* IF cu_inregistrari = 1 AND fel_cont = 0 AND EMPTY(loCont.perechec) AND !(loCont.scc$lcInMesajIreg)
|
||
*!* LOCATE FOR contpart=loCont.scc AND exceptie = loCont.scd AND fel_cont = 0 AND pozitie = 1 AND invers = 1
|
||
*!* IF !FOUND()
|
||
*!* lcInMesajIreg = lcInMesajIreg + ',' + loCont.scc
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* ENDSCAN
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0 AND !(lnId_set>90000 AND lnId_set<90010) && notele de inchidere se fac in functie de optiuni
|
||
*!* lcSql=[select CONT, ACONT FROM ] + gcs + [.vplcont_ANALITIC where inactiv = 0 and an = ?gnAn order by cont ]
|
||
*!* lcCursor = 'plcontana'
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
|
||
*!* IF lnSucces < 0
|
||
*!* MESSAGEBOX('Modificare:Verific completare analitic ' +goExecutor.cEroare,0+16,"Eroare")
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0
|
||
*!* SELECT tact
|
||
*!* SCAN FOR !EMPTY(suma)
|
||
*!* SCATTER NAME loCont
|
||
*!* IF EMPTY(loCont.ascd) OR ISNULL(loCont.ascd)
|
||
*!* SELECT plcontana
|
||
*!* LOCATE FOR ALLTRIM(CONT)=ALLTRIM(loCont.scd)
|
||
*!* IF FOUND()
|
||
*!* IF !(loCont.scd$lcInMesaj)
|
||
*!* lcInMesaj=lcInMesaj+','+loCont.scd
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* IF EMPTY(loCont.ascc) OR ISNULL(loCont.ascc)
|
||
*!* SELECT plcontana
|
||
*!* LOCATE FOR CONT=loCont.scc
|
||
*!* IF FOUND()
|
||
*!* IF !(loCont.scc$lcInMesaj)
|
||
*!* lcInMesaj=lcInMesaj+','+loCont.scc
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* ENDSCAN
|
||
*!* RELEASE loCont
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesaj)
|
||
*!* DO mesaj WITH 'Nu ati completat simbolurile analitice pentru conturile:',lcInMesaj
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesajP)
|
||
*!* DO mesaj WITH 'Nu ati completat partenerii pentru conturile:', lcInMesajP
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesajIreg)
|
||
*!* DO mesaj WITH 'Nu ati completat doc. pereche pentru conturile:', lcInMesajIreg
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('verif_part')
|
||
*!* USE IN verif_part
|
||
*!* ENDIF
|
||
*!* IF USED('plcontana')
|
||
*!* USE IN plcontana
|
||
*!* ENDIF
|
||
*!* IF USED('tcont')
|
||
*!* USE IN tcont
|
||
*!* ENDIF
|
||
|
||
*!* RETURN ll_return
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Show
|
||
LPARAMETERS nStyle
|
||
SELECT tact
|
||
this.grid1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE cnomenclator.Click
|
||
thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Command1.Click
|
||
LOCAL lnIdPartd
|
||
Select tact
|
||
lcCont = tact.scd
|
||
lnIdPartd = id_partd
|
||
|
||
locauta = Thisform.do_cauta(lcCont)
|
||
If gnButon = 1
|
||
lnid_part=locauta.id_part
|
||
lcnume=Alltrim(locauta.nume)
|
||
Select tact
|
||
Replace id_partd With lnid_part, partd With lcnume
|
||
If lnIdPartd <> lnid_part
|
||
Select tact
|
||
Replace pereched With 0, id_factd With 0
|
||
Endif
|
||
Endif
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command2.Click
|
||
LOCAL lnIdPartc
|
||
Select tact
|
||
lcCont = tact.scc
|
||
lnIdPartc = id_partc
|
||
|
||
locauta = Thisform.do_cauta(lcCont)
|
||
If gnButon = 1
|
||
lnid_part=locauta.id_part
|
||
lcnume=Alltrim(locauta.nume)
|
||
Select tact
|
||
Replace id_partc With lnid_part, partc With lcnume
|
||
If lnIdPartc <> lnid_part
|
||
Select tact
|
||
Replace perechec With 0, id_factc With 0
|
||
Endif
|
||
Endif
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command3.Click
|
||
PARAMETERS tnFel
|
||
LOCAL lcSel
|
||
|
||
IF PCOUNT()<1
|
||
tnFel = thisform.fel_compensare
|
||
ENDIF
|
||
|
||
lcSel = thisform.grid1.RecordSource
|
||
SELECT (lcSel)
|
||
SCATTER NAME odoc
|
||
&& 0 = ACTIV
|
||
&& 1 = PASIV
|
||
*thisform.aleg_document_pereche(tnFel,odoc)
|
||
DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
|
||
thisform.grid1.SetFocus
|
||
RELEASE odoc
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.AfterRowColChange
|
||
LPARAMETERS nColIndex
|
||
IF thisform.pncolumnorder = nColIndex
|
||
thisform.cnomenclator.Enabled = .t.
|
||
ELSE
|
||
thisform.cnomenclator.Enabled = .f.
|
||
ENDIF
|
||
|
||
IF [pereche]$LOWER(thisform.pccontrol)
|
||
thisform.command3.Enabled = .t.
|
||
IF [pereched]$LOWER(thisform.pccontrol)
|
||
thisform.fel_compensare = 1
|
||
thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ ALLTRIM(scd)
|
||
ELSE
|
||
thisform.fel_compensare = 0
|
||
thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ ALLTRIM(scc)
|
||
ENDIF
|
||
ELSE
|
||
thisform.command3.Enabled = .f.
|
||
thisform.command3.Caption = [Nr.Doc.Pereche]
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.BeforeRowColChange
|
||
LPARAMETERS nColIndex
|
||
IF thisform.pncolumnorder # nColIndex
|
||
STORE [] TO thisform.pccontrol
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column10.Text1.InteractiveChange
|
||
thisform.command2.Click
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column13.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column13.Text1.InteractiveChange
|
||
thisform.command3.Click(1)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x15'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x13'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x14'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column22.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x9'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column22.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.Click
|
||
this.LostFocus(.t.)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.LostFocus
|
||
PARAMETERS PlClick
|
||
lcCont = scd
|
||
lcAcont = ascd
|
||
llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd','tact') && in oOperatii_comune.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.Click
|
||
this.LostFocus(.t.)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.LostFocus
|
||
PARAMETERS PlClick
|
||
lcCont = scc
|
||
lcAcont = ascc
|
||
llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc','tact') && in oOperatii_comune.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column27.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column27.Text1.InteractiveChange
|
||
thisform.command3.Click(0)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x16'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x11'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x2'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column32.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x10'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column32.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.GotFocus
|
||
SELECT x_item FROM xitems WHERE ALLTRIM(UPPER(label_item)) == 'SUCURSALA' INTO CURSOR crsItem
|
||
SELECT crsItem
|
||
IF RECCOUNT() = 0 OR EMPTY(x_item)
|
||
thisform.pcx_item = 'x29' && XITEM DIN CONTABILITATE
|
||
ELSE
|
||
thisform.pcx_item = x_item && 'x32' IN XITEM DIN GESTIUNI
|
||
ENDIF
|
||
USE IN crsItem
|
||
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column34.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x70'
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column34.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column6.Text1.InteractiveChange
|
||
thisform.command1.Click
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column7.Text1.LostFocus
|
||
lcCont=scd
|
||
llReturn=exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column8.Text1.LostFocus
|
||
lcCont=scc
|
||
llReturn=exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_modific2007 AS _frmbase OF "_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="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.Column15.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column15.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.Column18.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column18.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.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="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.Column35.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column35.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column36.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column36._CHECKBOX1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column37.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column37.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column38.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column38.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column39.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column39.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column40.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column40.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.cAles.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.cAles.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.cAles._CHECKBOX1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column42.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column42.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column42._combobox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column43.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column43.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column43._combobox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cnomenclator" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="chkTVAEx" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtSuma" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="chkCtAnalitic" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdSelect" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: alege_partener
|
||
*m: aleg_document_pereche
|
||
*m: calculeazatotal
|
||
*m: ccontrol_assign
|
||
*m: creeaza_note_tva_incasare
|
||
*m: do_adauga_tva_exigibil
|
||
*m: do_import
|
||
*m: do_modifica_explicatie_tva
|
||
*m: grid_focus_prima_coloana
|
||
*m: salveazaxml
|
||
*m: updateexplicatiesaft
|
||
*m: valideaza_data
|
||
*m: verificaavertizareexigibilizaretva
|
||
*p: cacont
|
||
*p: ccont
|
||
*p: ccontrol
|
||
*p: cpaymentcode
|
||
*p: fel_compensare
|
||
*p: lavertizatexigibilizare
|
||
*p: lmodificare
|
||
*p: lnotanoua
|
||
*p: lverificare
|
||
*p: lvizualizare
|
||
*p: nid_set
|
||
*p: noldsuma && Valoarea la intrarea in campul "Suma"
|
||
*p: nsuma && Total suma inregistrari
|
||
*p: ntaxcode
|
||
*p: obackupxml
|
||
*p: oset
|
||
*p: ouset
|
||
*p: pccontrol
|
||
*p: pcx_item
|
||
*p: pncolumnorder
|
||
*p: pnid_item
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BackColor = 192,192,192
|
||
BorderStyle = 3
|
||
cacont =
|
||
ccont =
|
||
cpaymentcode =
|
||
DoCreate = .T.
|
||
FontCharSet = 238
|
||
Height = 360
|
||
lavertizatexigibilizare = .F.
|
||
lmodificare = .F.
|
||
lnotanoua = .F.
|
||
lverificare = .F.
|
||
lvizualizare = .F.
|
||
Name = "frm_modific2007"
|
||
nid_set = 0
|
||
noldsuma = 0
|
||
nsuma = 0
|
||
ntaxcode = 0
|
||
obackupxml = NULL
|
||
oset = NULL
|
||
ouset = NULL
|
||
pccontrol = []
|
||
pcx_item = 0
|
||
pncolumnorder = 0
|
||
pnid_item = 0
|
||
Width = 816
|
||
WindowType = 1
|
||
_memberdata = <VFPData>
|
||
<memberdata name="calculeazatotal" display="CalculeazaTotal"/>
|
||
<memberdata name="nsuma" display="nSuma"/>
|
||
<memberdata name="noldsuma" display="nOldSuma"/>
|
||
<memberdata name="cacont" display="cAcont"/>
|
||
<memberdata name="ccont" display="cCont"/>
|
||
<memberdata name="updateexplicatiesaft" display="UpdateExplicatieSAFT"/>
|
||
<memberdata name="cpaymentcode" display="cPaymentCode"/>
|
||
<memberdata name="ntaxcode" display="nTaxCode"/>
|
||
</VFPData>
|
||
_shape1.Anchor = 10
|
||
_shape1.Height = 31
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 820
|
||
_shape2.Anchor = 8
|
||
_shape2.Height = 31
|
||
_shape2.Left = 636
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 164
|
||
Lb_titlu_alb_b121.Caption = "MODIFICARE"
|
||
Lb_titlu_alb_b121.Left = 6
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 18
|
||
Lb_titlu_alb_b121.Top = 2
|
||
BUT_TERMIN1.Anchor = 8
|
||
BUT_TERMIN1.Left = 784
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 11
|
||
BUT_TERMIN1.Top = 2
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_label1' AS _label WITH ;
|
||
Anchor = 12, ;
|
||
Caption = "Total", ;
|
||
FontBold = .T., ;
|
||
Left = 511, ;
|
||
Name = "_label1", ;
|
||
TabIndex = 21, ;
|
||
Top = 334
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
|
||
Anchor = 8, ;
|
||
caction = do_copie, ;
|
||
Left = 665, ;
|
||
Name = "But_copiaza1", ;
|
||
TabIndex = 15, ;
|
||
ToolTipText = "Copiere - Se copiaza toate campurile din inregistrarea curenta sau inregistrarile alese ", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
|
||
Anchor = 8, ;
|
||
caction = do_import, ;
|
||
Left = 605, ;
|
||
Name = "But_modiparam1", ;
|
||
TabIndex = 17, ;
|
||
ToolTipText = "Import din fisier MT940, xls...", ;
|
||
Top = 2, ;
|
||
Visible = .F.
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 8, ;
|
||
Left = 636, ;
|
||
Name = "But_nou1", ;
|
||
TabIndex = 16, ;
|
||
ToolTipText = "Adaugare (CTRL+N) Se copiaza inregistrarea curenta sau inregistrarile alese, fara campurile: cont, partener, document pereche, suma lei, suma valuta", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Anchor = 8, ;
|
||
Left = 754, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 12, ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ;
|
||
Anchor = 8, ;
|
||
Left = 724, ;
|
||
Name = "But_salveaza1", ;
|
||
TabIndex = 13, ;
|
||
ToolTipText = "Salvare set note contabile", ;
|
||
Top = 2
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 8, ;
|
||
Left = 694, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 14, ;
|
||
Top = 2, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'chkCtAnalitic' AS _checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Copiez ct. analitic", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
Left = 689, ;
|
||
Name = "chkCtAnalitic", ;
|
||
TabIndex = 10, ;
|
||
ToolTipText = "Se completeaza contul analitic in toate inregistrarile pentru contul sintetic curent", ;
|
||
Top = 332, ;
|
||
Width = 120
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'chkTVAEx' AS _checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Suma TVA exigibil", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
Left = 689, ;
|
||
Name = "chkTVAEx", ;
|
||
TabIndex = 9, ;
|
||
ToolTipText = "Calculeaza suma TVA exigibil la adaugare note TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
|
||
Top = 271, ;
|
||
Value = 1, ;
|
||
Width = 123
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'cmdSelect' AS commandbutton WITH ;
|
||
Anchor = 6, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Selecteaza tot", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
FontUnderline = .T., ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 4, ;
|
||
Name = "cmdSelect", ;
|
||
TabIndex = 4, ;
|
||
Top = 328, ;
|
||
Width = 114
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cnomenclator' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Nomenclator", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "cnomenclator", ;
|
||
TabIndex = 4, ;
|
||
Top = 105, ;
|
||
Width = 114
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Partener Debit", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "Command1", ;
|
||
TabIndex = 2, ;
|
||
ToolTipText = "Alege partenerul cont debit", ;
|
||
Top = 46, ;
|
||
Width = 114
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Partener Credit", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "Command2", ;
|
||
TabIndex = 3, ;
|
||
ToolTipText = "Alege partenerul cont credit", ;
|
||
Top = 75, ;
|
||
Width = 114
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Doc. platit", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 46, ;
|
||
Left = 688, ;
|
||
Name = "Command3", ;
|
||
TabIndex = 5, ;
|
||
ToolTipText = "Alege document platit (cont debitor). Este activ daca este completat contul si partenerul debit.", ;
|
||
Top = 137, ;
|
||
Width = 114, ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command4' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Explicatie TVA", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 34, ;
|
||
Left = 688, ;
|
||
Name = "Command4", ;
|
||
TabIndex = 7, ;
|
||
Top = 232, ;
|
||
Width = 114
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command5' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Adauga nota TVA devenit exigibil", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 41, ;
|
||
Left = 688, ;
|
||
Name = "Command5", ;
|
||
TabIndex = 8, ;
|
||
ToolTipText = "Adauga nota TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
|
||
Top = 288, ;
|
||
Width = 114, ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command6' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Doc. incasat", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 46, ;
|
||
Left = 688, ;
|
||
Name = "Command6", ;
|
||
TabIndex = 6, ;
|
||
ToolTipText = "Alege document incasat (cont creditor). Este activ daca este completat contul si partenerul credit.", ;
|
||
Top = 183, ;
|
||
Width = 114, ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||
Anchor = 15, ;
|
||
BackColor = 244,250,255, ;
|
||
ColumnCount = 43, ;
|
||
DeleteMark = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
GridLineColor = 128,128,128, ;
|
||
HeaderHeight = 37, ;
|
||
Height = 284, ;
|
||
HighlightBackColor = 0,64,128, ;
|
||
HighlightStyle = 2, ;
|
||
Left = 5, ;
|
||
Name = "Grid1", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .F., ;
|
||
RecordSource = "tACT", ;
|
||
RowHeight = 19, ;
|
||
SelectedItemBackColor = 49,106,197, ;
|
||
TabIndex = 1, ;
|
||
Top = 40, ;
|
||
Width = 675, ;
|
||
ZOrderSet = 3, ;
|
||
Column1.Alignment = 1, ;
|
||
Column1.BackColor = 244,250,255, ;
|
||
Column1.ColumnOrder = 1, ;
|
||
Column1.ControlSource = "NRCRT()", ;
|
||
Column1.FontCharSet = 238, ;
|
||
Column1.FontName = "Arial", ;
|
||
Column1.FontSize = 10, ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.ReadOnly = .F., ;
|
||
Column1.Width = 29, ;
|
||
Column2.Alignment = 0, ;
|
||
Column2.BackColor = 244,250,255, ;
|
||
Column2.ColumnOrder = 3, ;
|
||
Column2.ControlSource = "dataireg", ;
|
||
Column2.FontCharSet = 238, ;
|
||
Column2.FontName = "Arial", ;
|
||
Column2.FontSize = 10, ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.ReadOnly = .F., ;
|
||
Column2.Width = 71, ;
|
||
Column3.Alignment = 0, ;
|
||
Column3.BackColor = 244,250,255, ;
|
||
Column3.ColumnOrder = 15, ;
|
||
Column3.ControlSource = "fdoc", ;
|
||
Column3.FontCharSet = 238, ;
|
||
Column3.FontName = "Arial", ;
|
||
Column3.FontSize = 10, ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.ReadOnly = .F., ;
|
||
Column3.Width = 88, ;
|
||
Column4.Alignment = 0, ;
|
||
Column4.BackColor = 244,250,255, ;
|
||
Column4.ColumnOrder = 4, ;
|
||
Column4.ControlSource = "dataact", ;
|
||
Column4.FontCharSet = 238, ;
|
||
Column4.FontName = "Arial", ;
|
||
Column4.FontSize = 10, ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.ReadOnly = .F., ;
|
||
Column4.Width = 51, ;
|
||
Column5.Alignment = 1, ;
|
||
Column5.BackColor = 244,250,255, ;
|
||
Column5.ColumnOrder = 6, ;
|
||
Column5.ControlSource = "nract", ;
|
||
Column5.FontCharSet = 238, ;
|
||
Column5.FontName = "Arial", ;
|
||
Column5.FontSize = 10, ;
|
||
Column5.Name = "Column5", ;
|
||
Column5.ReadOnly = .F., ;
|
||
Column5.Width = 53, ;
|
||
Column6.Alignment = 0, ;
|
||
Column6.BackColor = 244,250,255, ;
|
||
Column6.ColumnOrder = 7, ;
|
||
Column6.ControlSource = "partd", ;
|
||
Column6.FontCharSet = 238, ;
|
||
Column6.FontName = "Arial", ;
|
||
Column6.FontSize = 10, ;
|
||
Column6.Name = "Column6", ;
|
||
Column6.ReadOnly = .F., ;
|
||
Column6.Width = 114, ;
|
||
Column7.Alignment = 1, ;
|
||
Column7.BackColor = 244,250,255, ;
|
||
Column7.ColumnOrder = 10, ;
|
||
Column7.ControlSource = "scd", ;
|
||
Column7.FontCharSet = 238, ;
|
||
Column7.FontName = "Arial", ;
|
||
Column7.FontSize = 10, ;
|
||
Column7.Name = "Column7", ;
|
||
Column7.ReadOnly = .F., ;
|
||
Column7.Width = 57, ;
|
||
Column8.Alignment = 1, ;
|
||
Column8.BackColor = 244,250,255, ;
|
||
Column8.ColumnOrder = 12, ;
|
||
Column8.ControlSource = "scc", ;
|
||
Column8.FontCharSet = 238, ;
|
||
Column8.FontName = "Arial", ;
|
||
Column8.FontSize = 10, ;
|
||
Column8.Name = "Column8", ;
|
||
Column8.ReadOnly = .F., ;
|
||
Column8.Width = 62, ;
|
||
Column9.Alignment = 1, ;
|
||
Column9.BackColor = 244,250,255, ;
|
||
Column9.ColumnOrder = 14, ;
|
||
Column9.ControlSource = "suma", ;
|
||
Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
||
Column9.FontCharSet = 238, ;
|
||
Column9.FontName = "Arial", ;
|
||
Column9.FontSize = 10, ;
|
||
Column9.Format = "r", ;
|
||
Column9.InputMask = (get_mask(12,gnPa)), ;
|
||
Column9.Name = "Column9", ;
|
||
Column9.ReadOnly = .F., ;
|
||
Column9.Width = 93, ;
|
||
Column10.Alignment = 0, ;
|
||
Column10.BackColor = 244,250,255, ;
|
||
Column10.ColumnOrder = 8, ;
|
||
Column10.ControlSource = "partc", ;
|
||
Column10.FontCharSet = 238, ;
|
||
Column10.FontName = "Arial", ;
|
||
Column10.FontSize = 10, ;
|
||
Column10.Name = "Column10", ;
|
||
Column10.ReadOnly = .F., ;
|
||
Column10.Width = 100, ;
|
||
Column11.Alignment = 0, ;
|
||
Column11.BackColor = 244,250,255, ;
|
||
Column11.ColumnOrder = 9, ;
|
||
Column11.ControlSource = "explicatia", ;
|
||
Column11.FontCharSet = 238, ;
|
||
Column11.FontName = "Arial", ;
|
||
Column11.FontSize = 10, ;
|
||
Column11.Name = "Column11", ;
|
||
Column11.ReadOnly = .F., ;
|
||
Column11.Width = 77, ;
|
||
Column12.BackColor = 244,250,255, ;
|
||
Column12.ColumnOrder = 37, ;
|
||
Column12.ControlSource = "cod", ;
|
||
Column12.FontCharSet = 238, ;
|
||
Column12.FontName = "Arial", ;
|
||
Column12.FontSize = 10, ;
|
||
Column12.Name = "Column12", ;
|
||
Column12.ReadOnly = .T., ;
|
||
Column12.Width = 52, ;
|
||
Column13.BackColor = 244,250,255, ;
|
||
Column13.ColumnOrder = 16, ;
|
||
Column13.ControlSource = "pereched", ;
|
||
Column13.FontCharSet = 238, ;
|
||
Column13.FontName = "Arial", ;
|
||
Column13.FontSize = 10, ;
|
||
Column13.Name = "Column13", ;
|
||
Column13.ReadOnly = .F., ;
|
||
Column13.Width = 106, ;
|
||
Column14.BackColor = 244,250,255, ;
|
||
Column14.ColumnOrder = 31, ;
|
||
Column14.ControlSource = "explicatia4", ;
|
||
Column14.FontCharSet = 238, ;
|
||
Column14.FontName = "Arial", ;
|
||
Column14.FontSize = 10, ;
|
||
Column14.Name = "Column14", ;
|
||
Column14.ReadOnly = .F., ;
|
||
Column14.Width = 120, ;
|
||
Column15.BackColor = 244,250,255, ;
|
||
Column15.ColumnOrder = 24, ;
|
||
Column15.ControlSource = "nrord", ;
|
||
Column15.FontCharSet = 238, ;
|
||
Column15.FontName = "Arial", ;
|
||
Column15.FontSize = 10, ;
|
||
Column15.Name = "Column15", ;
|
||
Column15.ReadOnly = .F., ;
|
||
Column16.BackColor = 244,250,255, ;
|
||
Column16.ColumnOrder = 26, ;
|
||
Column16.ControlSource = "nresp", ;
|
||
Column16.FontCharSet = 238, ;
|
||
Column16.FontName = "Arial", ;
|
||
Column16.FontSize = 10, ;
|
||
Column16.Format = "", ;
|
||
Column16.InputMask = "", ;
|
||
Column16.Name = "Column16", ;
|
||
Column16.ReadOnly = .F., ;
|
||
Column17.BackColor = 244,250,255, ;
|
||
Column17.ColumnOrder = 27, ;
|
||
Column17.ControlSource = "dst_chlt", ;
|
||
Column17.FontCharSet = 238, ;
|
||
Column17.FontName = "Arial", ;
|
||
Column17.FontSize = 10, ;
|
||
Column17.Format = "", ;
|
||
Column17.InputMask = "", ;
|
||
Column17.Name = "Column17", ;
|
||
Column17.ReadOnly = .F., ;
|
||
Column18.BackColor = 244,250,255, ;
|
||
Column18.ColumnOrder = 32, ;
|
||
Column18.ControlSource = "explicatia5", ;
|
||
Column18.FontCharSet = 238, ;
|
||
Column18.FontName = "Arial", ;
|
||
Column18.FontSize = 10, ;
|
||
Column18.Name = "Column18", ;
|
||
Column18.ReadOnly = .F., ;
|
||
Column18.Width = 119, ;
|
||
Column19.BackColor = 244,250,255, ;
|
||
Column19.ColumnOrder = 23, ;
|
||
Column19.ControlSource = "datascad", ;
|
||
Column19.FontCharSet = 238, ;
|
||
Column19.FontName = "Arial", ;
|
||
Column19.FontSize = 10, ;
|
||
Column19.Name = "Column19", ;
|
||
Column19.ReadOnly = .F., ;
|
||
Column19.Visible = .T., ;
|
||
Column19.Width = 87, ;
|
||
Column20.BackColor = 244,250,255, ;
|
||
Column20.ColumnOrder = 28, ;
|
||
Column20.ControlSource = "suma_val", ;
|
||
Column20.FontCharSet = 238, ;
|
||
Column20.FontName = "Arial", ;
|
||
Column20.FontSize = 10, ;
|
||
Column20.InputMask = (get_mask(12,gnPa)), ;
|
||
Column20.Name = "Column20", ;
|
||
Column20.ReadOnly = .F., ;
|
||
Column20.Width = 89, ;
|
||
Column21.BackColor = 244,250,255, ;
|
||
Column21.ColumnOrder = 30, ;
|
||
Column21.ControlSource = "curs", ;
|
||
Column21.FontCharSet = 238, ;
|
||
Column21.FontName = "Arial", ;
|
||
Column21.FontSize = 10, ;
|
||
Column21.InputMask = (get_mask(12,gnPcurs)), ;
|
||
Column21.Name = "Column21", ;
|
||
Column21.ReadOnly = .F., ;
|
||
Column21.Width = 72, ;
|
||
Column22.BackColor = 244,250,255, ;
|
||
Column22.ColumnOrder = 33, ;
|
||
Column22.ControlSource = "gestin", ;
|
||
Column22.FontCharSet = 238, ;
|
||
Column22.FontName = "Arial", ;
|
||
Column22.FontSize = 10, ;
|
||
Column22.Name = "Column22", ;
|
||
Column22.ReadOnly = .F., ;
|
||
Column22.Width = 116, ;
|
||
Column23.BackColor = 244,250,255, ;
|
||
Column23.ColumnOrder = 11, ;
|
||
Column23.ControlSource = "ascd", ;
|
||
Column23.FontCharSet = 238, ;
|
||
Column23.FontName = "Arial", ;
|
||
Column23.FontSize = 10, ;
|
||
Column23.Name = "Column23", ;
|
||
Column23.ReadOnly = .F., ;
|
||
Column23.Width = 46, ;
|
||
Column24.BackColor = 244,250,255, ;
|
||
Column24.ColumnOrder = 13, ;
|
||
Column24.ControlSource = "ascc", ;
|
||
Column24.FontCharSet = 238, ;
|
||
Column24.FontName = "Arial", ;
|
||
Column24.FontSize = 10, ;
|
||
Column24.Name = "Column24", ;
|
||
Column24.ReadOnly = .F., ;
|
||
Column24.Width = 48, ;
|
||
Column25.BackColor = 244,250,255, ;
|
||
Column25.ColumnOrder = 38, ;
|
||
Column25.ControlSource = "id_set", ;
|
||
Column25.FontCharSet = 238, ;
|
||
Column25.FontName = "Arial", ;
|
||
Column25.FontSize = 10, ;
|
||
Column25.Name = "Column25", ;
|
||
Column25.ReadOnly = .T., ;
|
||
Column25.Width = 71, ;
|
||
Column26.BackColor = 244,250,255, ;
|
||
Column26.ColumnOrder = 19, ;
|
||
Column26.ControlSource = "proc_tva", ;
|
||
Column26.FontCharSet = 238, ;
|
||
Column26.FontName = "Arial", ;
|
||
Column26.FontSize = 10, ;
|
||
Column26.Name = "Column26", ;
|
||
Column26.ReadOnly = .T., ;
|
||
Column26.Width = 54, ;
|
||
Column27.BackColor = 244,250,255, ;
|
||
Column27.ColumnOrder = 17, ;
|
||
Column27.ControlSource = "perechec", ;
|
||
Column27.FontCharSet = 238, ;
|
||
Column27.FontName = "Arial", ;
|
||
Column27.FontSize = 10, ;
|
||
Column27.Name = "Column27", ;
|
||
Column27.ReadOnly = .F., ;
|
||
Column27.Width = 104, ;
|
||
Column28.BackColor = 244,250,255, ;
|
||
Column28.ColumnOrder = 35, ;
|
||
Column28.ControlSource = "sectie", ;
|
||
Column28.FontCharSet = 238, ;
|
||
Column28.FontName = "Arial", ;
|
||
Column28.FontSize = 10, ;
|
||
Column28.Name = "Column28", ;
|
||
Column28.ReadOnly = .F., ;
|
||
Column28.Width = 88, ;
|
||
Column29.BackColor = 244,250,255, ;
|
||
Column29.ColumnOrder = 29, ;
|
||
Column29.ControlSource = "nume_val", ;
|
||
Column29.FontCharSet = 238, ;
|
||
Column29.FontName = "Arial", ;
|
||
Column29.FontSize = 10, ;
|
||
Column29.Name = "Column29", ;
|
||
Column29.ReadOnly = .F., ;
|
||
Column29.Width = 79, ;
|
||
Column30.BackColor = 244,250,255, ;
|
||
Column30.ColumnOrder = 39, ;
|
||
Column30.ControlSource = "id_partd", ;
|
||
Column30.FontCharSet = 238, ;
|
||
Column30.FontName = "Arial", ;
|
||
Column30.FontSize = 10, ;
|
||
Column30.Name = "Column30", ;
|
||
Column30.ReadOnly = .T., ;
|
||
Column30.Width = 55, ;
|
||
Column31.BackColor = 244,250,255, ;
|
||
Column31.ColumnOrder = 40, ;
|
||
Column31.ControlSource = "id_partc", ;
|
||
Column31.FontCharSet = 238, ;
|
||
Column31.FontName = "Arial", ;
|
||
Column31.FontSize = 10, ;
|
||
Column31.Name = "Column31", ;
|
||
Column31.ReadOnly = .T., ;
|
||
Column31.Width = 55, ;
|
||
Column32.BackColor = 244,250,255, ;
|
||
Column32.ColumnOrder = 34, ;
|
||
Column32.ControlSource = "gestout", ;
|
||
Column32.FontCharSet = 238, ;
|
||
Column32.FontName = "Arial", ;
|
||
Column32.FontSize = 10, ;
|
||
Column32.Name = "Column32", ;
|
||
Column32.ReadOnly = .F., ;
|
||
Column32.Width = 92, ;
|
||
Column33.BackColor = 244,250,255, ;
|
||
Column33.ColumnOrder = 36, ;
|
||
Column33.ControlSource = "sucursala", ;
|
||
Column33.FontCharSet = 238, ;
|
||
Column33.FontName = "Arial", ;
|
||
Column33.FontSize = 10, ;
|
||
Column33.Name = "Column33", ;
|
||
Column33.ReadOnly = .F., ;
|
||
Column33.Width = 121, ;
|
||
Column34.BackColor = 244,250,255, ;
|
||
Column34.ColumnOrder = 25, ;
|
||
Column34.ControlSource = "contract", ;
|
||
Column34.FontCharSet = 238, ;
|
||
Column34.FontName = "Arial", ;
|
||
Column34.FontSize = 10, ;
|
||
Column34.Name = "Column34", ;
|
||
Column34.ReadOnly = .T., ;
|
||
Column34.Width = 65, ;
|
||
Column35.BackColor = 244,250,255, ;
|
||
Column35.ColumnOrder = 20, ;
|
||
Column35.ControlSource = "explicatie_tva", ;
|
||
Column35.FontCharSet = 238, ;
|
||
Column35.FontName = "Arial", ;
|
||
Column35.FontSize = 10, ;
|
||
Column35.Name = "Column35", ;
|
||
Column35.ReadOnly = .F., ;
|
||
Column35.Width = 136, ;
|
||
Column36.BackColor = 244,250,255, ;
|
||
Column36.ColumnOrder = 18, ;
|
||
Column36.ControlSource = "cu_tva", ;
|
||
Column36.FontCharSet = 238, ;
|
||
Column36.FontName = "Arial", ;
|
||
Column36.FontSize = 10, ;
|
||
Column36.Name = "Column36", ;
|
||
Column36.ReadOnly = .F., ;
|
||
Column36.Sparse = .F., ;
|
||
Column36.Width = 51, ;
|
||
Column37.BackColor = 244,250,255, ;
|
||
Column37.ColumnOrder = 5, ;
|
||
Column37.ControlSource = "serie_act", ;
|
||
Column37.FontCharSet = 238, ;
|
||
Column37.FontName = "Arial", ;
|
||
Column37.FontSize = 10, ;
|
||
Column37.Format = "!", ;
|
||
Column37.Name = "Column37", ;
|
||
Column37.ReadOnly = .F., ;
|
||
Column37.Width = 58, ;
|
||
Column38.BackColor = 244,250,255, ;
|
||
Column38.ColumnOrder = 41, ;
|
||
Column38.ControlSource = "id_fact", ;
|
||
Column38.FontCharSet = 238, ;
|
||
Column38.FontName = "Arial", ;
|
||
Column38.FontSize = 10, ;
|
||
Column38.Name = "Column38", ;
|
||
Column38.ReadOnly = .T., ;
|
||
Column38.Width = 94, ;
|
||
Column39.BackColor = 244,250,255, ;
|
||
Column39.ColumnOrder = 42, ;
|
||
Column39.ControlSource = "id_factd", ;
|
||
Column39.FontCharSet = 238, ;
|
||
Column39.FontName = "Arial", ;
|
||
Column39.FontSize = 10, ;
|
||
Column39.Name = "Column39", ;
|
||
Column39.ReadOnly = .T., ;
|
||
Column39.Width = 75, ;
|
||
Column40.BackColor = 244,250,255, ;
|
||
Column40.ColumnOrder = 43, ;
|
||
Column40.ControlSource = "id_factc", ;
|
||
Column40.FontCharSet = 238, ;
|
||
Column40.FontName = "Arial", ;
|
||
Column40.FontSize = 10, ;
|
||
Column40.Name = "Column40", ;
|
||
Column40.ReadOnly = .T., ;
|
||
Column41.BackColor = 244,250,255, ;
|
||
Column41.ColumnOrder = 2, ;
|
||
Column41.ControlSource = "ales", ;
|
||
Column41.CurrentControl = "_CHECKBOX1", ;
|
||
Column41.FontCharSet = 238, ;
|
||
Column41.FontName = "Arial", ;
|
||
Column41.FontSize = 10, ;
|
||
Column41.Name = "cAles", ;
|
||
Column41.ReadOnly = .F., ;
|
||
Column41.Sparse = .F., ;
|
||
Column41.Width = 22, ;
|
||
Column42.BackColor = 244,250,255, ;
|
||
Column42.Bound = .F., ;
|
||
Column42.ColumnOrder = 21, ;
|
||
Column42.ControlSource = "Iif(Seek(tAct.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ;
|
||
Column42.CurrentControl = "_combobox1", ;
|
||
Column42.FontCharSet = 238, ;
|
||
Column42.FontSize = 10, ;
|
||
Column42.Name = "Column42", ;
|
||
Column42.ReadOnly = .F., ;
|
||
Column42.Sparse = .F., ;
|
||
Column42.Width = 184, ;
|
||
Column43.BackColor = 244,250,255, ;
|
||
Column43.Bound = .F., ;
|
||
Column43.ColumnOrder = 22, ;
|
||
Column43.ControlSource = "Iif(Seek(tAct.paymentcode,'saft_mecanisme_plati','mcode'),saft_mecanisme_plati.paymentname,'')", ;
|
||
Column43.CurrentControl = "_combobox1", ;
|
||
Column43.FontCharSet = 238, ;
|
||
Column43.FontSize = 10, ;
|
||
Column43.Name = "Column43", ;
|
||
Column43.ReadOnly = .F., ;
|
||
Column43.Sparse = .F., ;
|
||
Column43.Width = 146
|
||
*< END OBJECT: BaseClass="grid" />
|
||
|
||
ADD OBJECT 'Grid1.cAles._CHECKBOX1' AS _checkbox WITH ;
|
||
Alignment = 2, ;
|
||
BackColor = 255,255,255, ;
|
||
Caption = "", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Left = 9, ;
|
||
Name = "_CHECKBOX1", ;
|
||
ReadOnly = .F., ;
|
||
Top = 79
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Grid1.cAles.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Ales", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.cAles.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "NrCrt", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatie C", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Expl.3", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "COD", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. doc. platit (debit)", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatia 4", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lucrarea", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Responsabil", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cheltuiala", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatia 5", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data scadenta", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197, ;
|
||
Visible = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data Inreg.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header2"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Suma in valuta", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Curs valutar", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column21.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune destinatie", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column23.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "AnalitD", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column23.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column24.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "AnalitC", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column24.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Tip operatie", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column25.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cota TVA", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column26.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column27.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. doc. incasat (credit)", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column28.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sectia", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column28.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column29.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nume Valuta", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Fel Doc.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header3"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Part D", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column30.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Part C", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column31.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune sursa", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column33.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sucursala", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column34.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Contract", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column34.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column35.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatie TVA", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column35.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column36._CHECKBOX1' AS _checkbox WITH ;
|
||
Alignment = 2, ;
|
||
AutoSize = .F., ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Left = 19, ;
|
||
Name = "_CHECKBOX1", ;
|
||
Top = 31
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column36.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cu TVA", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column37.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Serie doc.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column37.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column38.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id factura", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column38.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column39.Header1' AS header WITH ;
|
||
Caption = "Id Factura D", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column39.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data Act", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header4"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column40.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Factura C", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column40.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column42._combobox1' AS _combobox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
BoundColumn = 4, ;
|
||
BoundTo = .T., ;
|
||
ColumnCount = 3, ;
|
||
ColumnLines = .F., ;
|
||
ColumnWidths = "450,150,40", ;
|
||
ControlSource = "tAct.taxcode", ;
|
||
Left = 32, ;
|
||
Name = "_combobox1", ;
|
||
RowSource = "select taxname, tip, CAST(procent_taxa as N(6,2) null) as procent_taxa, taxcode from saft_taxtable order by tva, tva_livrari, tva_achizitii, wht, taxcode into cursor crsTaxTableX", ;
|
||
RowSourceType = 3, ;
|
||
Top = 55
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Grid1.Column42.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Taxa SAFT", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column42.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column43._combobox1' AS _combobox WITH ;
|
||
BorderStyle = 0, ;
|
||
BoundColumn = 3, ;
|
||
BoundTo = .T., ;
|
||
ColumnCount = 2, ;
|
||
ColumnLines = .F., ;
|
||
ColumnWidths = "300,150", ;
|
||
ControlSource = "tAct.paymentcode", ;
|
||
Left = 93, ;
|
||
Name = "_combobox1", ;
|
||
ReadOnly = .F., ;
|
||
RowSource = "select paymentname, methodname, mechanismcode from saft_mecanisme_plati where afisat = 1 order by ordine into cursor crsPaymentX", ;
|
||
RowSourceType = 3, ;
|
||
Top = 67
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Grid1.Column43.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Plata SAFT", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column43.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.Doc.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header5"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatie D", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header6"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderColor = 0,0,0, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont Deb.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header7"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont Cred.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header8"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Suma", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header9"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
||
Height = 17, ;
|
||
Left = 570, ;
|
||
Name = "Gridextra1", ;
|
||
Top = 11, ;
|
||
Width = 24
|
||
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
|
||
Caption = "CTRL+F = Terminare; ESC = Renun<75>are; CTRL+N = Ad<41>ugare; CTRL+D = <20>tergere", ;
|
||
Left = 5, ;
|
||
Name = "Lb_shortcuts1", ;
|
||
TabIndex = 19, ;
|
||
Top = 17
|
||
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'txtSuma' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Anchor = 12, ;
|
||
ControlSource = "thisform.nSuma", ;
|
||
FontCharSet = 238, ;
|
||
Format = "R", ;
|
||
Height = 23, ;
|
||
InputMask = (get_mask(16,gnPa)), ;
|
||
Left = 556, ;
|
||
Name = "txtSuma", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 20, ;
|
||
Top = 330, ;
|
||
Value = 0, ;
|
||
Width = 123
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
PROCEDURE alege_partener
|
||
*!* 07.11.2011
|
||
*!* marius.mutu
|
||
*!* daca se schimba partenerul, se pune id_fact = -1 in loc de 0
|
||
*!* pentru a se putea genera un nou id_fact
|
||
|
||
*!* 26.02.2018
|
||
*!* se inlocuieste partenerul pentru toate inregistrarile alese, optional
|
||
|
||
LPARAMETERS tcExplicatie, tlSilent
|
||
*** tcExplicatie: D/C
|
||
*** tlSilent: .T. = afiseaza mesaj "contul nu este configurat cu parteneri" - pentru apasarea manuala pe butonul Partener
|
||
|
||
PRIVATE pcCont
|
||
LOCAL lnIdPartOriginal, lnIdPart, lnrezultat, lnsucces
|
||
LOCAL lcExplicatie
|
||
LOCAL lcSql, lcnume, llToate, lnRecno, locauta
|
||
IF EMPTY(tcExplicatie)
|
||
lcExplicatie = 'D'
|
||
ELSE
|
||
lcExplicatie = UPPER(ALLTRIM(m.tcExplicatie))
|
||
ENDIF
|
||
lnIdPart = 0
|
||
|
||
SELECT tact
|
||
pcCont = IIF(m.lcExplicatie = 'D', ALLTRIM(NVL(tact.scd, '')), ALLTRIM(NVL(tact.scc, '')))
|
||
IF EMPTY(pcCont)
|
||
IF !m.tlSilent
|
||
AMESSAGEBOX('Completati contul ' + IIF(m.lcExplicatie = 'D', 'debitor.', 'creditor.'), 0 + 48, _SCREEN.CAPTION)
|
||
ENDIF
|
||
RETURN lnIdPart
|
||
ENDIF
|
||
lnIdPartOriginal = IIF(m.lcExplicatie = 'D', id_partd, id_partc)
|
||
|
||
lnrezultat = 0
|
||
lnsucces = 0
|
||
lcSql = "select count(*) from config_cont_ireg where cont = &pcCont"
|
||
lnsucces = goExecutor.oSelect2Value(lcSql, @lnrezultat)
|
||
|
||
IF lnsucces > 0
|
||
IF NVL(lnrezultat, 0) > 0
|
||
locauta = THISFORM.do_cauta(pcCont)
|
||
IF gnButon = 1
|
||
lnIdPart = locauta.id_part
|
||
lcnume = ALLTRIM(locauta.nume)
|
||
|
||
llToate = .F.
|
||
SELECT tact
|
||
lnRecno = RECNO()
|
||
LOCATE FOR ales
|
||
IF FOUND() AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?', 4 + 32, _SCREEN.CAPTION) = 6
|
||
llToate = .T.
|
||
ENDIF
|
||
GOTO m.lnRecno
|
||
|
||
SELECT tact
|
||
IF m.lcExplicatie = 'D'
|
||
IF m.llToate
|
||
REPLACE id_partd WITH lnIdPart, partd WITH lcnume FOR ales
|
||
ELSE
|
||
REPLACE id_partd WITH lnIdPart, partd WITH lcnume
|
||
ENDIF
|
||
IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
|
||
REPLACE pereched WITH 0, id_factd WITH - 1
|
||
ENDIF
|
||
ELSE
|
||
IF m.llToate
|
||
REPLACE id_partc WITH lnIdPart, partc WITH lcnume FOR ales
|
||
ELSE
|
||
REPLACE id_partc WITH lnIdPart, partc WITH lcnume
|
||
ENDIF
|
||
IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
|
||
REPLACE perechec WITH 0, id_factc WITH - 1
|
||
ENDIF
|
||
ENDIF
|
||
ENDIF
|
||
ELSE
|
||
IF !m.tlSilent
|
||
AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16, "Eroare")
|
||
ENDIF
|
||
ENDIF
|
||
ELSE
|
||
AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16, "Eroare")
|
||
ENDIF
|
||
|
||
RETURN lnIdPart
|
||
ENDPROC
|
||
|
||
PROCEDURE aleg_document_pereche
|
||
PARAMETERS tcFel,toAct
|
||
LOCAL lcSel,lcSelAct
|
||
lcSelAct = thisform.grid1.RecordSource
|
||
pnFelCont = tcFel
|
||
|
||
IF pnFelCont = 0 && ACTIV
|
||
pcContul = ALLTRIM(NVL(toAct.scc,[]))
|
||
pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
|
||
pnIdPart = NVL(toAct.Id_partc,0)
|
||
pcNume = ALLTRIM(NVL(toAct.partc,[]))
|
||
pnPereche = [perecheC]
|
||
pnIdPereche = [id_factC]
|
||
ELSE && PASIV
|
||
pcContul = ALLTRIM(NVL(toAct.scd,[]))
|
||
pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
|
||
pnIdPart = NVL(toAct.Id_partd,0)
|
||
pcNume = ALLTRIM(NVL(toAct.partd,[]))
|
||
pnPereche = [perecheD]
|
||
pnIdPereche = [id_factD]
|
||
ENDIF
|
||
|
||
lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
|
||
lcCursor = [crsTest]
|
||
lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
|
||
IF lnSucces < 0
|
||
aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT crsTest
|
||
LOCATE
|
||
IF ePereche = 0
|
||
USE IN crsTest
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
RETURN
|
||
ENDIF
|
||
|
||
|
||
IF !EMPTY(toAct.Suma_val)
|
||
llval = .t.
|
||
pnSuma = toAct.Suma_val
|
||
lcFormular = [ocompensari_val]
|
||
ELSE
|
||
llval = .f.
|
||
pnSuma = toAct.Suma
|
||
lcFormular = [ocompensari]
|
||
ENDIF
|
||
pnIdValuta = toAct.Id_Valuta
|
||
pcDenumire = [Partener ] + pcContul
|
||
|
||
pcCond = [ an = ?gnAn and luna = ?gnluna]
|
||
|
||
IF llval
|
||
pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
|
||
ELSE
|
||
pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
|
||
ENDIF
|
||
|
||
pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
|
||
IF ALLTRIM(pcACont) # [NULL]
|
||
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
|
||
ELSE
|
||
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
|
||
ENDIF
|
||
pcschema = ['']
|
||
pcorder = ['']
|
||
|
||
PRIVATE podateintrod
|
||
STORE '' TO podateintrod
|
||
|
||
gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
|
||
|
||
lcFis = 'actcv' + ALLTRIM(pcContul)
|
||
|
||
IF USED(lcFis)
|
||
USE IN &lcFis
|
||
ENDIF
|
||
|
||
IF pnFelCont = 0
|
||
lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
|
||
[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
|
||
[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
|
||
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
|
||
ELSE
|
||
lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
|
||
[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
|
||
[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
|
||
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
|
||
ENDIF
|
||
&lcsel
|
||
|
||
USE IN crs_actcv
|
||
SELECT (lcFis)
|
||
|
||
OPLATA=CREATEOBJECT(lcFormular)
|
||
OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
|
||
OPLATA.pcFis = lcFis
|
||
OPLATA.SUMA = pnSuma
|
||
OPLATA.pnFelCont = pnFelCont
|
||
OPLATA.SHOW(1)
|
||
|
||
IF gnButon = 1
|
||
SELECT (lcSelAct)
|
||
DELETE
|
||
SELECT (lcFis)
|
||
SCAN FOR ales
|
||
SCATTER NAME oper
|
||
SELECT (lcSelAct)
|
||
APPEND BLANK
|
||
GATHER NAME toAct
|
||
REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
|
||
SELECT (lcFis)
|
||
ENDSCAN
|
||
ELSE
|
||
SELECT (lcSelAct)
|
||
REPLACE &pnPereche WITH toact.&pnPereche
|
||
ENDIF
|
||
|
||
IF USED(lcFis)
|
||
USE IN (lcFis)
|
||
ENDIF
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE calculeazatotal
|
||
Local lcCursor, lcSelect, lnRecno
|
||
lcSelect = Select()
|
||
This.LockScreen = .T.
|
||
lcCursor = Thisform.grid1.RecordSource
|
||
Select (m.lcCursor)
|
||
lnRecno = Recno()
|
||
llEOF = EOF()
|
||
Calculate Sum(suma) To This.nSuma
|
||
If m.lnRecno > 0 AND !m.llEOF
|
||
Goto m.lnRecno
|
||
Endif
|
||
This.txtSuma.Refresh()
|
||
This.LockScreen = .F.
|
||
|
||
Select (m.lcSelect)
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE ccontrol_assign
|
||
LPARAMETERS vNewVal
|
||
*To do: Modify this routine for the Assign method
|
||
THIS.cControl = m.vNewVal
|
||
ENDPROC
|
||
|
||
PROCEDURE creeaza_note_tva_incasare
|
||
Lparameters tcCursorAct, toRec, tnSuma
|
||
* tcCursorAct: tAct = numele cursorului in care se adauga inregistrarile de TVA exigibil
|
||
* toRec: inregistrarea cu TVA incasare (id_fact, id_part etc.)
|
||
* tnSuma: suma incasata, din care se calculeaza TVA exigibil pe cote TVA
|
||
lnIdFact = toRec.id_fact
|
||
lnSuma = tnSuma
|
||
lnProcTVA = 0
|
||
lnIdJtvaColoana = 0
|
||
lnScd = Alltrim(toRec.scd)
|
||
lnScc = Alltrim(toRec.scc)
|
||
|
||
lcSql = [{call pack_contab.defalca_tva_incasare(] + Alltrim(Str(m.lnIdFact)) + [,] + ;
|
||
ALLTRIM(Str(m.lnSuma, 16, m.gnPC)) + [,] + ;
|
||
ALLTRIM(Str(m.lnProcTVA, 16, 4)) + [,] + ;
|
||
IIF(!Empty(Nvl(m.lnIdJtvaColoana,0)) And !(m.lnScd ='408' And m.lnScc ='401'),[0],[1]) + [,] + ;
|
||
[?gnLuna,?gnAn)}]
|
||
|
||
lcCursorDefTVA = Sys(2015)
|
||
If goExecutor.oExecuta(lcSql,lcCursorDefTVA)
|
||
|
||
SELECT (m.lcCursorDefTVA)
|
||
GO TOP
|
||
lcScd = ALLTRIM(scd)
|
||
lcScc = ALLTRIM(scc)
|
||
update_jtva_coloane(IIF(m.lcSCD = '4427' OR m.lcScc = '4427', 'JV', 'JC'), 'crsExplicatiiTVATemp', 1)
|
||
|
||
Insert Into &tcCursorAct(serie_act,luna,an,nract,ascd,scd,ascc,scc,;
|
||
suma,explicatia4,explicatia5,Curs,id_util,;
|
||
id_responsabil,nresp,id_venchelt,dst_chlt,id_lucrare,nrord,;
|
||
id_ctr,contract,id_sectie,sectie,proc_tva,id_set,id_fact,;
|
||
perecheC,perecheD,id_factD,id_factC,id_partd,partd,id_partc,partc,;
|
||
id_sucursala,sucursala,id_fdoc,fdoc,;
|
||
id_gestin,gestin,id_gestout,gestout,;
|
||
id_jtva_coloana, explicatie_tva, id_valuta,nume_val,dataact,dataireg, tipnota, cu_tva, tva_incasare) ;
|
||
Select Nvl(toRec.serie_act, '') As serie_act,;
|
||
toRec.luna As luna,toRec.an As an,toRec.nract As nract,a.ascd As ascd,a.scd As scd,a.ascc As ascc,a.scc As scc,;
|
||
a.suma As suma, Nvl(toRec.explicatia4, '') As explicatia4, Nvl(toRec.explicatia5, '') As explicatia5,toRec.Curs As Curs,toRec.id_util As id_util,;
|
||
toRec.id_responsabil As id_responsabil, Nvl(toRec.nresp, '') As nresp,toRec.id_venchelt As id_venchelt, Nvl(toRec.dst_chlt, '') As dst_chlt,;
|
||
toRec.id_lucrare As id_lucrare, Nvl(toRec.nrord, '') As nrord,toRec.id_ctr As id_ctr, Nvl(toRec.contract, '') As contract,;
|
||
toRec.id_sectie As id_sectie, Nvl(toRec.sectie, '') As sectie, a.proc_tva As proc_tva,toRec.id_set As id_set, a.id_fact As id_fact,;
|
||
a.perecheC As perecheC,a.perecheD As perecheD,;
|
||
0 As id_factD,0 As id_factC,0 As id_partd,'' As partd,0 As id_partc,'' As partc,;
|
||
CAST(toRec.id_sucursala as I null) As id_sucursala, Nvl(toRec.sucursala, '') As sucursala,toRec.id_fdoc As id_fdoc, Nvl(toRec.fdoc, '') As fdoc,;
|
||
toRec.id_gestin As id_gestin, Nvl(toRec.gestin, '') As gestin,;
|
||
toRec.id_gestout As id_gestout, Nvl(toRec.gestout, '') As gestout,;
|
||
a.id_jtva_coloana As id_jtva_coloana, b.denumire as explicatie_tva, toRec.id_valuta As id_valuta, Nvl(toRec.nume_val, '') As nume_val,toRec.dataact As dataact,toRec.dataireg As dataireg, ;
|
||
toRec.tipnota, toRec.cu_tva, toRec.tva_incasare ;
|
||
FROM (lcCursorDefTVA) a ;
|
||
LEFT JOIN crsExplicatiiTVATemp b ON a.id_jtva_coloana = b.id_jtva_coloana
|
||
|
||
USE IN (SELECT(lcCursorDefTVA))
|
||
USE IN (SELECT('crsExplicatiiTVATemp'))
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
*!* 27.07.2011
|
||
*!* marius.mutu
|
||
*!* nu se copiaza scd, scc, ascd, ascc
|
||
|
||
*!* 08.08.2011
|
||
*!* marius.mutu
|
||
*!* salvare xml nota in caz de fatal error. se reincarca la intrarea in nota fara predefinire
|
||
|
||
*!* 24.05.2011
|
||
Local lnRecno, loadd
|
||
Select tact
|
||
lnRecno = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = "ales"
|
||
ELSE
|
||
lcCond = "recno() = " + Alltrim(Str(lnRecno))
|
||
LOCATE FOR !DELETED()
|
||
IF !FOUND()
|
||
lcCond = ".T."
|
||
ENDIF
|
||
ENDIF
|
||
|
||
Select tact
|
||
SCAN FOR &lcCond
|
||
Scatter Name loadd Fields Except scd, ascd, scc, ascc, id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, suma_val, ales
|
||
IF NVL(m.gnIdSucursala,0) <> 0
|
||
loAdd.id_sucursala = m.gnIdSucursala
|
||
loAdd.sucursala = m.gcFirma
|
||
ENDIF
|
||
lnRecno = RECNO()
|
||
loadd.id_act = 0 && modificare ROACONT v 2.4.4
|
||
Append Blank
|
||
Gather Name loadd
|
||
GOTO lnRecno
|
||
ENDSCAN && ales
|
||
*!* 24.05.2011 ^
|
||
*!* 08.08.2011
|
||
This.SalveazaXml()
|
||
*!* 08.08.2011 ^
|
||
Do nrord With 'tact'
|
||
Thisform.CalculeazaTotal()
|
||
|
||
This.grid1.SetFocus
|
||
this.grid1.Refresh
|
||
this.grid_focus_prima_coloana()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga_tva_exigibil
|
||
*!*
|
||
*!* - tva devenit exigibil ( din nota cu plata / incasare ) :
|
||
*!* - de completat explicatia TVA
|
||
*!* - id_factd = 0 si id_fact = id_factd
|
||
*!* - id_partd = 0, id_partc = 0
|
||
*!* - suma = 0
|
||
*!* - proc_tva = 0; poate sa aleaga la explicatie TVA doar din cele exigibile
|
||
*!* - daca are o linie cu 4XX-5XXX sau 5XXX-4XX, atunci nu e activ decat pe linia respectiva
|
||
*!* - daca nu ( mai ) are nicio linie cu 4XX-5XXX sau 5XXX-4XX
|
||
*!* > ii arat o lista cu toate facturile din JV / JC din luna care mai au sold si ii completez id_fact
|
||
Local lnrecno, lnRecno1, loadd, llCalculeazaTVAEx, llCalculeazaNoteTVA
|
||
Local lcCond, lnSuma
|
||
|
||
llCalculeazaTVAEx = (Thisform.chkTVAEX.Value = 1) && calculeaza suma TVA Exigibil = 100/(100 + proc tva) din suma achitata
|
||
llCalculeazaNoteTVA = .F. && calculeaza note tva incasare pentru plati, incasari (5xx = xxx, xxx = 5xx)
|
||
|
||
Select tact
|
||
lnrecno = Recno()
|
||
lnrecno1 = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = [ales and (scc = '4428' or scd = '4428' or id_factd > 0 or id_factc > 0)]
|
||
Else
|
||
lcCond = "recno() = " + Alltrim(Str(m.lnrecno))
|
||
*!* LOCATE FOR !DELETED()
|
||
*!* IF !FOUND()
|
||
*!* lcCond = ".T."
|
||
*!* ENDIF
|
||
Endif
|
||
Select tact
|
||
Scan For &lcCond
|
||
Scatter Name m.loadd Fields Except ascd, ascc, ales, id_jtva_coloana, proc_tva, explicatie_tva
|
||
lnSuma = suma
|
||
loadd.tipnota = 1
|
||
loadd.cu_tva = 1
|
||
loadd.tva_incasare = 1
|
||
Do Case
|
||
Case m.loadd.scd = [4428]
|
||
If m.loadd.scc <> [4427]
|
||
loadd.scd = [4426]
|
||
loadd.scc = [4428]
|
||
loadd.pereched = m.loadd.nract
|
||
Endif
|
||
loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
|
||
loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
|
||
loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
|
||
|
||
Case m.loadd.scc = [4428]
|
||
If m.loadd.scd <> [4426]
|
||
loadd.scd = [4428]
|
||
loadd.scc = [4427]
|
||
loadd.perechec = m.loadd.nract
|
||
Endif
|
||
loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
|
||
loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
|
||
loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
|
||
|
||
Case !Empty(m.loadd.perechec) And Left(m.loadd.scd, 1) = '5'
|
||
loadd.scd = [4428]
|
||
loadd.scc = [4427]
|
||
loadd.id_fact = Iif(m.loadd.id_factc > 0, m.loadd.id_factc, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
loadd.id_factd = 0
|
||
loadd.id_factc = 0
|
||
llCalculeazaNoteTVA = m.llCalculeazaTVAEx
|
||
|
||
Case !Empty(m.loadd.pereched) And Left(m.loadd.scc, 1) = '5'
|
||
loadd.scd = [4426]
|
||
loadd.scc = [4428]
|
||
loadd.id_fact = Iif(m.loadd.id_factd > 0, m.loadd.id_factd, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
loadd.id_factd = 0
|
||
loadd.id_factc = 0
|
||
llCalculeazaNoteTVA = m.llCalculeazaTVAEx
|
||
|
||
Otherwise
|
||
If Type('loFactura') = 'U'
|
||
Local loFactura
|
||
loFactura = cauta_facturaTVAEx() && ocautare.prg
|
||
If Isnull(m.loFactura)
|
||
Exit
|
||
Endif
|
||
Endif
|
||
If m.loFactura.tip = [CUMPARARE] && CUMPARARE / VANZARE
|
||
loadd.scd = [4426]
|
||
loadd.scc = [4428]
|
||
loadd.pereched = m.loFactura.nract
|
||
loadd.perechec = 0
|
||
Else
|
||
loadd.scd = [4428]
|
||
loadd.scc = [4427]
|
||
loadd.pereched = 0
|
||
loadd.perechec = m.loFactura.nract
|
||
Endif
|
||
loadd.id_fact = m.loFactura.id_fact
|
||
loadd.id_factd = 0
|
||
loadd.id_factc = 0
|
||
Endcase
|
||
loadd.id_partd = 0
|
||
loadd.id_partc = 0
|
||
loadd.partd = []
|
||
loadd.partc = []
|
||
If Nvl(m.gnIdSucursala, 0) <> 0
|
||
loadd.id_sucursala = m.gnIdSucursala
|
||
loadd.sucursala = m.gcFirma
|
||
Endif
|
||
Select tact
|
||
lnrecno = Recno()
|
||
|
||
If !m.llCalculeazaNoteTVA
|
||
Append Blank
|
||
Gather Name m.loadd
|
||
Else
|
||
Thisform.creeaza_note_tva_incasare('tact', m.loadd, m.lnSuma)
|
||
Endif
|
||
|
||
Select tact
|
||
Goto m.lnrecno
|
||
|
||
Endscan
|
||
|
||
Select tact
|
||
Goto m.lnRecno1
|
||
|
||
Release m.loFactura
|
||
This.SalveazaXml()
|
||
Do nrord With 'tact'
|
||
This.grid1.SetFocus
|
||
This.grid1.Refresh
|
||
This.grid_focus_prima_coloana()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
PARAMETERS tcCont
|
||
LOCAL loCauta, loHash
|
||
|
||
IF EMPTY(NVL(tcCont,''))
|
||
RETURN
|
||
ENDIF
|
||
*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
|
||
loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
|
||
IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
|
||
loHash.SetValue('dDataDoc', tact.dataact)
|
||
ENDIF
|
||
loCauta = CautPartenerContabilitate(loHash)
|
||
|
||
RETURN loCauta
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_copie
|
||
*!* 20.05.2011
|
||
Local lnrecno, loadd
|
||
Select tact
|
||
lnRecno = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = "ales"
|
||
Else
|
||
lcCond = "recno() = " + Alltrim(Str(lnRecno))
|
||
ENDIF
|
||
|
||
Select tact
|
||
SCAN FOR &lcCond
|
||
Scatter Name loadd Fields Except ales
|
||
IF NVL(m.gnIdSucursala,0) <> 0
|
||
loAdd.id_sucursala = m.gnIdSucursala
|
||
loAdd.sucursala = m.gcFirma
|
||
ENDIF
|
||
lnrecno = RECNO()
|
||
loadd.id_act = 0 && modificare ROACONT v 2.4.4
|
||
Append Blank
|
||
Gather Name loadd
|
||
GOTO lnRecno
|
||
ENDSCAN
|
||
*!* 20.05.2011 ^
|
||
*!* 08.08.2011
|
||
This.SalveazaXml()
|
||
*!* 08.08.2011 ^
|
||
Thisform.CalculeazaTotal()
|
||
|
||
Do nrord With 'tact'
|
||
This.grid1.SetFocus
|
||
this.grid1.Refresh
|
||
this.grid_focus_prima_coloana()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_import
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
*!* 08.07.2013
|
||
*!* marius.mutu
|
||
*!* + tnIdItem: pentru cazul in care am mai multe x_item la fel (vezi nrord)
|
||
|
||
*!* 26.02.2018
|
||
*!* se inlocuieste valoarea pentru toate inregistrarile alese, optional
|
||
|
||
PARAMETERS tcX_item, tcControl, tnIdItem
|
||
*** tnIdItem (optional) in loc de tcX_item, in cazul in care am mai multe x_item la fel (vezi nrord)
|
||
|
||
LOCAL lcColoane, lcControl, lcFisier, lcIdAct, lcIdFis, lcPrimVal, lcReplace, lcVarAct, llAles
|
||
LOCAL lnColoane, lnRecno, locauta
|
||
*:Global i, pcFiltruOriginal, pcTitlu, pcTitluColoane, pccoloane, pcfiltru, pcorder, pcschema
|
||
*:Global pcselect
|
||
lcControl = ALLTRIM(tcControl)
|
||
IF '.' $ tcControl
|
||
lcControl = RIGHT(lcControl, LEN(lcControl) - AT('.', lcControl))
|
||
ENDIF
|
||
|
||
SELECT xitems
|
||
IF !EMPTY(m.tnIdItem)
|
||
LOCATE FOR id_item = m.tnIdItem
|
||
ELSE
|
||
LOCATE FOR ALLTRIM(x_item) = ALLTRIM(tcX_item)
|
||
ENDIF
|
||
IF !FOUND()
|
||
RETURN
|
||
ENDIF
|
||
|
||
SCATTER NAME locauta
|
||
lcColoane = ALLTRIM(locauta.camp_lista)
|
||
lcIdFis = ALLTRIM(locauta.id_fisier)
|
||
lcFisier = ALLTRIM(locauta.fis_lista)
|
||
lcVarAct = lcControl
|
||
lcIdAct = lcIdFis
|
||
|
||
pcselect = [select ] + lcColoane + [,] + lcIdFis + [ from ] + lcFisier
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = lcColoane
|
||
pccoloane = lcColoane
|
||
pcTitlu = PROPER(ALLTRIM(locauta.label_item))
|
||
pcTitluColoane = pcTitlu
|
||
lnColoane = OCCURS([,], lcColoane)
|
||
pcFiltruOriginal = [inactiv = 0]
|
||
IF lnColoane > 0
|
||
FOR i = 1 TO lnColoane
|
||
pcTitluColoane = pcTitluColoane + [, ]
|
||
ENDFOR
|
||
ENDIF
|
||
locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcFisier, .F., pcFiltruOriginal) && 11.07.2007
|
||
|
||
IF gnButon = 1
|
||
IF ',' $ lcColoane
|
||
lcPrimVal = LEFT(lcColoane, AT(',', lcColoane) - 1)
|
||
ELSE
|
||
lcPrimVal = ALLTRIM(lcColoane)
|
||
ENDIF
|
||
|
||
IF 'nume_gestiune' $ LOWER(lcPrimVal)
|
||
lcIdAct = [id_] + lcVarAct
|
||
ENDIF
|
||
|
||
SELECT tact
|
||
lnRecno = RECNO()
|
||
LOCATE FOR ales
|
||
llAles = FOUND()
|
||
GOTO m.lnRecno
|
||
lcReplace = [replace ] + lcVarAct + [ with locauta.] + lcPrimVal + [,] + lcIdAct + [ with locauta.] + lcIdFis
|
||
IF m.llAles AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?',4+32, _screen.Caption) = 6
|
||
lcReplace = m.lcReplace + ' for ales'
|
||
ENDIF
|
||
|
||
SELECT tact
|
||
&lcReplace
|
||
GOTO m.lnRecno
|
||
|
||
ENDIF
|
||
|
||
RETURN locauta
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica_explicatie_tva
|
||
If tact.cu_tva = 1
|
||
*!* modificare ROACONT v 2.4.4
|
||
If TYPE('tact.tipnota') = 'N' AND tact.tipnota = 1
|
||
*!* explicatii TVA exigibile din JC ( 1 ), JV ( 3 ) sau toate ( 5 )
|
||
locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1),,,iif(tact.scc=[4428],1,iif(tact.scd=[4428],3,5)))
|
||
Else
|
||
locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
|
||
Endif
|
||
*!* locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
|
||
*!* modificare ROACONT v 2.4.4 ^
|
||
If !Empty(locauta.id_jtva_coloana)
|
||
Select tact
|
||
Replace id_jtva_coloana With locauta.id_jtva_coloana,explicatie_Tva With locauta.denumire,proc_tva With (locauta.cota_tva + 100) / 100
|
||
Endif
|
||
|
||
* Actualizez Cod Taxa SAFT in functie de Cota TVA
|
||
Thisform.UpdateExplicatieSAFT()
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_salvare
|
||
*!* 24.10.2014
|
||
*!* marius.mutu
|
||
*!* actualizez xsets cu seturile utilizator dupa salvarea unui set
|
||
|
||
Local loxSet As "oxSet"
|
||
Local llModelNou, llNotaNoua, llNotaNouaDefinita, lnIdSet, lnOptiune, loSet, lcXMLNote
|
||
Local lcModel, llSucces, lnIdSetModel
|
||
*:Global Buton, gnButon, pnButon, pnIesire
|
||
|
||
lnIdSet = Thisform.nid_set
|
||
llNotaNoua = Thisform.lNotaNoua
|
||
llNotaNouaDefinita = m.llNotaNoua And !Inlist(m.lnIdSet, 99998, 99999)
|
||
llModelNou = .T. && salvare model nou
|
||
|
||
*** MODIFICARE SET SAU SET NOU?
|
||
*** Daca s-a incarcat o nota definita de utilizator
|
||
*** salvez peste nota existenta sau creez o nota noua
|
||
llModelNou = (Type('this.oSet') <> 'O')
|
||
loSet = This.oSet
|
||
|
||
loxSet = Createobject("oxSet", m.lnIdSet) && ocont2003.prg
|
||
|
||
SELECT *, RECNO() as nr_nota FROM tact INTO CURSOR crsNoteTemp && completez campul nr_nota pentru ordonare
|
||
loxSet.Cursor2Property("crsNoteTemp", "cXmlNote") && completez proprietatea cXmlNote
|
||
USE IN (SELECT('crsNoteTemp'))
|
||
|
||
*** Daca este un set existent, il salvez cu noile note, fara sa mai editez proprietatile
|
||
IF !m.llModelNou
|
||
llSucces = loxSet.Save()
|
||
ELSE
|
||
*** daca este un set nou editez proprietatile (nume, categorie, request) si apoi salvez
|
||
loxSet.New()
|
||
llSucces = loxSet.Edit()
|
||
ENDIF
|
||
|
||
If !m.llSucces
|
||
RETURN m.llSucces
|
||
ENDIF
|
||
|
||
lnSucces = xdate() && actualizez xsets cu seturile utilizator
|
||
|
||
*** Daca nu exista butonul Terminat (atunci cand apelez formularul din editare set), atunci salvez si ies din formular
|
||
If !This.but_terMIN1.Visible
|
||
gnButon = 3
|
||
pnButon = 3
|
||
Buton = 3
|
||
pnIesire = 3
|
||
If !This.lhide
|
||
This.Release
|
||
Else
|
||
This.Hide
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
*!* 14.07.2011
|
||
*!* daca formularul se foloseste pentru creare nota fara predefinire, inregistrarile se sterge direct, fara verificari
|
||
Local lnAn, lnLuna, lnCod, lnIdFact, llReferinteDocumente, llNotaNoua
|
||
Local lcCond, lnRecno
|
||
*!* 24.05.2011
|
||
Select tact
|
||
lnRecno = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = "ales"
|
||
Else
|
||
lcCond = "recno() = " + Alltrim(Str(lnRecno))
|
||
ENDIF
|
||
|
||
*!* 14.07.2011
|
||
llNotaNoua = this.lNotanoua && sunt in creare nota fara predefinire, nu in modificare nota din registrul jurnal
|
||
*!* 14.07.2011 ^
|
||
IF !m.llNotaNoua
|
||
SELECT tAct
|
||
LOCATE FOR &lcCond and !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0))
|
||
IF FOUND()
|
||
AMESSAGEBOX('Nu se pot sterge decat inregistrari din sucursala curenta!', 0+48, _screen.Caption)
|
||
RETURN
|
||
ENDIF
|
||
ENDIF
|
||
|
||
SELECT an, luna, cod, id_fact FROM tact WHERE .F. INTO CURSOR cReferinteVerificate READWRITE
|
||
|
||
SELECT tact
|
||
SCAN FOR &lcCond
|
||
lnAn = an
|
||
lnLuna = luna
|
||
lnCod = cod
|
||
lnIdFact = id_fact
|
||
IF !m.llNotaNoua
|
||
WAIT WINDOW 'Verificare referinte ' + ALLTRIM(STR(m.lnIdFact)) + ' ...' NOWAIT
|
||
llReferinteDocumente = .F.
|
||
SELECT cReferinteVerificate
|
||
LOCATE FOR an = lnAn AND luna = lnLuna AND cod = lnCod AND id_fact = lnIdFact
|
||
IF !FOUND()
|
||
llReferinteDocumente = ReferinteDocument(lnAn, lnLuna, lnCod, lnIdFact) && odocumente.prg
|
||
ENDIF
|
||
If llReferinteDocumente
|
||
AMESSAGEBOX("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
|
||
USE IN (SELECT('cReferinteVerificate'))
|
||
RETURN
|
||
ELSE
|
||
INSERT INTO cReferinteVerificate(an, luna, cod, id_fact) VALUES (lnAn, lnLuna, lnCod, lnIdFact)
|
||
Endif
|
||
ENDIF && llNotaNoua
|
||
|
||
Select tact
|
||
DELETE
|
||
ENDSCAN && lcCond
|
||
USE IN (SELECT('cReferinteVerificate'))
|
||
*!* 24.05.2011 ^
|
||
|
||
*!* 08.08.2011
|
||
This.SalveazaXml()
|
||
*!* 08.08.2011 ^
|
||
|
||
Thisform.CalculeazaTotal()
|
||
|
||
Select tact
|
||
TRY
|
||
GOTO lnRecno
|
||
SKIP -1
|
||
CATCH
|
||
GO TOP
|
||
ENDTRY
|
||
|
||
This.grid1.SetFocus
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_verifica
|
||
*!* PARAMETERS tlClick, tccont, tcacont, tcColoana
|
||
|
||
*!* m.den=''
|
||
*!* ll_l=.f.
|
||
|
||
*!* IF EMPTY(tccont)
|
||
*!* RETURN ll_l
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
|
||
*!* lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where to_number(cont) = ] + tcCont + [ and inactiv = 0 and an = ] + pcAn + [ order by acont ]
|
||
*!* lcCursor = 'tceva'
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
|
||
*!* SELECT tceva
|
||
*!* LOCATE
|
||
*!* IF EOF()
|
||
*!* IF !EMPTY(tcAcont) AND !ISNULL(tcAcont)
|
||
*!* DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont
|
||
*!* ll_l=.t.
|
||
*!* ENDIF
|
||
*!*
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
*!* SELECT actactan
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
*!* ELSE
|
||
*!* IF !tlClick
|
||
*!* IF empty(tcAcont)
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* SELECT tceva
|
||
*!* IF tlClick
|
||
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
|
||
*!* SELECT tceva
|
||
*!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
|
||
*!* lcAcont = acont
|
||
|
||
*!* SELECT tact
|
||
*!* REPLACE &tcColoana WITH lcAcont
|
||
*!* ELSE
|
||
*!* LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont)
|
||
*!* IF !FOUND()
|
||
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
|
||
*!* SELECT tceva
|
||
*!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
|
||
*!* lcAcont = acont
|
||
|
||
*!* SELECT tact
|
||
*!* REPLACE &tcColoana WITH lcAcont
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
|
||
*!* SELECT tact
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_focus_prima_coloana
|
||
Local lnColumns, loColumn, loGrid, i
|
||
Local lcColumn
|
||
|
||
loGrid = this.grid1
|
||
lnColumns = loGrid.ColumnCount
|
||
|
||
FOR i = 1 TO m.lnColumns
|
||
lcColumn = 'loGrid.Column' + ALLTRIM(STR(i))
|
||
loColumn = &lcColumn
|
||
IF loColumn.columnOrder = 1
|
||
EXIT
|
||
ENDIF
|
||
ENDFOR
|
||
loColumn.Setfocus()
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_sort_bind
|
||
* nu sterge
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
Local lVerificAnalitic, lCompletezPartener, llNuVerificCont
|
||
*!* 24.05.2011
|
||
SELECT tact
|
||
SET FILTER TO
|
||
*!* 24.05.2011 ^
|
||
|
||
lVerificAnalitic = .T.
|
||
lCompletezPartener = .F.
|
||
*!* 13.03.2008
|
||
*!* modificare ROACONT v 2.0.110
|
||
If INLIST(This.nid_set, 99998, 90024) && 99998 = NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC), 90024 = INITALIZARE FACTURI SOLDURI DIN PRELUARE
|
||
*!* If id_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)
|
||
*!* modificare ROACONT v 2.0.110 ^
|
||
llNuVerificCont = .T.
|
||
Else
|
||
llNuVerificCont = .F.
|
||
EndIf
|
||
*!* 14.03.2008 - nu mai fac nici o verificare pentru notele 99998
|
||
If !llNuVerificCont
|
||
llRet = verificare_note_contabile('tact',lVerificAnalitic,lCompletezPartener,llNuVerificCont) && in oOperatii_comune
|
||
Else
|
||
llRet = .T.
|
||
EndIf
|
||
*!* 14.03.2008 ^
|
||
*!* 13.03.2008 ^
|
||
*!* modificare v 2.4.4
|
||
IF m.llRet
|
||
If gnAn >= 2013
|
||
Select tact
|
||
Locate For ((scd = '4426' And scc = '4428') Or (scd='4428' And scc='4427')) And tipnota = 0 And id_act = 0
|
||
If Found()
|
||
llRet = Iif(amessagebox("Ati adaugat o nota 4426-4428 / 4428-4427 fara a folosi optiunea 'Adauga nota TVA devenit exigibil'." + CRLF + ;
|
||
"Din aceasta cauza, este posibil ca inregistrarea sa nu se preia corect in Registrul de Cumparari / Vanzari." + CRLF + CRLF + ;
|
||
"Doriti sa continuati?", 4+32, "Note 4426-4428/4428-4427")=6,.T.,.F.)
|
||
Endif
|
||
ENDIF
|
||
If m.llRet
|
||
llRet = This.VerificaAvertizareExigibilizareTVA()
|
||
Endif
|
||
ENDIF
|
||
*!* modificare v 2.4.4 ^
|
||
RETURN m.llRet
|
||
|
||
|
||
*!* LOCAL lcInMesaj,lcInMesajP,lcInMesajIreg
|
||
*!* STORE '' TO lcInMesaj,lcInMesajP, lcInMesajIreg
|
||
|
||
*!* SELECT tact
|
||
*!* GO TOP
|
||
*!* lnId_set=id_set
|
||
*!* ll_return = .T.
|
||
|
||
*!* SELECT DISTINCT scd AS CONT FROM tact ;
|
||
*!* WHERE suma # 0 ;
|
||
*!* UNION ;
|
||
*!* SELECT DISTINCT scc AS CONT FROM tact ;
|
||
*!* WHERE suma # 0 ;
|
||
*!* INTO CURSOR tcont
|
||
|
||
*!* i = 0
|
||
*!* SELECT tcont
|
||
*!* SCAN
|
||
*!* i = i + 1
|
||
*!* IF i = 1
|
||
*!* lcLista = ALLTRIM(CONT)
|
||
*!* ELSE
|
||
*!* lcLista = lcLista + ',' + ALLTRIM(CONT)
|
||
*!* ENDIF
|
||
*!* ENDSCAN
|
||
|
||
*!* lcSql = 'select distinct c.cont as contpart, c.fel_cont, c.cu_inregistrari, c.explicatie as explic_cont,e.cont_c as exceptie, e.debit as pozitie, e.invers, 0 as gasit ' + ;
|
||
*!* 'from ' + gcs + '.vcoresp_tip_cont c left join ' + gcs + '.exceptii_ireg e on c.cont = e.cont and e.invers = 1 ' + ;
|
||
*!* 'where to_number(c.cont) in (' + lcLista + ')'
|
||
*!* lcCursor = 'verif_part'
|
||
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
*!* IF lnSucces < 0
|
||
*!* MESSAGEBOX('Modificare:Verific completare id_part ' +goExecutor.cEroare,0+16,"Eroare")
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0
|
||
*!* IF RECCOUNT('verif_part') > 0
|
||
*!* SELECT tact
|
||
*!* SCAN FOR !EMPTY(suma)
|
||
*!* SCATTER NAME loCont
|
||
*!* SELECT verif_part
|
||
*!* LOCATE FOR contpart=loCont.scd
|
||
*!* IF FOUND()
|
||
*!* IF EMPTY(loCont.Id_partd) AND !(loCont.scd$lcInMesajP)
|
||
*!* lcInMesajP=lcInMesajP+','+loCont.scd
|
||
*!* REPLACE gasit WITH 1
|
||
*!* ENDIF
|
||
|
||
*!* IF EMPTY(loCont.pereched) AND cu_inregistrari = 1 AND fel_cont = 1 AND !(loCont.scd$lcInMesajIreg)
|
||
*!* LOCATE FOR contpart=loCont.scd AND exceptie = loCont.scc AND fel_cont = 1 AND pozitie = 0 AND invers = 1
|
||
*!* IF !FOUND()
|
||
*!* lcInMesajIreg = lcInMesajIreg + ',' + loCont.scd
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* SELECT verif_part
|
||
*!* LOCATE FOR contpart=loCont.scc
|
||
*!* IF FOUND()
|
||
*!* IF EMPTY(loCont.Id_partc) AND !(loCont.scc$lcInMesajP)
|
||
*!* lcInMesajP=lcInMesajP+','+loCont.scc
|
||
*!* REPLACE gasit WITH 1
|
||
*!* ENDIF
|
||
*!* IF cu_inregistrari = 1 AND fel_cont = 0 AND EMPTY(loCont.perechec) AND !(loCont.scc$lcInMesajIreg)
|
||
*!* LOCATE FOR contpart=loCont.scc AND exceptie = loCont.scd AND fel_cont = 0 AND pozitie = 1 AND invers = 1
|
||
*!* IF !FOUND()
|
||
*!* lcInMesajIreg = lcInMesajIreg + ',' + loCont.scc
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* ENDSCAN
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0 AND !(lnId_set>90000 AND lnId_set<90010) && notele de inchidere se fac in functie de optiuni
|
||
*!* lcSql=[select CONT, ACONT FROM ] + gcs + [.vplcont_ANALITIC where inactiv = 0 and an = ?gnAn order by cont ]
|
||
*!* lcCursor = 'plcontana'
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
|
||
*!* IF lnSucces < 0
|
||
*!* MESSAGEBOX('Modificare:Verific completare analitic ' +goExecutor.cEroare,0+16,"Eroare")
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0
|
||
*!* SELECT tact
|
||
*!* SCAN FOR !EMPTY(suma)
|
||
*!* SCATTER NAME loCont
|
||
*!* IF EMPTY(loCont.ascd) OR ISNULL(loCont.ascd)
|
||
*!* SELECT plcontana
|
||
*!* LOCATE FOR ALLTRIM(CONT)=ALLTRIM(loCont.scd)
|
||
*!* IF FOUND()
|
||
*!* IF !(loCont.scd$lcInMesaj)
|
||
*!* lcInMesaj=lcInMesaj+','+loCont.scd
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* IF EMPTY(loCont.ascc) OR ISNULL(loCont.ascc)
|
||
*!* SELECT plcontana
|
||
*!* LOCATE FOR CONT=loCont.scc
|
||
*!* IF FOUND()
|
||
*!* IF !(loCont.scc$lcInMesaj)
|
||
*!* lcInMesaj=lcInMesaj+','+loCont.scc
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* ENDSCAN
|
||
*!* RELEASE loCont
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesaj)
|
||
*!* DO mesaj WITH 'Nu ati completat simbolurile analitice pentru conturile:',lcInMesaj
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesajP)
|
||
*!* DO mesaj WITH 'Nu ati completat partenerii pentru conturile:', lcInMesajP
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesajIreg)
|
||
*!* DO mesaj WITH 'Nu ati completat doc. pereche pentru conturile:', lcInMesajIreg
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('verif_part')
|
||
*!* USE IN verif_part
|
||
*!* ENDIF
|
||
*!* IF USED('plcontana')
|
||
*!* USE IN plcontana
|
||
*!* ENDIF
|
||
*!* IF USED('tcont')
|
||
*!* USE IN tcont
|
||
*!* ENDIF
|
||
|
||
*!* RETURN ll_return
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
*!* 05.12.2013
|
||
*!* marius.mutu
|
||
*!* adaugat parametru tlVizualizare - pentru verificarea din registrul jurnal
|
||
*!* parametrul tlVizualizare poate avea atat valori logice (.T. = VIZUALIZARE, .F. = MODIFICARE/NOTA FARA PREDEFINIRE),
|
||
*!* cat si valori numerice (1=VIZUALIZARE, 2 = MODIFICARE, 3 = VERIFICARENOTE)
|
||
|
||
Lparameters tnIdSet, tlNotaNoua, toBackupXML, toSet, tlVizualizare
|
||
DoDefault()
|
||
|
||
*!* modificare ROACONT v 2.0.110
|
||
This.nid_set = tnIdSet
|
||
*!* 14.07.2011
|
||
This.lNotaNoua = tlNotaNoua && daca se apeleaza formularul din nota_fara_predefinire (ocont2003.prg)
|
||
*!* 14.07.2011 ^
|
||
|
||
*!* 05.12.2013
|
||
This.oBackupXML = toBackupXML
|
||
This.oSet = m.toSet
|
||
This.lVizualizare = .F.
|
||
This.lModificare = .T.
|
||
This.lVerificare = .F.
|
||
|
||
If Pcount() >= 5
|
||
If Type('tlVizualizare') = 'L'
|
||
This.lVizualizare = m.tlVizualizare && default = MODIFICARE
|
||
Else
|
||
If Type('tlVizualizare') = 'N'
|
||
Do Case
|
||
Case m.tlVizualizare = 1
|
||
This.lVizualizare = .T.
|
||
Case m.tlVizualizare = 2
|
||
This.lModificare = .T.
|
||
Case m.tlVizualizare = 3
|
||
This.lVerificare = .T.
|
||
Endcase
|
||
Endif && Type('tlVizualizare') = 'N'
|
||
Endif && Type('tlVizualizare') = 'L'
|
||
Endif
|
||
|
||
Do Case
|
||
Case This.lVerificare && verificarea notelor contabile (ex. nota inchidere imobilizari din inchidere.prg)
|
||
This.lb_titlu_alb_b121.Caption = 'VERIFICARE'
|
||
Case m.tlNotaNoua
|
||
This.lb_titlu_alb_b121.Caption = 'NOTA FARA PREDEFINIRE'
|
||
Endcase
|
||
|
||
*** In modul editare note definite de utilizator, arat doar butoanele Salvez si Renunt
|
||
If Type('toSet') = 'O' && sunt in modul editare
|
||
This.but_termin1.Visible = .F.
|
||
Endif
|
||
|
||
*!* 05.12.2013 ^
|
||
|
||
|
||
*!* modificare ROACONT v 2.0.110 ^
|
||
If Iif(Type('gnModificareIdSetSpe')='U',0,gnModificareIdSetSpe)=0 And ;
|
||
(Between(tnIdSet,25000,25099) Or Inlist(tnIdSet,79,83,206,61,62,63,102,103,64,65,73,222,223,224,225,226,227,236,238,239,240) ;
|
||
or Inlist(tnIdSet,252,255,258,259,260))
|
||
Thisform.command4.Top = Thisform.command1.Top
|
||
Thisform._shape2.Left = Thisform.but_renunT1.Left
|
||
Thisform.command1.Visible = .F.
|
||
Thisform.command2.Visible = .F.
|
||
Thisform.RemoveObject('but_nou1')
|
||
Thisform.RemoveObject('but_sterge1')
|
||
*!* modificare 19.09.2007
|
||
*!* Thisform.command3.Visible = .F.
|
||
*!* Thisform.cnomenclator.Visible = .F.
|
||
*!* Thisform.grid1.SetAll('Readonly',.T.,'Column')
|
||
With Thisform.grid1
|
||
.column4.ReadOnly = .T.
|
||
.column6.ReadOnly = .T.
|
||
.column10.ReadOnly = .T.
|
||
.column5.ReadOnly = .T.
|
||
.column37.ReadOnly = .T.
|
||
.column9.ReadOnly = .T.
|
||
.column15.ReadOnly = .T.
|
||
.column34.ReadOnly = .T.
|
||
.column20.ReadOnly = .T.
|
||
.column29.ReadOnly = .T.
|
||
.column21.ReadOnly = .T.
|
||
.column22.ReadOnly = .T.
|
||
.column32.ReadOnly = .T.
|
||
.column12.ReadOnly = .T.
|
||
.column25.ReadOnly = .T.
|
||
.column30.ReadOnly = .T.
|
||
.column31.ReadOnly = .T.
|
||
Endwith
|
||
*!* modificare 19.09.2007 ^
|
||
Endif
|
||
*!* modificare v 2.4.4
|
||
If gnAn >= 2013
|
||
Thisform.command5.Visible = .T.
|
||
thisform.chkTVAEx.Visible = .T.
|
||
Else
|
||
Thisform.command5.Visible = .F.
|
||
thisform.chkTVAEx.Visible = .F.
|
||
Endif
|
||
*!* modificare v 2.4.4 ^
|
||
|
||
This.grid1.Anchor = 15
|
||
This.but_renunt1.Anchor = 8
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Load
|
||
If !Used('saft_taxtable')
|
||
update_saft_taxtable()
|
||
ENDIF
|
||
|
||
If !Used('saft_mecanisme_plati')
|
||
update_saft_mecanisme_plati()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE salveazaxml
|
||
*!* *** salvez doar notele fara predefinire
|
||
*!* If This.nid_set = 99998 && NOTE FARA PREDEFINIRE
|
||
*!* SaveCursor2XML('tact', 'notafarapredefinire') && oproceduri_comune.prg
|
||
*!* ENDIF
|
||
*!* If This.nid_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)
|
||
*!* SaveCursor2XML('tact', 'notafarapredefinire2')
|
||
*!* ENDIF
|
||
|
||
|
||
*** salvez doar notele fara predefinire
|
||
Local loBackupXml
|
||
IF INLIST(This.nid_set, 99998, 99999)
|
||
loBackupXml = This.oBackupXMl
|
||
IF TYPE('loBackupXml') = 'O'
|
||
IF USED('tact')
|
||
loBackupXML.SaveBackupSet("tact")
|
||
ENDIF
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Show
|
||
Lparameters nStyle, tlMaximize
|
||
Local lnHeight
|
||
|
||
Select tact
|
||
This.grid1.SetFocus
|
||
*!* 24.05.2011
|
||
lnHeight = This.Height
|
||
This.WindowState = 2
|
||
IF !m.tlMaximize && la modificare nota nu maximizez formularul
|
||
This.Height = lnHeight
|
||
ENDIF
|
||
this.gridextra1.setup()
|
||
this.grid1.SetAll("dynamicbackcolor", "IIF(ALES, RGB(255,255,225), RGB(255,255,255))", "Column")
|
||
This.CalculeazaTotal()
|
||
*!* 24.05.2011 ^
|
||
|
||
This.Grid1.HeaderHeight = 37
|
||
|
||
This.grid1.column42.visible = m.gl406 && saft taxa
|
||
This.grid1.column43.visible = m.gl406 && saft plata
|
||
ENDPROC
|
||
|
||
PROCEDURE updateexplicatiesaft
|
||
* Daca nu este activata SAFT 406 nu fac nimic
|
||
IF !m.gl406
|
||
RETURN
|
||
ENDIF
|
||
|
||
Local loPartenerRTVAI As "empty"
|
||
Local loPartenerRTVAIX As "empty"
|
||
Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect, llN50, llN100, llNeexigibil
|
||
LOCAL ARRAY laNesosit[1]
|
||
|
||
lcSelect = SELECT()
|
||
|
||
|
||
ldDataAct = tAct.dataact
|
||
lnIdJtva = tAct.id_jtva_coloana
|
||
llFurnizorRTVAI = .F.
|
||
lnIdPart = Nvl(tAct.id_partc, tAct.id_partd)
|
||
lnIdSet = Thisform.nid_set
|
||
|
||
* llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA"
|
||
llN50 = .F. && (m.lnIdSet = 10609) && limitare deducere 50%
|
||
llN100 = .F. && (m.lnIdSet = 10647) && limitare deducere 100%
|
||
|
||
SELECT COUNT(*) as nr FROM tAct WHERE LEFT(scd,3) = '418' OR LEFT(scc,3) = '408' INTO ARRAY laNesosit
|
||
llNeexigibil = (laNesosit[1] > 0) && factura neintocmita/nesosita
|
||
|
||
lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart, m.llN50, m.llN100, m.llNeexigibil)
|
||
Replace taxcode With m.lnTaxCode In tAct
|
||
|
||
This.grid1.column42._combobox1.ForeColor = RGB(255,0,0)
|
||
This.grid1.column42.Refresh()
|
||
|
||
SELECT (m.lcSelect)
|
||
ENDPROC
|
||
|
||
PROCEDURE valideaza_data
|
||
Lparameters tcTipData
|
||
&& tcTipdata: dataact, dataireg
|
||
|
||
Local lcTipData, llReturn
|
||
lcTipData = Lower(Alltrim(tcTipData))
|
||
|
||
llReturn=.T.
|
||
Do Case
|
||
Case lcTipData = 'dataireg'
|
||
If !(Month(dataireg) = gnLuna And Year(dataireg) = gnAn)
|
||
amessagebox("Data inregistrarii trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
|
||
llReturn=.F.
|
||
Endif
|
||
Case lcTipData = 'dataact'
|
||
If !((Month(dataact)<= gnLuna And Year(dataact) = gnAn) Or Year(dataact)<gnAn)
|
||
amessagebox("Data act trebuie sa fie inainte sau in luna "+Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
|
||
llReturn=.F.
|
||
ELSE
|
||
If Empty(Nvl(datascad, {}))
|
||
Replace datascad With Gomonth(dataact,1)
|
||
ENDIF
|
||
ENDIF
|
||
Endcase
|
||
|
||
Return llReturn
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE VerificaAvertizareExigibilizareTVA
|
||
Local llKillSwitch, lcValOpt, lcSql, lcCursor, lnSucces, lnNrFacturi, lcMesaj, lnRasp
|
||
Local lnRecno, lnCntSalvat, lnJ
|
||
Local Array laAlesOrig(1,2)
|
||
|
||
If !(Type('tact.id_factd') = 'N' And Type('tact.id_factc') = 'N' And Type('tact.id_fact') = 'N' And Type('tact.tipnota') = 'N' And Type('tact.ales') = 'L' And Type('tact.scd') = 'C' And Type('tact.scc') = 'C')
|
||
Return .T.
|
||
Endif
|
||
|
||
If This.lAvertizatExigibilizare
|
||
Return .T.
|
||
Endif
|
||
|
||
Try
|
||
llKillSwitch = (Alltrim(Nvl(getini(gcGeneralIniFile, 'tva', 'avertizare_exigibilizare'), '')) == '0')
|
||
If !llKillSwitch And 'OINIT_OPTIUNI' $ Upper(Set('Procedure'))
|
||
lcValOpt = ''
|
||
If Used('crsOptiuniUtilizator')
|
||
lcValOpt = Alltrim(Nvl(citeste_optiune_utilizator('RC_TVA_AVERT_EXIGIB'), ''))
|
||
Endif
|
||
If Empty(lcValOpt) And Used('crsOptiuni')
|
||
lcValOpt = Alltrim(Nvl(citeste_optiune('RC_TVA_AVERT_EXIGIB'), ''))
|
||
Endif
|
||
llKillSwitch = (lcValOpt == '0')
|
||
Endif
|
||
If llKillSwitch
|
||
Return .T.
|
||
Endif
|
||
Catch
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la citirea optiunii, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
Try
|
||
Select Distinct id_factd As id_fact From tact Where id_factd > 0 And Left(Nvl(scc,''),1) = '5' Into Cursor crsCandidDTVAEx Readwrite
|
||
Select Distinct id_factc As id_fact From tact Where id_factc > 0 And Left(Nvl(scd,''),1) = '5' Into Cursor crsCandidCTVAEx Readwrite
|
||
Select id_fact From crsCandidDTVAEx Union Select id_fact From crsCandidCTVAEx Into Cursor crsCandidTVAEx Readwrite
|
||
Use In crsCandidDTVAEx
|
||
Use In crsCandidCTVAEx
|
||
Catch
|
||
If Used('crsCandidDTVAEx')
|
||
Use In crsCandidDTVAEx
|
||
Endif
|
||
If Used('crsCandidCTVAEx')
|
||
Use In crsCandidCTVAEx
|
||
Endif
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la colectarea facturilor din nota, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
If Reccount('crsCandidTVAEx') = 0
|
||
Use In crsCandidTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
Try
|
||
Select Distinct id_fact From tact Where tipnota = 1 And id_fact > 0 Into Cursor crsAcopTVAEx Readwrite
|
||
Select crsCandidTVAEx.id_fact From crsCandidTVAEx Left Join crsAcopTVAEx On crsCandidTVAEx.id_fact = crsAcopTVAEx.id_fact Where Isnull(crsAcopTVAEx.id_fact) Into Cursor crsNeacopTVAEx Readwrite
|
||
Use In crsCandidTVAEx
|
||
Use In crsAcopTVAEx
|
||
Catch
|
||
If Used('crsCandidTVAEx')
|
||
Use In crsCandidTVAEx
|
||
Endif
|
||
If Used('crsAcopTVAEx')
|
||
Use In crsAcopTVAEx
|
||
Endif
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la suprimarea platilor acoperite, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
If Reccount('crsNeacopTVAEx') = 0
|
||
Use In crsNeacopTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
If Type('goExecutor') <> 'O' Or goExecutor.nHandle <= 0
|
||
Use In crsNeacopTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
lcSql = ;
|
||
[SELECT id_fact FROM VJC2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
|
||
[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0] + ;
|
||
[ UNION SELECT id_fact FROM VJV2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
|
||
[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0]
|
||
lcCursor = Sys(2015)
|
||
lnSucces = 0
|
||
Try
|
||
lnSucces = goExecutor.oExecute(lcSql, lcCursor, .F., '', 0, .F., .F., .F.)
|
||
Catch
|
||
lnSucces = -1
|
||
Endtry
|
||
|
||
If lnSucces < 0
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: interogare esuata - ' + Nvl(goExecutor.cEroare,''), 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Use In crsNeacopTVAEx
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
Return .T.
|
||
Endif
|
||
|
||
Try
|
||
Select crsNeacopTVAEx.id_fact From crsNeacopTVAEx Inner Join (lcCursor) tvaex On crsNeacopTVAEx.id_fact = tvaex.id_fact Into Cursor crsFinalTVAEx Readwrite
|
||
Catch
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la intersectia locala, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Use In crsNeacopTVAEx
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
Use In crsNeacopTVAEx
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
|
||
lnNrFacturi = Reccount('crsFinalTVAEx')
|
||
If lnNrFacturi = 0
|
||
Use In crsFinalTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
Index On id_fact Tag id_fact
|
||
|
||
lcMesaj = 'Exista ' + Transform(lnNrFacturi) + ' facturi cu TVA la incasare pentru care nu s-a adaugat nota de TVA exigibilizat.' + Chr(13) + Chr(13) + ;
|
||
'Da = adaugati acum notele de TVA exigibilizat si ramaneti in formular, ca sa le verificati.' + Chr(13) + ;
|
||
'Nu = continuati salvarea fara sa adaugati notele.' + Chr(13) + ;
|
||
'Anulare = renuntati, nu salvati.'
|
||
lnRasp = Amessagebox(lcMesaj, 3+32, 'TVA la incasare - exigibilizare')
|
||
This.lAvertizatExigibilizare = (lnRasp <> 2)
|
||
|
||
If lnRasp = 6
|
||
Select tact
|
||
lnRecno = Recno()
|
||
lnCntSalvat = 0
|
||
Dimension laAlesOrig(Reccount('tact'), 2)
|
||
Scan
|
||
lnCntSalvat = lnCntSalvat + 1
|
||
laAlesOrig(lnCntSalvat, 1) = Recno()
|
||
laAlesOrig(lnCntSalvat, 2) = ales
|
||
Replace ales With (id_factd > 0 And Left(Nvl(scc,''),1) = '5' And Seek(id_factd, 'crsFinalTVAEx')) Or (id_factc > 0 And Left(Nvl(scd,''),1) = '5' And Seek(id_factc, 'crsFinalTVAEx'))
|
||
Endscan
|
||
Thisform.do_adauga_tva_exigibil()
|
||
Select tact
|
||
For lnJ = 1 To lnCntSalvat
|
||
Try
|
||
Go laAlesOrig(lnJ, 1)
|
||
Replace ales With laAlesOrig(lnJ, 2)
|
||
Catch
|
||
Endtry
|
||
Endfor
|
||
Try
|
||
Go lnRecno
|
||
Catch
|
||
Go Top
|
||
Endtry
|
||
Endif
|
||
|
||
Use In crsFinalTVAEx
|
||
|
||
Return (lnRasp = 7)
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdSelect.Click
|
||
Local lnRecno
|
||
Select tAct
|
||
lnRecno = Recno()
|
||
|
||
If This.Caption = 'Selecteaza tot'
|
||
Replace All ales With .T.
|
||
This.Caption = 'Deselecteaza tot'
|
||
Else
|
||
Replace All ales With .F.
|
||
This.Caption = 'Selecteaza tot'
|
||
Endif
|
||
|
||
Select tAct
|
||
Try
|
||
Goto m.lnRecno
|
||
Catch
|
||
Go Top
|
||
Endtry
|
||
ENDPROC
|
||
|
||
PROCEDURE cnomenclator.Click
|
||
thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Command1.Click
|
||
Thisform.alege_partener("D")
|
||
*!* PRIVATE pcCont
|
||
*!* LOCAL lnIdPartd, lnrezultat,lnsucces
|
||
|
||
*!* Select tact
|
||
*!* pcCont = ALLTRIM(Nvl(tact.scd,''))
|
||
*!* If Empty(pcCont)
|
||
*!* Return
|
||
*!* ENDIF
|
||
*!* lnIdPartd = id_partd
|
||
|
||
*!* lnrezultat=0
|
||
*!* lnsucces=0
|
||
*!* lcSql="select count(*) from config_cont_ireg where cont = &pcCont"
|
||
*!* lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
|
||
|
||
*!* If lnsucces=1
|
||
*!* If lnrezultat>0
|
||
*!* locauta = Thisform.do_cauta(pcCont)
|
||
*!* If gnButon = 1
|
||
*!* lnid_part=locauta.id_part
|
||
*!* lcnume=Alltrim(locauta.nume)
|
||
*!* Select tact
|
||
*!* Replace id_partd With lnid_part, partd With lcnume
|
||
*!* IF lnIdPartd <> lnid_part
|
||
*!* Select tact
|
||
*!* Replace pereched WITH 0, id_factd WITH 0
|
||
*!* ENDIF
|
||
*!* Endif
|
||
*!* Else
|
||
*!* AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
|
||
*!* Endif
|
||
*!* Else
|
||
*!* AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
|
||
*!* Endif
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command2.Click
|
||
Thisform.alege_partener("C")
|
||
|
||
*!* PRIVATE pcCont
|
||
*!* Local lnIdPartc, lnrezultat,lnsucces
|
||
|
||
*!* Select tact
|
||
*!* pcCont = ALLTRIM(Nvl(tact.scc, ''))
|
||
*!* If Empty(pcCont)
|
||
*!* Return
|
||
*!* Endif
|
||
*!* lnIdPartc = id_partc
|
||
*!* lnrezultat=0
|
||
*!* lnsucces=0
|
||
*!* lcSql="select count(*) from config_cont_ireg where cont = ?pcCont"
|
||
*!* lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
|
||
*!* If lnsucces=1
|
||
*!* If lnrezultat>0
|
||
*!* locauta = Thisform.do_cauta(pcCont)
|
||
*!* If gnButon = 1
|
||
*!* lnid_part=locauta.id_part
|
||
*!* lcnume=Alltrim(locauta.nume)
|
||
*!* Select tact
|
||
*!* Replace id_partc With lnid_part, partc With lcnume
|
||
*!* IF lnIdPartc <> lnid_part
|
||
*!* Select tact
|
||
*!* Replace perechec WITH 0, id_factc WITH 0
|
||
*!* ENDIF
|
||
*!* Endif
|
||
*!* ELSE
|
||
*!* AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
|
||
*!* ENDIF
|
||
*!* ELSE
|
||
*!* AMESSAGEBOX(goExecutor.oPrelucrareEroare(), 0 + 16 ,"Eroare")
|
||
*!* Endif
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command3.Click
|
||
PARAMETERS tnFel
|
||
LOCAL lcSel, lnRecno
|
||
|
||
IF PCOUNT()<1
|
||
tnFel = thisform.fel_compensare
|
||
ENDIF
|
||
|
||
tnFel = 1 && PASIV / DEBIT 401 = 5121
|
||
|
||
lcSel = thisform.grid1.RecordSource
|
||
SELECT (lcSel)
|
||
SCATTER NAME odoc
|
||
lnRecno = RECNO()
|
||
&& 0 = ACTIV
|
||
&& 1 = PASIV
|
||
*thisform.aleg_document_pereche(tnFel,odoc)
|
||
DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
|
||
SELECT (m.lcSel)
|
||
TRY
|
||
GOTO m.lnRecno
|
||
CATCH
|
||
GO TOP
|
||
ENDTRY
|
||
thisform.grid1.SetFocus
|
||
RELEASE odoc
|
||
ENDPROC
|
||
|
||
PROCEDURE Command4.Click
|
||
Thisform.do_modifica_explicatie_tva()
|
||
ENDPROC
|
||
|
||
PROCEDURE Command5.Click
|
||
Thisform.do_adauga_tva_exigibil()
|
||
ENDPROC
|
||
|
||
PROCEDURE Command6.Click
|
||
PARAMETERS tnFel
|
||
LOCAL lcSel, lnRecno
|
||
|
||
IF PCOUNT()<1
|
||
tnFel = thisform.fel_compensare
|
||
ENDIF
|
||
|
||
tnFel = 0 && ACTIV / CREDIT 5121 = 4111
|
||
|
||
lcSel = thisform.grid1.RecordSource
|
||
SELECT (lcSel)
|
||
SCATTER NAME odoc
|
||
lnRecno = RECNO()
|
||
&& 0 = ACTIV
|
||
&& 1 = PASIV
|
||
*thisform.aleg_document_pereche(tnFel,odoc)
|
||
DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
|
||
SELECT (m.lcSel)
|
||
TRY
|
||
GOTO m.lnRecno
|
||
CATCH
|
||
GO TOP
|
||
ENDTRY
|
||
thisform.grid1.SetFocus
|
||
RELEASE odoc
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.AfterRowColChange
|
||
*!* 10.08.2011
|
||
*!* marius.mutu
|
||
*!* id-urile sunt readonly - nu se pot completa direct
|
||
|
||
*!* 18.04.2013
|
||
*!* dezactivez butonul de copiere pentru inregistrarile TVA incasare
|
||
*!* sa nu se copie ID_FACT din greseala
|
||
|
||
*!* 20.12.2013
|
||
*!* se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
|
||
|
||
*!* 07.05.2021
|
||
*!* am adaugat buton separat document platit/incasat
|
||
|
||
Lparameters nColIndex
|
||
|
||
*** se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
|
||
llReadOnly = !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0) OR Type('thisform.oSet') = 'O')
|
||
|
||
This.SetAll("ReadOnly", m.llReadOnly, "Column")
|
||
*!* 10.08.2011
|
||
*** nu vreau sa completeze id-urile direct
|
||
WITH This
|
||
.Column30.ReadOnly = .T. && id_partd
|
||
.Column31.ReadOnly = .T. && id_partc
|
||
.Column38.ReadOnly = .T. && id_fact
|
||
.Column39.ReadOnly = .T. && id_factd
|
||
.Column40.ReadOnly = .T. && id_factc
|
||
.Column35.ReadOnly = .T. && cod
|
||
.Column25.ReadOnly = .T. && id_set
|
||
ENDWITH
|
||
*!* 10.08.2011 ^
|
||
*!* pot selecta inregistrari din alte sucursale pentru operatiile de copiere, adaugare care
|
||
This.cAles.ReadOnly = .F.
|
||
IF m.llReadOnly
|
||
Thisform.cnomenclator.Enabled = .F.
|
||
Thisform.command1.Enabled = .F.
|
||
Thisform.command2.Enabled = .F.
|
||
Thisform.command3.Enabled = .F. && PERECHE D
|
||
Thisform.command6.Enabled = .F. && PERECHE C
|
||
Thisform.command4.Enabled = .F.
|
||
Thisform.command5.Enabled = .F. && modificare ROACONT v 2.4.4
|
||
thisform.chkTVAEx.Enabled = .F.
|
||
ELSE
|
||
If Thisform.pncolumnorder = nColIndex
|
||
Thisform.cnomenclator.Enabled = .T.
|
||
Else
|
||
Thisform.cnomenclator.Enabled = .F.
|
||
Endif
|
||
|
||
If tact.cu_tva = 1
|
||
Thisform.command4.Enabled = .T.
|
||
Else
|
||
Thisform.command4.Enabled = .F.
|
||
Endif
|
||
|
||
Thisform.command3.Caption = [Doc. platit cont ]+ Alltrim(NVL(tact.scd,'')) + ;
|
||
IIF(!EMPTY(tact.pereched), ' (' + ALLTRIM(TRANSFORM(tact.pereched)) + ')', '')
|
||
Thisform.command3.Enabled = !(EMPTY(tact.id_partd) OR EMPTY(tact.scd))
|
||
|
||
Thisform.command6.Caption = [Doc. incasat cont ]+ Alltrim(NVL(tact.scc,'')) + ;
|
||
IIF(!EMPTY(tact.perechec), ' (' + ALLTRIM(TRANSFORM(tact.perechec)) + ')', '')
|
||
Thisform.command6.Enabled = !(EMPTY(tact.id_partc) OR EMPTY(tact.scc))
|
||
|
||
*!* If [pereche]$Lower(Thisform.pccontrol)
|
||
*!* Thisform.command3.Enabled = .T.
|
||
*!* If [pereched]$Lower(Thisform.pccontrol)
|
||
*!* Thisform.fel_compensare = 1
|
||
*!* Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scd,''))
|
||
*!* Else
|
||
*!* Thisform.fel_compensare = 0
|
||
*!* Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scc,''))
|
||
*!* Endif
|
||
*!* Else
|
||
*!* Thisform.command3.Enabled = .F.
|
||
*!* Thisform.command3.Caption = [Nr.Doc.Pereche]
|
||
*!* ENDIF
|
||
|
||
*!* modificare ROACONT v 2.4.4
|
||
*** activez butonul TVA Incasare doar pentru incasari/plati sau pentru linia de TVA incasare
|
||
if tact.scc = [4428] or tact.scd = [4428] or tact.id_factd > 0 or tact.id_factc > 0
|
||
Thisform.command5.Enabled = .T.
|
||
thisform.chkTVAEx.Enabled = .T.
|
||
else
|
||
Thisform.command5.Enabled = .F.
|
||
thisform.chkTVAEx.Enabled = .F.
|
||
endif
|
||
*!* modificare ROACONT v 2.4.4 ^
|
||
|
||
*** dezactivez butonul de copiere pentru inregistrarile TVA incasare
|
||
*** sa nu se copie ID_FACT din greseala
|
||
if (tact.scd = [4428] and tact.scc = [4427] and !empty(nvl(perechec,0))) or (tact.scd = [4426] and tact.scd = [4428] and !empty(nvl(pereched,0)))
|
||
Thisform.but_copiaza1.Enabled = .F.
|
||
else
|
||
Thisform.but_copiaza1.Enabled = .T.
|
||
endif
|
||
|
||
|
||
ENDIF && llReadOnly
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.BeforeRowColChange
|
||
LPARAMETERS nColIndex
|
||
IF thisform.pncolumnorder # nColIndex
|
||
STORE [] TO thisform.pccontrol
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column10.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
LOCAL lnIdPart
|
||
lnIdPart = Thisform.alege_partener("C")
|
||
IF NVL(lnIdPart,0) = 0
|
||
REPLACE partc WITH "", id_partc WITH 0 IN tAct
|
||
ENDIF
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column10.Text1.LostFocus
|
||
If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
If Empty(Nvl(tact.partc,''))
|
||
Thisform.alege_partener("C", .T.)
|
||
Endif
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column13.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column13.Text1.InteractiveChange
|
||
thisform.command3.Click(1)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x15'
|
||
thisform.pnid_item = 15
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x13'
|
||
thisform.pnid_item = 13
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x14'
|
||
thisform.pnid_item = 14
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column2.Text1.Valid
|
||
Local llValid
|
||
llValid = thisform.valideaza_data("dataireg")
|
||
IF !llValid
|
||
RETURN 0
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column20.Text1.LostFocus
|
||
SELECT tact
|
||
IF !EMPTY(suma_val) OR !EMPTY(curs)
|
||
REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column21.Text1.LostFocus
|
||
SELECT tact
|
||
IF !EMPTY(suma_val) OR !EMPTY(curs)
|
||
REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column22.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x9'
|
||
thisform.pnid_item = 9
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column22.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.Click
|
||
this.LostFocus(.t.)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.LostFocus
|
||
Parameters PlClick
|
||
Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
|
||
Select tAct
|
||
lcCont = Alltrim(scd)
|
||
lcAcont = Alltrim(ascd)
|
||
lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
|
||
lnRecno = Recno('tAct')
|
||
|
||
llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascd', 'tact') && in oOperatii_comune.prg
|
||
|
||
If m.llReturn
|
||
Select tAct
|
||
lcAcont = Alltrim(tAct.ascd) && se poate modifica dupa ce verific_analitic()
|
||
Locate For ales
|
||
IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Replace All ascd With m.lcAcont For ales And Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
|
||
ELSE
|
||
If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
|
||
Replace All ascd With m.lcAcont For Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
|
||
ENDIF
|
||
ENDIF
|
||
Goto lnRecno
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.When
|
||
Thisform.cAcont = tAct.ascd
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.Click
|
||
this.LostFocus(.t.)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.LostFocus
|
||
Parameters PlClick
|
||
Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
|
||
Select tAct
|
||
lcCont = Alltrim(scc)
|
||
lcAcont = Alltrim(ascc)
|
||
lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
|
||
lnRecno = Recno('tAct')
|
||
|
||
llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascc', 'tact') && in oOperatii_comune.prg
|
||
|
||
If m.llReturn
|
||
|
||
Select tAct
|
||
lcAcont = Alltrim(tAct.ascc) && se poate modifica dupa ce verific_analitic()
|
||
Locate For ales
|
||
IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Replace All ascc With m.lcAcont For ales And Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
|
||
ELSE
|
||
If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
|
||
Replace All ascc With m.lcAcont For Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
|
||
ENDIF
|
||
ENDIF
|
||
Goto lnRecno
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.When
|
||
Thisform.cAcont = tAct.ascc
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column27.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column27.Text1.InteractiveChange
|
||
thisform.command6.Click(0)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x16'
|
||
thisform.pnid_item = 16
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x11'
|
||
thisform.pnid_item = 11
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x2'
|
||
thisform.pnid_item = 2
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
IF EMPTY(NVL(tact.fdoc,''))
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column32.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x10'
|
||
thisform.pnid_item = 10
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column32.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.GotFocus
|
||
*!* 08.02.2007 sa nu se modifice sucursala - se seteaza automat in baza de date in oscrie_in_fisiere.prg
|
||
|
||
*!* SELECT x_item FROM xitems WHERE ALLTRIM(UPPER(label_item)) == 'SUCURSALA' INTO CURSOR crsItem
|
||
*!* SELECT crsItem
|
||
*!* IF RECCOUNT() = 0 OR EMPTY(x_item)
|
||
*!* thisform.pcx_item = 'x29' && XITEM DIN CONTABILITATE
|
||
*!* ELSE
|
||
*!* thisform.pcx_item = x_item && 'x32' IN XITEM DIN GESTIUNI
|
||
*!* ENDIF
|
||
*!* USE IN crsItem
|
||
|
||
*!* thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
*!* thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
|
||
*!* 08.02.2007 ^
|
||
*!* 24.05.2011
|
||
*!* marius.mutu
|
||
*!* in pack_contafin.scrie_in_act nu se mai suprascrie id_sucursala completat
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x31'
|
||
thisform.pnid_item = 68
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
*!* 24.05.2011 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.InteractiveChange
|
||
*!* 24.05.2011
|
||
*!* marius.mutu
|
||
*!* se poate modifica sucursala doar daca sunt in mama
|
||
*!* altfel nu se refac corect balantele, inregistrarile
|
||
IF m.glEMama
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDIF
|
||
*!* 24.05.2011 ^
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.When
|
||
*!* 24.05.2011
|
||
*!* marius.mutu
|
||
*!* se poate modifica sucursala doar daca sunt in mama
|
||
*!* altfel nu se refac corect balantele, inregistrarile
|
||
RETURN m.glEMama
|
||
*!* 24.05.2011 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column34.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x70'
|
||
thisform.pnid_item = 70
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column34.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column35.Text1.InteractiveChange
|
||
Thisform.do_modifica_explicatie_tva()
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column36._CHECKBOX1.Click
|
||
If tact.cu_tva = 1
|
||
Thisform.command4.Enabled = .T.
|
||
Else
|
||
Thisform.command4.Enabled = .F.
|
||
Replace id_jtva_coloana With NULL, explicatie_Tva With '', proc_tva With 0, taxcode WITH NULL IN tact
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column36._CHECKBOX1.KeyPress
|
||
Lparameters nKeyCode, nShiftAltCtrl
|
||
If nKeyCode=13
|
||
Nodefault
|
||
This.Parent.Parent.column26.SetFocus()
|
||
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column4.Text1.Valid
|
||
Local llValid
|
||
llValid = thisform.valideaza_data("dataact")
|
||
IF !llValid
|
||
RETURN 0
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column42._combobox1.Valid
|
||
Local lnTaxCodeNou, lnTaxCodeOriginal, lnRecno
|
||
|
||
Select tact
|
||
lnRecno = Recno()
|
||
|
||
lnTaxCodeOriginal = thisform.nTaxCode
|
||
lnTaxCodeNou = tAct.taxcode
|
||
|
||
If NVL(m.lnTaxCodeNou,0) <> NVL(m.lnTaxCodeOriginal,0)
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de taxa "' + TRANSFORM(m.lnTaxCodeOriginal) + '" in toate inregistrarile selectate cu codul "' + TRANSFORM(m.lnTaxCodeNou) + '"?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace taxcode With m.lnTaxCodeNou For NVL(taxcode,0) = NVL(m.lnTaxCodeOriginal,0) And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN .T.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column42._combobox1.When
|
||
Thisform.nTaxCode = tAct.taxcode
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column43._combobox1.LostFocus
|
||
This.ForeColor = RGB(0,0,0)
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column43._combobox1.Valid
|
||
Local lcPaymentCodeNou, lcPaymentCodeOriginal, lnRecno
|
||
|
||
Select tact
|
||
lnRecno = Recno()
|
||
|
||
lcPaymentCodeOriginal = thisform.cPaymentCode
|
||
lcPaymentCodeNou = ALLTRIM(tAct.paymentcode)
|
||
|
||
If NVL(m.lcPaymentCodeNou, '') <> NVL(m.lcPaymentCodeOriginal, '')
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de plata "' + m.lcPaymentCodeOriginal + '" in toate inregistrarile selectate cu codul "' + m.lcPaymentCodeNou + '"?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace paymentcode With m.lcPaymentCodeNou For Alltrim(NVL(paymentcode,'')) = ALLTRIM(NVL(m.lcPaymentCodeOriginal, '')) And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN .T.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column43._combobox1.When
|
||
thisform.cPaymentCode = ALLTRIM(tAct.paymentcode)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column6.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
LOCAL lnIdPart
|
||
lnIdPart = Thisform.alege_partener("D")
|
||
IF NVL(lnIdPart,0) = 0
|
||
REPLACE partd WITH "", id_partd WITH 0 IN tAct
|
||
ENDIF
|
||
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column6.Text1.LostFocus
|
||
If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
If Empty(Nvl(tact.partd,''))
|
||
Thisform.alege_partener("D", .T.)
|
||
Endif
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column7.Text1.LostFocus
|
||
Local lcContNou, lcContOriginal, llReturn, lnRecno
|
||
lcContOriginal = Thisform.cCont
|
||
lcContNou = Alltrim(scd)
|
||
If Empty(m.lcContNou)
|
||
Return
|
||
Endif
|
||
llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
|
||
IF !m.llReturn
|
||
RETURN m.llReturn
|
||
ENDIF
|
||
Select tact
|
||
lnRecno = Recno()
|
||
lcContNou = Alltrim(scd) && se poate modifica dupa verificarea in planul de conturi
|
||
If m.lcContNou <> m.lcContOriginal
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace scd With m.lcContNou For Alltrim(scd) = m.lcContOriginal And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN m.llReturn
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column7.Text1.When
|
||
Thisform.cCont = ALLTRIM(tact.scd)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column8.Text1.LostFocus
|
||
Local lcContNou, lcContOriginal, llReturn, lnRecno
|
||
lcContOriginal = Thisform.cCont
|
||
lcContNou = Alltrim(scc)
|
||
If Empty(m.lcContNou)
|
||
Return
|
||
Endif
|
||
llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
|
||
IF !m.llReturn
|
||
RETURN m.llReturn
|
||
ENDIF
|
||
Select tact
|
||
lnRecno = Recno()
|
||
lcContNou = Alltrim(scc) && se poate modifica dupa verificarea in planul de conturi
|
||
If m.lcContNou <> m.lcContOriginal
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace scc With m.lcContNou For Alltrim(scc) = m.lcContOriginal And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN m.llReturn
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column8.Text1.When
|
||
Thisform.cCont = ALLTRIM(tact.scc)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column9.Text1.Valid
|
||
IF this.Value <> thisform.nOldSuma
|
||
Thisform.CalculeazaTotal()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column9.Text1.When
|
||
Thisform.nOldSuma = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE Gridextra1.applyfilter
|
||
DODEFAULT()
|
||
Thisform.CalculeazaTotal()
|
||
ENDPROC
|
||
|
||
PROCEDURE Gridextra1.clearfilter
|
||
DODEFAULT()
|
||
Thisform.CalculeazaTotal()
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="pgfArticole" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1._grdfooter1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNnir.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNnir.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataact.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataact.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUM.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUM.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPret.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPret.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCant.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCant.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCante.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCante.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCont.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCont.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCod.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCod.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAcont.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAcont.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGest.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGest.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCurs.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCurs.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretd.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretd.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProcent.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProcent.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoareftva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoareftva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretv.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretv.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTvav.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTvav.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtil.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtil.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataora.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataora.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSectie.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSectie.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDatain.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDatain.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNresp.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNresp.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGestC.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGestC.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column34.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column34.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column35.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.Column35.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGrupa.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cGrupa.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNract.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNract.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSubgrupa.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSubgrupa.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtils.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cUtils.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataoras.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataoras.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNume_val.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNume_val.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie_act.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSerie_act.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmatF.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cCodmatF.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cLot.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cLot.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataExpirare.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDataExpirare.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPart_rez.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord_rez.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoaretva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoaretva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoarevftva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoarevftva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tvav.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_disc.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cProc_disc.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.cvaloarevcTVA" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTaxCode.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cTaxCode.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cExplicatieTVA.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cExplicatieTVA.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE1.grdRulaje.cExplicatieTVA._combobox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2._grdfooter1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrCrt.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrCrt.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNnir.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNnir.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataact.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataact.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUM.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUM.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPret.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCant.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCante.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCont.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCont.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCod.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCod.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAcont.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAcont.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGest.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCurs.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCurs.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretd.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretd.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProcent.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProcent.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretv.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTvav.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtil.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtil.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataora.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataora.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSectie.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDatain.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDatain.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNresp.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGestC.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column34.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column34.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column35.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.Column35.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNract.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNract.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtils.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cUtils.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cLot.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cLot.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.cvaloarevcTVA" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.Text1" UniqueID="" Timestamp="" />
|
||
*< 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.Column15.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column15.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.Column18.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column18.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.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="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.Column35.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column35.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column36.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column36._CHECKBOX1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column37.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column37.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column38.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column38.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column39.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column39.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column40.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column40.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.cAles.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.cAles.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.cAles._CHECKBOX1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column42.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column42.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column42._combobox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column43.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column43.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column43._combobox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column44.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grid1.Column44.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cnomenclator" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modificaR" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command5" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="chkTVAEx" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="txtSuma" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblSuma" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="chkCtAnalitic" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Command6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cmdSelect" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_stergeR" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="but_afiseaza_rulaje" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_copiazaR" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: afiseaza_rulaje
|
||
*m: alege_partener
|
||
*m: aleg_document_pereche
|
||
*m: calculeazatotal
|
||
*m: calculeaza_valori_rul
|
||
*m: ccontrol_assign
|
||
*m: creeaza_note_tva_incasare
|
||
*m: do_adauga_rul
|
||
*m: do_adauga_tva_exigibil
|
||
*m: do_copie_rul
|
||
*m: do_import
|
||
*m: do_modifica_explicatie_tva
|
||
*m: do_sterge_rul
|
||
*m: grid_focus_prima_coloana
|
||
*m: resize_grid1
|
||
*m: salveazaxml
|
||
*m: sincronizeaza_nnir
|
||
*m: updateexplicatiesaft
|
||
*m: updateexplicatiesaftrul
|
||
*m: valideaza_data
|
||
*m: verificaavertizareexigibilizaretva
|
||
*p: cacont
|
||
*p: ccont
|
||
*p: ccontrol
|
||
*p: cpaymentcode
|
||
*p: fel_compensare
|
||
*p: lavertizatexigibilizare
|
||
*p: leditare
|
||
*p: lmodificare
|
||
*p: lnotanoua
|
||
*p: lverificare
|
||
*p: lvizualizare
|
||
*p: nid_set
|
||
*p: nnnirvechi
|
||
*p: noldsuma && Valoarea la intrarea in campul "Suma"
|
||
*p: nprimadata
|
||
*p: nsuma && Total suma inregistrari
|
||
*p: ntaxcode
|
||
*p: obackupxml
|
||
*p: oldvalue
|
||
*p: oset
|
||
*p: ouset
|
||
*p: pccontrol
|
||
*p: pcx_item
|
||
*p: pncolumnorder
|
||
*p: pnid_item
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BackColor = 192,192,192
|
||
BorderStyle = 3
|
||
cacont =
|
||
ccont =
|
||
cpaymentcode =
|
||
DoCreate = .T.
|
||
FontCharSet = 238
|
||
Height = 508
|
||
lavertizatexigibilizare = .F.
|
||
leditare = .F.
|
||
lmodificare = .F.
|
||
lnotanoua = .F.
|
||
lverificare = .F.
|
||
lvizualizare = .F.
|
||
Name = "frm_modific2024"
|
||
nid_set = 0
|
||
nnnirvechi = 0
|
||
noldsuma = 0
|
||
nprimadata = 0
|
||
nsuma = 0
|
||
ntaxcode = 0
|
||
obackupxml = NULL
|
||
oldvalue =
|
||
oset = NULL
|
||
ouset = NULL
|
||
pccontrol = []
|
||
pcx_item = 0
|
||
pncolumnorder = 0
|
||
pnid_item = 0
|
||
Width = 816
|
||
WindowType = 1
|
||
_memberdata = <VFPData>
|
||
<memberdata name="calculeazatotal" display="CalculeazaTotal"/>
|
||
<memberdata name="nsuma" display="nSuma"/>
|
||
<memberdata name="noldsuma" display="nOldSuma"/>
|
||
<memberdata name="cacont" display="cAcont"/>
|
||
<memberdata name="ccont" display="cCont"/>
|
||
<memberdata name="updateexplicatiesaft" display="UpdateExplicatieSAFT"/>
|
||
<memberdata name="cpaymentcode" display="cPaymentCode"/>
|
||
<memberdata name="ntaxcode" display="nTaxCode"/>
|
||
<memberdata name="oldvalue" display="oldValue"/>
|
||
<memberdata name="updateexplicatiesaftrul" display="UpdateExplicatieSAFTRul"/>
|
||
<memberdata name="nprimadata" display="nPrimaData"/>
|
||
</VFPData>
|
||
_shape1.Anchor = 10
|
||
_shape1.Height = 31
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 820
|
||
_shape1.ZOrderSet = 2
|
||
_shape2.Anchor = 8
|
||
_shape2.Height = 31
|
||
_shape2.Left = 636
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 164
|
||
_shape2.ZOrderSet = 3
|
||
Lb_titlu_alb_b121.Caption = "MODIFICARE"
|
||
Lb_titlu_alb_b121.Left = 6
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 18
|
||
Lb_titlu_alb_b121.Top = 2
|
||
Lb_titlu_alb_b121.ZOrderSet = 5
|
||
BUT_TERMIN1.Anchor = 8
|
||
BUT_TERMIN1.Left = 784
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 11
|
||
BUT_TERMIN1.Top = 2
|
||
BUT_TERMIN1.ZOrderSet = 6
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'but_afiseaza_rulaje' AS but_jos WITH ;
|
||
Anchor = 12, ;
|
||
caction = afiseaza_rulaje, ;
|
||
Left = 773, ;
|
||
Name = "but_afiseaza_rulaje", ;
|
||
Top = 471
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
|
||
Anchor = 8, ;
|
||
caction = do_copie, ;
|
||
Left = 665, ;
|
||
Name = "But_copiaza1", ;
|
||
TabIndex = 15, ;
|
||
ToolTipText = "Copiere - Se copiaza toate campurile din inregistrarea curenta sau inregistrarile alese ", ;
|
||
Top = 2, ;
|
||
ZOrderSet = 17
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_copiazaR' AS but_copiaza WITH ;
|
||
Anchor = 12, ;
|
||
caction = do_copie_rul, ;
|
||
Left = 773, ;
|
||
Name = "But_copiazaR", ;
|
||
TabIndex = 15, ;
|
||
ToolTipText = "Copiere - Se copiaza toate campurile din inregistrarea curenta", ;
|
||
Top = 368, ;
|
||
ZOrderSet = 30
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_modificaR' AS but_modifica WITH ;
|
||
Anchor = 12, ;
|
||
Left = 773, ;
|
||
Name = "But_modificaR", ;
|
||
Top = 396, ;
|
||
Visible = .T., ;
|
||
ZOrderSet = 31
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
|
||
Anchor = 8, ;
|
||
caction = do_import, ;
|
||
Left = 605, ;
|
||
Name = "But_modiparam1", ;
|
||
TabIndex = 17, ;
|
||
ToolTipText = "Import din fisier MT940, xls...", ;
|
||
Top = 2, ;
|
||
Visible = .F., ;
|
||
ZOrderSet = 25
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 8, ;
|
||
Left = 636, ;
|
||
Name = "But_nou1", ;
|
||
TabIndex = 16, ;
|
||
ToolTipText = "Adaugare (CTRL+N) Se copiaza inregistrarea curenta sau inregistrarile alese, fara campurile: cont, partener, document pereche, suma lei, suma valuta", ;
|
||
Top = 2, ;
|
||
ZOrderSet = 14
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Anchor = 8, ;
|
||
Left = 754, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 12, ;
|
||
Top = 2, ;
|
||
ZOrderSet = 11
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ;
|
||
Anchor = 8, ;
|
||
Left = 724, ;
|
||
Name = "But_salveaza1", ;
|
||
TabIndex = 13, ;
|
||
ToolTipText = "Salvare set note contabile", ;
|
||
Top = 2, ;
|
||
ZOrderSet = 21
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 8, ;
|
||
Left = 694, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 14, ;
|
||
Top = 2, ;
|
||
Visible = .T., ;
|
||
ZOrderSet = 15
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_stergeR' AS but_sterge WITH ;
|
||
Anchor = 12, ;
|
||
caction = do_sterge_rul, ;
|
||
Left = 773, ;
|
||
Name = "But_stergeR", ;
|
||
TabIndex = 14, ;
|
||
Top = 424, ;
|
||
Visible = .T., ;
|
||
ZOrderSet = 29
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'chkCtAnalitic' AS _checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Copiez ct. analitic", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
Left = 689, ;
|
||
Name = "chkCtAnalitic", ;
|
||
TabIndex = 10, ;
|
||
ToolTipText = "Se completeaza contul analitic in toate inregistrarile pentru contul sintetic curent", ;
|
||
Top = 332, ;
|
||
Width = 120, ;
|
||
ZOrderSet = 26
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'chkTVAEx' AS _checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Suma TVA exigibil", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
Left = 689, ;
|
||
Name = "chkTVAEx", ;
|
||
TabIndex = 9, ;
|
||
ToolTipText = "Calculeaza suma TVA exigibil la adaugare note TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
|
||
Top = 271, ;
|
||
Value = 1, ;
|
||
Width = 123, ;
|
||
ZOrderSet = 22
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'cmdSelect' AS commandbutton WITH ;
|
||
Anchor = 2, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Selecteaza tot", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
FontUnderline = .T., ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 4, ;
|
||
Name = "cmdSelect", ;
|
||
TabIndex = 4, ;
|
||
Top = 328, ;
|
||
Width = 114, ;
|
||
ZOrderSet = 28
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cnomenclator' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Nomenclator", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "cnomenclator", ;
|
||
TabIndex = 4, ;
|
||
Top = 105, ;
|
||
Width = 114, ;
|
||
ZOrderSet = 12
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Partener Debit", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "Command1", ;
|
||
TabIndex = 2, ;
|
||
ToolTipText = "Alege partenerul cont debit", ;
|
||
Top = 46, ;
|
||
Width = 114, ;
|
||
ZOrderSet = 8
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Partener Credit", ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "Command2", ;
|
||
TabIndex = 3, ;
|
||
ToolTipText = "Alege partenerul cont credit", ;
|
||
Top = 75, ;
|
||
Width = 114, ;
|
||
ZOrderSet = 10
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Doc. platit", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "Command3", ;
|
||
TabIndex = 5, ;
|
||
ToolTipText = "Alege document platit (cont debitor). Este activ daca este completat contul si partenerul debit.", ;
|
||
Top = 135, ;
|
||
Width = 114, ;
|
||
WordWrap = .T., ;
|
||
ZOrderSet = 13
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command4' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Explicatie TVA", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "Command4", ;
|
||
TabIndex = 7, ;
|
||
Top = 196, ;
|
||
Width = 114, ;
|
||
ZOrderSet = 16
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command5' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Adauga TVA exigibilizat", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 36, ;
|
||
Left = 688, ;
|
||
Name = "Command5", ;
|
||
TabIndex = 8, ;
|
||
ToolTipText = "Adauga nota TVA exigibil. Este activ pentru notele 4428 sau pentru plati/incasari.", ;
|
||
Top = 288, ;
|
||
Width = 114, ;
|
||
WordWrap = .T., ;
|
||
ZOrderSet = 20
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Command6' AS commandbutton WITH ;
|
||
Anchor = 8, ;
|
||
AutoSize = .F., ;
|
||
Caption = "Doc. incasat", ;
|
||
Enabled = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,64, ;
|
||
Height = 30, ;
|
||
Left = 688, ;
|
||
Name = "Command6", ;
|
||
TabIndex = 6, ;
|
||
ToolTipText = "Alege document incasat (cont creditor). Este activ daca este completat contul si partenerul credit.", ;
|
||
Top = 166, ;
|
||
Width = 114, ;
|
||
WordWrap = .T., ;
|
||
ZOrderSet = 27
|
||
*< END OBJECT: BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Grid1' AS grid WITH ;
|
||
Anchor = 10, ;
|
||
BackColor = 244,250,255, ;
|
||
ColumnCount = 44, ;
|
||
DeleteMark = .F., ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
GridLineColor = 128,128,128, ;
|
||
HeaderHeight = 37, ;
|
||
Height = 284, ;
|
||
HighlightBackColor = 0,64,128, ;
|
||
HighlightStyle = 2, ;
|
||
Left = 5, ;
|
||
Name = "Grid1", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .F., ;
|
||
RecordSource = "tACT", ;
|
||
RowHeight = 19, ;
|
||
SelectedItemBackColor = 49,106,197, ;
|
||
TabIndex = 1, ;
|
||
Top = 45, ;
|
||
Width = 680, ;
|
||
ZOrderSet = 4, ;
|
||
Column1.Alignment = 1, ;
|
||
Column1.BackColor = 244,250,255, ;
|
||
Column1.ColumnOrder = 1, ;
|
||
Column1.ControlSource = "NRCRT()", ;
|
||
Column1.FontCharSet = 238, ;
|
||
Column1.FontName = "Arial", ;
|
||
Column1.FontSize = 10, ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.ReadOnly = .F., ;
|
||
Column1.Width = 29, ;
|
||
Column2.Alignment = 0, ;
|
||
Column2.BackColor = 244,250,255, ;
|
||
Column2.ColumnOrder = 3, ;
|
||
Column2.ControlSource = "dataireg", ;
|
||
Column2.FontCharSet = 238, ;
|
||
Column2.FontName = "Arial", ;
|
||
Column2.FontSize = 10, ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.ReadOnly = .F., ;
|
||
Column2.Width = 71, ;
|
||
Column3.Alignment = 0, ;
|
||
Column3.BackColor = 244,250,255, ;
|
||
Column3.ColumnOrder = 16, ;
|
||
Column3.ControlSource = "fdoc", ;
|
||
Column3.FontCharSet = 238, ;
|
||
Column3.FontName = "Arial", ;
|
||
Column3.FontSize = 10, ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.ReadOnly = .F., ;
|
||
Column3.Width = 88, ;
|
||
Column4.Alignment = 0, ;
|
||
Column4.BackColor = 244,250,255, ;
|
||
Column4.ColumnOrder = 4, ;
|
||
Column4.ControlSource = "dataact", ;
|
||
Column4.FontCharSet = 238, ;
|
||
Column4.FontName = "Arial", ;
|
||
Column4.FontSize = 10, ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.ReadOnly = .F., ;
|
||
Column4.Width = 51, ;
|
||
Column5.Alignment = 1, ;
|
||
Column5.BackColor = 244,250,255, ;
|
||
Column5.ColumnOrder = 6, ;
|
||
Column5.ControlSource = "nract", ;
|
||
Column5.FontCharSet = 238, ;
|
||
Column5.FontName = "Arial", ;
|
||
Column5.FontSize = 10, ;
|
||
Column5.Name = "Column5", ;
|
||
Column5.ReadOnly = .F., ;
|
||
Column5.Width = 53, ;
|
||
Column6.Alignment = 0, ;
|
||
Column6.BackColor = 244,250,255, ;
|
||
Column6.ColumnOrder = 8, ;
|
||
Column6.ControlSource = "partd", ;
|
||
Column6.FontCharSet = 238, ;
|
||
Column6.FontName = "Arial", ;
|
||
Column6.FontSize = 10, ;
|
||
Column6.Name = "Column6", ;
|
||
Column6.ReadOnly = .F., ;
|
||
Column6.Width = 114, ;
|
||
Column7.Alignment = 1, ;
|
||
Column7.BackColor = 244,250,255, ;
|
||
Column7.ColumnOrder = 11, ;
|
||
Column7.ControlSource = "scd", ;
|
||
Column7.FontCharSet = 238, ;
|
||
Column7.FontName = "Arial", ;
|
||
Column7.FontSize = 10, ;
|
||
Column7.Name = "Column7", ;
|
||
Column7.ReadOnly = .F., ;
|
||
Column7.Width = 57, ;
|
||
Column8.Alignment = 1, ;
|
||
Column8.BackColor = 244,250,255, ;
|
||
Column8.ColumnOrder = 13, ;
|
||
Column8.ControlSource = "scc", ;
|
||
Column8.FontCharSet = 238, ;
|
||
Column8.FontName = "Arial", ;
|
||
Column8.FontSize = 10, ;
|
||
Column8.Name = "Column8", ;
|
||
Column8.ReadOnly = .F., ;
|
||
Column8.Width = 62, ;
|
||
Column9.Alignment = 1, ;
|
||
Column9.BackColor = 244,250,255, ;
|
||
Column9.ColumnOrder = 15, ;
|
||
Column9.ControlSource = "suma", ;
|
||
Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
||
Column9.FontCharSet = 238, ;
|
||
Column9.FontName = "Arial", ;
|
||
Column9.FontSize = 10, ;
|
||
Column9.Format = "r", ;
|
||
Column9.InputMask = (get_mask(12,gnPa)), ;
|
||
Column9.Name = "Column9", ;
|
||
Column9.ReadOnly = .F., ;
|
||
Column9.Width = 93, ;
|
||
Column10.Alignment = 0, ;
|
||
Column10.BackColor = 244,250,255, ;
|
||
Column10.ColumnOrder = 9, ;
|
||
Column10.ControlSource = "partc", ;
|
||
Column10.FontCharSet = 238, ;
|
||
Column10.FontName = "Arial", ;
|
||
Column10.FontSize = 10, ;
|
||
Column10.Name = "Column10", ;
|
||
Column10.ReadOnly = .F., ;
|
||
Column10.Width = 100, ;
|
||
Column11.Alignment = 0, ;
|
||
Column11.BackColor = 244,250,255, ;
|
||
Column11.ColumnOrder = 10, ;
|
||
Column11.ControlSource = "explicatia", ;
|
||
Column11.FontCharSet = 238, ;
|
||
Column11.FontName = "Arial", ;
|
||
Column11.FontSize = 10, ;
|
||
Column11.Name = "Column11", ;
|
||
Column11.ReadOnly = .F., ;
|
||
Column11.Width = 77, ;
|
||
Column12.BackColor = 244,250,255, ;
|
||
Column12.ColumnOrder = 38, ;
|
||
Column12.ControlSource = "cod", ;
|
||
Column12.FontCharSet = 238, ;
|
||
Column12.FontName = "Arial", ;
|
||
Column12.FontSize = 10, ;
|
||
Column12.Name = "Column12", ;
|
||
Column12.ReadOnly = .T., ;
|
||
Column12.Width = 52, ;
|
||
Column13.BackColor = 244,250,255, ;
|
||
Column13.ColumnOrder = 17, ;
|
||
Column13.ControlSource = "pereched", ;
|
||
Column13.FontCharSet = 238, ;
|
||
Column13.FontName = "Arial", ;
|
||
Column13.FontSize = 10, ;
|
||
Column13.Name = "Column13", ;
|
||
Column13.ReadOnly = .F., ;
|
||
Column13.Width = 106, ;
|
||
Column14.BackColor = 244,250,255, ;
|
||
Column14.ColumnOrder = 32, ;
|
||
Column14.ControlSource = "explicatia4", ;
|
||
Column14.FontCharSet = 238, ;
|
||
Column14.FontName = "Arial", ;
|
||
Column14.FontSize = 10, ;
|
||
Column14.Name = "Column14", ;
|
||
Column14.ReadOnly = .F., ;
|
||
Column14.Width = 120, ;
|
||
Column15.BackColor = 244,250,255, ;
|
||
Column15.ColumnOrder = 25, ;
|
||
Column15.ControlSource = "nrord", ;
|
||
Column15.FontCharSet = 238, ;
|
||
Column15.FontName = "Arial", ;
|
||
Column15.FontSize = 10, ;
|
||
Column15.Name = "Column15", ;
|
||
Column15.ReadOnly = .F., ;
|
||
Column16.BackColor = 244,250,255, ;
|
||
Column16.ColumnOrder = 27, ;
|
||
Column16.ControlSource = "nresp", ;
|
||
Column16.FontCharSet = 238, ;
|
||
Column16.FontName = "Arial", ;
|
||
Column16.FontSize = 10, ;
|
||
Column16.Format = "", ;
|
||
Column16.InputMask = "", ;
|
||
Column16.Name = "Column16", ;
|
||
Column16.ReadOnly = .F., ;
|
||
Column17.BackColor = 244,250,255, ;
|
||
Column17.ColumnOrder = 28, ;
|
||
Column17.ControlSource = "dst_chlt", ;
|
||
Column17.FontCharSet = 238, ;
|
||
Column17.FontName = "Arial", ;
|
||
Column17.FontSize = 10, ;
|
||
Column17.Format = "", ;
|
||
Column17.InputMask = "", ;
|
||
Column17.Name = "Column17", ;
|
||
Column17.ReadOnly = .F., ;
|
||
Column18.BackColor = 244,250,255, ;
|
||
Column18.ColumnOrder = 33, ;
|
||
Column18.ControlSource = "explicatia5", ;
|
||
Column18.FontCharSet = 238, ;
|
||
Column18.FontName = "Arial", ;
|
||
Column18.FontSize = 10, ;
|
||
Column18.Name = "Column18", ;
|
||
Column18.ReadOnly = .F., ;
|
||
Column18.Width = 119, ;
|
||
Column19.BackColor = 244,250,255, ;
|
||
Column19.ColumnOrder = 24, ;
|
||
Column19.ControlSource = "datascad", ;
|
||
Column19.FontCharSet = 238, ;
|
||
Column19.FontName = "Arial", ;
|
||
Column19.FontSize = 10, ;
|
||
Column19.Name = "Column19", ;
|
||
Column19.ReadOnly = .F., ;
|
||
Column19.Visible = .T., ;
|
||
Column19.Width = 87, ;
|
||
Column20.BackColor = 244,250,255, ;
|
||
Column20.ColumnOrder = 29, ;
|
||
Column20.ControlSource = "suma_val", ;
|
||
Column20.FontCharSet = 238, ;
|
||
Column20.FontName = "Arial", ;
|
||
Column20.FontSize = 10, ;
|
||
Column20.InputMask = (get_mask(12,gnPa)), ;
|
||
Column20.Name = "Column20", ;
|
||
Column20.ReadOnly = .F., ;
|
||
Column20.Width = 89, ;
|
||
Column21.BackColor = 244,250,255, ;
|
||
Column21.ColumnOrder = 31, ;
|
||
Column21.ControlSource = "curs", ;
|
||
Column21.FontCharSet = 238, ;
|
||
Column21.FontName = "Arial", ;
|
||
Column21.FontSize = 10, ;
|
||
Column21.InputMask = (get_mask(12,gnPcurs)), ;
|
||
Column21.Name = "Column21", ;
|
||
Column21.ReadOnly = .F., ;
|
||
Column21.Width = 72, ;
|
||
Column22.BackColor = 244,250,255, ;
|
||
Column22.ColumnOrder = 34, ;
|
||
Column22.ControlSource = "gestin", ;
|
||
Column22.FontCharSet = 238, ;
|
||
Column22.FontName = "Arial", ;
|
||
Column22.FontSize = 10, ;
|
||
Column22.Name = "Column22", ;
|
||
Column22.ReadOnly = .F., ;
|
||
Column22.Width = 116, ;
|
||
Column23.BackColor = 244,250,255, ;
|
||
Column23.ColumnOrder = 12, ;
|
||
Column23.ControlSource = "ascd", ;
|
||
Column23.FontCharSet = 238, ;
|
||
Column23.FontName = "Arial", ;
|
||
Column23.FontSize = 10, ;
|
||
Column23.Name = "Column23", ;
|
||
Column23.ReadOnly = .F., ;
|
||
Column23.Width = 46, ;
|
||
Column24.BackColor = 244,250,255, ;
|
||
Column24.ColumnOrder = 14, ;
|
||
Column24.ControlSource = "ascc", ;
|
||
Column24.FontCharSet = 238, ;
|
||
Column24.FontName = "Arial", ;
|
||
Column24.FontSize = 10, ;
|
||
Column24.Name = "Column24", ;
|
||
Column24.ReadOnly = .F., ;
|
||
Column24.Width = 48, ;
|
||
Column25.BackColor = 244,250,255, ;
|
||
Column25.ColumnOrder = 39, ;
|
||
Column25.ControlSource = "id_set", ;
|
||
Column25.FontCharSet = 238, ;
|
||
Column25.FontName = "Arial", ;
|
||
Column25.FontSize = 10, ;
|
||
Column25.Name = "Column25", ;
|
||
Column25.ReadOnly = .T., ;
|
||
Column25.Width = 71, ;
|
||
Column26.BackColor = 244,250,255, ;
|
||
Column26.ColumnOrder = 20, ;
|
||
Column26.ControlSource = "proc_tva", ;
|
||
Column26.FontCharSet = 238, ;
|
||
Column26.FontName = "Arial", ;
|
||
Column26.FontSize = 10, ;
|
||
Column26.Name = "Column26", ;
|
||
Column26.ReadOnly = .T., ;
|
||
Column26.Width = 54, ;
|
||
Column27.BackColor = 244,250,255, ;
|
||
Column27.ColumnOrder = 18, ;
|
||
Column27.ControlSource = "perechec", ;
|
||
Column27.FontCharSet = 238, ;
|
||
Column27.FontName = "Arial", ;
|
||
Column27.FontSize = 10, ;
|
||
Column27.Name = "Column27", ;
|
||
Column27.ReadOnly = .F., ;
|
||
Column27.Width = 104, ;
|
||
Column28.BackColor = 244,250,255, ;
|
||
Column28.ColumnOrder = 36, ;
|
||
Column28.ControlSource = "sectie", ;
|
||
Column28.FontCharSet = 238, ;
|
||
Column28.FontName = "Arial", ;
|
||
Column28.FontSize = 10, ;
|
||
Column28.Name = "Column28", ;
|
||
Column28.ReadOnly = .F., ;
|
||
Column28.Width = 88, ;
|
||
Column29.BackColor = 244,250,255, ;
|
||
Column29.ColumnOrder = 30, ;
|
||
Column29.ControlSource = "nume_val", ;
|
||
Column29.FontCharSet = 238, ;
|
||
Column29.FontName = "Arial", ;
|
||
Column29.FontSize = 10, ;
|
||
Column29.Name = "Column29", ;
|
||
Column29.ReadOnly = .F., ;
|
||
Column29.Width = 79, ;
|
||
Column30.BackColor = 244,250,255, ;
|
||
Column30.ColumnOrder = 40, ;
|
||
Column30.ControlSource = "id_partd", ;
|
||
Column30.FontCharSet = 238, ;
|
||
Column30.FontName = "Arial", ;
|
||
Column30.FontSize = 10, ;
|
||
Column30.Name = "Column30", ;
|
||
Column30.ReadOnly = .T., ;
|
||
Column30.Width = 55, ;
|
||
Column31.BackColor = 244,250,255, ;
|
||
Column31.ColumnOrder = 41, ;
|
||
Column31.ControlSource = "id_partc", ;
|
||
Column31.FontCharSet = 238, ;
|
||
Column31.FontName = "Arial", ;
|
||
Column31.FontSize = 10, ;
|
||
Column31.Name = "Column31", ;
|
||
Column31.ReadOnly = .T., ;
|
||
Column31.Width = 55, ;
|
||
Column32.BackColor = 244,250,255, ;
|
||
Column32.ColumnOrder = 35, ;
|
||
Column32.ControlSource = "gestout", ;
|
||
Column32.FontCharSet = 238, ;
|
||
Column32.FontName = "Arial", ;
|
||
Column32.FontSize = 10, ;
|
||
Column32.Name = "Column32", ;
|
||
Column32.ReadOnly = .F., ;
|
||
Column32.Width = 92, ;
|
||
Column33.BackColor = 244,250,255, ;
|
||
Column33.ColumnOrder = 37, ;
|
||
Column33.ControlSource = "sucursala", ;
|
||
Column33.FontCharSet = 238, ;
|
||
Column33.FontName = "Arial", ;
|
||
Column33.FontSize = 10, ;
|
||
Column33.Name = "Column33", ;
|
||
Column33.ReadOnly = .F., ;
|
||
Column33.Width = 121, ;
|
||
Column34.BackColor = 244,250,255, ;
|
||
Column34.ColumnOrder = 26, ;
|
||
Column34.ControlSource = "contract", ;
|
||
Column34.FontCharSet = 238, ;
|
||
Column34.FontName = "Arial", ;
|
||
Column34.FontSize = 10, ;
|
||
Column34.Name = "Column34", ;
|
||
Column34.ReadOnly = .T., ;
|
||
Column34.Width = 65, ;
|
||
Column35.BackColor = 244,250,255, ;
|
||
Column35.ColumnOrder = 21, ;
|
||
Column35.ControlSource = "explicatie_tva", ;
|
||
Column35.FontCharSet = 238, ;
|
||
Column35.FontName = "Arial", ;
|
||
Column35.FontSize = 10, ;
|
||
Column35.Name = "Column35", ;
|
||
Column35.ReadOnly = .F., ;
|
||
Column35.Width = 136, ;
|
||
Column36.BackColor = 244,250,255, ;
|
||
Column36.ColumnOrder = 19, ;
|
||
Column36.ControlSource = "cu_tva", ;
|
||
Column36.FontCharSet = 238, ;
|
||
Column36.FontName = "Arial", ;
|
||
Column36.FontSize = 10, ;
|
||
Column36.Name = "Column36", ;
|
||
Column36.ReadOnly = .F., ;
|
||
Column36.Sparse = .F., ;
|
||
Column36.Width = 51, ;
|
||
Column37.BackColor = 244,250,255, ;
|
||
Column37.ColumnOrder = 5, ;
|
||
Column37.ControlSource = "serie_act", ;
|
||
Column37.FontCharSet = 238, ;
|
||
Column37.FontName = "Arial", ;
|
||
Column37.FontSize = 10, ;
|
||
Column37.Format = "!", ;
|
||
Column37.Name = "Column37", ;
|
||
Column37.ReadOnly = .F., ;
|
||
Column37.Width = 58, ;
|
||
Column38.BackColor = 244,250,255, ;
|
||
Column38.ColumnOrder = 42, ;
|
||
Column38.ControlSource = "id_fact", ;
|
||
Column38.FontCharSet = 238, ;
|
||
Column38.FontName = "Arial", ;
|
||
Column38.FontSize = 10, ;
|
||
Column38.Name = "Column38", ;
|
||
Column38.ReadOnly = .T., ;
|
||
Column38.Width = 94, ;
|
||
Column39.BackColor = 244,250,255, ;
|
||
Column39.ColumnOrder = 43, ;
|
||
Column39.ControlSource = "id_factd", ;
|
||
Column39.FontCharSet = 238, ;
|
||
Column39.FontName = "Arial", ;
|
||
Column39.FontSize = 10, ;
|
||
Column39.Name = "Column39", ;
|
||
Column39.ReadOnly = .T., ;
|
||
Column39.Width = 75, ;
|
||
Column40.BackColor = 244,250,255, ;
|
||
Column40.ColumnOrder = 44, ;
|
||
Column40.ControlSource = "id_factc", ;
|
||
Column40.FontCharSet = 238, ;
|
||
Column40.FontName = "Arial", ;
|
||
Column40.FontSize = 10, ;
|
||
Column40.Name = "Column40", ;
|
||
Column40.ReadOnly = .T., ;
|
||
Column41.BackColor = 244,250,255, ;
|
||
Column41.ColumnOrder = 2, ;
|
||
Column41.ControlSource = "tAct.ales", ;
|
||
Column41.CurrentControl = "_CHECKBOX1", ;
|
||
Column41.FontCharSet = 238, ;
|
||
Column41.FontName = "Arial", ;
|
||
Column41.FontSize = 10, ;
|
||
Column41.Name = "cAles", ;
|
||
Column41.ReadOnly = .F., ;
|
||
Column41.Sparse = .F., ;
|
||
Column41.Width = 22, ;
|
||
Column42.BackColor = 244,250,255, ;
|
||
Column42.Bound = .F., ;
|
||
Column42.ColumnOrder = 22, ;
|
||
Column42.ControlSource = "Iif(Seek(tAct.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ;
|
||
Column42.CurrentControl = "_combobox1", ;
|
||
Column42.FontCharSet = 238, ;
|
||
Column42.FontSize = 10, ;
|
||
Column42.Name = "Column42", ;
|
||
Column42.ReadOnly = .F., ;
|
||
Column42.Sparse = .F., ;
|
||
Column42.Width = 184, ;
|
||
Column43.BackColor = 244,250,255, ;
|
||
Column43.Bound = .F., ;
|
||
Column43.ColumnOrder = 23, ;
|
||
Column43.ControlSource = "Iif(Seek(tAct.paymentcode,'saft_mecanisme_plati','mcode'),saft_mecanisme_plati.paymentname,'')", ;
|
||
Column43.CurrentControl = "_combobox1", ;
|
||
Column43.FontCharSet = 238, ;
|
||
Column43.FontSize = 10, ;
|
||
Column43.Name = "Column43", ;
|
||
Column43.ReadOnly = .F., ;
|
||
Column43.Sparse = .F., ;
|
||
Column43.Width = 146, ;
|
||
Column44.Alignment = 1, ;
|
||
Column44.BackColor = 244,250,255, ;
|
||
Column44.ColumnOrder = 7, ;
|
||
Column44.ControlSource = "nnir", ;
|
||
Column44.FontCharSet = 238, ;
|
||
Column44.FontName = "Arial", ;
|
||
Column44.FontSize = 10, ;
|
||
Column44.Name = "Column44", ;
|
||
Column44.ReadOnly = .F., ;
|
||
Column44.Width = 60
|
||
*< END OBJECT: BaseClass="grid" />
|
||
|
||
ADD OBJECT 'Grid1.cAles._CHECKBOX1' AS _checkbox WITH ;
|
||
Alignment = 2, ;
|
||
BackColor = 255,255,255, ;
|
||
Caption = "", ;
|
||
ControlSource = "tAct.ales", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Left = 9, ;
|
||
Name = "_CHECKBOX1", ;
|
||
ReadOnly = .F., ;
|
||
Top = 79
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Grid1.cAles.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Ales", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.cAles.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ControlSource = "tAct.ales", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "NrCrt", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatie C", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Expl.3", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "COD", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. doc. platit (debit)", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatia 4", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lucrarea", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Responsabil", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cheltuiala", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatia 5", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data scadenta", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197, ;
|
||
Visible = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data Inreg.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header2"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Suma in valuta", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column21.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Curs valutar", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column21.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column22.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune destinatie", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column22.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column23.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "AnalitD", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column23.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column24.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "AnalitC", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column24.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column25.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Tip operatie", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column25.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column26.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cota TVA", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column26.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column27.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. doc. incasat (credit)", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column28.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sectia", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column28.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column29.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nume Valuta", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column29.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Fel Doc.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header3"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column30.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Part D", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column30.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column31.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Part C", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column31.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column32.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune sursa", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column32.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column33.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sucursala", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column33.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column34.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Contract", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column34.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column35.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatie TVA", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column35.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column36._CHECKBOX1' AS _checkbox WITH ;
|
||
Alignment = 2, ;
|
||
AutoSize = .F., ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Left = 19, ;
|
||
Name = "_CHECKBOX1", ;
|
||
Top = 31
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column36.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cu TVA", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column37.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Serie doc.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column37.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column38.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id factura", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column38.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column39.Header1' AS header WITH ;
|
||
Caption = "Id Factura D", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column39.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data Act", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header4"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column40.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id Factura C", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column40.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column42._combobox1' AS _combobox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
BoundColumn = 4, ;
|
||
BoundTo = .T., ;
|
||
ColumnCount = 3, ;
|
||
ColumnLines = .F., ;
|
||
ColumnWidths = "450,150,40", ;
|
||
ControlSource = "tAct.taxcode", ;
|
||
Left = 32, ;
|
||
Name = "_combobox1", ;
|
||
RowSource = "select taxname, tip, CAST(procent_taxa as N(6,2) null) as procent_taxa, taxcode from saft_taxtable order by tva, tva_livrari, tva_achizitii, wht, taxcode into cursor crsTaxTableX", ;
|
||
RowSourceType = 3, ;
|
||
Top = 55
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Grid1.Column42.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Taxa SAFT", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column42.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column43._combobox1' AS _combobox WITH ;
|
||
BorderStyle = 0, ;
|
||
BoundColumn = 3, ;
|
||
BoundTo = .T., ;
|
||
ColumnCount = 2, ;
|
||
ColumnLines = .F., ;
|
||
ColumnWidths = "300,150", ;
|
||
ControlSource = "tAct.paymentcode", ;
|
||
Left = 93, ;
|
||
Name = "_combobox1", ;
|
||
ReadOnly = .F., ;
|
||
RowSource = "select paymentname, methodname, mechanismcode from saft_mecanisme_plati where afisat = 1 order by ordine into cursor crsPaymentX", ;
|
||
RowSourceType = 3, ;
|
||
Top = 67
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Grid1.Column43.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Plata SAFT", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column43.Text1' AS textbox WITH ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column44.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. NIR", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column44.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.Doc.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header5"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatie D", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header6"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
|
||
Alignment = 0, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderColor = 0,0,0, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont Deb.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header7"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont Cred.", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header8"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Suma", ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header9"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
BackColor = 244,250,255, ;
|
||
BorderStyle = 0, ;
|
||
FontCharSet = 238, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 49,106,197
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
||
Height = 17, ;
|
||
Left = 570, ;
|
||
Name = "Gridextra1", ;
|
||
Top = 11, ;
|
||
Width = 24
|
||
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
|
||
Caption = "CTRL+F = Terminare; ESC = Renun<75>are; CTRL+N = Ad<41>ugare; CTRL+D = <20>tergere", ;
|
||
Left = 5, ;
|
||
Name = "Lb_shortcuts1", ;
|
||
TabIndex = 19, ;
|
||
Top = 17, ;
|
||
ZOrderSet = 19
|
||
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblSuma' AS _label WITH ;
|
||
Anchor = 8, ;
|
||
Caption = "Total", ;
|
||
FontBold = .T., ;
|
||
Left = 511, ;
|
||
Name = "lblSuma", ;
|
||
TabIndex = 21, ;
|
||
Top = 334, ;
|
||
ZOrderSet = 24
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'pgfArticole' AS _pageframe WITH ;
|
||
Anchor = 15, ;
|
||
ErasePage = .T., ;
|
||
Height = 142, ;
|
||
Left = 5, ;
|
||
Name = "pgfArticole", ;
|
||
Top = 361, ;
|
||
Width = 764, ;
|
||
ZOrderSet = 0, ;
|
||
PAGE1.Caption = "Rulaje materii prime, materiale, marfuri, obiecte inventar (303)", ;
|
||
PAGE1.ForeColor = 0,64,128, ;
|
||
PAGE1.Name = "PAGE1", ;
|
||
PAGE2.Caption = "Rulaje obiecte inventar in folosinta (8039)", ;
|
||
PAGE2.ForeColor = 0,128,64, ;
|
||
PAGE2.Name = "PAGE2"
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1._grdfooter1' AS _grdfooter WITH ;
|
||
ccolwithlabel = cNrCrt, ;
|
||
csourcegrid = , ;
|
||
csumcolumns = cValoareftva, cValoaretva, cValoarectva, cValoarevftva, cValoarevtva, cValoarevctva, cValoare_adaosftva, cvaloare_adaostva, ;
|
||
ctotallabelexpression = 'TOTAL', ;
|
||
Height = 35, ;
|
||
Left = 0, ;
|
||
Name = "_grdfooter1", ;
|
||
Top = 75, ;
|
||
Width = 759, ;
|
||
ZOrderSet = 9
|
||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 63, ;
|
||
DeleteMark = .F., ;
|
||
FontSize = 10, ;
|
||
GridLineColor = 128,128,128, ;
|
||
HeaderHeight = 35, ;
|
||
Height = 72, ;
|
||
Left = 0, ;
|
||
Name = "grdRulaje", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .F., ;
|
||
RecordSource = "trul", ;
|
||
RowHeight = 19, ;
|
||
TabIndex = 3, ;
|
||
Tag = "RESIZABLE", ;
|
||
Top = 0, ;
|
||
Width = 759, ;
|
||
ZOrderSet = 1, ;
|
||
Column1.ControlSource = "nrcrt()", ;
|
||
Column1.FontName = "Arial", ;
|
||
Column1.FontSize = 10, ;
|
||
Column1.Format = "R", ;
|
||
Column1.InputMask = "999 999", ;
|
||
Column1.Name = "cNrCrt", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 44, ;
|
||
Column2.ControlSource = "trul.nnir", ;
|
||
Column2.FontName = "Arial", ;
|
||
Column2.FontSize = 10, ;
|
||
Column2.Name = "cNnir", ;
|
||
Column2.ReadOnly = .F., ;
|
||
Column2.Width = 71, ;
|
||
Column3.ColumnOrder = 3, ;
|
||
Column3.ControlSource = "dataact", ;
|
||
Column3.FontName = "Arial", ;
|
||
Column3.FontSize = 10, ;
|
||
Column3.Name = "cDataact", ;
|
||
Column3.ReadOnly = .F., ;
|
||
Column3.Width = 67, ;
|
||
Column4.BackColor = 225,225,225, ;
|
||
Column4.ColumnOrder = 6, ;
|
||
Column4.ControlSource = "codmat", ;
|
||
Column4.FontName = "Arial", ;
|
||
Column4.FontSize = 10, ;
|
||
Column4.Name = "cCodmat", ;
|
||
Column4.ReadOnly = .T., ;
|
||
Column5.BackColor = 160,255,205, ;
|
||
Column5.ColumnOrder = 7, ;
|
||
Column5.ControlSource = "denumire", ;
|
||
Column5.FontName = "Arial", ;
|
||
Column5.FontSize = 10, ;
|
||
Column5.Name = "cDenumire", ;
|
||
Column5.ReadOnly = .F., ;
|
||
Column5.Width = 156, ;
|
||
Column6.BackColor = 225,225,225, ;
|
||
Column6.ColumnOrder = 9, ;
|
||
Column6.ControlSource = "um", ;
|
||
Column6.FontName = "Arial", ;
|
||
Column6.FontSize = 10, ;
|
||
Column6.Name = "cUM", ;
|
||
Column6.ReadOnly = .T., ;
|
||
Column6.Width = 39, ;
|
||
Column7.ColumnOrder = 19, ;
|
||
Column7.ControlSource = "pret", ;
|
||
Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
||
Column7.FontName = "Arial", ;
|
||
Column7.FontSize = 10, ;
|
||
Column7.Format = "R", ;
|
||
Column7.InputMask = (get_mask(12,gnPPRET)), ;
|
||
Column7.Name = "cPret", ;
|
||
Column7.ReadOnly = .F., ;
|
||
Column7.Width = 70, ;
|
||
Column8.ColumnOrder = 12, ;
|
||
Column8.ControlSource = "cant", ;
|
||
Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
|
||
Column8.FontName = "Arial", ;
|
||
Column8.FontSize = 10, ;
|
||
Column8.Format = "R", ;
|
||
Column8.InputMask = (get_mask(12,gnPCANT)), ;
|
||
Column8.Name = "cCant", ;
|
||
Column8.ReadOnly = .F., ;
|
||
Column8.Width = 68, ;
|
||
Column9.ColumnOrder = 13, ;
|
||
Column9.ControlSource = "cante", ;
|
||
Column9.FontName = "Arial", ;
|
||
Column9.FontSize = 10, ;
|
||
Column9.Format = "R", ;
|
||
Column9.InputMask = (get_mask(12,gnPCANT)), ;
|
||
Column9.Name = "cCante", ;
|
||
Column9.ReadOnly = .F., ;
|
||
Column9.Width = 68, ;
|
||
Column10.ColumnOrder = 14, ;
|
||
Column10.ControlSource = "cont", ;
|
||
Column10.FontName = "Arial", ;
|
||
Column10.FontSize = 10, ;
|
||
Column10.Name = "cCont", ;
|
||
Column10.ReadOnly = .F., ;
|
||
Column10.Width = 46, ;
|
||
Column11.BackColor = 225,225,225, ;
|
||
Column11.ColumnOrder = 61, ;
|
||
Column11.ControlSource = "cod", ;
|
||
Column11.FontName = "Arial", ;
|
||
Column11.FontSize = 10, ;
|
||
Column11.Name = "cCod", ;
|
||
Column11.ReadOnly = .T., ;
|
||
Column12.ColumnOrder = 15, ;
|
||
Column12.ControlSource = "acont", ;
|
||
Column12.FontName = "Arial", ;
|
||
Column12.FontSize = 10, ;
|
||
Column12.Name = "cAcont", ;
|
||
Column12.ReadOnly = .F., ;
|
||
Column12.Width = 46, ;
|
||
Column13.BackColor = 160,255,205, ;
|
||
Column13.ColumnOrder = 16, ;
|
||
Column13.ControlSource = "cgest", ;
|
||
Column13.FontName = "Arial", ;
|
||
Column13.FontSize = 10, ;
|
||
Column13.Name = "cGest", ;
|
||
Column13.ReadOnly = .F., ;
|
||
Column13.Width = 60, ;
|
||
Column14.BackColor = 160,255,205, ;
|
||
Column14.ColumnOrder = 18, ;
|
||
Column14.ControlSource = "nrord", ;
|
||
Column14.FontName = "Arial", ;
|
||
Column14.FontSize = 10, ;
|
||
Column14.Name = "cNrord", ;
|
||
Column14.ReadOnly = .F., ;
|
||
Column15.ColumnOrder = 26, ;
|
||
Column15.ControlSource = "curs", ;
|
||
Column15.FontName = "Arial", ;
|
||
Column15.FontSize = 10, ;
|
||
Column15.Format = "R", ;
|
||
Column15.InputMask = (get_mask(12,gnPcurs)), ;
|
||
Column15.Name = "cCurs", ;
|
||
Column15.ReadOnly = .F., ;
|
||
Column15.Width = 55, ;
|
||
Column16.ColumnOrder = 25, ;
|
||
Column16.ControlSource = "pretd", ;
|
||
Column16.FontName = "Arial", ;
|
||
Column16.FontSize = 10, ;
|
||
Column16.Format = "R", ;
|
||
Column16.InputMask = (get_mask(12,gnPPretVal)), ;
|
||
Column16.Name = "cPretd", ;
|
||
Column16.ReadOnly = .F., ;
|
||
Column16.Width = 64, ;
|
||
Column17.BackColor = 225,225,225, ;
|
||
Column17.ColumnOrder = 39, ;
|
||
Column17.ControlSource = "procent", ;
|
||
Column17.FontName = "Arial", ;
|
||
Column17.FontSize = 10, ;
|
||
Column17.Format = "R", ;
|
||
Column17.InputMask = "999 999.99", ;
|
||
Column17.Name = "cProcent", ;
|
||
Column17.ReadOnly = .T., ;
|
||
Column17.Width = 53, ;
|
||
Column18.ColumnOrder = 35, ;
|
||
Column18.ControlSource = "iif(trul.pretv#0,trul.pretv-trul.pret,0)", ;
|
||
Column18.FontName = "Arial", ;
|
||
Column18.FontSize = 10, ;
|
||
Column18.Format = "R", ;
|
||
Column18.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
|
||
Column18.Name = "cAdaos", ;
|
||
Column18.ReadOnly = .F., ;
|
||
Column18.Width = 56, ;
|
||
Column19.ColumnOrder = 21, ;
|
||
Column19.ControlSource = "tva", ;
|
||
Column19.FontName = "Arial", ;
|
||
Column19.FontSize = 10, ;
|
||
Column19.Format = "R", ;
|
||
Column19.InputMask = (get_mask(12,gnPPRET)), ;
|
||
Column19.Name = "cTva", ;
|
||
Column19.ReadOnly = .F., ;
|
||
Column19.Width = 68, ;
|
||
Column20.BackColor = 225,225,225, ;
|
||
Column20.ColumnOrder = 22, ;
|
||
Column20.ControlSource = "valoare", ;
|
||
Column20.FontName = "Arial", ;
|
||
Column20.FontSize = 10, ;
|
||
Column20.Format = "R", ;
|
||
Column20.InputMask = (get_mask(12,gnPc)), ;
|
||
Column20.Name = "cValoareftva", ;
|
||
Column20.ReadOnly = .T., ;
|
||
Column21.ColumnOrder = 28, ;
|
||
Column21.ControlSource = "trul.pretv", ;
|
||
Column21.FontName = "Arial", ;
|
||
Column21.FontSize = 10, ;
|
||
Column21.Format = "R", ;
|
||
Column21.InputMask = (get_mask(12,gnPPRETV)), ;
|
||
Column21.Name = "cPretv", ;
|
||
Column21.ReadOnly = .F., ;
|
||
Column22.ColumnOrder = 30, ;
|
||
Column22.ControlSource = "tvav", ;
|
||
Column22.FontName = "Arial", ;
|
||
Column22.FontSize = 10, ;
|
||
Column22.Format = "R", ;
|
||
Column22.InputMask = (get_mask(12,gnPPRETV)), ;
|
||
Column22.Name = "cTvav", ;
|
||
Column22.ReadOnly = .F., ;
|
||
Column23.ColumnOrder = 31, ;
|
||
Column23.ControlSource = "pretvtva", ;
|
||
Column23.FontName = "Arial", ;
|
||
Column23.FontSize = 10, ;
|
||
Column23.Format = "R", ;
|
||
Column23.InputMask = (get_mask(12,gnPPRETV)), ;
|
||
Column23.Name = "cPretvtva", ;
|
||
Column23.ReadOnly = .F., ;
|
||
Column23.Width = 94, ;
|
||
Column24.ColumnOrder = 20, ;
|
||
Column24.ControlSource = "proc_tva", ;
|
||
Column24.FontName = "Arial", ;
|
||
Column24.FontSize = 10, ;
|
||
Column24.Format = "R", ;
|
||
Column24.InputMask = "9.99", ;
|
||
Column24.Name = "cProc_tva", ;
|
||
Column24.ReadOnly = .F., ;
|
||
Column24.Width = 57, ;
|
||
Column25.BackColor = 225,225,225, ;
|
||
Column25.ColumnOrder = 57, ;
|
||
Column25.ControlSource = "util", ;
|
||
Column25.FontName = "Arial", ;
|
||
Column25.FontSize = 10, ;
|
||
Column25.Name = "cUtil", ;
|
||
Column25.ReadOnly = .T., ;
|
||
Column25.Width = 95, ;
|
||
Column26.BackColor = 225,225,225, ;
|
||
Column26.ColumnOrder = 58, ;
|
||
Column26.ControlSource = "dataora", ;
|
||
Column26.FontName = "Arial", ;
|
||
Column26.FontSize = 10, ;
|
||
Column26.Name = "cDataora", ;
|
||
Column26.ReadOnly = .T., ;
|
||
Column26.Width = 95, ;
|
||
Column27.BackColor = 160,255,205, ;
|
||
Column27.ColumnOrder = 45, ;
|
||
Column27.ControlSource = "sectie", ;
|
||
Column27.FontName = "Arial", ;
|
||
Column27.FontSize = 10, ;
|
||
Column27.Name = "cSectie", ;
|
||
Column27.ReadOnly = .F., ;
|
||
Column28.ColumnOrder = 43, ;
|
||
Column28.ControlSource = "datain", ;
|
||
Column28.FontName = "Arial", ;
|
||
Column28.FontSize = 10, ;
|
||
Column28.Name = "cDatain", ;
|
||
Column28.ReadOnly = .F., ;
|
||
Column29.ColumnOrder = 44, ;
|
||
Column29.ControlSource = "dataout", ;
|
||
Column29.FontName = "Arial", ;
|
||
Column29.FontSize = 10, ;
|
||
Column29.Name = "cDataOut", ;
|
||
Column29.ReadOnly = .F., ;
|
||
Column30.BackColor = 160,255,205, ;
|
||
Column30.ColumnOrder = 46, ;
|
||
Column30.ControlSource = "nresp", ;
|
||
Column30.FontName = "Arial", ;
|
||
Column30.FontSize = 10, ;
|
||
Column30.Name = "cNresp", ;
|
||
Column30.ReadOnly = .F., ;
|
||
Column30.Width = 116, ;
|
||
Column31.BackColor = 160,255,205, ;
|
||
Column31.ColumnOrder = 17, ;
|
||
Column31.ControlSource = "cgestc", ;
|
||
Column31.FontName = "Arial", ;
|
||
Column31.FontSize = 10, ;
|
||
Column31.Name = "cGestC", ;
|
||
Column31.ReadOnly = .F., ;
|
||
Column32.BackColor = 160,255,205, ;
|
||
Column32.ColumnOrder = 47, ;
|
||
Column32.ControlSource = "nrespc", ;
|
||
Column32.FontName = "Arial", ;
|
||
Column32.FontSize = 10, ;
|
||
Column32.Name = "cNrespC", ;
|
||
Column32.ReadOnly = .F., ;
|
||
Column32.Width = 91, ;
|
||
Column33.BackColor = 225,225,225, ;
|
||
Column33.ColumnOrder = 48, ;
|
||
Column33.ControlSource = "tip_rulaj", ;
|
||
Column33.FontName = "Arial", ;
|
||
Column33.FontSize = 10, ;
|
||
Column33.Name = "cTipRulaj", ;
|
||
Column33.ReadOnly = .T., ;
|
||
Column34.BackColor = 225,225,225, ;
|
||
Column34.ColumnOrder = 10, ;
|
||
Column34.ControlSource = "cant_bax", ;
|
||
Column34.FontName = "Arial", ;
|
||
Column34.FontSize = 10, ;
|
||
Column34.Name = "Column34", ;
|
||
Column34.ReadOnly = .F., ;
|
||
Column34.Sparse = .F., ;
|
||
Column34.Width = 41, ;
|
||
Column35.BackColor = 225,225,225, ;
|
||
Column35.ColumnOrder = 11, ;
|
||
Column35.ControlSource = "um2", ;
|
||
Column35.FontName = "Arial", ;
|
||
Column35.FontSize = 10, ;
|
||
Column35.Name = "Column35", ;
|
||
Column35.ReadOnly = .T., ;
|
||
Column35.Width = 35, ;
|
||
Column36.BackColor = 225,225,225, ;
|
||
Column36.ColumnOrder = 49, ;
|
||
Column36.ControlSource = "grupa", ;
|
||
Column36.FontName = "Arial", ;
|
||
Column36.FontSize = 10, ;
|
||
Column36.Name = "cGrupa", ;
|
||
Column36.ReadOnly = .T., ;
|
||
Column36.Width = 53, ;
|
||
Column37.ColumnOrder = 5, ;
|
||
Column37.ControlSource = "nract", ;
|
||
Column37.FontName = "Arial", ;
|
||
Column37.FontSize = 10, ;
|
||
Column37.Name = "cNract", ;
|
||
Column37.ReadOnly = .F., ;
|
||
Column37.Width = 70, ;
|
||
Column38.BackColor = 225,225,225, ;
|
||
Column38.ColumnOrder = 50, ;
|
||
Column38.ControlSource = "subgrupa", ;
|
||
Column38.FontName = "Arial", ;
|
||
Column38.FontSize = 10, ;
|
||
Column38.Name = "cSubgrupa", ;
|
||
Column38.ReadOnly = .T., ;
|
||
Column38.Width = 71, ;
|
||
Column39.BackColor = 225,225,225, ;
|
||
Column39.ColumnOrder = 59, ;
|
||
Column39.ControlSource = "utils", ;
|
||
Column39.FontName = "Arial", ;
|
||
Column39.FontSize = 10, ;
|
||
Column39.Name = "cUtils", ;
|
||
Column39.ReadOnly = .T., ;
|
||
Column40.BackColor = 225,225,225, ;
|
||
Column40.ColumnOrder = 60, ;
|
||
Column40.ControlSource = "dataoras", ;
|
||
Column40.FontName = "Arial", ;
|
||
Column40.FontSize = 10, ;
|
||
Column40.Name = "cDataoras", ;
|
||
Column40.ReadOnly = .T., ;
|
||
Column40.Width = 80, ;
|
||
Column41.ColumnOrder = 8, ;
|
||
Column41.ControlSource = "serie", ;
|
||
Column41.FontName = "Arial", ;
|
||
Column41.FontSize = 10, ;
|
||
Column41.Name = "cSerie", ;
|
||
Column41.ReadOnly = .F., ;
|
||
Column41.Width = 122, ;
|
||
Column42.BackColor = 160,255,205, ;
|
||
Column42.ColumnOrder = 27, ;
|
||
Column42.ControlSource = "nume_val", ;
|
||
Column42.FontName = "Arial", ;
|
||
Column42.FontSize = 10, ;
|
||
Column42.Name = "cNume_val", ;
|
||
Column42.ReadOnly = .F., ;
|
||
Column42.Width = 52, ;
|
||
Column43.ColumnOrder = 4, ;
|
||
Column43.ControlSource = "serie_act", ;
|
||
Column43.FontName = "Arial", ;
|
||
Column43.FontSize = 10, ;
|
||
Column43.Name = "cSerie_act", ;
|
||
Column43.ReadOnly = .F., ;
|
||
Column43.Width = 43, ;
|
||
Column44.BackColor = 225,225,225, ;
|
||
Column44.ColumnOrder = 51, ;
|
||
Column44.ControlSource = "codmatf", ;
|
||
Column44.FontName = "Arial", ;
|
||
Column44.FontSize = 10, ;
|
||
Column44.Name = "cCodmatF", ;
|
||
Column44.ReadOnly = .T., ;
|
||
Column45.ColumnOrder = 52, ;
|
||
Column45.ControlSource = "lot", ;
|
||
Column45.FontName = "Arial", ;
|
||
Column45.FontSize = 10, ;
|
||
Column45.Name = "cLot", ;
|
||
Column45.ReadOnly = .F., ;
|
||
Column46.ColumnOrder = 53, ;
|
||
Column46.ControlSource = "adata_expirare", ;
|
||
Column46.FontName = "Arial", ;
|
||
Column46.FontSize = 10, ;
|
||
Column46.Name = "cDataExpirare", ;
|
||
Column46.ReadOnly = .F., ;
|
||
Column47.BackColor = 225,225,225, ;
|
||
Column47.ColumnOrder = 56, ;
|
||
Column47.ControlSource = "sucursala", ;
|
||
Column47.FontName = "Arial", ;
|
||
Column47.FontSize = 10, ;
|
||
Column47.Name = "cSucursala", ;
|
||
Column47.ReadOnly = .T., ;
|
||
Column48.BackColor = 160,255,205, ;
|
||
Column48.ColumnOrder = 54, ;
|
||
Column48.ControlSource = "part_rez", ;
|
||
Column48.FontName = "Arial", ;
|
||
Column48.FontSize = 10, ;
|
||
Column48.Name = "cPart_rez", ;
|
||
Column48.ReadOnly = .F., ;
|
||
Column49.BackColor = 160,255,205, ;
|
||
Column49.ColumnOrder = 55, ;
|
||
Column49.ControlSource = "nrord_rez", ;
|
||
Column49.FontName = "Arial", ;
|
||
Column49.FontSize = 10, ;
|
||
Column49.Name = "cNrord_rez", ;
|
||
Column49.ReadOnly = .F., ;
|
||
Column50.BackColor = 225,225,225, ;
|
||
Column50.ColumnOrder = 23, ;
|
||
Column50.ControlSource = "valtva", ;
|
||
Column50.FontName = "Arial", ;
|
||
Column50.FontSize = 10, ;
|
||
Column50.Format = "r", ;
|
||
Column50.InputMask = (get_mask(12,gnPc)), ;
|
||
Column50.Name = "cValoaretva", ;
|
||
Column50.ReadOnly = .T., ;
|
||
Column50.Width = 98, ;
|
||
Column51.BackColor = 225,225,225, ;
|
||
Column51.ColumnOrder = 32, ;
|
||
Column51.ControlSource = "valoarev", ;
|
||
Column51.FontName = "Arial", ;
|
||
Column51.FontSize = 10, ;
|
||
Column51.Format = "r", ;
|
||
Column51.InputMask = (get_mask(12,gnPc)), ;
|
||
Column51.Name = "cValoarevftva", ;
|
||
Column51.ReadOnly = .T., ;
|
||
Column52.ColumnOrder = 29, ;
|
||
Column52.ControlSource = "proc_tvav", ;
|
||
Column52.FontName = "Arial", ;
|
||
Column52.FontSize = 10, ;
|
||
Column52.Name = "cProc_tvav", ;
|
||
Column52.ReadOnly = .F., ;
|
||
Column52.Width = 76, ;
|
||
Column53.ColumnOrder = 36, ;
|
||
Column53.ControlSource = "adaos_tva", ;
|
||
Column53.FontName = "Arial", ;
|
||
Column53.FontSize = 10, ;
|
||
Column53.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
|
||
Column53.Name = "cAdaos_tva", ;
|
||
Column53.ReadOnly = .F., ;
|
||
Column54.BackColor = 225,225,225, ;
|
||
Column54.ColumnOrder = 37, ;
|
||
Column54.ControlSource = "valoare_adaos", ;
|
||
Column54.FontName = "Arial", ;
|
||
Column54.FontSize = 10, ;
|
||
Column54.Format = "r", ;
|
||
Column54.InputMask = (get_mask(12,gnPc)), ;
|
||
Column54.Name = "cValoare_adaosftva", ;
|
||
Column54.ReadOnly = .T., ;
|
||
Column54.Width = 83, ;
|
||
Column55.BackColor = 225,225,225, ;
|
||
Column55.ColumnOrder = 38, ;
|
||
Column55.ControlSource = "valtva_adaos", ;
|
||
Column55.FontName = "Arial", ;
|
||
Column55.FontSize = 10, ;
|
||
Column55.Format = "r", ;
|
||
Column55.InputMask = (get_mask(12,gnPc)), ;
|
||
Column55.Name = "cvaloare_adaostva", ;
|
||
Column55.ReadOnly = .T., ;
|
||
Column56.ColumnOrder = 40, ;
|
||
Column56.ControlSource = "discunitar", ;
|
||
Column56.FontName = "Arial", ;
|
||
Column56.FontSize = 10, ;
|
||
Column56.InputMask = (get_mask(12,gnPPretV)), ;
|
||
Column56.Name = "cDiscunitar", ;
|
||
Column56.ReadOnly = .F., ;
|
||
Column57.ColumnOrder = 41, ;
|
||
Column57.ControlSource = "discunitar_tva", ;
|
||
Column57.FontName = "Arial", ;
|
||
Column57.FontSize = 10, ;
|
||
Column57.InputMask = (get_mask(12,gnPPretV)), ;
|
||
Column57.Name = "cDiscunitar_tva", ;
|
||
Column57.ReadOnly = .F., ;
|
||
Column57.Width = 77, ;
|
||
Column58.BackColor = 225,225,225, ;
|
||
Column58.ColumnOrder = 42, ;
|
||
Column58.ControlSource = "proc_disc", ;
|
||
Column58.FontName = "Arial", ;
|
||
Column58.FontSize = 10, ;
|
||
Column58.Name = "cProc_disc", ;
|
||
Column58.ReadOnly = .T., ;
|
||
Column59.BackColor = 225,225,225, ;
|
||
Column59.ColumnOrder = 24, ;
|
||
Column59.ControlSource = "valoarecTVA", ;
|
||
Column59.FontName = "Arial", ;
|
||
Column59.FontSize = 10, ;
|
||
Column59.InputMask = (get_mask(12,gnPc)), ;
|
||
Column59.Name = "cvaloarecTVA", ;
|
||
Column59.ReadOnly = .T., ;
|
||
Column59.Width = 107, ;
|
||
Column60.BackColor = 225,225,225, ;
|
||
Column60.ColumnOrder = 33, ;
|
||
Column60.ControlSource = "valtvav", ;
|
||
Column60.FontName = "Arial", ;
|
||
Column60.FontSize = 10, ;
|
||
Column60.Name = "cvaloarevTVA", ;
|
||
Column60.ReadOnly = .T., ;
|
||
Column60.Width = 103, ;
|
||
Column61.BackColor = 225,225,225, ;
|
||
Column61.ColumnOrder = 34, ;
|
||
Column61.ControlSource = "valoarevctva", ;
|
||
Column61.FontName = "Arial", ;
|
||
Column61.FontSize = 10, ;
|
||
Column61.InputMask = (get_mask(12,gnPc)), ;
|
||
Column61.Name = "cvaloarevcTVA", ;
|
||
Column61.ReadOnly = .T., ;
|
||
Column61.Width = 107, ;
|
||
Column62.BackColor = 160,255,205, ;
|
||
Column62.ColumnOrder = 63, ;
|
||
Column62.ControlSource = "taxcode", ;
|
||
Column62.FontSize = 10, ;
|
||
Column62.Name = "cTaxCode", ;
|
||
Column62.ReadOnly = .F., ;
|
||
Column63.BackColor = 160,255,205, ;
|
||
Column63.Bound = .F., ;
|
||
Column63.ColumnOrder = 62, ;
|
||
Column63.ControlSource = "Iif(Seek(trul.id_jtva_coloana,'crsJtvaTemp','id_jtva'),crsJtvaTemp.denumire,'')", ;
|
||
Column63.CurrentControl = "_combobox1", ;
|
||
Column63.FontSize = 10, ;
|
||
Column63.Name = "cExplicatieTVA", ;
|
||
Column63.ReadOnly = .F., ;
|
||
Column63.Sparse = .F., ;
|
||
Column63.Width = 152
|
||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAcont.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Analitic", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAcont.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cAdaos_tva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCant.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Intrari", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCant.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCante.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Iesiri", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCante.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCod.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCod.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmat.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod material", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmat.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmatF.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod furnizor", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCodmatF.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCont.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCont.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCurs.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Curs valutar", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cCurs.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataact.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data act", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataact.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataExpirare.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data expirare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataExpirare.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDatain.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data intrare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDatain.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataora.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Dataora introducerii", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataora.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataoras.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data / ora stergerii", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataoras.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataOut.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data iesire", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDataOut.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDenumire.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Denumire", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDenumire.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Discount unitar", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA discount unitar", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cDiscunitar_tva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cExplicatieTVA._combobox1' AS _combobox WITH ;
|
||
BorderStyle = 0, ;
|
||
BoundColumn = 2, ;
|
||
BoundTo = .T., ;
|
||
ColumnCount = 2, ;
|
||
ColumnLines = .F., ;
|
||
ColumnWidths = "400,0", ;
|
||
ControlSource = "trul.id_jtva_coloana", ;
|
||
Left = 34, ;
|
||
Name = "_combobox1", ;
|
||
RowSource = "select denumire, id_jtva_coloana from crsJtvaTemp order by denumire into cursor crsJtvaTempX", ;
|
||
RowSourceType = 3, ;
|
||
SpecialEffect = 1, ;
|
||
Top = 40
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cExplicatieTVA.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Explicatie TVA", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cExplicatieTVA.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGest.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiunea", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGest.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGestC.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune C", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGestC.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGrupa.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Grupa", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cGrupa.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cLot.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lot", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cLot.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNnir.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. NIR/Bon", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNnir.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNract.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.act", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNract.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrCrt.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.crt.", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrCrt.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNresp.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Responsabil", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNresp.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrespC.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Responsabil C", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrespC.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lucrare/Comanda", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord_rez.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lucrare rez.", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNume_val.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valuta", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cNume_val.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column34.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cant 2", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column34.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column35.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "UM 2", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.Column35.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPart_rez.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Part. rez.", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPret.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPret.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretd.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret in valuta", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretd.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretv.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretv.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretvtva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret vanzare cu TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_disc.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Procent discount", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_disc.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cota TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tvav.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Proc. TVA vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProcent.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Procent adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cProcent.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSectie.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sectie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSectie.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Serie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie_act.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Serie act", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSerie_act.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSubgrupa.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Subgrupa", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSubgrupa.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSucursala.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sucursala", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cSucursala.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTaxCode.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod Taxa", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTaxCode.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTipRulaj.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Tip rulaj", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTipRulaj.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA achizitie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTvav.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cTvav.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUM.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "UM", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUM.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtil.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Operator introducere", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtil.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtils.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Utilizator stergere", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cUtils.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare adaos fara TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoare_adaosftva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare TVA adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloare_adaostva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare achizitie cu TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarecTVA.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoareftva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare achizitie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoareftva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoaretva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare TVA achizitie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoaretva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.cvaloarevcTVA' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare vanzare cu TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "cvaloarevcTVA", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevcTVA.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoarevftva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cValoarevftva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare TVA vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE1.grdRulaje.cvaloarevTVA.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2._grdfooter1' AS _grdfooter WITH ;
|
||
ccolwithlabel = cNrCrt, ;
|
||
csourcegrid = , ;
|
||
csumcolumns = cValoareftva, cValoaretva, cValoarectva, cValoarevftva, cValoarevtva, cValoarevctva, cValoare_adaosftva, cvaloare_adaostva, ;
|
||
ctotallabelexpression = 'TOTAL', ;
|
||
Height = 35, ;
|
||
Left = 0, ;
|
||
Name = "_grdfooter1", ;
|
||
Top = 75, ;
|
||
Width = 759, ;
|
||
ZOrderSet = 9
|
||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 61, ;
|
||
DeleteMark = .F., ;
|
||
FontSize = 10, ;
|
||
GridLineColor = 128,128,128, ;
|
||
HeaderHeight = 35, ;
|
||
Height = 72, ;
|
||
Left = 0, ;
|
||
Name = "grdRulajeObinv", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .F., ;
|
||
RecordSource = "trul_obinv", ;
|
||
RowHeight = 19, ;
|
||
TabIndex = 3, ;
|
||
Tag = "RESIZABLE", ;
|
||
Top = 0, ;
|
||
Width = 759, ;
|
||
ZOrderSet = 1, ;
|
||
Column1.ControlSource = "nrcrt()", ;
|
||
Column1.FontName = "Arial", ;
|
||
Column1.FontSize = 10, ;
|
||
Column1.Format = "R", ;
|
||
Column1.InputMask = "999 999", ;
|
||
Column1.Name = "cNrCrt", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 44, ;
|
||
Column2.ControlSource = "trul_obinv.nnir", ;
|
||
Column2.FontName = "Arial", ;
|
||
Column2.FontSize = 10, ;
|
||
Column2.Name = "cNnir", ;
|
||
Column2.ReadOnly = .F., ;
|
||
Column2.Width = 71, ;
|
||
Column3.ColumnOrder = 3, ;
|
||
Column3.ControlSource = "dataact", ;
|
||
Column3.FontName = "Arial", ;
|
||
Column3.FontSize = 10, ;
|
||
Column3.Name = "cDataact", ;
|
||
Column3.ReadOnly = .F., ;
|
||
Column3.Width = 67, ;
|
||
Column4.BackColor = 225,225,225, ;
|
||
Column4.ColumnOrder = 6, ;
|
||
Column4.ControlSource = "codmat", ;
|
||
Column4.FontName = "Arial", ;
|
||
Column4.FontSize = 10, ;
|
||
Column4.Name = "cCodmat", ;
|
||
Column4.ReadOnly = .T., ;
|
||
Column5.BackColor = 160,255,205, ;
|
||
Column5.ColumnOrder = 7, ;
|
||
Column5.ControlSource = "denumire", ;
|
||
Column5.FontName = "Arial", ;
|
||
Column5.FontSize = 10, ;
|
||
Column5.Name = "cDenumire", ;
|
||
Column5.ReadOnly = .F., ;
|
||
Column5.Width = 156, ;
|
||
Column6.BackColor = 225,225,225, ;
|
||
Column6.ColumnOrder = 9, ;
|
||
Column6.ControlSource = "um", ;
|
||
Column6.FontName = "Arial", ;
|
||
Column6.FontSize = 10, ;
|
||
Column6.Name = "cUM", ;
|
||
Column6.ReadOnly = .T., ;
|
||
Column6.Width = 39, ;
|
||
Column7.ColumnOrder = 19, ;
|
||
Column7.ControlSource = "pret", ;
|
||
Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
||
Column7.FontName = "Arial", ;
|
||
Column7.FontSize = 10, ;
|
||
Column7.Format = "R", ;
|
||
Column7.InputMask = (get_mask(12,gnPPRET)), ;
|
||
Column7.Name = "cPret", ;
|
||
Column7.ReadOnly = .F., ;
|
||
Column7.Width = 70, ;
|
||
Column8.ColumnOrder = 12, ;
|
||
Column8.ControlSource = "cant", ;
|
||
Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
|
||
Column8.FontName = "Arial", ;
|
||
Column8.FontSize = 10, ;
|
||
Column8.Format = "R", ;
|
||
Column8.InputMask = (get_mask(12,gnPCANT)), ;
|
||
Column8.Name = "cCant", ;
|
||
Column8.ReadOnly = .F., ;
|
||
Column8.Width = 68, ;
|
||
Column9.ColumnOrder = 13, ;
|
||
Column9.ControlSource = "cante", ;
|
||
Column9.FontName = "Arial", ;
|
||
Column9.FontSize = 10, ;
|
||
Column9.Format = "R", ;
|
||
Column9.InputMask = (get_mask(12,gnPCANT)), ;
|
||
Column9.Name = "cCante", ;
|
||
Column9.ReadOnly = .F., ;
|
||
Column9.Width = 68, ;
|
||
Column10.ColumnOrder = 14, ;
|
||
Column10.ControlSource = "cont", ;
|
||
Column10.FontName = "Arial", ;
|
||
Column10.FontSize = 10, ;
|
||
Column10.Name = "cCont", ;
|
||
Column10.ReadOnly = .F., ;
|
||
Column10.Width = 46, ;
|
||
Column11.BackColor = 225,225,225, ;
|
||
Column11.ColumnOrder = 61, ;
|
||
Column11.ControlSource = "cod", ;
|
||
Column11.FontName = "Arial", ;
|
||
Column11.FontSize = 10, ;
|
||
Column11.Name = "cCod", ;
|
||
Column11.ReadOnly = .T., ;
|
||
Column12.ColumnOrder = 15, ;
|
||
Column12.ControlSource = "acont", ;
|
||
Column12.FontName = "Arial", ;
|
||
Column12.FontSize = 10, ;
|
||
Column12.Name = "cAcont", ;
|
||
Column12.ReadOnly = .F., ;
|
||
Column12.Width = 46, ;
|
||
Column13.BackColor = 160,255,205, ;
|
||
Column13.ColumnOrder = 16, ;
|
||
Column13.ControlSource = "cgest", ;
|
||
Column13.FontName = "Arial", ;
|
||
Column13.FontSize = 10, ;
|
||
Column13.Name = "cGest", ;
|
||
Column13.ReadOnly = .F., ;
|
||
Column13.Width = 60, ;
|
||
Column14.BackColor = 160,255,205, ;
|
||
Column14.ColumnOrder = 18, ;
|
||
Column14.ControlSource = "nrord", ;
|
||
Column14.FontName = "Arial", ;
|
||
Column14.FontSize = 10, ;
|
||
Column14.Name = "cNrord", ;
|
||
Column14.ReadOnly = .F., ;
|
||
Column15.ColumnOrder = 26, ;
|
||
Column15.ControlSource = "curs", ;
|
||
Column15.FontName = "Arial", ;
|
||
Column15.FontSize = 10, ;
|
||
Column15.Format = "R", ;
|
||
Column15.InputMask = (get_mask(12,gnPcurs)), ;
|
||
Column15.Name = "cCurs", ;
|
||
Column15.ReadOnly = .F., ;
|
||
Column15.Width = 55, ;
|
||
Column16.ColumnOrder = 25, ;
|
||
Column16.ControlSource = "pretd", ;
|
||
Column16.FontName = "Arial", ;
|
||
Column16.FontSize = 10, ;
|
||
Column16.Format = "R", ;
|
||
Column16.InputMask = (get_mask(12,gnPPretVal)), ;
|
||
Column16.Name = "cPretd", ;
|
||
Column16.ReadOnly = .F., ;
|
||
Column16.Width = 64, ;
|
||
Column17.BackColor = 225,225,225, ;
|
||
Column17.ColumnOrder = 39, ;
|
||
Column17.ControlSource = "procent", ;
|
||
Column17.FontName = "Arial", ;
|
||
Column17.FontSize = 10, ;
|
||
Column17.Format = "R", ;
|
||
Column17.InputMask = "999 999.99", ;
|
||
Column17.Name = "cProcent", ;
|
||
Column17.ReadOnly = .T., ;
|
||
Column17.Width = 53, ;
|
||
Column18.ColumnOrder = 35, ;
|
||
Column18.ControlSource = "iif(trul_obinv.pretv#0,trul_obinv.pretv-trul_obinv.pret,0)", ;
|
||
Column18.FontName = "Arial", ;
|
||
Column18.FontSize = 10, ;
|
||
Column18.Format = "R", ;
|
||
Column18.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
|
||
Column18.Name = "cAdaos", ;
|
||
Column18.ReadOnly = .F., ;
|
||
Column18.Width = 56, ;
|
||
Column19.ColumnOrder = 21, ;
|
||
Column19.ControlSource = "tva", ;
|
||
Column19.FontName = "Arial", ;
|
||
Column19.FontSize = 10, ;
|
||
Column19.Format = "R", ;
|
||
Column19.InputMask = (get_mask(12,gnPPRET)), ;
|
||
Column19.Name = "cTva", ;
|
||
Column19.ReadOnly = .F., ;
|
||
Column19.Width = 68, ;
|
||
Column20.BackColor = 225,225,225, ;
|
||
Column20.ColumnOrder = 22, ;
|
||
Column20.ControlSource = "valoare", ;
|
||
Column20.FontName = "Arial", ;
|
||
Column20.FontSize = 10, ;
|
||
Column20.Format = "R", ;
|
||
Column20.InputMask = (get_mask(12,gnPc)), ;
|
||
Column20.Name = "cValoareftva", ;
|
||
Column20.ReadOnly = .T., ;
|
||
Column21.ColumnOrder = 28, ;
|
||
Column21.ControlSource = "trul_obinv.pretv", ;
|
||
Column21.FontName = "Arial", ;
|
||
Column21.FontSize = 10, ;
|
||
Column21.Format = "R", ;
|
||
Column21.InputMask = (get_mask(12,gnPPRETV)), ;
|
||
Column21.Name = "cPretv", ;
|
||
Column21.ReadOnly = .F., ;
|
||
Column22.ColumnOrder = 30, ;
|
||
Column22.ControlSource = "tvav", ;
|
||
Column22.FontName = "Arial", ;
|
||
Column22.FontSize = 10, ;
|
||
Column22.Format = "R", ;
|
||
Column22.InputMask = (get_mask(12,gnPPRETV)), ;
|
||
Column22.Name = "cTvav", ;
|
||
Column22.ReadOnly = .F., ;
|
||
Column23.ColumnOrder = 31, ;
|
||
Column23.ControlSource = "pretvtva", ;
|
||
Column23.FontName = "Arial", ;
|
||
Column23.FontSize = 10, ;
|
||
Column23.Format = "R", ;
|
||
Column23.InputMask = (get_mask(12,gnPPRETV)), ;
|
||
Column23.Name = "cPretvtva", ;
|
||
Column23.ReadOnly = .F., ;
|
||
Column23.Width = 94, ;
|
||
Column24.ColumnOrder = 20, ;
|
||
Column24.ControlSource = "proc_tva", ;
|
||
Column24.FontName = "Arial", ;
|
||
Column24.FontSize = 10, ;
|
||
Column24.Format = "R", ;
|
||
Column24.InputMask = "9.99", ;
|
||
Column24.Name = "cProc_tva", ;
|
||
Column24.ReadOnly = .F., ;
|
||
Column24.Width = 57, ;
|
||
Column25.BackColor = 225,225,225, ;
|
||
Column25.ColumnOrder = 57, ;
|
||
Column25.ControlSource = "util", ;
|
||
Column25.FontName = "Arial", ;
|
||
Column25.FontSize = 10, ;
|
||
Column25.Name = "cUtil", ;
|
||
Column25.ReadOnly = .T., ;
|
||
Column25.Width = 95, ;
|
||
Column26.BackColor = 225,225,225, ;
|
||
Column26.ColumnOrder = 58, ;
|
||
Column26.ControlSource = "dataora", ;
|
||
Column26.FontName = "Arial", ;
|
||
Column26.FontSize = 10, ;
|
||
Column26.Name = "cDataora", ;
|
||
Column26.ReadOnly = .T., ;
|
||
Column26.Width = 95, ;
|
||
Column27.BackColor = 160,255,205, ;
|
||
Column27.ColumnOrder = 45, ;
|
||
Column27.ControlSource = "sectie", ;
|
||
Column27.FontName = "Arial", ;
|
||
Column27.FontSize = 10, ;
|
||
Column27.Name = "cSectie", ;
|
||
Column27.ReadOnly = .F., ;
|
||
Column28.ColumnOrder = 43, ;
|
||
Column28.ControlSource = "datain", ;
|
||
Column28.FontName = "Arial", ;
|
||
Column28.FontSize = 10, ;
|
||
Column28.Name = "cDatain", ;
|
||
Column28.ReadOnly = .F., ;
|
||
Column29.ColumnOrder = 44, ;
|
||
Column29.ControlSource = "dataout", ;
|
||
Column29.FontName = "Arial", ;
|
||
Column29.FontSize = 10, ;
|
||
Column29.Name = "cDataOut", ;
|
||
Column29.ReadOnly = .F., ;
|
||
Column30.BackColor = 160,255,205, ;
|
||
Column30.ColumnOrder = 46, ;
|
||
Column30.ControlSource = "nresp", ;
|
||
Column30.FontName = "Arial", ;
|
||
Column30.FontSize = 10, ;
|
||
Column30.Name = "cNresp", ;
|
||
Column30.ReadOnly = .F., ;
|
||
Column30.Width = 116, ;
|
||
Column31.BackColor = 160,255,205, ;
|
||
Column31.ColumnOrder = 17, ;
|
||
Column31.ControlSource = "cgestc", ;
|
||
Column31.FontName = "Arial", ;
|
||
Column31.FontSize = 10, ;
|
||
Column31.Name = "cGestC", ;
|
||
Column31.ReadOnly = .F., ;
|
||
Column32.BackColor = 160,255,205, ;
|
||
Column32.ColumnOrder = 47, ;
|
||
Column32.ControlSource = "nrespc", ;
|
||
Column32.FontName = "Arial", ;
|
||
Column32.FontSize = 10, ;
|
||
Column32.Name = "cNrespC", ;
|
||
Column32.ReadOnly = .F., ;
|
||
Column32.Width = 91, ;
|
||
Column33.BackColor = 225,225,225, ;
|
||
Column33.ColumnOrder = 48, ;
|
||
Column33.ControlSource = "tip_rulaj", ;
|
||
Column33.FontName = "Arial", ;
|
||
Column33.FontSize = 10, ;
|
||
Column33.Name = "cTipRulaj", ;
|
||
Column33.ReadOnly = .T., ;
|
||
Column34.BackColor = 225,225,225, ;
|
||
Column34.ColumnOrder = 10, ;
|
||
Column34.ControlSource = "cant_bax", ;
|
||
Column34.FontName = "Arial", ;
|
||
Column34.FontSize = 10, ;
|
||
Column34.Name = "Column34", ;
|
||
Column34.ReadOnly = .F., ;
|
||
Column34.Sparse = .F., ;
|
||
Column34.Width = 41, ;
|
||
Column35.BackColor = 225,225,225, ;
|
||
Column35.ColumnOrder = 11, ;
|
||
Column35.ControlSource = "um2", ;
|
||
Column35.FontName = "Arial", ;
|
||
Column35.FontSize = 10, ;
|
||
Column35.Name = "Column35", ;
|
||
Column35.ReadOnly = .T., ;
|
||
Column35.Width = 35, ;
|
||
Column36.BackColor = 225,225,225, ;
|
||
Column36.ColumnOrder = 49, ;
|
||
Column36.ControlSource = "grupa", ;
|
||
Column36.FontName = "Arial", ;
|
||
Column36.FontSize = 10, ;
|
||
Column36.Name = "cGrupa", ;
|
||
Column36.ReadOnly = .T., ;
|
||
Column36.Width = 53, ;
|
||
Column37.ColumnOrder = 5, ;
|
||
Column37.ControlSource = "nract", ;
|
||
Column37.FontName = "Arial", ;
|
||
Column37.FontSize = 10, ;
|
||
Column37.Name = "cNract", ;
|
||
Column37.ReadOnly = .F., ;
|
||
Column37.Width = 70, ;
|
||
Column38.BackColor = 225,225,225, ;
|
||
Column38.ColumnOrder = 50, ;
|
||
Column38.ControlSource = "subgrupa", ;
|
||
Column38.FontName = "Arial", ;
|
||
Column38.FontSize = 10, ;
|
||
Column38.Name = "cSubgrupa", ;
|
||
Column38.ReadOnly = .T., ;
|
||
Column38.Width = 71, ;
|
||
Column39.BackColor = 225,225,225, ;
|
||
Column39.ColumnOrder = 59, ;
|
||
Column39.ControlSource = "utils", ;
|
||
Column39.FontName = "Arial", ;
|
||
Column39.FontSize = 10, ;
|
||
Column39.Name = "cUtils", ;
|
||
Column39.ReadOnly = .T., ;
|
||
Column40.BackColor = 225,225,225, ;
|
||
Column40.ColumnOrder = 60, ;
|
||
Column40.ControlSource = "dataoras", ;
|
||
Column40.FontName = "Arial", ;
|
||
Column40.FontSize = 10, ;
|
||
Column40.Name = "cDataoras", ;
|
||
Column40.ReadOnly = .T., ;
|
||
Column40.Width = 80, ;
|
||
Column41.ColumnOrder = 8, ;
|
||
Column41.ControlSource = "serie", ;
|
||
Column41.FontName = "Arial", ;
|
||
Column41.FontSize = 10, ;
|
||
Column41.Name = "cSerie", ;
|
||
Column41.ReadOnly = .F., ;
|
||
Column41.Width = 122, ;
|
||
Column42.BackColor = 160,255,205, ;
|
||
Column42.ColumnOrder = 27, ;
|
||
Column42.ControlSource = "nume_val", ;
|
||
Column42.FontName = "Arial", ;
|
||
Column42.FontSize = 10, ;
|
||
Column42.Name = "cNume_val", ;
|
||
Column42.ReadOnly = .F., ;
|
||
Column42.Width = 52, ;
|
||
Column43.ColumnOrder = 4, ;
|
||
Column43.ControlSource = "serie_act", ;
|
||
Column43.FontName = "Arial", ;
|
||
Column43.FontSize = 10, ;
|
||
Column43.Name = "cSerie_act", ;
|
||
Column43.ReadOnly = .F., ;
|
||
Column43.Width = 43, ;
|
||
Column44.BackColor = 225,225,225, ;
|
||
Column44.ColumnOrder = 51, ;
|
||
Column44.ControlSource = "codmatf", ;
|
||
Column44.FontName = "Arial", ;
|
||
Column44.FontSize = 10, ;
|
||
Column44.Name = "cCodmatF", ;
|
||
Column44.ReadOnly = .T., ;
|
||
Column45.ColumnOrder = 52, ;
|
||
Column45.ControlSource = "lot", ;
|
||
Column45.FontName = "Arial", ;
|
||
Column45.FontSize = 10, ;
|
||
Column45.Name = "cLot", ;
|
||
Column45.ReadOnly = .F., ;
|
||
Column46.ColumnOrder = 53, ;
|
||
Column46.ControlSource = "adata_expirare", ;
|
||
Column46.FontName = "Arial", ;
|
||
Column46.FontSize = 10, ;
|
||
Column46.Name = "cDataExpirare", ;
|
||
Column46.ReadOnly = .F., ;
|
||
Column47.BackColor = 225,225,225, ;
|
||
Column47.ColumnOrder = 56, ;
|
||
Column47.ControlSource = "sucursala", ;
|
||
Column47.FontName = "Arial", ;
|
||
Column47.FontSize = 10, ;
|
||
Column47.Name = "cSucursala", ;
|
||
Column47.ReadOnly = .T., ;
|
||
Column48.BackColor = 160,255,205, ;
|
||
Column48.ColumnOrder = 54, ;
|
||
Column48.ControlSource = "part_rez", ;
|
||
Column48.FontName = "Arial", ;
|
||
Column48.FontSize = 10, ;
|
||
Column48.Name = "cPart_rez", ;
|
||
Column48.ReadOnly = .F., ;
|
||
Column49.BackColor = 160,255,205, ;
|
||
Column49.ColumnOrder = 55, ;
|
||
Column49.ControlSource = "nrord_rez", ;
|
||
Column49.FontName = "Arial", ;
|
||
Column49.FontSize = 10, ;
|
||
Column49.Name = "cNrord_rez", ;
|
||
Column49.ReadOnly = .F., ;
|
||
Column50.BackColor = 225,225,225, ;
|
||
Column50.ColumnOrder = 23, ;
|
||
Column50.ControlSource = "valtva", ;
|
||
Column50.FontName = "Arial", ;
|
||
Column50.FontSize = 10, ;
|
||
Column50.Format = "r", ;
|
||
Column50.InputMask = (get_mask(12,gnPc)), ;
|
||
Column50.Name = "cValoaretva", ;
|
||
Column50.ReadOnly = .T., ;
|
||
Column50.Width = 98, ;
|
||
Column51.BackColor = 225,225,225, ;
|
||
Column51.ColumnOrder = 32, ;
|
||
Column51.ControlSource = "valoarev", ;
|
||
Column51.FontName = "Arial", ;
|
||
Column51.FontSize = 10, ;
|
||
Column51.Format = "r", ;
|
||
Column51.InputMask = (get_mask(12,gnPc)), ;
|
||
Column51.Name = "cValoarevftva", ;
|
||
Column51.ReadOnly = .T., ;
|
||
Column52.ColumnOrder = 29, ;
|
||
Column52.ControlSource = "proc_tvav", ;
|
||
Column52.FontName = "Arial", ;
|
||
Column52.FontSize = 10, ;
|
||
Column52.Name = "cProc_tvav", ;
|
||
Column52.ReadOnly = .F., ;
|
||
Column52.Width = 76, ;
|
||
Column53.ColumnOrder = 36, ;
|
||
Column53.ControlSource = "adaos_tva", ;
|
||
Column53.FontName = "Arial", ;
|
||
Column53.FontSize = 10, ;
|
||
Column53.InputMask = (get_mask(12,MAX(gnPPret,gnPPretV))), ;
|
||
Column53.Name = "cAdaos_tva", ;
|
||
Column53.ReadOnly = .F., ;
|
||
Column54.BackColor = 225,225,225, ;
|
||
Column54.ColumnOrder = 37, ;
|
||
Column54.ControlSource = "valoare_adaos", ;
|
||
Column54.FontName = "Arial", ;
|
||
Column54.FontSize = 10, ;
|
||
Column54.Format = "r", ;
|
||
Column54.InputMask = (get_mask(12,gnPc)), ;
|
||
Column54.Name = "cValoare_adaosftva", ;
|
||
Column54.ReadOnly = .T., ;
|
||
Column54.Width = 83, ;
|
||
Column55.BackColor = 225,225,225, ;
|
||
Column55.ColumnOrder = 38, ;
|
||
Column55.ControlSource = "valtva_adaos", ;
|
||
Column55.FontName = "Arial", ;
|
||
Column55.FontSize = 10, ;
|
||
Column55.Format = "r", ;
|
||
Column55.InputMask = (get_mask(12,gnPc)), ;
|
||
Column55.Name = "cvaloare_adaostva", ;
|
||
Column55.ReadOnly = .T., ;
|
||
Column56.ColumnOrder = 40, ;
|
||
Column56.ControlSource = "discunitar", ;
|
||
Column56.FontName = "Arial", ;
|
||
Column56.FontSize = 10, ;
|
||
Column56.InputMask = (get_mask(12,gnPPretV)), ;
|
||
Column56.Name = "cDiscunitar", ;
|
||
Column56.ReadOnly = .F., ;
|
||
Column57.ColumnOrder = 41, ;
|
||
Column57.ControlSource = "discunitar_tva", ;
|
||
Column57.FontName = "Arial", ;
|
||
Column57.FontSize = 10, ;
|
||
Column57.InputMask = (get_mask(12,gnPPretV)), ;
|
||
Column57.Name = "cDiscunitar_tva", ;
|
||
Column57.ReadOnly = .F., ;
|
||
Column57.Width = 77, ;
|
||
Column58.BackColor = 225,225,225, ;
|
||
Column58.ColumnOrder = 42, ;
|
||
Column58.ControlSource = "proc_disc", ;
|
||
Column58.FontName = "Arial", ;
|
||
Column58.FontSize = 10, ;
|
||
Column58.Name = "cProc_disc", ;
|
||
Column58.ReadOnly = .T., ;
|
||
Column59.BackColor = 225,225,225, ;
|
||
Column59.ColumnOrder = 24, ;
|
||
Column59.ControlSource = "valoarecTVA", ;
|
||
Column59.FontName = "Arial", ;
|
||
Column59.FontSize = 10, ;
|
||
Column59.InputMask = (get_mask(12,gnPc)), ;
|
||
Column59.Name = "cvaloarecTVA", ;
|
||
Column59.ReadOnly = .T., ;
|
||
Column59.Width = 107, ;
|
||
Column60.BackColor = 225,225,225, ;
|
||
Column60.ColumnOrder = 33, ;
|
||
Column60.ControlSource = "valtvav", ;
|
||
Column60.FontName = "Arial", ;
|
||
Column60.FontSize = 10, ;
|
||
Column60.Name = "cvaloarevTVA", ;
|
||
Column60.ReadOnly = .T., ;
|
||
Column60.Width = 103, ;
|
||
Column61.BackColor = 225,225,225, ;
|
||
Column61.ColumnOrder = 34, ;
|
||
Column61.ControlSource = "valoarevctva", ;
|
||
Column61.FontName = "Arial", ;
|
||
Column61.FontSize = 10, ;
|
||
Column61.InputMask = (get_mask(12,gnPc)), ;
|
||
Column61.Name = "cvaloarevcTVA", ;
|
||
Column61.ReadOnly = .T., ;
|
||
Column61.Width = 107
|
||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAcont.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Analitic", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAcont.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cAdaos_tva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCant.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Intrari", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCante.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Iesiri", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCod.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCod.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod material", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmat.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod furnizor", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCodmatF.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCont.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCont.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCurs.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Curs valutar", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cCurs.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataact.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data act", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataact.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data expirare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataExpirare.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDatain.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data intrare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDatain.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataora.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Dataora introducerii", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataora.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data / ora stergerii", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataoras.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Data iesire", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDataOut.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Denumire", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Discount unitar", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA discount unitar", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cDiscunitar_tva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGest.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiunea", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGestC.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Gestiune C", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Grupa", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cGrupa.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cLot.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lot", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cLot.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNnir.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. NIR/Bon", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNnir.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNract.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.act", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNract.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrCrt.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr.crt.", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrCrt.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNresp.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Responsabil", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Responsabil C", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lucrare/Comanda", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Lucrare rez.", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valuta", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column34.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cant 2", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column34.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column35.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "UM 2", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.Column35.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Part. rez.", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPret.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretd.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret in valuta", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretd.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretv.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pret vanzare cu TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Procent discount", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_disc.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cota TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Proc. TVA vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProcent.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Procent adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cProcent.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSectie.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sectie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1' AS textbox WITH ;
|
||
BackColor = 160,255,205, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Serie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Serie act", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSerie_act.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Subgrupa", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSubgrupa.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sucursala", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cSucursala.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Tip rulaj", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTipRulaj.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA achizitie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTvav.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "TVA vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .F., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUM.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "UM", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUM.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtil.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Operator introducere", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtil.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtils.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Utilizator stergere", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cUtils.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare adaos fara TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoare_adaosftva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare TVA adaos", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloare_adaostva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare achizitie cu TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarecTVA.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare achizitie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoareftva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare TVA achizitie", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoaretva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.cvaloarevcTVA' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare vanzare cu TVA", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "cvaloarevcTVA", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevcTVA.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cValoarevftva.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare TVA vanzare", ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
Name = "Header1", ;
|
||
WordWrap = .T.
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'pgfArticole.PAGE2.grdRulajeObinv.cvaloarevTVA.Text1' AS textbox WITH ;
|
||
BackColor = 225,225,225, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial", ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
SelectedBackColor = 100,185,255
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'txtSuma' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Anchor = 8, ;
|
||
ControlSource = "thisform.nSuma", ;
|
||
FontCharSet = 238, ;
|
||
Format = "R", ;
|
||
Height = 23, ;
|
||
InputMask = (get_mask(16,gnPa)), ;
|
||
Left = 556, ;
|
||
Name = "txtSuma", ;
|
||
ReadOnly = .T., ;
|
||
TabIndex = 20, ;
|
||
Top = 330, ;
|
||
Value = 0, ;
|
||
Width = 123, ;
|
||
ZOrderSet = 23
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
PROCEDURE Activate
|
||
IF This.nPrimaData = 0
|
||
This.resize_grid1()
|
||
This.nPrimaData = 1
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE afiseaza_rulaje
|
||
* COLAPSEAZA SAU MARESTE PAGEFRAME-UL RULAJE
|
||
* Daca butonul are imaginea sus, inseamna ca pageframe-ul cu rulaje este ascuns
|
||
* si trebuie sa il afisez
|
||
lcPicture = this.but_afiseaza_rulaje.Picture
|
||
lcPictureDown = this.but_afiseaza_rulaje.cPictureDown
|
||
lcPictureUp = this.but_afiseaza_rulaje.cPictureUp
|
||
|
||
llAfiseazaRulaje = 'sus'$m.lcPicture
|
||
|
||
IF m.llAfiseazaRulaje
|
||
lcPicture2 = STRTRAN(m.lcPicture,'sus','jos')
|
||
lcPictureDown2 = STRTRAN(m.lcPictureDown,'sus','jos')
|
||
lcPictureUp2 = STRTRAN(m.lcPictureUp,'sus','jos')
|
||
ELSE
|
||
lcPicture2 = STRTRAN(m.lcPicture,'jos','sus')
|
||
lcPictureDown2 = STRTRAN(m.lcPictureDown,'jos','sus')
|
||
lcPictureUp2 = STRTRAN(m.lcPictureUp,'jos','sus')
|
||
ENDIF
|
||
|
||
this.but_afiseaza_rulaje.Picture = m.lcPicture2
|
||
this.but_afiseaza_rulaje.cPictureDown = m.lcPictureDown2
|
||
this.but_afiseaza_rulaje.cPictureUp = m.lcPictureUp2
|
||
|
||
this.pgfArticole.Visible = m.llAfiseazaRulaje
|
||
this.but_copiazaR.Visible = m.llAfiseazaRulaje
|
||
this.but_modificaR.Visible = m.llAfiseazaRulaje
|
||
this.but_stergeR.Visible = m.llAfiseazaRulaje
|
||
|
||
thisform.resize_grid1()
|
||
|
||
*!* this.grid1.Height = 284 + IIF(m.llAfiseazaRulaje, 0, this.pgfArticole.Height)
|
||
*!* this.cmdSelect.Top = this.grid1.Top + this.grid1.Height
|
||
*!* this.lblSuma.Top = this.grid1.Top + this.grid1.Height
|
||
*!* this.txtSuma.Top = this.grid1.Top + this.grid1.Height
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE alege_partener
|
||
*!* 07.11.2011
|
||
*!* marius.mutu
|
||
*!* daca se schimba partenerul, se pune id_fact = -1 in loc de 0
|
||
*!* pentru a se putea genera un nou id_fact
|
||
|
||
*!* 26.02.2018
|
||
*!* se inlocuieste partenerul pentru toate inregistrarile alese, optional
|
||
|
||
LPARAMETERS tcExplicatie, tlSilent
|
||
*** tcExplicatie: D/C
|
||
*** tlSilent: .T. = afiseaza mesaj "contul nu este configurat cu parteneri" - pentru apasarea manuala pe butonul Partener
|
||
|
||
PRIVATE pcCont
|
||
LOCAL lnIdPartOriginal, lnIdPart, lnrezultat, lnsucces
|
||
LOCAL lcExplicatie
|
||
LOCAL lcSql, lcnume, llToate, lnRecno, locauta
|
||
IF EMPTY(tcExplicatie)
|
||
lcExplicatie = 'D'
|
||
ELSE
|
||
lcExplicatie = UPPER(ALLTRIM(m.tcExplicatie))
|
||
ENDIF
|
||
lnIdPart = 0
|
||
|
||
SELECT tact
|
||
pcCont = IIF(m.lcExplicatie = 'D', ALLTRIM(NVL(tact.scd, '')), ALLTRIM(NVL(tact.scc, '')))
|
||
IF EMPTY(pcCont)
|
||
IF !m.tlSilent
|
||
AMESSAGEBOX('Completati contul ' + IIF(m.lcExplicatie = 'D', 'debitor.', 'creditor.'), 0 + 48, _SCREEN.CAPTION)
|
||
ENDIF
|
||
RETURN lnIdPart
|
||
ENDIF
|
||
lnIdPartOriginal = IIF(m.lcExplicatie = 'D', id_partd, id_partc)
|
||
|
||
lnrezultat = 0
|
||
lnsucces = 0
|
||
lcSql = "select count(*) from config_cont_ireg where cont = &pcCont"
|
||
lnsucces = goExecutor.oSelect2Value(lcSql, @lnrezultat)
|
||
|
||
IF lnsucces > 0
|
||
IF NVL(lnrezultat, 0) > 0
|
||
locauta = THISFORM.do_cauta(pcCont)
|
||
IF gnButon = 1
|
||
lnIdPart = locauta.id_part
|
||
lcnume = ALLTRIM(locauta.nume)
|
||
|
||
llToate = .F.
|
||
SELECT tact
|
||
lnRecno = RECNO()
|
||
LOCATE FOR ales
|
||
IF FOUND() AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?', 4 + 32, _SCREEN.CAPTION) = 6
|
||
llToate = .T.
|
||
ENDIF
|
||
GOTO m.lnRecno
|
||
|
||
SELECT tact
|
||
IF m.lcExplicatie = 'D'
|
||
IF m.llToate
|
||
REPLACE id_partd WITH lnIdPart, partd WITH lcnume FOR ales
|
||
ELSE
|
||
REPLACE id_partd WITH lnIdPart, partd WITH lcnume
|
||
ENDIF
|
||
IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
|
||
REPLACE pereched WITH 0, id_factd WITH - 1
|
||
ENDIF
|
||
ELSE
|
||
IF m.llToate
|
||
REPLACE id_partc WITH lnIdPart, partc WITH lcnume FOR ales
|
||
ELSE
|
||
REPLACE id_partc WITH lnIdPart, partc WITH lcnume
|
||
ENDIF
|
||
IF (lnIdPartOriginal <> lnIdPart AND lnIdPartOriginal <> 0) OR m.llToate
|
||
REPLACE perechec WITH 0, id_factc WITH - 1
|
||
ENDIF
|
||
ENDIF
|
||
ENDIF
|
||
ELSE
|
||
IF !m.tlSilent
|
||
AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16, "Eroare")
|
||
ENDIF
|
||
ENDIF
|
||
ELSE
|
||
AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16, "Eroare")
|
||
ENDIF
|
||
|
||
RETURN lnIdPart
|
||
ENDPROC
|
||
|
||
PROCEDURE aleg_document_pereche
|
||
PARAMETERS tcFel,toAct
|
||
LOCAL lcSel,lcSelAct
|
||
lcSelAct = thisform.grid1.RecordSource
|
||
pnFelCont = tcFel
|
||
|
||
IF pnFelCont = 0 && ACTIV
|
||
pcContul = ALLTRIM(NVL(toAct.scc,[]))
|
||
pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
|
||
pnIdPart = NVL(toAct.Id_partc,0)
|
||
pcNume = ALLTRIM(NVL(toAct.partc,[]))
|
||
pnPereche = [perecheC]
|
||
pnIdPereche = [id_factC]
|
||
ELSE && PASIV
|
||
pcContul = ALLTRIM(NVL(toAct.scd,[]))
|
||
pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
|
||
pnIdPart = NVL(toAct.Id_partd,0)
|
||
pcNume = ALLTRIM(NVL(toAct.partd,[]))
|
||
pnPereche = [perecheD]
|
||
pnIdPereche = [id_factD]
|
||
ENDIF
|
||
|
||
lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
|
||
lcCursor = [crsTest]
|
||
lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
|
||
IF lnSucces < 0
|
||
aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT crsTest
|
||
LOCATE
|
||
IF ePereche = 0
|
||
USE IN crsTest
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
RETURN
|
||
ENDIF
|
||
|
||
|
||
IF !EMPTY(toAct.Suma_val)
|
||
llval = .t.
|
||
pnSuma = toAct.Suma_val
|
||
lcFormular = [ocompensari_val]
|
||
ELSE
|
||
llval = .f.
|
||
pnSuma = toAct.Suma
|
||
lcFormular = [ocompensari]
|
||
ENDIF
|
||
pnIdValuta = toAct.Id_Valuta
|
||
pcDenumire = [Partener ] + pcContul
|
||
|
||
pcCond = [ an = ?gnAn and luna = ?gnluna]
|
||
|
||
IF llval
|
||
pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
|
||
ELSE
|
||
pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
|
||
ENDIF
|
||
|
||
pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
|
||
IF ALLTRIM(pcACont) # [NULL]
|
||
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
|
||
ELSE
|
||
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
|
||
ENDIF
|
||
pcschema = ['']
|
||
pcorder = ['']
|
||
|
||
PRIVATE podateintrod
|
||
STORE '' TO podateintrod
|
||
|
||
gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
|
||
|
||
lcFis = 'actcv' + ALLTRIM(pcContul)
|
||
|
||
IF USED(lcFis)
|
||
USE IN &lcFis
|
||
ENDIF
|
||
|
||
IF pnFelCont = 0
|
||
lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
|
||
[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
|
||
[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
|
||
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
|
||
ELSE
|
||
lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
|
||
[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
|
||
[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
|
||
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
|
||
ENDIF
|
||
&lcsel
|
||
|
||
USE IN crs_actcv
|
||
SELECT (lcFis)
|
||
|
||
OPLATA=CREATEOBJECT(lcFormular)
|
||
OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
|
||
OPLATA.pcFis = lcFis
|
||
OPLATA.SUMA = pnSuma
|
||
OPLATA.pnFelCont = pnFelCont
|
||
OPLATA.SHOW(1)
|
||
|
||
IF gnButon = 1
|
||
SELECT (lcSelAct)
|
||
DELETE
|
||
SELECT (lcFis)
|
||
SCAN FOR ales
|
||
SCATTER NAME oper
|
||
SELECT (lcSelAct)
|
||
APPEND BLANK
|
||
GATHER NAME toAct
|
||
REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
|
||
SELECT (lcFis)
|
||
ENDSCAN
|
||
ELSE
|
||
SELECT (lcSelAct)
|
||
REPLACE &pnPereche WITH toact.&pnPereche
|
||
ENDIF
|
||
|
||
IF USED(lcFis)
|
||
USE IN (lcFis)
|
||
ENDIF
|
||
SELECT (lcSelAct)
|
||
this.grid1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE calculeazatotal
|
||
Local lcCursor, lcSelect, lnRecno
|
||
lcSelect = Select()
|
||
This.LockScreen = .T.
|
||
lcCursor = Thisform.grid1.RecordSource
|
||
Select (m.lcCursor)
|
||
lnRecno = Recno()
|
||
llEOF = EOF()
|
||
Calculate Sum(suma) To This.nSuma
|
||
If m.lnRecno > 0 AND !m.llEOF
|
||
Goto m.lnRecno
|
||
Endif
|
||
This.txtSuma.Refresh()
|
||
This.LockScreen = .F.
|
||
|
||
Select (m.lcSelect)
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE calculeaza_valori_rul
|
||
LPARAMETERS tcControlSource
|
||
LOCAL lcRul, lnPagina
|
||
Local lcControlSource, lnCantitate, lnPret, lnPretv, lnPretvtva, lnProcTva, lnProcTvav, lnTVA
|
||
Local lnTVAv, lnValoareFTva, lnValoareTVA, lnValoarecTVA
|
||
|
||
lnPagina = This.pgfArticole.ActivePage
|
||
lcRul = IIF(m.lnPagina = 1, 'trul', 'trul_obinv')
|
||
|
||
lcControlSource = ALLTRIM(LOWER(m.tcControlSource))
|
||
IF '.' $ m.lcControlSource
|
||
m.lcControlSource = RIGHT(m.lcControlSource, LEN(m.lcControlSource) - AT('.', m.lcControlSource))
|
||
ENDIF
|
||
|
||
SELECT (m.lcRul)
|
||
DO case
|
||
* pret achizitie
|
||
CASE INLIST(m.lcControlSource, 'cant', 'cante', 'pret', 'proc_tva', 'tva')
|
||
lnCantitate = IIF(cant <> 0, cant, cante)
|
||
lnPret = pret
|
||
lnProcTva = IIF(EMPTY(proc_tva), 1, proc_tva) - 1 && 1.19 - 1 = 0.19
|
||
IF m.lcControlSource = 'tva'
|
||
lnTVA = tva
|
||
ELSE
|
||
lnTVA = lnPret * m.lnProcTVA
|
||
ENDIF
|
||
lnValoareFTva = ROUND(m.lnCantitate * m.lnPret, m.gnPC)
|
||
lnValoareTVA = ROUND(m.lnCantitate * m.lnPret * m.lnProcTva, m.gnPC)
|
||
lnValoarecTVA = m.lnValoareFtva + m.lnValoareTVA
|
||
|
||
REPLACE tva WITH m.lnTVA, valoare WITH m.lnValoareFtva, valtva WITH m.lnValoareTVA, valoarecTVA WITH m.lnValoarecTVA
|
||
|
||
* pret vanzare
|
||
CASE INLIST(m.lcControlSource, 'cant', 'cante', 'pretv', 'tvav', 'proc_tvav', 'pretvtva')
|
||
|
||
lnCantitate = IIF(cant <> 0, cant, cante)
|
||
lnPretv = ROUND(pretv, m.gnPPretv)
|
||
lnTVAv = ROUND(tvav, m.gnPPretv)
|
||
lnPretvtva = ROUND(pretvtva, m.gnPPretv)
|
||
lnProcTvav = IIF(EMPTY(proc_tvav), 1, proc_tvav) - 1 && 1.19 - 1 = 0.19
|
||
DO CASE
|
||
CASE m.lcControlSource = 'pretv'
|
||
lnTVAv = ROUND(lnPretv * m.lnProcTVAv, m.gnPPretv)
|
||
lnPretvtva = ROUND(m.lnPretv + m.lnTVAv, m.gnPPretv)
|
||
CASE m.lcControlSource = 'tvav'
|
||
lnPretvtva = m.lnPretv + m.lnTVA
|
||
CASE m.lcControlSource = 'pretvtva'
|
||
lnTVAv = ROUND(lnPretVtva * m.lnProcTVAv / (1 + m.lnProcTvav), m.gnPPretv)
|
||
lnPretv = m.lnPretvtva - m.lnTvav
|
||
ENDCASE
|
||
|
||
IF m.lcControlSource = 'pretvtva'
|
||
lnValoarecTVA = ROUND(m.lnCantitate * m.lnPretvTva, m.gnPC)
|
||
lnValoareTVA = ROUND(m.lnValoarecTVA * m.lnProcTVAv / (1 + m.lnProcTvav), m.gnPC)
|
||
lnValoareFTva = m.lnValoareCtva - m.lnValoareTVA
|
||
ELSE
|
||
lnValoareFTva = ROUND(m.lnCantitate * m.lnPretv, m.gnPC)
|
||
lnValoareTVA = ROUND(m.lnCantitate * m.lnPretv * m.lnProcTvav, m.gnPC)
|
||
lnValoarecTVA = m.lnValoareFtva + m.lnValoareTVA
|
||
ENDIF
|
||
|
||
REPLACE pretv WITH m.lnPretv, pretvtva WITH m.lnPretvtva, tvav WITH m.lnTVAv, valoarev WITH m.lnValoareFtva, valtvav WITH m.lnValoareTVA, valoarevcTVA WITH m.lnValoarecTVA
|
||
ENDCASE
|
||
|
||
IF m.lnPagina = 1
|
||
This.pgfArticole.page1._grdfooter1.calcTotal()
|
||
ELSE
|
||
This.pgfArticole.page2._grdfooter1.calcTotal()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE ccontrol_assign
|
||
LPARAMETERS vNewVal
|
||
*To do: Modify this routine for the Assign method
|
||
THIS.cControl = m.vNewVal
|
||
ENDPROC
|
||
|
||
PROCEDURE creeaza_note_tva_incasare
|
||
Lparameters tcCursorAct, toRec, tnSuma
|
||
* tcCursorAct: tAct = numele cursorului in care se adauga inregistrarile de TVA exigibil
|
||
* toRec: inregistrarea cu TVA incasare (id_fact, id_part etc.)
|
||
* tnSuma: suma incasata, din care se calculeaza TVA exigibil pe cote TVA
|
||
lnIdFact = toRec.id_fact
|
||
lnSuma = tnSuma
|
||
lnProcTVA = 0
|
||
lnIdJtvaColoana = 0
|
||
lnScd = Alltrim(toRec.scd)
|
||
lnScc = Alltrim(toRec.scc)
|
||
|
||
lcSql = [{call pack_contab.defalca_tva_incasare(] + Alltrim(Str(m.lnIdFact)) + [,] + ;
|
||
ALLTRIM(Str(m.lnSuma, 16, m.gnPC)) + [,] + ;
|
||
ALLTRIM(Str(m.lnProcTVA, 16, 4)) + [,] + ;
|
||
IIF(!Empty(Nvl(m.lnIdJtvaColoana,0)) And !(m.lnScd ='408' And m.lnScc ='401'),[0],[1]) + [,] + ;
|
||
[?gnLuna,?gnAn)}]
|
||
|
||
lcCursorDefTVA = Sys(2015)
|
||
If goExecutor.oExecuta(lcSql,lcCursorDefTVA)
|
||
|
||
SELECT (m.lcCursorDefTVA)
|
||
GO TOP
|
||
lcScd = ALLTRIM(scd)
|
||
lcScc = ALLTRIM(scc)
|
||
update_jtva_coloane(IIF(m.lcSCD = '4427' OR m.lcScc = '4427', 'JV', 'JC'), 'crsExplicatiiTVATemp', 1)
|
||
|
||
Insert Into &tcCursorAct(serie_act,luna,an,nract,ascd,scd,ascc,scc,;
|
||
suma,explicatia4,explicatia5,Curs,id_util,;
|
||
id_responsabil,nresp,id_venchelt,dst_chlt,id_lucrare,nrord,;
|
||
id_ctr,contract,id_sectie,sectie,proc_tva,id_set,id_fact,;
|
||
perecheC,perecheD,id_factD,id_factC,id_partd,partd,id_partc,partc,;
|
||
id_sucursala,sucursala,id_fdoc,fdoc,;
|
||
id_gestin,gestin,id_gestout,gestout,;
|
||
id_jtva_coloana, explicatie_tva, id_valuta,nume_val,dataact,dataireg, tipnota, cu_tva, tva_incasare) ;
|
||
Select Nvl(toRec.serie_act, '') As serie_act,;
|
||
toRec.luna As luna,toRec.an As an,toRec.nract As nract,a.ascd As ascd,a.scd As scd,a.ascc As ascc,a.scc As scc,;
|
||
a.suma As suma, Nvl(toRec.explicatia4, '') As explicatia4, Nvl(toRec.explicatia5, '') As explicatia5,toRec.Curs As Curs,toRec.id_util As id_util,;
|
||
toRec.id_responsabil As id_responsabil, Nvl(toRec.nresp, '') As nresp,toRec.id_venchelt As id_venchelt, Nvl(toRec.dst_chlt, '') As dst_chlt,;
|
||
toRec.id_lucrare As id_lucrare, Nvl(toRec.nrord, '') As nrord,toRec.id_ctr As id_ctr, Nvl(toRec.contract, '') As contract,;
|
||
toRec.id_sectie As id_sectie, Nvl(toRec.sectie, '') As sectie, a.proc_tva As proc_tva,toRec.id_set As id_set, a.id_fact As id_fact,;
|
||
a.perecheC As perecheC,a.perecheD As perecheD,;
|
||
0 As id_factD,0 As id_factC,0 As id_partd,'' As partd,0 As id_partc,'' As partc,;
|
||
CAST(toRec.id_sucursala as I null) As id_sucursala, Nvl(toRec.sucursala, '') As sucursala,toRec.id_fdoc As id_fdoc, Nvl(toRec.fdoc, '') As fdoc,;
|
||
toRec.id_gestin As id_gestin, Nvl(toRec.gestin, '') As gestin,;
|
||
toRec.id_gestout As id_gestout, Nvl(toRec.gestout, '') As gestout,;
|
||
a.id_jtva_coloana As id_jtva_coloana, b.denumire as explicatie_tva, toRec.id_valuta As id_valuta, Nvl(toRec.nume_val, '') As nume_val,toRec.dataact As dataact,toRec.dataireg As dataireg, ;
|
||
toRec.tipnota, toRec.cu_tva, toRec.tva_incasare ;
|
||
FROM (lcCursorDefTVA) a ;
|
||
LEFT JOIN crsExplicatiiTVATemp b ON a.id_jtva_coloana = b.id_jtva_coloana
|
||
|
||
USE IN (SELECT(lcCursorDefTVA))
|
||
USE IN (SELECT('crsExplicatiiTVATemp'))
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
*!* 27.07.2011
|
||
*!* marius.mutu
|
||
*!* nu se copiaza scd, scc, ascd, ascc
|
||
|
||
*!* 08.08.2011
|
||
*!* marius.mutu
|
||
*!* salvare xml nota in caz de fatal error. se reincarca la intrarea in nota fara predefinire
|
||
|
||
*!* 24.05.2011
|
||
Local lnRecno, loadd
|
||
Select tact
|
||
lnRecno = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = "ales"
|
||
ELSE
|
||
lcCond = "recno() = " + Alltrim(Str(lnRecno))
|
||
LOCATE FOR !DELETED()
|
||
IF !FOUND()
|
||
lcCond = ".T."
|
||
ENDIF
|
||
ENDIF
|
||
|
||
Select tact
|
||
SCAN FOR &lcCond
|
||
Scatter Name loadd Fields Except scd, ascd, scc, ascc, id_partd, partd, id_partc, partc, id_factd, pereched, id_factc, perechec, suma, suma_val, ales
|
||
IF NVL(m.gnIdSucursala,0) <> 0
|
||
loAdd.id_sucursala = m.gnIdSucursala
|
||
loAdd.sucursala = m.gcFirma
|
||
ENDIF
|
||
lnRecno = RECNO()
|
||
loadd.id_act = 0 && modificare ROACONT v 2.4.4
|
||
Append Blank
|
||
Gather Name loadd
|
||
GOTO lnRecno
|
||
ENDSCAN && ales
|
||
*!* 24.05.2011 ^
|
||
*!* 08.08.2011
|
||
This.SalveazaXml()
|
||
*!* 08.08.2011 ^
|
||
Do nrord With 'tact'
|
||
Thisform.CalculeazaTotal()
|
||
|
||
This.grid1.SetFocus
|
||
this.grid1.Refresh
|
||
this.grid_focus_prima_coloana()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga_rul
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga_tva_exigibil
|
||
*!* 20.11.2025
|
||
*!* Completez taxcode pentru inregistrarile TVA exigibil care nu au taxcode
|
||
|
||
|
||
*!*
|
||
*!* - tva devenit exigibil ( din nota cu plata / incasare ) :
|
||
*!* - de completat explicatia TVA
|
||
*!* - id_factd = 0 si id_fact = id_factd
|
||
*!* - id_partd = 0, id_partc = 0
|
||
*!* - suma = 0
|
||
*!* - proc_tva = 0; poate sa aleaga la explicatie TVA doar din cele exigibile
|
||
*!* - daca are o linie cu 4XX-5XXX sau 5XXX-4XX, atunci nu e activ decat pe linia respectiva
|
||
*!* - daca nu ( mai ) are nicio linie cu 4XX-5XXX sau 5XXX-4XX
|
||
*!* > ii arat o lista cu toate facturile din JV / JC din luna care mai au sold si ii completez id_fact
|
||
Local lnrecno, lnRecno1, loadd, llCalculeazaTVAEx, llCalculeazaNoteTVA
|
||
Local lcCond, lnSuma
|
||
|
||
llCalculeazaTVAEx = (Thisform.chkTVAEX.Value = 1) && calculeaza suma TVA Exigibil = 100/(100 + proc tva) din suma achitata
|
||
llCalculeazaNoteTVA = .F. && calculeaza note tva incasare pentru plati, incasari (5xx = xxx, xxx = 5xx)
|
||
|
||
Select tact
|
||
lnrecno = Recno()
|
||
lnrecno1 = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = [ales and (scc = '4428' or scd = '4428' or id_factd > 0 or id_factc > 0)]
|
||
Else
|
||
lcCond = "recno() = " + Alltrim(Str(m.lnrecno))
|
||
*!* LOCATE FOR !DELETED()
|
||
*!* IF !FOUND()
|
||
*!* lcCond = ".T."
|
||
*!* ENDIF
|
||
Endif
|
||
Select tact
|
||
Scan For &lcCond
|
||
Scatter Name m.loadd Fields Except ascd, ascc, ales, id_jtva_coloana, proc_tva, explicatie_tva
|
||
lnSuma = suma
|
||
loadd.tipnota = 1
|
||
loadd.cu_tva = 1
|
||
loadd.tva_incasare = 1
|
||
Do Case
|
||
Case m.loadd.scd = [4428]
|
||
If m.loadd.scc <> [4427]
|
||
loadd.scd = [4426]
|
||
loadd.scc = [4428]
|
||
loadd.pereched = m.loadd.nract
|
||
Endif
|
||
loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
|
||
loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
|
||
loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
|
||
|
||
Case m.loadd.scc = [4428]
|
||
If m.loadd.scd <> [4426]
|
||
loadd.scd = [4428]
|
||
loadd.scc = [4427]
|
||
loadd.perechec = m.loadd.nract
|
||
Endif
|
||
loadd.id_fact = Iif(m.loadd.id_fact > 0, m.loadd.id_fact, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
|
||
loadd.suma = Iif(m.llCalculeazaTVAEx, m.loadd.suma, 0)
|
||
loadd.suma_val = Iif(m.llCalculeazaTVAEx, m.loadd.suma_val, 0)
|
||
|
||
Case !Empty(m.loadd.perechec) And Left(m.loadd.scd, 1) = '5'
|
||
loadd.scd = [4428]
|
||
loadd.scc = [4427]
|
||
loadd.id_fact = Iif(m.loadd.id_factc > 0, m.loadd.id_factc, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
loadd.id_factd = 0
|
||
loadd.id_factc = 0
|
||
llCalculeazaNoteTVA = m.llCalculeazaTVAEx
|
||
|
||
Case !Empty(m.loadd.pereched) And Left(m.loadd.scc, 1) = '5'
|
||
loadd.scd = [4426]
|
||
loadd.scc = [4428]
|
||
loadd.id_fact = Iif(m.loadd.id_factd > 0, m.loadd.id_factd, -5) && pun -5 in caz ca e din note fara predefinire, ca sa-i completez id_fact la scrie_in_act
|
||
loadd.id_factd = 0
|
||
loadd.id_factc = 0
|
||
llCalculeazaNoteTVA = m.llCalculeazaTVAEx
|
||
|
||
Otherwise
|
||
If Type('loFactura') = 'U'
|
||
Local loFactura
|
||
loFactura = cauta_facturaTVAEx() && ocautare.prg
|
||
If Isnull(m.loFactura)
|
||
Exit
|
||
Endif
|
||
Endif
|
||
If m.loFactura.tip = [CUMPARARE] && CUMPARARE / VANZARE
|
||
loadd.scd = [4426]
|
||
loadd.scc = [4428]
|
||
loadd.pereched = m.loFactura.nract
|
||
loadd.perechec = 0
|
||
Else
|
||
loadd.scd = [4428]
|
||
loadd.scc = [4427]
|
||
loadd.pereched = 0
|
||
loadd.perechec = m.loFactura.nract
|
||
Endif
|
||
loadd.id_fact = m.loFactura.id_fact
|
||
loadd.id_factd = 0
|
||
loadd.id_factc = 0
|
||
Endcase
|
||
loadd.id_partd = 0
|
||
loadd.id_partc = 0
|
||
loadd.partd = []
|
||
loadd.partc = []
|
||
If Nvl(m.gnIdSucursala, 0) <> 0
|
||
loadd.id_sucursala = m.gnIdSucursala
|
||
loadd.sucursala = m.gcFirma
|
||
Endif
|
||
Select tact
|
||
lnrecno = Recno()
|
||
|
||
If !m.llCalculeazaNoteTVA
|
||
Append Blank
|
||
Gather Name m.loadd
|
||
Else
|
||
Thisform.creeaza_note_tva_incasare('tact', m.loadd, m.lnSuma)
|
||
Endif
|
||
|
||
Select tact
|
||
Goto m.lnrecno
|
||
|
||
Endscan
|
||
|
||
* Completez taxcode pentru inregistrarile TVA exigibil care nu au taxcode
|
||
Select tact
|
||
SCAN FOR EMPTY(NVL(taxcode,0)) AND ((scd = '4428' AND scc = '4427') OR (scd = '4426' AND scc = '4428'))
|
||
Thisform.UpdateExplicatieSAFT()
|
||
ENDSCAN
|
||
Goto m.lnRecno1
|
||
|
||
Release m.loFactura
|
||
This.SalveazaXml()
|
||
Do nrord With 'tact'
|
||
This.grid1.SetFocus
|
||
This.grid1.Refresh
|
||
This.grid_focus_prima_coloana()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
PARAMETERS tcCont
|
||
LOCAL loCauta, loHash
|
||
|
||
IF EMPTY(NVL(tcCont,''))
|
||
RETURN
|
||
ENDIF
|
||
*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
|
||
loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
|
||
IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
|
||
loHash.SetValue('dDataDoc', tact.dataact)
|
||
ENDIF
|
||
loCauta = CautPartenerContabilitate(loHash)
|
||
|
||
RETURN loCauta
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_copie
|
||
*!* 20.05.2011
|
||
Local lnrecno, loadd
|
||
Select tact
|
||
lnRecno = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = "ales"
|
||
Else
|
||
lcCond = "recno() = " + Alltrim(Str(lnRecno))
|
||
ENDIF
|
||
|
||
Select tact
|
||
SCAN FOR &lcCond
|
||
Scatter Name loadd Fields Except ales
|
||
IF NVL(m.gnIdSucursala,0) <> 0
|
||
loAdd.id_sucursala = m.gnIdSucursala
|
||
loAdd.sucursala = m.gcFirma
|
||
ENDIF
|
||
lnrecno = RECNO()
|
||
loadd.id_act = 0 && modificare ROACONT v 2.4.4
|
||
Append Blank
|
||
Gather Name loadd
|
||
GOTO lnRecno
|
||
ENDSCAN
|
||
*!* 20.05.2011 ^
|
||
*!* 08.08.2011
|
||
This.SalveazaXml()
|
||
*!* 08.08.2011 ^
|
||
Thisform.CalculeazaTotal()
|
||
|
||
Do nrord With 'tact'
|
||
This.grid1.SetFocus
|
||
this.grid1.Refresh
|
||
this.grid_focus_prima_coloana()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_copie_rul
|
||
Local lnrecno, loadd
|
||
Local lcRul, lnPagina
|
||
|
||
lnPagina = thisform.pgfArticole.ActivePage
|
||
lcRul = IIF(m.lnPagina = 1, 'trul', 'trul_obinv')
|
||
|
||
SELECT (m.lcRul)
|
||
Scatter Name loadd MEMO
|
||
IF NVL(m.gnIdSucursala,0) <> 0
|
||
loAdd.id_sucursala = m.gnIdSucursala
|
||
loAdd.sucursala = m.gcFirma
|
||
ENDIF
|
||
lnrecno = RECNO()
|
||
IF m.lcRul = 'trul'
|
||
loadd.id_rul = 0 && modificare ROACONT v 2.4.4
|
||
ELSE
|
||
loadd.id_rul_obinv = 0
|
||
ENDIF
|
||
Append Blank
|
||
Gather Name loadd MEMO
|
||
|
||
This.SalveazaXml()
|
||
|
||
Do nrord With (m.lcRul)
|
||
IF m.lnPagina = 1
|
||
This.pgfArticole.page1._grdfooter1.calcTotal()
|
||
This.pgfArticole.page1.grdrulaje.SetFocus
|
||
this.pgfArticole.page1.grdrulaje.Refresh
|
||
ELSE
|
||
This.pgfArticole.page2._grdfooter1.calcTotal()
|
||
This.pgfArticole.page2.grdRulajeObinv.SetFocus
|
||
this.pgfArticole.page2.grdRulajeObinv.Refresh
|
||
ENDIF
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_import
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
*!* 08.07.2013
|
||
*!* marius.mutu
|
||
*!* + tnIdItem: pentru cazul in care am mai multe x_item la fel (vezi nrord)
|
||
|
||
*!* 26.02.2018
|
||
*!* se inlocuieste valoarea pentru toate inregistrarile alese, optional
|
||
|
||
PARAMETERS tcX_item, tcControl, tnIdItem, tcTabel
|
||
*** tnIdItem (optional) in loc de tcX_item, in cazul in care am mai multe x_item la fel (vezi nrord)
|
||
*** tcTabel (optional): tAct (implicit), trul
|
||
|
||
LOCAL lcColoane, lcControl, lcFisier, lcIdAct, lcIdFis, lcPrimVal, lcReplace, lcVarAct, llAles
|
||
LOCAL lnColoane, lnRecno, locauta, lcTabel
|
||
Local lcFiltruOriginal, lcTitlu, lcTitluColoane, lcorder, lcschema
|
||
Local lcfiltru, lcselect, i
|
||
|
||
|
||
lcTabel = IIF(EMPTY(m.tcTabel), 'tact', LOWER(ALLTRIM(m.tcTabel)))
|
||
|
||
lcControl = LOWER(ALLTRIM(tcControl))
|
||
IF '.' $ tcControl
|
||
lcControl = RIGHT(lcControl, LEN(lcControl) - AT('.', lcControl))
|
||
ENDIF
|
||
|
||
SELECT xitems
|
||
IF !EMPTY(m.tnIdItem)
|
||
LOCATE FOR id_item = m.tnIdItem
|
||
ELSE
|
||
LOCATE FOR ALLTRIM(x_item) = ALLTRIM(tcX_item)
|
||
ENDIF
|
||
IF !FOUND()
|
||
RETURN
|
||
ENDIF
|
||
|
||
SCATTER NAME locauta MEMO
|
||
lcColoane = ALLTRIM(locauta.camp_lista)
|
||
lcIdFis = ALLTRIM(locauta.id_fisier)
|
||
lcFisier = ALLTRIM(locauta.fis_lista)
|
||
lcVarAct = lcControl
|
||
lcIdAct = lcIdFis
|
||
|
||
lcselect = [select ] + lcColoane + [,] + lcIdFis + [ from ] + lcFisier
|
||
lcfiltru = [1=2]
|
||
lcschema = []
|
||
lcorder = lcColoane
|
||
lccoloane = lcColoane
|
||
lcTitlu = PROPER(GETWORDNUM(locauta.label_item,1, ','))
|
||
lnColoane = OCCURS([,], lcColoane)
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
lcTitluColoane = ''
|
||
IF m.lnColoane > 0
|
||
FOR lnColoana = 1 TO lnColoane
|
||
lcTitluColoane = lcTitluColoane + GETWORDNUM(loCauta.label_item, m.lnColoana, ',') + [, ]
|
||
ENDFOR
|
||
ENDIF
|
||
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFisier, .F., lcFiltruOriginal) && 11.07.2007
|
||
|
||
IF gnButon = 1
|
||
DO CASE
|
||
CASE m.lcTabel = 'tact'
|
||
IF ',' $ lcColoane
|
||
lcPrimVal = LEFT(lcColoane, AT(',', lcColoane) - 1)
|
||
ELSE
|
||
lcPrimVal = ALLTRIM(lcColoane)
|
||
ENDIF
|
||
|
||
IF 'nume_gestiune' $ LOWER(lcPrimVal)
|
||
lcIdAct = [id_] + lcVarAct
|
||
ENDIF
|
||
|
||
SELECT tact
|
||
lnRecno = RECNO()
|
||
LOCATE FOR ales
|
||
llAles = FOUND()
|
||
GOTO m.lnRecno
|
||
lcReplace = [replace ] + lcVarAct + [ with locauta.] + lcPrimVal + [,] + lcIdAct + [ with locauta.] + lcIdFis
|
||
IF m.llAles AND AMESSAGEBOX('Doriti sa completati pentru toate inregistrarile alese?',4+32, _screen.Caption) = 6
|
||
lcReplace = m.lcReplace + ' for ales'
|
||
ENDIF
|
||
|
||
SELECT tact
|
||
&lcReplace
|
||
GOTO m.lnRecno
|
||
|
||
CASE INLIST(m.lcTabel, 'trul', 'trul_obinv')
|
||
SELECT (m.lcTabel)
|
||
|
||
DO CASE
|
||
CASE m.lcControl = 'denumire'
|
||
replace denumire with loCauta.denumire, id_articol with loCauta.id_articol, codmat WITH loCauta.codmat, ;
|
||
codmatf WITH loCauta.codmatf, um WITH loCauta.um, um2 WITH loCauta.um2, cant_bax WITH loCauta.cant_Bax, ;
|
||
id_subgrupa WITH loCauta.id_subgrupa, subgrupa WITH loCauta.subgrupa, id_grupa WITH loCauta.id_grupa, grupa WITH loCauta.grupa
|
||
|
||
CASE m.lcControl = 'cgest'
|
||
replace cgest with loCauta.cGest, id_gestiune with loCauta.id_gestiune, nume_gestiune WITH loCauta.nume_gestiune
|
||
CASE m.lcControl = 'cgestc'
|
||
replace cgestc with loCauta.cGest, id_gestiunec with loCauta.id_gestiune, nume_gestiunec WITH loCauta.nume_gestiune
|
||
CASE m.lcControl = 'nrord'
|
||
replace nrord with loCauta.nrord, id_lucrare with loCauta.id_lucrare
|
||
|
||
CASE m.lcControl = 'nume_val'
|
||
replace nume_val with loCauta.nume_val, id_valuta with loCauta.id_valuta
|
||
|
||
CASE m.lcControl = 'sectie'
|
||
replace sectie with loCauta.sectie, id_valuta with loCauta.id_sectie
|
||
CASE m.lcControl = 'nresp'
|
||
replace nresp with loCauta.nume, id_responsabil with loCauta.id_responsabil
|
||
CASE m.lcControl = 'nrespc'
|
||
replace nrespc with loCauta.nume, id_responsabilc with loCauta.id_responsabil
|
||
CASE m.lcControl = 'part_rez'
|
||
replace part_rez with loCauta.denumire, id_part_rez with loCauta.id_part
|
||
CASE m.lcControl = 'nrord_rez'
|
||
replace nrord_rez with loCauta.nrord, id_lucrare_rez with loCauta.id_lucrare
|
||
ENDCASE
|
||
|
||
ENDCASE
|
||
ENDIF
|
||
|
||
RETURN locauta
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica_explicatie_tva
|
||
If tact.cu_tva = 1
|
||
*!* modificare ROACONT v 2.4.4
|
||
If TYPE('tact.tipnota') = 'N' AND tact.tipnota = 1
|
||
*!* explicatii TVA exigibile din JC ( 1 ), JV ( 3 ) sau toate ( 5 )
|
||
locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1),,,iif(tact.scc=[4428],1,iif(tact.scd=[4428],3,5)))
|
||
Else
|
||
locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
|
||
Endif
|
||
*!* locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
|
||
*!* modificare ROACONT v 2.4.4 ^
|
||
If !Empty(locauta.id_jtva_coloana)
|
||
Select tact
|
||
Replace id_jtva_coloana With locauta.id_jtva_coloana,explicatie_Tva With locauta.denumire,proc_tva With (locauta.cota_tva + 100) / 100
|
||
Endif
|
||
|
||
* Actualizez Cod Taxa SAFT in functie de Cota TVA
|
||
Thisform.UpdateExplicatieSAFT()
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_salvare
|
||
*!* 24.10.2014
|
||
*!* marius.mutu
|
||
*!* actualizez xsets cu seturile utilizator dupa salvarea unui set
|
||
|
||
Local loxSet As "oxSet"
|
||
Local llModelNou, llNotaNoua, llNotaNouaDefinita, lnIdSet, lnOptiune, loSet, lcXMLNote
|
||
Local lcModel, llSucces, lnIdSetModel
|
||
*:Global Buton, gnButon, pnButon, pnIesire
|
||
|
||
|
||
lnIdSet = Thisform.nid_set
|
||
llNotaNoua = Thisform.lNotaNoua
|
||
llNotaNouaDefinita = m.llNotaNoua And !Inlist(m.lnIdSet, 99998, 99999)
|
||
llModelNou = .T. && salvare model nou
|
||
|
||
*** MODIFICARE SET SAU SET NOU?
|
||
*** Daca s-a incarcat o nota definita de utilizator
|
||
*** salvez peste nota existenta sau creez o nota noua
|
||
llModelNou = (Type('this.oSet') <> 'O')
|
||
loSet = This.oSet
|
||
|
||
loxSet = Createobject("oxSet", m.lnIdSet) && ocont2003.prg
|
||
|
||
SELECT *, RECNO() as nr_nota FROM tact INTO CURSOR crsNoteTemp && completez campul nr_nota pentru ordonare
|
||
loxSet.Cursor2Property("crsNoteTemp", "cXmlNote") && completez proprietatea cXmlNote
|
||
USE IN (SELECT('crsNoteTemp'))
|
||
|
||
*** Daca este un set existent, il salvez cu noile note, fara sa mai editez proprietatile
|
||
IF !m.llModelNou
|
||
llSucces = loxSet.Save()
|
||
ELSE
|
||
*** daca este un set nou editez proprietatile (nume, categorie, request) si apoi salvez
|
||
loxSet.New()
|
||
llSucces = loxSet.Edit()
|
||
ENDIF
|
||
|
||
If m.llSucces
|
||
AMESSAGEBOX('Nota salvata cu succes',0+64,_screen.Caption)
|
||
ELSE
|
||
RETURN m.llSucces
|
||
ENDIF
|
||
|
||
lnSucces = xdate() && actualizez xsets cu seturile utilizator
|
||
|
||
*** Daca nu exista butonul Terminat (atunci cand apelez formularul din editare set), atunci salvez si ies din formular
|
||
If !This.but_terMIN1.Visible
|
||
gnButon = 3
|
||
pnButon = 3
|
||
Buton = 3
|
||
pnIesire = 3
|
||
If !This.lhide
|
||
This.Release
|
||
Else
|
||
This.Hide
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
*!* 14.07.2011
|
||
*!* daca formularul se foloseste pentru creare nota fara predefinire, inregistrarile se sterge direct, fara verificari
|
||
Local lnAn, lnLuna, lnCod, lnIdFact, llReferinteDocumente, llNotaNoua
|
||
Local lcCond, lnRecno
|
||
*!* 24.05.2011
|
||
Select tact
|
||
lnRecno = Recno()
|
||
Locate For ales
|
||
If Found()
|
||
lcCond = "ales"
|
||
Else
|
||
lcCond = "recno() = " + Alltrim(Str(lnRecno))
|
||
ENDIF
|
||
|
||
*!* 14.07.2011
|
||
llNotaNoua = this.lNotanoua && sunt in creare nota fara predefinire, nu in modificare nota din registrul jurnal
|
||
*!* 14.07.2011 ^
|
||
IF !m.llNotaNoua
|
||
SELECT tAct
|
||
LOCATE FOR &lcCond and !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0))
|
||
IF FOUND()
|
||
AMESSAGEBOX('Nu se pot sterge decat inregistrari din sucursala curenta!', 0+48, _screen.Caption)
|
||
RETURN
|
||
ENDIF
|
||
ENDIF
|
||
|
||
SELECT an, luna, cod, id_fact FROM tact WHERE .F. INTO CURSOR cReferinteVerificate READWRITE
|
||
|
||
SELECT tact
|
||
SCAN FOR &lcCond
|
||
lnAn = an
|
||
lnLuna = luna
|
||
lnCod = cod
|
||
lnIdFact = id_fact
|
||
IF !m.llNotaNoua
|
||
WAIT WINDOW 'Verificare referinte ' + ALLTRIM(STR(m.lnIdFact)) + ' ...' NOWAIT
|
||
llReferinteDocumente = .F.
|
||
SELECT cReferinteVerificate
|
||
LOCATE FOR an = lnAn AND luna = lnLuna AND cod = lnCod AND id_fact = lnIdFact
|
||
IF !FOUND()
|
||
llReferinteDocumente = ReferinteDocument(lnAn, lnLuna, lnCod, lnIdFact) && odocumente.prg
|
||
ENDIF
|
||
If llReferinteDocumente
|
||
AMESSAGEBOX("Documentul are referinte (incasari/plati). Nu poate fi sters.", 0+48,"Stergere")
|
||
USE IN (SELECT('cReferinteVerificate'))
|
||
RETURN
|
||
ELSE
|
||
INSERT INTO cReferinteVerificate(an, luna, cod, id_fact) VALUES (lnAn, lnLuna, lnCod, lnIdFact)
|
||
Endif
|
||
ENDIF && llNotaNoua
|
||
|
||
Select tact
|
||
DELETE
|
||
ENDSCAN && lcCond
|
||
USE IN (SELECT('cReferinteVerificate'))
|
||
*!* 24.05.2011 ^
|
||
|
||
*!* 08.08.2011
|
||
This.SalveazaXml()
|
||
*!* 08.08.2011 ^
|
||
|
||
Thisform.CalculeazaTotal()
|
||
|
||
Select tact
|
||
TRY
|
||
GOTO lnRecno
|
||
SKIP -1
|
||
CATCH
|
||
GO TOP
|
||
ENDTRY
|
||
|
||
This.grid1.SetFocus
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge_rul
|
||
Local lcRul
|
||
Local lnPagina, lnRecno
|
||
|
||
lnPagina = This.pgfArticole.ActivePage
|
||
lcRul = IIF(m.lnPagina = 1, 'trul', 'trul_obinv')
|
||
|
||
SELECT (lcRul)
|
||
lnRecno = RECNO()
|
||
DELETE
|
||
TRY
|
||
SKIP -1
|
||
CATCH
|
||
GO TOP
|
||
ENDTRY
|
||
|
||
This.SalveazaXml()
|
||
|
||
Do nrord With m.lcRul
|
||
|
||
IF m.lnPagina = 1
|
||
This.pgfArticole.page1._grdfooter1.calcTotal()
|
||
This.pgfArticole.page1.grdrulaje.SetFocus
|
||
this.pgfArticole.page1.grdrulaje.Refresh
|
||
ELSE
|
||
This.pgfArticole.page2._grdfooter1.calcTotal()
|
||
This.pgfArticole.page2.grdRulajeObinv.SetFocus
|
||
this.pgfArticole.page2.grdRulajeObinv.Refresh
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_verifica
|
||
*!* PARAMETERS tlClick, tccont, tcacont, tcColoana
|
||
|
||
*!* m.den=''
|
||
*!* ll_l=.f.
|
||
|
||
*!* IF EMPTY(tccont)
|
||
*!* RETURN ll_l
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
|
||
*!* lcSql=[select acont || ' - ' || explicatie as den, CONT, ACONT FROM ] + gcS + [.vplcont_ANALITIC where to_number(cont) = ] + tcCont + [ and inactiv = 0 and an = ] + pcAn + [ order by acont ]
|
||
*!* lcCursor = 'tceva'
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
|
||
*!* SELECT tceva
|
||
*!* LOCATE
|
||
*!* IF EOF()
|
||
*!* IF !EMPTY(tcAcont) AND !ISNULL(tcAcont)
|
||
*!* DO mesaj WITH 'Nu au fost definite simboluri analitice','pentru contul ' + tcCont
|
||
*!* ll_l=.t.
|
||
*!* ENDIF
|
||
*!*
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
*!* SELECT actactan
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
*!* ELSE
|
||
*!* IF !tlClick
|
||
*!* IF empty(tcAcont)
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* SELECT tceva
|
||
*!* IF tlClick
|
||
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
|
||
*!* SELECT tceva
|
||
*!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
|
||
*!* lcAcont = acont
|
||
|
||
*!* SELECT tact
|
||
*!* REPLACE &tcColoana WITH lcAcont
|
||
*!* ELSE
|
||
*!* LOCATE FOR ALLTRIM(cont)=ALLTRIM(tccont) AND ALLTRIM(acont)=ALLTRIM(tcacont)
|
||
*!* IF !FOUND()
|
||
*!* DO caut_alfa_cursor WITH 'tceva','den','Alegeti simbolul analitic','m.den'
|
||
*!* SELECT tceva
|
||
*!* LOCATE FOR ALLTRIM(den) = ALLTRIM(m.den)
|
||
*!* lcAcont = acont
|
||
|
||
*!* SELECT tact
|
||
*!* REPLACE &tcColoana WITH lcAcont
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('TCEVA')
|
||
*!* USE IN Tceva
|
||
*!* ENDIF
|
||
|
||
*!* SELECT tact
|
||
*!* this.grid1.SetFocus
|
||
*!* RETURN ll_l
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_focus_prima_coloana
|
||
Local lnColumns, loColumn, loGrid, i
|
||
Local lcColumn
|
||
|
||
loGrid = this.grid1
|
||
lnColumns = loGrid.ColumnCount
|
||
|
||
FOR i = 1 TO m.lnColumns
|
||
lcColumn = 'loGrid.Column' + ALLTRIM(STR(i))
|
||
loColumn = &lcColumn
|
||
IF loColumn.columnOrder = 1
|
||
EXIT
|
||
ENDIF
|
||
ENDFOR
|
||
loColumn.Setfocus()
|
||
ENDPROC
|
||
|
||
PROCEDURE grid_sort_bind
|
||
* nu sterge
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
Local lVerificAnalitic, lCompletezPartener, llNuVerificCont
|
||
*!* 24.05.2011
|
||
SELECT tact
|
||
SET FILTER TO
|
||
*!* 24.05.2011 ^
|
||
|
||
* se pare ca nu se salveaza id_set la notele fara predefinire?
|
||
UPDATE tact SET id_set = This.nid_set WHERE EMPTY(NVL(id_set, 0))
|
||
UPDATE trul SET id_set = This.nid_set WHERE EMPTY(NVL(id_set, 0))
|
||
UPDATE trul_obinv SET id_set = This.nid_set WHERE EMPTY(NVL(id_set, 0))
|
||
|
||
lVerificAnalitic = .T.
|
||
lCompletezPartener = .F.
|
||
*!* 13.03.2008
|
||
*!* modificare ROACONT v 2.0.110
|
||
If INLIST(This.nid_set, 99998, 90024) && 99998 = NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC), 90024 = INITALIZARE FACTURI SOLDURI DIN PRELUARE
|
||
*!* If id_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)
|
||
*!* modificare ROACONT v 2.0.110 ^
|
||
llNuVerificCont = .T.
|
||
Else
|
||
llNuVerificCont = .F.
|
||
EndIf
|
||
*!* 14.03.2008 - nu mai fac nici o verificare pentru notele 99998
|
||
If !llNuVerificCont
|
||
llRet = verificare_note_contabile('tact',lVerificAnalitic,lCompletezPartener,llNuVerificCont) && in oOperatii_comune
|
||
Else
|
||
llRet = .T.
|
||
EndIf
|
||
*!* 14.03.2008 ^
|
||
*!* 13.03.2008 ^
|
||
*!* modificare v 2.4.4
|
||
IF m.llRet
|
||
If gnAn >= 2013
|
||
Select tact
|
||
Locate For ((scd = '4426' And scc = '4428') Or (scd='4428' And scc='4427')) And tipnota = 0 And id_act = 0
|
||
If Found()
|
||
llRet = Iif(amessagebox("Ati adaugat o nota 4426-4428 / 4428-4427 fara a folosi optiunea 'Adauga nota TVA devenit exigibil'." + CRLF + ;
|
||
"Din aceasta cauza, este posibil ca inregistrarea sa nu se preia corect in Registrul de Cumparari / Vanzari." + CRLF + CRLF + ;
|
||
"Doriti sa continuati?", 4+32, "Note 4426-4428/4428-4427")=6,.T.,.F.)
|
||
Endif
|
||
ENDIF
|
||
If m.llRet
|
||
llRet = This.VerificaAvertizareExigibilizareTVA()
|
||
Endif
|
||
ENDIF
|
||
*!* modificare v 2.4.4 ^
|
||
RETURN m.llRet
|
||
|
||
|
||
*!* LOCAL lcInMesaj,lcInMesajP,lcInMesajIreg
|
||
*!* STORE '' TO lcInMesaj,lcInMesajP, lcInMesajIreg
|
||
|
||
*!* SELECT tact
|
||
*!* GO TOP
|
||
*!* lnId_set=id_set
|
||
*!* ll_return = .T.
|
||
|
||
*!* SELECT DISTINCT scd AS CONT FROM tact ;
|
||
*!* WHERE suma # 0 ;
|
||
*!* UNION ;
|
||
*!* SELECT DISTINCT scc AS CONT FROM tact ;
|
||
*!* WHERE suma # 0 ;
|
||
*!* INTO CURSOR tcont
|
||
|
||
*!* i = 0
|
||
*!* SELECT tcont
|
||
*!* SCAN
|
||
*!* i = i + 1
|
||
*!* IF i = 1
|
||
*!* lcLista = ALLTRIM(CONT)
|
||
*!* ELSE
|
||
*!* lcLista = lcLista + ',' + ALLTRIM(CONT)
|
||
*!* ENDIF
|
||
*!* ENDSCAN
|
||
|
||
*!* lcSql = 'select distinct c.cont as contpart, c.fel_cont, c.cu_inregistrari, c.explicatie as explic_cont,e.cont_c as exceptie, e.debit as pozitie, e.invers, 0 as gasit ' + ;
|
||
*!* 'from ' + gcs + '.vcoresp_tip_cont c left join ' + gcs + '.exceptii_ireg e on c.cont = e.cont and e.invers = 1 ' + ;
|
||
*!* 'where to_number(c.cont) in (' + lcLista + ')'
|
||
*!* lcCursor = 'verif_part'
|
||
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
*!* IF lnSucces < 0
|
||
*!* MESSAGEBOX('Modificare:Verific completare id_part ' +goExecutor.cEroare,0+16,"Eroare")
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0
|
||
*!* IF RECCOUNT('verif_part') > 0
|
||
*!* SELECT tact
|
||
*!* SCAN FOR !EMPTY(suma)
|
||
*!* SCATTER NAME loCont
|
||
*!* SELECT verif_part
|
||
*!* LOCATE FOR contpart=loCont.scd
|
||
*!* IF FOUND()
|
||
*!* IF EMPTY(loCont.Id_partd) AND !(loCont.scd$lcInMesajP)
|
||
*!* lcInMesajP=lcInMesajP+','+loCont.scd
|
||
*!* REPLACE gasit WITH 1
|
||
*!* ENDIF
|
||
|
||
*!* IF EMPTY(loCont.pereched) AND cu_inregistrari = 1 AND fel_cont = 1 AND !(loCont.scd$lcInMesajIreg)
|
||
*!* LOCATE FOR contpart=loCont.scd AND exceptie = loCont.scc AND fel_cont = 1 AND pozitie = 0 AND invers = 1
|
||
*!* IF !FOUND()
|
||
*!* lcInMesajIreg = lcInMesajIreg + ',' + loCont.scd
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* SELECT verif_part
|
||
*!* LOCATE FOR contpart=loCont.scc
|
||
*!* IF FOUND()
|
||
*!* IF EMPTY(loCont.Id_partc) AND !(loCont.scc$lcInMesajP)
|
||
*!* lcInMesajP=lcInMesajP+','+loCont.scc
|
||
*!* REPLACE gasit WITH 1
|
||
*!* ENDIF
|
||
*!* IF cu_inregistrari = 1 AND fel_cont = 0 AND EMPTY(loCont.perechec) AND !(loCont.scc$lcInMesajIreg)
|
||
*!* LOCATE FOR contpart=loCont.scc AND exceptie = loCont.scd AND fel_cont = 0 AND pozitie = 1 AND invers = 1
|
||
*!* IF !FOUND()
|
||
*!* lcInMesajIreg = lcInMesajIreg + ',' + loCont.scc
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* ENDSCAN
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0 AND !(lnId_set>90000 AND lnId_set<90010) && notele de inchidere se fac in functie de optiuni
|
||
*!* lcSql=[select CONT, ACONT FROM ] + gcs + [.vplcont_ANALITIC where inactiv = 0 and an = ?gnAn order by cont ]
|
||
*!* lcCursor = 'plcontana'
|
||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
|
||
*!* IF lnSucces < 0
|
||
*!* MESSAGEBOX('Modificare:Verific completare analitic ' +goExecutor.cEroare,0+16,"Eroare")
|
||
*!* ENDIF
|
||
|
||
*!* IF lnSucces > 0
|
||
*!* SELECT tact
|
||
*!* SCAN FOR !EMPTY(suma)
|
||
*!* SCATTER NAME loCont
|
||
*!* IF EMPTY(loCont.ascd) OR ISNULL(loCont.ascd)
|
||
*!* SELECT plcontana
|
||
*!* LOCATE FOR ALLTRIM(CONT)=ALLTRIM(loCont.scd)
|
||
*!* IF FOUND()
|
||
*!* IF !(loCont.scd$lcInMesaj)
|
||
*!* lcInMesaj=lcInMesaj+','+loCont.scd
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* IF EMPTY(loCont.ascc) OR ISNULL(loCont.ascc)
|
||
*!* SELECT plcontana
|
||
*!* LOCATE FOR CONT=loCont.scc
|
||
*!* IF FOUND()
|
||
*!* IF !(loCont.scc$lcInMesaj)
|
||
*!* lcInMesaj=lcInMesaj+','+loCont.scc
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
*!* SELECT tact
|
||
*!* ENDSCAN
|
||
*!* RELEASE loCont
|
||
*!* ENDIF
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesaj)
|
||
*!* DO mesaj WITH 'Nu ati completat simbolurile analitice pentru conturile:',lcInMesaj
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesajP)
|
||
*!* DO mesaj WITH 'Nu ati completat partenerii pentru conturile:', lcInMesajP
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF !EMPTY(lcInMesajIreg)
|
||
*!* DO mesaj WITH 'Nu ati completat doc. pereche pentru conturile:', lcInMesajIreg
|
||
*!* ll_return = .F.
|
||
*!* ENDIF
|
||
|
||
*!* IF USED('verif_part')
|
||
*!* USE IN verif_part
|
||
*!* ENDIF
|
||
*!* IF USED('plcontana')
|
||
*!* USE IN plcontana
|
||
*!* ENDIF
|
||
*!* IF USED('tcont')
|
||
*!* USE IN tcont
|
||
*!* ENDIF
|
||
|
||
*!* RETURN ll_return
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
*!* 05.12.2013
|
||
*!* marius.mutu
|
||
*!* adaugat parametru tlVizualizare - pentru verificarea din registrul jurnal
|
||
*!* parametrul tlVizualizare poate avea atat valori logice (.T. = VIZUALIZARE, .F. = MODIFICARE/NOTA FARA PREDEFINIRE),
|
||
*!* cat si valori numerice (1=VIZUALIZARE, 2 = MODIFICARE, 3 = VERIFICARENOTE)
|
||
|
||
Lparameters tnIdSet, tlNotaNoua, toBackupXML, toSet, tlVizualizare
|
||
DoDefault()
|
||
|
||
*!* modificare ROACONT v 2.0.110
|
||
This.nid_set = tnIdSet
|
||
*!* 14.07.2011
|
||
This.lNotaNoua = tlNotaNoua && daca se apeleaza formularul din nota_fara_predefinire (ocont2003.prg)
|
||
*!* 14.07.2011 ^
|
||
|
||
This.lEditare = (Type('toSet.lEditare') = 'L' and toSet.lEditare) && In modul editare note definite de utilizator, arat doar butoanele Salvez si Renunt
|
||
|
||
*!* 05.12.2013
|
||
This.oBackupXML = toBackupXML
|
||
This.oSet = m.toSet
|
||
This.lVizualizare = .F.
|
||
This.lModificare = .T.
|
||
This.lVerificare = .F.
|
||
|
||
If Pcount() >= 5
|
||
If Type('tlVizualizare') = 'L'
|
||
This.lVizualizare = m.tlVizualizare && default = MODIFICARE
|
||
Else
|
||
If Type('tlVizualizare') = 'N'
|
||
Do Case
|
||
Case m.tlVizualizare = 1
|
||
This.lVizualizare = .T.
|
||
Case m.tlVizualizare = 2
|
||
This.lModificare = .T.
|
||
Case m.tlVizualizare = 3
|
||
This.lVerificare = .T.
|
||
Endcase
|
||
Endif && Type('tlVizualizare') = 'N'
|
||
Endif && Type('tlVizualizare') = 'L'
|
||
Endif
|
||
|
||
Do Case
|
||
Case This.lVerificare && verificarea notelor contabile (ex. nota inchidere imobilizari din inchidere.prg)
|
||
This.lb_titlu_alb_b121.Caption = 'VERIFICARE'
|
||
Case m.tlNotaNoua
|
||
This.lb_titlu_alb_b121.Caption = 'NOTA FARA PREDEFINIRE'
|
||
Endcase
|
||
|
||
|
||
|
||
*** In modul editare note definite de utilizator, arat doar butoanele Salvez si Renunt
|
||
This.but_termin1.Visible = !This.lEditare
|
||
|
||
|
||
*!* 05.12.2013 ^
|
||
|
||
|
||
*!* modificare ROACONT v 2.0.110 ^
|
||
If Iif(Type('gnModificareIdSetSpe')='U',0,gnModificareIdSetSpe)=0 And ;
|
||
(Between(tnIdSet,25000,25099) Or Inlist(tnIdSet,79,83,206,61,62,63,102,103,64,65,73,222,223,224,225,226,227,236,238,239,240) ;
|
||
or Inlist(tnIdSet,252,255,258,259,260))
|
||
Thisform.command4.Top = Thisform.command1.Top
|
||
Thisform._shape2.Left = Thisform.but_renunT1.Left
|
||
Thisform.command1.Visible = .F.
|
||
Thisform.command2.Visible = .F.
|
||
Thisform.RemoveObject('but_nou1')
|
||
Thisform.RemoveObject('but_sterge1')
|
||
*!* modificare 19.09.2007
|
||
*!* Thisform.command3.Visible = .F.
|
||
*!* Thisform.cnomenclator.Visible = .F.
|
||
*!* Thisform.grid1.SetAll('Readonly',.T.,'Column')
|
||
With Thisform.grid1
|
||
.column4.ReadOnly = .T.
|
||
.column6.ReadOnly = .T.
|
||
.column10.ReadOnly = .T.
|
||
.column5.ReadOnly = .T.
|
||
.column37.ReadOnly = .T.
|
||
.column9.ReadOnly = .T.
|
||
.column15.ReadOnly = .T.
|
||
.column34.ReadOnly = .T.
|
||
.column20.ReadOnly = .T.
|
||
.column29.ReadOnly = .T.
|
||
.column21.ReadOnly = .T.
|
||
.column22.ReadOnly = .T.
|
||
.column32.ReadOnly = .T.
|
||
.column12.ReadOnly = .T.
|
||
.column25.ReadOnly = .T.
|
||
.column30.ReadOnly = .T.
|
||
.column31.ReadOnly = .T.
|
||
Endwith
|
||
*!* modificare 19.09.2007 ^
|
||
Endif
|
||
*!* modificare v 2.4.4
|
||
If gnAn >= 2013
|
||
Thisform.command5.Visible = .T.
|
||
thisform.chkTVAEx.Visible = .T.
|
||
Else
|
||
Thisform.command5.Visible = .F.
|
||
thisform.chkTVAEx.Visible = .F.
|
||
Endif
|
||
*!* modificare v 2.4.4 ^
|
||
|
||
This.grid1.Anchor = 11
|
||
This.but_renunt1.Anchor = 8
|
||
|
||
If This.nid_set = 90101
|
||
This.grid1.Column44.ReadOnly = .T.
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE Load
|
||
If !Used('saft_taxtable')
|
||
update_saft_taxtable()
|
||
ENDIF
|
||
|
||
If !Used('saft_mecanisme_plati')
|
||
update_saft_mecanisme_plati()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Resize
|
||
|
||
this.cmdSelect.Top = this.grid1.Top + this.grid1.Height
|
||
this.lblSuma.Top = this.grid1.Top + this.grid1.Height
|
||
this.txtSuma.Top = this.grid1.Top + this.grid1.Height
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE resize_grid1
|
||
Local llAfiseazaRulaje
|
||
|
||
llAfiseazaRulaje = this.pgfArticole.Visible
|
||
this.grid1.Height = IIF(m.llAfiseazaRulaje, 284, this.Height - 100)
|
||
this.cmdSelect.Top = this.grid1.Top + this.grid1.Height
|
||
this.lblSuma.Top = this.grid1.Top + this.grid1.Height
|
||
this.txtSuma.Top = this.grid1.Top + this.grid1.Height
|
||
ENDPROC
|
||
|
||
PROCEDURE salveazaxml
|
||
*!* *** salvez doar notele fara predefinire
|
||
*!* If This.nid_set = 99998 && NOTE FARA PREDEFINIRE
|
||
*!* SaveCursor2XML('tact', 'notafarapredefinire') && oproceduri_comune.prg
|
||
*!* ENDIF
|
||
*!* If This.nid_set = 99998 && NOTE FARA PREDEFINIRE * (FARA VERIFICARE COMPLETARE CONT SINTETIC/ANALITIC)
|
||
*!* SaveCursor2XML('tact', 'notafarapredefinire2')
|
||
*!* ENDIF
|
||
|
||
|
||
*** salvez doar notele fara predefinire
|
||
Local loBackupXml
|
||
IF INLIST(This.nid_set, 99998, 99999)
|
||
loBackupXml = This.oBackupXMl
|
||
IF TYPE('loBackupXml') = 'O'
|
||
IF USED('tact')
|
||
loBackupXML.SaveBackupSet("tact")
|
||
ENDIF
|
||
IF USED('trul')
|
||
loBackupXML.SaveBackupSet("trul")
|
||
ENDIF
|
||
IF USED('trul_obinv')
|
||
loBackupXML.SaveBackupSet("trul_obinv")
|
||
ENDIF
|
||
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Show
|
||
Lparameters nStyle, tlMaximize
|
||
Local lnHeight
|
||
|
||
Select tact
|
||
This.grid1.SetFocus
|
||
*!* 24.05.2011
|
||
|
||
|
||
|
||
this.gridextra1.setup()
|
||
LOCAL lcPrefFile, lcPrefFileContents, lcKey, lcPrefs
|
||
LOCAL ARRAY laNnirPrefs(1)
|
||
lcPrefFile = This.gridextra1.GetUserApplicationDataPath() + This.gridextra1.GridPreferenceFile
|
||
lcPrefFileContents = ""
|
||
IF FILE(m.lcPrefFile)
|
||
lcPrefFileContents = FILETOSTR(m.lcPrefFile)
|
||
ENDIF
|
||
lcKey = SYS(1272, This.grid1) + "("
|
||
lcPrefs = STREXTRACT(m.lcPrefFileContents, m.lcKey, ")", 1, 1)
|
||
*!* pozitioneaza coloana la prima deschidere, cat timp preferintele salvate nu o acopera
|
||
IF EMPTY(m.lcPrefs) OR ALINES(laNnirPrefs, m.lcPrefs, 7, ",") < This.grid1.ColumnCount * 2
|
||
This.grid1.Column44.ColumnOrder = 7
|
||
ENDIF
|
||
this.grid1.SetAll("dynamicbackcolor", "IIF(ALES, RGB(255,255,225), RGB(255,255,255))", "Column")
|
||
This.CalculeazaTotal()
|
||
*!* 24.05.2011 ^
|
||
|
||
|
||
this.pgfArticole.page1._grdfooter1.attachtogrid(this.pgfArticole.page1.grdRulaje)
|
||
this.pgfArticole.page1._grdfooter1.calcTotal()
|
||
|
||
this.pgfArticole.page2._grdfooter1.attachtogrid(this.pgfArticole.page2.grdRulajeObinv)
|
||
this.pgfArticole.page2._grdfooter1.calcTotal()
|
||
|
||
This.Grid1.HeaderHeight = 37
|
||
this.pgfArticole.page1.grdRulaje.HeaderHeight = 37
|
||
this.pgfArticole.page2.grdRulajeObinv.HeaderHeight = 37
|
||
|
||
This.grid1.column42.visible = m.gl406 && saft taxa
|
||
This.grid1.column43.visible = m.gl406 && saft plata
|
||
|
||
Thisform.but_modificaR.Enabled = .F.
|
||
This.WindowState = 2
|
||
|
||
* Ascund pageframe rulaje daca nu am rulaje
|
||
IF RECCOUNT('trul') = 0 AND RECCOUNT('trul_obinv') = 0
|
||
* pageframe rulaje este afisat
|
||
* daca nu exista inregistrari in trul sau trul_obinv, ascund pageframe-ul rulaje
|
||
* si maresc gridul cu note contabile
|
||
This.afiseaza_rulaje()
|
||
ENDIF
|
||
This.resize_grid1()
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE sincronizeaza_nnir
|
||
*!* propaga NNIR-ul modificat pe toate liniile notei si pe rulajele asociate
|
||
LPARAMETERS tnNnirVechi, tnNnirNou
|
||
LOCAL lcSelect, lnRecno
|
||
IF NVL(m.tnNnirVechi, 0) = NVL(m.tnNnirNou, 0)
|
||
RETURN
|
||
ENDIF
|
||
lcSelect = SELECT()
|
||
lnRecno = RECNO('tact')
|
||
UPDATE tact SET nnir = m.tnNnirNou WHERE NVL(nnir, 0) = m.tnNnirVechi
|
||
IF USED('trul')
|
||
UPDATE trul SET nnir = m.tnNnirNou WHERE NVL(nnir, 0) = m.tnNnirVechi
|
||
IF _TALLY > 0
|
||
Thisform.pgfArticole.page1.grdRulaje.Refresh()
|
||
ENDIF
|
||
ENDIF
|
||
IF USED('trul_obinv')
|
||
UPDATE trul_obinv SET nnir = m.tnNnirNou WHERE NVL(nnir, 0) = m.tnNnirVechi
|
||
IF _TALLY > 0
|
||
Thisform.pgfArticole.page2.grdRulajeObinv.Refresh()
|
||
ENDIF
|
||
ENDIF
|
||
SELECT tact
|
||
IF BETWEEN(m.lnRecno, 1, RECCOUNT('tact'))
|
||
GO m.lnRecno
|
||
ELSE
|
||
GO TOP
|
||
ENDIF
|
||
SELECT (m.lcSelect)
|
||
ENDPROC
|
||
|
||
PROCEDURE updateexplicatiesaft
|
||
* Daca nu este activata SAFT 406 nu fac nimic
|
||
IF !m.gl406
|
||
RETURN
|
||
ENDIF
|
||
|
||
Local loPartenerRTVAI As "empty"
|
||
Local loPartenerRTVAIX As "empty"
|
||
Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect, llN50, llN100, llNeexigibil
|
||
LOCAL ARRAY laNesosit[1]
|
||
|
||
lcSelect = SELECT()
|
||
|
||
|
||
ldDataAct = tAct.dataact
|
||
lnIdJtva = tAct.id_jtva_coloana
|
||
llFurnizorRTVAI = .F.
|
||
lnIdPart = Nvl(tAct.id_partc, tAct.id_partd)
|
||
lnIdSet = Thisform.nid_set
|
||
|
||
* llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA"
|
||
llN50 = .F. && (m.lnIdSet = 10609) && limitare deducere 50%
|
||
llN100 = .F. && (m.lnIdSet = 10647) && limitare deducere 100%
|
||
|
||
SELECT COUNT(*) as nr FROM tAct WHERE LEFT(scd,3) = '418' OR LEFT(scc,3) = '408' INTO ARRAY laNesosit
|
||
llNeexigibil = (laNesosit[1] > 0) && factura neintocmita/nesosita
|
||
|
||
lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart, m.llN50, m.llN100, m.llNeexigibil)
|
||
Replace taxcode With m.lnTaxCode In tAct
|
||
|
||
This.grid1.column42._combobox1.ForeColor = RGB(255,0,0)
|
||
This.grid1.column42.Refresh()
|
||
|
||
SELECT (m.lcSelect)
|
||
ENDPROC
|
||
|
||
PROCEDURE updateexplicatiesaftrul
|
||
* Daca nu este activata SAFT 406 nu fac nimic
|
||
IF !m.gl406
|
||
RETURN
|
||
ENDIF
|
||
|
||
Local loPartenerRTVAI As "empty"
|
||
Local loPartenerRTVAIX As "empty"
|
||
Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect, llN50, llN100, llNeexigibil
|
||
LOCAL ARRAY laNesosit[1]
|
||
|
||
lcSelect = SELECT()
|
||
|
||
|
||
ldDataAct = tAct.dataact
|
||
lnIdJtva = trul.id_jtva_coloana
|
||
llFurnizorRTVAI = .F.
|
||
lnIdPart = Nvl(tAct.id_partc, tAct.id_partd)
|
||
lnIdSet = Thisform.nid_set
|
||
|
||
* llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA"
|
||
llN50 = .F. && (m.lnIdSet = 10609) && limitare deducere 50%
|
||
llN100 = .F. && (m.lnIdSet = 10647) && limitare deducere 100%
|
||
|
||
SELECT COUNT(*) as nr FROM tAct WHERE LEFT(scd,3) = '418' OR LEFT(scc,3) = '408' INTO ARRAY laNesosit
|
||
llNeexigibil = (laNesosit[1] > 0) && factura neintocmita/nesosita
|
||
|
||
lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart, m.llN50, m.llN100, m.llNeexigibil)
|
||
Replace taxcode With m.lnTaxCode In tRul
|
||
|
||
This.pgfArticole.page1.grdRulaje.cTaxCode.ForeColor = RGB(255,0,0)
|
||
This.pgfArticole.page1.grdRulaje.cTaxCode.Refresh()
|
||
|
||
SELECT (m.lcSelect)
|
||
ENDPROC
|
||
|
||
PROCEDURE valideaza_data
|
||
Lparameters tcTipData
|
||
&& tcTipdata: dataact, dataireg
|
||
|
||
Local lcTipData, llReturn
|
||
lcTipData = Lower(Alltrim(tcTipData))
|
||
|
||
llReturn=.T.
|
||
Do Case
|
||
Case lcTipData = 'dataireg'
|
||
If !(Month(dataireg) = gnLuna And Year(dataireg) = gnAn)
|
||
amessagebox("Data inregistrarii trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
|
||
llReturn=.F.
|
||
Endif
|
||
Case lcTipData = 'dataact'
|
||
If !((Month(dataact)<= gnLuna And Year(dataact) = gnAn) Or Year(dataact)<gnAn)
|
||
amessagebox("Data act trebuie sa fie inainte sau in luna "+Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
|
||
llReturn=.F.
|
||
ELSE
|
||
If Empty(Nvl(datascad, {}))
|
||
Replace datascad With Gomonth(dataact,1)
|
||
ENDIF
|
||
ENDIF
|
||
Endcase
|
||
|
||
Return llReturn
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE VerificaAvertizareExigibilizareTVA
|
||
Local llKillSwitch, lcValOpt, lcSql, lcCursor, lnSucces, lnNrFacturi, lcMesaj, lnRasp
|
||
Local lnRecno, lnCntSalvat, lnJ
|
||
Local Array laAlesOrig(1,2)
|
||
|
||
If !(Type('tact.id_factd') = 'N' And Type('tact.id_factc') = 'N' And Type('tact.id_fact') = 'N' And Type('tact.tipnota') = 'N' And Type('tact.ales') = 'L' And Type('tact.scd') = 'C' And Type('tact.scc') = 'C')
|
||
Return .T.
|
||
Endif
|
||
|
||
If This.lAvertizatExigibilizare
|
||
Return .T.
|
||
Endif
|
||
|
||
Try
|
||
llKillSwitch = (Alltrim(Nvl(getini(gcGeneralIniFile, 'tva', 'avertizare_exigibilizare'), '')) == '0')
|
||
If !llKillSwitch And 'OINIT_OPTIUNI' $ Upper(Set('Procedure'))
|
||
lcValOpt = ''
|
||
If Used('crsOptiuniUtilizator')
|
||
lcValOpt = Alltrim(Nvl(citeste_optiune_utilizator('RC_TVA_AVERT_EXIGIB'), ''))
|
||
Endif
|
||
If Empty(lcValOpt) And Used('crsOptiuni')
|
||
lcValOpt = Alltrim(Nvl(citeste_optiune('RC_TVA_AVERT_EXIGIB'), ''))
|
||
Endif
|
||
llKillSwitch = (lcValOpt == '0')
|
||
Endif
|
||
If llKillSwitch
|
||
Return .T.
|
||
Endif
|
||
Catch
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la citirea optiunii, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
Try
|
||
Select Distinct id_factd As id_fact From tact Where id_factd > 0 And Left(Nvl(scc,''),1) = '5' Into Cursor crsCandidDTVAEx Readwrite
|
||
Select Distinct id_factc As id_fact From tact Where id_factc > 0 And Left(Nvl(scd,''),1) = '5' Into Cursor crsCandidCTVAEx Readwrite
|
||
Select id_fact From crsCandidDTVAEx Union Select id_fact From crsCandidCTVAEx Into Cursor crsCandidTVAEx Readwrite
|
||
Use In crsCandidDTVAEx
|
||
Use In crsCandidCTVAEx
|
||
Catch
|
||
If Used('crsCandidDTVAEx')
|
||
Use In crsCandidDTVAEx
|
||
Endif
|
||
If Used('crsCandidCTVAEx')
|
||
Use In crsCandidCTVAEx
|
||
Endif
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la colectarea facturilor din nota, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
If Reccount('crsCandidTVAEx') = 0
|
||
Use In crsCandidTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
Try
|
||
Select Distinct id_fact From tact Where tipnota = 1 And id_fact > 0 Into Cursor crsAcopTVAEx Readwrite
|
||
Select crsCandidTVAEx.id_fact From crsCandidTVAEx Left Join crsAcopTVAEx On crsCandidTVAEx.id_fact = crsAcopTVAEx.id_fact Where Isnull(crsAcopTVAEx.id_fact) Into Cursor crsNeacopTVAEx Readwrite
|
||
Use In crsCandidTVAEx
|
||
Use In crsAcopTVAEx
|
||
Catch
|
||
If Used('crsCandidTVAEx')
|
||
Use In crsCandidTVAEx
|
||
Endif
|
||
If Used('crsAcopTVAEx')
|
||
Use In crsAcopTVAEx
|
||
Endif
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la suprimarea platilor acoperite, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
If Reccount('crsNeacopTVAEx') = 0
|
||
Use In crsNeacopTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
If Type('goExecutor') <> 'O' Or goExecutor.nHandle <= 0
|
||
Use In crsNeacopTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
lcSql = ;
|
||
[SELECT id_fact FROM VJC2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
|
||
[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0] + ;
|
||
[ UNION SELECT id_fact FROM VJV2025 WHERE an = ] + Transform(gnAn) + [ AND luna = ] + Transform(gnLuna) + ;
|
||
[ AND tva_incasare = 1 AND (ro24nb+ro24nt+ro20nb+ro20nt+ro21nb+ro21nt+ro11nb+ro11nt+ro19nb+ro19nt+ro9nb+ro9nt+ro5nb+ro5nt) <> 0]
|
||
lcCursor = Sys(2015)
|
||
lnSucces = 0
|
||
Try
|
||
lnSucces = goExecutor.oExecute(lcSql, lcCursor, .F., '', 0, .F., .F., .F.)
|
||
Catch
|
||
lnSucces = -1
|
||
Endtry
|
||
|
||
If lnSucces < 0
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: interogare esuata - ' + Nvl(goExecutor.cEroare,''), 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Use In crsNeacopTVAEx
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
Return .T.
|
||
Endif
|
||
|
||
Try
|
||
Select crsNeacopTVAEx.id_fact From crsNeacopTVAEx Inner Join (lcCursor) tvaex On crsNeacopTVAEx.id_fact = tvaex.id_fact Into Cursor crsFinalTVAEx Readwrite
|
||
Catch
|
||
If Type('goLog') = 'O'
|
||
goLog.Log('Avertizare exigibilizare TVA la incasare: eroare la intersectia locala, verificare sarita', 'VerificaAvertizareExigibilizareTVA')
|
||
Endif
|
||
Use In crsNeacopTVAEx
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
Return .T.
|
||
Endtry
|
||
|
||
Use In crsNeacopTVAEx
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
|
||
lnNrFacturi = Reccount('crsFinalTVAEx')
|
||
If lnNrFacturi = 0
|
||
Use In crsFinalTVAEx
|
||
Return .T.
|
||
Endif
|
||
|
||
Index On id_fact Tag id_fact
|
||
|
||
lcMesaj = 'Exista ' + Transform(lnNrFacturi) + ' facturi cu TVA la incasare pentru care nu s-a adaugat nota de TVA exigibilizat.' + Chr(13) + Chr(13) + ;
|
||
'Da = adaugati acum notele de TVA exigibilizat si ramaneti in formular, ca sa le verificati.' + Chr(13) + ;
|
||
'Nu = continuati salvarea fara sa adaugati notele.' + Chr(13) + ;
|
||
'Anulare = renuntati, nu salvati.'
|
||
lnRasp = Amessagebox(lcMesaj, 3+32, 'TVA la incasare - exigibilizare')
|
||
This.lAvertizatExigibilizare = (lnRasp <> 2)
|
||
|
||
If lnRasp = 6
|
||
Select tact
|
||
lnRecno = Recno()
|
||
lnCntSalvat = 0
|
||
Dimension laAlesOrig(Reccount('tact'), 2)
|
||
Scan
|
||
lnCntSalvat = lnCntSalvat + 1
|
||
laAlesOrig(lnCntSalvat, 1) = Recno()
|
||
laAlesOrig(lnCntSalvat, 2) = ales
|
||
Replace ales With (id_factd > 0 And Left(Nvl(scc,''),1) = '5' And Seek(id_factd, 'crsFinalTVAEx')) Or (id_factc > 0 And Left(Nvl(scd,''),1) = '5' And Seek(id_factc, 'crsFinalTVAEx'))
|
||
Endscan
|
||
Thisform.do_adauga_tva_exigibil()
|
||
Select tact
|
||
For lnJ = 1 To lnCntSalvat
|
||
Try
|
||
Go laAlesOrig(lnJ, 1)
|
||
Replace ales With laAlesOrig(lnJ, 2)
|
||
Catch
|
||
Endtry
|
||
Endfor
|
||
Try
|
||
Go lnRecno
|
||
Catch
|
||
Go Top
|
||
Endtry
|
||
Endif
|
||
|
||
Use In crsFinalTVAEx
|
||
|
||
Return (lnRasp = 7)
|
||
ENDPROC
|
||
|
||
PROCEDURE But_modificaR.Click
|
||
Local lcRul
|
||
|
||
lcRul = IIF(thisform.pgfArticole.ActivePage = 1, 'trul', 'trul_obinv')
|
||
thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, m.lcRul)
|
||
ENDPROC
|
||
|
||
PROCEDURE cmdSelect.Click
|
||
Local lnRecno
|
||
Select tAct
|
||
lnRecno = Recno()
|
||
|
||
If This.Caption = 'Selecteaza tot'
|
||
Replace All ales With .T.
|
||
This.Caption = 'Deselecteaza tot'
|
||
Else
|
||
Replace All ales With .F.
|
||
This.Caption = 'Selecteaza tot'
|
||
Endif
|
||
|
||
Select tAct
|
||
Try
|
||
Goto m.lnRecno
|
||
Catch
|
||
Go Top
|
||
Endtry
|
||
ENDPROC
|
||
|
||
PROCEDURE cnomenclator.Click
|
||
thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Command1.Click
|
||
Thisform.alege_partener("D")
|
||
*!* PRIVATE pcCont
|
||
*!* LOCAL lnIdPartd, lnrezultat,lnsucces
|
||
|
||
*!* Select tact
|
||
*!* pcCont = ALLTRIM(Nvl(tact.scd,''))
|
||
*!* If Empty(pcCont)
|
||
*!* Return
|
||
*!* ENDIF
|
||
*!* lnIdPartd = id_partd
|
||
|
||
*!* lnrezultat=0
|
||
*!* lnsucces=0
|
||
*!* lcSql="select count(*) from config_cont_ireg where cont = &pcCont"
|
||
*!* lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
|
||
|
||
*!* If lnsucces=1
|
||
*!* If lnrezultat>0
|
||
*!* locauta = Thisform.do_cauta(pcCont)
|
||
*!* If gnButon = 1
|
||
*!* lnid_part=locauta.id_part
|
||
*!* lcnume=Alltrim(locauta.nume)
|
||
*!* Select tact
|
||
*!* Replace id_partd With lnid_part, partd With lcnume
|
||
*!* IF lnIdPartd <> lnid_part
|
||
*!* Select tact
|
||
*!* Replace pereched WITH 0, id_factd WITH 0
|
||
*!* ENDIF
|
||
*!* Endif
|
||
*!* Else
|
||
*!* AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
|
||
*!* Endif
|
||
*!* Else
|
||
*!* AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
|
||
*!* Endif
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command2.Click
|
||
Thisform.alege_partener("C")
|
||
|
||
*!* PRIVATE pcCont
|
||
*!* Local lnIdPartc, lnrezultat,lnsucces
|
||
|
||
*!* Select tact
|
||
*!* pcCont = ALLTRIM(Nvl(tact.scc, ''))
|
||
*!* If Empty(pcCont)
|
||
*!* Return
|
||
*!* Endif
|
||
*!* lnIdPartc = id_partc
|
||
*!* lnrezultat=0
|
||
*!* lnsucces=0
|
||
*!* lcSql="select count(*) from config_cont_ireg where cont = ?pcCont"
|
||
*!* lnsucces=goExecutor.oSelect2Value(lcSql,@lnrezultat)
|
||
*!* If lnsucces=1
|
||
*!* If lnrezultat>0
|
||
*!* locauta = Thisform.do_cauta(pcCont)
|
||
*!* If gnButon = 1
|
||
*!* lnid_part=locauta.id_part
|
||
*!* lcnume=Alltrim(locauta.nume)
|
||
*!* Select tact
|
||
*!* Replace id_partc With lnid_part, partc With lcnume
|
||
*!* IF lnIdPartc <> lnid_part
|
||
*!* Select tact
|
||
*!* Replace perechec WITH 0, id_factc WITH 0
|
||
*!* ENDIF
|
||
*!* Endif
|
||
*!* ELSE
|
||
*!* AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
|
||
*!* ENDIF
|
||
*!* ELSE
|
||
*!* AMESSAGEBOX(goExecutor.oPrelucrareEroare(), 0 + 16 ,"Eroare")
|
||
*!* Endif
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Command3.Click
|
||
PARAMETERS tnFel
|
||
LOCAL lcSel, lnRecno
|
||
|
||
IF PCOUNT()<1
|
||
tnFel = thisform.fel_compensare
|
||
ENDIF
|
||
|
||
tnFel = 1 && PASIV / DEBIT 401 = 5121
|
||
|
||
lcSel = thisform.grid1.RecordSource
|
||
SELECT (lcSel)
|
||
SCATTER NAME odoc
|
||
lnRecno = RECNO()
|
||
&& 0 = ACTIV
|
||
&& 1 = PASIV
|
||
*thisform.aleg_document_pereche(tnFel,odoc)
|
||
DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
|
||
SELECT (m.lcSel)
|
||
TRY
|
||
GOTO m.lnRecno
|
||
CATCH
|
||
GO TOP
|
||
ENDTRY
|
||
thisform.grid1.SetFocus
|
||
RELEASE odoc
|
||
ENDPROC
|
||
|
||
PROCEDURE Command4.Click
|
||
Thisform.do_modifica_explicatie_tva()
|
||
ENDPROC
|
||
|
||
PROCEDURE Command5.Click
|
||
Thisform.do_adauga_tva_exigibil()
|
||
ENDPROC
|
||
|
||
PROCEDURE Command6.Click
|
||
PARAMETERS tnFel
|
||
LOCAL lcSel, lnRecno
|
||
|
||
IF PCOUNT()<1
|
||
tnFel = thisform.fel_compensare
|
||
ENDIF
|
||
|
||
tnFel = 0 && ACTIV / CREDIT 5121 = 4111
|
||
|
||
lcSel = thisform.grid1.RecordSource
|
||
SELECT (lcSel)
|
||
SCATTER NAME odoc
|
||
lnRecno = RECNO()
|
||
&& 0 = ACTIV
|
||
&& 1 = PASIV
|
||
*thisform.aleg_document_pereche(tnFel,odoc)
|
||
DO aleg_document_pereche WITH tnFel,odoc,lcSel IN oOperatii_comune.prg
|
||
SELECT (m.lcSel)
|
||
TRY
|
||
GOTO m.lnRecno
|
||
CATCH
|
||
GO TOP
|
||
ENDTRY
|
||
thisform.grid1.SetFocus
|
||
RELEASE odoc
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.AfterRowColChange
|
||
*!* 10.08.2011
|
||
*!* marius.mutu
|
||
*!* id-urile sunt readonly - nu se pot completa direct
|
||
|
||
*!* 18.04.2013
|
||
*!* dezactivez butonul de copiere pentru inregistrarile TVA incasare
|
||
*!* sa nu se copie ID_FACT din greseala
|
||
|
||
*!* 20.12.2013
|
||
*!* se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
|
||
|
||
*!* 07.05.2021
|
||
*!* am adaugat buton separat document platit/incasat
|
||
|
||
Lparameters nColIndex
|
||
|
||
*** se pot modifica inregistrari pe firma mama sau daca inregistrarile apartin sucursalei curente sau daca editez un set de note definit de utilizator
|
||
llReadOnly = !(m.glEMama OR NVL(m.gnIdSucursala,0) = NVL(tAct.id_sucursala,0) OR Type('thisform.oSet') = 'O')
|
||
|
||
This.SetAll("ReadOnly", m.llReadOnly, "Column")
|
||
*!* 10.08.2011
|
||
*** nu vreau sa completeze id-urile direct
|
||
WITH This
|
||
.Column30.ReadOnly = .T. && id_partd
|
||
.Column31.ReadOnly = .T. && id_partc
|
||
.Column38.ReadOnly = .T. && id_fact
|
||
.Column39.ReadOnly = .T. && id_factd
|
||
.Column40.ReadOnly = .T. && id_factc
|
||
.Column35.ReadOnly = .T. && cod
|
||
.Column25.ReadOnly = .T. && id_set
|
||
ENDWITH
|
||
*!* pastreaza blocarea NNIR pentru notele de inventar (id_set = 90101)
|
||
IF Thisform.nid_set = 90101
|
||
This.Column44.ReadOnly = .T.
|
||
ENDIF
|
||
*!* 10.08.2011 ^
|
||
*!* pot selecta inregistrari din alte sucursale pentru operatiile de copiere, adaugare care
|
||
This.cAles.ReadOnly = .F.
|
||
IF m.llReadOnly
|
||
Thisform.cnomenclator.Enabled = .F.
|
||
Thisform.command1.Enabled = .F.
|
||
Thisform.command2.Enabled = .F.
|
||
Thisform.command3.Enabled = .F. && PERECHE D
|
||
Thisform.command6.Enabled = .F. && PERECHE C
|
||
Thisform.command4.Enabled = .F.
|
||
Thisform.command5.Enabled = .F. && modificare ROACONT v 2.4.4
|
||
thisform.chkTVAEx.Enabled = .F.
|
||
ELSE
|
||
If Thisform.pncolumnorder = nColIndex
|
||
Thisform.cnomenclator.Enabled = .T.
|
||
Else
|
||
Thisform.cnomenclator.Enabled = .F.
|
||
Endif
|
||
|
||
If tact.cu_tva = 1
|
||
Thisform.command4.Enabled = .T.
|
||
Else
|
||
Thisform.command4.Enabled = .F.
|
||
Endif
|
||
|
||
Thisform.command3.Caption = [Doc. platit cont ]+ Alltrim(NVL(tact.scd,'')) + ;
|
||
IIF(!EMPTY(tact.pereched), ' (' + ALLTRIM(TRANSFORM(tact.pereched)) + ')', '')
|
||
Thisform.command3.Enabled = !(EMPTY(tact.id_partd) OR EMPTY(tact.scd))
|
||
|
||
Thisform.command6.Caption = [Doc. incasat cont ]+ Alltrim(NVL(tact.scc,'')) + ;
|
||
IIF(!EMPTY(tact.perechec), ' (' + ALLTRIM(TRANSFORM(tact.perechec)) + ')', '')
|
||
Thisform.command6.Enabled = !(EMPTY(tact.id_partc) OR EMPTY(tact.scc))
|
||
|
||
*!* If [pereche]$Lower(Thisform.pccontrol)
|
||
*!* Thisform.command3.Enabled = .T.
|
||
*!* If [pereched]$Lower(Thisform.pccontrol)
|
||
*!* Thisform.fel_compensare = 1
|
||
*!* Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scd,''))
|
||
*!* Else
|
||
*!* Thisform.fel_compensare = 0
|
||
*!* Thisform.command3.Caption = [Nr.Doc.Pereche Cont ]+ Alltrim(NVL(scc,''))
|
||
*!* Endif
|
||
*!* Else
|
||
*!* Thisform.command3.Enabled = .F.
|
||
*!* Thisform.command3.Caption = [Nr.Doc.Pereche]
|
||
*!* ENDIF
|
||
|
||
*!* modificare ROACONT v 2.4.4
|
||
*** activez butonul TVA Incasare doar pentru incasari/plati sau pentru linia de TVA incasare
|
||
if tact.scc = [4428] or tact.scd = [4428] or tact.id_factd > 0 or tact.id_factc > 0
|
||
Thisform.command5.Enabled = .T.
|
||
thisform.chkTVAEx.Enabled = .T.
|
||
else
|
||
Thisform.command5.Enabled = .F.
|
||
thisform.chkTVAEx.Enabled = .F.
|
||
endif
|
||
*!* modificare ROACONT v 2.4.4 ^
|
||
|
||
*** dezactivez butonul de copiere pentru inregistrarile TVA incasare
|
||
*** sa nu se copie ID_FACT din greseala
|
||
if (tact.scd = [4428] and tact.scc = [4427] and !empty(nvl(perechec,0))) or (tact.scd = [4426] and tact.scd = [4428] and !empty(nvl(pereched,0)))
|
||
Thisform.but_copiaza1.Enabled = .F.
|
||
else
|
||
Thisform.but_copiaza1.Enabled = .T.
|
||
endif
|
||
|
||
|
||
ENDIF && llReadOnly
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.BeforeRowColChange
|
||
LPARAMETERS nColIndex
|
||
IF thisform.pncolumnorder # nColIndex
|
||
STORE [] TO thisform.pccontrol
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column10.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
LOCAL lnIdPart
|
||
lnIdPart = Thisform.alege_partener("C")
|
||
IF NVL(lnIdPart,0) = 0
|
||
REPLACE partc WITH "", id_partc WITH 0 IN tAct
|
||
ENDIF
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column10.Text1.LostFocus
|
||
If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
If Empty(Nvl(tact.partc,''))
|
||
Thisform.alege_partener("C", .T.)
|
||
Endif
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column13.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column13.Text1.InteractiveChange
|
||
thisform.command3.Click(1)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x15'
|
||
thisform.pnid_item = 15
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column15.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x13'
|
||
thisform.pnid_item = 13
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column16.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x14'
|
||
thisform.pnid_item = 14
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column17.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column2.Text1.Valid
|
||
Local llValid
|
||
llValid = thisform.valideaza_data("dataireg")
|
||
IF !llValid
|
||
RETURN 0
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column20.Text1.LostFocus
|
||
SELECT tact
|
||
IF !EMPTY(suma_val) OR !EMPTY(curs)
|
||
REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column21.Text1.LostFocus
|
||
SELECT tact
|
||
IF !EMPTY(suma_val) OR !EMPTY(curs)
|
||
REPLACE suma WITH ROUND(suma_val*curs, m.gnPA)
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column22.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x9'
|
||
thisform.pnid_item = 9
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column22.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.Click
|
||
this.LostFocus(.t.)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.LostFocus
|
||
Parameters PlClick
|
||
Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
|
||
Select tAct
|
||
lcCont = Alltrim(scd)
|
||
lcAcont = Alltrim(ascd)
|
||
lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
|
||
lnRecno = Recno('tAct')
|
||
|
||
llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascd', 'tact') && in oOperatii_comune.prg
|
||
|
||
If m.llReturn
|
||
Select tAct
|
||
lcAcont = Alltrim(tAct.ascd) && se poate modifica dupa ce verific_analitic()
|
||
Locate For ales
|
||
IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Replace All ascd With m.lcAcont For ales And Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
|
||
ELSE
|
||
If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
|
||
Replace All ascd With m.lcAcont For Alltrim(scd) == m.lcCont And Alltrim(Nvl(ascd, '')) == m.lcAcontOriginal
|
||
ENDIF
|
||
ENDIF
|
||
Goto lnRecno
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column23.Text1.When
|
||
Thisform.cAcont = tAct.ascd
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.Click
|
||
this.LostFocus(.t.)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.LostFocus
|
||
Parameters PlClick
|
||
Local lcAcont, lcAcontOriginal, lcCont, llReturn, lnRecno
|
||
Select tAct
|
||
lcCont = Alltrim(scc)
|
||
lcAcont = Alltrim(ascc)
|
||
lcAcontOriginal = Alltrim(Nvl(Thisform.cAcont, ''))
|
||
lnRecno = Recno('tAct')
|
||
|
||
llReturn = verific_analitic(PlClick, lcCont, lcAcont, 'ascc', 'tact') && in oOperatii_comune.prg
|
||
|
||
If m.llReturn
|
||
|
||
Select tAct
|
||
lcAcont = Alltrim(tAct.ascc) && se poate modifica dupa ce verific_analitic()
|
||
Locate For ales
|
||
IF FOUND() AND AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcCont + '.' + m.lcAcont + ' in toate inregistrarile selectate cu contul ' + m.lcCont + '.' + m.lcAcontOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Replace All ascc With m.lcAcont For ales And Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
|
||
ELSE
|
||
If Thisform.chkCtAnalitic.Value = 1 && copiez contul analitic pe randurile fara analitic ale aceluiasi cont
|
||
Replace All ascc With m.lcAcont For Alltrim(scc) == m.lcCont And Alltrim(Nvl(ascc, '')) == m.lcAcontOriginal
|
||
ENDIF
|
||
ENDIF
|
||
Goto lnRecno
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column24.Text1.When
|
||
Thisform.cAcont = tAct.ascc
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column27.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column27.Text1.InteractiveChange
|
||
thisform.command6.Click(0)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x16'
|
||
thisform.pnid_item = 16
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column28.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x11'
|
||
thisform.pnid_item = 11
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column29.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x2'
|
||
thisform.pnid_item = 2
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column3.Text1.LostFocus
|
||
*thisform.cnomenclator.Enabled = .F.
|
||
IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
IF EMPTY(NVL(tact.fdoc,''))
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column32.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x10'
|
||
thisform.pnid_item = 10
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column32.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.GotFocus
|
||
*!* 08.02.2007 sa nu se modifice sucursala - se seteaza automat in baza de date in oscrie_in_fisiere.prg
|
||
|
||
*!* SELECT x_item FROM xitems WHERE ALLTRIM(UPPER(label_item)) == 'SUCURSALA' INTO CURSOR crsItem
|
||
*!* SELECT crsItem
|
||
*!* IF RECCOUNT() = 0 OR EMPTY(x_item)
|
||
*!* thisform.pcx_item = 'x29' && XITEM DIN CONTABILITATE
|
||
*!* ELSE
|
||
*!* thisform.pcx_item = x_item && 'x32' IN XITEM DIN GESTIUNI
|
||
*!* ENDIF
|
||
*!* USE IN crsItem
|
||
|
||
*!* thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
*!* thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
|
||
*!* 08.02.2007 ^
|
||
*!* 24.05.2011
|
||
*!* marius.mutu
|
||
*!* in pack_contafin.scrie_in_act nu se mai suprascrie id_sucursala completat
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x31'
|
||
thisform.pnid_item = 68
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
*!* 24.05.2011 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.InteractiveChange
|
||
*!* 24.05.2011
|
||
*!* marius.mutu
|
||
*!* se poate modifica sucursala doar daca sunt in mama
|
||
*!* altfel nu se refac corect balantele, inregistrarile
|
||
IF m.glEMama
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDIF
|
||
*!* 24.05.2011 ^
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column33.Text1.When
|
||
*!* 24.05.2011
|
||
*!* marius.mutu
|
||
*!* se poate modifica sucursala doar daca sunt in mama
|
||
*!* altfel nu se refac corect balantele, inregistrarile
|
||
RETURN m.glEMama
|
||
*!* 24.05.2011 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column34.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x70'
|
||
thisform.pnid_item = 70
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column34.Text1.InteractiveChange
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column35.Text1.InteractiveChange
|
||
Thisform.do_modifica_explicatie_tva()
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column36._CHECKBOX1.Click
|
||
If tact.cu_tva = 1
|
||
Thisform.command4.Enabled = .T.
|
||
Else
|
||
Thisform.command4.Enabled = .F.
|
||
Replace id_jtva_coloana With NULL, explicatie_Tva With '', proc_tva With 0, taxcode WITH NULL IN tact
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column36._CHECKBOX1.KeyPress
|
||
Lparameters nKeyCode, nShiftAltCtrl
|
||
If nKeyCode=13
|
||
Nodefault
|
||
This.Parent.Parent.column26.SetFocus()
|
||
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column4.Text1.Valid
|
||
Local llValid
|
||
llValid = thisform.valideaza_data("dataact")
|
||
IF !llValid
|
||
RETURN 0
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column42._combobox1.Valid
|
||
Local lnTaxCodeNou, lnTaxCodeOriginal, lnRecno
|
||
|
||
Select tact
|
||
lnRecno = Recno()
|
||
|
||
lnTaxCodeOriginal = thisform.nTaxCode
|
||
lnTaxCodeNou = tAct.taxcode
|
||
|
||
If NVL(m.lnTaxCodeNou,0) <> NVL(m.lnTaxCodeOriginal,0)
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de taxa "' + TRANSFORM(m.lnTaxCodeOriginal) + '" in toate inregistrarile selectate cu codul "' + TRANSFORM(m.lnTaxCodeNou) + '"?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace taxcode With m.lnTaxCodeNou For NVL(taxcode,0) = NVL(m.lnTaxCodeOriginal,0) And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN .T.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column42._combobox1.When
|
||
Thisform.nTaxCode = tAct.taxcode
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column43._combobox1.LostFocus
|
||
This.ForeColor = RGB(0,0,0)
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column43._combobox1.Valid
|
||
Local lcPaymentCodeNou, lcPaymentCodeOriginal, lnRecno
|
||
|
||
Select tact
|
||
lnRecno = Recno()
|
||
|
||
lcPaymentCodeOriginal = thisform.cPaymentCode
|
||
lcPaymentCodeNou = ALLTRIM(tAct.paymentcode)
|
||
|
||
If NVL(m.lcPaymentCodeNou, '') <> NVL(m.lcPaymentCodeOriginal, '')
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti codul de plata "' + m.lcPaymentCodeOriginal + '" in toate inregistrarile selectate cu codul "' + m.lcPaymentCodeNou + '"?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace paymentcode With m.lcPaymentCodeNou For Alltrim(NVL(paymentcode,'')) = ALLTRIM(NVL(m.lcPaymentCodeOriginal, '')) And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN .T.
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column43._combobox1.When
|
||
thisform.cPaymentCode = ALLTRIM(tAct.paymentcode)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column44.Text1.LostFocus
|
||
Local lnNnirNou, lnNnirVechi
|
||
lnNnirVechi = thisform.nnnirvechi
|
||
lnNnirNou = NVL(tAct.nnir, 0)
|
||
Thisform.sincronizeaza_nnir(m.lnNnirVechi, m.lnNnirNou)
|
||
Thisform.nnnirvechi = m.lnNnirNou
|
||
Thisform.Grid1.Refresh()
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column44.Text1.When
|
||
Thisform.nnnirvechi = NVL(tAct.nnir, 0)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column6.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
LOCAL lnIdPart
|
||
lnIdPart = Thisform.alege_partener("D")
|
||
IF NVL(lnIdPart,0) = 0
|
||
REPLACE partd WITH "", id_partd WITH 0 IN tAct
|
||
ENDIF
|
||
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column6.Text1.LostFocus
|
||
If !Pemstatus(This,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
If Empty(Nvl(tact.partd,''))
|
||
Thisform.alege_partener("D", .T.)
|
||
Endif
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column7.Text1.LostFocus
|
||
Local lcContNou, lcContOriginal, llReturn, lnRecno
|
||
lcContOriginal = Thisform.cCont
|
||
lcContNou = Alltrim(scd)
|
||
If Empty(m.lcContNou)
|
||
Return
|
||
Endif
|
||
llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
|
||
IF !m.llReturn
|
||
RETURN m.llReturn
|
||
ENDIF
|
||
Select tact
|
||
lnRecno = Recno()
|
||
lcContNou = Alltrim(scd) && se poate modifica dupa verificarea in planul de conturi
|
||
If m.lcContNou <> m.lcContOriginal
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace scd With m.lcContNou For Alltrim(scd) = m.lcContOriginal And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN m.llReturn
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column7.Text1.When
|
||
Thisform.cCont = ALLTRIM(tact.scd)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column8.Text1.LostFocus
|
||
Local lcContNou, lcContOriginal, llReturn, lnRecno
|
||
lcContOriginal = Thisform.cCont
|
||
lcContNou = Alltrim(scc)
|
||
If Empty(m.lcContNou)
|
||
Return
|
||
Endif
|
||
llReturn = exista_cont_in_plan_conturi(m.lcContNou) && in oOperatii_comune.prg
|
||
IF !m.llReturn
|
||
RETURN m.llReturn
|
||
ENDIF
|
||
Select tact
|
||
lnRecno = Recno()
|
||
lcContNou = Alltrim(scc) && se poate modifica dupa verificarea in planul de conturi
|
||
If m.lcContNou <> m.lcContOriginal
|
||
Locate For ales
|
||
If Found() And AMESSAGEBOX('Doriti sa inlocuiti contul ' + m.lcContNou + ' in toate inregistrarile selectate cu contul ' + m.lcContOriginal + '?' ,4+32,_Screen.Caption) = 6
|
||
Select tact
|
||
Replace scc With m.lcContNou For Alltrim(scc) = m.lcContOriginal And ales
|
||
Endif
|
||
|
||
Goto m.lnRecno
|
||
ENDIF
|
||
|
||
RETURN m.llReturn
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column8.Text1.When
|
||
Thisform.cCont = ALLTRIM(tact.scc)
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column9.Text1.Valid
|
||
IF this.Value <> thisform.nOldSuma
|
||
Thisform.CalculeazaTotal()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Grid1.Column9.Text1.When
|
||
Thisform.nOldSuma = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE Gridextra1.applyfilter
|
||
DODEFAULT()
|
||
Thisform.CalculeazaTotal()
|
||
ENDPROC
|
||
|
||
PROCEDURE Gridextra1.clearfilter
|
||
DODEFAULT()
|
||
Thisform.CalculeazaTotal()
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.AfterRowColChange
|
||
Lparameters nColIndex
|
||
|
||
If Thisform.pncolumnorder = nColIndex
|
||
Thisform.but_modificaR.Enabled = .T.
|
||
Else
|
||
Thisform.but_modificaR.Enabled = .F.
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.BeforeRowColChange
|
||
LPARAMETERS nColIndex
|
||
IF thisform.pncolumnorder # nColIndex
|
||
STORE [] TO thisform.pccontrol
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cCant.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cCant.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cCante.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cCante.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cDenumire.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = ''
|
||
thisform.pnid_item = 101
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cDenumire.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cDenumire.Text1.LostFocus
|
||
IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
IF EMPTY(NVL(trul.denumire,''))
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cExplicatieTVA._combobox1.Valid
|
||
Thisform.UpdateExplicatieSAFTRul()
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cGest.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x9'
|
||
thisform.pnid_item = 9
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cGest.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cGest.Text1.LostFocus
|
||
IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
IF EMPTY(NVL(trul.cgest,''))
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cGestC.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x9'
|
||
thisform.pnid_item = 9
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cGestC.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNresp.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x13'
|
||
thisform.pnid_item = 13
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNresp.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrespC.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x13'
|
||
thisform.pnid_item = 13
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrespC.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x15'
|
||
thisform.pnid_item = 15
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x15'
|
||
thisform.pnid_item = 15
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNrord_rez.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNume_val.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x11'
|
||
thisform.pnid_item = 11
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cNume_val.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = ''
|
||
thisform.pnid_item = 102
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPart_rez.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPret.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPret.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretv.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretv.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cPretvtva.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tva.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cProc_tvav.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cSectie.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x16'
|
||
thisform.pnid_item = 16
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cSectie.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cTva.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cTva.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cTvav.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.cTvav.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE1.grdRulaje.Init
|
||
*Nu sterge
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.AfterRowColChange
|
||
Lparameters nColIndex
|
||
|
||
If Thisform.pncolumnorder = nColIndex
|
||
Thisform.but_modificaR.Enabled = .T.
|
||
Else
|
||
Thisform.but_modificaR.Enabled = .F.
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.BeforeRowColChange
|
||
LPARAMETERS nColIndex
|
||
IF thisform.pncolumnorder # nColIndex
|
||
STORE [] TO thisform.pccontrol
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCant.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cCante.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = ''
|
||
thisform.pnid_item = 101
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cDenumire.Text1.LostFocus
|
||
IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
IF EMPTY(NVL(trul_obinv.denumire,''))
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x9'
|
||
thisform.pnid_item = 9
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGest.Text1.LostFocus
|
||
IF !PEMSTATUS(this,'lInteractiveChange', 5) && daca exista proprietatea, sunt inca in codul din interactivechange si nu vreau sa declansez lostfocus
|
||
IF EMPTY(NVL(trul_obinv.cgest,''))
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x9'
|
||
thisform.pnid_item = 9
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cGestC.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x13'
|
||
thisform.pnid_item = 13
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNresp.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x13'
|
||
thisform.pnid_item = 13
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrespC.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x15'
|
||
thisform.pnid_item = 15
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x15'
|
||
thisform.pnid_item = 15
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNrord_rez.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x11'
|
||
thisform.pnid_item = 11
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cNume_val.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = ''
|
||
thisform.pnid_item = 102
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPart_rez.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPret.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretv.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cPretvtva.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tva.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cProc_tvav.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1.GotFocus
|
||
thisform.pccontrol = ALLTRIM(this.ControlSource)
|
||
thisform.pcx_item = 'x16'
|
||
thisform.pnid_item = 16
|
||
thisform.pncolumnorder = this.Parent.ColumnOrder
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cSectie.Text1.InteractiveChange
|
||
ADDPROPERTY(this, 'lInteractiveChange')
|
||
locauta = thisform.do_modifica(thisform.pcx_item, thisform.pccontrol, thisform.pnid_item, 'trul_obinv')
|
||
REMOVEPROPERTY(this, 'lInteractiveChange')
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTva.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1.Valid
|
||
IF NVL(thisform.oldvalue, 0) <> NVL(this.Value, 0)
|
||
Thisform.calculeaza_valori_rul(this.ControlSource)
|
||
thisform.oldvalue = this.Value
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.cTvav.Text1.When
|
||
thisform.oldvalue = this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE pgfArticole.PAGE2.grdRulajeObinv.Init
|
||
*Nu sterge
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|