romfast/roacontracte
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
9566268f5a2bad2a50f8c5911e679bc5177f9208
roacontracte/Teste/ofundal_roaclienti.vc2
Marius Mutu 7cc3bff358 Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) 
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
2026-08-03 01:51:36 +03:00

1086 lines
37 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS pagefr AS pg_meniu OF "..\comun\clase\ofundal.vcx"
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Page2.Ct_contracte1" UniqueID="" Timestamp="" />
*<PropValue>
ActivePage = 2
ErasePage = .T.
Height = 578
Name = "pagefr"
PageCount = 4
Themes = .F.
Width = 800
Page1.Caption = "Definire"
Page1.Name = "Page1"
Page1.PageOrder = 1
Page2.Caption = "Lista contractelor"
Page2.Name = "Page2"
Page2.PageOrder = 2
Page3.BackColor = 255,255,255
Page3.Caption = "Facturi"
Page3.Name = "Page4"
Page3.PageOrder = 3
Page4.BackColor = 255,255,255
Page4.Caption = "Încasãri (Plãþi)"
Page4.FontCharSet = 238
Page4.Name = "Page5"
Page4.PageOrder = 4
*</PropValue>
ADD OBJECT 'Page2.Ct_contracte1' AS ct_contracte WITH ;
Anchor = 15, ;
Left = 1, ;
Name = "Ct_contracte1", ;
Top = 0, ;
_shape1.Name = "_shape1", ;
Gridsort1.Name = "Gridsort1", ;
_ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
grid_contracte.cAre_link.Command1.Name = "Command1", ;
grid_contracte.cAre_link.Command2.Name = "Command2", ;
grid_contracte.cAre_link.Header1.Name = "Header1", ;
grid_contracte.cAre_link.Name = "cAre_link", ;
grid_contracte.cAre_link.Text1.Name = "Text1", ;
grid_contracte.cData_ctr.Header1.Name = "Header1", ;
grid_contracte.cData_ctr.Name = "cData_ctr", ;
grid_contracte.cData_ctr.Text1.Name = "Text1", ;
grid_contracte.cDurata.Header1.Name = "Header1", ;
grid_contracte.cDurata.Name = "cDurata", ;
grid_contracte.cDurata.Text1.Name = "Text1", ;
grid_contracte.cInactiv.Check1.Alignment = 0, ;
grid_contracte.cInactiv.Check1.Name = "Check1", ;
grid_contracte.cInactiv.Header1.Name = "Header1", ;
grid_contracte.cInactiv.Name = "cInactiv", ;
grid_contracte.cIncetat.Check1.Alignment = 0, ;
grid_contracte.cIncetat.Check1.Name = "Check1", ;
grid_contracte.cIncetat.Header1.Name = "Header1", ;
grid_contracte.cIncetat.Name = "cIncetat", ;
grid_contracte.cNr_ctr.Header1.Name = "Header1", ;
grid_contracte.cNr_ctr.Name = "cNr_ctr", ;
grid_contracte.cNr_ctr.Text1.Name = "Text1", ;
grid_contracte.cNume.Header1.Name = "Header1", ;
grid_contracte.cNume.Name = "cNume", ;
grid_contracte.cNume.Text1.Name = "Text1", ;
grid_contracte.cNume_val.Header1.Name = "Header1", ;
grid_contracte.cNume_val.Name = "cNume_val", ;
grid_contracte.cNume_val.Text1.Name = "Text1", ;
grid_contracte.COLUMN12.Header1.Name = "Header1", ;
grid_contracte.COLUMN12.Name = "COLUMN12", ;
grid_contracte.COLUMN12.Text1.Name = "Text1", ;
grid_contracte.COLUMN13.Header1.Name = "Header1", ;
grid_contracte.COLUMN13.Name = "COLUMN13", ;
grid_contracte.COLUMN13.Text1.Name = "Text1", ;
grid_contracte.COLUMN14.Header1.Name = "Header1", ;
grid_contracte.COLUMN14.Name = "COLUMN14", ;
grid_contracte.COLUMN14.Text1.Name = "Text1", ;
grid_contracte.COLUMN15.Header1.Name = "Header1", ;
grid_contracte.COLUMN15.Name = "COLUMN15", ;
grid_contracte.COLUMN15.Text1.Name = "Text1", ;
grid_contracte.COLUMN16.Header1.Name = "Header1", ;
grid_contracte.COLUMN16.Name = "COLUMN16", ;
grid_contracte.COLUMN16.Text1.Name = "Text1", ;
grid_contracte.COLUMN17.Header1.Name = "Header1", ;
grid_contracte.COLUMN17.Name = "COLUMN17", ;
grid_contracte.COLUMN17.Text1.Name = "Text1", ;
grid_contracte.COLUMN18.Header1.Name = "Header1", ;
grid_contracte.COLUMN18.Name = "COLUMN18", ;
grid_contracte.COLUMN18.Text1.Name = "Text1", ;
grid_contracte.COLUMN20.Header1.Name = "Header1", ;
grid_contracte.COLUMN20.Name = "COLUMN20", ;
grid_contracte.COLUMN20.Text1.Name = "Text1", ;
grid_contracte.COLUMN22.Header1.Name = "Header1", ;
grid_contracte.COLUMN22.Name = "COLUMN22", ;
grid_contracte.COLUMN22.Text1.Name = "Text1", ;
grid_contracte.COLUMN23.Header1.Name = "Header1", ;
grid_contracte.COLUMN23.Name = "COLUMN23", ;
grid_contracte.COLUMN23.Text1.Name = "Text1", ;
grid_contracte.COLUMN24.Check1.Alignment = 0, ;
grid_contracte.COLUMN24.Check1.Name = "Check1", ;
grid_contracte.COLUMN24.Header1.Name = "Header1", ;
grid_contracte.COLUMN24.Name = "COLUMN24", ;
grid_contracte.COLUMN24.Text1.Name = "Text1", ;
grid_contracte.cSemnat.Check1.Alignment = 0, ;
grid_contracte.cSemnat.Check1.Name = "Check1", ;
grid_contracte.cSemnat.Header1.Name = "Header1", ;
grid_contracte.cSemnat.Name = "cSemnat", ;
grid_contracte.cSucursala.Header1.Name = "Header1", ;
grid_contracte.cSucursala.Name = "cSucursala", ;
grid_contracte.cSucursala.Text1.Name = "Text1", ;
grid_contracte.cTipc.Header1.Name = "Header1", ;
grid_contracte.cTipc.Name = "cTipc", ;
grid_contracte.cTipc.Text1.Name = "Text1", ;
grid_contracte.cValctva.Header1.Name = "Header1", ;
grid_contracte.cValctva.Name = "cValctva", ;
grid_contracte.cValctva.Text1.Name = "Text1", ;
grid_contracte.cValvaluta.Header1.Name = "Header1", ;
grid_contracte.cValvaluta.Name = "cValvaluta", ;
grid_contracte.cValvaluta.Text1.Name = "Text1", ;
grid_contracte.Name = "grid_contracte", ;
_lbbase1.Name = "_lbbase1", ;
But_nou_gri1.Name = "But_nou_gri1", ;
BUT_MODIFICA1.Name = "BUT_MODIFICA1", ;
But_nou1.Name = "But_nou1", ;
But_sterge1.Name = "But_sterge1", ;
but_factura.Name = "but_factura", ;
Clb_tx_simplu1.LB_SIMPLU1.Name = "LB_SIMPLU1", ;
Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
But_listare1.Name = "But_listare1", ;
But_start_criterii1.Name = "But_start_criterii1", ;
But_excel1.Name = "But_excel1", ;
But_reset_criterii1.Name = "But_reset_criterii1"
*< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" />
ENDDEFINE
DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="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: esteuncontract
*p: cgridsortlist
*p: llnou
*</DefinedPropArrayMethod>
*<PropValue>
AlwaysOnTop = .F.
BackColor = 255,255,255
BorderStyle = 1
Caption = ""
cgridsortlist = grid_contracte
Closable = .F.
ControlBox = .F.
DoCreate = .T.
Height = 584
KeyPreview = .T.
Left = 0
llnou = .F.
MaxButton = .F.
MinButton = .F.
Movable = .F.
Name = "princ"
ShowTips = .T.
Top = 0
Width = 793
WindowState = 2
*</PropValue>
ADD OBJECT 'Image1' AS image WITH ;
Anchor = 12, ;
Height = 220, ;
Left = 226, ;
Name = "Image1", ;
Picture = ..\grafice\roaclienti.bmp, ;
Top = 235, ;
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 = 0, ;
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 = 0, ;
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 = 8, ;
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 = 8, ;
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 = 59, ;
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="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þ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þ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þ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þ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ºate la scadenþ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ã facturi º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ã 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 încasã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 î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 încasate în luna curentã", ;
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 do_cauta
thisform.pagefr1.page2.ct_contracte1.do_cauta
ENDPROC
PROCEDURE do_reset
*!* Local llcautare
*!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty = ""
*!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro = ""
*!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro_full = ""
*!* If Type ("thisform.pagefr1.page2.ct_contracte1.but_start_criterii1") = 'O'
*!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.ToolTipText=Thisform.pagefr1.page2.ct_contracte1.filtru_pretty
*!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.SetFocus
*!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.pornit = "nu"
*!* Endif
*!*
*!* SET STEP ON
*!* lcfiltru = [Stare;nofiled;1;]
*!* *!* llcautare = This.Parent.but_start_criterii1.lcautare
*!* *!* This.Parent.but_start_criterii1.lcautare = .F.
*!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru)
*!* *!* This.Parent.but_start_criterii1.lcautare = llcautare
*!* *Thisform.pagefr1.page2.ct_contracte1.do_cauta(.T.)
*!* Thisform.pagefr1.page2.ct_contracte1.Refresh
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 RightClick
*!* modificare v 2.0.39
*!* save_grid_tag(This.pagefr1.page2.ct_contracte1.grid_contracte)
*!* lcsql = [SELECT * FROM vcontracte_toate WHERE 1=2]
*!* lcCursor = [cContracte]
*!* lnSucces = goExecutor.oExecute(lcsql, lcCursor)
*!* If lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* restore_grid_tag(This.pagefr1.page2.ct_contracte1.grid_contracte)
*!* ***-------------------------------------------------
*!* 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
LOCAL lnPornire
verifica_drepturi('oprinc','pagefr1')
actualizeaza_drepturi_roacontracte()
*!* 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 Image1.RightClick
*!* modificare v 2.0.39
*!* save_grid_tag(oprinc.pagefr1.page2.ct_contracte1.grid_contracte)
*!* lcsql = [SELECT * FROM vcontracte_toate WHERE 1=2]
*!* lcCursor = [cContracte]
*!* lnSucces = goExecutor.oExecute(lcsql, lcCursor)
*!* If lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* restore_grid_tag(oprinc.pagefr1.page2.ct_contracte1.grid_contracte)
*!* ***-------------------------------------------------
*!* 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 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.rightclick
ENDPROC
PROCEDURE lb_utilizator1.RightClick
thisform.rightclick
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þ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
*!* 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 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
*!* 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 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 încasãrilor',iif(gnParametru_prog=2,'Lista plãþilor','Lista încasãrilor/plãþ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 încasare',iif(gnParametru_prog=2,'Facturi - detalii plãþi','Facturi - detalii încasare/plãþ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 încasate în luna curentã'
ELSE
this.Visible = .F.
ENDIF
ENDPROC
PROCEDURE Pagefr1.Page5.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
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink