romfast/roacontracte
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
7cc3bff3582ab6d5140aeaa2fd7e551f76086404
roacontracte/Clase/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

219 lines
6.6 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="roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class.
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
clastcaption = Microsoft Visual FoxPro
clasticon =
Name = "capplication"
nformcount = 0
*</PropValue>
PROCEDURE doform
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
LOCAL lcFormName,lnFormCount
_screen.visible=.t.
lcFileName=UPPER(ALLTRIM(tcFileName))
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
IF tlNoMultipleInstances
FOR lnCount = 1 TO this.nFormCount
IF this.aFormNames[lnCount]==lcFormName AND ;
TYPE("this.aForms[lnCount]")=="O" AND ;
NOT ISNULL(this.aForms[lnCount])
this.aForms[lnCount].Show
RETURN .F.
ENDIF
ENDFOR
ENDIF
this.RefreshFormsCollection
this.nFormCount=this.nFormCount+1
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
this.aFormNames[this.nFormCount]=lcFormName
IF NOT EMPTY(lcClass)
SET CLASSLIB TO (lcFileName) ADDITIVE
this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
NOT ISNULL(this.aForms[this.nFormCount])
this.aForms[this.nFormCount].Show
ENDIF
ELSE
DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
ENDIF
lnFormCount=this.nFormCount
this.RefreshFormsCollection
IF this.lCascadeForms AND this.nFormCount>=lnFormCount
oForm=this.aForms[this.nFormCount]
lnTop=oForm.Top
lnLeft=oForm.Left
lcName=oForm.Name
IF WEXIST(lcName) AND oForm.WindowState#2
FOR lnCount = 1 TO (this.nFormCount-1)
oForm2=this.aForms[lnCount]
IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
LOOP
ENDIF
IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
WLCOL(lcName)=WLCOL(oForm2.Name)
lnTop=lnTop+this.nPixelOffset
lnLeft=lnLeft+this.nPixelOffset
ENDIF
ENDFOR
IF oForm.Top#lnTop
oForm.Top=lnTop
ENDIF
IF oForm.Left#lnLeft
oForm.Left=lnLeft
ENDIF
ENDIF
ENDIF
*!* modificat 14.12.2004
*!* liana
IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
this.aForms[this.nFormCount].Show
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS pg_meniu_princ AS pg_meniu OF "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="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" />
*<PropValue>
ActivePage = 1
ErasePage = .T.
Height = 422
Name = "pg_meniu_princ"
PageCount = 2
Width = 401
Page1.Caption = "Leasing"
Page1.Name = "Page1"
Page1.PageOrder = 1
Page2.Caption = "Furnizori"
Page2.Name = "Page2"
Page2.PageOrder = 2
*</PropValue>
ADD OBJECT 'Page1.Cw2' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw2", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 37, ;
Width = 113, ;
LABEL_ITEM1.Caption = "Contracte", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw3' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw3", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 75, ;
Width = 113, ;
LABEL_ITEM1.Caption = "Rapoarte", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 7, ;
Name = "Pict_liniuta1", ;
Picture = ..\..\comun\grafice\f3.jpg, ;
Top = 63
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page2.Cw2' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw2", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 37, ;
Width = 113, ;
Label_item1.Caption = "Contracte", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw3' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw3", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 75, ;
Width = 113, ;
Label_item1.Caption = "Rapoarte", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 7, ;
Name = "Pict_liniuta1", ;
Picture = ..\grafice\f3.jpg, ;
Top = 63
*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
PROCEDURE Page1.Cw3.Init
ENDPROC
PROCEDURE Page2.Cw3.Init
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink