Marius Mutu
248ac0e002
La salvarea notei, VerificaAvertizareExigibilizareTVA (identica in frm_modific2007 si frm_modific2024) verifica incasarile si platile cu factura pereche completata si avertizeaza daca vreuna dintre facturile lor cu TVA la incasare nu are inca nota de TVA exigibilizat. Candidatii sunt exact cele doua tipare pe care do_adauga_tva_exigibil le trateaza automat (id_factd > 0 cu scc pe 5xx, id_factc > 0 cu scd pe 5xx); facturile deja acoperite de o linie tipnota = 1 din nota curenta sunt suprimate. Soldul neexigibil se citeste dintr-un singur SELECT peste VJC2025/VJV2025, filtrat pe perioada curenta si pe toate cele 14 coloane de cota. La "Da" se apeleaza do_adauga_tva_exigibil NEMODIFICAT, marcand temporar `ales` doar pe liniile candidate si restaurandu-l dupa; programul ramane in formular, ca notele adaugate sa poata fi verificate. Orice esec (optiune, cursor, SQL) se logheaza si lasa salvarea sa continue. Se poate opri din settings.ini [tva] avertizare_exigibilizare=0 sau din optiunea RC_TVA_AVERT_EXIGIB. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01DhJwsrFFe1ZNAAtS8Twuti
15322 lines
481 KiB
Plaintext
15322 lines
481 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="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: 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: 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
|
||
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 = 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 = 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 = 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 = "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 = 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 = "", ;
|
||
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.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
|
||
|
||
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()
|
||
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 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
|
||
*!* 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
|
||
|
||
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
|