romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3593
ferestre/afisbal_ana.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

3440
ferestre/afisbal_val.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

13
ferestre/comun.h Normal file
View File

@@ -0,0 +1,13 @@
#IFNDEF COMUN_H
#DEFINE COMUN_H
#DEFINE LF CHR(10)
#DEFINE CR CHR(10)
#DEFINE CRLF CHR(13) + CHR(10)
#DEFINE CTAB CHR(9)
#DEFINE CT_INSUCCES -1
#DEFINE CT_SUCCES 1
#ENDIF

158
ferestre/datefact.sc2 Normal file
View File

@@ -0,0 +1,158 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="datefact.scx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DataSession = 1
DoCreate = .T.
Height = 176
Name = "Formtermin12"
Width = 336
Shape1.Name = "Shape1"
Terminat1.Command1.Name = "Command1"
Terminat1.Imbuton1.Height = 27
Terminat1.Imbuton1.Name = "Imbuton1"
Terminat1.Imbuton1.Width = 30
Terminat1.Left = 300
Terminat1.Name = "Terminat1"
Terminat1.TabIndex = 5
Terminat1.Top = 3
Titlufrumos1.Caption = "DATE PRIVIND EXPEDITIA"
Titlufrumos1.Height = 37
Titlufrumos1.Left = 7
Titlufrumos1.Name = "Titlufrumos1"
Titlufrumos1.TabIndex = 6
Titlufrumos1.Top = 6
Titlufrumos1.Width = 283
*</PropValue>
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Numele delegatului:", ;
Height = 17, ;
Left = 6, ;
Name = "Label1", ;
TabIndex = 7, ;
Top = 55, ;
Width = 113
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Buletinul/cartea de identitate (seria,numarul)", ;
Height = 35, ;
Left = 6, ;
Name = "Label2", ;
TabIndex = 8, ;
Top = 80, ;
Width = 168, ;
WordWrap = .T.
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Eliberat(a) de:", ;
Height = 23, ;
Left = 6, ;
Name = "Label3", ;
TabIndex = 9, ;
Top = 116, ;
Width = 168, ;
WordWrap = .T.
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Mijloc de transport:", ;
Height = 23, ;
Left = 6, ;
Name = "Label4", ;
TabIndex = 10, ;
Top = 141, ;
Width = 168, ;
WordWrap = .T.
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text1' AS textbox WITH ;
ControlSource = "pcdelegat", ;
Format = "K!", ;
Height = 23, ;
Left = 126, ;
Name = "Text1", ;
SpecialEffect = 2, ;
TabIndex = 1, ;
Top = 52, ;
Width = 204
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
ControlSource = "pcbi", ;
Format = "K!", ;
Height = 23, ;
Left = 186, ;
Name = "Text2", ;
SpecialEffect = 2, ;
TabIndex = 2, ;
Top = 77, ;
Width = 144
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
ControlSource = "pceliberatde", ;
Format = "K!", ;
Height = 23, ;
Left = 186, ;
Name = "Text3", ;
SpecialEffect = 2, ;
TabIndex = 3, ;
Top = 113, ;
Width = 144
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
ControlSource = "pcnrinmat", ;
Format = "K!", ;
Height = 23, ;
Left = 186, ;
Name = "Text4", ;
SpecialEffect = 2, ;
TabIndex = 4, ;
Top = 138, ;
Width = 144
*< END OBJECT: BaseClass="textbox" />
ENDDEFINE

94
ferestre/frm_about.sc2 Normal file
View File

@@ -0,0 +1,94 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_about.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*<PropValue>
AlwaysOnTop = .T.
AutoCenter = .T.
BackColor = 255,255,255
BorderStyle = 1
Caption = ""
Closable = .T.
ControlBox = .T.
DoCreate = .T.
Height = 288
Icon = ..\..\
MaxButton = .F.
MinButton = .F.
Movable = .T.
Name = "FORM1"
Width = 366
WindowType = 1
*</PropValue>
ADD OBJECT 'Edit1' AS editbox WITH ;
BackColor = 205,205,205, ;
DisabledForeColor = 0,0,0, ;
Enabled = .T., ;
Height = 209, ;
Left = 24, ;
Name = "Edit1", ;
ReadOnly = .T., ;
Top = 70, ;
Width = 324
*< END OBJECT: BaseClass="editbox" />
ADD OBJECT 'Image1' AS image WITH ;
BackStyle = 1, ;
Height = 24, ;
Left = 24, ;
Name = "Image1", ;
Top = 9, ;
Width = 29
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Label1' AS label WITH ;
BackStyle = 0, ;
Caption = "Label1", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 24, ;
Name = "Label1", ;
Top = 42, ;
Width = 324
*< END OBJECT: BaseClass="label" />
PROCEDURE Init
lcFileName = UPPER(JUSTSTEM(SYS(16,0)))
this.Caption = 'Despre ' + lcFileName
this.label1.Caption = lcFileName
this.edit1.Value = get_version(.F.,.T.)
IF !EMPTY(_screen.Icon)
this.image1.Picture = _screen.Icon
this.Icon = _screen.Icon
ELSE
this.image1.Visible = .F.
ENDIF
ENDPROC
ENDDEFINE

123
ferestre/frm_borderou_facturi.sc2 Normal file
View File

@@ -0,0 +1,123 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_borderou_facturi.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_borderou_facturi1 AS frm_borderou_facturi OF "..\clase\ofacturare_comun.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Height = 460
Name = "Frm_borderou_facturi1"
Width = 792
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
But_start_criterii1.Name = "But_start_criterii1"
But_reset_criterii1.Name = "But_reset_criterii1"
Gridextra1.Name = "Gridextra1"
grdFacturi.cdatafact.Header1.Name = "Header1"
grdFacturi.cdatafact.Name = "cdatafact"
grdFacturi.cdatafact.Text1.Name = "Text1"
grdFacturi.cInValuta.Header1.Name = "Header1"
grdFacturi.cInValuta.Name = "cInValuta"
grdFacturi.cInValuta.Text1.Name = "Text1"
grdFacturi.cInValuta._checkbox1.Alignment = 2
grdFacturi.cInValuta._checkbox1.Name = "_checkbox1"
grdFacturi.cnrfact.Header1.Name = "Header1"
grdFacturi.cnrfact.Name = "cnrfact"
grdFacturi.cnrfact.Text1.Name = "Text1"
grdFacturi.cSerieFact.Header1.Name = "Header1"
grdFacturi.cSerieFact.Name = "cSerieFact"
grdFacturi.cSerieFact.Text1.Name = "Text1"
grdFacturi.cTipFactura.Header1.Name = "Header1"
grdFacturi.cTipFactura.Name = "cTipFactura"
grdFacturi.cTipFactura.Text1.Name = "Text1"
grdFacturi.cValcTVA.Header1.Name = "Header1"
grdFacturi.cValcTVA.Name = "cValcTVA"
grdFacturi.cValcTVA.Text1.Name = "Text1"
grdFacturi.cValftva.Header1.Name = "Header1"
grdFacturi.cValftva.Name = "cValftva"
grdFacturi.cValftva.Text1.Name = "Text1"
grdFacturi.cValuta.Header1.Name = "Header1"
grdFacturi.cValuta.Name = "cValuta"
grdFacturi.cValuta.Text1.Name = "Text1"
grdFacturi.cValval.Header1.Name = "Header1"
grdFacturi.cValval.Name = "cValval"
grdFacturi.cValval.Text1.Name = "Text1"
grdFacturi.Name = "grdFacturi"
grdBorderou.cAles.Header1.Name = "Header1"
grdBorderou.cAles.Name = "cAles"
grdBorderou.cAles.Text1.Name = "Text1"
grdBorderou.cAles._checkbox1.Alignment = 2
grdBorderou.cAles._checkbox1.Name = "_checkbox1"
grdBorderou.cClient.Header1.Name = "Header1"
grdBorderou.cClient.Name = "cClient"
grdBorderou.cClient.Text1.Name = "Text1"
grdBorderou.cConfirmat.Header1.Name = "Header1"
grdBorderou.cConfirmat.Name = "cConfirmat"
grdBorderou.cConfirmat.Text1.Name = "Text1"
grdBorderou.cConfirmat._checkbox1.Alignment = 2
grdBorderou.cConfirmat._checkbox1.Name = "_checkbox1"
grdBorderou.cData.Header1.Name = "Header1"
grdBorderou.cData.Name = "cData"
grdBorderou.cData.Text1.Name = "Text1"
grdBorderou.cDataConfirmat.Header1.Name = "Header1"
grdBorderou.cDataConfirmat.Name = "cDataConfirmat"
grdBorderou.cDataConfirmat.Text1.Name = "Text1"
grdBorderou.cDataTrimis.Header1.Name = "Header1"
grdBorderou.cDataTrimis.Name = "cDataTrimis"
grdBorderou.cDataTrimis.Text1.Name = "Text1"
grdBorderou.cId.Header1.Name = "Header1"
grdBorderou.cId.Name = "cId"
grdBorderou.cId.Text1.Name = "Text1"
grdBorderou.cTrimis.Header1.Name = "Header1"
grdBorderou.cTrimis.Name = "cTrimis"
grdBorderou.cTrimis.Text1.Name = "Text1"
grdBorderou.cTrimis._checkbox1.Alignment = 2
grdBorderou.cTrimis._checkbox1.Name = "_checkbox1"
grdBorderou.Name = "grdBorderou"
Sfsplitterh1.gripper.GripperDot1.Name = "GripperDot1"
Sfsplitterh1.gripper.GripperDot1.ShapeDark.Name = "ShapeDark"
Sfsplitterh1.gripper.GripperDot1.ShapeLight.Name = "ShapeLight"
Sfsplitterh1.gripper.GripperDot1.ShapeMiddle.Name = "ShapeMiddle"
Sfsplitterh1.gripper.GripperDot2.Name = "GripperDot2"
Sfsplitterh1.gripper.GripperDot2.ShapeDark.Name = "ShapeDark"
Sfsplitterh1.gripper.GripperDot2.ShapeLight.Name = "ShapeLight"
Sfsplitterh1.gripper.GripperDot2.ShapeMiddle.Name = "ShapeMiddle"
Sfsplitterh1.gripper.GripperDot3.Name = "GripperDot3"
Sfsplitterh1.gripper.GripperDot3.ShapeDark.Name = "ShapeDark"
Sfsplitterh1.gripper.GripperDot3.ShapeLight.Name = "ShapeLight"
Sfsplitterh1.gripper.GripperDot3.ShapeMiddle.Name = "ShapeMiddle"
Sfsplitterh1.gripper.GripperDot4.Name = "GripperDot4"
Sfsplitterh1.gripper.GripperDot4.ShapeDark.Name = "ShapeDark"
Sfsplitterh1.gripper.GripperDot4.ShapeLight.Name = "ShapeLight"
Sfsplitterh1.gripper.GripperDot4.ShapeMiddle.Name = "ShapeMiddle"
Sfsplitterh1.gripper.GripperDot5.Name = "GripperDot5"
Sfsplitterh1.gripper.GripperDot5.ShapeDark.Name = "ShapeDark"
Sfsplitterh1.gripper.GripperDot5.ShapeLight.Name = "ShapeLight"
Sfsplitterh1.gripper.GripperDot5.ShapeMiddle.Name = "ShapeMiddle"
Sfsplitterh1.gripper.Name = "gripper"
Sfsplitterh1.Name = "Sfsplitterh1"
But_listare1.Name = "But_listare1"
*</PropValue>
ENDDEFINE

106
ferestre/frm_cere_nrserie.sc2 Normal file
View File

@@ -0,0 +1,106 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_cere_nrserie.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_termin_renunt1 AS frm_termin_renunt OF "..\clase\_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Clb_tx_serie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_nract" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 108
Name = "Frm_termin_renunt1"
Width = 332
WindowType = 1
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Height = 29
_SHAPE2.Left = 270
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 67
LB_TITLU_ALB_B121.Caption = ""
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 5
BUT_TERMIN1.Left = 301
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
BUT_RENUNT1.Left = 272
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 4
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_tx_nract' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_nract", ;
TabIndex = 2, ;
Top = 68, ;
Width = 306, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.ControlSource = "pnNrAct", ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(14,0)), ;
Text_simplu1.Left = 144, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.TabIndex = 1, ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = 0, ;
Text_simplu1.Width = 154, ;
Lb_simplu1.Caption = "Numar doc.", ;
Lb_simplu1.FontSize = 10, ;
Lb_simplu1.Name = "Lb_simplu1", ;
Lb_simplu1.TabIndex = 2
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_serie' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_serie", ;
TabIndex = 1, ;
Top = 40, ;
Width = 306, ;
TEXT_SIMPLU1.ControlSource = "pcSerie", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 144, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.TabIndex = 1, ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 154, ;
LB_SIMPLU1.Caption = "Seria", ;
LB_SIMPLU1.FontSize = 10, ;
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
LB_SIMPLU1.TabIndex = 2
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE Init
Parameters tcTitlu
If !Empty(tcTitlu)
This.lB_TITLU_ALB_B121.Caption = tcTitlu
Endif
DoDefault()
ENDPROC
ENDDEFINE

93
ferestre/frm_cere_text.sc2 Normal file
View File

@@ -0,0 +1,93 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_cere_text.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_termin_renunt1 AS frm_termin_renunt OF "..\clase\_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 99
Name = "Frm_termin_renunt1"
Width = 332
WindowType = 1
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Height = 29
_SHAPE2.Left = 266
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 67
LB_TITLU_ALB_B121.Caption = ""
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 4
BUT_TERMIN1.Left = 300
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
BUT_RENUNT1.Left = 271
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 3
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 48, ;
Width = 306, ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 144, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.TabIndex = 1, ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 154, ;
LB_SIMPLU1.Caption = "Inroduceti numarul", ;
LB_SIMPLU1.FontSize = 10, ;
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
LB_SIMPLU1.TabIndex = 2
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE Destroy
lReturn = this.clb_tx_simplu1.tEXT_SIMPLU1.Value
RETURN lReturn
ENDPROC
PROCEDURE Init
PARAMETERS tcLabel, tControlSource,tcTitlu
IF !EMPTY(tcLabel)
this.clb_tx_simplu1.lB_SIMPLU1.Caption = ALLTRIM(tcLabel)
ENDIF
IF !EMPTY(tControlSource)
this.clb_tx_simplu1.tEXT_SIMPLU1.ControlSource = tControlSource
ENDIF
IF !EMPTY(tcTitlu)
this.lB_TITLU_ALB_B121.Caption = tcTitlu
ENDIF
DODEFAULT()
ENDPROC
ENDDEFINE

76
ferestre/frm_changelog.sc2 Normal file
View File

@@ -0,0 +1,76 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_changelog.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _frmbase1 AS _frmbase OF "..\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: cchangelog
*</DefinedPropArrayMethod>
*<PropValue>
cchangelog =
DoCreate = .T.
FontCharSet = 238
Height = 250
Name = "_frmbase1"
Width = 375
_shape1.Anchor = 10
_shape1.Name = "_shape1"
_shape2.Anchor = 8
_shape2.Height = 29
_shape2.Left = 340
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 36
Lb_titlu_alb_b121.Caption = "Jurnal modific<69>ri"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 344
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'Edit1' AS editbox WITH ;
Anchor = 15, ;
ControlSource = "thisform.cChangeLog", ;
FontSize = 12, ;
Height = 204, ;
Left = 12, ;
Name = "Edit1", ;
ReadOnly = .T., ;
Top = 36, ;
Width = 348
*< END OBJECT: BaseClass="editbox" />
PROCEDURE Init
this.WindowState = 2
lcAppName = gcAppName
lcFile = ADDBS(gcAppPath) + 'changelog_' + lcAppName + '.txt'
IF FILE(lcFile)
thisform.cChangeLog = FILETOSTR(lcFile)
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

305
ferestre/frm_chatbot.sc2 Normal file
View File

@@ -0,0 +1,305 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_chatbot.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _frmbase1 AS _frmbase OF "..\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Edit2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="oleWebBrowser" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboChatBot" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: addhtmltext
*p: cchangelog
*p: cchatbot
*p: cchatid
*p: chtmlbody
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
cchangelog =
cchatbot = Cezar
cchatid =
chtmlbody =
DoCreate = .T.
FontCharSet = 238
Height = 521
Name = "_frmbase1"
Width = 678
_memberdata = <VFPData>
<memberdata name="addhtmltext" display="AddHtmlText"/>
<memberdata name="cchatid" display="cChatId"/>
<memberdata name="cchatbot" display="cChatBot"/>
</VFPData>
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 684
_shape2.Anchor = 8
_shape2.Height = 29
_shape2.Left = 642
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 36
Lb_titlu_alb_b121.Caption = "Romfast Suport Chatbot"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 3
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 647
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 0
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_reset1' AS but_reset WITH ;
Anchor = 8, ;
Left = 615, ;
Name = "But_reset1", ;
Top = 0
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cboChatBot' AS _combobox WITH ;
Anchor = 12, ;
BorderStyle = 0, ;
Height = 24, ;
Left = 581, ;
Name = "cboChatBot", ;
RowSource = "Maria,Cezar", ;
RowSourceType = 1, ;
SpecialEffect = 1, ;
Top = 456, ;
Value = Cezar, ;
Width = 83
*< END OBJECT: ClassLib="..\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Anchor = 12, ;
Caption = "...", ;
FontCharSet = 1, ;
FontSize = 20, ;
ForeColor = 0,128,255, ;
Height = 31, ;
Left = 581, ;
Name = "Cmd_executa1", ;
TabIndex = 2, ;
Top = 484, ;
Width = 83
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Edit2' AS editbox WITH ;
Anchor = 14, ;
ControlSource = "", ;
FontSize = 12, ;
Height = 60, ;
Left = 7, ;
Name = "Edit2", ;
ReadOnly = .F., ;
TabIndex = 1, ;
Top = 452, ;
Width = 569
*< END OBJECT: BaseClass="editbox" />
ADD OBJECT 'oleWebBrowser' AS _webbrowser4 WITH ;
Anchor = 15, ;
Height = 396, ;
Left = 7, ;
Name = "oleWebBrowser", ;
Top = 48, ;
Width = 663
*< END OBJECT: ClassLib="..\utile\web\_webview.vcx" BaseClass="olecontrol" OLEObject="c:\windows\syswow64\ieframe.dll" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGDDhqk9fdsBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAA4AAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAAAAAAAwAAAP7////+////BAAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9h+VaICjTQEalrAMBP1wWiTAAAAIZEAADuKAAAAQAAAAUAAAAAAAAAAAAAAAAAAAAAAAAATAAAAAAAAAAAAAAAOAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAA4NBXAHM1zxGuaQgAKy4SYggAAAAAAAAATAAAAAEUAgAAAAAAwAAAAAAAAEaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
PROCEDURE addhtmltext
LPARAMETERS tcText, tlUser
* tcText: textul user/bot
* tlUser: text trimis de user sau de bot
lcClass = IIF(m.tlUser, "user", "assistant")
lcText = IIF(m.tlUser, "I: ", "R: ") + m.tcText
TEXT TO lcHtmlText TEXTMERGE NOSHOW
<div class="chat-bubble <<m.lcClass>>"><<m.lcText>></div>
ENDTEXT
Thisform.cHtmlbody = Thisform.cHtmlbody + CHR(13) + m.lcHtmlText
TEXT TO lcHtml TEXTMERGE NOSHOW
<!DOCTYPE html>
<html lang="ro">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>Exemplu Bule de Chat</title>
<style>
body {
font-family: ui-sans-serif, system-ui, -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, "Helvetica Neue", Arial, "Noto Sans", sans-serif, "Apple Color Emoji", "Segoe UI Emoji", "Segoe UI Symbol", "Noto Color Emoji";
margin: 0;
padding: 20px;
background-color: #ffffff;
}
.chat-container {
max-width: 600px;
margin: 0 auto;
}
.chat-bubble {
border-radius: 18px;
padding: 12px 16px;
margin-bottom: 12px;
max-width: 80%;
box-shadow: 0 1px 2px rgba(0, 0, 0, 0.1);
}
.assistant {
background-color: #f0f0f0;
color: black;
align-self: flex-start;
border-bottom-left-radius: 4px;
}
.user {
background-color: #0084ff;
color: white;
align-self: flex-end;
margin-left: auto;
border-bottom-right-radius: 4px;
box-shadow: 0 1px 2px rgba(0, 0, 0, 0.2);
}
</style>
</head>
<body>
<div class="chat-container">
<<Thisform.cHtmlbody>>
</div>
</body>
</html>
ENDTEXT
lnLoadTimeout = 3 && seconds
WITH Thisform.oleWebBrowser.object
*!* .Navigate("about:blank")
*!* * Wait for load completion
*!* lnStartSeconds = SECONDS()
*!* DO WHILE .ReadyState <> 4 ;
*!* AND (SECONDS()-lnStartSeconds <= lnLoadTimeout )
*!* DOEVENTS
*!* ENDDO
* Load HTML into Web Browser Control
.Document.Open()
.Document.Write(m.lcHtml)
.Document.Close()
* Wait for load completion
lnStartSeconds = SECONDS()
DO WHILE .ReadyState <> 4 ;
AND (SECONDS()-lnStartSeconds <= lnLoadTimeout )
DOEVENTS
ENDDO
ENDWITH
ENDPROC
PROCEDURE do_reset
Local lnLoadTimeout, lnStartSeconds
lnLoadTimeout = 3 && seconds
WITH Thisform.oleWebBrowser.object
.Navigate("about:blank")
* Wait for load completion
lnStartSeconds = SECONDS()
DO WHILE .ReadyState <> 4 ;
AND (SECONDS()-lnStartSeconds <= lnLoadTimeout )
DOEVENTS
ENDDO
.Document.Open()
.Document.Write('')
.Document.Close()
Thisform.cHtmlbody = ''
Thisform.AddHtmlText("Buna, cu ce pot sa te ajut?", .F.)
ENDWITH
Thisform.cChatId = ""
Thisform.edit2.SetFocus()
ENDPROC
PROCEDURE Init
this.Height = INT(_screen.Height*0.7)
this.Width = INT(_screen.Width * 0.4)
this.AutoCenter = .T.
Thisform.do_reset()
DODEFAULT()
ENDPROC
PROCEDURE cboChatBot.Valid
IF this.Value <> Thisform.cChatBot
Thisform.cChatBot = this.Value
Thisform.do_reset()
thisform.edit2.SetFocus()
ENDIF
ENDPROC
PROCEDURE cboChatBot.When
Thisform.cChatBot = this.Value
ENDPROC
PROCEDURE Cmd_executa1.Click
LOCAL lcQuestion, m.llMarkdown2Html
Local lcChatId, lcRaspuns, llMarkdown2Html, lcChatBot
m.llMarkdown2Html = .T.
lcQuestion = thisform.edit2.Value
lcChatBot = thisform.cboChatBot.Value
*!* thisform.edit1.Value = thisform.edit1.Value + CHR(13) + CHR(10) + ;
*!* SPACE(20) + 'I: ' + m.lcQuestion
thisform.edit2.Value = ''
Thisform.AddHtmlText(m.lcQuestion, .T.)
Thisform.Refresh()
lcChatId = Thisform.cChatId
lcRaspuns = chatbot(m.lcQuestion, @lcChatId, m.llMarkdown2Html, m.lcChatBot)
Thisform.cChatId = m.lcChatId
*!* thisform.edit1.Value = thisform.edit1.Value + CHR(13) + CHR(10) + ;
*!* 'R: ' + m.lcRaspuns
Thisform.AddHtmlText(m.lcRaspuns, .F.)
thisform.edit2.SetFocus()
Thisform.Refresh()
ENDPROC
PROCEDURE Edit2.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeyCode = 13
Thisform.cmd_executa1.Click()
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE

133
ferestre/frm_config_note_contabile.sc2 Normal file
View File

@@ -0,0 +1,133 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_config_note_contabile.scx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_config_note_contabile1 AS frm_config_note_contabile OF "..\clase\onote_contabile.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_config_note_contabile1"
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Name = "_SHAPE2"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
GRIDSORT1.Name = "GRIDSORT1"
_pageframe1.ErasePage = .T.
_pageframe1.Name = "_pageframe1"
_pageframe1.PAGE1.But_modifica1.Name = "But_modifica1"
_pageframe1.PAGE1.But_modifica2.Name = "But_modifica2"
_pageframe1.PAGE1.BUT_NOU1.Name = "BUT_NOU1"
_pageframe1.PAGE1.But_nou2.Name = "But_nou2"
_pageframe1.PAGE1.But_reface1.Name = "But_reface1"
_pageframe1.PAGE1.But_sterge1.Name = "But_sterge1"
_pageframe1.PAGE1.But_sterge2.Name = "But_sterge2"
_pageframe1.PAGE1.gridInregistrari.cAscc.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cAscc.Name = "cAscc"
_pageframe1.PAGE1.gridInregistrari.cAscc.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cAscd.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cAscd.Name = "cAscd"
_pageframe1.PAGE1.gridInregistrari.cAscd.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cCu_tva.Check1.Alignment = 0
_pageframe1.PAGE1.gridInregistrari.cCu_tva.Check1.Name = "Check1"
_pageframe1.PAGE1.gridInregistrari.cCu_tva.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cCu_tva.Name = "cCu_tva"
_pageframe1.PAGE1.gridInregistrari.cExplicatie.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cExplicatie.Name = "cExplicatie"
_pageframe1.PAGE1.gridInregistrari.cExplicatie.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cin_valuta.Check1.Alignment = 0
_pageframe1.PAGE1.gridInregistrari.cin_valuta.Check1.Name = "Check1"
_pageframe1.PAGE1.gridInregistrari.cin_valuta.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cin_valuta.Name = "cin_valuta"
_pageframe1.PAGE1.gridInregistrari.COLUMN10.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.COLUMN10.Name = "COLUMN10"
_pageframe1.PAGE1.gridInregistrari.COLUMN10.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.COLUMN11.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.COLUMN11.Name = "COLUMN11"
_pageframe1.PAGE1.gridInregistrari.COLUMN11.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cOrdine.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cOrdine.Name = "cOrdine"
_pageframe1.PAGE1.gridInregistrari.cOrdine.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cptva.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cptva.Name = "cptva"
_pageframe1.PAGE1.gridInregistrari.cptva.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cScc.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cScc.Name = "cScc"
_pageframe1.PAGE1.gridInregistrari.cScc.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cScd.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cScd.Name = "cScd"
_pageframe1.PAGE1.gridInregistrari.cScd.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.Name = "gridInregistrari"
_pageframe1.PAGE1.gridNote.COLUMN1.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN1.Name = "COLUMN1"
_pageframe1.PAGE1.gridNote.COLUMN1.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.COLUMN2.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN2.Name = "COLUMN2"
_pageframe1.PAGE1.gridNote.COLUMN2.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.COLUMN3.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN3.Name = "COLUMN3"
_pageframe1.PAGE1.gridNote.COLUMN3.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.COLUMN4.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN4.Name = "COLUMN4"
_pageframe1.PAGE1.gridNote.COLUMN4.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.Name = "gridNote"
_pageframe1.PAGE1.Name = "PAGE1"
_pageframe1.PAGE2.But_copiaza2.Name = "But_copiaza2"
_pageframe1.PAGE2.But_editeazaset.Name = "But_editeazaset"
_pageframe1.PAGE2.But_modifica1.Name = "But_modifica1"
_pageframe1.PAGE2.But_modifica2.Name = "But_modifica2"
_pageframe1.PAGE2.BUT_NOU1.Name = "BUT_NOU1"
_pageframe1.PAGE2.But_nou2.Name = "But_nou2"
_pageframe1.PAGE2.But_renunt2.Name = "But_renunt2"
_pageframe1.PAGE2.But_renunt3.Name = "But_renunt3"
_pageframe1.PAGE2.But_salveaza1.Name = "But_salveaza1"
_pageframe1.PAGE2.But_salveaza2.Name = "But_salveaza2"
_pageframe1.PAGE2.But_sterge1.Name = "But_sterge1"
_pageframe1.PAGE2.But_sterge2.Name = "But_sterge2"
_pageframe1.PAGE2.cboCategorii.Name = "cboCategorii"
_pageframe1.PAGE2.grdUCategorii.COLUMN1.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUCategorii.COLUMN1.Name = "COLUMN1"
_pageframe1.PAGE2.grdUCategorii.COLUMN1.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUCategorii.COLUMN2.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUCategorii.COLUMN2.Name = "COLUMN2"
_pageframe1.PAGE2.grdUCategorii.COLUMN2.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUCategorii.COLUMN3.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUCategorii.COLUMN3.Name = "COLUMN3"
_pageframe1.PAGE2.grdUCategorii.COLUMN3.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUCategorii.Name = "grdUCategorii"
_pageframe1.PAGE2.grdUSets.COLUMN1.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUSets.COLUMN1.Name = "COLUMN1"
_pageframe1.PAGE2.grdUSets.COLUMN1.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUSets.COLUMN2.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUSets.COLUMN2.Name = "COLUMN2"
_pageframe1.PAGE2.grdUSets.COLUMN2.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUSets.Name = "grdUSets"
_pageframe1.PAGE2.lblCategorie.Name = "lblCategorie"
_pageframe1.PAGE2.lblCategorie2.Name = "lblCategorie2"
_pageframe1.PAGE2.lblOrdine.Name = "lblOrdine"
_pageframe1.PAGE2.lblSet.Name = "lblSet"
_pageframe1.PAGE2.Name = "PAGE2"
_pageframe1.PAGE2.spnOrdine.Name = "spnOrdine"
_pageframe1.PAGE2.txtCategorie.Name = "txtCategorie"
_pageframe1.PAGE2.txtSet.Name = "txtSet"
_pageframe1.PAGE2._LABEL1.Name = "_LABEL1"
_pageframe1.PAGE2._LABEL2.Name = "_LABEL2"
*</PropValue>
ENDDEFINE

265
ferestre/frm_config_note_contabile2007.sc2 Normal file
View File

@@ -0,0 +1,265 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_config_note_contabile2007.scx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_config_note_contabile20071 AS frm_config_note_contabile2007 OF "..\clase\onote_contabile.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_config_note_contabile20071"
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Name = "_SHAPE2"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
GRIDSORT1.Name = "GRIDSORT1"
_pageframe1.ErasePage = .T.
_pageframe1.Name = "_pageframe1"
_pageframe1.PAGE1.But_modifica1.Name = "But_modifica1"
_pageframe1.PAGE1.But_modifica2.Name = "But_modifica2"
_pageframe1.PAGE1.BUT_NOU1.Name = "BUT_NOU1"
_pageframe1.PAGE1.But_nou2.Name = "But_nou2"
_pageframe1.PAGE1.But_sterge1.Name = "But_sterge1"
_pageframe1.PAGE1.But_sterge2.Name = "But_sterge2"
_pageframe1.PAGE1.gridInregistrari.cAscc.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cAscc.Name = "cAscc"
_pageframe1.PAGE1.gridInregistrari.cAscc.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cAscd.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cAscd.Name = "cAscd"
_pageframe1.PAGE1.gridInregistrari.cAscd.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cCu_tva.Check1.Alignment = 2
_pageframe1.PAGE1.gridInregistrari.cCu_tva.Check1.Name = "Check1"
_pageframe1.PAGE1.gridInregistrari.cCu_tva.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cCu_tva.Name = "cCu_tva"
_pageframe1.PAGE1.gridInregistrari.cExplicatie.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cExplicatie.Name = "cExplicatie"
_pageframe1.PAGE1.gridInregistrari.cExplicatie.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cExplicatieTVA.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cExplicatieTVA.Name = "cExplicatieTVA"
_pageframe1.PAGE1.gridInregistrari.cExplicatieTVA.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cin_valuta.Check1.Alignment = 2
_pageframe1.PAGE1.gridInregistrari.cin_valuta.Check1.Name = "Check1"
_pageframe1.PAGE1.gridInregistrari.cin_valuta.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cin_valuta.Name = "cin_valuta"
_pageframe1.PAGE1.gridInregistrari.cOrdine.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cOrdine.Name = "cOrdine"
_pageframe1.PAGE1.gridInregistrari.cOrdine.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cPartc.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cPartc.Name = "cPartc"
_pageframe1.PAGE1.gridInregistrari.cPartc.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cPartd.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cPartd.Name = "cPartd"
_pageframe1.PAGE1.gridInregistrari.cPartd.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cptva.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cptva.Name = "cptva"
_pageframe1.PAGE1.gridInregistrari.cptva.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cScc.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cScc.Name = "cScc"
_pageframe1.PAGE1.gridInregistrari.cScc.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.cScd.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridInregistrari.cScd.Name = "cScd"
_pageframe1.PAGE1.gridInregistrari.cScd.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridInregistrari.Name = "gridInregistrari"
_pageframe1.PAGE1.gridNote.COLUMN1.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN1.Name = "COLUMN1"
_pageframe1.PAGE1.gridNote.COLUMN1.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.COLUMN2.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN2.Name = "COLUMN2"
_pageframe1.PAGE1.gridNote.COLUMN2.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.COLUMN3.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN3.Name = "COLUMN3"
_pageframe1.PAGE1.gridNote.COLUMN3.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.COLUMN4.HEADER1.Name = "HEADER1"
_pageframe1.PAGE1.gridNote.COLUMN4.Name = "COLUMN4"
_pageframe1.PAGE1.gridNote.COLUMN4.TEXT1.Name = "TEXT1"
_pageframe1.PAGE1.gridNote.Name = "gridNote"
_pageframe1.PAGE1.Name = "PAGE1"
_pageframe1.PAGE2.But_copiaza2.Name = "But_copiaza2"
_pageframe1.PAGE2.But_editeazaset.Name = "But_editeazaset"
_pageframe1.PAGE2.But_modifica1.Name = "But_modifica1"
_pageframe1.PAGE2.But_modifica2.Name = "But_modifica2"
_pageframe1.PAGE2.BUT_NOU1.Name = "BUT_NOU1"
_pageframe1.PAGE2.But_nou2.Name = "But_nou2"
_pageframe1.PAGE2.But_renunt3.Name = "But_renunt3"
_pageframe1.PAGE2.But_salveaza1.Name = "But_salveaza1"
_pageframe1.PAGE2.But_sterge1.Name = "But_sterge1"
_pageframe1.PAGE2.But_sterge2.Name = "But_sterge2"
_pageframe1.PAGE2.grdNote.CALES.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.CALES.Name = "CALES"
_pageframe1.PAGE2.grdNote.CALES.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.CALES._CHECKBOX1.Alignment = 2
_pageframe1.PAGE2.grdNote.CALES._CHECKBOX1.Name = "_CHECKBOX1"
_pageframe1.PAGE2.grdNote.COLUMN1.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN1.Name = "COLUMN1"
_pageframe1.PAGE2.grdNote.COLUMN1.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN10.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN10.Name = "COLUMN10"
_pageframe1.PAGE2.grdNote.COLUMN10.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN11.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN11.Name = "COLUMN11"
_pageframe1.PAGE2.grdNote.COLUMN11.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN12.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN12.Name = "COLUMN12"
_pageframe1.PAGE2.grdNote.COLUMN12.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN13.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN13.Name = "COLUMN13"
_pageframe1.PAGE2.grdNote.COLUMN13.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN14.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN14.Name = "COLUMN14"
_pageframe1.PAGE2.grdNote.COLUMN14.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN15.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN15.Name = "COLUMN15"
_pageframe1.PAGE2.grdNote.COLUMN15.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN16.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN16.Name = "COLUMN16"
_pageframe1.PAGE2.grdNote.COLUMN16.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN17.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN17.Name = "COLUMN17"
_pageframe1.PAGE2.grdNote.COLUMN17.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN18.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN18.Name = "COLUMN18"
_pageframe1.PAGE2.grdNote.COLUMN18.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN19.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN19.Name = "COLUMN19"
_pageframe1.PAGE2.grdNote.COLUMN19.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN2.HEADER2.Name = "HEADER2"
_pageframe1.PAGE2.grdNote.COLUMN2.Name = "COLUMN2"
_pageframe1.PAGE2.grdNote.COLUMN2.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN20.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN20.Name = "COLUMN20"
_pageframe1.PAGE2.grdNote.COLUMN20.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN21.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN21.Name = "COLUMN21"
_pageframe1.PAGE2.grdNote.COLUMN21.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN22.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN22.Name = "COLUMN22"
_pageframe1.PAGE2.grdNote.COLUMN22.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN23.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN23.Name = "COLUMN23"
_pageframe1.PAGE2.grdNote.COLUMN23.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN24.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN24.Name = "COLUMN24"
_pageframe1.PAGE2.grdNote.COLUMN24.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN25.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN25.Name = "COLUMN25"
_pageframe1.PAGE2.grdNote.COLUMN25.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN26.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN26.Name = "COLUMN26"
_pageframe1.PAGE2.grdNote.COLUMN26.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN27.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN27.Name = "COLUMN27"
_pageframe1.PAGE2.grdNote.COLUMN27.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN28.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN28.Name = "COLUMN28"
_pageframe1.PAGE2.grdNote.COLUMN28.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN29.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN29.Name = "COLUMN29"
_pageframe1.PAGE2.grdNote.COLUMN29.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN3.HEADER3.Name = "HEADER3"
_pageframe1.PAGE2.grdNote.COLUMN3.Name = "COLUMN3"
_pageframe1.PAGE2.grdNote.COLUMN3.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN30.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN30.Name = "COLUMN30"
_pageframe1.PAGE2.grdNote.COLUMN30.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN31.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN31.Name = "COLUMN31"
_pageframe1.PAGE2.grdNote.COLUMN31.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN32.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN32.Name = "COLUMN32"
_pageframe1.PAGE2.grdNote.COLUMN32.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN33.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN33.Name = "COLUMN33"
_pageframe1.PAGE2.grdNote.COLUMN33.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN34.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN34.Name = "COLUMN34"
_pageframe1.PAGE2.grdNote.COLUMN34.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN35.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN35.Name = "COLUMN35"
_pageframe1.PAGE2.grdNote.COLUMN35.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN36.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN36.Name = "COLUMN36"
_pageframe1.PAGE2.grdNote.COLUMN36._CHECKBOX1.Alignment = 2
_pageframe1.PAGE2.grdNote.COLUMN36._CHECKBOX1.Name = "_CHECKBOX1"
_pageframe1.PAGE2.grdNote.COLUMN37.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN37.Name = "COLUMN37"
_pageframe1.PAGE2.grdNote.COLUMN37.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN38.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN38.Name = "COLUMN38"
_pageframe1.PAGE2.grdNote.COLUMN38.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN39.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN39.Name = "COLUMN39"
_pageframe1.PAGE2.grdNote.COLUMN39.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN4.HEADER4.Name = "HEADER4"
_pageframe1.PAGE2.grdNote.COLUMN4.Name = "COLUMN4"
_pageframe1.PAGE2.grdNote.COLUMN4.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN40.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdNote.COLUMN40.Name = "COLUMN40"
_pageframe1.PAGE2.grdNote.COLUMN40.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN5.HEADER5.Name = "HEADER5"
_pageframe1.PAGE2.grdNote.COLUMN5.Name = "COLUMN5"
_pageframe1.PAGE2.grdNote.COLUMN5.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN6.HEADER6.Name = "HEADER6"
_pageframe1.PAGE2.grdNote.COLUMN6.Name = "COLUMN6"
_pageframe1.PAGE2.grdNote.COLUMN6.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN7.HEADER7.Name = "HEADER7"
_pageframe1.PAGE2.grdNote.COLUMN7.Name = "COLUMN7"
_pageframe1.PAGE2.grdNote.COLUMN7.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN8.HEADER8.Name = "HEADER8"
_pageframe1.PAGE2.grdNote.COLUMN8.Name = "COLUMN8"
_pageframe1.PAGE2.grdNote.COLUMN8.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.COLUMN9.HEADER9.Name = "HEADER9"
_pageframe1.PAGE2.grdNote.COLUMN9.Name = "COLUMN9"
_pageframe1.PAGE2.grdNote.COLUMN9.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdNote.Name = "grdNote"
_pageframe1.PAGE2.grdRequest.COLUMN1.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdRequest.COLUMN1.Name = "COLUMN1"
_pageframe1.PAGE2.grdRequest.COLUMN1.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdRequest.COLUMN2.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdRequest.COLUMN2.Name = "COLUMN2"
_pageframe1.PAGE2.grdRequest.COLUMN2.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdRequest.Name = "grdRequest"
_pageframe1.PAGE2.grdUCategorii.cCategorie.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUCategorii.cCategorie.Name = "cCategorie"
_pageframe1.PAGE2.grdUCategorii.cCategorie.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUCategorii.cIdCategorie.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUCategorii.cIdCategorie.Name = "cIdCategorie"
_pageframe1.PAGE2.grdUCategorii.cIdCategorie.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUCategorii.cOrdine.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUCategorii.cOrdine.Name = "cOrdine"
_pageframe1.PAGE2.grdUCategorii.cOrdine.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUCategorii.Name = "grdUCategorii"
_pageframe1.PAGE2.grdUSets.cIdSet.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUSets.cIdSet.Name = "cIdSet"
_pageframe1.PAGE2.grdUSets.cIdSet.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUSets.cNumeSet.HEADER1.Name = "HEADER1"
_pageframe1.PAGE2.grdUSets.cNumeSet.Name = "cNumeSet"
_pageframe1.PAGE2.grdUSets.cNumeSet.TEXT1.Name = "TEXT1"
_pageframe1.PAGE2.grdUSets.Name = "grdUSets"
_pageframe1.PAGE2.lblCategorie.Name = "lblCategorie"
_pageframe1.PAGE2.lblCategorii.Name = "lblCategorii"
_pageframe1.PAGE2.lblNote.Name = "lblNote"
_pageframe1.PAGE2.lblOrdine.Name = "lblOrdine"
_pageframe1.PAGE2.lblRequest.Name = "lblRequest"
_pageframe1.PAGE2.lblSets.Name = "lblSets"
_pageframe1.PAGE2.Name = "PAGE2"
_pageframe1.PAGE2.spnOrdine.Name = "spnOrdine"
_pageframe1.PAGE2.txtCategorie.Name = "txtCategorie"
*</PropValue>
ENDDEFINE

35
ferestre/frm_filtru_luna.sc2 Normal file
View File

@@ -0,0 +1,35 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_filtru_luna.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_filtru_luna1 AS frm_filtru_luna OF "..\clase\caut_ora.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_filtru_luna1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Text2.Name = "Text2"
Text1.Name = "Text1"
*</PropValue>
ENDDEFINE

44
ferestre/frm_filtru_numar.sc2 Normal file
View File

@@ -0,0 +1,44 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_filtru_numar.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_filtru_numar1 AS frm_filtru_numar OF "..\clase\caut_ora.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_filtru_numar1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Criteriu1.Name = "Criteriu1"
Criteriu2.Name = "Criteriu2"
Grup_optiuni_filtru_numar1.Name = "Grup_optiuni_filtru_numar1"
Grup_optiuni_filtru_numar1.Option1.Left = 5
Grup_optiuni_filtru_numar1.Option1.Name = "Option1"
Grup_optiuni_filtru_numar1.Option1.Top = 5
Grup_optiuni_filtru_numar1.Option2.Left = 66
Grup_optiuni_filtru_numar1.Option2.Name = "Option2"
Grup_optiuni_filtru_numar1.Option2.Top = 5
Text1.Name = "Text1"
Text2.Name = "Text2"
*</PropValue>
ENDDEFINE

47
ferestre/frm_filtru_text.sc2 Normal file
View File

@@ -0,0 +1,47 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_filtru_text.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_filtru_text1 AS frm_filtru_text OF "..\clase\caut_ora.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_filtru_text1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
criteriu.Name = "criteriu"
Criteriu2.Name = "Criteriu2"
grup_optiuni_filtru.Name = "grup_optiuni_filtru"
grup_optiuni_filtru.Option1.Left = 5
grup_optiuni_filtru.Option1.Name = "Option1"
grup_optiuni_filtru.Option1.Top = 5
grup_optiuni_filtru.Option2.Left = 66
grup_optiuni_filtru.Option2.Name = "Option2"
grup_optiuni_filtru.Option2.Top = 5
grup_optiuni_filtru.Option3.Left = 134
grup_optiuni_filtru.Option3.Name = "Option3"
grup_optiuni_filtru.Option3.Top = 5
Text.Name = "Text"
Text2.Name = "Text2"
*</PropValue>
ENDDEFINE

1441
ferestre/frm_import_note_facturi_clienti.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

2397
ferestre/frm_initializare_facturi_balanta.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

106
ferestre/frm_list_balana.sc2 Normal file
View File

@@ -0,0 +1,106 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_list_balana.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS formtermin12 AS formtermin OF "..\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="GRIDB1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GRIDB1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GRIDB1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GRIDB1.Column2.Check1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DataSession = 1
DoCreate = .T.
Height = 310
Name = "FORMTERMIN12"
Width = 195
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Caption = "Bifati conturile care nu se listeaza cu analitice"
Lb_titlu_alb_b121.ForeColor = 0,0,0
Lb_titlu_alb_b121.Height = 38
Lb_titlu_alb_b121.Left = 8
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.Top = 32
Lb_titlu_alb_b121.Width = 176
Lb_titlu_alb_b121.WordWrap = .T.
BUT_TERMIN1.Left = 165
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT 'GRIDB1' AS gridb WITH ;
ColumnCount = 2, ;
FontName = "Arial Narrow", ;
Height = 218, ;
Left = 10, ;
Name = "GRIDB1", ;
Panel = 1, ;
Top = 75, ;
Width = 169, ;
Column1.ControlSource = "cont", ;
Column1.FontName = "Arial Narrow", ;
Column1.Header1.Alignment = 2, ;
Column1.Header1.Caption = "Cont", ;
Column1.Header1.FontName = "Arial Narrow", ;
Column1.Header1.Name = "Header1", ;
Column1.Name = "Column1", ;
Column1.Text1.FontName = "Arial Narrow", ;
Column1.Text1.Name = "Text1", ;
Column1.Width = 76, ;
Column2.ControlSource = "bifa", ;
Column2.CurrentControl = "Check1", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column2", ;
Column2.Sparse = .F., ;
Column2.Width = 62
*< END OBJECT: ClassLib="..\clase\ferestre_cere_date.vcx" BaseClass="grid" />
ADD OBJECT 'GRIDB1.Column2.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Height = 17, ;
Left = 22, ;
Name = "Check1", ;
SpecialEffect = 1, ;
Top = 30, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'GRIDB1.Column2.Header1' AS header WITH ;
Caption = "Nu se listeaza", ;
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"
*< END OBJECT: BaseClass="textbox" />
ENDDEFINE

51
ferestre/frm_login.sc2 Normal file
View File

@@ -0,0 +1,51 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_login.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_login1 AS frm_login OF "..\clase\ferestre_oracle.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_login1"
_shape3.Name = "_shape3"
_shape4.Name = "_shape4"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Image1.Height = 27
BUT_TERMIN1.Image1.Name = "Image1"
BUT_TERMIN1.Image1.Width = 30
BUT_TERMIN1.Name = "BUT_TERMIN1"
lbUtilizator.Name = "lbUtilizator"
txUserName.Name = "txUserName"
lbParola.Name = "lbParola"
txPassword.Name = "txPassword"
lbHost.Name = "lbHost"
txHost.Name = "txHost"
Cmd_login1.Name = "Cmd_login1"
Cmd_logoff1.Name = "Cmd_logoff1"
_label1.Name = "_label1"
_textbox1.Name = "_textbox1"
_label2.Name = "_label2"
_textbox2.Name = "_textbox2"
_checkbox1.Name = "_checkbox1"
*</PropValue>
ENDDEFINE

45
ferestre/frm_start_firma_nou.sc2 Normal file
View File

@@ -0,0 +1,45 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_start_firma_nou.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_start_firma_nou12 AS frm_start_firma_nou OF "..\clase\ferestre_oracle.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DataSession = 1
DoCreate = .T.
Name = "Frm_start_firma_nou12"
Image1.Name = "Image1"
Image1.Picture = ..\grafice\start.bmp
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Caption = "ALEGE<47>I FIRMA / ANUL / LUNA"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Gridsort1.Name = "Gridsort1"
But_renunt1.Name = "But_renunt1"
CbFima.Name = "CbFima"
CbLuna.Name = "CbLuna"
CbAn.Name = "CbAn"
Lb_firma.Name = "Lb_firma"
Lb_luna.Name = "Lb_luna"
Lb_an.Name = "Lb_an"
BUT_TERMIN1.Name = "BUT_TERMIN1"
*</PropValue>
ENDDEFINE

272
ferestre/frm_trimit_mail.sc2 Normal file
View File

@@ -0,0 +1,272 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_trimit_mail.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_trimit_mail AS frm_termin_renunt OF "..\clase\_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_salveaza2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboExpeditori" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboDestinatari" UniqueID="" Timestamp="" />
*<PropValue>
DataSession = 1
DoCreate = .T.
Height = 500
Name = "frm_trimit_mail"
Width = 400
_shape1.Height = 29
_shape1.Left = 36
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 396
_shape2.Left = 324
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "TRIMITERE MAIL"
Lb_titlu_alb_b121.Left = 60
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.Top = 0
BUT_TERMIN1.Left = 366
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
BUT_RENUNT1.Left = 337
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ;
Caption = "Salveaza user", ;
Height = 48, ;
Left = 156, ;
Name = "But_salveaza1", ;
Top = 216, ;
Width = 156
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_salveaza2' AS but_salveaza WITH ;
Caption = "Salveaza destinatar", ;
Height = 51, ;
Left = 156, ;
Name = "But_salveaza2", ;
Top = 420, ;
Width = 156
*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cboDestinatari' AS combobox WITH ;
BoundColumn = 2, ;
BoundTo = .T., ;
Height = 25, ;
Left = 132, ;
Name = "cboDestinatari", ;
Top = 288, ;
Width = 253
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'cboExpeditori' AS combobox WITH ;
BoundColumn = 2, ;
BoundTo = .T., ;
Height = 25, ;
Left = 132, ;
Name = "cboExpeditori", ;
Top = 36, ;
Width = 253
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Label1' AS label WITH ;
Caption = "Expeditor :", ;
Height = 24, ;
Left = 48, ;
Name = "Label1", ;
Top = 36, ;
Width = 72
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Caption = "Server :", ;
Height = 25, ;
Left = 48, ;
Name = "Label2", ;
Top = 72, ;
Width = 73
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Caption = "User :", ;
Height = 25, ;
Left = 48, ;
Name = "Label3", ;
Top = 108, ;
Width = 73
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Caption = "Pass : ", ;
Height = 25, ;
Left = 48, ;
Name = "Label4", ;
Top = 144, ;
Width = 73
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
Caption = "Port :", ;
Height = 25, ;
Left = 48, ;
Name = "Label5", ;
Top = 180, ;
Width = 73
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Caption = "Destinatar :", ;
Height = 25, ;
Left = 48, ;
Name = "Label6", ;
Top = 288, ;
Width = 73
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
Caption = "Subiect :", ;
Height = 25, ;
Left = 48, ;
Name = "Label7", ;
Top = 324, ;
Width = 73
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
Caption = "Body :", ;
Height = 25, ;
Left = 48, ;
Name = "Label8", ;
Top = 360, ;
Width = 73
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text2' AS textbox WITH ;
Height = 25, ;
Left = 132, ;
Name = "Text2", ;
Top = 72, ;
Width = 252
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
Height = 25, ;
Left = 132, ;
Name = "Text3", ;
Top = 108, ;
Width = 253
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
Height = 25, ;
Left = 132, ;
Name = "Text4", ;
Top = 144, ;
Width = 253
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text5' AS textbox WITH ;
Alignment = 0, ;
Height = 25, ;
Left = 132, ;
Name = "Text5", ;
Top = 180, ;
Value = 25, ;
Width = 253
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text7' AS textbox WITH ;
Height = 25, ;
Left = 132, ;
Name = "Text7", ;
Top = 324, ;
Width = 253
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text8' AS textbox WITH ;
Height = 25, ;
Left = 132, ;
Name = "Text8", ;
Top = 360, ;
Width = 253
*< END OBJECT: BaseClass="textbox" />
PROCEDURE But_salveaza1.Click
*INSERT INTO nomexpeditori(adresa_expeditori,server_mail,user,pass) VALUES (
ENDPROC
PROCEDURE But_salveaza2.Click
*INSERT INTO
ENDPROC
PROCEDURE BUT_TERMIN1.Click
#DEFINE PRIORITYHIGH 1
#DEFINE PRIORITYLOW 0
DIMENSION aryAttach(1)
*aryAttach(1)
*----------------------------------
LOCAL lcFrom, lcTo, lcSubject, lcBody, lcCC, lcBCC, lcMailServer, lcUserName, lcPassword, lnPort, lnPriority, llHTMLFormat, lcErrReturn
&&do form trimit_mail
lcFrom =ALLTRIM(thisform.text1.Value) && expeditor
lcTo = ALLTRIM(thisform.text6.Value) && catre
lcSubject = ALLTRIM(thisform.text7.Value)
*!* Sending the body in HTML format
llHTMLFormat = .F. && change to .F. to send plain text message
lcBody = ALLTRIM(thisform.text8.Value )
*!* lcCC = "lianamacinic@gmail.com"
*!* lcBCC = "lianamacinic@gmail.com"
lcMailServer = ALLTRIM(thisform.text2.Value )
lnPort = thisform.text3.value
lcUserName = ALLTRIM(thisform.text4.Value)
lcPassword = ALLTRIM(TRANSFORM(thisform.text5.Value ))
lnPriority = PRIORITYHIGH
SendViaBLAT(@lcErrReturn,lcSubject, lcBody, @aryAttach)
IF EMPTY(lcErrReturn)
MESSAGEBOX("'" + lcSubject + "' sent successfullly.", 64, "Send email via BLAT")
ELSE
MESSAGEBOX("'" + lcSubject + "' failed to be sent. Reason:" + CHR(13) + lcErrReturn, 64, "Send email via BLAT")
ENDIF
ENDPROC
ENDDEFINE

1621
ferestre/frm_verificare_rulaje.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

55
ferestre/frm_viz_atasamente.sc2 Normal file
View File

@@ -0,0 +1,55 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_viz_atasamente.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frm_viz_atasamente1 AS frm_viz_atasamente OF "..\clase\ferestre_atasamente.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_viz_atasamente1"
_shape3.Name = "_shape3"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Gridsort1.Name = "Gridsort1"
BUT_TERMIN1.Name = "BUT_TERMIN1"
grid_linkuri.Column1.Header1.Name = "Header1"
grid_linkuri.Column1.Name = "Column1"
grid_linkuri.Column1.Text1.Name = "Text1"
grid_linkuri.Column2.Header1.Name = "Header1"
grid_linkuri.Column2.Name = "Column2"
grid_linkuri.Column2.Text1.Name = "Text1"
grid_linkuri.Column3.Header1.Name = "Header1"
grid_linkuri.Column3.Name = "Column3"
grid_linkuri.Column3.Text1.Name = "Text1"
grid_linkuri.Column4.Header1.Name = "Header1"
grid_linkuri.Column4.Name = "Column4"
grid_linkuri.Column4.Text1.Name = "Text1"
grid_linkuri.Column5.Header1.Name = "Header1"
grid_linkuri.Column5.Name = "Column5"
grid_linkuri.Column5.Text1.Name = "Text1"
grid_linkuri.Name = "grid_linkuri"
But_sterge1.Name = "But_sterge1"
But_edit1.Name = "But_edit1"
But_attach1.Name = "But_attach1"
But_attach2.Name = "But_attach2"
*</PropValue>
ENDDEFINE

210
ferestre/setariupdate.sc2 Normal file
View File

@@ -0,0 +1,210 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="setariupdate.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*<PropValue>
AutoCenter = .T.
BorderStyle = 1
Caption = "Setari update"
DoCreate = .T.
Height = 143
MaxButton = .F.
MinButton = .F.
Name = "Form1"
ShowInTaskBar = .T.
ShowWindow = 1
Width = 550
WindowType = 1
*</PropValue>
ADD OBJECT 'Combo1' AS combobox WITH ;
ControlSource = "", ;
Height = 24, ;
Left = 129, ;
Name = "Combo1", ;
RowSource = "", ;
RowSourceType = 0, ;
Style = 2, ;
TabIndex = 2, ;
Top = 65, ;
Width = 290
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "...", ;
Height = 23, ;
Left = 425, ;
Name = "Command2", ;
TabIndex = 4, ;
Top = 99, ;
Width = 24
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
ButtonCount = 0, ;
Height = 123, ;
Left = 12, ;
Name = "Commandgroup1", ;
TabIndex = 5, ;
Top = 9, ;
Value = 0, ;
Width = 528
*< END OBJECT: BaseClass="commandgroup" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
Caption = "Director temporar", ;
Height = 17, ;
Left = 26, ;
Name = "Label3", ;
TabIndex = 6, ;
Top = 102, ;
Width = 98
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
Caption = "Adresa update", ;
Height = 17, ;
Left = 26, ;
Name = "Label4", ;
TabIndex = 7, ;
Top = 36, ;
Width = 82
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
Caption = "Frecventa update", ;
Height = 17, ;
Left = 26, ;
Name = "Label5", ;
TabIndex = 8, ;
Top = 69, ;
Width = 96
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text1' AS textbox WITH ;
Height = 23, ;
Left = 129, ;
Name = "Text1", ;
TabIndex = 3, ;
Top = 99, ;
Width = 289
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
Height = 23, ;
Left = 129, ;
Name = "Text2", ;
TabIndex = 1, ;
Top = 33, ;
Width = 384
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Init
SET PROCEDURE TO wwapi.prg ADDITIVE
lcIniFileName = FORCEEXT(SYS(16,0), 'ini')
&& populez combo-ul cu valorile default
thisform.combo1.AddItem("La fiecare deschidere a programului", 1) && val = -1
thisform.combo1.AddItem("In fiecare zi", 2) && val = 1
thisform.combo1.AddItem("Niciodata", 3) && val = 0
&& iau datele din ini ca sa completez formularul
loAPI = CREATEOBJECT("wwAPI")
ldLastCheckDate = NVL(CTOD(loApi.GetProfileString(lcIniFileName, "Main", "LastVersionCheck")), {})
thisform.text1.Value = NVL(ALLTRIM(loApi.GetProfileString(lcIniFileName, "Main", "DownloadPath")),"")
thisform.text2.Value = NVL(ALLTRIM(loApi.GetProfileString(lcIniFileName, "Main", "VersionUpdateUrl")),"")
lnFrecventa = VAL(loApi.GetProfileString(lcIniFileName, "Main", "UpdateFrequency"))
DO CASE
CASE lnFrecventa = -1
thisform.combo1.ListIndex = 1
CASE lnFrecventa = 1
thisform.combo1.ListIndex = 2
CASE lnFrecventa = 0
thisform.combo1.ListIndex = 3
ENDCASE
ENDPROC
PROCEDURE Combo1.LostFocus
&& la lost focus scriu in ini
loAPI = CREATEOBJECT("wwAPI")
lcIniFileName = FORCEEXT(SYS(16,0), 'ini')
lnSelectat = this.ListIndex
DO CASE
CASE lnSelectat = 1
loAPI.WriteProfileString(lcIniFileName, "Main", "UpdateFrequency", "-1")
CASE lnSelectat = 2
loAPI.WriteProfileString(lcIniFileName, "Main", "UpdateFrequency", "1")
CASE lnSelectat = 3
loAPI.WriteProfileString(lcIniFileName, "Main", "UpdateFrequency", "0")
ENDCASE
ENDPROC
PROCEDURE Command2.Click
lcDirector = ALLTRIM(GETDIR("c:\","Alegeti directorul destinatie."))
IF DIRECTORY(lcDirector)
thisform.text1.Value = lcDirector
thisform.text1.SetFocus()
ENDIF
ENDPROC
PROCEDURE Text1.LostFocus
&& la lostfocus scriu in ini
lcDownloadPath = ADDBS(ALLTRIM(UPPER(this.Value)))
IF EMPTY(lcDownloadPath)
RETURN
ENDIF
loAPI = CREATEOBJECT("wwAPI")
lcIniFileName = FORCEEXT(SYS(16,0), 'ini')
IF !DIRECTORY(lcDownloadPath)
md(lcDownloadPath)
ENDIF
loAPI.WriteProfileString(lcIniFileName, "Main", "DownloadPath", lcDownloadPath)
ENDPROC
PROCEDURE Text2.LostFocus
&& la lost focus scriu in ini.
lcURL = ALLTRIM(this.Value)
IF EMPTY(lcURL)
RETURN
ENDIF
loAPI = CREATEOBJECT("wwAPI")
lcIniFileName = FORCEEXT(SYS(16,0), 'ini')
loAPI.WriteProfileString(lcIniFileName, "Main", "VersionUpdateUrl", lcURL)
ENDPROC
ENDDEFINE

401
ferestre/updateapp.sc2 Normal file
View File

@@ -0,0 +1,401 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="updateapp.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS frmcodeupdate AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblVersion" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="edtNews" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: checkfornewversion && Checks for new version and optionally downloads the new version.
*m: makevbsfile
*m: setexefile
*m: setinifile
*m: setversionnumber
*m: update
*m: updateversion
*p: cdownloadpath
*p: cexefile
*p: cinifile
*p: cnewsmessage
*p: csuperpath
*p: cversion
*</DefinedPropArrayMethod>
*<PropValue>
AutoCenter = .T.
BorderStyle = 1
Caption = "Auto Update"
cdownloadpath =
cexefile =
cinifile =
cnewsmessage =
csuperpath =
cversion = 1.00
DoCreate = .T.
Height = 421
Name = "frmCodeUpdate"
ShowWindow = 2
Width = 432
*</PropValue>
ADD OBJECT 'edtNews' AS editbox WITH ;
ControlSource = "thisform.cNewsMessage", ;
Height = 288, ;
Left = 12, ;
Name = "edtNews", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 120, ;
Width = 408
*< END OBJECT: BaseClass="editbox" />
ADD OBJECT 'Label1' AS label WITH ;
Alignment = 2, ;
BackStyle = 0, ;
Caption = "Auto Update", ;
FontBold = .T., ;
FontName = "Verdana", ;
FontSize = 18, ;
Height = 36, ;
Left = 12, ;
Name = "Label1", ;
TabIndex = 8, ;
Top = 24, ;
Width = 408
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Modificari", ;
FontBold = .T., ;
Height = 17, ;
Left = 12, ;
Name = "Label2", ;
TabIndex = 10, ;
Top = 102, ;
Width = 58
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblVersion' AS label WITH ;
Alignment = 2, ;
BackStyle = 0, ;
Caption = "Version Number here", ;
FontName = "Tahoma", ;
FontSize = 8, ;
Height = 24, ;
Left = 72, ;
Name = "lblVersion", ;
TabIndex = 9, ;
Top = 60, ;
Width = 289
*< END OBJECT: BaseClass="label" />
PROCEDURE checkfornewversion && Checks for new version and optionally downloads the new version.
LOCAL loUpdate, loAPI, lcURL, lcVersion, lcDownloadPath, lnPos, lcUpdateDirectory
*** Retrieve the URL to use for version checks
*** This is an XML file
loAPI = CREATEOBJECT("wwAPI")
ldLastCheckDate = NVL(CTOD(loApi.GetProfileString(this.cInifile, "Main", "LastVersionCheck")), {})
IF ISNULL(loApi.GetProfileString(this.cInifile, "Main", "UpdateFrequency"))
loAPI.WriteProfileString(this.cInifile, "Main", "UpdateFrequency", "-1")
ENDIF
lnUpdateFrequency = VAL(loApi.GetProfileString(this.cInifile, "Main", "UpdateFrequency"))
DO CASE
CASE lnUpdateFrequency = -1 && check every time
ldCheckDate = DATE()
CASE lnUpdateFrequency = 0 && never check
ldCheckDate = {}
OTHERWISE
ldCheckDate = ldLastCheckDate + lnUpdateFrequency
ENDCASE
*** Check only on UpdateFrequency
IF ldCheckDate # DATE()
*** Skip version check
RETURN
ENDIF
*** Update the LastCheckDate
*** And write out the updated version number
loAPI.WriteProfileString(this.cInifile, "Main", "LastVersionCheck", TRANSFORM(DATE()))
lcUrl = loAPI.GetProfileString(this.cInifile,"Main","VersionUpdateUrl")
IF isnull(lcUrl)
loAPI.WriteProfileString(this.cInifile, "Main", "VersionUpdateUrl", "http://localhost/codeupdate/")
lcUrl = loAPI.GetProfileString(this.cInifile,"Main","VersionUpdateUrl")
ENDIF
lcDownloadPath = loAPI.GetProfileString(this.cInifile,"Main","DownloadPath")
lcSuperPath = ADDBS(JUSTPATH(this.cExeFile))
lnPos = AT('\', lcSuperPath, 2)
IF lnPos > 0
lcSuperPath = LEFT(lcSuperPath, lnPos)
ENDIF
IF EMPTY(ALLTRIM(TRANSFORM(NVL(lcDownloadPath,"")))) OR !DIRECTORY(NVL(lcDownloadPath,""))
lcDownloadPath = ADDBS(UPPER(lcSuperPath)) + 'CODEUPDATE\'
IF !DIRECTORY(lcDownloadPath)
md(lcDownloadPath)
ENDIF
loAPI.WriteProfileString(this.cInifile, "Main", "DownloadPath", lcDownloadPath)
ENDIF
this.cDownloadPath = ADDBS(lcDownloadPath)
this.cSuperPath = ADDBS(lcSuperPath)
loUpdate=CREATEOBJECT("wwCodeUpdate")
*** Url where to check for new versions (XML file)
loUpdate.cVersionUrl = lcUrl
loUpdate.cVersionType = "C"
*** DownloadPath
loUpdate.cDownloadPath = this.cDownloadPath
*** Name of the application's EXE file to hotswap
loUpdate.cEXEFile = this.cExeFile && "sampleapp.exe"
*** Returns the current available version from the XML file
lcVersion = loUpdate.GetVersionInfo()
this.cNewsMessage = loUpdate.cNewsMessage
this.edtNews.Refresh()
*** If no version we couldn't get the info from
*** the Web Server
IF EMPTY(lcVersion)
*** Couldn't retrieve version info
*** so just exit
RETURN
ENDIF
*** Compare the version number against
*** the app's version number - here a property of the form
*** Usually you'd use a .H setting, database field or Config object
IF lcVersion # THIS.cVersion
*** Display message for the user and ask to download
IF aMessageBox(loUpdate.cUserMessage + CHR(13) + CHR(13) +;
"Doriti sa descarcati acum? (" + ;
LTRIM(TRANSFORM(loUpdate.nFileSize,"999,999,999")) + ;
"kb)",32+4,"Romfast") = 6
* loUpdate.CreateHTTPClient()
* loUpdate.oHTTP.cCaption = "Download SampleApp Update"
IF !loUpdate.DownloadUpdate(.T., FORCEEXT(JUSTFNAME(this.cExeFile),'xml'))
aMessageBox(loUpdate.cErrorMsg,48,"Eroare download")
ELSE
lcFileVBS = this.cSuperPath + [codeupdate\CodeUpdate.vbs]
IF !FILE(lcFileVBS)
this.makeVBSFile(lcFileVBS)
ENDIF
lcUpdateDirectory = JUSTPATH(SYS(16,0))
CD (lcUpdateDirectory)
*** Run the generic CodeUpdate Exe and quit application
*---------------------
lcNumeArhiva = JUSTFNAME(loUpdate.cOnlineFileUrl)
lcUpdateExe = ADDBS(JUSTPATH(ShortPath(lcFileVBS))) + lcNumeArhiva
*MESSAGEBOX(lcUpdateExe,0,"lcUpdateExe")
*!* lcCodeUpdate = [WSCRIPT ] + SHORTPATH(lcFileVBS) + [ "] + this.cExeFile + [" "] + ;
*!* SHORTPATH(this.cSuperPath + [codeupdate\] + JUSTSTEM(this.cExeFile) + [.sfx.exe]) + ;
*!* [ /auto ] + ADDBS(JUSTPATH(this.cExeFile)) + [" ] +;
*!* ["] + UPPER(JUSTSTEM(this.cExeFile)) + [" "] + IIF(TYPE("gcParameters")="C",gcParameters,"") + ["]
lcCodeUpdate = [WSCRIPT ] + SHORTPATH(lcFileVBS) + [ "] + this.cExeFile + [" "] + ;
lcUpdateExe + ;
[ -o] + ADDBS(JUSTPATH(this.cExeFile)) + [ -y " ] +;
["] + UPPER(JUSTSTEM(this.cExeFile)) + [" "] + IIF(TYPE("gcParameters")="C",gcParameters,"") + ["]
*===============================
*MESSAGEBOX(lcCodeUpdate)
_cliptext = lcCodeUpdate
loUpdate.RunUpdateExe(lcCodeUpdate)
this.Release()
QUIT && Just to be safe
ENDIF
ENDIF
ENDIF
RETURN
ENDPROC
PROCEDURE Init
LPARAMETERS tcExeFileName, tcIniFileName
*** Load the class libraries required
DO wwCodeUpdate
*** Profile INI usage
SET PROCEDURE TO wwAPI Additive
THIS.setExeFile(tcExeFileName)
THIS.setIniFile(tcIniFileName)
*** Update the version label
THIS.SetVersionNumber()
*** And simply check for a new version
THIS.CheckForNewVersion()
*** Check for Data File Update requirements and update
THIS.UpdateVersion()
ENDPROC
PROCEDURE makevbsfile
LPARAMETERS tcVBSFile
LOCAL lcVBS
IF EMPTY(tcVBSFile)
RETURN
ENDIF
TEXT TO lcVBS NOSHOW
if WScript.Arguments.Length < 3 then
WScript.Echo("Numar invalid de parametri." + vbcrlf + _
"Sintaxa: WSCRIPT CodeUpdate.vbs <ExeFile> <UpdateFile> <ApplicationName>")
Wscript.Quit(1)
end if
lcExe = WScript.Arguments(0)
lcUpdateExe = WScript.Arguments(1)
lcAppName = WScript.Arguments(2)
lcCommandLineParameters = WScript.Arguments(3)
Set oShell = Wscript.CreateObject("Wscript.Shell")
'*** Wait for 5 seconds for app to shut down
lnResult = oShell.Popup("Astept inchiderea aplicatiei... ",5,lcAppName + " Update ",64)
'*** Run the Update Exe
oShell.Exec(lcUpdateExe)
lnResult = oShell.Popup("Actualizez programul... ",5,lcAppName + " Update ",64)
'*** Check that the Exe exists
Set oFile = CreateObject("Scripting.FileSystemObject")
if not oFile.FileExists(lcExe) then
lnResult = oShell.Popup("Actualizez programul...... ",5,lcAppName + " Update ",64)
end if
lcExeParam = lcExe + " " + lcCommandLineParameters
oShell.Exec(lcExeParam)
ENDTEXT
STRTOFILE(lcVBS, tcVBSFile)
ENDPROC
PROCEDURE Release
ies=.t.
QUIT
ENDPROC
PROCEDURE setexefile
LPARAMETERS tcExeFileName
IF PCOUNT() = 0 OR TYPE('tcExeFileName') # 'C'
lcExeFileName = SYS(16,0)
ELSE
lcExeFileName = tcExeFileName
ENDIF
THIS.cExefile = lcExeFileName
ENDPROC
PROCEDURE setinifile
LPARAMETERS tcExeFileName
IF PCOUNT() = 0 OR TYPE('tcIniFileName') # 'C'
lcIniFileName = FORCEEXT(SYS(16,0), 'ini')
ELSE
lcIniFileName = tcIniFileName
ENDIF
THIS.cInifile = lcIniFileName
ENDPROC
PROCEDURE setversionnumber
LOCAL laFiles, lcVersion, lcExeFile, lnElements
DIMENSION laFiles[1]
lcExeFile = ADDBS(JUSTPATH(SYS(16,0))) + JUSTFNAME(this.cExeFile)
IF FILE(lcExeFile)
lnElements = AGETFILEVERSION(laFiles, lcExeFile)
IF lnElements >= 4
lcVersion = laFiles[4]
ELSE
lcVersion = ""
ENDIF
ELSE
lcVersion = ""
ENDIF
this.cversion = lcVersion
THIS.lblVersion.Caption = "Versiunea " + TRANSFORM(lcVersion)
ENDPROC
PROCEDURE update
*** And simply check for a new version
THIS.CheckForNewVersion()
*** Check for Data File Update requirements and update
THIS.UpdateVersion()
ENDPROC
PROCEDURE updateversion
loAPI = CREATEOBJECT("wwAPI")
lcVersion = loAPI.GetProfileString(THIS.cInifile, "Main", "Version")
IF lcVersion = THISFORM.cVersion
*** Nothing to do
RETURN
ELSE
*** Code to perform data updates goes here
WAIT WINDOW "Numarul versiunii nu este actualizat. Actualizare..." NOWAIT
*** COD DE EFECTUAT LA PRIMA RULARE A UNEI VERSIUNI ACTUALIZATE
*** And write out the updated version number
loAPI.WriteProfileString(THIS.cInifile, "Main", "Version", LTRIM(TRANSFORM(THISFORM.cVersion)))
RETURN
ENDIF
ENDPROC
ENDDEFINE

1353
ferestre/verificare.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

162
ferestre/vizpage.sc2 Normal file
View File

@@ -0,0 +1,162 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vizpage.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
Name = "Dataenvironment"
*</PropValue>
ENDDEFINE
DEFINE CLASS vizpage1 AS vizpage OF "..\clase\comun.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Vizpage1"
pgcod.ErasePage = .T.
pgcod.Name = "pgcod"
pgcod.Page1.Name = "Page1"
pgcod.Page1.PageOrder = 1
pgcod.Page2.Name = "Page2"
pgcod.Page2.PageOrder = 2
pgcod.Page3.Name = "Page3"
pgcod.Page3.PageOrder = 3
Shape1.Name = "Shape1"
TEXT8.Name = "TEXT8"
TEXT9.Name = "TEXT9"
TEXT10.Name = "TEXT10"
TEXT11.Name = "TEXT11"
GRID1.COLUMN10.HEADER1.Name = "HEADER1"
GRID1.COLUMN10.Name = "COLUMN10"
GRID1.COLUMN10.Text1.Name = "Text1"
GRID1.COLUMN11.HEADER1.Name = "HEADER1"
GRID1.COLUMN11.Name = "COLUMN11"
GRID1.COLUMN11.Text1.Name = "Text1"
GRID1.COLUMN12.HEADER1.Name = "HEADER1"
GRID1.COLUMN12.Name = "COLUMN12"
GRID1.COLUMN12.Text1.Name = "Text1"
GRID1.COLUMN13.HEADER1.Name = "HEADER1"
GRID1.COLUMN13.Name = "COLUMN13"
GRID1.COLUMN13.Text1.Name = "Text1"
GRID1.COLUMN14.HEADER1.Name = "HEADER1"
GRID1.COLUMN14.Name = "COLUMN14"
GRID1.COLUMN14.Text1.Name = "Text1"
GRID1.COLUMN15.HEADER1.Name = "HEADER1"
GRID1.COLUMN15.Name = "COLUMN15"
GRID1.COLUMN15.Text1.Name = "Text1"
GRID1.COLUMN16.HEADER1.Name = "HEADER1"
GRID1.COLUMN16.Name = "COLUMN16"
GRID1.COLUMN16.Text1.Name = "Text1"
GRID1.COLUMN17.HEADER1.Name = "HEADER1"
GRID1.COLUMN17.Name = "COLUMN17"
GRID1.COLUMN17.Text1.Name = "Text1"
GRID1.COLUMN18.HEADER1.Name = "HEADER1"
GRID1.COLUMN18.Name = "COLUMN18"
GRID1.COLUMN18.Text1.Name = "Text1"
GRID1.COLUMN19.HEADER1.Name = "HEADER1"
GRID1.COLUMN19.Name = "COLUMN19"
GRID1.COLUMN19.Text1.Name = "Text1"
GRID1.COLUMN2.HEADER2.Name = "HEADER2"
GRID1.COLUMN2.Name = "COLUMN2"
GRID1.COLUMN2.Text1.Name = "Text1"
GRID1.COLUMN20.HEADER1.Name = "HEADER1"
GRID1.COLUMN20.Name = "COLUMN20"
GRID1.COLUMN20.Text1.Name = "Text1"
GRID1.COLUMN21.HEADER1.Name = "HEADER1"
GRID1.COLUMN21.Name = "COLUMN21"
GRID1.COLUMN21.Text1.Name = "Text1"
GRID1.COLUMN22.HEADER1.Name = "HEADER1"
GRID1.COLUMN22.Name = "COLUMN22"
GRID1.COLUMN22.Text1.Name = "Text1"
GRID1.COLUMN3.HEADER3.Name = "HEADER3"
GRID1.COLUMN3.Name = "COLUMN3"
GRID1.COLUMN3.Text1.Name = "Text1"
GRID1.COLUMN4.HEADER4.Name = "HEADER4"
GRID1.COLUMN4.Name = "COLUMN4"
GRID1.COLUMN4.Text1.Name = "Text1"
GRID1.COLUMN5.HEADER5.Name = "HEADER5"
GRID1.COLUMN5.Name = "COLUMN5"
GRID1.COLUMN5.Text1.Name = "Text1"
GRID1.COLUMN6.HEADER6.Name = "HEADER6"
GRID1.COLUMN6.Name = "COLUMN6"
GRID1.COLUMN6.Text1.Name = "Text1"
GRID1.COLUMN7.HEADER1.Name = "HEADER1"
GRID1.COLUMN7.Name = "COLUMN7"
GRID1.COLUMN7.Text1.Name = "Text1"
GRID1.COLUMN8.HEADER8.Name = "HEADER8"
GRID1.COLUMN8.Name = "COLUMN8"
GRID1.COLUMN8.Text1.Name = "Text1"
GRID1.COLUMN9.HEADER1.Name = "HEADER1"
GRID1.COLUMN9.Name = "COLUMN9"
GRID1.COLUMN9.Text1.Name = "Text1"
GRID1.Name = "GRID1"
TEXT12.Name = "TEXT12"
TEXT13.Name = "TEXT13"
TEXT14.Name = "TEXT14"
TEXT15.Name = "TEXT15"
TEXT16.Name = "TEXT16"
TEXT17.Name = "TEXT17"
TEXT18.Name = "TEXT18"
TEXT19.Name = "TEXT19"
TEXT20.Name = "TEXT20"
TEXT21.Name = "TEXT21"
TEXT22.Name = "TEXT22"
Text23.Name = "Text23"
Text24.Name = "Text24"
Text25.Name = "Text25"
Text26.Name = "Text26"
Text27.Name = "Text27"
Label2.Name = "Label2"
LABEL3.Name = "LABEL3"
LABEL4.Name = "LABEL4"
LABEL5.Name = "LABEL5"
LABEL6.Name = "LABEL6"
LABEL7.Name = "LABEL7"
LABEL8.Name = "LABEL8"
LABEL9.Name = "LABEL9"
LABEL10.Name = "LABEL10"
LABEL11.Name = "LABEL11"
LABEL12.Name = "LABEL12"
LABEL13.Name = "LABEL13"
LABEL14.Name = "LABEL14"
LABEL15.Name = "LABEL15"
LABEL16.Name = "LABEL16"
LABEL17.Name = "LABEL17"
LABEL18.Name = "LABEL18"
LABEL19.Name = "LABEL19"
LABEL20.Name = "LABEL20"
LABEL21.Name = "LABEL21"
Label22.Name = "Label22"
Label23.Name = "Label23"
Label24.Name = "Label24"
Label25.Name = "Label25"
Label26.Name = "Label26"
Label27.Name = "Label27"
Text1.Name = "Text1"
Text2.Name = "Text2"
TEXT3.Name = "TEXT3"
TEXT4.Name = "TEXT4"
Label1.Name = "Label1"
BANDABLOC1.BANDA21.Name = "BANDA21"
BANDABLOC1.BLOCBUTON1.Name = "BLOCBUTON1"
BANDABLOC1.BLOCBUTON1.TERMINAT1.COMMAND1.Name = "COMMAND1"
BANDABLOC1.BLOCBUTON1.TERMINAT1.IMBUTON1.Height = 27
BANDABLOC1.BLOCBUTON1.TERMINAT1.IMBUTON1.Name = "IMBUTON1"
BANDABLOC1.BLOCBUTON1.TERMINAT1.IMBUTON1.Width = 30
BANDABLOC1.BLOCBUTON1.TERMINAT1.Name = "TERMINAT1"
BANDABLOC1.Name = "BANDABLOC1"
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
Text28.Name = "Text28"
Label28.Name = "Label28"
TEXT5.Name = "TEXT5"
TEXT6.Name = "TEXT6"
TEXT7.Name = "TEXT7"
*</PropValue>
ENDDEFINE