romfast/roacontracte
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 
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md:
- .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu)
- 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2)
- Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti
- Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back)
- CLAUDE.md, docs/README.md, roa_sync.bat

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
This commit is contained in:
Marius Mutu
2026-08-03 01:51:36 +03:00
commit 7cc3bff358
158 changed files with 80639 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
Ferestre/ATENTIE1.sc2 Normal file
View File

@@ -0,0 +1,75 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="atentie1.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 fatentie1 AS fatentie OF "..\clase\ferestrebaza.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 84
Name = "Fatentie1"
Width = 353
WindowType = 0
Shape1.Height = 75
Shape1.Left = 4
Shape1.Name = "Shape1"
Shape1.Top = 4
Shape1.Width = 344
IMAGE1.Height = 32
IMAGE1.Left = 24
IMAGE1.Name = "IMAGE1"
IMAGE1.Top = 12
IMAGE1.Width = 32
Label1.Left = 64
Label1.Name = "Label1"
Label1.Top = 14
*</PropValue>
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
AutoSize = .F., ;
Caption = "\<OK", ;
Height = 24, ;
Left = 134, ;
Name = "CMDTERMIN1", ;
Top = 46, ;
Width = 84
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
Caption = "Modificarile sunt ireversibile!", ;
FontSize = 12, ;
Height = 21, ;
Left = 129, ;
Name = "Label2", ;
Top = 14, ;
Width = 200
*< END OBJECT: BaseClass="label" />
PROCEDURE Deactivate
thisform.release
ENDPROC
PROCEDURE LostFocus
thisform.release
ENDPROC
ENDDEFINE

65
Ferestre/frm_dg_date_generale.sc2 Normal file
View File

@@ -0,0 +1,65 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_date_generale.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_dg_date_generale1 AS frm_dg_date_generale OF "..\clase\ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_dg_date_generale1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
Shape5.Name = "Shape5"
Shape4.Name = "Shape4"
Shape3.Name = "Shape3"
cmdValuta.Name = "cmdValuta"
ck_incetat.Alignment = 0
ck_incetat.Name = "ck_incetat"
Label10.Name = "Label10"
txtDurata.Name = "txtDurata"
Label17.Name = "Label17"
txtValuta.Name = "txtValuta"
Label2.Name = "Label2"
txtData_incetat.Name = "txtData_incetat"
Label12.Name = "Label12"
cmdTip_ctr.Name = "cmdTip_ctr"
txtTip_ctr.Name = "txtTip_ctr"
ck_inactiv.Alignment = 0
ck_inactiv.Name = "ck_inactiv"
ck_semnat.Alignment = 0
ck_semnat.Name = "ck_semnat"
Label1.Name = "Label1"
txtData_inceput.Name = "txtData_inceput"
Label5.Name = "Label5"
txtData_sfarsit.Name = "txtData_sfarsit"
cmdResponsabil.Name = "cmdResponsabil"
Label14.Name = "Label14"
txtResponsabil.Name = "txtResponsabil"
cmdSectie.Name = "cmdSectie"
Label20.Name = "Label20"
txtSectie.Name = "txtSectie"
Label21.Name = "Label21"
txtMotiv_incetat.Name = "txtMotiv_incetat"
*</PropValue>
ENDDEFINE

50
Ferestre/frm_dg_fact.sc2 Normal file
View File

@@ -0,0 +1,50 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_fact.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_dg_fact1 AS frm_dg_fact OF "..\clase\ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_dg_fact1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
Label1.Name = "Label1"
Optiongroup1.Name = "Optiongroup1"
Optiongroup1.OPTION1.Left = 5
Optiongroup1.OPTION1.Name = "OPTION1"
Optiongroup1.OPTION1.Top = 5
Optiongroup1.OPTION2.Left = 5
Optiongroup1.OPTION2.Name = "OPTION2"
Optiongroup1.OPTION2.Top = 24
Optiongroup1.OPTION3.Left = 5
Optiongroup1.OPTION3.Name = "OPTION3"
Optiongroup1.OPTION3.Top = 43
Optiongroup1.OPTION4.Left = 5
Optiongroup1.OPTION4.Name = "OPTION4"
Optiongroup1.OPTION4.Top = 62
Check1.Alignment = 0
Check1.Name = "Check1"
*</PropValue>
ENDDEFINE

47
Ferestre/frm_dg_link.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_dg_link.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_dg_link1 AS frm_dg_link OF "..\clase\ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_dg_link1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
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.Name = "grid_linkuri"
BUT_NOU1.Name = "BUT_NOU1"
BUT_STERGE1.Name = "BUT_STERGE1"
But_sterge2.Name = "But_sterge2"
*</PropValue>
ENDDEFINE

94
Ferestre/frm_dg_obiectul.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_dg_obiectul.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_dg_obiectul1 AS frm_dg_obiectul OF "..\clase\ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_dg_obiectul1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
Label2.Name = "Label2"
grid_articole.cCant.HEADER1.Name = "HEADER1"
grid_articole.cCant.Name = "cCant"
grid_articole.cCant.Text1.Name = "Text1"
grid_articole.cCoef_Discount.HEADER1.Name = "HEADER1"
grid_articole.cCoef_Discount.Name = "cCoef_Discount"
grid_articole.cCoef_Discount.Text1.Name = "Text1"
grid_articole.cNume_art.HEADER1.Name = "HEADER1"
grid_articole.cNume_art.Name = "cNume_art"
grid_articole.cNume_art.Text1.Name = "Text1"
grid_articole.CNUME_VAL.HEADER1.Name = "HEADER1"
grid_articole.CNUME_VAL.Name = "CNUME_VAL"
grid_articole.CNUME_VAL.Text1.Name = "Text1"
grid_articole.COLUMN1.HEADER1.Name = "HEADER1"
grid_articole.COLUMN1.Name = "COLUMN1"
grid_articole.COLUMN1.Text1.Name = "Text1"
grid_articole.COLUMN11.HEADER1.Name = "HEADER1"
grid_articole.COLUMN11.Name = "COLUMN11"
grid_articole.COLUMN11.Text1.Name = "Text1"
grid_articole.cPret_unitar.HEADER1.Name = "HEADER1"
grid_articole.cPret_unitar.Name = "cPret_unitar"
grid_articole.cPret_unitar.Text1.Name = "Text1"
grid_articole.cUM.HEADER1.Name = "HEADER1"
grid_articole.cUM.Name = "cUM"
grid_articole.cUM.Text1.Name = "Text1"
grid_articole.cValcDiscount.HEADER1.Name = "HEADER1"
grid_articole.cValcDiscount.Name = "cValcDiscount"
grid_articole.cValcDiscount.Text1.Name = "Text1"
grid_articole.cValoare.HEADER1.Name = "HEADER1"
grid_articole.cValoare.Name = "cValoare"
grid_articole.cValoare.Text1.Name = "Text1"
grid_articole.cVal_discount.HEADER1.Name = "HEADER1"
grid_articole.cVal_discount.Name = "cVal_discount"
grid_articole.cVal_discount.Text1.Name = "Text1"
grid_articole.Name = "grid_articole"
txtSumaArticole.Name = "txtSumaArticole"
Label21.Name = "Label21"
Label1.Name = "Label1"
txtDiscount.Name = "txtDiscount"
BUT_NOU1.Name = "BUT_NOU1"
BUT_STERGE1.Name = "BUT_STERGE1"
txtValcdiscount.Name = "txtValcdiscount"
Label3.Name = "Label3"
txtValDiscount.Name = "txtValDiscount"
Label5.Name = "Label5"
LABEL15.Name = "LABEL15"
txtProc_tva.Name = "txtProc_tva"
LABEL16.Name = "LABEL16"
Line1.Name = "Line1"
Label4.Name = "Label4"
Label6.Name = "Label6"
txtCoef_discount.Name = "txtCoef_discount"
txtValDiscountTotal.Name = "txtValDiscountTotal"
Line2.Name = "Line2"
Label7.Name = "Label7"
Label8.Name = "Label8"
txtValftva.Name = "txtValftva"
txtValctva.Name = "txtValctva"
Label9.Name = "Label9"
Label10.Name = "Label10"
*</PropValue>
ENDDEFINE

35
Ferestre/frm_dg_observatii.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_dg_observatii.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_dg_observatii1 AS frm_dg_observatii OF "..\clase\ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_dg_observatii1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
Edit1.Name = "Edit1"
*</PropValue>
ENDDEFINE

70
Ferestre/frm_dg_tf.sc2 Normal file
View File

@@ -0,0 +1,70 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_tf.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_dg_tf1 AS frm_dg_tf OF "..\clase\ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_dg_tf1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
grid_scadentar.cData_rata.HEADER1.Name = "HEADER1"
grid_scadentar.cData_rata.Name = "cData_rata"
grid_scadentar.cData_rata.Text1.Name = "Text1"
grid_scadentar.cData_scadenta.HEADER1.Name = "HEADER1"
grid_scadentar.cData_scadenta.Name = "cData_scadenta"
grid_scadentar.cData_scadenta.Text1.Name = "Text1"
grid_scadentar.cDen_rata.HEADER1.Name = "HEADER1"
grid_scadentar.cDen_rata.Name = "cDen_rata"
grid_scadentar.cDen_rata.Text1.Name = "Text1"
grid_scadentar.cNr_rata.HEADER1.Name = "HEADER1"
grid_scadentar.cNr_rata.Name = "cNr_rata"
grid_scadentar.cNr_rata.Text1.Name = "Text1"
grid_scadentar.CNUME_VAL.HEADER1.Name = "HEADER1"
grid_scadentar.CNUME_VAL.Name = "CNUME_VAL"
grid_scadentar.CNUME_VAL.Text1.Name = "Text1"
grid_scadentar.cProcent.HEADER1.Name = "HEADER1"
grid_scadentar.cProcent.Name = "cProcent"
grid_scadentar.cProcent.Text1.Name = "Text1"
grid_scadentar.cValrata.HEADER1.Name = "HEADER1"
grid_scadentar.cValrata.Name = "cValrata"
grid_scadentar.cValrata.Text1.Name = "Text1"
grid_scadentar.Name = "grid_scadentar"
Label1.Name = "Label1"
txtRate.Name = "txtRate"
BUT_NOU1.Name = "BUT_NOU1"
BUT_STERGE1.Name = "BUT_STERGE1"
Label2.Name = "Label2"
txtProcente.Name = "txtProcente"
Label3.Name = "Label3"
Label6.Name = "Label6"
txtScadenta_incasare.Name = "txtScadenta_incasare"
LABEL13.Name = "LABEL13"
txtCoef_penalitati.Name = "txtCoef_penalitati"
Command1.Name = "Command1"
Command2.Name = "Command2"
Command3.Name = "Command3"
*</PropValue>
ENDDEFINE

49
Ferestre/frm_dg_tl.sc2 Normal file
View File

@@ -0,0 +1,49 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_tl.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_dg_tl1 AS frm_dg_tl OF "..\clase\ferestre_contracte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Frm_dg_tl1"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
Label1.Name = "Label1"
txtGrnt_pv_nr.Name = "txtGrnt_pv_nr"
txtGrnt_pv_data.Name = "txtGrnt_pv_data"
Label7.Name = "Label7"
Label4.Name = "Label4"
txtGrnt_proc_ret.Name = "txtGrnt_proc_ret"
Label2.Name = "Label2"
txtGrnt_val_ret.Name = "txtGrnt_val_ret"
Label3.Name = "Label3"
txtGrnt_alerta1.Name = "txtGrnt_alerta1"
Label5.Name = "Label5"
Label6.Name = "Label6"
txtGrnt_proc_alerta1.Name = "txtGrnt_proc_alerta1"
Label8.Name = "Label8"
Label9.Name = "Label9"
*</PropValue>
ENDDEFINE

129
Ferestre/fundal.sc2 Normal file
View File

@@ -0,0 +1,129 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.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 = 200
Left = 1
Name = "Dataenvironment"
Top = 220
Width = 520
*</PropValue>
ENDDEFINE
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: jurnal
*m: statusbarclick
*p: ostatusbar
*</DefinedPropArrayMethod>
*<PropValue>
AutoCenter = .T.
BackColor = 255,255,255
BorderStyle = 2
Caption = ""
Closable = .F.
ControlBox = .F.
DoCreate = .T.
Enabled = .T.
FillColor = 0,0,0
HalfHeightCaption = .F.
Height = 429
KeyPreview = .T.
MaxButton = .F.
MinButton = .F.
Movable = .F.
Name = "Form1"
ostatusbar = .F.
Picture = ..\..\
Width = 797
WindowState = 2
*</PropValue>
PROCEDURE Activate
oprinc.SHOW()
ENDPROC
PROCEDURE jurnal
ENDPROC
PROCEDURE KeyPress
ENDPROC
PROCEDURE RightClick
*!* modificare v 2.0.39
*!* DO start_firma IN ostartfirma.prg
*!* verifica_drepturi('oprinc','pagefr1')
*!* actualizeaza_drepturi_roacontracte()
DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
*!* modificare v 2.0.39 ^
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
*!* Trebuie adaugata o proprietate OstatusBar la forma
*!* si o metoda statusbarclik care sa contina comanda
*!* Thisform.oStatusBar.newtooltip()
*!*
If Not Pemstatus(_Screen,"StatusBar", 5) Then
*!* 31.01.2008 TEST FARA STATUSBAR
*!* _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3)
*!* 31.01.2008 TEST FARA STATUSBAR ^
ENDIF
Thisform.oStatusBar = _Screen.StatusBar
Thisform.oStatusBar.ctlIcon="roastartmic.ico"
Thisform.oStatusBar.ctlMessage = _Screen.Caption
BindEvent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
*!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
LOCAL c
IF primadata
primadata = .F.
*!* modificare v 2.0.39
*!* DO start_firma IN ostartfirma.prg
*!* **
*!* DO viz_contracte IN oproceduri_roacontracte.prg
*!* SELECT cContracte
*!* SCATTER NAME goContract BLANK
DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
*!* modificare v 2.0.39 ^
oprinc=CREA('princ')
verifica_drepturi('oprinc','pagefr1')
actualizeaza_drepturi_roacontracte()
oprinc.lb_utilizator1.CAPTION=ALLTRIM(gcUserNameApp)
oprinc.lb_utilizator1.VISIBLE=.T.
ENDIF
primadata=.F.
oprinc.SHOW()
DO lansare_toolbar IN oproceduri_comune.prg
DO lansare_help IN oproceduri_comune.prg
ENDPROC
PROCEDURE statusbarclick
Thisform.oStatusBar.newtooltip()
ENDPROC
ENDDEFINE

783
Ferestre/startfirma.sc2 Normal file
View File

@@ -0,0 +1,783 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.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 ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: seriadebaza
*p: ttanul
*p: ttfirma
*p: ttluna
*</DefinedPropArrayMethod>
*<PropValue>
AutoCenter = .T.
BackColor = 255,255,255
BorderStyle = 2
DoCreate = .T.
Height = 474
Name = "Ffergen1"
Picture =
Width = 500
WindowType = 1
Line1.Name = "Line1"
*</PropValue>
ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
Left = 305, ;
Name = "Cmdrenunt1", ;
TabIndex = 12, ;
Top = 432
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
Left = 396, ;
Name = "Cmdtermin1", ;
TabIndex = 11, ;
Top = 432
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 255,0,0, ;
BackStyle = 0, ;
Caption = "Bun Venit! ", ;
FontBold = .T., ;
FontItalic = .T., ;
FontName = "Comic Sans MS", ;
FontShadow = .F., ;
FontSize = 18, ;
ForeColor = 255,0,0, ;
Height = 37, ;
Left = 48, ;
Name = "Label1", ;
TabIndex = 24, ;
Top = 60, ;
Width = 128, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "CONT 2003", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 23, ;
ForeColor = 0,0,0, ;
Height = 39, ;
Left = 21, ;
Name = "Label10", ;
TabIndex = 23, ;
Top = 20, ;
Width = 185, ;
ZOrderSet = 3
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label11' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Anul:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 112, ;
Name = "Label11", ;
TabIndex = 16, ;
Top = 403, ;
Width = 44, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label12' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Strada:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 94, ;
Name = "Label12", ;
TabIndex = 19, ;
Top = 296, ;
Width = 62, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label13' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Numarul:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 80, ;
Name = "Label13", ;
TabIndex = 17, ;
Top = 321, ;
Width = 74, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "CONT 2003", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 23, ;
ForeColor = 0,0,0, ;
Height = 39, ;
Left = 22, ;
Name = "Label2", ;
TabIndex = 13, ;
Top = 18, ;
Width = 185, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Luna contabila:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 30, ;
Name = "Label3", ;
TabIndex = 20, ;
Top = 373, ;
Width = 126, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Cod fiscal:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 71, ;
Name = "Label4", ;
TabIndex = 22, ;
Top = 150, ;
Width = 87, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Nr. Inreg. R.C.:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 32, ;
Name = "Label5", ;
TabIndex = 14, ;
Top = 177, ;
Width = 123, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Banca:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 97, ;
Name = "Label6", ;
TabIndex = 21, ;
Top = 204, ;
Width = 59, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Cont bancar:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 49, ;
Name = "Label7", ;
TabIndex = 15, ;
Top = 230, ;
Width = 106, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Localitatea:", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 60, ;
Name = "Label8", ;
TabIndex = 18, ;
Top = 269, ;
Width = 97, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackColor = 0,0,0, ;
BackStyle = 0, ;
Caption = "Numele firmei: ", ;
FontBold = .T., ;
FontName = "BankGothic Md BT", ;
FontShadow = .F., ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Height = 22, ;
Left = 42, ;
Name = "Label9", ;
TabIndex = 25, ;
Top = 122, ;
Width = 122, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape1' AS shape WITH ;
BackStyle = 0, ;
Height = 458, ;
Left = 10, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 8, ;
Width = 480, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape2' AS shape WITH ;
BackStyle = 0, ;
Height = 0, ;
Left = 10, ;
Name = "Shape2", ;
SpecialEffect = 0, ;
Top = 356, ;
Width = 480, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.cod_fiscal", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K", ;
Height = 23, ;
Left = 192, ;
Name = "Text1", ;
ReadOnly = .F., ;
TabIndex = 2, ;
Top = 148, ;
Value = , ;
Width = 225, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text10' AS textbox WITH ;
Alignment = 1, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.numar", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K", ;
Height = 23, ;
Left = 192, ;
Name = "Text10", ;
ReadOnly = .F., ;
TabIndex = 8, ;
Top = 319, ;
Value = , ;
Width = 102, ;
ZOrderSet = 26
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.luU", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K", ;
Height = 23, ;
Left = 192, ;
Name = "Text2", ;
ReadOnly = .F., ;
TabIndex = 9, ;
ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ;
Top = 371, ;
Value = , ;
Width = 102, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.an", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K", ;
Height = 23, ;
Left = 192, ;
Name = "Text3", ;
ReadOnly = .F., ;
TabIndex = 10, ;
ToolTipText = "Introduceti anul (inclusiv secolul).", ;
Top = 401, ;
Value = , ;
Width = 102, ;
ZOrderSet = 26
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.flung", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K!", ;
Height = 23, ;
Left = 192, ;
Name = "Text4", ;
ReadOnly = .F., ;
TabIndex = 1, ;
ToolTipText = "Introduceti numele complet al noii firme", ;
Top = 120, ;
Value = , ;
Width = 225, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text5' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.reg_com", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K!", ;
Height = 23, ;
Left = 192, ;
Name = "Text5", ;
ReadOnly = .F., ;
TabIndex = 3, ;
Top = 175, ;
Value = , ;
Width = 225, ;
ZOrderSet = 26
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text6' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.banca", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K!", ;
Height = 23, ;
Left = 192, ;
Name = "Text6", ;
ReadOnly = .F., ;
TabIndex = 4, ;
Top = 202, ;
Value = , ;
Width = 225, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text7' AS textbox WITH ;
Alignment = 1, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.cont_banca", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K", ;
Height = 23, ;
Left = 192, ;
Name = "Text7", ;
ReadOnly = .F., ;
TabIndex = 5, ;
Top = 228, ;
Value = , ;
Width = 225, ;
ZOrderSet = 26
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text8' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.localitate", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K!", ;
Height = 23, ;
Left = 192, ;
Name = "Text8", ;
ReadOnly = .F., ;
TabIndex = 6, ;
Top = 267, ;
Value = , ;
Width = 225, ;
ZOrderSet = 26
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text9' AS textbox WITH ;
Alignment = 0, ;
BackColor = 254,255,240, ;
BackStyle = 0, ;
BorderStyle = 1, ;
ControlSource = "m.strada", ;
FontName = "BankGothic Md BT", ;
FontSize = 11, ;
Format = "K!", ;
Height = 23, ;
Left = 192, ;
Name = "Text9", ;
ReadOnly = .F., ;
TabIndex = 7, ;
Top = 293, ;
Value = , ;
Width = 225, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Activate
*public m.luU,M.FSCURT
m.luU=alltrim(STR(MONTH(DATE())))
m.luu=right(alltrim('0'+m.luu),2)
*M.AN=ALLTRIM(STR(YEAR(DATE())))
M.AN=STR(YEAR(DATE()),4)
m.nl=m.luu
ENDPROC
PROCEDURE seriadebaza
LOCAL SB,SN,I,T,TIPAR
STORE '' TO SB,SN
T=RAND(-1)
*TIPAR='VOICUIONEMIL'
DO seriadebaza IN proceduri.prg
*!* FOR I=1 TO 5
*!* SB=SB+LITERA()
*!* NEXT
*!* SELE CUL
*!* REPL RED WITH SB
*!* SN=GREEN
*!* IF SUBSTR(SN,3,1)=SUBSTR(SB,1,1) AND;
*!* SUBSTR(SN,6,1)=SUBSTR(SB,2,1) AND;
*!* SUBSTR(SN,9,1)=SUBSTR(SB,3,1) AND;
*!* SUBSTR(SN,12,1)=SUBSTR(SB,4,1) AND;
*!* SUBSTR(SN,15,1)=SUBSTR(SB,5,1) AND;
*!* SUBSTR(SN,VAL(M.NL)+floor((VAL(M.NL)-1)/2),1)=SUBSTR(TIPAR,VAL(M.NL),1)
*!* *DO MESAJ WITH 'Seria este corecta',''
*!* RETURN
*!* ELSE
*!* FOR I=1 TO 17
*!* SN=SN+LITERA()
*!* NEXT
*!* FOR I=1 TO 5
*!* SN=STUFF(SN, I*3, 1, SUBSTR(SB,I,1))
*!* NEXT
*!* SN=STUFF(SN, VAL(M.NL)+floor((VAL(M.NL)-1)/2), 1, SUBSTR(TIPAR,VAL(M.NL),1))
*!* SELE CUL
*!* REPL GREEN WITH SN
*!* ENDIF
ENDPROC
PROCEDURE Cmdtermin1.Click
*DO NOT RELEASE
ENDPROC
PROCEDURE Cmdtermin1.Valid
PUBLIC LAN,LLUN
LOCAL I,J,NI
LAN='AN'+M.AN
LLUN='DATE'+M.NL
I=.F.
*SCRIE NUMELE SCURT AL FIRMEI___________________
sele firma
M.firma=upper(alltrim(m.flung))
M.FSCURT=M.FIRMA
M.fscurt=upper(alltrim(m.fSCURT))+space(7)
M.fscurt=ALLTRIM(LEFT(ALLTRIM(M.fscurt),8))
M.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________')
tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+;
'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+;
'> exista deja! '+;
'Este important ca primele 8 caractere sa fie diferite de <'
IF LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)!=LEFT(m.fscurt+"________",8)
ttt=LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.fscurt+"________",8)+'>.'
ELSE
ttt=LEFT(m.fscurt+"________",8)+'>.'
endif
*!* SCAN
*!* IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) OR UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) THEN
*!* I=.T.
*!* omm=crea('textmare')
*!* omm.label2.caption=tt+ttt
*!* omm.show(1)
*!* RETURN
*!* ENDIF
*!* ENDSCAN
SCAN
IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA))
I=.T.
omm=crea('textmare')
omm.label2.caption='Numele noii firme nu trebuie sa coincida cu numele altor firme.'
omm.show(1)
RETURN
ENDIF
ENDSCAN
SCAN
IF UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt))
I=.T.
m.fscurt=LEFT(m.fscurt,2)+LEFT(STRTRAN(TIME(),':',''),6)
exit
ENDIF
ENDSCAN
*DACA FIRMA NU EXISTA DEJA_______________
IF !I
appe blank
NFSCURT=M.FSCURT
m.calefirm=dirgen+'\'+nfscurt
calefirma=m.calefirm
*m.loctempo='C:\CONTAFIN\TEMP\'
GATHER MEMVAR
repl permis with '*'
REPL locTEMPO WITH '&DIRGEN\'
*CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________
set defa to c:
if !directory('contafin')
md contafin
endif
set defa to c:\contafin
if !directory('temp')
md temp
endif
set defa to c:\contafin\temp
MD &NFSCURT
set defa to c:\contafin\temp\&nfscurt
md tempo
SET DEFA TO &DIRGEN
SET DEFA TO &DIRGEN
MD &NFSCURT
CD &NFSCURT
MD DATEAN
MD LUNA
MD TEMPO
MD &LAN
CD &LAN
MD &LLUN
*COPIEZ FISIERELE STANDARD__________________
close database
SET DEFA TO &DIRGEN
COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.*
COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.*
COPY FILE _ALFA\TEMPO\*.* TO &NFSCURT\TEMPO\*.*
COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.*
COPY FILE _ALFA\TEMPO\*.* TO c:\contafin\temp\&NFSCURT\TEMPO\*.*
*SCRIU IN CALENDAR___________________
DIRFIRM=DIRGEN+NFSCURT
sele 0
USE &calefirma\DATEAN\CALENDAR alias cal
APPE BLANK
REPL NL WITH M.NL
REPL AN WITH M.AN
REPL SCONT WITH .T.
M.antet=ALLTRIM(M.FLUNG)
THISFORM.RELEASE
*____________
ENDIF
DO TOTV
THISFORM.SERIADEBAZA
SELE LUNILEAN
SEEK (M.NL)
M.LUNA=NUMELUNA
*schimb titlul__________________
capapl="CONT2000 Firma "+UPPER(rTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN
goApp.SetCaption(capapl)
ENDPROC
PROCEDURE Text2.Valid
m.nl=RIGHT('0'+ALLTRIM(m.lUU),2)
ENDPROC
PROCEDURE Text3.Valid
M.AN=ALLTRIM(THIS.VALUE)
ENDPROC
PROCEDURE Text4.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ENDPROC
PROCEDURE Text4.Valid
if alltrim(m.flung)=="" then
wait wind "Introduceti numele firmei!"
return 0
endif
ENDPROC
PROCEDURE Text4.When
*thisform.label8.caption=thisform.ttFIRMA
ENDPROC
ENDDEFINE