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

923
Teste/fundal.sc2 Normal file
View File

@@ -0,0 +1,923 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page4.shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page5.shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: arata_meniu_fluna
*m: do_cauta
*m: esteuncontract
*m: jurnal
*m: statusbarclick
*</DefinedPropArrayMethod>
*<PropValue>
AlwaysOnBottom = .T.
AutoCenter = .T.
BackColor = 255,255,255
Caption = ""
Closable = .F.
ControlBox = .F.
DoCreate = .T.
Enabled = .T.
FillColor = 0,0,0
HalfHeightCaption = .F.
Height = 455
MaxButton = .F.
MinButton = .F.
Movable = .F.
Name = "Form1"
Picture = ..\..\
ShowTips = .T.
Width = 797
WindowState = 2
*</PropValue>
ADD OBJECT 'Image1' AS image WITH ;
Anchor = 12, ;
Height = 220, ;
Left = 226, ;
Name = "Image1", ;
Picture = ..\grafice\roaclienti.bmp, ;
Top = 215, ;
Width = 556, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Image2' AS image WITH ;
BackStyle = 1, ;
Height = 63, ;
Left = 0, ;
Name = "Image2", ;
Picture = ..\grafice\f1.jpg, ;
Stretch = 2, ;
Top = -3, ;
Width = 804, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Imagine01' AS imagine WITH ;
ccod = A01, ;
Height = 55, ;
Left = 6, ;
Name = "Imagine01", ;
nid_img = 1, ;
ntip = 4, ;
ToolTipText = "iif(gnParametru_prog = 1,'Vizualizare clienti','Vizualizare furnizori')", ;
Top = -3, ;
Width = 42
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
Anchor = 8, ;
Caption = "Operator:", ;
FontItalic = .T., ;
ForeColor = 255,255,255, ;
Left = 580, ;
Name = "lb_utilizator", ;
Top = 5, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
Anchor = 8, ;
Caption = "nume_utilizator", ;
FontBold = .T., ;
FontItalic = .T., ;
ForeColor = 255,255,255, ;
Left = 634, ;
Name = "lb_utilizator1", ;
Top = 5, ;
Visible = .F., ;
ZOrderSet = 5
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Pagefr1' AS pagefr WITH ;
ErasePage = .T., ;
Height = 475, ;
Left = -1, ;
Name = "Pagefr1", ;
Top = 56, ;
Width = 804, ;
Page1.Name = "Page1", ;
Page1.PageOrder = 1, ;
Page2.Ct_contracte1.But_excel1.Name = "But_excel1", ;
Page2.Ct_contracte1.but_factura.Name = "but_factura", ;
Page2.Ct_contracte1.But_listare1.Name = "But_listare1", ;
Page2.Ct_contracte1.BUT_MODIFICA1.Name = "BUT_MODIFICA1", ;
Page2.Ct_contracte1.But_nou1.Name = "But_nou1", ;
Page2.Ct_contracte1.But_nou_gri1.Name = "But_nou_gri1", ;
Page2.Ct_contracte1.But_reset_criterii1.Name = "But_reset_criterii1", ;
Page2.Ct_contracte1.But_start_criterii1.Name = "But_start_criterii1", ;
Page2.Ct_contracte1.But_sterge1.Name = "But_sterge1", ;
Page2.Ct_contracte1.Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ;
Page2.Ct_contracte1.Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
Page2.Ct_contracte1.Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
Page2.Ct_contracte1.Gridsort1.Name = "Gridsort1", ;
Page2.Ct_contracte1.grid_contracte.cAre_link.Command1.Name = "Command1", ;
Page2.Ct_contracte1.grid_contracte.cAre_link.Command2.Name = "Command2", ;
Page2.Ct_contracte1.grid_contracte.cAre_link.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cAre_link.Name = "cAre_link", ;
Page2.Ct_contracte1.grid_contracte.cAre_link.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cData_ctr.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cData_ctr.Name = "cData_ctr", ;
Page2.Ct_contracte1.grid_contracte.cData_ctr.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cDurata.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cDurata.Name = "cDurata", ;
Page2.Ct_contracte1.grid_contracte.cDurata.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cInactiv.Check1.Alignment = 0, ;
Page2.Ct_contracte1.grid_contracte.cInactiv.Check1.Name = "Check1", ;
Page2.Ct_contracte1.grid_contracte.cInactiv.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cInactiv.Name = "cInactiv", ;
Page2.Ct_contracte1.grid_contracte.cIncetat.Check1.Alignment = 0, ;
Page2.Ct_contracte1.grid_contracte.cIncetat.Check1.Name = "Check1", ;
Page2.Ct_contracte1.grid_contracte.cIncetat.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cIncetat.Name = "cIncetat", ;
Page2.Ct_contracte1.grid_contracte.cNr_ctr.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cNr_ctr.Name = "cNr_ctr", ;
Page2.Ct_contracte1.grid_contracte.cNr_ctr.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cNume.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cNume.Name = "cNume", ;
Page2.Ct_contracte1.grid_contracte.cNume.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cNume_val.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cNume_val.Name = "cNume_val", ;
Page2.Ct_contracte1.grid_contracte.cNume_val.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column12.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column12.Name = "Column12", ;
Page2.Ct_contracte1.grid_contracte.Column12.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column13.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column13.Name = "Column13", ;
Page2.Ct_contracte1.grid_contracte.Column13.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column14.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column14.Name = "Column14", ;
Page2.Ct_contracte1.grid_contracte.Column14.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column15.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column15.Name = "Column15", ;
Page2.Ct_contracte1.grid_contracte.Column15.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column16.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column16.Name = "Column16", ;
Page2.Ct_contracte1.grid_contracte.Column16.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column17.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column17.Name = "Column17", ;
Page2.Ct_contracte1.grid_contracte.Column17.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column18.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column18.Name = "Column18", ;
Page2.Ct_contracte1.grid_contracte.Column18.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column20.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column20.Name = "Column20", ;
Page2.Ct_contracte1.grid_contracte.Column20.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column22.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column22.Name = "Column22", ;
Page2.Ct_contracte1.grid_contracte.Column22.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column23.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column23.Name = "Column23", ;
Page2.Ct_contracte1.grid_contracte.Column23.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Column24.Check1.Alignment = 0, ;
Page2.Ct_contracte1.grid_contracte.Column24.Check1.Name = "Check1", ;
Page2.Ct_contracte1.grid_contracte.Column24.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.Column24.Name = "Column24", ;
Page2.Ct_contracte1.grid_contracte.Column24.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cSemnat.Check1.Alignment = 0, ;
Page2.Ct_contracte1.grid_contracte.cSemnat.Check1.Name = "Check1", ;
Page2.Ct_contracte1.grid_contracte.cSemnat.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cSemnat.Name = "cSemnat", ;
Page2.Ct_contracte1.grid_contracte.cSucursala.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cSucursala.Name = "cSucursala", ;
Page2.Ct_contracte1.grid_contracte.cSucursala.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cTipc.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cTipc.Name = "cTipc", ;
Page2.Ct_contracte1.grid_contracte.cTipc.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cValctva.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cValctva.Name = "cValctva", ;
Page2.Ct_contracte1.grid_contracte.cValctva.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.cValvaluta.Header1.Name = "Header1", ;
Page2.Ct_contracte1.grid_contracte.cValvaluta.Name = "cValvaluta", ;
Page2.Ct_contracte1.grid_contracte.cValvaluta.Text1.Name = "Text1", ;
Page2.Ct_contracte1.grid_contracte.Name = "grid_contracte", ;
Page2.Ct_contracte1.Left = 1, ;
Page2.Ct_contracte1.Name = "Ct_contracte1", ;
Page2.Ct_contracte1.Top = 7, ;
Page2.Ct_contracte1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
Page2.Ct_contracte1._lbbase1.Name = "_lbbase1", ;
Page2.Ct_contracte1._shape1.Name = "_shape1", ;
Page2.Name = "Page2", ;
Page2.PageOrder = 2, ;
Page4.Enabled = .T., ;
Page4.Name = "Page4", ;
Page4.PageOrder = 3, ;
Page5.Enabled = .T., ;
Page5.Name = "Page5", ;
Page5.PageOrder = 4
*< END OBJECT: ClassLib="..\clase\ofundal_roaclienti.vcx" BaseClass="pageframe" />
ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw1", ;
nid_cw = 1, ;
ntip = 4, ;
Top = 21, ;
Width = 142, ;
Label_item1.Caption = "Parteneri", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw2", ;
nid_cw = 6, ;
ntip = 4, ;
Top = 144, ;
Width = 142, ;
Label_item1.Caption = "Op<4F>iuni server", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw3' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw3", ;
nid_cw = 3, ;
ntip = 4, ;
Top = 70, ;
Width = 142, ;
Label_item1.Caption = "Tipuri contracte", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw4' AS cw WITH ;
Left = 4, ;
Name = "Cw4", ;
nid_cw = 2, ;
ntip = 2, ;
TabIndex = 2, ;
Top = 45, ;
Width = 142, ;
Label_item1.Caption = "Agen<65>i", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw5' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw5", ;
nid_cw = 4, ;
ntip = 2, ;
Top = 95, ;
Width = 142, ;
Label_item1.Caption = "Metode selec<65>ie executant", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw6' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw6", ;
nid_cw = 7, ;
ntip = 4, ;
Top = 168, ;
Width = 142, ;
Label_item1.Caption = "Op<4F>iuni locale", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw7' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw7", ;
nid_cw = 5, ;
ntip = 2, ;
TabIndex = 7, ;
Top = 120, ;
Width = 142, ;
Label_item1.Caption = "Curs valutar", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.shape1' AS pict_meniu WITH ;
Height = 362, ;
Left = 0, ;
Name = "shape1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 7, ;
Width = 160
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.Page4.Cw1' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw1", ;
nid_cw = 1, ;
ntip = 4, ;
Top = 21, ;
Width = 161, ;
Label_item1.Caption = "Lista facturilor partenerului", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page4.Cw2' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw2", ;
nid_cw = 2, ;
ntip = 4, ;
Top = 45, ;
Width = 161, ;
Label_item1.Caption = "Facturi ata<74>ate la scaden<65>ar", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page4.Cw3' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw3", ;
nid_cw = 3, ;
ntip = 4, ;
Top = 69, ;
Width = 161, ;
Label_item1.Caption = "Rate de facturat", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page4.Cw4' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw4", ;
nid_cw = 4, ;
ntip = 2, ;
TabIndex = 1, ;
Top = 105, ;
Width = 161, ;
Label_item1.Caption = "List<73> facturi <20>i avize", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page4.Cw5' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw5", ;
nid_cw = 5, ;
ntip = 2, ;
TabIndex = 1, ;
Top = 129, ;
Width = 161, ;
Label_item1.Caption = "List<73> proforme", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page4.shape1' AS pict_meniu WITH ;
Height = 362, ;
Left = 0, ;
Name = "shape1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 7, ;
Width = 178
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Pagefr1.Page5.Cw1' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw1", ;
nid_cw = 1, ;
ntip = 4, ;
Top = 21, ;
Width = 161, ;
Label_item1.Caption = "Lista <20>ncas<61>rilor", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page5.Cw2' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw2", ;
nid_cw = 3, ;
ntip = 4, ;
Top = 76, ;
Width = 161, ;
Label_item1.Caption = "Facturi - detalii <20>ncasare", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page5.Cw3' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw3", ;
nid_cw = 2, ;
ntip = 4, ;
Top = 48, ;
Width = 161, ;
Label_item1.Caption = "Client - Contracte - Facturi", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page5.Cw4' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw4", ;
nid_cw = 4, ;
ntip = 4, ;
Top = 104, ;
Width = 161, ;
Label_item1.Caption = "Facturi <20>ncasate <20>n luna curent<6E>", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page5.shape1' AS pict_meniu WITH ;
Height = 362, ;
Left = 0, ;
Name = "shape1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 7, ;
Width = 178
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
PROCEDURE arata_meniu_fluna
DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
ENDPROC
PROCEDURE do_cauta
thisform.pagefr1.page2.ct_contracte1.do_cauta
ENDPROC
PROCEDURE esteuncontract
LOCAL llContract
llContract = .T.
IF EMPTY(NVL(goContract.id_ctr,0))
AMESSAGEBOX('Selectati un contract!',0+48,'Contract')
llContract = .F.
ENDIF
RETURN llContract
ENDPROC
PROCEDURE Init
thisform.imagine01.Init()
ENDPROC
PROCEDURE jurnal
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode==-1 &&F2
Quit
Endif
ENDPROC
PROCEDURE RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Show
Lparameters nStyle
DoDefault(nStyle)
This.AlwaysOnBottom = .T.
If Not Pemstatus(_Screen,"StatusBar", 5) Then
_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 2)
Endif
Thisform.oStatusBar = _Screen.StatusBar
Thisform.oStatusBar.ctlIcon="roaautomic.ico"
Thisform.oStatusBar.ctlMessage = _Screen.Caption
Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
Thisform.arata_meniu_fluna()
primadata = .F.
Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
Thisform.lb_utilizator1.Visible=.T.
Do lansare_toolbar In oproceduri_comune.prg
DO lansare_help IN oproceduri_comune.prg
*!* modificare v 2.0.34
IF gnParametru_prog = 2
This.imaGE1.Picture = [roafurnizori.bmp]
ELSE
This.image1.Picture = [roaclienti.bmp]
endif
*!* modificare v 2.0.34 ^
Local w,h
w=_Screen.Width
h=_Screen.Height
This.Width=w
This.Height=h
This.image1.Left=w-This.image1.Width-25
This.image1.Top=h-This.image1.Height-25
*!* This.lb_utilizator.Top=h-This.lb_utilizator.Height
*!* This.lb_utilizator1.Top=h-This.lb_utilizator1.Height
This.image2.Width = w + 180
With This.pagefr1
.Width=w
.Height=h
.page1.shape1.Height=h
.page4.shape1.Height=h
.page5.shape1.Height=h
ENDWITH
SELECT cContracte
GO TOP
this.pagefr1.paGE2.ct_contracte1.grID_CONTRACTE.SetFocus()
Local lcfiltru, llcautare
IF !PEMSTATUS(this,'lPrimaData',5)
lcfiltru = [Stare;nofiled;1;]
llcautare = this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare
this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare = .f.
this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru)
this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare = llcautare
this.AddProperty('lPrimaData',.T.)
ENDIF
ENDPROC
PROCEDURE statusbarclick
Thisform.oStatusBar.newtooltip()
ENDPROC
PROCEDURE Image1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Imagine01.do_actiune
thisform.pagefr1.pAGE1.cw1.do_actiune
ENDPROC
PROCEDURE Imagine01.Init
DODEFAULT()
this.picturedown = iif(gnParametru_prog = 1,'clie2.bmp','furn2.bmp')
this.pictureup = iif(gnParametru_prog = 1,'clie1.bmp','furn1.bmp')
this.ToolTipText = iif(gnParametru_prog = 1,'Vizualizare clienti','Vizualizare furnizori')
ENDPROC
PROCEDURE lb_utilizator.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE lb_utilizator1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Pagefr1.Page1.Click
IF TYPE('podg_dg.but_termin1') <> 'U'
podg_dg.but_termin1.CLICK()
ENDIF
IF TYPE('podg_ob.but_termin1') <> 'U'
podg_ob.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tf.but_termin1') <> 'U'
podg_tf.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tl.but_termin1') <> 'U'
podg_tl.but_termin1.CLICK()
ENDIF
IF TYPE('podg_obs.but_termin1') <> 'U'
podg_obs.but_termin1.CLICK()
ENDIF
IF TYPE('podg_link.but_termin1') <> 'U'
podg_link.but_termin1.CLICK()
ENDIF
IF TYPE('podg_fact.but_termin1') <> 'U'
podg_fact.but_termin1.CLICK()
ENDIF
ENDPROC
PROCEDURE Pagefr1.Page1.Cw1.do_actiune
* DO viz_clienti IN onom_clienti.prg
*!* modificare v 2.0.35
*!* DO viz_parteneri IN onomenclatoare.prg
If gnParametru_prog = 1
Do vizualizare_clienti In onomenclatoare.prg
Else
Do vizualizare_furnizori In onomenclatoare.prg
Endif
*!* modificare v 2.0.35 ^
ENDPROC
PROCEDURE Pagefr1.Page1.Cw1.Label_item1.Init
this.Caption = iif(gnParametru_prog=1,'Clien<65>i',iif(gnParametru_prog=2,'Furnizori','Parteneri'))
ENDPROC
PROCEDURE Pagefr1.Page1.Cw2.do_actiune
Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 1
ENDPROC
PROCEDURE Pagefr1.Page1.Cw3.do_actiune
DO viz_tipuri_ctr IN onomenclatoare.prg
ENDPROC
PROCEDURE Pagefr1.Page1.Cw4.do_actiune
Do vizualizare_agenti In onomenclatoare.prg
ENDPROC
PROCEDURE Pagefr1.Page1.Cw5.do_actiune
DO viz_selectii IN oproceduri_roacontracte.prg
ENDPROC
PROCEDURE Pagefr1.Page1.Cw6.do_actiune
Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 2
ENDPROC
PROCEDURE Pagefr1.Page1.Cw7.do_actiune
DO vizualizeaza_curs IN oproceduri_curs.prg
ENDPROC
PROCEDURE Pagefr1.Page1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Pagefr1.Page2.Activate
thisform.image1.Visible = .F.
If Type('poGeneratorNumere') = 'U'
Private poGeneratorNumere
poGeneratorNumere = Createobject('oGeneratorNumere')
ENDIF
*!* thisform.lb_nivel.Visible = .F.
*!* thisform.lb_nivel1.Visible = .F.
*!* thisform.lb_utilizator.Visible = .F.
*!* thisform.lb_utilizator1.Visible = .F.
ENDPROC
PROCEDURE Pagefr1.Page2.Click
* this.ct_contracte1.do_cauta()
this.ct_contracte1.grid_contracte.Refresh
ENDPROC
PROCEDURE Pagefr1.Page2.Ct_contracte1.AddObject
LPARAMETERS cName, cClass
ENDPROC
PROCEDURE Pagefr1.Page2.Deactivate
thisform.image1.Visible = .T.
*!* thisform.lb_nivel.Visible = .T.
*!* thisform.lb_nivel1.Visible = .T.
*!* thisform.lb_utilizator.Visible = .T.
*!* thisform.lb_utilizator1.Visible = .T.
*!* 27.01.2008
*!* IF EMPTY(goContract.id_ctr)
*!* *!* AMESSAGEBOX('Nu este selectat nici un contract!',0+48,_SCREEN.CAPTION)
*!* this.Parent.paGE4.Enabled = .F.
*!* this.Parent.paGE5.Enabled = .F.
*!* *!* _screen.LockScreen= .T.
*!* ELSE
*!* this.Parent.paGE4.Enabled = .T.
*!* this.Parent.paGE5.Enabled = .T.
*!* ENDIF
*!* 27.01.2008 ^
ENDPROC
PROCEDURE Pagefr1.Page4.Click
IF TYPE('podg_dg.but_termin1') <> 'U'
podg_dg.but_termin1.CLICK()
ENDIF
IF TYPE('podg_ob.but_termin1') <> 'U'
podg_ob.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tf.but_termin1') <> 'U'
podg_tf.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tl.but_termin1') <> 'U'
podg_tl.but_termin1.CLICK()
ENDIF
IF TYPE('podg_obs.but_termin1') <> 'U'
podg_obs.but_termin1.CLICK()
ENDIF
IF TYPE('podg_link.but_termin1') <> 'U'
podg_link.but_termin1.CLICK()
ENDIF
IF TYPE('podg_fact.but_termin1') <> 'U'
podg_fact.but_termin1.CLICK()
ENDIF
IF TYPE('podg_garantii.but_termin1') <> 'U'
podg_garantii.but_termin1.CLICK()
ENDIF
ENDPROC
PROCEDURE Pagefr1.Page4.Cw1.do_actiune
IF !thisform.esteuncontract()
RETURN
ENDIF
DO CASE
CASE gnParametru_prog = 1
DO lans_ireg_parteneri WITH .F., gcCont411, .T.
CASE gnParametru_prog = 2
DO lans_ireg_parteneri WITH .F.,'401', .F.
ENDCASE
* DO viz_facturi IN oproceduri_roacontracte.prg
ENDPROC
PROCEDURE Pagefr1.Page4.Cw1.Label_item1.Init
this.Caption = iif(gnParametru_prog=1,'Lista facturilor clientului',iif(gnParametru_prog=2,'Lista facturilor furnizorului','Lista facturilor partenerului'))
ENDPROC
PROCEDURE Pagefr1.Page4.Cw2.do_actiune
IF !thisform.esteuncontract()
RETURN
ENDIF
DO facturi_atasate IN oproceduri_roacontracte.prg
ENDPROC
PROCEDURE Pagefr1.Page4.Cw3.do_actiune
IF !thisform.esteuncontract()
RETURN
ENDIF
DO rateDeFacturat IN oproceduri_roacontracte.prg
ENDPROC
PROCEDURE Pagefr1.Page4.Cw4.do_actiune
Do vizualizare_facturi In oproceduri_facturare.prg
ENDPROC
PROCEDURE Pagefr1.Page4.Cw5.do_actiune
Do vizualizare_proforme In oproceduri_facturare.prg
ENDPROC
PROCEDURE Pagefr1.Page4.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Pagefr1.Page5.Click
IF TYPE('podg_dg.but_termin1') <> 'U'
podg_dg.but_termin1.CLICK()
ENDIF
IF TYPE('podg_ob.but_termin1') <> 'U'
podg_ob.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tf.but_termin1') <> 'U'
podg_tf.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tl.but_termin1') <> 'U'
podg_tl.but_termin1.CLICK()
ENDIF
IF TYPE('podg_obs.but_termin1') <> 'U'
podg_obs.but_termin1.CLICK()
ENDIF
IF TYPE('podg_link.but_termin1') <> 'U'
podg_link.but_termin1.CLICK()
ENDIF
IF TYPE('podg_fact.but_termin1') <> 'U'
podg_fact.but_termin1.CLICK()
ENDIF
IF TYPE('podg_garantii.but_termin1') <> 'U'
podg_garantii.but_termin1.CLICK()
ENDIF
ENDPROC
PROCEDURE Pagefr1.Page5.Cw1.do_actiune
IF !thisform.esteuncontract()
RETURN
ENDIF
DO viz_incasari IN oproceduri_roacontracte.prg
ENDPROC
PROCEDURE Pagefr1.Page5.Cw1.Label_item1.Init
this.Caption = iif(gnParametru_prog=1,'Lista <20>ncas<61>rilor',iif(gnParametru_prog=2,'Lista pl<70><6C>ilor','Lista <20>ncas<61>rilor/pl<70><6C>ilor'))
ENDPROC
PROCEDURE Pagefr1.Page5.Cw2.do_actiune
IF !thisform.esteuncontract()
RETURN
ENDIF
DO CASE
CASE gnParametru_prog = 1
DO viz_frm_facturi WITH 2, gcCont411, goContract.id_part, goContract.denumire IN orap_terti_comun.prg
CASE gnParametru_prog = 2
DO viz_frm_facturi WITH 2,[401], goContract.id_part, goContract.denumire IN orap_terti_comun.prg
ENDCASE
ENDPROC
PROCEDURE Pagefr1.Page5.Cw2.Label_item1.Init
this.Caption = iif(gnParametru_prog=1,'Facturi - detalii <20>ncasare',iif(gnParametru_prog=2,'Facturi - detalii pl<70><6C>i','Facturi - detalii <20>ncasare/pl<70><6C>i'))
ENDPROC
PROCEDURE Pagefr1.Page5.Cw3.do_actiune
IF !thisform.esteuncontract()
RETURN
ENDIF
LOCAL llActiv
DO CASE
CASE gnParametru_prog = 1
llActiv = .T.
DO rap_fact_grup_ctr WITH gcCont411, llActiv IN oproceduri_roacontracte.prg
CASE gnParametru_prog = 2
llActiv = .F.
DO rap_fact_grup_ctr WITH '401', llActiv IN oproceduri_roacontracte.prg
ENDCASE
ENDPROC
PROCEDURE Pagefr1.Page5.Cw3.Label_item1.Init
this.Caption = iif(gnParametru_prog=1,'Client-Contracte-Facturi',iif(gnParametru_prog=2,'Furnizor-Contracte-Facturi','Partener-Contracte-Facturi'))
ENDPROC
PROCEDURE Pagefr1.Page5.Cw4.do_actiune
IF !thisform.esteuncontract()
RETURN
ENDIF
DO CASE
CASE gnParametru_prog = 1
DO rapIncasari.mpr
CASE gnParametru_prog = 2
*DO viz_frm_facturi WITH 2,[401], goContract.id_part, goContract.denumire IN orap_terti_comun.prg
ENDCASE
ENDPROC
PROCEDURE Pagefr1.Page5.Cw4.Label_item1.Init
IF gnParametru_prog = 1
this.Caption = 'Facturi <20>ncasate <20>n luna curent<6E>'
ELSE
this.Visible = .F.
ENDIF
ENDPROC
PROCEDURE Pagefr1.Page5.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
ENDDEFINE

1085
Teste/ofundal_roaclienti.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1490
Teste/oproceduri_roacontracte.prg Normal file
View File

File diff suppressed because it is too large Load Diff

1624
Teste/outlook2003bar.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

0
Teste/readme.txt.txt Normal file
View File

1003
Teste/roacontracte.prg Normal file
View File

File diff suppressed because it is too large Load Diff