Marius Mutu
77e98d73e9
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
4719 lines
158 KiB
Plaintext
4719 lines
158 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="oconfigurare_seturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS frm_categorii AS frm_gol OF "..\comun\clase\_frm_base.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 319
|
|
Name = "frm_categorii"
|
|
Width = 500
|
|
_shape1.Name = "_shape1"
|
|
_shape2.Name = "_shape2"
|
|
Lb_titlu_alb_b121.Caption = "Editare categorii seturi"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
Gridsort1.Name = "Gridsort1"
|
|
Clb_tx_simplu1.Lb_simplu1.Caption = "Categorie"
|
|
Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1"
|
|
Clb_tx_simplu1.Name = "Clb_tx_simplu1"
|
|
Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1"
|
|
But_nou1.Name = "But_nou1"
|
|
But_sterge1.Name = "But_sterge1"
|
|
But_modifica1.Name = "But_modifica1"
|
|
But_cautare1.Anchor = 8
|
|
But_cautare1.Name = "But_cautare1"
|
|
Gridb1.COLUMN1.ControlSource = "categorie"
|
|
Gridb1.COLUMN1.Header1.Caption = "Categorie"
|
|
Gridb1.COLUMN1.Header1.Name = "Header1"
|
|
Gridb1.COLUMN1.Name = "COLUMN1"
|
|
Gridb1.COLUMN1.Text1.Name = "Text1"
|
|
Gridb1.COLUMN1.Width = 422
|
|
Gridb1.Height = 236
|
|
Gridb1.Left = 24
|
|
Gridb1.Name = "Gridb1"
|
|
Gridb1.Panel = 1
|
|
Gridb1.SplitBar = .F.
|
|
Gridb1.Top = 72
|
|
Gridb1.Width = 461
|
|
*</PropValue>
|
|
|
|
PROCEDURE Init
|
|
DoDefault()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Load
|
|
This.cselect = [select categorie, id_categorie from xsetscategorii order by 2]
|
|
This.ccursor = [crsCategorii]
|
|
this.cprimarykey = [id_categorie]
|
|
this.ccriteriu = [categorie]
|
|
this.cform = [categorii]
|
|
this.ctabela = [xsetscategorii]
|
|
|
|
DoDefault()
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_categorii_nou AS _frmbase OF "..\comun\clase\_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="But_renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 94
|
|
Name = "frm_categorii_nou"
|
|
Width = 333
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 353
|
|
_shape2.Left = 280
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
Lb_titlu_alb_b121.Caption = "Editare categorie"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
BUT_TERMIN1.Left = 303
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Left = 12
|
|
Gridsort1.Name = "Gridsort1"
|
|
Gridsort1.Top = 36
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
|
Left = 274, ;
|
|
Name = "But_renunt1", ;
|
|
Top = 1
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
|
Height = 29, ;
|
|
Left = 24, ;
|
|
Name = "Clb_tx_simplu1", ;
|
|
TabIndex = 1, ;
|
|
Top = 48, ;
|
|
Width = 290, ;
|
|
Text_simplu1.ControlSource = "porec.categorie", ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.Left = 84, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Width = 201, ;
|
|
Lb_simplu1.Caption = "Categorie", ;
|
|
Lb_simplu1.Height = 17, ;
|
|
Lb_simplu1.Left = 8, ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
Lb_simplu1.Top = 6, ;
|
|
Lb_simplu1.Width = 56
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE inainte_de_do_termin
|
|
Local lcSql, lnSucces, lcCategorie
|
|
|
|
lcCategorie = Alltrim(This.clb_tx_simplu1.text_simplu1.Value)
|
|
|
|
If Empty(porec.id_categorie)
|
|
lcSql = [insert into xsetscategorii(categorie) values('] + lcCategorie+ [')]
|
|
Else
|
|
lcSql = [update xsetscategorii set categorie = '] + lcCategorie + ['] + ;
|
|
[ where id_categorie = ?porec.id_categorie]
|
|
Endif
|
|
lnSucces = goExecutor.oExecute(lcSql)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48,[Eroare])
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
Lparameters toRec, tnId, tcActiune
|
|
DODEFAULT()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_configurare AS _frmbase OF "..\comun\clase\_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="But_sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cboCategorii" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_cautare2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridsort2" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: actualizare
|
|
*m: aleg_document_pereche
|
|
*m: calcul_data
|
|
*m: calcul_suma
|
|
*m: dblclickgrid
|
|
*m: do_caut_nomenclator
|
|
*m: do_copiaza
|
|
*m: intainte_de_do_modifica
|
|
*m: refresh_inregistrari
|
|
*m: verificare
|
|
*m: verific_analitic
|
|
*p: ccriteriu
|
|
*p: ccursor
|
|
*p: comanda
|
|
*p: cprimarykey
|
|
*p: cselect
|
|
*p: introducere_libera
|
|
*p: lnuverificcont
|
|
*p: lverificareanalitic
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
ccriteriu = .F.
|
|
ccursor = .F.
|
|
cgridsortlist = gridb1
|
|
comanda = .F.
|
|
cprimarykey = .F.
|
|
cselect = .F.
|
|
DoCreate = .T.
|
|
Height = 397
|
|
introducere_libera = .F.
|
|
lnuverificcont = .F.
|
|
lverificareanalitic = .T.
|
|
Name = "frm_configurare"
|
|
Width = 767
|
|
_SHAPE1.Anchor = 11
|
|
_SHAPE1.Height = 29
|
|
_SHAPE1.Left = 0
|
|
_SHAPE1.Name = "_SHAPE1"
|
|
_SHAPE1.Top = 0
|
|
_SHAPE1.Width = 770
|
|
_shape2.Height = 29
|
|
_shape2.Left = 613
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = -1
|
|
_shape2.Width = 122
|
|
Lb_titlu_alb_b121.Caption = "Seturi"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 12
|
|
BUT_TERMIN1.Anchor = 9
|
|
BUT_TERMIN1.Left = 732
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 6
|
|
BUT_TERMIN1.Top = 0
|
|
Gridsort1.Left = 12
|
|
Gridsort1.Name = "Gridsort1"
|
|
Gridsort1.Top = 372
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'But_cautare1' AS but_cautare WITH ;
|
|
Left = 284, ;
|
|
Name = "But_cautare1", ;
|
|
TabIndex = 2, ;
|
|
Top = 37
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_cautare2' AS but_cautare WITH ;
|
|
Height = 28, ;
|
|
Left = 284, ;
|
|
Name = "But_cautare2", ;
|
|
TabIndex = 5, ;
|
|
Top = 65, ;
|
|
Width = 31
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
|
|
Anchor = 9, ;
|
|
Left = 704, ;
|
|
Name = "But_copiaza1", ;
|
|
TabIndex = 10, ;
|
|
Top = 0
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
|
Anchor = 9, ;
|
|
Left = 644, ;
|
|
Name = "But_modifica1", ;
|
|
TabIndex = 8, ;
|
|
Top = 0
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
|
Anchor = 9, ;
|
|
Left = 614, ;
|
|
Name = "But_nou1", ;
|
|
TabIndex = 7, ;
|
|
Top = 0
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
|
Anchor = 9, ;
|
|
Left = 674, ;
|
|
Name = "But_sterge1", ;
|
|
TabIndex = 9, ;
|
|
Top = 0
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'cboCategorii' AS combogrid WITH ;
|
|
BorderColor = 200,200,200, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "categorie", ;
|
|
Height = 24, ;
|
|
Left = 336, ;
|
|
Name = "cboCategorii", ;
|
|
RowSource = "crsCategorii", ;
|
|
RowSourceType = 2, ;
|
|
TabIndex = 3, ;
|
|
Top = 39, ;
|
|
Width = 228
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
|
Height = 29, ;
|
|
Left = 16, ;
|
|
Name = "Clb_tx_simplu1", ;
|
|
TabIndex = 1, ;
|
|
Top = 36, ;
|
|
Width = 262, ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.Left = 27, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Width = 230, ;
|
|
Lb_simplu1.Caption = "Set", ;
|
|
Lb_simplu1.Height = 17, ;
|
|
Lb_simplu1.Left = 4, ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
Lb_simplu1.Top = 6, ;
|
|
Lb_simplu1.Width = 20
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
|
Height = 29, ;
|
|
Left = 16, ;
|
|
Name = "Clb_tx_simplu2", ;
|
|
TabIndex = 4, ;
|
|
Top = 64, ;
|
|
Width = 173, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.Format = "!", ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = "9999999", ;
|
|
Text_simplu1.Left = 26, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 139, ;
|
|
Lb_simplu1.Caption = "Id", ;
|
|
Lb_simplu1.Height = 17, ;
|
|
Lb_simplu1.Left = 4, ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
Lb_simplu1.Top = 6, ;
|
|
Lb_simplu1.Width = 12
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
ColumnCount = 4, ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 150,150,150, ;
|
|
Height = 286, ;
|
|
Left = 16, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "crsXSets", ;
|
|
SplitBar = .F., ;
|
|
TabIndex = 11, ;
|
|
Top = 96, ;
|
|
Width = 737, ;
|
|
COLUMN1.ControlSource = "id_set", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Caption = "Id set", ;
|
|
COLUMN1.Header1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.ReadOnly = .T., ;
|
|
COLUMN1.Text1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Text1.ReadOnly = .T., ;
|
|
COLUMN1.Width = 47, ;
|
|
Column2.ControlSource = "nume_set", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 222, ;
|
|
Column3.ControlSource = "lista_note", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 234, ;
|
|
Column4.ControlSource = "categorie", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 159
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ;
|
|
Caption = "Nume set", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ;
|
|
Caption = "Lista note", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ;
|
|
Caption = "Categorie", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column4.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridsort2' AS gridsort WITH ;
|
|
Left = 360, ;
|
|
Name = "Gridsort2", ;
|
|
Top = 72
|
|
*< END OBJECT: ClassLib="..\comun\clase\gridsort.vcx" BaseClass="custom" />
|
|
|
|
PROCEDURE actualizare
|
|
save_grid(Thisform.gridb1)
|
|
goExecutor.oExecute(Thisform.cselect,Thisform.ccursor)
|
|
restore_grid(Thisform.gridb1)
|
|
this.refresh_inregistrari()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE aleg_document_pereche
|
|
PARAMETERS tcFel,toAct
|
|
LOCAL lcSel,lcSelAct
|
|
lcSelAct = this.pageframe1.paGE2.gridb1.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.pageframe1.paGE2.gridb1.SetFocus
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELECT crsTest
|
|
LOCATE
|
|
IF ePereche = 0
|
|
USE IN crsTest
|
|
SELECT (lcSelAct)
|
|
this.pageframe1.paGE2.gridb1.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)
|
|
DO nrord WITH lcSelAct
|
|
this.pageframe1.paGE2.gridb1.SetFocus
|
|
ENDPROC
|
|
|
|
PROCEDURE calcul_data
|
|
Parameters tcControl
|
|
Local ll_verif
|
|
Store .F. To ll_verif
|
|
lcControl = Alltrim(tcControl)
|
|
|
|
Do Case
|
|
Case Upper(Alltrim(lcControl))='ACTACTAN.DATASCAD'
|
|
ld_DataScad = Gomonth(dataact,1)
|
|
Select ACTACTAN
|
|
Replace DATASCAD With ld_DataScad
|
|
|
|
Case Upper(Alltrim(lcControl))='ACTACTAN.DATAIREG'
|
|
If !(Month(dataireg)= gnLuna And Year(dataireg) = gnAn)
|
|
*!* Do mesaj With 'Data trebuie sa fie din luna',Alltrim(pcNl)+' '+Alltrim(pcAn)
|
|
amessagebox("Data trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
|
|
ll_verif=.T.
|
|
Else
|
|
ll_verif=.F.
|
|
Select ACTACTAN
|
|
Replace dataact With dataireg
|
|
Endif
|
|
|
|
Case Upper(Alltrim(lcControl))='ACTACTAN.DATAACT'
|
|
If !((Month(dataact)<= gnLuna And Year(dataact)=gnAn) Or Year(dataact)<gnAn)
|
|
*!* Do mesaj With 'Data trebuie sa fie inainte sau in luna',Alltrim(pcnl)+' '+Alltrim(pcan)
|
|
amessagebox("Data trebuie sa fie inainte sau in luna "+Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
|
|
ll_verif=.T.
|
|
Else
|
|
ll_verif=.F.
|
|
Endif
|
|
|
|
ld_DataScad=Gomonth(dataact,1)
|
|
Select ACTACTAN
|
|
Replace DATASCAD With ld_DataScad
|
|
Endcase
|
|
|
|
Return ll_verif
|
|
ENDPROC
|
|
|
|
PROCEDURE calcul_suma
|
|
ENDPROC
|
|
|
|
PROCEDURE dblclickgrid
|
|
this.do_modifica()
|
|
ENDPROC
|
|
|
|
PROCEDURE Destroy
|
|
USE IN (SELECT("crsXSets"))
|
|
USE IN (SELECT("lorec"))
|
|
USE IN (SELECT("crsCategorii"))
|
|
ENDPROC
|
|
|
|
PROCEDURE do_adauga
|
|
Private pniesire
|
|
pniesire = 0
|
|
Select crsXSets
|
|
Scatter Name loRec Blank
|
|
lcActiune = "INSERT"
|
|
|
|
Do Adauga_Modifica_Inregistrare With "configurare",loRec,,lcActiune
|
|
|
|
If pniesire = 1
|
|
This.actualizare()
|
|
Select crsXSets
|
|
Go Bottom
|
|
Endif
|
|
|
|
Select crsXSets
|
|
Locate For id_set = loRec.id_set
|
|
If !Found()
|
|
Go Top
|
|
Endif
|
|
Thisform.gridb1.SetFocus()
|
|
ENDPROC
|
|
|
|
PROCEDURE do_cauta
|
|
Local lcTextCautat, lcCriteriu, lcAux
|
|
|
|
Select (Thisform.gridb1.RecordSource)
|
|
lcTextCautat = Upper(Alltrim(Thisform.clb_tx_simplu1.text_simplu1.Value))
|
|
lcCriteriu = Thisform.ccriteriu
|
|
lcaux = Left(Upper(Alltrim(&lcCriteriu)),Len(lcTextCautat))
|
|
|
|
Locate For Left(Upper(Alltrim(&lcCriteriu)),Len(lcTextCautat)) = lcTextCautat
|
|
If !Found()
|
|
Go Top
|
|
ENDIF
|
|
thisform.gridb1.SetFocus()
|
|
ENDPROC
|
|
|
|
PROCEDURE do_caut_nomenclator
|
|
PARAMETERS tcFis, tcNume, tcId, tcTitlu
|
|
|
|
pcselect = [select ] + tcNume + [,] + tcId + [ from ] + tcFis
|
|
pcfiltru = [1=2]
|
|
pcschema = []
|
|
pcorder = tcNume
|
|
pccoloane = tcNume
|
|
llAllInList = .F.
|
|
lcFiltruOriginal = "inactiv=0"
|
|
*!* 24.03.2008
|
|
If Upper(tcFis) = 'VNOM_SECTII'
|
|
lcFiltruOriginal = lcFiltruOriginal + gcCondSucursala
|
|
EndIf
|
|
*!* 24.03.2008 ^
|
|
pcTitlu = tcTitlu
|
|
|
|
locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitlu, tcFis, llAllInList, lcFiltruOriginal) && 11.07.2007
|
|
|
|
RETURN locauta
|
|
&& tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal,tcPrimaColoana, tnPornire, tnTipReturn, tcIdColumn, tlDesktop, tcGroup, tcGridDynamicBackColor, tcGridToolTip, tlModParam
|
|
ENDPROC
|
|
|
|
PROCEDURE do_copiaza
|
|
If Empty(Nvl(crsXSets.id_set,0))
|
|
Return
|
|
Endif
|
|
|
|
Private pnIdSetNou
|
|
Local lnIdSet, lcSql, lnSucces
|
|
|
|
If Messagebox([Doriti sa copiata aceasta inregistrare?], 4 + 32) = 7
|
|
Return
|
|
Endif
|
|
|
|
pnIdSetNou = 0
|
|
lcSql = [begin pack_seturi.copie_set(?crsXSets.id_set, ?@pnIdSetNou); end; ]
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql)
|
|
|
|
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 16)
|
|
Return
|
|
Endif
|
|
|
|
*!* save_grid(Thisform.gridb1)
|
|
*!* goExecutor.oExecute(Thisform.cselect,Thisform.ccursor)
|
|
*!* restore_grid(Thisform.gridb1)
|
|
this.actualizare()
|
|
|
|
|
|
Thisform.gridb1.Refresh()
|
|
Select crsXSets
|
|
Locate For id_set = pnIdSetNou
|
|
If !Found()
|
|
Go Top
|
|
Endif
|
|
Thisform.gridb1.SetFocus()
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_modifica
|
|
If Empty(Nvl(crsXSets.id_set,0))
|
|
Return
|
|
Endif
|
|
Private pniesire
|
|
Local lnRec
|
|
pniesire = 0
|
|
|
|
Select crsXSets
|
|
lnRec = Recno()
|
|
|
|
lcActiune = "UPDATE"
|
|
Scatter Name loRec
|
|
|
|
Do Adauga_Modifica_Inregistrare With "configurare", loRec, loRec.id_set, lcActiune
|
|
If pniesire = 1
|
|
|
|
*!* save_grid(Thisform.gridb1)
|
|
*!* goExecutor.oExecute(Thisform.cselect,Thisform.ccursor)
|
|
*!* restore_grid(Thisform.gridb1)
|
|
This.actualizare()
|
|
|
|
Select crsXSets
|
|
Go lnRec
|
|
Endif
|
|
|
|
|
|
Select crsXSets
|
|
Locate For id_set = loRec.id_set
|
|
If !Found()
|
|
Go Top
|
|
Endif
|
|
|
|
Thisform.gridb1.SetFocus()
|
|
ENDPROC
|
|
|
|
PROCEDURE do_sterge
|
|
If Empty(Nvl(crsXSets.id_set,0))
|
|
Return
|
|
Endif
|
|
|
|
Local lcSql, lnSucces
|
|
|
|
|
|
If Messagebox([Doriti sa stergeti inregistrarea?],4 + 32) = 6
|
|
SQLSETPROP(gnhandle,"Transactions",2) && tranzactie manuala
|
|
|
|
|
|
LcSql = [delete from xnote where id_set = ?crsXSets.id_set] && sterg nota
|
|
lnSucces = goExecutor.oExecute(LcSql)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
|
|
ENDIF
|
|
|
|
IF lnSucces > 0
|
|
LcSql = [delete from xrequest where id_set = ?crsXSets.id_set] && sterg cererea
|
|
lnSucces = goExecutor.oExecute(LcSql)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
|
|
ENDIF
|
|
ENDIF
|
|
IF lnSucces > 0
|
|
lcsql = [delete from xsets_utilizatori where id_set = ?crsXSets.id_set] && sterg utilizatorii cu drepturi
|
|
lnSucces = goExecutor.oExecute(LcSql)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
|
|
ENDIF
|
|
ENDIF
|
|
|
|
IF lnSucces > 0
|
|
LcSql = [delete from xsets where id_set = ?crsXsets.id_set] &&sterg setul
|
|
lnSucces = goExecutor.oExecute(LcSql)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
|
|
ENDIF
|
|
ENDIF
|
|
|
|
IF lnSucces < 0
|
|
lnSucces2 = goExecutor.oExecute("ROLLBACK")
|
|
ELSE
|
|
lnSucces2 = goExecutor.oExecute("COMMIT")
|
|
this.actualizare
|
|
endif
|
|
SQLSETPROP(gnhandle,"Transactions",1) && tranzactie automata
|
|
Endif
|
|
|
|
Thisform.gridb1.SetFocus()
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DoDefault()
|
|
|
|
Local i, loGrid, loColumnTexti
|
|
This.WindowState = 2
|
|
|
|
Thisform.grIDB1.SetAll("dynamicbackcolor",'IIF(crsXSets.id_set >= 1000000,RGB(212,212,212),RGB(255,255,255))',"column")
|
|
|
|
loGrid = Thisform.grIDB1
|
|
For i = 1 To loGrid.ColumnCount
|
|
loColumnTexti = loGrid.Columns(i).text1
|
|
Bindevent(loColumnTexti,"dblClick",This,"dblClickGrid") && do_modifica
|
|
Endfor
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE intainte_de_do_modifica
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
Lparameters nKeyCode, nShiftAltCtrl
|
|
|
|
If nKeyCode = 13 And nShiftAltCtrl = 2
|
|
This.introducere_libera = !This.introducere_libera
|
|
* this.shape2.Visible = !this.shape2.Visible
|
|
this.do_modifica()
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Load
|
|
Local lnSucces, lcSql
|
|
|
|
|
|
Thisform.cselect = [select t.*, sc.categorie ] + ;
|
|
[ from xsets t ] + ;
|
|
[ left join xSetsCategorii sc on sc.id_categorie = t.id_categorie ] + ;
|
|
[ order by nume_set]
|
|
*Thisform.cselect = [select id_set, nr_set, nume_set, fix, lista_note, explicatia, model, formgest, ] + ;
|
|
[nu_sterg, param1, listare, param2, frm_date, discount, adaos, factura, ] + ;
|
|
[nvl(id_selst,0) as id_selst, nvl(id_seldr,0) as id_seldr, tip_doc, tip_ctr, ] + ;
|
|
[expl_fixa, aleg_cont, frm_plata, valuta, compens, nvl(id_tip_rul,0) as id_tip_rul, ] + ;
|
|
[nvl(id_jnetax,0) as id_jnetax, nvl(id_jtax,0) as id_jtax, tipjurnal, ] + ;
|
|
[nvl(id_jtaxn,0) as id_jtaxn, productie, formproduc, cursval, ] + ;
|
|
[nvl(t.id_categorie,0) as id_categorie, procedura_lans, ] + ;
|
|
[nvl(id_sucursala,0) as id_sucursala, ] + ;
|
|
[sc.categorie, ] + ;
|
|
[case when upper(tipjurnal) = 'JC' then 1 ] + ;
|
|
[ when upper(tipjurnal) = 'JV' then 2 ] + ;
|
|
[ else 3 end as id_tip_jurnal ] + ;
|
|
[from xsets t ] + ;
|
|
[left join xSetsCategorii sc on sc.id_categorie = t.id_categorie ] + ;
|
|
[order by t.nume_set]
|
|
|
|
Thisform.ccursor = [crsXSets]
|
|
Thisform.cprimarykey = [id_set]
|
|
Thisform.ccriteriu = [nume_set]
|
|
|
|
lnSucces = goExecutor.oExecute(Thisform.cselect , Thisform.ccursor)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
|
|
Endif
|
|
|
|
lcSql = [select categorie, id_categorie from xSetsCategorii ] + ;
|
|
[union ] + ;
|
|
[select '<TOATE CATEGORIILE>' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ;
|
|
[order by categorie]
|
|
lnSucces = goExecutor.oExecute(lcSql , "crsCategorii")
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
|
|
Endif
|
|
|
|
Select crsCategorii
|
|
Locate For categorie = '<TOATE CATEGORIILE>'
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE refresh_inregistrari
|
|
If !Empty(Nvl(crsCategorii.id_categorie,0))
|
|
Set Filter To id_categorie = crsCategorii.id_categorie IN crsXsets
|
|
Else
|
|
Set Filter TO IN crsXsets
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE verificare
|
|
*!* LOCAL COMPL,TE
|
|
*!* TE=''
|
|
*!* COMPL=.T.
|
|
|
|
*!* SELECT ACTACTAN
|
|
*!* ii=1
|
|
*!* SCAN
|
|
*!* lcScd = scd
|
|
*!* lcScc = scc
|
|
*!* IF EMPTY(suma)
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'suma'
|
|
*!* ENDIF
|
|
*!* *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat
|
|
*!* IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9')
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'contul debitor'
|
|
*!* ENDIF
|
|
*!* IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9')
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'contul creditor'
|
|
*!* ENDIF
|
|
*!* IF EMPTY(nract)
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'nr.document'
|
|
*!* ENDIF
|
|
*!* IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta)
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'nume valuta'
|
|
*!* ENDIF
|
|
*!* IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0))
|
|
*!* COMPL = .F.
|
|
*!* TE=TE+','+'explicatie TVA'
|
|
*!* ENDIF
|
|
*!* IF !COMPL
|
|
*!* *!* DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...'
|
|
*!* amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie")
|
|
*!* RETURN COMPL
|
|
*!* ENDIF
|
|
*!* ii=ii+1
|
|
*!* ENDSCAN
|
|
|
|
|
|
*!* RETURN COMPL
|
|
*!* modificare 21.02.2008
|
|
lVerificAnalitic = .T.
|
|
lCompletezPartener = .F.
|
|
llRet = verificare_note_contabile('ACTACTAN',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune
|
|
RETURN llRet
|
|
*!* modificare 21.02.2008 ^
|
|
ENDPROC
|
|
|
|
PROCEDURE verific_analitic
|
|
ENDPROC
|
|
|
|
PROCEDURE But_cautare2.Click
|
|
Select crsXSets
|
|
Locate For id_set = Thisform.clb_tx_simplu2.text_simplu1.Value
|
|
If !Found()
|
|
Go Top
|
|
Endif
|
|
|
|
Thisform.gridb1.SetFocus()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cboCategorii.Valid
|
|
thisform.refresh_inregistrari()
|
|
GO TOP IN crsXsets
|
|
thisform.gridb1.Refresh()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_configurare_nou AS _frmbase OF "..\comun\clase\_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="Pageframe1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cb_jnetax" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_id_set" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.chkValuta" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.clb_numeset" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtax" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_tipjurnal" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtaxn" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.EdtListaNote" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_procedura" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.chkAlegCont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_sucursala" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_categorie" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Nou1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.COLUMN1.Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Nou1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page4.But_precedent1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page4.But_urmator1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: aleg_document_pereche
|
|
*m: calcul_data
|
|
*m: calcul_suma
|
|
*m: do_caut_nomenclator
|
|
*m: verificare
|
|
*m: verific_analitic
|
|
*p: clistainitialautiliz && In se memoreaza lista initiala de utilizatori. Se foloseste la salvare, pentru a nu adauga inca o data utilizatorii.
|
|
*p: introducere_libera
|
|
*p: lnuverificcont
|
|
*p: lverificareanalitic
|
|
*p: nid_set
|
|
*p: nreqnrmax && numarul de cereri, se foloseste la nrcrt in grid-ul de cereri
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
clistainitialautiliz = []
|
|
DoCreate = .T.
|
|
Height = 377
|
|
introducere_libera = .F.
|
|
lnuverificcont = .F.
|
|
lverificareanalitic = .T.
|
|
Name = "frm_configurare_nou"
|
|
nid_set = .F.
|
|
nreqnrmax = 0
|
|
Width = 792
|
|
WindowState = 2
|
|
_SHAPE1.Anchor = 10
|
|
_SHAPE1.Height = 29
|
|
_SHAPE1.Left = 0
|
|
_SHAPE1.Name = "_SHAPE1"
|
|
_SHAPE1.Top = 0
|
|
_SHAPE1.Width = 794
|
|
_shape2.Height = 29
|
|
_shape2.Left = 726
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 62
|
|
Lb_titlu_alb_b121.Caption = "Note, seturi"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 2
|
|
BUT_TERMIN1.Anchor = 8
|
|
BUT_TERMIN1.Height = 27
|
|
BUT_TERMIN1.Left = 757
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 3
|
|
BUT_TERMIN1.Top = 1
|
|
BUT_TERMIN1.Width = 30
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
|
Anchor = 8, ;
|
|
Left = 727, ;
|
|
Name = "But_renunt1", ;
|
|
TabIndex = 4, ;
|
|
Top = 1
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
|
|
Anchor = 15, ;
|
|
ErasePage = .T., ;
|
|
Height = 322, ;
|
|
Left = 4, ;
|
|
Name = "Pageframe1", ;
|
|
PageCount = 4, ;
|
|
TabIndex = 1, ;
|
|
TabStyle = 1, ;
|
|
Top = 37, ;
|
|
Width = 785, ;
|
|
Page1.Caption = "Seturi", ;
|
|
Page1.Enabled = .F., ;
|
|
Page1.Name = "Page1", ;
|
|
Page2.Caption = "Cereri", ;
|
|
Page2.Enabled = .F., ;
|
|
Page2.Name = "Page2", ;
|
|
Page3.Caption = "Note", ;
|
|
Page3.Enabled = .F., ;
|
|
Page3.Name = "Page3", ;
|
|
Page4.Caption = "Drepturi utilizatori", ;
|
|
Page4.Name = "Page4"
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.cb_categorie' AS cb_tx_simplu WITH ;
|
|
Anchor = 40, ;
|
|
Height = 29, ;
|
|
Left = 403, ;
|
|
Name = "cb_categorie", ;
|
|
TabIndex = 8, ;
|
|
Top = 156, ;
|
|
Width = 362, ;
|
|
_cbbase1.Anchor = 40, ;
|
|
_cbbase1.BoundColumn = 2, ;
|
|
_cbbase1.BoundTo = .T., ;
|
|
_cbbase1.ControlSource = "porec.id_categorie", ;
|
|
_cbbase1.Height = 23, ;
|
|
_cbbase1.Left = 120, ;
|
|
_cbbase1.Name = "_cbbase1", ;
|
|
_cbbase1.RowSource = "crsCateg.categorie,id_categorie", ;
|
|
_cbbase1.RowSourceType = 6, ;
|
|
_cbbase1.TabIndex = 1, ;
|
|
_cbbase1.Top = 3, ;
|
|
_cbbase1.Width = 236, ;
|
|
_lbbase1.Caption = "Categorie", ;
|
|
_lbbase1.Name = "_lbbase1", ;
|
|
_lbbase1.TabIndex = 2
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Cb_jnetax' AS cb_tx_simplu WITH ;
|
|
Anchor = 40, ;
|
|
Height = 29, ;
|
|
Left = 403, ;
|
|
Name = "Cb_jnetax", ;
|
|
TabIndex = 4, ;
|
|
Top = 7, ;
|
|
Width = 362, ;
|
|
_cbbase1.Anchor = 40, ;
|
|
_cbbase1.BoundColumn = 2, ;
|
|
_cbbase1.ControlSource = "porec.id_jnetax", ;
|
|
_cbbase1.FirstElement = 1, ;
|
|
_cbbase1.Height = 23, ;
|
|
_cbbase1.Left = 120, ;
|
|
_cbbase1.Name = "_cbbase1", ;
|
|
_cbbase1.RowSource = "crsJNetax.denumire,id_jtva_coloana", ;
|
|
_cbbase1.RowSourceType = 6, ;
|
|
_cbbase1.Top = 3, ;
|
|
_cbbase1.Width = 236, ;
|
|
_lbbase1.Caption = "Operatii netaxabile", ;
|
|
_lbbase1.Name = "_lbbase1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.cb_jtax' AS cb_tx_simplu WITH ;
|
|
Anchor = 40, ;
|
|
Height = 29, ;
|
|
Left = 403, ;
|
|
Name = "cb_jtax", ;
|
|
TabIndex = 5, ;
|
|
Top = 43, ;
|
|
Width = 362, ;
|
|
_cbbase1.Anchor = 40, ;
|
|
_cbbase1.BoundColumn = 2, ;
|
|
_cbbase1.ControlSource = "porec.id_jtax", ;
|
|
_cbbase1.Height = 23, ;
|
|
_cbbase1.Left = 120, ;
|
|
_cbbase1.Name = "_cbbase1", ;
|
|
_cbbase1.RowSource = "crsJTax.denumire,id_jtva_coloana", ;
|
|
_cbbase1.RowSourceType = 6, ;
|
|
_cbbase1.Top = 3, ;
|
|
_cbbase1.Width = 236, ;
|
|
_lbbase1.Caption = "Operatii taxabile", ;
|
|
_lbbase1.Name = "_lbbase1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.cb_jtaxn' AS cb_tx_simplu WITH ;
|
|
Anchor = 40, ;
|
|
Height = 33, ;
|
|
Left = 403, ;
|
|
Name = "cb_jtaxn", ;
|
|
TabIndex = 7, ;
|
|
Top = 115, ;
|
|
Width = 362, ;
|
|
_cbbase1.Anchor = 40, ;
|
|
_cbbase1.BoundColumn = 2, ;
|
|
_cbbase1.ControlSource = "porec.id_jtaxn", ;
|
|
_cbbase1.Height = 23, ;
|
|
_cbbase1.Left = 120, ;
|
|
_cbbase1.Name = "_cbbase1", ;
|
|
_cbbase1.RowSource = "crsJtaxn.denumire,id_jtva_coloana", ;
|
|
_cbbase1.RowSourceType = 6, ;
|
|
_cbbase1.Top = 5, ;
|
|
_cbbase1.Width = 236, ;
|
|
_lbbase1.Caption = "Operatii taxabile (neplatitor TVA)", ;
|
|
_lbbase1.Height = 32, ;
|
|
_lbbase1.Left = 5, ;
|
|
_lbbase1.Name = "_lbbase1", ;
|
|
_lbbase1.Top = 1, ;
|
|
_lbbase1.Width = 90, ;
|
|
_lbbase1.WordWrap = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.cb_sucursala' AS cb_tx_simplu WITH ;
|
|
Anchor = 40, ;
|
|
Height = 33, ;
|
|
Left = 403, ;
|
|
Name = "cb_sucursala", ;
|
|
TabIndex = 9, ;
|
|
Top = 193, ;
|
|
Width = 362, ;
|
|
_CBBASE1.Anchor = 40, ;
|
|
_CBBASE1.BoundColumn = 2, ;
|
|
_CBBASE1.BoundTo = .T., ;
|
|
_CBBASE1.ControlSource = "porec.id_sucursala", ;
|
|
_CBBASE1.FirstElement = 1, ;
|
|
_CBBASE1.Height = 23, ;
|
|
_CBBASE1.Left = 120, ;
|
|
_CBBASE1.Name = "_CBBASE1", ;
|
|
_CBBASE1.RowSource = "crsSucursale.sucursala,id_sucursala", ;
|
|
_CBBASE1.RowSourceType = 6, ;
|
|
_CBBASE1.Top = 5, ;
|
|
_CBBASE1.Width = 236, ;
|
|
_LBBASE1.Caption = "Sucursala", ;
|
|
_LBBASE1.Height = 17, ;
|
|
_LBBASE1.Left = 5, ;
|
|
_LBBASE1.Name = "_LBBASE1", ;
|
|
_LBBASE1.Top = 8, ;
|
|
_LBBASE1.Width = 56, ;
|
|
_LBBASE1.WordWrap = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.cb_tipjurnal' AS cb_tx_simplu WITH ;
|
|
Anchor = 40, ;
|
|
Height = 29, ;
|
|
Left = 403, ;
|
|
Name = "cb_tipjurnal", ;
|
|
TabIndex = 6, ;
|
|
Top = 79, ;
|
|
Width = 362, ;
|
|
_cbbase1.Anchor = 40, ;
|
|
_cbbase1.BoundColumn = 2, ;
|
|
_cbbase1.BoundTo = .T., ;
|
|
_cbbase1.ControlSource = "porec.tipjurnal", ;
|
|
_cbbase1.Height = 23, ;
|
|
_cbbase1.Left = 120, ;
|
|
_cbbase1.Name = "_cbbase1", ;
|
|
_cbbase1.RowSource = "crsJurnal.name,tipjurnal", ;
|
|
_cbbase1.RowSourceType = 6, ;
|
|
_cbbase1.Top = 3, ;
|
|
_cbbase1.Width = 236, ;
|
|
_lbbase1.Caption = "Tip jurnal", ;
|
|
_lbbase1.Name = "_lbbase1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.chkAlegCont' AS _checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 40, ;
|
|
Caption = "Cont", ;
|
|
ControlSource = "porec.aleg_cont", ;
|
|
Left = 403, ;
|
|
Name = "chkAlegCont", ;
|
|
TabIndex = 11, ;
|
|
Top = 256
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.chkValuta' AS _checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 40, ;
|
|
Caption = "Valuta", ;
|
|
ControlSource = "porec.valuta", ;
|
|
Left = 403, ;
|
|
Name = "chkValuta", ;
|
|
TabIndex = 10, ;
|
|
Top = 235
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Clb_id_set' AS clb_tx_simplu WITH ;
|
|
Anchor = 130, ;
|
|
Height = 29, ;
|
|
Left = 19, ;
|
|
Name = "Clb_id_set", ;
|
|
TabIndex = 12, ;
|
|
Top = 7, ;
|
|
Width = 362, ;
|
|
Text_simplu1.Alignment = 3, ;
|
|
Text_simplu1.Anchor = 130, ;
|
|
Text_simplu1.ControlSource = "thisform.nId_set", ;
|
|
Text_simplu1.Enabled = .F., ;
|
|
Text_simplu1.Format = "R", ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.InputMask = "9999999", ;
|
|
Text_simplu1.Left = 101, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Value = 0, ;
|
|
Text_simplu1.Width = 255, ;
|
|
Lb_simplu1.Caption = "Id set", ;
|
|
Lb_simplu1.Height = 17, ;
|
|
Lb_simplu1.Left = 8, ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
Lb_simplu1.Top = 6, ;
|
|
Lb_simplu1.Width = 32
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.clb_numeset' AS clb_tx_simplu WITH ;
|
|
Anchor = 130, ;
|
|
Height = 29, ;
|
|
Left = 19, ;
|
|
Name = "clb_numeset", ;
|
|
TabIndex = 1, ;
|
|
Top = 41, ;
|
|
Width = 362, ;
|
|
Text_simplu1.Anchor = 130, ;
|
|
Text_simplu1.ControlSource = "porec.nume_set", ;
|
|
Text_simplu1.Format = "", ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.Left = 101, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Width = 254, ;
|
|
Lb_simplu1.Caption = "Nume set", ;
|
|
Lb_simplu1.Height = 17, ;
|
|
Lb_simplu1.Left = 8, ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
Lb_simplu1.Top = 6, ;
|
|
Lb_simplu1.Width = 56
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.Clb_procedura' AS clb_tx_simplu WITH ;
|
|
Anchor = 130, ;
|
|
Height = 29, ;
|
|
Left = 19, ;
|
|
Name = "Clb_procedura", ;
|
|
TabIndex = 3, ;
|
|
Top = 178, ;
|
|
Width = 362, ;
|
|
Text_simplu1.Anchor = 130, ;
|
|
Text_simplu1.ControlSource = "porec.procedura_lans", ;
|
|
Text_simplu1.Format = "", ;
|
|
Text_simplu1.Height = 23, ;
|
|
Text_simplu1.Left = 101, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Text_simplu1.Width = 254, ;
|
|
Lb_simplu1.Caption = "Procedura", ;
|
|
Lb_simplu1.Height = 17, ;
|
|
Lb_simplu1.Left = 8, ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
Lb_simplu1.Top = 6, ;
|
|
Lb_simplu1.Width = 59
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page1.EdtListaNote' AS ed_tx_simplu WITH ;
|
|
Anchor = 130, ;
|
|
Height = 98, ;
|
|
Left = 19, ;
|
|
Name = "EdtListaNote", ;
|
|
TabIndex = 2, ;
|
|
Top = 75, ;
|
|
Width = 362, ;
|
|
_edbase1.Anchor = 130, ;
|
|
_edbase1.ControlSource = "porec.lista_note", ;
|
|
_edbase1.Height = 90, ;
|
|
_edbase1.Left = 72, ;
|
|
_edbase1.Name = "_edbase1", ;
|
|
_edbase1.Top = 4, ;
|
|
_edbase1.Width = 280, ;
|
|
_lbbase1.Caption = "Lista note", ;
|
|
_lbbase1.Name = "_lbbase1", ;
|
|
_lbbase1.WordWrap = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 255,255,255, ;
|
|
ColumnCount = 3, ;
|
|
GridLineColor = 255,255,255, ;
|
|
Height = 240, ;
|
|
Left = 9, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "crsReq", ;
|
|
RowHeight = 22, ;
|
|
SplitBar = .F., ;
|
|
Top = 7, ;
|
|
Width = 766, ;
|
|
COLUMN1.BackColor = 226,226,226, ;
|
|
COLUMN1.ColumnOrder = 2, ;
|
|
COLUMN1.ControlSource = "label_item", ;
|
|
COLUMN1.CurrentControl = "Combo1", ;
|
|
COLUMN1.Header1.Caption = "Element", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.BackColor = 226,226,226, ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Text1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.Visible = .T., ;
|
|
COLUMN1.Visible = .T., ;
|
|
COLUMN1.Width = 245, ;
|
|
Column2.BackColor = 247,245,238, ;
|
|
Column2.ColumnOrder = 1, ;
|
|
Column2.ControlSource = "id_item", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Visible = .T., ;
|
|
Column2.Width = 66, ;
|
|
Column3.BackColor = 226,226,226, ;
|
|
Column3.ColumnOrder = 3, ;
|
|
Column3.ControlSource = "valoare_default_text", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Visible = .T., ;
|
|
Column3.Width = 404
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Gridb1.COLUMN1.Combo1' AS combobox WITH ;
|
|
BackColor = 226,226,226, ;
|
|
BorderStyle = 0, ;
|
|
ColumnLines = .F., ;
|
|
ControlSource = "crsreq.id_item", ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 24, ;
|
|
Left = 50, ;
|
|
Name = "Combo1", ;
|
|
RowSource = "crsItems.label_item,id_item", ;
|
|
RowSourceType = 2, ;
|
|
SpecialEffect = 1, ;
|
|
Style = 2, ;
|
|
Top = 47, ;
|
|
Visible = .T., ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ;
|
|
Caption = "Id element", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ;
|
|
Caption = "Valoare implicita", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 226,226,226, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Nou1' AS nou WITH ;
|
|
Anchor = 6, ;
|
|
Left = 13, ;
|
|
Name = "Nou1", ;
|
|
Top = 251, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page2.Sterge1' AS sterge WITH ;
|
|
Anchor = 6, ;
|
|
Left = 49, ;
|
|
Name = "Sterge1", ;
|
|
Top = 251, ;
|
|
Imbuton1.Height = 26, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 26, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1' AS pageframe WITH ;
|
|
Anchor = 15, ;
|
|
ErasePage = .T., ;
|
|
Height = 293, ;
|
|
Left = 0, ;
|
|
Name = "Pageframe1", ;
|
|
PageCount = 6, ;
|
|
TabStyle = 1, ;
|
|
Top = 1, ;
|
|
Width = 784, ;
|
|
ZOrderSet = 2, ;
|
|
Page1.BackColor = 255,255,255, ;
|
|
Page1.Caption = "Note-Sume", ;
|
|
Page1.Name = "Page1", ;
|
|
Page2.BackColor = 240,240,240, ;
|
|
Page2.Caption = "Date", ;
|
|
Page2.Name = "Page2", ;
|
|
Page3.BackColor = 228,228,228, ;
|
|
Page3.Caption = "Explicatii", ;
|
|
Page3.Name = "Page3", ;
|
|
Page4.Caption = "Xnote 1-12", ;
|
|
Page4.Name = "Page4", ;
|
|
Page5.Caption = "Xnote 13-24", ;
|
|
Page5.Name = "Page5", ;
|
|
Page6.Caption = "Xnote 25-35", ;
|
|
Page6.Name = "Page6"
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
ColumnCount = 15, ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 255,255,255, ;
|
|
GridLines = 3, ;
|
|
HeaderHeight = 25, ;
|
|
Height = 212, ;
|
|
Left = 5, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RecordMark = .T., ;
|
|
RecordSource = "crsNote", ;
|
|
RowHeight = 22, ;
|
|
SplitBar = .F., ;
|
|
Top = 6, ;
|
|
Width = 762, ;
|
|
COLUMN1.Alignment = 2, ;
|
|
COLUMN1.BackColor = 245,245,245, ;
|
|
COLUMN1.ControlSource = "nr_nota", ;
|
|
COLUMN1.DynamicBackColor = "RGB(245,245,245)", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Caption = "Nr.", ;
|
|
COLUMN1.Header1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.Alignment = 2, ;
|
|
COLUMN1.Text1.BackColor = 245,245,245, ;
|
|
COLUMN1.Text1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Text1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.Visible = .T., ;
|
|
COLUMN1.Visible = .T., ;
|
|
COLUMN1.Width = 26, ;
|
|
Column2.Alignment = 1, ;
|
|
Column2.BackColor = 247,245,238, ;
|
|
Column2.ControlSource = "xscd", ;
|
|
Column2.DynamicBackColor = "RGB(247,245,238)", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Format = "XXXX.", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .F., ;
|
|
Column2.Visible = .T., ;
|
|
Column2.Width = 59, ;
|
|
Column3.Alignment = 0, ;
|
|
Column3.BackColor = 247,245,238, ;
|
|
Column3.ControlSource = "xascd", ;
|
|
Column3.DynamicBackColor = "RGB(247,245,238)", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .F., ;
|
|
Column3.Visible = .T., ;
|
|
Column3.Width = 53, ;
|
|
Column4.Alignment = 1, ;
|
|
Column4.BackColor = 226,226,226, ;
|
|
Column4.ControlSource = "xscc", ;
|
|
Column4.DynamicBackColor = "RGB(226,226,226)", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Format = "XXXX.", ;
|
|
Column4.Name = "Column4", ;
|
|
Column4.ReadOnly = .F., ;
|
|
Column4.Visible = .T., ;
|
|
Column4.Width = 63, ;
|
|
Column5.Alignment = 0, ;
|
|
Column5.BackColor = 226,226,226, ;
|
|
Column5.ControlSource = "xascc", ;
|
|
Column5.DynamicBackColor = "RGB(226,226,226)", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column5", ;
|
|
Column5.ReadOnly = .F., ;
|
|
Column5.Visible = .T., ;
|
|
Column5.Width = 49, ;
|
|
Column6.BackColor = 214,214,214, ;
|
|
Column6.ControlSource = "suma", ;
|
|
Column6.DynamicBackColor = "rgb(214,214,214)", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.InputMask = (get_mask(12,gnPa)), ;
|
|
Column6.Name = "Column6", ;
|
|
Column6.ReadOnly = .F., ;
|
|
Column6.Visible = .T., ;
|
|
Column6.Width = 114, ;
|
|
Column7.BackColor = 214,214,214, ;
|
|
Column7.ColumnOrder = 7, ;
|
|
Column7.ControlSource = "suma_val", ;
|
|
Column7.DynamicBackColor = "rgb(214,214,214)", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.InputMask = (get_mask(12,gnPval)), ;
|
|
Column7.Name = "Column8", ;
|
|
Column7.ReadOnly = .F., ;
|
|
Column7.Visible = .T., ;
|
|
Column7.Width = 87, ;
|
|
Column8.BackColor = 214,214,214, ;
|
|
Column8.ColumnOrder = 8, ;
|
|
Column8.ControlSource = "curs", ;
|
|
Column8.DynamicBackColor = "rgb(214,214,214)", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.InputMask = (get_mask(12,gnPcurs)), ;
|
|
Column8.Name = "Column9", ;
|
|
Column8.ReadOnly = .F., ;
|
|
Column8.Visible = .T., ;
|
|
Column8.Width = 76, ;
|
|
Column9.BackColor = 214,214,214, ;
|
|
Column9.ColumnOrder = 9, ;
|
|
Column9.ControlSource = "nume_val", ;
|
|
Column9.CurrentControl = "Text1", ;
|
|
Column9.DynamicBackColor = "rgb(214,214,214)", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column10", ;
|
|
Column9.ReadOnly = .F., ;
|
|
Column9.Visible = .T., ;
|
|
Column9.Width = 112, ;
|
|
Column10.Alignment = 0, ;
|
|
Column10.BackColor = 214,214,214, ;
|
|
Column10.ColumnOrder = 12, ;
|
|
Column10.ControlSource = "explicatie_tva", ;
|
|
Column10.CurrentControl = "Combo1", ;
|
|
Column10.DynamicBackColor = "rgb(214,214,214)", ;
|
|
Column10.DynamicCurrentControl = "IIF(actactan.cu_tva=0,'Text1','Combo1')", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column11", ;
|
|
Column10.ReadOnly = .F., ;
|
|
Column10.Sparse = .F., ;
|
|
Column10.Visible = .T., ;
|
|
Column10.Width = 72, ;
|
|
Column11.BackColor = 214,214,214, ;
|
|
Column11.ColumnOrder = 11, ;
|
|
Column11.ControlSource = "proc_tva", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.InputMask = "99.99", ;
|
|
Column11.Name = "Column7", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.Visible = .T., ;
|
|
Column11.Width = 65, ;
|
|
Column12.BackColor = 214,214,214, ;
|
|
Column12.ColumnOrder = 10, ;
|
|
Column12.ControlSource = "cu_tva", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.Name = "Column12", ;
|
|
Column12.ReadOnly = .F., ;
|
|
Column12.Sparse = .F., ;
|
|
Column12.Visible = .T., ;
|
|
Column12.Width = 42, ;
|
|
Column13.BackColor = 214,214,214, ;
|
|
Column13.ControlSource = "id_fact", ;
|
|
Column13.FontName = "Arial Narrow", ;
|
|
Column13.Name = "Column13", ;
|
|
Column13.ReadOnly = .T., ;
|
|
Column13.Width = 63, ;
|
|
Column14.BackColor = 214,214,214, ;
|
|
Column14.ControlSource = "id_factd", ;
|
|
Column14.FontName = "Arial Narrow", ;
|
|
Column14.Name = "Column14", ;
|
|
Column14.ReadOnly = .T., ;
|
|
Column14.Width = 69, ;
|
|
Column15.BackColor = 214,214,214, ;
|
|
Column15.ControlSource = "id_factc", ;
|
|
Column15.FontName = "Arial Narrow", ;
|
|
Column15.Name = "Column15", ;
|
|
Column15.ReadOnly = .T., ;
|
|
Column15.Width = 68
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nume valuta", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1' AS combobox WITH ;
|
|
Alignment = 0, ;
|
|
BorderStyle = 0, ;
|
|
BoundColumn = 1, ;
|
|
ColumnCount = 3, ;
|
|
ColumnLines = .F., ;
|
|
ColumnWidths = "250,0,0", ;
|
|
Enabled = .T., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 24, ;
|
|
Left = 32, ;
|
|
Name = "Combo1", ;
|
|
ReadOnly = .F., ;
|
|
RowSource = "jtva_coloane.denumire,cota_tva,id_jtva_coloana", ;
|
|
RowSourceType = 6, ;
|
|
SpecialEffect = 1, ;
|
|
Style = 2, ;
|
|
Top = 44, ;
|
|
Visible = .T., ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatie TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1' AS _textbox WITH ;
|
|
FontName = "Arial Narrow", ;
|
|
Left = 44, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 32
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1' AS _checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .F., ;
|
|
Caption = "", ;
|
|
Centered = .T., ;
|
|
ControlSource = "cu_tva", ;
|
|
FontName = "Arial Narrow", ;
|
|
Left = 27, ;
|
|
Name = "_CHECKBOX1", ;
|
|
ReadOnly = .F., ;
|
|
Top = 32, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cu TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Id Factura", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Id Factura d", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "ID Factura c", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont debitor", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic D", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont creditor ", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 226,226,226, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic C", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 226,226,226, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Suma", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Procent TVA", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Suma in valuta", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Curs valutar", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1' AS textbox WITH ;
|
|
BackColor = 214,214,214, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Nou1' AS nou WITH ;
|
|
Anchor = 6, ;
|
|
Left = 8, ;
|
|
Name = "Nou1", ;
|
|
Top = 222, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Sterge1' AS sterge WITH ;
|
|
Anchor = 6, ;
|
|
Left = 44, ;
|
|
Name = "Sterge1", ;
|
|
Top = 222, ;
|
|
Imbuton1.Height = 26, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 26, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 240,240,240, ;
|
|
ColumnCount = 10, ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 255,255,255, ;
|
|
HeaderHeight = 26, ;
|
|
Height = 248, ;
|
|
Left = 5, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RecordMark = .T., ;
|
|
RecordSource = "crsNote", ;
|
|
RowHeight = 23, ;
|
|
SplitBar = .F., ;
|
|
Top = 6, ;
|
|
Width = 762, ;
|
|
COLUMN1.BackColor = 240,240,240, ;
|
|
COLUMN1.ControlSource = "nr_nota", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Caption = "Nr.", ;
|
|
COLUMN1.Header1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.BackColor = 240,240,240, ;
|
|
COLUMN1.Text1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Text1.ReadOnly = .F., ;
|
|
COLUMN1.Width = 19, ;
|
|
Column2.BackColor = 240,240,240, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "fdoc", ;
|
|
Column2.CurrentControl = "Text1", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .F., ;
|
|
Column2.Width = 105, ;
|
|
Column3.BackColor = 240,240,240, ;
|
|
Column3.ColumnOrder = 3, ;
|
|
Column3.ControlSource = "dataireg", ;
|
|
Column3.CurrentControl = "Text1", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .F., ;
|
|
Column3.Sparse = .F., ;
|
|
Column3.Width = 83, ;
|
|
Column4.BackColor = 240,240,240, ;
|
|
Column4.ColumnOrder = 4, ;
|
|
Column4.ControlSource = "dataact", ;
|
|
Column4.CurrentControl = "Text1", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column4.ReadOnly = .F., ;
|
|
Column4.Sparse = .F., ;
|
|
Column4.Width = 87, ;
|
|
Column5.BackColor = 240,240,240, ;
|
|
Column5.ColumnOrder = 5, ;
|
|
Column5.ControlSource = "datascad", ;
|
|
Column5.CurrentControl = "Text1", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column5", ;
|
|
Column5.ReadOnly = .F., ;
|
|
Column5.Sparse = .F., ;
|
|
Column5.Width = 83, ;
|
|
Column6.BackColor = 240,240,240, ;
|
|
Column6.ColumnOrder = 7, ;
|
|
Column6.ControlSource = "nract", ;
|
|
Column6.CurrentControl = "Text1", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column6", ;
|
|
Column6.ReadOnly = .F., ;
|
|
Column6.Sparse = .F., ;
|
|
Column7.BackColor = 240,240,240, ;
|
|
Column7.ColumnOrder = 8, ;
|
|
Column7.ControlSource = "pereched", ;
|
|
Column7.CurrentControl = "Text1", ;
|
|
Column7.DynamicBackColor = "", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column7", ;
|
|
Column7.ReadOnly = .F., ;
|
|
Column7.Sparse = .F., ;
|
|
Column7.Width = 68, ;
|
|
Column8.BackColor = 240,240,240, ;
|
|
Column8.ColumnOrder = 10, ;
|
|
Column8.ControlSource = "nnir", ;
|
|
Column8.CurrentControl = "Text1", ;
|
|
Column8.DynamicBackColor = "", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.Name = "Column8", ;
|
|
Column8.ReadOnly = .F., ;
|
|
Column8.Sparse = .F., ;
|
|
Column9.BackColor = 240,240,240, ;
|
|
Column9.ColumnOrder = 9, ;
|
|
Column9.ControlSource = "perechec", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column9", ;
|
|
Column9.ReadOnly = .F., ;
|
|
Column9.Width = 71, ;
|
|
Column10.BackColor = 240,240,240, ;
|
|
Column10.ColumnOrder = 6, ;
|
|
Column10.ControlSource = "serie_act", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Format = "!", ;
|
|
Column10.Name = "Column10", ;
|
|
Column10.ReadOnly = .F., ;
|
|
Column10.Width = 52
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Serie doc.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Fel document", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data inregistrarii", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data document", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data scadenta", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. document", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Pereche Debit", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. NIR/BON", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Pereche Credit", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1' AS textbox WITH ;
|
|
BackColor = 240,240,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 228,228,228, ;
|
|
ColumnCount = 10, ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 255,255,255, ;
|
|
HeaderHeight = 25, ;
|
|
Height = 248, ;
|
|
Left = 5, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RecordMark = .T., ;
|
|
RecordSource = "crsNote", ;
|
|
RowHeight = 23, ;
|
|
SplitBar = .F., ;
|
|
Top = 6, ;
|
|
Width = 762, ;
|
|
COLUMN1.BackColor = 228,228,228, ;
|
|
COLUMN1.ColumnOrder = 1, ;
|
|
COLUMN1.ControlSource = "nr_nota", ;
|
|
COLUMN1.DynamicBackColor = "rgb(228,228,228)", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.BackColor = 228,228,228, ;
|
|
COLUMN1.Header1.Caption = "Nr.", ;
|
|
COLUMN1.Header1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.BackColor = 228,228,228, ;
|
|
COLUMN1.Text1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Text1.ReadOnly = .F., ;
|
|
COLUMN1.Text1.Visible = .T., ;
|
|
COLUMN1.Visible = .T., ;
|
|
COLUMN1.Width = 21, ;
|
|
Column2.BackColor = 228,228,228, ;
|
|
Column2.ColumnOrder = 7, ;
|
|
Column2.ControlSource = "nrord", ;
|
|
Column2.CurrentControl = "Text1", ;
|
|
Column2.DynamicBackColor = "rgb(228,228,228)", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column7", ;
|
|
Column2.ReadOnly = .F., ;
|
|
Column2.Visible = .T., ;
|
|
Column2.Width = 95, ;
|
|
Column3.BackColor = 228,228,228, ;
|
|
Column3.ColumnOrder = 8, ;
|
|
Column3.ControlSource = "nresp", ;
|
|
Column3.CurrentControl = "Text1", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column8", ;
|
|
Column3.ReadOnly = .F., ;
|
|
Column3.Visible = .T., ;
|
|
Column3.Width = 110, ;
|
|
Column4.BackColor = 228,228,228, ;
|
|
Column4.ColumnOrder = 9, ;
|
|
Column4.ControlSource = "dst_chlt", ;
|
|
Column4.CurrentControl = "Text1", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column9", ;
|
|
Column4.ReadOnly = .F., ;
|
|
Column4.Sparse = .F., ;
|
|
Column4.Visible = .T., ;
|
|
Column4.Width = 108, ;
|
|
Column5.BackColor = 228,228,228, ;
|
|
Column5.ColumnOrder = 10, ;
|
|
Column5.ControlSource = "sectie", ;
|
|
Column5.CurrentControl = "Text1", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column10", ;
|
|
Column5.ReadOnly = .F., ;
|
|
Column5.Visible = .T., ;
|
|
Column5.Width = 96, ;
|
|
Column6.BackColor = 228,228,228, ;
|
|
Column6.ColumnOrder = 6, ;
|
|
Column6.ControlSource = "explicatia", ;
|
|
Column6.DynamicBackColor = "rgb(226,226,226)", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Format = "k!", ;
|
|
Column6.Name = "Column14", ;
|
|
Column6.ReadOnly = .F., ;
|
|
Column6.Visible = .T., ;
|
|
Column6.Width = 110, ;
|
|
Column7.BackColor = 228,228,228, ;
|
|
Column7.ColumnOrder = 3, ;
|
|
Column7.ControlSource = "partd", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column17", ;
|
|
Column7.ReadOnly = .F., ;
|
|
Column7.Visible = .T., ;
|
|
Column7.Width = 105, ;
|
|
Column8.BackColor = 228,228,228, ;
|
|
Column8.ColumnOrder = 5, ;
|
|
Column8.ControlSource = "partc", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.Name = "Column18", ;
|
|
Column8.ReadOnly = .F., ;
|
|
Column8.Visible = .T., ;
|
|
Column8.Width = 105, ;
|
|
Column9.BackColor = 228,228,228, ;
|
|
Column9.ColumnOrder = 4, ;
|
|
Column9.ControlSource = "scc_fara_part", ;
|
|
Column9.CurrentControl = "Check1", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column2", ;
|
|
Column9.ReadOnly = .F., ;
|
|
Column9.Sparse = .F., ;
|
|
Column9.Visible = .T., ;
|
|
Column9.Width = 84, ;
|
|
Column10.BackColor = 228,228,228, ;
|
|
Column10.ColumnOrder = 2, ;
|
|
Column10.ControlSource = "scd_fara_part", ;
|
|
Column10.CurrentControl = "Check1", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column3", ;
|
|
Column10.ReadOnly = .F., ;
|
|
Column10.Sparse = .F., ;
|
|
Column10.Visible = .T., ;
|
|
Column10.Width = 81
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 228,228,228, ;
|
|
Caption = "Sectia", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 226,226,226, ;
|
|
Caption = "Explicatia", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 226,226,226, ;
|
|
Caption = "Partener Debit", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 226,226,226, ;
|
|
Caption = "Partener Credit", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
Caption = "", ;
|
|
Centered = .T., ;
|
|
Height = 17, ;
|
|
Left = 40, ;
|
|
Name = "Check1", ;
|
|
Top = 90, ;
|
|
Width = 60
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1' AS header WITH ;
|
|
Caption = "Fara partener credit", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
Caption = "", ;
|
|
Centered = .T., ;
|
|
Height = 17, ;
|
|
Left = 24, ;
|
|
Name = "Check1", ;
|
|
Top = 54, ;
|
|
Width = 60
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1' AS header WITH ;
|
|
Caption = "Fara partener debit", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 228,228,228, ;
|
|
Caption = "Contract/Lucrare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 228,228,228, ;
|
|
Caption = "Responsabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 228,228,228, ;
|
|
Caption = "Cheltuiala/Venit", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1' AS textbox WITH ;
|
|
BackColor = 228,228,228, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 247,245,238, ;
|
|
ColumnCount = 13, ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 255,255,255, ;
|
|
Height = 247, ;
|
|
Left = 5, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "crsnote", ;
|
|
RowHeight = 22, ;
|
|
SplitBar = .F., ;
|
|
Top = 6, ;
|
|
Width = 762, ;
|
|
COLUMN1.BackColor = 247,245,238, ;
|
|
COLUMN1.ColumnOrder = 2, ;
|
|
COLUMN1.ControlSource = "x1", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Caption = " X1", ;
|
|
COLUMN1.Header1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.Text1.BackColor = 247,245,238, ;
|
|
COLUMN1.Text1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Width = 81, ;
|
|
Column2.BackColor = 247,245,238, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "x2", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column3.BackColor = 247,245,238, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "x3", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column4.BackColor = 247,245,238, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "x4", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column5.BackColor = 247,245,238, ;
|
|
Column5.ColumnOrder = 6, ;
|
|
Column5.ControlSource = "x5", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column5", ;
|
|
Column6.BackColor = 247,245,238, ;
|
|
Column6.ColumnOrder = 7, ;
|
|
Column6.ControlSource = "x6", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column6", ;
|
|
Column7.BackColor = 247,245,238, ;
|
|
Column7.ColumnOrder = 8, ;
|
|
Column7.ControlSource = "x7", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column7", ;
|
|
Column8.BackColor = 247,245,238, ;
|
|
Column8.ColumnOrder = 9, ;
|
|
Column8.ControlSource = "x8", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.Name = "Column8", ;
|
|
Column9.BackColor = 247,245,238, ;
|
|
Column9.ColumnOrder = 10, ;
|
|
Column9.ControlSource = "x9", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column9", ;
|
|
Column10.BackColor = 247,245,238, ;
|
|
Column10.ColumnOrder = 11, ;
|
|
Column10.ControlSource = "x10", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column10", ;
|
|
Column11.BackColor = 247,245,238, ;
|
|
Column11.ColumnOrder = 12, ;
|
|
Column11.ControlSource = "x11", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.Name = "Column11", ;
|
|
Column12.BackColor = 247,245,238, ;
|
|
Column12.ColumnOrder = 13, ;
|
|
Column12.ControlSource = "x12", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.Name = "Column12", ;
|
|
Column13.BackColor = 247,245,238, ;
|
|
Column13.ColumnOrder = 1, ;
|
|
Column13.ControlSource = "nr_nota", ;
|
|
Column13.FontName = "Arial Narrow", ;
|
|
Column13.Name = "Column13", ;
|
|
Column13.Width = 24
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1' AS header WITH ;
|
|
Caption = " X10", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1' AS header WITH ;
|
|
Caption = " X11", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1' AS header WITH ;
|
|
Caption = " X12", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1' AS header WITH ;
|
|
Caption = " Nr.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1' AS header WITH ;
|
|
Caption = " X2", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1' AS header WITH ;
|
|
Caption = " X3", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1' AS header WITH ;
|
|
Caption = " X4", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1' AS header WITH ;
|
|
Caption = " X5", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1' AS header WITH ;
|
|
Caption = " X6", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1' AS header WITH ;
|
|
Caption = " X7", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1' AS header WITH ;
|
|
Caption = " X8", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1' AS header WITH ;
|
|
Caption = " X9", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 247,245,238, ;
|
|
ColumnCount = 13, ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 255,255,255, ;
|
|
Height = 247, ;
|
|
Left = 5, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "crsNote", ;
|
|
RowHeight = 22, ;
|
|
SplitBar = .F., ;
|
|
Top = 6, ;
|
|
Width = 762, ;
|
|
COLUMN1.BackColor = 247,245,238, ;
|
|
COLUMN1.ColumnOrder = 2, ;
|
|
COLUMN1.ControlSource = " X13", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Caption = " X13", ;
|
|
COLUMN1.Header1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.Text1.BackColor = 247,245,238, ;
|
|
COLUMN1.Text1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Width = 71, ;
|
|
Column2.BackColor = 247,245,238, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = " X14", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column3.BackColor = 247,245,238, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = " X15", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column4.BackColor = 247,245,238, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = " X16", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column5.BackColor = 247,245,238, ;
|
|
Column5.ColumnOrder = 6, ;
|
|
Column5.ControlSource = " X17", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column5", ;
|
|
Column6.BackColor = 247,245,238, ;
|
|
Column6.ColumnOrder = 7, ;
|
|
Column6.ControlSource = " X18", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column6", ;
|
|
Column7.BackColor = 247,245,238, ;
|
|
Column7.ColumnOrder = 8, ;
|
|
Column7.ControlSource = " X19", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column7", ;
|
|
Column8.BackColor = 247,245,238, ;
|
|
Column8.ColumnOrder = 9, ;
|
|
Column8.ControlSource = " X20", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.Name = "Column8", ;
|
|
Column9.BackColor = 247,245,238, ;
|
|
Column9.ColumnOrder = 10, ;
|
|
Column9.ControlSource = " X21", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column9", ;
|
|
Column10.BackColor = 247,245,238, ;
|
|
Column10.ColumnOrder = 11, ;
|
|
Column10.ControlSource = " X22", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column10", ;
|
|
Column11.BackColor = 247,245,238, ;
|
|
Column11.ColumnOrder = 12, ;
|
|
Column11.ControlSource = " X23", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.Name = "Column11", ;
|
|
Column12.BackColor = 247,245,238, ;
|
|
Column12.ColumnOrder = 13, ;
|
|
Column12.ControlSource = " X24", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.Name = "Column12", ;
|
|
Column13.BackColor = 247,245,238, ;
|
|
Column13.ColumnOrder = 1, ;
|
|
Column13.ControlSource = "nr_nota", ;
|
|
Column13.FontName = "Arial Narrow", ;
|
|
Column13.Name = "Column13", ;
|
|
Column13.ReadOnly = .T., ;
|
|
Column13.Width = 25
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1' AS header WITH ;
|
|
Caption = " X22", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1' AS header WITH ;
|
|
Caption = " X23", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1' AS header WITH ;
|
|
Caption = " X24", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1' AS header WITH ;
|
|
Caption = " Nr.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1' AS header WITH ;
|
|
Caption = " X14", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1' AS header WITH ;
|
|
Caption = " X15", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1' AS header WITH ;
|
|
Caption = " X16", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1' AS header WITH ;
|
|
Caption = " X17", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1' AS header WITH ;
|
|
Caption = " X18", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1' AS header WITH ;
|
|
Caption = " X19", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1' AS header WITH ;
|
|
Caption = " X20", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1' AS header WITH ;
|
|
Caption = " X21", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1' AS gridb WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 247,245,238, ;
|
|
ColumnCount = 12, ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 255,255,255, ;
|
|
Height = 247, ;
|
|
Left = 5, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
RecordSource = "crsNote", ;
|
|
RowHeight = 22, ;
|
|
SplitBar = .F., ;
|
|
Top = 6, ;
|
|
Width = 762, ;
|
|
COLUMN1.BackColor = 247,245,238, ;
|
|
COLUMN1.ColumnOrder = 2, ;
|
|
COLUMN1.ControlSource = "x25", ;
|
|
COLUMN1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Caption = " X25", ;
|
|
COLUMN1.Header1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.Text1.BackColor = 247,245,238, ;
|
|
COLUMN1.Text1.FontName = "Arial Narrow", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Width = 79, ;
|
|
Column2.BackColor = 247,245,238, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "x26", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column3.BackColor = 247,245,238, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "x27", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column4.BackColor = 247,245,238, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "x28", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column5.BackColor = 247,245,238, ;
|
|
Column5.ColumnOrder = 6, ;
|
|
Column5.ControlSource = "x29", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Name = "Column5", ;
|
|
Column6.BackColor = 247,245,238, ;
|
|
Column6.ColumnOrder = 7, ;
|
|
Column6.ControlSource = "x30", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column6", ;
|
|
Column7.BackColor = 247,245,238, ;
|
|
Column7.ColumnOrder = 8, ;
|
|
Column7.ControlSource = "x31", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column7", ;
|
|
Column8.BackColor = 247,245,238, ;
|
|
Column8.ColumnOrder = 9, ;
|
|
Column8.ControlSource = "x32", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.Name = "Column8", ;
|
|
Column9.BackColor = 247,245,238, ;
|
|
Column9.ColumnOrder = 10, ;
|
|
Column9.ControlSource = "x33", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column9", ;
|
|
Column10.BackColor = 247,245,238, ;
|
|
Column10.ColumnOrder = 11, ;
|
|
Column10.ControlSource = "x34", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column10", ;
|
|
Column11.BackColor = 247,245,238, ;
|
|
Column11.ColumnOrder = 12, ;
|
|
Column11.ControlSource = "x35", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.Name = "Column11", ;
|
|
Column12.BackColor = 247,245,238, ;
|
|
Column12.ColumnOrder = 1, ;
|
|
Column12.ControlSource = "nr_nota", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.Name = "Column12", ;
|
|
Column12.ReadOnly = .T., ;
|
|
Column12.Width = 26
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1' AS header WITH ;
|
|
Caption = " X34", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1' AS header WITH ;
|
|
Caption = " X35", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1' AS header WITH ;
|
|
Caption = " Nr.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1' AS header WITH ;
|
|
Caption = " X26", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1' AS header WITH ;
|
|
Caption = " X27", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1' AS header WITH ;
|
|
Caption = " X28", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1' AS header WITH ;
|
|
Caption = " X29", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1' AS header WITH ;
|
|
Caption = " X30", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1' AS header WITH ;
|
|
Caption = " X31", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1' AS header WITH ;
|
|
Caption = " X32", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1' AS header WITH ;
|
|
Caption = " X33", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1' AS textbox WITH ;
|
|
BackColor = 247,245,238, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page4.But_precedent1' AS but_precedent WITH ;
|
|
Anchor = 0, ;
|
|
Left = 380, ;
|
|
Name = "But_precedent1", ;
|
|
Top = 138
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page4.But_urmator1' AS but_urmator WITH ;
|
|
Anchor = 0, ;
|
|
Left = 380, ;
|
|
Name = "But_urmator1", ;
|
|
Top = 105
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page4.Gridb1' AS gridb WITH ;
|
|
Anchor = 5, ;
|
|
GridLineColor = 255,255,255, ;
|
|
HeaderHeight = 22, ;
|
|
Height = 268, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 29, ;
|
|
Name = "Gridb1", ;
|
|
Panel = 1, ;
|
|
RecordMark = .F., ;
|
|
RecordSource = "crsUtilizatori", ;
|
|
ScrollBars = 2, ;
|
|
Top = 7, ;
|
|
Width = 317, ;
|
|
COLUMN1.ControlSource = "utilizator", ;
|
|
COLUMN1.Header1.Alignment = 2, ;
|
|
COLUMN1.Header1.Caption = " Utilizatori", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Width = 297
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Pageframe1.Page4.Gridb2' AS gridb WITH ;
|
|
Anchor = 5, ;
|
|
ColumnCount = 1, ;
|
|
GridLineColor = 255,255,255, ;
|
|
HeaderHeight = 22, ;
|
|
Height = 268, ;
|
|
HighlightStyle = 1, ;
|
|
Left = 437, ;
|
|
Name = "Gridb2", ;
|
|
Panel = 1, ;
|
|
RecordMark = .F., ;
|
|
RecordSource = "crsDrepturi_utilizatori", ;
|
|
ScrollBars = 2, ;
|
|
SelectedItemForeColor = 255,255,255, ;
|
|
Top = 7, ;
|
|
Width = 317, ;
|
|
COLUMN1.ControlSource = "utilizator", ;
|
|
COLUMN1.Header1.Alignment = 2, ;
|
|
COLUMN1.Header1.Caption = "Utilizatorii cu drepturi asupra seturilor", ;
|
|
COLUMN1.Header1.Name = "Header1", ;
|
|
COLUMN1.Name = "COLUMN1", ;
|
|
COLUMN1.Text1.BackColor = 255,255,255, ;
|
|
COLUMN1.Text1.Name = "Text1", ;
|
|
COLUMN1.Text1.SelectedForeColor = 255,255,255, ;
|
|
COLUMN1.Text1.Visible = .T., ;
|
|
COLUMN1.Visible = .T., ;
|
|
COLUMN1.Width = 297
|
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
PROCEDURE aleg_document_pereche
|
|
PARAMETERS tcFel,toAct
|
|
LOCAL lcSel,lcSelAct
|
|
lcSelAct = this.pageframe1.paGE2.gridb1.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.pageframe1.paGE2.gridb1.SetFocus
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELECT crsTest
|
|
LOCATE
|
|
IF ePereche = 0
|
|
USE IN crsTest
|
|
SELECT (lcSelAct)
|
|
this.pageframe1.paGE2.gridb1.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)
|
|
DO nrord WITH lcSelAct
|
|
this.pageframe1.paGE2.gridb1.SetFocus
|
|
ENDPROC
|
|
|
|
PROCEDURE calcul_data
|
|
ENDPROC
|
|
|
|
PROCEDURE calcul_suma
|
|
ENDPROC
|
|
|
|
PROCEDURE Destroy
|
|
Use In (Select("crsReq"))
|
|
Use In (Select("crsItems"))
|
|
Use In (Select("crsJNetax"))
|
|
Use In (Select("crsJTax"))
|
|
Use In (Select("crsJtaxN"))
|
|
Use In (Select("crsJurnal"))
|
|
Use In (Select("crsNewId"))
|
|
Use In (Select("crsNote"))
|
|
Use In (Select("crsDrepturi_utilizatori"))
|
|
Use In (Select("crsUtilizatori"))
|
|
Use In (Select("crsCateg"))
|
|
Use In (Select("crsSucursale"))
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_caut_nomenclator
|
|
PARAMETERS tcFis, tcNume, tcId, tcTitlu
|
|
|
|
pcselect = [select ] + tcNume + [,] + tcId + [ from ] + tcFis
|
|
pcfiltru = [1=2]
|
|
pcschema = []
|
|
pcorder = tcNume
|
|
pccoloane = tcNume
|
|
llAllInList = .F.
|
|
lcFiltruOriginal = "inactiv=0"
|
|
*!* 24.03.2008
|
|
If Upper(tcFis) = 'VNOM_SECTII'
|
|
lcFiltruOriginal = lcFiltruOriginal + gcCondSucursala
|
|
EndIf
|
|
*!* 24.03.2008 ^
|
|
pcTitlu = tcTitlu
|
|
|
|
locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, ;
|
|
pcTitlu, tcFis, llAllInList, lcFiltruOriginal) && 11.07.2007
|
|
|
|
RETURN locauta
|
|
* tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,;
|
|
tl_AllInList,tcFiltruOriginal,tcPrimaColoana, tnPornire, tnTipReturn, tcIdColumn, ;
|
|
tlDesktop, tcGroup, tcGridDynamicBackColor, tcGridToolTip, tlModParam
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_termin
|
|
Local lcSqlSeturi, lcSqlNote, lcSqlCereri, lnSucces, lnEroare, lcLista, lcActiune, lnSucces2
|
|
*lcSqlNote = []
|
|
*lcSqlSeturi = []
|
|
lnEroare = 0
|
|
lnSucces = 1
|
|
*lcLista = []
|
|
Private pnIdSet
|
|
pnIdSet = poRec.id_set
|
|
Store '' To lcSqlNote, lcSqlSeturi, lcLista, lcActiune
|
|
|
|
|
|
SQLSetprop(gnhandle,"Transactions",2) && tranzactie manuala
|
|
*!* insertul se face si pentru modificare , si pt update ;
|
|
*!* dar in cazul update-ului se sterg inainte inregistrarile
|
|
|
|
lcSqlNote = [insert into xnote(id_set,nr_nota, xscd, xscc, xascd, xascc, ] + ;
|
|
[x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20, ] + ;
|
|
[x21,x22,x23,x24,x25,x26,x27,x28,x29,x30,x31,x32,x33,x34,x35, ] + ;
|
|
[suma, suma_val, ] + ;
|
|
[curs, id_valuta, proc_tva, id_jtva_coloana, id_fact, id_factd, id_factc, ] + ;
|
|
[id_fdoc, dataireg, dataact, datascad, serie_act, nract, pereched, perechec,] + ;
|
|
[nnir, id_partd, id_partc, explicatia, id_lucrare, id_responsabil, id_venchelt, id_sectie] + ;
|
|
[,scd_fara_part, scc_fara_part ] + ;
|
|
[) values(] + ;
|
|
[?poRec.id_set,?crsNote.nr_nota, ] + ;
|
|
[?ALLTRIM(crsNote.xscd), ?ALLTRIM(crsNote.xscc),?ALLTRIM(crsNote.xascd),?ALLTRIM(crsNote.xascc),] + ;
|
|
[?crsNote.x1,?crsNote.x2,?crsNote.x3,?crsNote.x4,?crsNote.x5,?crsNote.x6,?crsNote.x7,?crsNote.x8, ] + ;
|
|
[?crsNote.x9,?crsNote.x10,?crsNote.x11,?crsNote.x12,?crsNote.x13,?crsNote.x14,?crsNote.x15, ] + ;
|
|
[?crsNote.x16,?crsNote.x17,?crsNote.x18,?crsNote.x19,?crsNote.x20,?crsNote.x21,?crsNote.x22, ] + ;
|
|
[?crsNote.x23,?crsNote.x24,?crsNote.x25,?crsNote.x26,?crsNote.x27,?crsNote.x28,?crsNote.x29,] + ;
|
|
[?crsNote.x30,?crsNote.x31,?crsNote.x32,?crsNote.x33,?crsNote.x34,?crsNote.x35, ] + ;
|
|
[?crsNote.suma,?crsNote.suma_val, ] + ;
|
|
[?crsNote.curs, ?crsNote.id_valuta, ?crsNote.proc_tva, ?crsNote.id_jtva_coloana,?crsNote.id_fact, ] + ;
|
|
[?crsNote.id_factd,?crsNote.id_factc, ?crsNote.id_fdoc,?crsNote.dataireg,?crsNote.dataact, ] + ;
|
|
[?crsNote.datascad,?crsNote.serie_act,?crsNote.nract,?crsNote.pereched,?crsNote.perechec,] + ;
|
|
[?crsNote.nnir, ?crsNote.id_partd, ?crsNote.id_partc, ?crsNote.explicatia, ?crsNote.id_lucrare, ] + ;
|
|
[?crsNote.id_responsabil,?crsNote.id_venchelt,?crsNote.id_sectie,] + ;
|
|
[?crsNote.scd_fara_part, ?crsNote.scc_fara_part] + [)]
|
|
|
|
lcSqlCereri = [insert into xrequest(id_set, nr_item, id_item, valoare_default) ] + ;
|
|
[values(?porec.id_set, ?crsReq.nr_item, ?crsReq.id_item, ] + ;
|
|
[?IIF(!EMPTY(NVL(ALLTRIM(crsReq.valoare_default),'')),crsReq.valoare_default,crsReq.valoare_default_text))]
|
|
* [values(?crsReq.id_set, ?crsReq.nr_item, ?crsReq.id_item, ?ALLTRIM(crsReq.valoare_default))]
|
|
|
|
|
|
If Empty(poRec.id_set) && insert
|
|
lcSqlSeturi = [insert into xsets(nume_set, lista_note, id_jnetax, id_jtax, tipjurnal, ] + ;
|
|
[id_jtaxn, valuta, id_categorie, procedura_lans, aleg_cont, id_sucursala) ]+ ;
|
|
[values(?ALLTRIM(porec.nume_set), ] + ;
|
|
[?ALLTRIM(porec.lista_note), ?porec.id_jnetax, ?porec.id_jtax,?ALLTRIM(poRec.tipjurnal),] + ;
|
|
[?porec.id_jtaxn,?porec.valuta,?porec.id_categorie, ] + ;
|
|
[?porec.aleg_cont, ?ALLTRIM(porec.procedura_lans), ?porec.id_sucursala) returning id_set into ?@pnIdSet]
|
|
|
|
Else && update, pt note se sterge inregistrarea curenta si se adauga
|
|
If poRec.id_set >= 1000000
|
|
lnSucces = goExecutor.oExecute([delete from xnote where id_set = ] + Alltrim(Str(poRec.id_set)) + [;])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
|
|
Else
|
|
lnSucces = goExecutor.oExecute([delete from xrequest where id_set = ] + Alltrim(Str(poRec.id_set)) + [;])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
|
|
Endif
|
|
|
|
lcSqlSeturi = [update xsets set nume_set = ?ALLTRIM(porec.nume_set), ] + ;
|
|
[lista_note = ?ALLTRIM(porec.lista_note), id_jnetax = ?porec.id_jnetax, ] + ;
|
|
[id_jtax = ?porec.id_jtax, tipjurnal = ?ALLTRIM(poRec.tipjurnal),] + ;
|
|
[id_jtaxn = ?porec.id_jtaxn, valuta = ?porec.valuta, ] + ;
|
|
[id_categorie = ] + Iif(Empty(Nvl(poRec.id_categorie,0)), 'NULL', Alltrim(Transform(poRec.id_categorie))) + [, ] + ;
|
|
[procedura_lans = ?ALLTRIM(porec.procedura_lans), aleg_cont = ?porec.aleg_cont, ] + ;
|
|
[id_sucursala = ?porec.id_sucursala ] + ;
|
|
[where id_set = ?porec.id_set]
|
|
Endif
|
|
Endif
|
|
Endif
|
|
|
|
*!* seturile standard au id_set < 1000000, seturile utilizatori au id_set >= 1000000,
|
|
*!* utilizatorii nu au dreptul de a modifica seturile standard
|
|
If lnSucces > 0 And !Empty(lcSqlSeturi)
|
|
lnSucces = goExecutor.oExecute(lcSqlSeturi)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
|
|
Endif
|
|
Endif
|
|
|
|
If lnSucces > 0 And poRec.id_set >= 1000000
|
|
Select crsNote
|
|
Scan && pt fiecare inregistare din xnote
|
|
lnSucces = goExecutor.oExecute(lcSqlNote)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
|
|
Exit
|
|
Endif
|
|
Endscan
|
|
|
|
If lnSucces > 0
|
|
Select crsReq
|
|
Scan && pt fiecare inregistare din xnote
|
|
lnSucces = goExecutor.oExecute(lcSqlCereri)
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
|
|
Exit
|
|
Endif
|
|
Endscan
|
|
Endif
|
|
|
|
Endif && porec.id_set >= 1000000
|
|
|
|
If lnSucces > 0
|
|
** utilizatori cu drepturi pe set
|
|
lnSucces = goExecutor.oExecute([delete from xsets_utilizatori where id_set = ?porec.id_set])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
|
|
Else
|
|
Select crsdrepturi_utilizatori && salvare
|
|
Scan
|
|
lnSucces = goExecutor.oExecute([insert into xsets_utilizatori(id_set, id_utilizator) ] + ;
|
|
[values(?porec.id_set, ?crsdrepturi_utilizatori.id_util)])
|
|
If lnSucces < 0
|
|
Exit
|
|
Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
|
|
Endif
|
|
Endscan
|
|
Endif
|
|
Endif
|
|
** utilizatori cu drepturi pe set^^
|
|
|
|
|
|
|
|
|
|
If lnSucces < 0
|
|
lnSucces2 = goExecutor.oExecute("ROLLBACK")
|
|
Else
|
|
lnSucces2 = goExecutor.oExecute("COMMIT")
|
|
Endif
|
|
lnSucces2 = SQLSetprop(gnhandle,"Transactions",1) && tranzactie automata
|
|
|
|
Return lnSucces > 0
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
Lparameters toRec, tnId, tcActiune
|
|
|
|
*LPARAMETERS tlVerificareAnalitic, tlNuVerificCont
|
|
|
|
*!* 19.02.2008
|
|
*!* pot sa apelez nota fara predefinire cu sau fara verificare analitice
|
|
*!* 11.03.2008
|
|
*!* nota fara predefinire cu/fara verificare conturi completate
|
|
|
|
*IF PCOUNT() > 0
|
|
* this.lVerificareAnalitic = tlVerificareAnalitic
|
|
* this.lNuVerificCont = tlNuVerificCont
|
|
*ELSE
|
|
This.lVerificareAnalitic = .T.
|
|
This.lNuVerificCont = .F.
|
|
*ENDIF
|
|
*!* 19.02.2008 ^
|
|
|
|
|
|
*!* Select crsNote
|
|
*!* Scan For scc_fara_part = 1 Or scd_fara_part = 1
|
|
*!* Thisform.pageframe1.page3.pageframe1.page3.gridb1.column2.check1.Click
|
|
*!* Thisform.pageframe1.page3.pageframe1.page3.gridb1.column3.check1.Click
|
|
*!* Endscan
|
|
|
|
*!* paginile sunt active pentru seturile noi si pentru modificarea seturilor utilizator
|
|
If EMPTY(NVL(porec.id_set,0)) OR porec.id_set >= 1000000
|
|
Thisform.pageframe1.page1.Enabled = .T.
|
|
Thisform.pageframe1.page2.Enabled = .T.
|
|
Thisform.pageframe1.page3.Enabled = .T.
|
|
* Thisform.pageframe1.page4.Enabled = .T.
|
|
this.pageframe1.ActivePage = 1
|
|
this.pageframe1.page1.clb_numeset.SetFocus()
|
|
ELSE
|
|
this.pageframe1.ActivePage = 4 && drepturi utilizatori
|
|
ENDIF
|
|
this.WindowState = 2
|
|
this.pageframe1.page1.Cb_categorie._cbbase1.Value = poRec.categorie
|
|
|
|
|
|
DoDefault()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
LPARAMETERS nKeyCode, nShiftAltCtrl
|
|
IF nKeyCode = 13 AND nShiftAltCtrl = 2
|
|
this.introducere_libera = !this.introducere_libera
|
|
* this.shape2.Visible = !this.shape2.Visible
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Load
|
|
Local lnSucces, lcSql
|
|
lnSucces = 0
|
|
|
|
lnSucces = goExecutor.oExecute([select nvl(n.scc_fara_part,0) as scc_fara_part, ] + ;
|
|
[ nvl(n.scd_fara_part,0) as scd_fara_part, n.*, ] + ;
|
|
[ p1.denumire as partd, p2.denumire as partc, ] + ;
|
|
[ f.fel_document as fdoc, nv.nume_val, 0 as cu_tva, nl.nrord,np.denumire as nresp, ] + ;
|
|
[ nvc.explicatie as dst_chlt, ns.sectie, jc.denumire as explicatie_tva ] + ;
|
|
[ from xnote n ] + ;
|
|
[ left join nom_parteneri p1 on p1.id_part = n.id_partd ] + ;
|
|
[ left join nom_parteneri p2 on p2.id_part = n.id_partc ] + ;
|
|
[ left join nom_parteneri np on np.id_part = n.id_responsabil ] + ;
|
|
[ left join nom_fdoc f on f.id_fdoc = n.id_fdoc ] + ;
|
|
[ left join nom_valute nv on nv.id_valuta = n.id_valuta ] + ;
|
|
[ left join nom_lucrari nl on nl.id_lucrare = n.id_lucrare ] + ;
|
|
[ left join nom_venit_cheltuieli nvc on nvc.id_venchelt = n.id_venchelt ] + ;
|
|
[ left join nom_sectii ns on ns.id_sectie = n.id_sectie ] + ;
|
|
[ left join jtva_coloane jc on jc.id_jtva_coloana = n.id_jtva_coloana ] + ;
|
|
[ where id_set = ] + Alltrim(Str(porec.id_set)) + [ order by n.nr_nota],[crsNote])
|
|
|
|
&& [ left join nom_parteneri np on np.id_part = n.id_partd or np.id_part = n.id_partc ]
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
|
|
Endif
|
|
Update crsNote Set cu_tva = Iif(Empty(Nvl(proc_tva,[])),0,1)
|
|
|
|
*!* Do nrord With "crsNote"
|
|
|
|
lcSql = [select i.label_item, s.nume_set, r.valoare_default, r.nr_item, r.id_item, r.id_set, ] + ;
|
|
[ i.fis_lista, i.id_fisier, i.camp_lista, ] + ;
|
|
[ rpad(case ] + ; && inceput valoare_default
|
|
[ when i.fis_lista is not null then ] + ;
|
|
[ pack_util.GetText(i.fis_lista, ] + ;
|
|
[ i.id_fisier, ] + ;
|
|
[ to_number(r.valoare_default), ] + ;
|
|
[ replace(i.camp_lista, ',' , ' || '' '' || ')) ] + ;
|
|
[ ELSE r.valoare_default ] + ;
|
|
[ end,100,' ') as valoare_default_text ] + ; && valoare_default ^^
|
|
[ from xrequest r ] + ;
|
|
[join xsets s on s.id_set = r.id_set ] + ;
|
|
[join xitems i on i.id_item = r.id_item ] + ;
|
|
[where r.id_set = ?porec.id_set order by r.nr_item ]
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,[crsReq])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
|
|
Endif
|
|
Do nrord With "crsReq"
|
|
Go Top
|
|
|
|
Select Max(nr_item) As nr From crsreq Into Cursor crsnritem
|
|
This.nreqnrmax = Nvl(crsnritem.nr,0)
|
|
Use In (Select("crsnritem"))
|
|
|
|
goExecutor.oExecute([select label_item, id_item, id_fisier, fis_lista, camp_lista from xitems], [crsItems])
|
|
lnSucces = goExecutor.oExecute([select '' as denumire, CAST(null as number(5)) ] + ;
|
|
[as id_jtva_coloana from jtva_coloane union ] + ;
|
|
[select denumire , id_jtva_coloana from jtva_coloane], [crsJNetax])
|
|
If lnSucces > 0
|
|
Select * From crsJNetax Into Cursor crsJTax
|
|
Select * From crsJNetax Into Cursor crsJTaxN
|
|
Else
|
|
Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
|
|
Endif
|
|
|
|
Select [Jurnal cumparari] As Name, 'JC' As TIPJURNAL From dual Union ;
|
|
SELECT [Jurnal vanzari] As Name, 'JV' As TIPJURNAL From dual Union ;
|
|
select '' As Name, '' As TIPJURNAL From dual ;
|
|
INTO Cursor crsJurnal
|
|
|
|
Thisform.nid_set = porec.id_set
|
|
|
|
|
|
|
|
Local cLista
|
|
cLista = []
|
|
lcSql = [select s.id_set_utilizator, s.id_utilizator as id_util, u.utilizator ] + ;
|
|
[from xsets_utilizatori s ] + ;
|
|
[join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ;
|
|
[where s.id_set = ?porec.id_set order by u.utilizator]
|
|
lnSucces = goExecutor.oExecute(lcSql,[crsDrepturi_utilizatori])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
|
|
Return
|
|
Endif
|
|
Select crsDrepturi_utilizatori
|
|
Scan
|
|
cLista = cLista + Alltrim(Str(id_util)) + [,]
|
|
Endscan
|
|
Go Top
|
|
This.clistainitialautiliz = Left(cLista,Len(cLista) - 1)
|
|
|
|
lcSql = [select u.utilizator, u.id_util ] + ;
|
|
[ from syn_vutilizatori u ] + ;
|
|
[ where u.INACTIV = 0 ] + ;
|
|
[ AND ID_UTIL not in ] + ;
|
|
[ (select s.id_utilizator as id_util ] + ;
|
|
[ from xsets_utilizatori s ] + ;
|
|
[ join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ;
|
|
[ where s.id_set = ?porec.id_set) order by u.utilizator] && utilizatorii care nu au deja drepturi pe xsets
|
|
lnSucces = goExecutor.oExecute(lcSql,[crsUtilizatori])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
|
|
Return
|
|
Endif
|
|
|
|
lcSql = [select categorie, id_categorie from xSetsCategorii ] + ;
|
|
[union ] + ;
|
|
[select '<FARA CATEGORIE>' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ;
|
|
[order by categorie]
|
|
|
|
*!* lcSql = [select categorie, id_categorie from xSetsCategorii ] + ;
|
|
*!* [order by categorie]
|
|
lnSucces = goExecutor.oExecute(lcSql,[crsCateg])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
|
|
Return
|
|
Endif
|
|
|
|
SELECT crscateg
|
|
LOCATE FOR id_categorie = porec.id_categorie
|
|
|
|
|
|
lcSql = [select sucursala, id_sucursala from vnom_sucursale where sters = 0 and inactiv = 0 order by 1]
|
|
lnSucces = goExecutor.oExecute(lcSql,[crsSucursale])
|
|
If lnSucces < 0
|
|
Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
|
|
Return
|
|
Endif
|
|
Select crsNote
|
|
Go Top
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE verificare
|
|
*!* LOCAL COMPL,TE
|
|
*!* TE=''
|
|
*!* COMPL=.T.
|
|
|
|
*!* SELECT crsNote
|
|
*!* ii=1
|
|
*!* SCAN
|
|
*!* lcScd = scd
|
|
*!* lcScc = scc
|
|
*!* IF EMPTY(suma)
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'suma'
|
|
*!* ENDIF
|
|
*!* *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat
|
|
*!* IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9')
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'contul debitor'
|
|
*!* ENDIF
|
|
*!* IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9')
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'contul creditor'
|
|
*!* ENDIF
|
|
*!* IF EMPTY(nract)
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'nr.document'
|
|
*!* ENDIF
|
|
*!* IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta)
|
|
*!* COMPL=.F.
|
|
*!* TE=TE+','+'nume valuta'
|
|
*!* ENDIF
|
|
*!* IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0))
|
|
*!* COMPL = .F.
|
|
*!* TE=TE+','+'explicatie TVA'
|
|
*!* ENDIF
|
|
*!* IF !COMPL
|
|
*!* *!* DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...'
|
|
*!* amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie")
|
|
*!* RETURN COMPL
|
|
*!* ENDIF
|
|
*!* ii=ii+1
|
|
*!* ENDSCAN
|
|
|
|
|
|
*!* RETURN COMPL
|
|
*!* modificare 21.02.2008
|
|
lVerificAnalitic = .T.
|
|
lCompletezPartener = .F.
|
|
llRet = verificare_note_contabile('crsNote',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune
|
|
Return llRet
|
|
*!* modificare 21.02.2008 ^
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE verific_analitic
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Gridb1.COLUMN1.Combo1.Valid
|
|
Replace id_item With crsItems.id_item , camp_lista With crsItems.camp_lista ;
|
|
valoare_default_text With crsItems.camp_lista In crsReq &&
|
|
|
|
Select crsItems
|
|
Locate For id_item = crsReq.id_item
|
|
|
|
This.Parent.Parent.Refresh()
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.LostFocus
|
|
*!* SELECT crsReq
|
|
*!* replace valoare_default_text With lcValoareText
|
|
|
|
thisform.pageframe1.page2.gridb1.column3.ReadOnly = .t.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.When
|
|
Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcNumeProc, lcFiltruOriginal, ;
|
|
loCauta, lcColoanaText, lcValoareText, lcColoanaId, lcValoareId, liat, lcValoareIdOld, lcValoareTextOld
|
|
|
|
*!* If Empty(Nvl(crsReq.fis_lista,[]))
|
|
*!* Return
|
|
*!* Endif
|
|
|
|
*!* lcSelect = [select ] + Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier) + ;
|
|
*!* [ from ] + Alltrim(crsReq.fis_lista) &&
|
|
*!* lcFiltru = [1=2]
|
|
*!* lcSchema = []
|
|
*!* lcOrder = Alltrim(crsReq.camp_lista)
|
|
*!* lcColoane = Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier)
|
|
*!* lcTitlu = Alltrim(crsReq.label_item)
|
|
*!* lcFiltruOriginal = [inactiv = 0]
|
|
|
|
*!* lcNumeProc = ""
|
|
*!* locauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu, ;
|
|
*!* lcTitlu,lcNumeProc,.F.,lcFiltruOriginal)
|
|
*!*
|
|
*!* lcColoanaText = [locauta.] + Alltrim(crsReq.camp_lista) &&
|
|
*!* lcValoareText = Evaluate(lcColoanaText)
|
|
*!* lcColoanaId = [locauta.] + Alltrim(crsReq.id_fisier)
|
|
*!* lcValoareId = ALLTRIM(STR(Evaluate(lcColoanaId)))
|
|
|
|
*!* SELECT crsReq
|
|
*!* Replace valoare_default With lcvaloareid, valoare_default_text WITH lcValoareText
|
|
*!* this.Parent.Refresh()
|
|
|
|
Select crsItems
|
|
Locate For crsItems.id_item = crsReq.id_item
|
|
If Empty(Nvl(crsItems.fis_lista,[]))
|
|
Thisform.pageframe1.page2.gridb1.column3.ReadOnly = .F.
|
|
Return
|
|
Endif
|
|
|
|
lcValoareTextOld = Alltrim(crsReq.valoare_default_text)
|
|
lcValoareIdOld = Alltrim(crsReq.valoare_default)
|
|
|
|
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)
|
|
|
|
|
|
*lcColoanaText = [loCauta.] + Alltrim(crsItems.camp_lista)
|
|
*lcValoareText = Evaluate(lcColoanaText)
|
|
|
|
*!* 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 pniesire = 2
|
|
lcValoareText = lcValoareTextOld
|
|
lcValoareId = lcValoareIdOld
|
|
Endif
|
|
*!* ^^
|
|
|
|
Select crsReq
|
|
Replace valoare_default With lcValoareId, valoare_default_text With lcValoareText
|
|
This.Parent.Refresh()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Nou1.Command1.Click
|
|
Select crsReq
|
|
Scatter Name oReq
|
|
Append Blank
|
|
Gather Name oReq
|
|
Thisform.nreqnrmax = Thisform.nreqnrmax + 1
|
|
Replace nr_item With Thisform.nreqnrmax, nume_set With crsReq.nume_set , label_item With ''
|
|
Do nrord With "crsReq"
|
|
This.Parent.Parent.GRIDB1.Refresh
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Sterge1.Command1.Click
|
|
SELECT crsReq
|
|
IF crsreq.nr_item = thisform.nreqnrmax
|
|
thisform.nreqnrmax = thisform.nreqnrmax - 1
|
|
endif
|
|
|
|
DELETE
|
|
DO nrord WITH 'crsReq'
|
|
THIS.PARENT.parent.GRIDB1.REFRESH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Activate
|
|
this.gridb1.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.InteractiveChange
|
|
*tcFis, tcNume, tcId, tcTitlu
|
|
locauta = thisform.do_caut_nomenclator('Vnom_valute','nume_val','id_valuta','Numele Valutei')
|
|
SELECT crsNote
|
|
REPLACE nume_val WITH locauta.nume_val, id_valuta WITH locauta.id_valuta
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1.InteractiveChange
|
|
Local lnRec, lnnrcrt
|
|
|
|
Select crsNote
|
|
*!* lnRec = Recno()
|
|
*!* lnnrcrt = nrcrt()
|
|
|
|
Replace proc_tva With (jtva_coloane.cota_tva+100)/100, ;
|
|
id_jtva_coloana With jtva_coloane.id_jtva_coloana, ;
|
|
explicatie_tva with jtva_coloane.denumire IN crsNote
|
|
|
|
Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1.Click
|
|
This.Parent.Parent.Refresh()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1.KeyPress
|
|
Lparameters nKeyCode, nShiftAltCtrl
|
|
If nKeyCode=13 Or nKeyCode=9
|
|
Thisform.pageframe1.ActivePage=2
|
|
Thisform.pageframe1.page2.gridb1.SetFocus
|
|
Else
|
|
DoDefault()
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.InteractiveChange
|
|
Replace id_partd With 0, partd With ''
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.LostFocus
|
|
lcCont = crsNote.xscd
|
|
If !Empty(lcCont)
|
|
llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
|
|
If !llReturn
|
|
Replace crsNote.xscd With ''
|
|
Endif
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.Click
|
|
this.LostFocus(.t.)
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.LostFocus
|
|
Parameters PlClick
|
|
*!* 11.03.2008
|
|
*!* nu verific analiticul
|
|
|
|
If !thisform.lVerificareAnalitic
|
|
Return
|
|
EndIf
|
|
*!* 11.03.2008 ^
|
|
Select crsNote
|
|
lcCont = xscd
|
|
lcAcont = xascd
|
|
If !Empty(lcCont)
|
|
llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascd','crsNote') && in oOperatii_comune.prg
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.InteractiveChange
|
|
REPLACE id_partc WITH 0, partc WITH ''
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.LostFocus
|
|
lcCont = crsNote.xscc
|
|
If !Empty(lcCont)
|
|
llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
|
|
If !llReturn
|
|
Replace crsNote.xscc With ''
|
|
Endif
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.Click
|
|
this.LostFocus(.t.)
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.LostFocus
|
|
Parameters PlClick
|
|
*!* 11.03.2008
|
|
*!* nu verific analiticul
|
|
If !thisform.lVerificareAnalitic
|
|
Return
|
|
EndIf
|
|
*!* 11.03.2008 ^
|
|
Select crsNote
|
|
lcCont = xscc
|
|
lcAcont = xascc
|
|
If !Empty(lcCont)
|
|
llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascc','crsNote') && in oOperatii_comune.prg
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1.LostFocus
|
|
*!* PlClick = .f.
|
|
|
|
*!* SELECT crsNote
|
|
*!* lcContD = scd
|
|
*!* lcAcontD = ascd
|
|
*!* lcContC = scc
|
|
*!* lcAcontC = ascc
|
|
|
|
*!* IF EMPTY(ascc)
|
|
*!* ll_l=THISFORM.verific_analitic(plClick, lcContC, lcAcontC,'ascc')
|
|
*!* *!* IF ll_l
|
|
*!* *!* REPLACE crsNote.ASCC WITH ''
|
|
*!* *!* RETURN 0
|
|
*!* *!* ENDIF
|
|
*!* ENDIF
|
|
|
|
*!* IF EMPTY(ascd)
|
|
*!* ll_l=THISFORM.verific_analitic(plClick, lcContD, lcAcontD,'ascd')
|
|
*!* *!* IF ll_l
|
|
*!* *!* REPLACE crsNote.ASCD WITH ''
|
|
*!* *!* RETURN 0
|
|
*!* *!* ENDIF
|
|
*!* ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1.LostFocus
|
|
IF !thisform.introducere_libera
|
|
IF !EMPTY(suma_val) OR !EMPTY(curs)
|
|
REPLACE suma WITH ROUND(suma_val * curs,gnPc)
|
|
ENDIF
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1.LostFocus
|
|
IF !thisform.introducere_libera
|
|
IF !EMPTY(curs) OR !EMPTY(suma_val)
|
|
REPLACE suma WITH ROUND(curs*suma_val, gnPc)
|
|
ENDIF
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Nou1.Command1.Click
|
|
Select crsNote && append crsNote
|
|
Scatter Name oact
|
|
Append Blank
|
|
GATHER NAME oact
|
|
|
|
|
|
This.Parent.Parent.GRIDB1.Refresh
|
|
*thisform.pageframe1.page4.pageframe1.Refresh()
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Sterge1.Command1.Click
|
|
Select crsNote
|
|
Delete
|
|
*This.Parent.Parent.GRIDB1.Refresh
|
|
Go Top
|
|
Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh()
|
|
Thisform.pageframe1.page3.pageframe1.page2.gridb1.Refresh()
|
|
Thisform.pageframe1.page3.pageframe1.page3.gridb1.Refresh()
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Activate
|
|
this.gridb1.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.InteractiveChange
|
|
locauta = thisform.do_caut_nomenclator('Vnom_fdoc','fel_document','id_fdoc','Felul Documentului')
|
|
SELECT crsNote
|
|
REPLACE fdoc WITH locauta.fel_document, id_fdoc WITH locauta.id_fdoc
|
|
RELEASE locauta
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1.InteractiveChange
|
|
IF !thisform.introducere_libera
|
|
lcSel = this.Parent.Parent.RecordSource
|
|
SELECT (lcSel)
|
|
SCATTER NAME odoc
|
|
&& 0 = ACTIV
|
|
&& 1 = PASIV
|
|
*thisform.aleg_document_pereche(1,odoc)
|
|
DO aleg_document_pereche WITH 1,odoc,lcSel IN oOperatii_comune.prg
|
|
this.Parent.Parent.SetFocus
|
|
RELEASE odoc
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1.KeyPress
|
|
LPARAMETERS nKeyCode, nShiftAltCtrl
|
|
IF nKeyCode=13 OR nKeyCode=9
|
|
thisform.pageframe1.ActivePage=3
|
|
thisform.pageframe1.page3.gridb1.SetFocus
|
|
ELSE
|
|
DODEFAULT()
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1.InteractiveChange
|
|
IF !thisform.introducere_libera
|
|
lcSel = this.Parent.Parent.RecordSource
|
|
SELECT (lcSel)
|
|
SCATTER NAME odoc
|
|
&& 0 = ACTIV
|
|
&& 1 = PASIV
|
|
*thisform.aleg_document_pereche(0,odoc)
|
|
DO aleg_document_pereche WITH 0,odoc,lcSel IN oOperatii_comune.prg
|
|
this.Parent.Parent.SetFocus
|
|
RELEASE odoc
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Activate
|
|
this.gridb1.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.InteractiveChange
|
|
locauta = thisform.do_caut_nomenclator('Vnom_sectii','sectie','id_sectie','Sectia')
|
|
SELECT crsNote
|
|
REPLACE id_sectie WITH locauta.id_sectie, sectie WITH locauta.sectie
|
|
RELEASE locauta
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.InteractiveChange
|
|
If scd_fara_part = 1
|
|
return
|
|
ENDIF
|
|
|
|
Local lcCont, lnIdPartd, lnRezultat, lnSucces, lcSql
|
|
Local loCauta
|
|
Select crsNote
|
|
Private pcCont
|
|
pcCont = Alltrim(Nvl(xscd,''))
|
|
lnIdPartd = id_partd
|
|
If Empty(pcCont)
|
|
Return
|
|
ENDIF
|
|
|
|
Local lnrezultat, lnsucces
|
|
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 = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ;
|
|
[??lAdaugCorespondente=>1??cCont=>] + pcCont))
|
|
Select crsNote
|
|
Replace id_partd With loCauta.id_part, partd With loCauta.nume
|
|
If lnIdPartd <> loCauta.id_part
|
|
Select crsNote
|
|
Replace pereched With 0, id_factd With 0
|
|
Endif
|
|
Else
|
|
AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
|
|
Endif
|
|
Else
|
|
AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.InteractiveChange
|
|
If scc_fara_part = 1
|
|
Return
|
|
Endif
|
|
|
|
Local lcCont, lnIdPartc, lnRezultat, lnSucces, lcSql, lnIdPartc
|
|
Local loCauta
|
|
Select crsNote
|
|
Private pcCont
|
|
pcCont = Alltrim(Nvl(xscc,''))
|
|
lnIdPartc = id_partc
|
|
|
|
If Empty(pcCont)
|
|
Return
|
|
Endif
|
|
Local lnRezultat,lnSucces
|
|
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 = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ;
|
|
[??lAdaugCorespondente=>1??cCont=>] + pcCont))
|
|
Select crsNote
|
|
Replace id_partc With loCauta.id_part, partc With loCauta.nume
|
|
If lnIdPartc <> loCauta.id_part
|
|
Select crsNote
|
|
Replace perechec With 0, id_factc With 0
|
|
Endif
|
|
Else
|
|
AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
|
|
Endif
|
|
Else
|
|
AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1.Click
|
|
If scc_fara_part = 1
|
|
replace partc WITH '', id_partc WITH 0
|
|
this.Parent.Parent.column18.Refresh()
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1.Click
|
|
If scd_fara_part = 1
|
|
replace partd WITH '', id_partd WITH 0
|
|
this.Parent.Parent.column17.Refresh()
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.InteractiveChange
|
|
locauta = thisform.do_caut_nomenclator('Vnom_lucrari','nrord','id_lucrare','Lucrarea / Contractul')
|
|
SELECT crsNote
|
|
REPLACE nrord WITH locauta.nrord, id_lucrare WITH locauta.id_lucrare
|
|
RELEASE locauta
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.InteractiveChange
|
|
*!* locauta = thisform.do_caut_nomenclator('Vnom_responsabili','nume','id_responsabil','Nume responsabil')
|
|
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>] + ;
|
|
ALLTRIM(Str(gnIdTipResponsabili)) + [??lAdaugCorespondente=>1]))
|
|
Select crsNote
|
|
Replace nresp With loCauta.denumire, id_responsabil With loCauta.id_part
|
|
Release loCauta
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.Click
|
|
this.InteractiveChange
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.InteractiveChange
|
|
locauta = thisform.do_caut_nomenclator('Vnom_venchel','explicatie','id_venchelt','Cheltuiala / Venit')
|
|
SELECT crsNote
|
|
REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt
|
|
RELEASE locauta
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Init
|
|
*!* this.column1.header1.BackColor=this.column1.dynamicBackColor
|
|
|
|
|
|
*!* FOR i=1 TO this.ColumnCount
|
|
*!* t='this.column'+ALLTRIM(STR(i))+'.header1.backcolor=this.column'+ALLTRIM(STR(i))+'.backcolor'
|
|
*!* &t
|
|
*!* ENDFOR
|
|
*!* this.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page4.But_precedent1.Click
|
|
Local lcOnError, llErr, lnIdUtil, lnNrRec
|
|
|
|
lnIdUtil = crsDrepturi_utilizatori.id_util
|
|
llErr = .F.
|
|
lcOnError = [ErrorHandler(Error(),Program(),Lineno())]
|
|
On Error llErr = .T.
|
|
|
|
Select Count(*) As nr From crsDrepturi_utilizatori Into Cursor crsUtilizRamasi
|
|
If nr = 0
|
|
Return
|
|
Endif
|
|
Use In (Select("crsUtilizRamasi"))
|
|
|
|
lnNrRec = Recno()
|
|
Begin Transaction
|
|
Insert Into crsUtilizatori(id_util, utilizator) ;
|
|
values(crsDrepturi_utilizatori.id_util,crsDrepturi_utilizatori.utilizator)
|
|
Delete From crsDrepturi_utilizatori Where id_util = lnIdUtil
|
|
If llErr
|
|
Rollback
|
|
&lcOnError
|
|
llErr = .F.
|
|
ELSE
|
|
End Transaction
|
|
Endif
|
|
|
|
On Error &lcOnError
|
|
|
|
Select crsUtilizatori
|
|
Locate For id_util = lnIdUtil
|
|
Select crsDrepturi_utilizatori
|
|
Go Top
|
|
*Go Iif(lnNrRec <> 1, lnNrRec - 1, 1)
|
|
|
|
*!* Thisform.pageframe1.page5.gridb1.Refresh()
|
|
*!* Thisform.pageframe1.page5.gridb2.Refresh()
|
|
Thisform.pageframe1.page4.gridb1.Refresh()
|
|
Thisform.pageframe1.page4.gridb2.Refresh()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page4.But_urmator1.Click
|
|
Local lcOnError, llErr, lnIdUtil, lnNrRec
|
|
|
|
lnIdUtil = crsutilizatori.id_util
|
|
llErr = .F.
|
|
lcOnError = On("error")
|
|
*lcOnError = [ErrorHandler(Error(),Program(),Lineno())]
|
|
On Error llErr = .T.
|
|
|
|
Select Count(*) As nr From crsutilizatori Into Cursor crsUtilizRamasi
|
|
If nr = 0
|
|
Return
|
|
Endif
|
|
Use In (Select("crsUtilizRamasi"))
|
|
|
|
lnNrRec = Recno()
|
|
Begin Transaction
|
|
Insert Into crsDrepturi_utilizatori(id_util, utilizator) ;
|
|
VALUES(crsutilizatori.id_util,crsutilizatori.utilizator)
|
|
Delete From crsutilizatori Where id_util = lnIdUtil
|
|
If llErr
|
|
Rollback
|
|
&lcOnError
|
|
llErr = .F.
|
|
Else
|
|
End Transaction
|
|
Endif
|
|
|
|
On Error &lcOnError
|
|
|
|
Select crsDrepturi_utilizatori
|
|
Locate For id_util = lnIdUtil
|
|
Select crsutilizatori
|
|
Go Top
|
|
*!* lnGoInreg = Iif(lnNrRec <> 1, lnNrRec - 1, 1)
|
|
*!* Go lnGoInreg
|
|
|
|
|
|
Thisform.pageframe1.page4.gridb1.Refresh()
|
|
Thisform.pageframe1.page4.gridb2.Refresh()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page4.Gridb1.COLUMN1.Text1.DblClick
|
|
this.Parent.Parent.Parent.but_urmator1.Click()
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page4.Gridb2.COLUMN1.Text1.DblClick
|
|
this.Parent.Parent.Parent.but_precedent1.Click()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|