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
This commit is contained in:
218
Clase/roaclienti.vc2
Normal file
218
Clase/roaclienti.vc2
Normal file
@@ -0,0 +1,218 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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
Block a user