Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
4
.gitattributes
vendored
Normal file
4
.gitattributes
vendored
Normal file
@@ -0,0 +1,4 @@
|
|||||||
|
# SVN ramane autoritatea pentru line endings (rulaj paralel svn+git).
|
||||||
|
# Dezactiveaza orice normalizare CRLF/LF facuta de git, ca sa nu mai apara
|
||||||
|
# "modificari" fantoma dupa fiecare svn update/checkout care doar atinge mtime-ul.
|
||||||
|
* -text
|
||||||
105
.gitignore
vendored
Normal file
105
.gitignore
vendored
Normal file
@@ -0,0 +1,105 @@
|
|||||||
|
# =============================================================================
|
||||||
|
# Flux text FoxBin2Prg: git urmareste DOAR versiunile text .??2 (in arbore),
|
||||||
|
# nu binarele VFP. Binarele convertibile si indecsii regenerabili se ignora.
|
||||||
|
# SVN ramane sursa de adevar pentru binare (via global-ignores pe .??2).
|
||||||
|
# =============================================================================
|
||||||
|
|
||||||
|
# --- Binare VFP convertibile in text .??2 (ambele forme de caz) ---
|
||||||
|
*.vcx
|
||||||
|
*.VCX
|
||||||
|
*.vct
|
||||||
|
*.VCT
|
||||||
|
*.scx
|
||||||
|
*.SCX
|
||||||
|
*.sct
|
||||||
|
*.SCT
|
||||||
|
*.frx
|
||||||
|
*.FRX
|
||||||
|
*.frt
|
||||||
|
*.FRT
|
||||||
|
*.mnx
|
||||||
|
*.MNX
|
||||||
|
*.mnt
|
||||||
|
*.MNT
|
||||||
|
*.lbx
|
||||||
|
*.LBX
|
||||||
|
*.lbt
|
||||||
|
*.LBT
|
||||||
|
*.pjx
|
||||||
|
*.PJX
|
||||||
|
*.pjt
|
||||||
|
*.PJT
|
||||||
|
*.dbc
|
||||||
|
*.DBC
|
||||||
|
*.dct
|
||||||
|
*.DCT
|
||||||
|
|
||||||
|
# --- Indecsi regenerabili (nu se transporta in .db2/.dc2) ---
|
||||||
|
*.cdx
|
||||||
|
*.CDX
|
||||||
|
*.dcx
|
||||||
|
*.DCX
|
||||||
|
|
||||||
|
# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) ---
|
||||||
|
DATE/Optiuni_FIRMA.dbf
|
||||||
|
DATE/Optiuni_FIRMA.fpt
|
||||||
|
DATE/Optiuni_LOCAL.dbf
|
||||||
|
DATE/Optiuni_LOCAL.fpt
|
||||||
|
DATE/Optiuni_PROGRAM.dbf
|
||||||
|
DATE/Optiuni_PROGRAM.fpt
|
||||||
|
Help/helpcont.dbf
|
||||||
|
Help/helpcont.FPT
|
||||||
|
Help/HELPLEG.DBF
|
||||||
|
Help/HELPLEG.FPT
|
||||||
|
Help/helpmenu.dbf
|
||||||
|
Help/helpmenu.FPT
|
||||||
|
Locale/locale.dbf
|
||||||
|
Locale/locale.FPT
|
||||||
|
Locale/Locale_back.DBF
|
||||||
|
Locale/Locale_back.FPT
|
||||||
|
Locale/locale_lang.dbf
|
||||||
|
Locale/locale_lang.FPT
|
||||||
|
Locale/locale_source.DBF
|
||||||
|
Locale/locale_source.FPT
|
||||||
|
Locale/locale_xref.DBF
|
||||||
|
|
||||||
|
# --- Fisiere generate/compilate Visual FoxPro ---
|
||||||
|
*.fxp
|
||||||
|
*.FXP
|
||||||
|
*.mpr
|
||||||
|
*.MPR
|
||||||
|
*.mpx
|
||||||
|
*.MPX
|
||||||
|
*.vcr
|
||||||
|
*.VCR
|
||||||
|
*.src
|
||||||
|
|
||||||
|
# --- Backup-uri si fisiere temporare create de editorul VFP ---
|
||||||
|
*.bak
|
||||||
|
*.BAK
|
||||||
|
*.tmp
|
||||||
|
*.TMP
|
||||||
|
*.err
|
||||||
|
*.ERR
|
||||||
|
*.Stats
|
||||||
|
*.stackdump
|
||||||
|
|
||||||
|
# --- Stare locala / specifica masinii, nu proiectului ---
|
||||||
|
FOXUSER.DBF
|
||||||
|
FOXUSER.FPT
|
||||||
|
Date_ROACONT/
|
||||||
|
log.txt
|
||||||
|
LOG.txt
|
||||||
|
ROACONT.arm.lnk
|
||||||
|
ROACONT.ini
|
||||||
|
roacont.exe
|
||||||
|
roacont.exe.PreARM
|
||||||
|
roacont_ref.CDX
|
||||||
|
roacont_ref.DBF
|
||||||
|
roacont_ref.FPT
|
||||||
|
|
||||||
|
# --- Subversion (working copy paralela) ---
|
||||||
|
.svn/
|
||||||
|
|
||||||
|
# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) ---
|
||||||
|
COMUN/
|
||||||
BIN
Alte/Extras_de_cont_11634808EXCEL.xls
Normal file
BIN
Alte/Extras_de_cont_11634808EXCEL.xls
Normal file
Binary file not shown.
42
Alte/Extras_de_cont_11634808MT 940.txt
Normal file
42
Alte/Extras_de_cont_11634808MT 940.txt
Normal file
@@ -0,0 +1,42 @@
|
|||||||
|
|
||||||
|
:20:44457020001
|
||||||
|
:25:RO57RZBR0000060011634808
|
||||||
|
:28C:213/1
|
||||||
|
:NS:22A.B.C.VAL SRL
|
||||||
|
23Cont curent CORPORATE RON
|
||||||
|
:60F:D171220RON2815046,47
|
||||||
|
:61:1712201220D82665,12NTRF32871258//3A9H3KUEDK5T72I
|
||||||
|
:86:000^20C/V F. 54^24Ref.Doc 1501/OPIB^30GE GARAN
|
||||||
|
TI BANK S.A.^31RO68UGBI0000442012404RON^32ADINA SI
|
||||||
|
CAMI UNIVERS SRL
|
||||||
|
:61:1712201220D13,74NCOMNONREF//3A9H3KUEDK5T72S
|
||||||
|
:86:000^20Comision OPIB Interbancar
|
||||||
|
:61:1712201220D173,74NTRFRO 13838336//3A9H3KUEDK5T732
|
||||||
|
:86:000^20CV.FACT 3829503 SI 3889431^24Ref.Doc 150
|
||||||
|
2/OPMC^30RAIFFEISEN BANK S.A.^31RO50RZBR0000060005
|
||||||
|
285217^32SC FAN COURIER EXPRESS SRL
|
||||||
|
:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T73C
|
||||||
|
:86:000^20Comision MC intrabancar
|
||||||
|
:61:1712201220D3141,04NTRFNONREF//3A9H3KUEDK5T73M
|
||||||
|
:86:000^20Tranzactie instrument debit^24BO/RZBR3AE
|
||||||
|
0497677^30PIRAEUS BANK ROMANIA S.A.^31RO09PIRB1801
|
||||||
|
733066002000^32DYNAMIC SELLING GROUP SRL
|
||||||
|
:61:1712201220D8,00NCOMNONREF//3A9H3KUEDK5T73W
|
||||||
|
:86:000^20Comision plata BO/RZBR3AE/0^21497677
|
||||||
|
:61:1712201220D21600,00NTRF2711022131264//3A9H3KUEDK5T746
|
||||||
|
:86:000^20plata salarii noiembrie/mel^21enc^32mele
|
||||||
|
ndu diana florentina
|
||||||
|
:61:1712201220D162,00NCOMNONREF//3A9H3KUEDK5T747
|
||||||
|
:86:000^20Com retragereIMM lei
|
||||||
|
:61:1712201220D7300,00NTRFNONREF//3A9H3KUEDK5T74G
|
||||||
|
:86:000^20transfer suma^24Ref.Doc 1503/OPIB^30RAIF
|
||||||
|
FEISEN BANK S.A.^31RO53RZBR0000060019503132^32A.B.
|
||||||
|
C.VAL SRL
|
||||||
|
:61:1712201220D197,54NTRFRO 13838336//3A9H3KUEDK5T74Q
|
||||||
|
:86:000^20CV.F. 3859683^24Ref.Doc 1504/OPMC^30RAI
|
||||||
|
FFEISEN BANK S.A.^31RO50RZBR0000060005285217^32SC
|
||||||
|
FAN COURIER EXPRESS SRL
|
||||||
|
:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T750
|
||||||
|
:86:000^20Comision MC intrabancar
|
||||||
|
:62F:D171220RON2930309,65
|
||||||
|
:64:D171220RON2930309,65
|
||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx
Normal file
BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx
Normal file
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
BIN
Alte/SmartBill2ROA/SmartBill2ROA.exe
Normal file
BIN
Alte/SmartBill2ROA/SmartBill2ROA.exe
Normal file
Binary file not shown.
92
Alte/SmartBill2ROA/SmartBill2ROA.pj2
Normal file
92
Alte/SmartBill2ROA/SmartBill2ROA.pj2
Normal file
@@ -0,0 +1,92 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="smartbill2roa.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
LPARAMETERS tcDir
|
||||||
|
|
||||||
|
lcCurdir = SYS(5)+CURDIR()
|
||||||
|
CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) )
|
||||||
|
|
||||||
|
*<DevInfo>
|
||||||
|
_Author = ""
|
||||||
|
_Company = ""
|
||||||
|
_Address = ""
|
||||||
|
_City = ""
|
||||||
|
_State = ""
|
||||||
|
_PostalCode = ""
|
||||||
|
_Country = ""
|
||||||
|
*--
|
||||||
|
_Comments = ""
|
||||||
|
_CompanyName = " "
|
||||||
|
_FileDescription = " "
|
||||||
|
_LegalCopyright = ""
|
||||||
|
_LegalTrademark = ""
|
||||||
|
_ProductName = " "
|
||||||
|
_MajorVer = "1"
|
||||||
|
_MinorVer = "0"
|
||||||
|
_Revision = "10"
|
||||||
|
_LanguageID = ""
|
||||||
|
_AutoIncrement = "0"
|
||||||
|
*</DevInfo>
|
||||||
|
|
||||||
|
|
||||||
|
*<BuildProj>
|
||||||
|
*<.HomeDir = 'd:\roa\roacont\alte\smartbill2roa' />
|
||||||
|
|
||||||
|
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
||||||
|
loProject.Close()
|
||||||
|
ENDFOR
|
||||||
|
|
||||||
|
STRTOFILE( '', '__newproject.f2b' )
|
||||||
|
BUILD PROJECT SmartBill2ROA.pjx FROM '__newproject.f2b'
|
||||||
|
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
||||||
|
loProject.Close()
|
||||||
|
ENDFOR
|
||||||
|
|
||||||
|
MODIFY PROJECT 'SmartBill2ROA.pjx' NOWAIT NOSHOW NOPROJECTHOOK
|
||||||
|
|
||||||
|
loProject = _VFP.Projects('SmartBill2ROA.pjx')
|
||||||
|
|
||||||
|
WITH loProject.FILES
|
||||||
|
.ADD('..\..\comun\programe\regex.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
|
.ADD('..\..\comun\utile\excel\appendxlsx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
|
.ADD('..\..\comun\utile\excel\importfromxlsx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
|
.ADD('import_facturi.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
|
.ADD('vfpxworkbookxlsx.h') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||||
|
.ADD('vfpxworkbookxlsx.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
|
*</BuildProj>
|
||||||
|
|
||||||
|
.ITEM('__newproject.f2b').Remove()
|
||||||
|
|
||||||
|
*<FileComments>
|
||||||
|
*</FileComments>
|
||||||
|
|
||||||
|
*<ExcludedFiles>
|
||||||
|
*</ExcludedFiles>
|
||||||
|
|
||||||
|
*<TextFiles>
|
||||||
|
.ITEM("vfpxworkbookxlsx.h").Type = 'T'
|
||||||
|
*</TextFiles>
|
||||||
|
ENDWITH
|
||||||
|
|
||||||
|
WITH loProject
|
||||||
|
*<ProjectProperties>
|
||||||
|
.SetMain("import_facturi.prg")
|
||||||
|
|
||||||
|
.Debug = .T.
|
||||||
|
.Encrypted = .F.
|
||||||
|
*<.CmntStyle = 1 />
|
||||||
|
*<.NoLogo = .F. />
|
||||||
|
*<.SaveCode = .T. />
|
||||||
|
*<.User = '' />
|
||||||
|
.ProjectHookLibrary = ''
|
||||||
|
.ProjectHookClass = ''
|
||||||
|
*</ProjectProperties>
|
||||||
|
ENDWITH
|
||||||
|
|
||||||
|
|
||||||
|
_VFP.Projects('SmartBill2ROA.pjx').Close()
|
||||||
|
*ERASE '__newproject.f2b'
|
||||||
|
CD (lcCurdir)
|
||||||
|
RETURN
|
||||||
296
Alte/SmartBill2ROA/VFPxWorkbookXLSX.h
Normal file
296
Alte/SmartBill2ROA/VFPxWorkbookXLSX.h
Normal file
@@ -0,0 +1,296 @@
|
|||||||
|
#DEFINE CR CHR(13)
|
||||||
|
#DEFINE LF CHR(10)
|
||||||
|
#DEFINE CRLF CR+LF
|
||||||
|
#DEFINE TAB CHR(9)
|
||||||
|
#DEFINE False .F.
|
||||||
|
#DEFINE True .T.
|
||||||
|
#DEFINE FOF_SILENT 4
|
||||||
|
|
||||||
|
#DEFINE LIMITS_MAX_CELL_CHARS 32767
|
||||||
|
#DEFINE LIMITS_MAX_COLUMNS 16384
|
||||||
|
#DEFINE LIMITS_MAX_ROWS 1048576
|
||||||
|
#DEFINE LIMITS_MAX_ROW_HEIGHT 409
|
||||||
|
#DEFINE LIMITS_MAX_COLUMN_WIDTH 255
|
||||||
|
#DEFINE LIMITS_MAX_HDR_FTR_CHARS 255
|
||||||
|
#DEFINE LIMITS_MAX_CELL_FORMATS 200
|
||||||
|
#DEFINE LIMITS_MAX_FILL_STYLES 256
|
||||||
|
#DEFINE LIMITS_MAX_LINE_STYLES 256
|
||||||
|
#DEFINE LIMITS_MAX_FONTS 512
|
||||||
|
#DEFINE LIMITS_MAX_FORMULA_LENGTH 8192
|
||||||
|
#DEFINE LIMITS_MAX_SH_NAME 30
|
||||||
|
|
||||||
|
#DEFINE INSERT_BEFORE "BEFORE"
|
||||||
|
#DEFINE INSERT_AFTER "AFTER"
|
||||||
|
#DEFINE INSERT_RIGHT "RIGHT"
|
||||||
|
#DEFINE INSERT_LEFT "LEFT"
|
||||||
|
|
||||||
|
#DEFINE START_NUMERIC_FORMAT_ID 165
|
||||||
|
|
||||||
|
#DEFINE SCOPE_WB_NAMED_RANGE 0 && Scope of named range - workbook
|
||||||
|
#DEFINE SCOPE_SH_NAMED_RANGE 1 && Scope of named range - limited to sheet
|
||||||
|
|
||||||
|
#DEFINE VISIBLE_SHEET_STATE 0 && visible (default)
|
||||||
|
#DEFINE HIDDEN_SHEET_STATE 1 && hidden
|
||||||
|
#DEFINE VERYHIDDEN_SHEET_STATE 2 && veryHidden
|
||||||
|
|
||||||
|
#DEFINE NONE_VALID_TYPE 1 && none
|
||||||
|
#DEFINE WHOLE_VALID_TYPE 2 && whole
|
||||||
|
#DEFINE DECIMAL_VALID_TYPE 3 && decimal
|
||||||
|
#DEFINE LIST_VALID_TYPE 4 && list
|
||||||
|
#DEFINE DATE_VALID_TYPE 5 && date
|
||||||
|
#DEFINE TIME_VALID_TYPE 6 && time
|
||||||
|
#DEFINE TXTLEN_VALID_TYPE 7 && textLength
|
||||||
|
#DEFINE CUSTOM_VALID_TYPE 8 && custom
|
||||||
|
|
||||||
|
#DEFINE STOP_VALID_STYLE 1 && stop
|
||||||
|
#DEFINE WARN_VALID_STYLE 2 && warning
|
||||||
|
#DEFINE INFO_VALID_STYLE 3 && information
|
||||||
|
|
||||||
|
#DEFINE BETWEEN_VALID_OPER 1 && between
|
||||||
|
#DEFINE NOTBETW_VALID_OPER 2 && notBetween
|
||||||
|
#DEFINE EQUAL_VALID_OPER 3 && equal
|
||||||
|
#DEFINE NOTEQUAL_VALID_OPER 4 && notEqual
|
||||||
|
#DEFINE LESSTHAN_VALID_OPER 5 && lessThan
|
||||||
|
#DEFINE LESSOREQUAL_VALID_OPER 6 && lessThanOrEqual
|
||||||
|
#DEFINE GREATTHAN_VALID_OPER 7 && greaterThan
|
||||||
|
#DEFINE GREATOREQUAL_VALID_OPER 8 && greaterThanOrEqual
|
||||||
|
|
||||||
|
#DEFINE PORTRAIT_PRINT_ORIENTATION 1
|
||||||
|
#DEFINE LANDSCAPE_PRINT_ORIENTATION 2
|
||||||
|
|
||||||
|
#DEFINE PAPERSIZE_LTR 1 && Letter paper (8.5 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_LTR_SMALL 2 && Letter small paper (8.5 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_TABLOID 3 && Tabloid paper (11 in. BY 17 in.)
|
||||||
|
#DEFINE PAPERSIZE_LEDGER 4 && Ledger paper (17 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_LEGAL 5 && Legal paper (8.5 in. BY 14 in.)
|
||||||
|
#DEFINE PAPERSIZE_STATEMENT 6 && Statement paper (5.5 in. BY 8.5 in.)
|
||||||
|
#DEFINE PAPERSIZE_EXECUTIVE 7 && Executive paper (7.25 in. BY 10.5 in.)
|
||||||
|
#DEFINE PAPERSIZE_A3 8 && A3 paper (297 mm BY 420 mm)
|
||||||
|
#DEFINE PAPERSIZE_A4 9 && A4 paper (210 mm BY 297 mm)
|
||||||
|
#DEFINE PAPERSIZE_A4_SMALL 10 && A4 small paper (210 mm BY 297 mm)
|
||||||
|
#DEFINE PAPERSIZE_A5 11 && A5 paper (148 mm BY 210 mm)
|
||||||
|
#DEFINE PAPERSIZE_B4 12 && B4 paper (250 mm BY 353 mm)
|
||||||
|
#DEFINE PAPERSIZE_B5 13 && B5 paper (176 mm BY 250 mm)
|
||||||
|
#DEFINE PAPERSIZE_FOLIO 14 && Folio paper (8.5 in. BY 13 in.)
|
||||||
|
#DEFINE PAPERSIZE_QUARTO 15 && Quarto paper (215 mm BY 275 mm)
|
||||||
|
#DEFINE PAPERSIZE_STD10X14 16 && Standard paper (10 in. BY 14 in.)
|
||||||
|
#DEFINE PAPERSIZE_STD11X17 17 && Standard paper (11 in. BY 17 in.)
|
||||||
|
#DEFINE PAPERSIZE_NOTE 18 && NOTE paper (8.5 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_9ENV 19 && #9 envelope (3.875 in. BY 8.875 in.)
|
||||||
|
#DEFINE PAPERSIZE_10ENV 20 && #10 envelope (4.125 in. BY 9.5 in.)
|
||||||
|
#DEFINE PAPERSIZE_11ENV 21 && #11 envelope (4.5 in. BY 10.375 in.)
|
||||||
|
#DEFINE PAPERSIZE_12ENV 22 && #12 envelope (4.75 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_14ENV 23 && #14 envelope (5 in. BY 11.5 in.)
|
||||||
|
#DEFINE PAPERSIZE_C 24 && C paper (17 in. BY 22 in.)
|
||||||
|
#DEFINE PAPERSIZE_D 25 && D paper (22 in. BY 34 in.)
|
||||||
|
#DEFINE PAPERSIZE_E 26 && E paper (34 in. BY 44 in.)
|
||||||
|
#DEFINE PAPERSIZE_DL_ENV 27 && DL envelope (110 mm BY 220 mm)
|
||||||
|
#DEFINE PAPERSIZE_C5_ENV 28 && C5 envelope (162 mm BY 229 mm)
|
||||||
|
#DEFINE PAPERSIZE_C3_ENV 29 && C3 envelope (324 mm BY 458 mm)
|
||||||
|
#DEFINE PAPERSIZE_C4_ENV 30 && C4 envelope (229 mm BY 324 mm)
|
||||||
|
#DEFINE PAPERSIZE_C6_ENV 31 && C6 envelope (114 mm BY 162 mm)
|
||||||
|
#DEFINE PAPERSIZE_C65_ENV 32 && C65 envelope (114 mm BY 229 mm)
|
||||||
|
#DEFINE PAPERSIZE_B4_ENV 33 && B4 envelope (250 mm BY 353 mm)
|
||||||
|
#DEFINE PAPERSIZE_B5_ENV 34 && B5 envelope (176 mm BY 250 mm)
|
||||||
|
#DEFINE PAPERSIZE_B6_ENV 35 && B6 envelope (176 mm BY 125 mm)
|
||||||
|
#DEFINE PAPERSIZE_ITALY_ENV 36 && Italy envelope (110 mm BY 230 mm)
|
||||||
|
#DEFINE PAPERSIZE_MONARCH_ENV 37 && Monarch envelope (3.875 in. BY 7.5 in.).
|
||||||
|
#DEFINE PAPERSIZE_6_3_4_ENV 38 && 6 3/4 envelope (3.625 in. BY 6.5 in.)
|
||||||
|
#DEFINE PAPERSIZE_US_STD_FANFOLD 39 && US standard fanfold (14.875 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_GERMAN_STD_FANFOLD 40 && German standard fanfold (8.5 in. BY 12 in.)
|
||||||
|
#DEFINE PAPERSIZE_GERMAN_LGL_FANFOLD 41 && German legal fanfold (8.5 in. BY 13 in.)
|
||||||
|
#DEFINE PAPERSIZE_ISO_B4 42 && ISO B4 (250 mm BY 353 mm)
|
||||||
|
#DEFINE PAPERSIZE_JPN_DBL_POSTCARD 43 && JPN DOUBLE postcard (200 mm BY 148 mm)
|
||||||
|
#DEFINE PAPERSIZE_STD_PAPER9X11 44 && Standard paper (9 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_STD_PAPER10X11 45 && Standard paper (10 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_STD_PAPER15X11 46 && Standard paper (15 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_INVITE_ENV 47 && Invite envelope (220 mm BY 220 mm)
|
||||||
|
#DEFINE PAPERSIZE_LTR_XTRA_PAPER 50 && Letter extra paper (9.275 in. BY 12 in.)
|
||||||
|
#DEFINE PAPERSIZE_LEGAL_XTRA_PAPER 51 && Legal extra paper (9.275 in. BY 15 in.)
|
||||||
|
#DEFINE PAPERSIZE_TABLOID_XTRA_PAPER 52 && Tabloid extra paper (11.69 in. BY 18 in.)
|
||||||
|
#DEFINE PAPERSIZE_A4_XTRA_PAPER 53 && A4 extra paper (236 mm BY 322 mm)
|
||||||
|
#DEFINE PAPERSIZE_LTR_TRANSVERSE 54 && Letter transverse paper (8.275 in. BY 11 in.)
|
||||||
|
#DEFINE PAPERSIZE_A4_TRANSVERSE 55 && A4 transverse paper (210 mm BY 297 mm)
|
||||||
|
#DEFINE PAPERSIZE_LTR_XTRA_TRANSV 56 && Letter extra transverse paper (9.275 in. BY 12 in.)
|
||||||
|
#DEFINE PAPERSIZE_SUPERA_A4 57 && SuperA/SuperA/A4 paper (227 mm BY 356 mm)
|
||||||
|
#DEFINE PAPERSIZE_SUPERB_A3 58 && SuperB/SuperB/A3 paper (305 mm BY 487 mm)
|
||||||
|
#DEFINE PAPERSIZE_LTR_PLUS 59 && Letter plus paper (8.5 in. BY 12.69 in.)
|
||||||
|
#DEFINE PAPERSIZE_A4_PLUS 60 && A4 plus paper (210 mm BY 330 mm)
|
||||||
|
#DEFINE PAPERSIZE_A5_TRANSVERSE 61 && A5 transverse paper (148 mm BY 210 mm)
|
||||||
|
#DEFINE PAPERSIZE_JIS_B5_TRANSVERS 62 && JIS B5 transverse paper (182 mm BY 257 mm)
|
||||||
|
#DEFINE PAPERSIZE_A3_EXTRA 63 && A3 extra paper (322 mm BY 445 mm)
|
||||||
|
#DEFINE PAPERSIZE_A5_EXTRA 64 && A5 extra paper (174 mm BY 235 mm)
|
||||||
|
#DEFINE PAPERSIZE_ISO_B5_EXTRA 65 && ISO B5 extra paper (201 mm BY 276 mm)
|
||||||
|
#DEFINE PAPERSIZE_A2 66 && A2 paper (420 mm BY 594 mm)
|
||||||
|
#DEFINE PAPERSIZE_A3_TRANSVERSE 67 && A3 transverse paper (297 mm BY 420 mm)
|
||||||
|
#DEFINE PAPERSIZE_A3_EXTRA_TRANSVE 68 && A3 extra transverse paper (322 mm BY 445 mm)
|
||||||
|
#DEFINE PAPERSIZE_JPN_DOUBLE 69 && JPN DOUBLE Postcard (200 mm x 148 mm)
|
||||||
|
#DEFINE PAPERSIZE_A6 70 && A6 (105 mm x 148 mm)
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_KAKU1 71 && JPN Envelope Kaku #2
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_KAKU2 72 && JPN Envelope Kaku #3
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_CHOU3 73 && JPN Envelope Chou #3
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_CHOU4 74 && JPN Envelope Chou #4
|
||||||
|
#DEFINE PAPERSIZE_LTR_ROT 75 && Letter Rotated (11in x 8 1/2 11 IN)
|
||||||
|
#DEFINE PAPERSIZE_A3_ROT 76 && A3 Rotated (420 mm x 297 mm)
|
||||||
|
#DEFINE PAPERSIZE_A4_ROT 77 && A4 Rotated (297 mm x 210 mm)
|
||||||
|
#DEFINE PAPERSIZE_A5_ROT 78 && A5 Rotated (210 mm x 148 mm)
|
||||||
|
#DEFINE PAPERSIZE_B4_JIS_ROT 79 && B4 (JIS) Rotated (364 mm x 257 mm)
|
||||||
|
#DEFINE PAPERSIZE_B5_JIS_ROT 80 && B5 (JIS) Rotated (257 mm x 182 mm)
|
||||||
|
#DEFINE PAPERSIZE_JPN_POSTCARD 81 && JPN Postcard Rotated (148 mm x 100 mm)
|
||||||
|
#DEFINE PAPERSIZE_DOUBLE_JPN 82 && DOUBLE JPN Postcard Rotated (148 mm x 200 mm)
|
||||||
|
#DEFINE PAPERSIZE_A6_ROT 83 && A6 Rotated (148 mm x 105 mm)
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_KAKU2_ROT 84 && JPN Envelope Kaku #2 Rotated
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_KAKU3_ROT 85 && JPN Envelope Kaku #3 Rotated
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_CHOU3_ROT 86 && JPN Envelope Chou #3 Rotated
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_CHOU4_ROT 87 && JPN Envelope Chou #4 Rotated
|
||||||
|
#DEFINE PAPERSIZE_B6_JIS 88 && B6 (JIS) (128 mm x 182 mm)
|
||||||
|
#DEFINE PAPERSIZE_B6_JIS_ROT 89 && B6 (JIS) Rotated (182 mm x 128 mm)
|
||||||
|
#DEFINE PAPERSIZE_12X11 90 && (12 IN x 11 IN)
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_YOU4 91 && JPN Envelope You #4
|
||||||
|
#DEFINE PAPERSIZE_JPN_ENV_YOU4_ROT 92 && JPN Envelope You #4 Rotated
|
||||||
|
#DEFINE PAPERSIZE_PRC_16K 93 && PRC 16K (146 mm x 215 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_32K 94 && PRC 32K (97 mm x 151 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_32K_BIG 95 && PRC 32K(Big) (97 mm x 151 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_1 96 && PRC Envelope #1 (102 mm x 165 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_2 97 && PRC Envelope #2 (102 mm x 176 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_3 98 && PRC Envelope #3 (125 mm x 176 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_4 99 && PRC Envelope #4 (110 mm x 208 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_5 100 && PRC Envelope #5 (110 mm x 220 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_6 101 && PRC Envelope #6 (120 mm x 230 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_7 102 && PRC Envelope #7 (160 mm x 230 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_8 103 && PRC Envelope #8 (120 mm x 309 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_9 104 && PRC Envelope #9 (229 mm x 324 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_10 105 && PRC Envelope #10 (324 mm x 458 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_16K_ROT 106 && PRC 16K Rotated
|
||||||
|
#DEFINE PAPERSIZE_PRC_32K_ROT 107 && PRC 32K Rotated
|
||||||
|
#DEFINE PAPERSIZE_PRC_32K_BIG_ROT 108 && PRC 32K(Big) Rotated
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_1_ROT 109 && PRC Envelope #1 Rotated (165 mm x 102 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_2_ROT 110 && PRC Envelope #2 Rotated (176 mm x 102 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_3_ROT 111 && PRC Envelope #3 Rotated (176 mm x 125 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_4_ROT 112 && PRC Envelope #4 Rotated (208 mm x 110 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_5_ROT 113 && PRC Envelope #5 Rotated (220 mm x 110 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_6_ROT 114 && PRC Envelope #6 Rotated (230 mm x 120 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_7_ROT 115 && PRC Envelope #7 Rotated (230 mm x 160 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_8_ROT 116 && PRC Envelope #8 Rotated (309 mm x 120 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_9_ROT 117 && PRC Envelope #9 Rotated (324 mm x 229 mm)
|
||||||
|
#DEFINE PAPERSIZE_PRC_ENV_10_ROT 118 && PRC Envelope #10 Rotated (458 mm x 324 mm)
|
||||||
|
|
||||||
|
#DEFINE HEADERFOOTER_SECT_HDR_LEFT 1
|
||||||
|
#DEFINE HEADERFOOTER_SECT_HDR_CENTER 2
|
||||||
|
#DEFINE HEADERFOOTER_SECT_HDR_RIGHT 3
|
||||||
|
#DEFINE HEADERFOOTER_SECT_FTR_LEFT 4
|
||||||
|
#DEFINE HEADERFOOTER_SECT_FTR_CENTER 5
|
||||||
|
#DEFINE HEADERFOOTER_SECT_FTR_RIGHT 6
|
||||||
|
#DEFINE HEADERFOOTER_FONT_STYLE_NORMAL 0
|
||||||
|
#DEFINE HEADERFOOTER_FONT_STYLE_BOLD 1
|
||||||
|
#DEFINE HEADERFOOTER_FONT_STYLE_ITALIC 2
|
||||||
|
#DEFINE HEADERFOOTER_FONT_STYLE_BOLDITALIC 3
|
||||||
|
#DEFINE HEADERFOOTER_FIRST_PAGE 0
|
||||||
|
#DEFINE HEADERFOOTER_ODD_PAGE 1
|
||||||
|
#DEFINE HEADERFOOTER_EVEN_PAGE 2
|
||||||
|
#DEFINE HEADERFOOTER_SAME_PAGE 3
|
||||||
|
|
||||||
|
#DEFINE DATA_TYPE_NONE "X"
|
||||||
|
#DEFINE DATA_TYPE_DATE "D"
|
||||||
|
#DEFINE DATA_TYPE_DATETIME "T"
|
||||||
|
#DEFINE DATA_TYPE_CHAR "C"
|
||||||
|
#DEFINE DATA_TYPE_INT "I"
|
||||||
|
#DEFINE DATA_TYPE_FLOAT "N"
|
||||||
|
#DEFINE DATA_TYPE_CURRENCY "Y"
|
||||||
|
#DEFINE DATA_TYPE_GENERAL "G"
|
||||||
|
#DEFINE DATA_TYPE_FORMULA "F"
|
||||||
|
#DEFINE DATA_TYPE_TIME "M"
|
||||||
|
#DEFINE DATA_TYPE_PERCENT "P"
|
||||||
|
#DEFINE DATA_TYPE_LOGICAL "L"
|
||||||
|
|
||||||
|
#DEFINE FIELD_TYPE_DATE "D"
|
||||||
|
#DEFINE FIELD_TYPE_DATETIME "T"
|
||||||
|
#DEFINE FIELD_TYPE_CHAR "C"
|
||||||
|
#DEFINE FIELD_TYPE_INT "I"
|
||||||
|
#DEFINE FIELD_TYPE_FLOAT "F"
|
||||||
|
#DEFINE FIELD_TYPE_CURRENCY "Y"
|
||||||
|
#DEFINE FIELD_TYPE_LOGICAL "L"
|
||||||
|
#DEFINE FIELD_TYPE_DOUBLE "B"
|
||||||
|
#DEFINE FIELD_TYPE_MEMO "M"
|
||||||
|
#DEFINE FIELD_TYPE_NUMERIC "N"
|
||||||
|
|
||||||
|
#DEFINE BORDER_LEFT 1
|
||||||
|
#DEFINE BORDER_RIGHT 2
|
||||||
|
#DEFINE BORDER_TOP 4
|
||||||
|
#DEFINE BORDER_BOTTOM 8
|
||||||
|
#DEFINE BORDER_DIAGDOWN 16
|
||||||
|
#DEFINE BORDER_DIAGUP 32
|
||||||
|
|
||||||
|
#DEFINE BORDER_STYLE_NONE "none"
|
||||||
|
#DEFINE BORDER_STYLE_THIN "thin"
|
||||||
|
#DEFINE BORDER_STYLE_HAIR "hair"
|
||||||
|
#DEFINE BORDER_STYLE_DOTTED "dotted"
|
||||||
|
#DEFINE BORDER_STYLE_DASHDOTDOT "dashDotDot"
|
||||||
|
#DEFINE BORDER_STYLE_DASHDOT "dashDot"
|
||||||
|
#DEFINE BORDER_STYLE_DASHED "dashed"
|
||||||
|
#DEFINE BORDER_STYLE_MEDIUMDASHDOTDOT "mediumDashDotDot"
|
||||||
|
#DEFINE BORDER_STYLE_SLANTDASHDOT "slantDashDot"
|
||||||
|
#DEFINE BORDER_STYLE_MEDIUMDASHDOT "mediumDashDot"
|
||||||
|
#DEFINE BORDER_STYLE_MEDIUMDASHED "mediumDashed"
|
||||||
|
#DEFINE BORDER_STYLE_MEDIUM "medium"
|
||||||
|
#DEFINE BORDER_STYLE_THICK "thick"
|
||||||
|
#DEFINE BORDER_STYLE_DOUBLE "double"
|
||||||
|
|
||||||
|
#DEFINE FILL_STYLE_NONE "none"
|
||||||
|
#DEFINE FILL_STYLE_SOLID "solid"
|
||||||
|
#DEFINE FILL_STYLE_GRAY125 "gray125"
|
||||||
|
|
||||||
|
#DEFINE CELL_HORIZ_ALIGN_LEFT "left"
|
||||||
|
#DEFINE CELL_HORIZ_ALIGN_RIGHT "right"
|
||||||
|
#DEFINE CELL_HORIZ_ALIGN_CENTER "center"
|
||||||
|
#DEFINE CELL_VERT_ALIGN_TOP "top"
|
||||||
|
#DEFINE CELL_VERT_ALIGN_BOTTOM "bottom"
|
||||||
|
#DEFINE CELL_VERT_ALIGN_CENTER "center"
|
||||||
|
|
||||||
|
#DEFINE UNDERLINE_SINGLE "single"
|
||||||
|
#DEFINE UNDERLINE_DOUBLE "double"
|
||||||
|
#DEFINE UNDERLINE_SINGLEACCOUNTING "singleAccounting"
|
||||||
|
#DEFINE UNDERLINE_DOUBLEACCOUNTING "doubleAccounting"
|
||||||
|
#DEFINE UNDERLINE_NONE "none"
|
||||||
|
|
||||||
|
#DEFINE FONT_VERTICAL_BASELINE "baseline"
|
||||||
|
#DEFINE FONT_VERTICAL_SUBSCRIPT "subscript"
|
||||||
|
#DEFINE FONT_VERTICAL_SUPERSCRIPT "superscript"
|
||||||
|
|
||||||
|
#DEFINE CELL_FORMAT_INTEGER 1 && 0
|
||||||
|
#DEFINE CELL_FORMAT_FLOAT 2 && 0.00
|
||||||
|
#DEFINE CELL_FORMAT_COMMA_INTEGER 3 && #,##0
|
||||||
|
#DEFINE CELL_FORMAT_COMMA_FLOAT 4 && #,##0.00
|
||||||
|
#DEFINE CELL_FORMAT_CURRENCY_PAREN 7 && $#,##0.00;($#,##0.00)
|
||||||
|
#DEFINE CELL_FORMAT_CURRENCY_RED_PAREN 8 && $#,##0.00;[Red]($#,##0.00)
|
||||||
|
#DEFINE CELL_FORMAT_PERCENT_INTEGER 9 && ###%
|
||||||
|
#DEFINE CELL_FORMAT_PERCENT_FLOAT 10 && ###.00%
|
||||||
|
#DEFINE CELL_FORMAT_EXPONENT 11 && 0.00E+00
|
||||||
|
#DEFINE CELL_FORMAT_FRACTION_1 12 && # ?/?
|
||||||
|
#DEFINE CELL_FORMAT_FRACTION_2 13 && # ??/??
|
||||||
|
#DEFINE CELL_FORMAT_DATE_MMDDYY 14 && mm-dd-yy
|
||||||
|
#DEFINE CELL_FORMAT_DATE_DMMMYY 15 && d-mmm-yy
|
||||||
|
#DEFINE CELL_FORMAT_DATE_DMMM 16 && d-mmm
|
||||||
|
#DEFINE CELL_FORMAT_DATE_MMMYY 17 && mmm-yy
|
||||||
|
#DEFINE CELL_FORMAT_TIME_HMMAMPM 18 && h:mm AM/PM
|
||||||
|
#DEFINE CELL_FORMAT_TIME_HMMSSAMPM 19 && h:mm:ss AM/PM
|
||||||
|
#DEFINE CELL_FORMAT_TIME_HMM 20 && h:mm
|
||||||
|
#DEFINE CELL_FORMAT_TIME_HMMSS 21 && h:mm:ss
|
||||||
|
#DEFINE CELL_FORMAT_DATETIME_MDYYHMM 22 && m/d/yy h:mm
|
||||||
|
#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TTAM 29 && [$-409]dd/mmm/yyyy\ h:mm\ AM/PM;@
|
||||||
|
#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TT24 30 && dd/mmm/yyyy\ h:mm;@
|
||||||
|
#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TTAM 31 && [$-409]mmm\ d\,\ yyyy\ h:mm\ AM/PM;@
|
||||||
|
#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TT24 32 && [$-409]mmm\ d\,\ yyyy\ h:mm;@
|
||||||
|
#DEFINE CELL_FORMAT_DATETIME_MDYY_TTAM 33 && m/d/yy\ h:mm\ AM/PM;@
|
||||||
|
#DEFINE CELL_FORMAT_DATETIME_MDYY_TT24 34 && m/d/yy\ h:mm;@
|
||||||
|
#DEFINE CELL_FORMAT_COMMA_INTEGER_PAREN 37 && #,##0;(#,##0)
|
||||||
|
#DEFINE CELL_FORMAT_COMMA_INTEGER_RED_PAREN 38 && #,##0;[Red](#,##0)
|
||||||
|
#DEFINE CELL_FORMAT_COMMA_FLOAT_PAREN 39 && #,##0.00;(#,##0.00)
|
||||||
|
#DEFINE CELL_FORMAT_COMMA_FLOAT_RED_PAREN 40 && #,##0.00;[Red](#,##0.00)
|
||||||
|
#DEFINE CELL_FORMAT_TIME_MMSS 45 && mm:ss
|
||||||
|
#DEFINE CELL_FORMAT_TIME_H_MMSS 46 && [h]:mm:ss
|
||||||
|
#DEFINE CELL_FORMAT_CURRENCY_RED 901 && $#,##0.00;[Red]$#,##0.00
|
||||||
|
#DEFINE CELL_FORMAT_ACC_CURR_POUNDS 902 && Accounting British Pounds, <20>#,##0.00
|
||||||
|
#DEFINE CELL_FORMAT_ACC_CURR_EURO 903 && Accounting Euro, <20>#,##0.00
|
||||||
|
#DEFINE CELL_FORMAT_CURR_POUNDS_RED 904 && British Pounds, <20>#,##0.00 RED
|
||||||
|
#DEFINE CELL_FORMAT_CURR_EURO_RED 905 && Euro, <20>#,##0.00 RED
|
||||||
3
Alte/SmartBill2ROA/changelog_smartbill2roa.txt
Normal file
3
Alte/SmartBill2ROA/changelog_smartbill2roa.txt
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
15.05.2025
|
||||||
|
v 1.0.10
|
||||||
|
Se completeaza contul '708' pentru articolele care contin: 'curier', 'courier', 'transport'
|
||||||
1
Alte/SmartBill2ROA/citeste.txt
Normal file
1
Alte/SmartBill2ROA/citeste.txt
Normal file
@@ -0,0 +1 @@
|
|||||||
|
Creeaza fisierul facturi_roa.xlsx din export SmartBill facturi in format saga si facturi excel, pentru import in ROACONT
|
||||||
306
Alte/SmartBill2ROA/import_facturi.prg
Normal file
306
Alte/SmartBill2ROA/import_facturi.prg
Normal file
@@ -0,0 +1,306 @@
|
|||||||
|
*!* 11.12.2018
|
||||||
|
*!* am folosit o schema XSD la importul din xml facturi saga
|
||||||
|
|
||||||
|
Set Century On
|
||||||
|
Set Ansi On
|
||||||
|
Set Exact On
|
||||||
|
Set Deleted On
|
||||||
|
Set Date Dmy
|
||||||
|
Set Safety Off
|
||||||
|
Set Exclusive Off
|
||||||
|
Close Databases All
|
||||||
|
Set Default To Justpath(Sys(16,0))
|
||||||
|
SET PATH TO 'd:\roa\roacont\comun\programe;' + ;
|
||||||
|
'd:\roa\roacont\comun\utile\excel;' ADDITIVE
|
||||||
|
|
||||||
|
SET PROCEDURE TO regex.prg ADDITIVE
|
||||||
|
Set Procedure To importfromxlsx.prg Additive
|
||||||
|
Set Classlib To vfpxworkbookxlsx.vcx Additive
|
||||||
|
|
||||||
|
_Screen.Caption = "SmartBill2ROA"
|
||||||
|
|
||||||
|
Messagebox('Pentru import din SmartBill sunt necesare fisierele: ' + Chr(13) + Chr(10) + ;
|
||||||
|
'1. facturi export saga (format xml) ex: F_CUI_multiple_zz.ll.aaaa.xml' + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ;
|
||||||
|
'2. facturi export format xlsx ex: Facturi_zz_ll_aaaa.xlsx' + Chr(13) + Chr(10) + ;
|
||||||
|
'* Primul rand din fisierul xlsx trebuie sa fie completat cu denumirile coloanelor',0+64,_Screen.Caption)
|
||||||
|
|
||||||
|
|
||||||
|
*****************************************************************
|
||||||
|
* xml saga - nu are judet/localitate pentru clienti
|
||||||
|
lcFileFacturi = Getfile("xml","Facturi SAGA","Alege", 0, "Alege fisierul xml cu exportul de facturi in format SAGA") && "E:\pass\F_RO16148853_multiple_01.08.2018.xml"
|
||||||
|
If Empty(m.lcFileFacturi)
|
||||||
|
Return
|
||||||
|
Endif
|
||||||
|
If Lower(Justext(m.lcFileFacturi)) <> 'xml'
|
||||||
|
Messagebox('Fisierul trebuie sa fie de tip xml!',0+48,_Screen.Caption)
|
||||||
|
Return
|
||||||
|
Endif
|
||||||
|
|
||||||
|
lcFileFacturiXlsx = Getfile("xlsx","Facturi excel","Alege", 0, "Alege fisierul xlsx cu exportul de facturi in format excel") && 'e:\pass\Facturi_12_09_2018.xlsx'
|
||||||
|
If Empty(m.lcFileFacturiXlsx)
|
||||||
|
Return
|
||||||
|
Endif
|
||||||
|
If Lower(Justext(m.lcFileFacturiXlsx)) <> 'xlsx'
|
||||||
|
Messagebox('Fisierul trebuie sa fie de tip xlsx!',0+48,_Screen.Caption)
|
||||||
|
Return
|
||||||
|
Endif
|
||||||
|
*****************************************************************
|
||||||
|
|
||||||
|
*!* lcFileClienti = 'e:\pass\cli_11_09_2018.xml'
|
||||||
|
lcText = Filetostr(m.lcFileFacturi)
|
||||||
|
|
||||||
|
* ANTETE
|
||||||
|
lcAntete = ""
|
||||||
|
lnAntete = Occurs("<antet>", Lower(m.lcText))
|
||||||
|
For m.lnAntet = 1 To m.lnAntete
|
||||||
|
lcAntet = Strextract(m.lcText, "<antet>", "</antet>", lnAntet,1+4)
|
||||||
|
lcAntete = m.lcAntete + lcAntet + Chr(13) + Chr(10)
|
||||||
|
Endfor
|
||||||
|
|
||||||
|
lcAntete = "<vfpdata>" + m.lcAntete + "</vfpdata>"
|
||||||
|
|
||||||
|
Xmltocursor(m.lcAntete,"cAntetTemp")
|
||||||
|
Select Cast(0 As I) As nAntet, * From cAntetTemp Into Cursor cAntet Readwrite
|
||||||
|
Use In (Select('cAntetTemp'))
|
||||||
|
Replace All nAntet With Recno() In cAntet
|
||||||
|
|
||||||
|
|
||||||
|
***********
|
||||||
|
* Detalii
|
||||||
|
create cursor cDetalii ;
|
||||||
|
(NANTET I, ;
|
||||||
|
CANTITATE N(10,3), ;
|
||||||
|
CODARTICOLCLIENT C(20), ;
|
||||||
|
CODARTICOLFURNIZOR C(20), ;
|
||||||
|
CODBARE C(20), ;
|
||||||
|
DESCRIERE C(100), ;
|
||||||
|
GESTIUNE C(20), ;
|
||||||
|
INFORMATIISUPLIMENTARE C(100), ;
|
||||||
|
LINIENRCRT I, ;
|
||||||
|
PRET N(20,4), ;
|
||||||
|
PROCTVA N(5,2), ;
|
||||||
|
UM C(10), ;
|
||||||
|
VALOARE N(20,4), ;
|
||||||
|
TVA N(20,4))
|
||||||
|
|
||||||
|
TEXT TO lcXSD NOSHOW
|
||||||
|
<xsd:schema id="VFPData" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="VFPData" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="cdetalii" minOccurs="0" maxOccurs="unbounded">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="cantitate">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:decimal">
|
||||||
|
<xsd:totalDigits value="9"/>
|
||||||
|
<xsd:fractionDigits value="3"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="codarticolclient">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:string">
|
||||||
|
<xsd:maxLength value="20"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="codarticolfurnizor">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:string">
|
||||||
|
<xsd:maxLength value="20"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="codbare">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:string">
|
||||||
|
<xsd:maxLength value="20"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="descriere">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:string">
|
||||||
|
<xsd:maxLength value="100"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="gestiune">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:string">
|
||||||
|
<xsd:maxLength value="20"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="informatiisuplimentare">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:string">
|
||||||
|
<xsd:maxLength value="100"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="linienrcrt" type="xsd:int"/>
|
||||||
|
<xsd:element name="pret">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:decimal">
|
||||||
|
<xsd:totalDigits value="19"/>
|
||||||
|
<xsd:fractionDigits value="4"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="proctva">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:decimal">
|
||||||
|
<xsd:totalDigits value="4"/>
|
||||||
|
<xsd:fractionDigits value="2"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="um">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:string">
|
||||||
|
<xsd:maxLength value="10"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="valoare">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:decimal">
|
||||||
|
<xsd:totalDigits value="19"/>
|
||||||
|
<xsd:fractionDigits value="4"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="tva">
|
||||||
|
<xsd:simpleType>
|
||||||
|
<xsd:restriction base="xsd:decimal">
|
||||||
|
<xsd:totalDigits value="19"/>
|
||||||
|
<xsd:fractionDigits value="4"/>
|
||||||
|
</xsd:restriction>
|
||||||
|
</xsd:simpleType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:sequence>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
<xsd:anyAttribute namespace="http://www.w3.org/XML/1998/namespace" processContents="lax"/>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
ENDTEXT
|
||||||
|
|
||||||
|
lcDetalii = ""
|
||||||
|
lnDetalii = Occurs("<continut>", Lower(m.lcText))
|
||||||
|
For m.lnDetaliu = 1 To m.lnDetalii
|
||||||
|
lcDetaliu = Strextract(m.lcText, "<continut>", "</continut>", lnDetaliu,1+4)
|
||||||
|
lcDetaliu = STRTRAN(m.lcDetaliu, "<continut>", "<continut>" + CHR(13) + CHR(10) + m.lcXSD + CHR(13) + CHR(10),1,1,1) && adaug schema XSD
|
||||||
|
lcDetaliu = STRTRAN(m.lcDetaliu, "</continut>", "</continut>",1,1,1) && modific tag-ul de sfarsit tot cu litere mici
|
||||||
|
Xmltocursor(m.lcDetaliu,"cDetaliu")
|
||||||
|
Select m.lnDetaliu As nAntet, * From cDetaliu Into Cursor cDetaliiTemp Readwrite
|
||||||
|
Select cDetalii
|
||||||
|
Append From Dbf('cDetaliiTemp')
|
||||||
|
|
||||||
|
Use In (Select("cDetaliu"))
|
||||||
|
Use In (Select("cDetaliiTemp"))
|
||||||
|
|
||||||
|
Endfor
|
||||||
|
|
||||||
|
Select Padr(Upper(Alltrim(a.clientadresa)), 250, ' ') As adresa, a.clientbanca As banca, Padr(Strtran(Upper(a.clientcif), '-', ''), 20, ' ') As cod_fiscal, a.clientiban As cont_banca, a.clientnrregcom As reg_com, Upper(a.clientnume) As denumire, Ctod(a.facturadata) As dataact, a.facturanumar As nrfact, Ctod(a.facturascadenta) As datascad, ;
|
||||||
|
ROUND(b.cantitate,3) As cantitate, Upper(b.descriere) As articol, b.proctva as proctva, ;
|
||||||
|
ROUND(b.valoare,2) As valftva, ;
|
||||||
|
ROUND(b.tva,2) As valtva, ;
|
||||||
|
CAST(0 as N(20,2)) as valctva, ;
|
||||||
|
UPPER(a.facturatvaincasare) As tvaincasare, Upper(a.facturataxareinversa) As taxareinversa ;
|
||||||
|
From cAntet a Left Join cDetalii b On a.nAntet = b.nAntet ;
|
||||||
|
Into Cursor cFacturiSaga READWRITE
|
||||||
|
|
||||||
|
UPDATE cFacturiSaga SET valctva = valftva + valtva
|
||||||
|
|
||||||
|
Use In (Select('cAntet'))
|
||||||
|
Use In (Select('cDetalii'))
|
||||||
|
|
||||||
|
*********
|
||||||
|
* Clienti
|
||||||
|
* cod, denumire, cod_fiscal, reg_com, tara, judet, adresa, cont_banca, banca, tel, email, discount, informatii
|
||||||
|
* "cod","Elena Tomescu","-","reg_com","RO","B","Loc. Bucuresti,Calea Serban Voda nr 133 Corp A , etaj 1, receptie Provident, Cod Postal 40204", "cont_banca", "banca", "tel", "email", "discount", "informatii"
|
||||||
|
* Xmltocursor(m.lcFileClienti,'cClienti',512)
|
||||||
|
|
||||||
|
* Import first sheet
|
||||||
|
|
||||||
|
importfromxlsx(m.lcFileFacturiXlsx,2,'sheet 1',.T.,.T.,1,'facturitemp')
|
||||||
|
|
||||||
|
*!* * sunt fisiere doar cu (valoaretotala), altele cu (valoarefaratva, valoaretva, valoaretotala)
|
||||||
|
*!* IF TYPE('facturitemp.valoarefaratva') <> 'U'
|
||||||
|
*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ;
|
||||||
|
*!* Round(VAL(TRANSFORM(valoarefaratva)), 2) As valftva, ;
|
||||||
|
*!* Round(VAL(TRANSFORM(valoaretva)), 2) As valtva, ;
|
||||||
|
*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ;
|
||||||
|
*!* From facturitemp ;
|
||||||
|
*!* Into Cursor cFacturiXls
|
||||||
|
*!* ELSE
|
||||||
|
*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ;
|
||||||
|
*!* 0 As valftva, ;
|
||||||
|
*!* 0 As valtva, ;
|
||||||
|
*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ;
|
||||||
|
*!* From facturitemp ;
|
||||||
|
*!* Into Cursor cFacturiXls
|
||||||
|
*!* ENDIF
|
||||||
|
|
||||||
|
* Nu am nevoie de valori din fisierul facturitemp
|
||||||
|
Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, ;
|
||||||
|
Padr(Alltrim(factura), 50, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad ;
|
||||||
|
From facturitemp ;
|
||||||
|
Into Cursor cFacturiXls
|
||||||
|
|
||||||
|
Use In (Select('facturitemp'))
|
||||||
|
|
||||||
|
|
||||||
|
*!* lcFile = 'e:\pass\Vanzari_Produse_12_09_2018.xlsx'
|
||||||
|
*!* importfromxlsx(m.lcFile,2,'sheet 1',.T.,.T.,1,'vanzari')
|
||||||
|
|
||||||
|
*!* SELECT UPPER(produs) as articol, PADR(UPPER(client), 100, ' ') as denumire, PADR(STRTRAN(UPPER(cifclient), '-', ''), 20, ' ') as cod_fiscal, PADR(UPPER(ALLTRIM(judetclient)), 100, ' ') as judet, PADR(ALLTRIM(document), 20, ' ') as nrfact, CTOD(ALLTRIM(data)) as datafact, ROUND(valoarefaratva, 2) as valftva, ROUND(valoarecutva,2)-ROUND(valoarefaratva, 2) as valtva, ROUND(valoarecutva, 2) as valctva FROM vanzari INTO CURSOR cVanzarix
|
||||||
|
|
||||||
|
Select a.articol, a.denumire, a.cod_fiscal, a.reg_com, a.nrfact, b.adresa, SPACE(20) as serie_act, CAST(0 as N(14)) As nract, a.dataact, a.datascad, a.proctva, a.valftva, a.valtva, a.valctva, '707' As cont7xx, '' As acont7xx, '' As acont4111, Iif(a.tvaincasare = 'DA', '4428', '4427') As cont442x, Iif(a.tvaincasare = 'DA', '2', ' ') As acont442x, ;
|
||||||
|
'NU' As incasat, '' As casa, '' As cont5xx, '' As acont5xx, ;
|
||||||
|
a.tvaincasare, a.taxareinversa ;
|
||||||
|
FROM cFacturiSaga a Left Join cFacturiXls b On a.nrfact = b.nrfact ;
|
||||||
|
ORDER By a.dataact, a.nrfact ;
|
||||||
|
INTO Cursor cFacturi Readwrite
|
||||||
|
|
||||||
|
* nract = ultime
|
||||||
|
SELECT cFacturi
|
||||||
|
SCAN
|
||||||
|
lcNrAct = Alltrim(Right(Alltrim(GetRegExp(ALLTRIM(nrfact), "[0-9]+$",1)),14))
|
||||||
|
lnNrAct = Int(Val(m.lcNrAct))
|
||||||
|
lcSerieAct = ALLTRIM(STRTRAN(nrfact, m.lcNrAct, '',1,1,1))
|
||||||
|
REPLACE serie_act WITH m.lcSerieAct, nract WITH m.lnNrAct
|
||||||
|
ENDSCAN
|
||||||
|
|
||||||
|
|
||||||
|
USE IN (SELECT('cFacturiSaga'))
|
||||||
|
USE IN (SELECT('cFacturiXls'))
|
||||||
|
|
||||||
|
Update cFacturi Set datascad = dataact Where Empty(datascad)
|
||||||
|
Update cFacturi Set cont7xx = '704' Where 'GRAVURA'$articol
|
||||||
|
Update cFacturi Set cont7xx = '708' Where 'CURIER'$articol OR 'COURIER'$articol OR 'TRANSPORT'$articol
|
||||||
|
Update cFacturi Set cont7xx = '667' Where 'DISCOUNT'$articol
|
||||||
|
Update cFacturi Set cont7xx = '419' Where 'GIFT CARD'$articol
|
||||||
|
*lcTable = ADDBS(JUSTPATH(m.lcFile)) + 'facturi.dbf'
|
||||||
|
Select denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa,;
|
||||||
|
SUM(valftva) As valftva, Sum(valtva) As valtva ;
|
||||||
|
GROUP By denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa ;
|
||||||
|
ORDER By dataact, nract ;
|
||||||
|
FROM cFacturi Into Cursor Facturi && (m.lcTable)
|
||||||
|
|
||||||
|
USE IN (SELECT('cFacturi'))
|
||||||
|
|
||||||
|
* EXPORT XLSX
|
||||||
|
lcExcel = Addbs(Justpath(m.lcFileFacturiXlsx)) + 'facturi_roa.xlsx'
|
||||||
|
|
||||||
|
loExcel = Newobject("VFPxWorkbookXLSX", "VFPxWorkbookXLSX.vcx")
|
||||||
|
loExcel.SaveTabletoWorkbook('facturi', lcExcel, .T., .T., 'Sheet1')
|
||||||
|
Messagebox('S-a salvat fisierul ' + m.lcExcel + CHR(13) + CHR(10) + 'Lansati ROACONT > Import > Note facturi clienti',0+64, _Screen.Caption)
|
||||||
|
|
||||||
|
USE IN (SELECT('Facturi'))
|
||||||
10017
Alte/SmartBill2ROA/vfpxworkbookxlsx.vc2
Normal file
10017
Alte/SmartBill2ROA/vfpxworkbookxlsx.vc2
Normal file
File diff suppressed because it is too large
Load Diff
214
CLAUDE.md
Normal file
214
CLAUDE.md
Normal file
@@ -0,0 +1,214 @@
|
|||||||
|
# CLAUDE.md
|
||||||
|
|
||||||
|
This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository.
|
||||||
|
|
||||||
|
## What this is
|
||||||
|
|
||||||
|
ROACONT ("ROA Financiar Contabilitate") is a Visual FoxPro 9 desktop accounting
|
||||||
|
application, one product in the ROA business-software suite built by ROA Romfast SRL.
|
||||||
|
It is a thick client: VFP source (`.prg`, `.scx`, `.vcx`, `.mnx`, `.frx`) compiled to an
|
||||||
|
`.exe`, talking to an Oracle backend over ODBC/native connections. There is no web
|
||||||
|
front-end and no package-manager-based build.
|
||||||
|
|
||||||
|
This directory (`D:\ROA\ROACONT`) is one working copy inside a much larger `D:\ROA`
|
||||||
|
tree that holds dozens of sibling ROA products (ROAGEST, ROACASA, ROAAUTO, ROAMANAGER,
|
||||||
|
ROAEFACTURA, ROASAL, etc.) plus a suite-wide shared library at `D:\ROA\COMUNROA`.
|
||||||
|
Changes to shared code can ripple into other products — see "Shared code" below.
|
||||||
|
|
||||||
|
## Version control
|
||||||
|
|
||||||
|
This is primarily an **SVN** working copy (`svn info` → `^/ROACONT/Trunk`,
|
||||||
|
repository root `http://svnroa:3001/svn/ROA`). Use `svn status`, `svn diff`, `svn commit`,
|
||||||
|
`svn log`, etc. for the day-to-day legacy workflow.
|
||||||
|
|
||||||
|
A **git** mirror also runs in parallel, pushed to `gitea.romfast.ro:romfast/roacont.git`.
|
||||||
|
SVN remains the "live" source of truth; git is synced to it manually, not the other way
|
||||||
|
around. `.svn/` is git-ignored. `COMUN/` is excluded from this repo's git (see `.gitignore`)
|
||||||
|
because it's shared by every ROA product and is versioned by its **own separate git repo**,
|
||||||
|
`gitea.romfast.ro:romfast/comun.git` (same remote used by ROAACNPRO and other siblings) —
|
||||||
|
run git commands for `COMUN/` from inside that directory, not from the ROACONT root.
|
||||||
|
|
||||||
|
Git tracks the **FoxBin2Prg text versions** of the VFP binaries
|
||||||
|
(`.vc2/.sc2/.fr2/.mn2/.lb2/.pj2/.dc2/.db2`), generated in-tree next to each binary — not the
|
||||||
|
binaries themselves. The binaries and regenerable indexes (`.cdx/.dcx`) are git-ignored (SVN
|
||||||
|
stays the EOL authority), so git diffs are readable text. Refresh those text versions with
|
||||||
|
`git_sync.ps1` (folder-mode recursive over the whole tree incl. `COMUN\`, incremental):
|
||||||
|
```
|
||||||
|
powershell -ExecutionPolicy Bypass -File D:\ROA\UTIL\foxbin2prg\git_sync.ps1 -ProjectRoot D:\ROA\ROACONT
|
||||||
|
```
|
||||||
|
Run it **at the start of every session and before any `git commit`** so the text matches the
|
||||||
|
binaries. It converts in a temp staging area and copies back only the text (never touches the
|
||||||
|
SVN working-copy binaries), continues past per-file failures, and exits nonzero on any failure:
|
||||||
|
**do not commit while `git_sync` reports unexplained failures.** Then search the `.??2` files
|
||||||
|
in-tree with Grep (e.g. `PROCEDURE do_salvare`), citing `file:line`.
|
||||||
|
|
||||||
|
Editing: write-back text→binary via `txt2vcx.ps1` is supported **only for `.vc2/.sc2`**
|
||||||
|
(vcx/scx); `.frx/.mnx/.lbx/.pjx/.dbc/.dbf` are editable **only in the VFP IDE** (no write-back).
|
||||||
|
See `D:\ROA\UTIL\foxbin2prg\CLAUDE.md` and `COMUN\docs\flux-editare-vfp-text.md`.
|
||||||
|
|
||||||
|
Orphan cleanup: on each full run `git_sync` deletes `.??2` text whose binary was removed from
|
||||||
|
SVN (and `.db2` whose table left the per-project list) and reports it, so git records the
|
||||||
|
deletion.
|
||||||
|
|
||||||
|
SVN ignores the `.??2` files via `global-ignores` in the machine's local Subversion config
|
||||||
|
(`%APPDATA%\Subversion\config`, `[miscellany]`), together with `*.dbf.cfg`. Limitation:
|
||||||
|
global-ignores only covers *unversioned* files — if a `.??2` ever gets `svn add`-ed, remove it
|
||||||
|
with `svn rm --keep-local`. The `.dbf.cfg` files (per-table export config that makes `.db2`
|
||||||
|
carry data, not just structure) are committed to git but sit in SVN global-ignores.
|
||||||
|
|
||||||
|
### Branching (git)
|
||||||
|
|
||||||
|
Two lanes in the git mirror:
|
||||||
|
- **`main` = SVN mirror**: receives ONLY `sync SVN rN` commits, made from a clean tree (right
|
||||||
|
after `svn update`, before local work). `git diff main..claude/<subiect>` then shows exactly
|
||||||
|
and only Claude's work.
|
||||||
|
- **Claude works on a branch** (`claude/<subiect>`) and commits only there.
|
||||||
|
- Once the changes land in SVN (user runs `svn commit`), the branch is closed (merged into
|
||||||
|
`main` at the next sync, or deleted).
|
||||||
|
- Hygiene: sync `main` only from a clean tree — an `svn update` mid-work mixes binaries on disk
|
||||||
|
(nature of SVN).
|
||||||
|
|
||||||
|
## Building / running
|
||||||
|
|
||||||
|
There is no CLI build tool. The project is compiled from inside the Visual FoxPro 9 IDE:
|
||||||
|
|
||||||
|
- Project file: `roacont.PJX` / `roacont.PJT` (open in VFP, then Project > Build / Rebuild
|
||||||
|
to produce `roacont.exe`).
|
||||||
|
- Every `.prg`/`.scx`/`.vcx`/`.mnx` source file has a compiled sibling (`.FXP`/`.SCT`/`.VCT`/`.MPR`).
|
||||||
|
**Always edit the source file, never the compiled binary companion** — the binaries are
|
||||||
|
regenerated by the VFP compiler and are not meant to be hand-edited or diffed.
|
||||||
|
- `.BAK` files scattered throughout `Programe/`, `Clase/`, etc. are VFP's own editor backups,
|
||||||
|
not something to restore from manually.
|
||||||
|
- There are no automated tests. `COMUN/utile/Teste/test.prg` and `teste_roacont.prg` are
|
||||||
|
ad hoc manual test scripts, not a test runner.
|
||||||
|
|
||||||
|
## Entry point and startup flow
|
||||||
|
|
||||||
|
`Programe/roacont.prg` is the application entry point (`PARAMETERS tparam` — a semicolon-
|
||||||
|
delimited connection string when launched by the ROA "Start" launcher). It:
|
||||||
|
|
||||||
|
1. Sets the VFP environment (`SET PATH`, `SET CLASSLIB`/`SET PROCEDURE ... ADDITIVE`) —
|
||||||
|
this is effectively the dependency-injection root: dozens of `.vcx` class libraries and
|
||||||
|
`.prg` procedure files are registered here in a fixed order, and later code assumes they're
|
||||||
|
all loaded. New shared `.prg`/`.vcx` files must be registered here to be reachable app-wide.
|
||||||
|
2. Verifies the license/serial (`PORNIRE()` — disk serial + `comdir.snr` + registry key check)
|
||||||
|
and that the app was launched via the suite's start mechanism (`Verific_Start`), unless a
|
||||||
|
local `debug.txt` marker is present.
|
||||||
|
3. Reads `settings.ini` (via `getini`/`setini`, `COMUN` ini helpers) for local machine config
|
||||||
|
(report behavior, keepalive interval, error-reporting host, locale).
|
||||||
|
4. Instantiates global singleton objects that the rest of the app depends on as `PUBLIC`/module
|
||||||
|
globals: `goConn` (Oracle connect/disconnect wrapper), `goExecutor` (SQL exec wrapper with
|
||||||
|
error handling), `goExport` (report/Excel export), `goLocale` (i18n), `poLog`/`goLog`
|
||||||
|
(`Log_Mesaje` logging object), `goApi`/`goMyXMLHTTP` (remote error/update HTTP calls).
|
||||||
|
5. Sets `ON ERROR ErrorHandler(...)` and `ON SHUTDOWN` handlers — uncaught errors are logged via
|
||||||
|
`goLog`, posted to a remote error endpoint (`goMyXMLHTTP.postError`, host from
|
||||||
|
`settings.ini` `[errors] host`), and shown via `AMESSAGEBOX`.
|
||||||
|
6. Creates the main `cApplication` object (`goApp`) and shows the login form
|
||||||
|
(`COMUN\ferestre\frm_login.scx`), which resolves the target company (`goFirma`), Oracle
|
||||||
|
schema (`gcS`, e.g. `'CONTAFIN'`), and fiscal period (`gnAn`/`gnLuna`) before handing off to
|
||||||
|
the main menu (`Meniuri\cont2000.mpr`).
|
||||||
|
|
||||||
|
Key long-lived globals to know when reading code: `gcS` (current Oracle schema/company),
|
||||||
|
`gnAn`/`gnLuna` (current fiscal year/month), `goFirma`/`gnIdFirma` (current company object/id),
|
||||||
|
`gcAppPath`/`DIRGEN` (app root paths), `glLunaInchisa` (period-closed flag that disables edit UI).
|
||||||
|
|
||||||
|
## Directory layout
|
||||||
|
|
||||||
|
- `Programe/` — top-level `.prg` business-logic modules registered via `SET PROCEDURE ...
|
||||||
|
ADDITIVE` in `roacont.prg` (e.g. `proceduri.prg`, `oproceduri_*.prg` per functional area:
|
||||||
|
incasari, casademarcat, conversie, decont, import, facturare, etc.).
|
||||||
|
- `Clase/` — `.vcx`/`.vct` VFP class libraries: base UI classes (`cont2000`, `contab`, `baza`),
|
||||||
|
Oracle-domain classes prefixed `o*` (`oparteneri`, `ovanzcump`, `ocasabanca`, `orapoarte_*`,
|
||||||
|
`oconversii`, `saft_d406`, `anaf_efactura`, ...).
|
||||||
|
- `Ferestre/` — `.scx`/`.sct` forms (data entry screens, dialogs).
|
||||||
|
- `Meniuri/` — `.mnx`/`.mnt`/`.mpr` menus; one `.mpr` per top-level menu context
|
||||||
|
(`cont2000.mpr` is the main menu; `casa1`, `banca1`, `capitaluri1`...`8`, etc. are
|
||||||
|
module-specific submenus/menus).
|
||||||
|
- `Rapoarte/` — `.frx`/`.frt` report definitions (balances, journals, declarations like
|
||||||
|
`rap_declaratia100`, D394/D406/SAF-T exports, invoices).
|
||||||
|
- `Include/` — third-party OCX controls and reference docs (SAF-T guide, D394 spec).
|
||||||
|
- `Initializari/` — `.tmpl` templates for generated XML/receipt files.
|
||||||
|
- `Locale/` — DBF-based i18n tables (`locale*.dbf`) and `locale.dbc` database container;
|
||||||
|
Romanian is the built-in default (see Localization below).
|
||||||
|
- `DATE/` — local machine/company option tables (`Optiuni_FIRMA/LOCAL/PROGRAM.dbf`).
|
||||||
|
- `Grafice/` — icons/bitmaps used by forms and toolbars.
|
||||||
|
- `Help/` — DBF-based in-app help content tables.
|
||||||
|
- `Alte/` — scratch/example data files (bank statement exports, import templates); not part
|
||||||
|
of the shipped app.
|
||||||
|
- Root `.sql` files (`roacont1/2/3.sql`, `anaf_efactura.sql`, `vanzari*.sql`, `mfinante.sql`) —
|
||||||
|
hand-run Oracle DDL/DML migrations, not applied automatically.
|
||||||
|
- `changelog_roacont.txt`, `bug_registru.txt` — human-maintained change logs (see Changelog
|
||||||
|
convention below).
|
||||||
|
- `versiune_db.txt` — a manually bumped `YYYY_MM_DD_NN` marker used to track the last applied
|
||||||
|
DB migration.
|
||||||
|
|
||||||
|
### Shared code (`COMUN/` vs. `COMUNROA`)
|
||||||
|
|
||||||
|
- `COMUN/` inside this project is ROACONT's *local* copy of shared assets (`clase`, `ferestre`,
|
||||||
|
`programe`, `rapoarte`, `meniuri`, `utile`), mirroring the same substructure as the app root.
|
||||||
|
`COMUN/utile/` holds cross-cutting utilities: `web` (`WWUTILS.PRG`, `WWAPI.PRG`, `wwhttp`,
|
||||||
|
http/xml helpers), `excel`, `hpdf` (PDF export), `nfjson`/`nfXml`, `calendar`, `ctl32`,
|
||||||
|
`email`, `chatbot`, `GridExtras`.
|
||||||
|
- `D:\ROA\COMUNROA` (outside this working copy) is the suite-wide shared library referenced
|
||||||
|
from `roacont.prg`'s `SET PATH` (`...COMUNROA\`) and used by every sibling ROA product —
|
||||||
|
treat edits there as cross-project and higher-blast-radius than edits under this project's
|
||||||
|
own `COMUN/`.
|
||||||
|
- `COMUN/Drepturi utilizatori/` holds the per-product SQL that defines user permission objects
|
||||||
|
(subfolders per product: `ROACONT`, `ROAGEST`, `ROACASA`, `ROAAUTO`, ...) and
|
||||||
|
`instructiuni drepturi.txt`, which documents the permission-object conventions used on forms
|
||||||
|
(`ntip` values 0–5 for view/report/register/ledger-or-partner/view/custom access levels,
|
||||||
|
`verifica_drepturi(...)` gating, `cbuton1..4` button wiring, `glLunaInchisa` read-only lock).
|
||||||
|
|
||||||
|
## Changelog convention
|
||||||
|
|
||||||
|
`changelog_roacont.txt` is a flat file of HTML-comment blocks, newest first, one per release:
|
||||||
|
|
||||||
|
```
|
||||||
|
<!--
|
||||||
|
DD/MM/YYYY
|
||||||
|
ROACONT - X.Y.Z
|
||||||
|
|
||||||
|
:tag:
|
||||||
|
Description of the change.
|
||||||
|
-->
|
||||||
|
```
|
||||||
|
|
||||||
|
Tags in use: `:nou:` (new feature), `:modificare:` (change/fix to existing behavior),
|
||||||
|
`:eroare:` (bug fix), `:adaugare:` (addition). Version numbers increment per entry (current
|
||||||
|
series is `2.11.x`). When asked to log a change, follow this exact format/tag set rather than
|
||||||
|
inventing a new one. In-code change comments follow a similar per-block convention:
|
||||||
|
`*!* DD.MM.YYYY` followed by `*!* author.name` and a short description, directly above the
|
||||||
|
code being changed — preserve this style when editing existing modules.
|
||||||
|
|
||||||
|
## Localization
|
||||||
|
|
||||||
|
`gcLocale` defaults to `'Romana'`, in which case `goLocale` is a `Locale_dummy` pass-through
|
||||||
|
(no translation lookup). Any other locale value loads the real `Locale` class (`Locale.vcx`)
|
||||||
|
backed by the `locale*.dbf` tables under `Locale/`. Most in-app strings and comments are
|
||||||
|
Romanian; keep new user-facing strings and code comments in Romanian to match the existing
|
||||||
|
codebase unless told otherwise.
|
||||||
|
|
||||||
|
## Reguli de lucru si testare
|
||||||
|
|
||||||
|
Obligatoriu la modificari de cod si testare: `COMUN\docs\reguli_lucru.md`
|
||||||
|
(diff ca fisier + aprobare inainte de write-back; comentarii max o linie;
|
||||||
|
testare headless cu `COMUN\utile\Teste\test_init_env_auto.prg`).
|
||||||
|
Depanare detaliata: `COMUN\docs\depanare_testare_vfp.md`.
|
||||||
|
|
||||||
|
## Skill routing
|
||||||
|
|
||||||
|
When the user's request matches an available skill, invoke it via the Skill tool. When in doubt, invoke the skill.
|
||||||
|
|
||||||
|
Key routing rules:
|
||||||
|
- Product ideas/brainstorming → invoke /office-hours
|
||||||
|
- Strategy/scope → invoke /plan-ceo-review
|
||||||
|
- Architecture → invoke /plan-eng-review
|
||||||
|
- Design system/plan review → invoke /design-consultation or /plan-design-review
|
||||||
|
- Full review pipeline → invoke /autoplan
|
||||||
|
- Bugs/errors → invoke /investigate
|
||||||
|
- QA/testing site behavior → invoke /qa or /qa-only
|
||||||
|
- Code review/diff check → invoke /review
|
||||||
|
- Visual polish → invoke /design-review
|
||||||
|
- Ship/deploy/PR → invoke /ship or /land-and-deploy
|
||||||
|
- Save progress → invoke /context-save
|
||||||
|
- Resume context → invoke /context-restore
|
||||||
1489
Clase/Backup0109/ferestrebaza.vc2
Normal file
1489
Clase/Backup0109/ferestrebaza.vc2
Normal file
File diff suppressed because it is too large
Load Diff
437
Clase/appwiz.vc2
Normal file
437
Clase/appwiz.vc2
Normal file
@@ -0,0 +1,437 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="appwiz.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
*< LIBCOMMENT: Application Wizard framework class library. />
|
||||||
|
*
|
||||||
|
DEFINE CLASS wzapplication AS container && Application class used as a framework for the Application Wizard.
|
||||||
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*m: beforereadevents && Method executed before READ EVENTS is executed when ReadEvents is called.
|
||||||
|
*m: clearevents && Clears any pending read events.
|
||||||
|
*m: doform && Executes an SCX form.
|
||||||
|
*m: dolabel && Executes an LBX label
|
||||||
|
*m: domenu && Executes an MPR menu.
|
||||||
|
*m: doprogram && Executes a PRG, APP, or EXE program.
|
||||||
|
*m: doreport && Executes an FRX report.
|
||||||
|
*m: filenotfoundmsgbox && Displays a File Not Found messagebox.
|
||||||
|
*m: getcaption && Returns the caption of the application.
|
||||||
|
*m: geticon && Returns the icon of the application.
|
||||||
|
*m: onshutdown && Occurs when the user attempts to exit Visual FoxPro.
|
||||||
|
*m: readevents && Starts read events mode.
|
||||||
|
*m: readini
|
||||||
|
*m: refreshformscollection && Refresh forms collection arrays and counters.
|
||||||
|
*m: release && Releases the application from memory.
|
||||||
|
*m: releaseform && Release specifc or active form from memory.
|
||||||
|
*m: releaseforms && Release all application forms from memory.
|
||||||
|
*m: resetformscollection && Reset arrays and counters of forms collection.
|
||||||
|
*m: restoreenvironment && Restores environment settings.
|
||||||
|
*m: saveenvironment && Saves environment settings.
|
||||||
|
*m: setcaption && Sets the caption of the application.
|
||||||
|
*m: seticon && Sets the icon of the application.
|
||||||
|
*m: show && Displays the application.
|
||||||
|
*m: writeini
|
||||||
|
*p: ccaption && Caption of the application object.
|
||||||
|
*p: cicon && Icon of the application object.
|
||||||
|
*p: clastcaption && Last caption setting of _screen before application object was intantiated.
|
||||||
|
*p: clasticon && Last icon setting of _screen before application object was intantiated.
|
||||||
|
*p: cstartupform && Form (SCX) which is executed when the application object is shown.
|
||||||
|
*p: cstartupmenu && Menu (MPR) which is executed when the application object is shown.
|
||||||
|
*p: lcascadeforms && Specifies whether forms are cascaded if multiple instances of the same form are opened in the same top and left positions of the desktop.
|
||||||
|
*p: lreadevents && Enable READ EVENTS within ReadEvents method.
|
||||||
|
*p: nformcount && Forms collection count for application object.
|
||||||
|
*p: npixeloffset && Number of pixels which offset multiple instances of the same form.
|
||||||
|
*a: aformnames[1,0] && Form name collection for application object.
|
||||||
|
*a: aforms[1,0] && Forms collection for application object.
|
||||||
|
*p: _memberdata && XML Metadata for customizable properties
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
PROTECTED ccaption,cicon,clastcaption,clasticon,Destroy,Init
|
||||||
|
*<PropValue>
|
||||||
|
BackColor = 0,0,255
|
||||||
|
ccaption =
|
||||||
|
cicon =
|
||||||
|
clastcaption =
|
||||||
|
clasticon =
|
||||||
|
cstartupform =
|
||||||
|
cstartupmenu =
|
||||||
|
Height = 34
|
||||||
|
lcascadeforms = .T.
|
||||||
|
lreadevents = .T.
|
||||||
|
Name = "wzapplication"
|
||||||
|
nformcount = 0
|
||||||
|
npixeloffset = 22
|
||||||
|
Visible = .F.
|
||||||
|
Width = 108
|
||||||
|
_memberdata = <VFPData>
|
||||||
|
<memberdata name="writeini" display="WriteIni"/>
|
||||||
|
</VFPData>
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
PROTECTED PROCEDURE beforereadevents && Method executed before READ EVENTS is executed when ReadEvents is called.
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE clearevents && Clears any pending read events.
|
||||||
|
CLEAR EVENTS
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROTECTED PROCEDURE Destroy
|
||||||
|
CLEAR EVENTS
|
||||||
|
this.RestoreEnvironment
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE doform && Executes an SCX form.
|
||||||
|
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
|
||||||
|
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
|
||||||
|
LOCAL lcFormName,lnFormCount
|
||||||
|
|
||||||
|
_screen.visible=.t.
|
||||||
|
|
||||||
|
lcFileName=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
|
||||||
|
IF NOT tlNoShow
|
||||||
|
this.aForms[this.nFormCount].Show
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE dolabel && Executes an LBX label
|
||||||
|
LPARAMETERS tcFileName,tlPrint
|
||||||
|
LOCAL lcFileName
|
||||||
|
|
||||||
|
lcFileName=ALLTRIM(tcFileName)
|
||||||
|
IF EMPTY(lcFileName)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
lcFileName=LOWER(FULLPATH(lcFileName))
|
||||||
|
IF NOT "."$lcFileName
|
||||||
|
lcFileName=lcFileName+".lbx"
|
||||||
|
ENDIF
|
||||||
|
IF NOT FILE(lcFileName)
|
||||||
|
this.FileNotFoundMsgBox(lcFileName)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
IF tlPrint
|
||||||
|
LABEL FORM (lcFileName) TO PRINTER PROMPT
|
||||||
|
ELSE
|
||||||
|
LABEL FORM (lcFileName) PREVIEW
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE domenu && Executes an MPR menu.
|
||||||
|
LPARAMETERS tcFileName
|
||||||
|
LOCAL lcFileName
|
||||||
|
|
||||||
|
lcFileName=ALLTRIM(tcFileName)
|
||||||
|
IF EMPTY(lcFileName)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
lcFileName=LOWER(FULLPATH(lcFileName))
|
||||||
|
IF NOT "."$lcFileName
|
||||||
|
lcFileName=lcFileName+".mpr"
|
||||||
|
ENDIF
|
||||||
|
*IF NOT FILE(lcFileName)
|
||||||
|
* this.FileNotFoundMsgBox(lcFileName)
|
||||||
|
* RETURN .F.
|
||||||
|
*ENDIF
|
||||||
|
*DO (lcFileName)
|
||||||
|
|
||||||
|
do &meniuprogram
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE doprogram && Executes a PRG, APP, or EXE program.
|
||||||
|
LPARAMETERS tcFileName
|
||||||
|
LOCAL lcFileName
|
||||||
|
|
||||||
|
lcFileName=ALLTRIM(tcFileName)
|
||||||
|
IF EMPTY(lcFileName)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
lcFileName=LOWER(FULLPATH(lcFileName))
|
||||||
|
IF NOT "."$lcFileName
|
||||||
|
lcFileName=lcFileName+".prg"
|
||||||
|
ENDIF
|
||||||
|
IF NOT FILE(lcFileName)
|
||||||
|
this.FileNotFoundMsgBox(lcFileName)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
DO (lcFileName)
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE doreport && Executes an FRX report.
|
||||||
|
LPARAMETERS tcFileName,tlPrint
|
||||||
|
LOCAL lcFileName
|
||||||
|
|
||||||
|
lcFileName=ALLTRIM(tcFileName)
|
||||||
|
IF EMPTY(lcFileName)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
lcFileName=LOWER(FULLPATH(lcFileName))
|
||||||
|
IF NOT "."$lcFileName
|
||||||
|
lcFileName=lcFileName+".frx"
|
||||||
|
ENDIF
|
||||||
|
IF NOT FILE(lcFileName)
|
||||||
|
this.FileNotFoundMsgBox(lcFileName)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
IF tlPrint
|
||||||
|
REPORT FORM (lcFileName) TO PRINTER PROMPT
|
||||||
|
ELSE
|
||||||
|
REPORT FORM (lcFileName) PREVIEW
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE filenotfoundmsgbox && Displays a File Not Found messagebox.
|
||||||
|
LPARAMETERS tcFileName
|
||||||
|
|
||||||
|
RETURN MESSAGEBOX([File "]+tcFileName+[" not found.],16,_screen.Caption)
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE getcaption && Returns the caption of the application.
|
||||||
|
RETURN this.cCaption
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE geticon && Returns the icon of the application.
|
||||||
|
RETURN this.cIcon
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROTECTED PROCEDURE Init
|
||||||
|
this.SaveEnvironment
|
||||||
|
this.ResetFormsCollection
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE onshutdown && Occurs when the user attempts to exit Visual FoxPro.
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE readevents && Starts read events mode.
|
||||||
|
this.BeforeReadEvents
|
||||||
|
IF this.lReadEvents
|
||||||
|
READ EVENTS
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE readini
|
||||||
|
LPARAMETERS tcSection, tcVariable
|
||||||
|
|
||||||
|
lcSection = IIF(!EMPTY(m.tcSection), ALLTRIM(LOWER(m.tcSection)), '')
|
||||||
|
lcVariable = IIF(!EMPTY(m.tcVariable), ALLTRIM(LOWER(m.tcVariable)), '')
|
||||||
|
lcValue = ''
|
||||||
|
|
||||||
|
IF TYPE('goApi') = 'O' AND !EMPTY(m.lcSection) AND !EMPTY(m.lcVariable)
|
||||||
|
lcValue = goAPI.GetProfileString(m.gcSettingsFile, m.lcSection, m.lcVariable)
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
RETURN NVL(m.lcValue,'')
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE refreshformscollection && Refresh forms collection arrays and counters.
|
||||||
|
LOCAL lnCount,lnCount2
|
||||||
|
|
||||||
|
lnCount=1
|
||||||
|
DO WHILE lnCount<=this.nFormCount
|
||||||
|
IF TYPE("this.aForms[lnCount]")=="O" AND NOT ISNULL(this.aForms[lnCount])
|
||||||
|
lnCount=lnCount+1
|
||||||
|
LOOP
|
||||||
|
ENDIF
|
||||||
|
FOR lnCount2 = lnCount TO (this.nFormCount-1)
|
||||||
|
this.aForms[lnCount2]=this.aForms[lnCount2+1]
|
||||||
|
this.aForms[lnCount2+1]=.NULL.
|
||||||
|
this.aFormNames[lnCount2]=this.aFormNames[lnCount2+1]
|
||||||
|
this.aFormNames[lnCount2+1]=""
|
||||||
|
ENDFOR
|
||||||
|
this.nFormCount=this.nFormCount-1
|
||||||
|
IF this.nFormCount=0
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
|
||||||
|
ENDDO
|
||||||
|
IF this.nFormCount=0
|
||||||
|
this.ResetFormsCollection
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE release && Releases the application from memory.
|
||||||
|
IF NOT this.ReleaseForms()
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
this.ClearEvents
|
||||||
|
RELEASE this
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE releaseform && Release specifc or active form from memory.
|
||||||
|
LPARAMETERS toForm
|
||||||
|
|
||||||
|
IF PARAMETERS()=0
|
||||||
|
IF TYPE("_screen.ActiveForm")#"O" OR ISNULL(_screen.ActiveForm)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
_screen.ActiveForm.Release
|
||||||
|
ELSE
|
||||||
|
IF TYPE("toForm")#"O" OR ISNULL(toForm)
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
toForm.Release
|
||||||
|
ENDIF
|
||||||
|
this.RefreshFormsCollection
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE releaseforms && Release all application forms from memory.
|
||||||
|
LOCAL lnFormCount
|
||||||
|
|
||||||
|
this.RefreshFormsCollection
|
||||||
|
DO WHILE this.nFormCount>0
|
||||||
|
lnFormCount=this.nFormCount
|
||||||
|
IF NOT this.ReleaseForm(this.aForms[lnFormCount]) OR this.nFormCount=lnFormCount
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROTECTED PROCEDURE resetformscollection && Reset arrays and counters of forms collection.
|
||||||
|
this.nFormCount=0
|
||||||
|
DIMENSION this.aForms[1],this.aFormNames[1]
|
||||||
|
this.aForms=.NULL.
|
||||||
|
this.aFormNames=""
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROTECTED PROCEDURE restoreenvironment && Restores environment settings.
|
||||||
|
IF NOT EMPTY(this.cLastCaption) AND NOT _screen.Caption==this.cLastCaption
|
||||||
|
_screen.Caption=this.cLastCaption
|
||||||
|
ENDIF
|
||||||
|
IF NOT EMPTY(this.cLastIcon) AND NOT _screen.Icon==this.cLastIcon
|
||||||
|
_screen.Icon=this.cLastIcon
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROTECTED PROCEDURE saveenvironment && Saves environment settings.
|
||||||
|
this.cLastCaption=_screen.Caption
|
||||||
|
this.cLastIcon=_screen.Icon
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE setcaption && Sets the caption of the application.
|
||||||
|
LPARAMETERS tcCaption
|
||||||
|
|
||||||
|
IF TYPE("tcCaption")#"C"
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
this.cCaption=tcCaption
|
||||||
|
_screen.Caption=tcCaption
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE seticon && Sets the icon of the application.
|
||||||
|
LPARAMETERS tcIcon
|
||||||
|
|
||||||
|
IF TYPE("tcIcon")#"C"
|
||||||
|
RETURN .F.
|
||||||
|
ENDIF
|
||||||
|
this.cIcon=tcIcon
|
||||||
|
_screen.Icon=tcIcon
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE show && Displays the application.
|
||||||
|
LPARAMETERS nStyle
|
||||||
|
|
||||||
|
this.DoMenu(this.cStartupMenu)
|
||||||
|
this.DoForm(this.cStartupForm)
|
||||||
|
this.ReadEvents
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE writeini
|
||||||
|
LPARAMETERS tcSection, tcVariable, tcValue
|
||||||
|
|
||||||
|
lcSection = IIF(!EMPTY(m.tcSection), ALLTRIM(LOWER(m.tcSection)), '')
|
||||||
|
lcVariable = IIF(!EMPTY(m.tcVariable), ALLTRIM(LOWER(m.tcVariable)), '')
|
||||||
|
lcValue = IIF(!EMPTY(m.tcValue), ALLTRIM(TRANSFORM(m.tcValue)), '')
|
||||||
|
|
||||||
|
IF TYPE('goApi') = 'O' AND !EMPTY(m.lcSection) AND !EMPTY(m.lcVariable)
|
||||||
|
goAPI.WriteProfileString(m.gcSettingsFile, m.lcSection, m.lcVariable, m.lcValue)
|
||||||
|
ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
6
Clase/atentie.vc2
Normal file
6
Clase/atentie.vc2
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="atentie.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
559
Clase/cont2000.vc2
Normal file
559
Clase/cont2000.vc2
Normal file
@@ -0,0 +1,559 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS capplication AS wzapplication OF "..\comun\clase\appwiz.vcx" && Application class.
|
||||||
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
clastcaption = Microsoft Visual FoxPro
|
||||||
|
clasticon =
|
||||||
|
Name = "capplication"
|
||||||
|
nformcount = 0
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS help_leg AS help_pltree OF "cont2000.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Name = "help_leg"
|
||||||
|
BANDA21.Name = "BANDA21"
|
||||||
|
Shape2.Name = "Shape2"
|
||||||
|
Shape1.Name = "Shape1"
|
||||||
|
Line1.Name = "Line1"
|
||||||
|
Label10.Caption = "AJUTOR LEGISLATIV"
|
||||||
|
Label10.Name = "Label10"
|
||||||
|
oleImagesList.Height = 45
|
||||||
|
oleImagesList.Left = 588
|
||||||
|
oleImagesList.Name = "oleImagesList"
|
||||||
|
oleImagesList.Top = 1
|
||||||
|
oleImagesList.Width = 65
|
||||||
|
oleTreeview.Height = 374
|
||||||
|
oleTreeview.Left = 24
|
||||||
|
oleTreeview.Name = "oleTreeview"
|
||||||
|
oleTreeview.Top = 52
|
||||||
|
oleTreeview.Width = 336
|
||||||
|
Edit1.ControlSource = "helpLEG.expli"
|
||||||
|
Edit1.Height = 374
|
||||||
|
Edit1.Name = "Edit1"
|
||||||
|
Edit1.Top = 52
|
||||||
|
Label1.Name = "Label1"
|
||||||
|
Label2.Name = "Label2"
|
||||||
|
Terminat1.Command1.Name = "Command1"
|
||||||
|
Terminat1.Imbuton1.Height = 27
|
||||||
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
||||||
|
Terminat1.Imbuton1.Width = 30
|
||||||
|
Terminat1.Name = "Terminat1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
PROCEDURE Activate
|
||||||
|
sele helpleg
|
||||||
|
set order to tag nrnod
|
||||||
|
thisform.filltree
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE filltree
|
||||||
|
LOCAL O
|
||||||
|
|
||||||
|
SELECT HELPleg
|
||||||
|
O=THISFORM.OLETREEVIEW.NODES
|
||||||
|
|
||||||
|
SCAN FOR !DELETED()
|
||||||
|
IF NRTATA=0
|
||||||
|
O.ADD(,,,ALLT(TITLU),TATAFIU)
|
||||||
|
ELSE
|
||||||
|
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
|
||||||
|
ENDIF
|
||||||
|
ENDSCAN
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Init
|
||||||
|
*
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE oleTreeview.NodeClick
|
||||||
|
*** OLE Control Event ***
|
||||||
|
LPARAMETERS node
|
||||||
|
LOCAL TX
|
||||||
|
TX=THIS.SelectedItem.INDEX
|
||||||
|
SELE HELPleg
|
||||||
|
LOCA FOR NRNOD=TX
|
||||||
|
THISFORM.EDIT1.REFRESH
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS help_pltree AS _frmbase 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="Shape2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*m: filltree
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BackColor = 255,255,255
|
||||||
|
BorderStyle = 1
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 449
|
||||||
|
Name = "help_pltree"
|
||||||
|
Width = 783
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 786
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 751
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 33
|
||||||
|
Lb_titlu_alb_b121.Caption = "PLANUL GENERAL DE CONTURI"
|
||||||
|
Lb_titlu_alb_b121.FontBold = .T.
|
||||||
|
Lb_titlu_alb_b121.Left = 6
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.Top = 8
|
||||||
|
BUT_TERMIN1.Left = 753
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'Edit1' AS editbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
ControlSource = "chelpcont.expli", ;
|
||||||
|
DisabledBackColor = 255,255,255, ;
|
||||||
|
DisabledForeColor = 0,0,0, ;
|
||||||
|
Height = 374, ;
|
||||||
|
Left = 396, ;
|
||||||
|
Name = "Edit1", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
Top = 56, ;
|
||||||
|
Width = 367, ;
|
||||||
|
ZOrderSet = 7
|
||||||
|
*< END OBJECT: BaseClass="editbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label1' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "EXPLICATII", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 396, ;
|
||||||
|
Name = "Label1", ;
|
||||||
|
Top = 40, ;
|
||||||
|
Width = 64, ;
|
||||||
|
ZOrderSet = 8
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label2' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "TITLURI", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 22, ;
|
||||||
|
Name = "Label2", ;
|
||||||
|
Top = 38, ;
|
||||||
|
Width = 47, ;
|
||||||
|
ZOrderSet = 9
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
|
||||||
|
Height = 45, ;
|
||||||
|
Left = 656, ;
|
||||||
|
Name = "oleImagesList", ;
|
||||||
|
Top = 22, ;
|
||||||
|
Width = 65, ;
|
||||||
|
ZOrderSet = 5
|
||||||
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANCwp5ZvIMgBAwAAAEADAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAASgIAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQAiAAAAEAAQAMDAwAD/////Ae/NqwAABQCo1h4AcgT///////8FAACAAAAAAAIAAAAAAAIAAAABAAAAbHQAAPYAAABCTfYAAAAAAAAAdgAAACgAAAAQAAAAEAAAAAEABAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////8A////////AIUP/////wCH91D///8Ah/+HdQ//8If/iAh3UP/1j4gAUId1D/WIAFVVCHdQ9QBVVVVQh3UFhVVbNVUIcA9YVVV7tVCA//WFUzW7VQD//1hVu7NVUP//9YVVVVUA////WFVVAP/////1hQD///////9Q////8CAAAAbHQAAN4AAABCTd4AAAAAAAAAdgAAACgAAAANAAAADQAAAAEABAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////////8ADwAAAAAA/wAPD/////D/AA8P////8P8ADw/0RE/w/wAPD/////D/AA8P9ERP8P8ADw/////w/wAPD/RE8AD/AA8P///wgP8ADw////AP/wAPAAAAAP//AA////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAEltYWdlSGVpZ2h0AAkAAABJCgAAABAAAAALAAAASW1hZ2VXaWR0aAAJAAAASQoAAAAQAAAAAAAA//////////9mbu7u7u7/////////////Zu7u7u7//////////////2bu7u7///////////////9m7u7/////////////////bu7//////////////////27/////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
||||||
|
|
||||||
|
ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
|
||||||
|
Height = 377, ;
|
||||||
|
Left = 20, ;
|
||||||
|
Name = "oleTreeview", ;
|
||||||
|
Top = 55, ;
|
||||||
|
Width = 340, ;
|
||||||
|
ZOrderSet = 6
|
||||||
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDcrpZvIMgBAwAAAMABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAFQAAAAAAAAAAwAAAAIAAAD+////BQAAAAYAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAAkIwAA9yYAAI5+4eYCAAUAQAAAAMT+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEmSQABgCCAAAAAAAFAACAFrRaBA0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAAAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU3R5bGUACQAAAEkKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Height = 407, ;
|
||||||
|
Left = 9, ;
|
||||||
|
Name = "Shape1", ;
|
||||||
|
SpecialEffect = 0, ;
|
||||||
|
Top = 33, ;
|
||||||
|
Width = 363, ;
|
||||||
|
ZOrderSet = 2
|
||||||
|
*< END OBJECT: BaseClass="shape" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Height = 407, ;
|
||||||
|
Left = 384, ;
|
||||||
|
Name = "Shape2", ;
|
||||||
|
SpecialEffect = 0, ;
|
||||||
|
Top = 33, ;
|
||||||
|
Width = 390, ;
|
||||||
|
ZOrderSet = 1
|
||||||
|
*< END OBJECT: BaseClass="shape" />
|
||||||
|
|
||||||
|
PROCEDURE Activate
|
||||||
|
|
||||||
|
thisform.filltree
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE filltree
|
||||||
|
LOCAL I
|
||||||
|
|
||||||
|
*!* DEBUG
|
||||||
|
*!* SUSPEND
|
||||||
|
|
||||||
|
o=THISFORM.oletreeview.nodes
|
||||||
|
|
||||||
|
SELE chelpcont
|
||||||
|
*BROWSE
|
||||||
|
SET ORDER TO TAG NRNOD
|
||||||
|
*BROW
|
||||||
|
SCAN FOR !DELETED()
|
||||||
|
*WAIT WINDOW STR(NRNOD)
|
||||||
|
IF NRTATA=0
|
||||||
|
o.ADD(,,,ALLT(DENUMIRE),TATAFIU)
|
||||||
|
*WAIT WINDOW DENUMIRE
|
||||||
|
ELSE
|
||||||
|
*!* STRTOFILE(ALLT(CONT)+' ','c:\plcont.txt',1)
|
||||||
|
o.ADD(NRTATA,4,,ALLT(CONT)+' '+ALLT(DENUMIRE),TATAFIU)
|
||||||
|
ENDIF
|
||||||
|
ENDSCAN
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE oleTreeview.NodeClick
|
||||||
|
*** OLE Control Event ***
|
||||||
|
LPARAMETERS node
|
||||||
|
LOCAL TX
|
||||||
|
TX=LEFT(THIS.SelectedItem.TEXT,4)
|
||||||
|
SELE chelpcont
|
||||||
|
LOCA FOR LEFT(CONT,4)=TX
|
||||||
|
THISFORM.EDIT1.REFRESH
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS help_tree AS help_pltree OF "cont2000.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
AutoCenter = .T.
|
||||||
|
BorderStyle = 0
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 450
|
||||||
|
Name = "help_tree"
|
||||||
|
Width = 783
|
||||||
|
BANDA21.Name = "BANDA21"
|
||||||
|
Shape2.Left = 383
|
||||||
|
Shape2.Name = "Shape2"
|
||||||
|
Shape2.Top = 35
|
||||||
|
Shape1.Height = 407
|
||||||
|
Shape1.Left = 8
|
||||||
|
Shape1.Name = "Shape1"
|
||||||
|
Shape1.Top = 35
|
||||||
|
Shape1.Width = 363
|
||||||
|
Line1.Name = "Line1"
|
||||||
|
Label10.Caption = "Instructiuni de utilizare a programului"
|
||||||
|
Label10.FontSize = 12
|
||||||
|
Label10.Left = 6
|
||||||
|
Label10.Name = "Label10"
|
||||||
|
Label10.Top = 6
|
||||||
|
oleImagesList.Height = 45
|
||||||
|
oleImagesList.Left = 588
|
||||||
|
oleImagesList.Name = "oleImagesList"
|
||||||
|
oleImagesList.Top = 1
|
||||||
|
oleImagesList.Width = 65
|
||||||
|
oleTreeview.Height = 374
|
||||||
|
oleTreeview.Left = 24
|
||||||
|
oleTreeview.Name = "oleTreeview"
|
||||||
|
oleTreeview.Top = 52
|
||||||
|
oleTreeview.Width = 336
|
||||||
|
Edit1.ControlSource = "helpMENU.expli"
|
||||||
|
Edit1.Height = 374
|
||||||
|
Edit1.Name = "Edit1"
|
||||||
|
Edit1.Top = 52
|
||||||
|
Label1.Name = "Label1"
|
||||||
|
Label2.Caption = "TITLURI"
|
||||||
|
Label2.Name = "Label2"
|
||||||
|
Terminat1.Command1.Name = "Command1"
|
||||||
|
Terminat1.Imbuton1.Height = 27
|
||||||
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
||||||
|
Terminat1.Imbuton1.Width = 30
|
||||||
|
Terminat1.Name = "Terminat1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'Image1' AS image WITH ;
|
||||||
|
Height = 32, ;
|
||||||
|
Left = 528, ;
|
||||||
|
Name = "Image1", ;
|
||||||
|
Picture = ..\grafice\arw01rt.ico, ;
|
||||||
|
Stretch = 0, ;
|
||||||
|
Top = 0, ;
|
||||||
|
Visible = .F., ;
|
||||||
|
Width = 32
|
||||||
|
*< END OBJECT: BaseClass="image" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Image2' AS image WITH ;
|
||||||
|
Height = 32, ;
|
||||||
|
Left = 642, ;
|
||||||
|
Name = "Image2", ;
|
||||||
|
Picture = ..\grafice\arw01lt.ico, ;
|
||||||
|
Stretch = 0, ;
|
||||||
|
Top = -1, ;
|
||||||
|
Visible = .F., ;
|
||||||
|
Width = 32
|
||||||
|
*< END OBJECT: BaseClass="image" />
|
||||||
|
|
||||||
|
PROCEDURE Activate
|
||||||
|
SELE HELPMENU
|
||||||
|
set order to tag nrnod
|
||||||
|
THISFORM.FILLTREE
|
||||||
|
*THISFORM.image1.click
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE filltree
|
||||||
|
LOCAL O
|
||||||
|
|
||||||
|
SELECT HELPMENU
|
||||||
|
O=THISFORM.OLETREEVIEW.NODES
|
||||||
|
|
||||||
|
SCAN FOR !DELETED()
|
||||||
|
IF NRTATA=0
|
||||||
|
O.ADD(,,,ALLT(TITLU),TATAFIU)
|
||||||
|
ELSE
|
||||||
|
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
|
||||||
|
ENDIF
|
||||||
|
ENDSCAN
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Image1.Click
|
||||||
|
thisform.width=667
|
||||||
|
thisform.autocenter=.t.
|
||||||
|
thisform.refresh
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Image2.Click
|
||||||
|
*thisform.width=310
|
||||||
|
thisform.autocenter=.t.
|
||||||
|
thisform.refresh
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE oleTreeview.NodeClick
|
||||||
|
*** OLE Control Event ***
|
||||||
|
LPARAMETERS node
|
||||||
|
LOCAL TX
|
||||||
|
TX=THIS.SelectedItem.INDEX
|
||||||
|
SELE HELPMENU
|
||||||
|
LOCA FOR NRNOD=TX
|
||||||
|
THISFORM.EDIT1.REFRESH
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS selcontmic AS seleluna OF "cont2000.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 135
|
||||||
|
Name = "selcontmic"
|
||||||
|
Width = 219
|
||||||
|
SEIP1.Height = 108
|
||||||
|
SEIP1.Left = 12
|
||||||
|
SEIP1.Name = "SEIP1"
|
||||||
|
SEIP1.Top = 12
|
||||||
|
SEIP1.Width = 192
|
||||||
|
LINE1.Name = "LINE1"
|
||||||
|
Label1.Caption = "Selectati contul debitor:"
|
||||||
|
Label1.Height = 13
|
||||||
|
Label1.Left = 24
|
||||||
|
Label1.Name = "Label1"
|
||||||
|
Label1.Top = 24
|
||||||
|
Label1.Width = 144
|
||||||
|
Combo1.BoundColumn = 1
|
||||||
|
Combo1.ColumnCount = 1
|
||||||
|
Combo1.ControlSource = "m.scd"
|
||||||
|
Combo1.Name = "Combo1"
|
||||||
|
Combo1.RowSource = "300,3011,3012,3014,3018,321,371,3711,3712"
|
||||||
|
Combo1.RowSourceType = 1
|
||||||
|
Label2.Left = 254
|
||||||
|
Label2.Name = "Label2"
|
||||||
|
Label2.Top = 48
|
||||||
|
Label2.Visible = .F.
|
||||||
|
CMDTERMIN1.Left = 108
|
||||||
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
||||||
|
CMDTERMIN1.Top = 84
|
||||||
|
LABEL3.Left = 289
|
||||||
|
LABEL3.Name = "LABEL3"
|
||||||
|
LABEL3.Top = 48
|
||||||
|
LABEL3.Visible = .F.
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
PROCEDURE Combo1.Valid
|
||||||
|
*
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS seleluna 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="Label2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Cmd_termin1" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*p: aa
|
||||||
|
*p: ll
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
aa =
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 125
|
||||||
|
ll =
|
||||||
|
Name = "seleluna"
|
||||||
|
Width = 231
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'Cmd_termin1' AS cmd_termin WITH ;
|
||||||
|
Caption = "\<TERMIN", ;
|
||||||
|
Enabled = .F., ;
|
||||||
|
Left = 127, ;
|
||||||
|
Name = "Cmd_termin1", ;
|
||||||
|
Top = 81
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Combo1' AS combobox WITH ;
|
||||||
|
Height = 24, ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Combo1", ;
|
||||||
|
Style = 2, ;
|
||||||
|
Top = 48, ;
|
||||||
|
Width = 72, ;
|
||||||
|
ZOrderSet = 3
|
||||||
|
*< END OBJECT: BaseClass="combobox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label1' AS label WITH ;
|
||||||
|
Caption = "Selectati anul si luna de inceput:", ;
|
||||||
|
Height = 13, ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Label1", ;
|
||||||
|
Top = 24, ;
|
||||||
|
Width = 192, ;
|
||||||
|
ZOrderSet = 2
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label2' AS label WITH ;
|
||||||
|
Caption = " ", ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
FontSize = 10, ;
|
||||||
|
ForeColor = 0,0,128, ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 136, ;
|
||||||
|
Name = "Label2", ;
|
||||||
|
Top = 52, ;
|
||||||
|
Width = 27
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label3' AS label WITH ;
|
||||||
|
Caption = " ", ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
FontSize = 10, ;
|
||||||
|
ForeColor = 0,0,128, ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 171, ;
|
||||||
|
Name = "Label3", ;
|
||||||
|
Top = 52, ;
|
||||||
|
Width = 40
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
PROCEDURE Destroy
|
||||||
|
IF USED('crscalendar')
|
||||||
|
USE IN crscalendar
|
||||||
|
ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Init
|
||||||
|
iF USED('crscalendar')
|
||||||
|
USE IN crscalendar
|
||||||
|
ENDIF
|
||||||
|
SELECT PADL(ALLTRIM(nl),2,"0") as nl,an FROM calendar ORDER BY an,nl INTO CURSOR crscalendar
|
||||||
|
SELECT crscalendar
|
||||||
|
thisform.ll=nl
|
||||||
|
thisform.aa=an
|
||||||
|
SCAN
|
||||||
|
thisform.combo1.AddItem(nl+"/"+an)
|
||||||
|
endscan
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Cmd_termin1.Valid
|
||||||
|
m.an=thisform.aa
|
||||||
|
m.nl=thisform.ll
|
||||||
|
pcanul=thisform.aa
|
||||||
|
pcluna=thisform.ll
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Combo1.MouseLeave
|
||||||
|
Lparameters nButton, nShift, nXCoord, nYCoord
|
||||||
|
*!* Select crscalendar
|
||||||
|
*!* anul=an
|
||||||
|
*!* luna=nl
|
||||||
|
pcluna=SUBSTR(this.Value,1,2)
|
||||||
|
pcanul=SUBSTR(this.Value,4)
|
||||||
|
Thisform.label2.Caption=pcluna
|
||||||
|
Thisform.label3.Caption=pcanul
|
||||||
|
If !Empty(pcluna) And !Empty(pcanul)
|
||||||
|
Thisform.cmdtermin1.Enabled=.T.
|
||||||
|
Endif
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Combo1.Valid
|
||||||
|
*!* Select crscalendar
|
||||||
|
*!* anul=an
|
||||||
|
*!* luna=nl
|
||||||
|
pcluna=Substr(This.Value,1,2)
|
||||||
|
pcanul=Substr(This.Value,4)
|
||||||
|
Thisform.label2.Caption=pcluna
|
||||||
|
Thisform.label3.Caption=pcanul
|
||||||
|
If !Empty(pcluna) And !Empty(pcanul)
|
||||||
|
Thisform.cmdtermin1.Enabled=.T.
|
||||||
|
Endif
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
3441
Clase/contab.vc2
Normal file
3441
Clase/contab.vc2
Normal file
File diff suppressed because it is too large
Load Diff
1202
Clase/contabilitate_rapoarte.vc2
Normal file
1202
Clase/contabilitate_rapoarte.vc2
Normal file
File diff suppressed because it is too large
Load Diff
639
Clase/inchideri_sal.vc2
Normal file
639
Clase/inchideri_sal.vc2
Normal file
@@ -0,0 +1,639 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="inchideri_sal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS frm_alege_neridicati AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Check1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="ck_prenume" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="ck_sectie" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="ck_formatie" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="ck_marca" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_txbase1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_txbase2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_txbase3" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*m: do_totaluri
|
||||||
|
*p: lsalvat
|
||||||
|
*p: nan
|
||||||
|
*p: nluna
|
||||||
|
*p: noptiune
|
||||||
|
*p: nsumainit
|
||||||
|
*p: nsumamodif
|
||||||
|
*p: ntotsuma
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 445
|
||||||
|
lsalvat = .F.
|
||||||
|
Name = "frm_alege_neridicati"
|
||||||
|
nan = 0
|
||||||
|
nluna = 0
|
||||||
|
noptiune = 0
|
||||||
|
nsumainit = .F.
|
||||||
|
nsumamodif = .F.
|
||||||
|
ntotsuma = .F.
|
||||||
|
Width = 655
|
||||||
|
_SHAPE1.Height = 29
|
||||||
|
_SHAPE1.Left = 0
|
||||||
|
_SHAPE1.Name = "_SHAPE1"
|
||||||
|
_SHAPE1.Top = 0
|
||||||
|
_SHAPE1.Width = 684
|
||||||
|
_shape2.Left = 581
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
Lb_titlu_alb_b121.Caption = "Salariati"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 7
|
||||||
|
BUT_TERMIN1.Left = 623
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 5
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Left = 216
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
Gridsort1.Top = 4
|
||||||
|
But_renunt1.Left = 594
|
||||||
|
But_renunt1.Name = "But_renunt1"
|
||||||
|
But_renunt1.TabIndex = 8
|
||||||
|
But_renunt1.Top = 1
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
|
||||||
|
ColumnCount = 10, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
Height = 325, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "_grdrow1", ;
|
||||||
|
Panel = 1, ;
|
||||||
|
RecordSource = "crsState", ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 85, ;
|
||||||
|
Width = 624, ;
|
||||||
|
Column1.ControlSource = "marca", ;
|
||||||
|
Column1.Name = "Column1", ;
|
||||||
|
Column1.Width = 37, ;
|
||||||
|
Column2.ControlSource = "nume", ;
|
||||||
|
Column2.Name = "Column2", ;
|
||||||
|
Column3.ControlSource = "prenume", ;
|
||||||
|
Column3.Name = "Column3", ;
|
||||||
|
Column4.ControlSource = "formatia", ;
|
||||||
|
Column4.Name = "Column4", ;
|
||||||
|
Column5.ControlSource = "sectie", ;
|
||||||
|
Column5.Name = "Column5", ;
|
||||||
|
Column6.ControlSource = "lichidare", ;
|
||||||
|
Column6.Name = "Column6", ;
|
||||||
|
Column7.ControlSource = "BIFA", ;
|
||||||
|
Column7.CurrentControl = "Check1", ;
|
||||||
|
Column7.Name = "Column7", ;
|
||||||
|
Column7.Sparse = .F., ;
|
||||||
|
Column7.Width = 35, ;
|
||||||
|
Column8.ControlSource = "sumalicnerid", ;
|
||||||
|
Column8.Name = "Column8", ;
|
||||||
|
Column8.ReadOnly = .F., ;
|
||||||
|
Column8.Width = 94, ;
|
||||||
|
Column9.ControlSource = "an", ;
|
||||||
|
Column9.Name = "Column9", ;
|
||||||
|
Column9.Width = 34, ;
|
||||||
|
Column10.ControlSource = "luna", ;
|
||||||
|
Column10.Name = "Column10", ;
|
||||||
|
Column10.Width = 32
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
|
||||||
|
Caption = "Marca", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column10.Header1' AS header WITH ;
|
||||||
|
Caption = "Luna", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column10.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
|
||||||
|
Caption = "Nume", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
|
||||||
|
Caption = "Prenume", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
|
||||||
|
Caption = "Formatie", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
|
||||||
|
Caption = "Sectie", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ;
|
||||||
|
Caption = "Lichidare", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column6.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column7.Check1' AS checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
Caption = "", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 15, ;
|
||||||
|
Name = "Check1", ;
|
||||||
|
Top = 71, ;
|
||||||
|
Width = 60
|
||||||
|
*< END OBJECT: BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ;
|
||||||
|
Caption = "Alege", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column7.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column8.Header1' AS header WITH ;
|
||||||
|
Caption = "Suma neridicata", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column8.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .F.
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ;
|
||||||
|
Caption = "An", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column9.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_txbase1' AS _txbase WITH ;
|
||||||
|
ControlSource = "thisform.nluna", ;
|
||||||
|
Format = "k", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 367, ;
|
||||||
|
Name = "_txbase1", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 40, ;
|
||||||
|
Width = 35
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_txbase2' AS _txbase WITH ;
|
||||||
|
ControlSource = "thisform.nan", ;
|
||||||
|
Format = "k", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 413, ;
|
||||||
|
Name = "_txbase2", ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 40, ;
|
||||||
|
Width = 48
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_txbase3' AS _txbase WITH ;
|
||||||
|
Alignment = 1, ;
|
||||||
|
ControlSource = "thisform.ntotsuma", ;
|
||||||
|
Height = 23, ;
|
||||||
|
InputMask = (get_mask(12,gnPA)), ;
|
||||||
|
Left = 509, ;
|
||||||
|
Name = "_txbase3", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 417, ;
|
||||||
|
Width = 94
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'ck_formatie' AS ck_filtru_text WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
camp_nume = formatia, ;
|
||||||
|
Caption = "Formatie", ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 95, ;
|
||||||
|
Name = "ck_formatie", ;
|
||||||
|
TabIndex = 12, ;
|
||||||
|
Top = 60, ;
|
||||||
|
Width = 54
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'ck_marca' AS ck_filtru_numar WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
camp_nume = marca, ;
|
||||||
|
Caption = "Marca", ;
|
||||||
|
Left = 167, ;
|
||||||
|
Name = "ck_marca", ;
|
||||||
|
TabIndex = 13, ;
|
||||||
|
Top = 36
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
camp_nume = nume, ;
|
||||||
|
Caption = "Nume", ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 23, ;
|
||||||
|
Name = "Ck_nume", ;
|
||||||
|
TabIndex = 9, ;
|
||||||
|
Top = 36, ;
|
||||||
|
Width = 44
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'ck_prenume' AS ck_filtru_text WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
camp_nume = prenume, ;
|
||||||
|
Caption = "Prenume", ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 23, ;
|
||||||
|
Name = "ck_prenume", ;
|
||||||
|
TabIndex = 10, ;
|
||||||
|
Top = 60, ;
|
||||||
|
Width = 56
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'ck_sectie' AS ck_filtru_text WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
camp_nume = sectie, ;
|
||||||
|
Caption = "Sectie", ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 95, ;
|
||||||
|
Name = "ck_sectie", ;
|
||||||
|
TabIndex = 11, ;
|
||||||
|
Top = 36, ;
|
||||||
|
Width = 44
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||||||
|
Left = 546, ;
|
||||||
|
Name = "Cmd_cauta1", ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 52
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label1' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "/", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 406, ;
|
||||||
|
Name = "Label1", ;
|
||||||
|
TabIndex = 14, ;
|
||||||
|
Top = 43, ;
|
||||||
|
Width = 5
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label2' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Luna / An:", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 309, ;
|
||||||
|
Name = "Label2", ;
|
||||||
|
TabIndex = 15, ;
|
||||||
|
Top = 43, ;
|
||||||
|
Width = 56
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label3' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Total:", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 467, ;
|
||||||
|
Name = "Label3", ;
|
||||||
|
TabIndex = 16, ;
|
||||||
|
Top = 420, ;
|
||||||
|
Width = 32
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
PROCEDURE actualizeaza_grid1
|
||||||
|
Lparameters tcFiltru
|
||||||
|
Local lcFiltru
|
||||||
|
If Empty(tcFiltru)
|
||||||
|
lcFiltru = postat.ca_baza1.cfiltru
|
||||||
|
Else
|
||||||
|
lcFiltru = tcFiltru
|
||||||
|
Endif
|
||||||
|
|
||||||
|
Thisform.MousePointer= 11
|
||||||
|
Thisform.LockScreen=.T.
|
||||||
|
save_grid_tag(Thisform._grdrow1)
|
||||||
|
postat.ca_baza1.cfiltru=lcFiltru
|
||||||
|
postat.ca_baza1.afisare()
|
||||||
|
restore_grid_tag(Thisform._grdrow1)
|
||||||
|
Thisform.LockScreen=.F.
|
||||||
|
Thisform.MousePointer= 0
|
||||||
|
thisform.do_totaluri
|
||||||
|
Select crsState
|
||||||
|
*!* CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ;
|
||||||
|
*!* pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
|
||||||
|
Go Top
|
||||||
|
Thisform.Refresh
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Destroy
|
||||||
|
IF TYPE('pnSumaBifata') = 'N'
|
||||||
|
pnSumaBifata = thisform.ntotsuma
|
||||||
|
ENDIF
|
||||||
|
DODEFAULT()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_cauta
|
||||||
|
Local lcFiltru
|
||||||
|
Store '' To lcFiltru
|
||||||
|
DO CASE
|
||||||
|
CASE thisform.noptiune = 0
|
||||||
|
lcFiltru = [ and lichidare > 0 and BIFALICNERID = 0 and an = ]+Alltrim(Str(thisform.nan))+[ and luna = ]+Alltrim(Str(thisform.nluna))
|
||||||
|
CASE thisform.noptiune = 1
|
||||||
|
lcFiltru = [ and id_fact_lic = ] +ALLTRIM(STR(oireg.id_fact))
|
||||||
|
CASE thisform.noptiune = 3
|
||||||
|
lcFiltru = [ and avans > 0 and BIFAAVNERID = 0 and an = ]+Alltrim(Str(thisform.nan))+[ and luna = ]+Alltrim(Str(thisform.nluna))
|
||||||
|
CASE thisform.noptiune = 4
|
||||||
|
lcFiltru = [ and id_fact_av = ] +ALLTRIM(STR(oireg.id_fact))
|
||||||
|
ENDCASE
|
||||||
|
If Thisform.ck_nume.Value=1
|
||||||
|
lcFiltru = lcFiltru + Thisform.ck_nume.filtru
|
||||||
|
Endif
|
||||||
|
|
||||||
|
If Thisform.ck_sectie.Value=1
|
||||||
|
lcFiltru = lcFiltru + Thisform.ck_sectie.filtru
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
If Thisform.ck_formatie.Value=1
|
||||||
|
lcFiltru = lcFiltru + Thisform.ck_formatie.filtru
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
If Thisform.ck_marca.Value=1
|
||||||
|
lcFiltru = lcFiltru + Thisform.ck_marca.filtru
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
If thisform.ck_prenume.Value=1
|
||||||
|
lcFiltru = lcFiltru + thisform.ck_prenume.filtru
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
IF !EMPTY(lcFiltru)
|
||||||
|
lcFiltru = SUBSTR(lcFiltru,5)
|
||||||
|
ELSE
|
||||||
|
lcFiltru = '1=1'
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
thisform.actualizeaza_grid1(lcFiltru)
|
||||||
|
|
||||||
|
*!* SELECT v_avans
|
||||||
|
*!* SET FILTER TO &lcFiltru
|
||||||
|
*!* thisform.do_calcul
|
||||||
|
|
||||||
|
GO TOP
|
||||||
|
thisform.Refresh
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_totaluri
|
||||||
|
|
||||||
|
LOCAL lnNrReg
|
||||||
|
Select crsState
|
||||||
|
IF RECCOUNT() < 1
|
||||||
|
thisform.ntotsuma = 0
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
lnNrReg = RECNO()
|
||||||
|
IF INLIST(thisform.noptiune, 2, 5)
|
||||||
|
SUM sumalicnerid TO thisform.ntotsuma FOR bifa = 1
|
||||||
|
ELSE
|
||||||
|
SUM sumalicnerid TO thisform.ntotsuma
|
||||||
|
ENDIF
|
||||||
|
SELECT crsState
|
||||||
|
GOTO lnNrReg
|
||||||
|
thisform._txbase3.Refresh()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Init
|
||||||
|
DODEFAULT()
|
||||||
|
thisform.do_totaluri
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Show
|
||||||
|
LPARAMETERS nStyle
|
||||||
|
IF gnluna = 1
|
||||||
|
thisform.nan = gnAn - 1
|
||||||
|
thisform.nluna = 12
|
||||||
|
ELSE
|
||||||
|
thisform.nan = gnAn
|
||||||
|
thisform.nluna = gnLuna - 1
|
||||||
|
ENDIF
|
||||||
|
DO CASE
|
||||||
|
CASE thisform.noptiune = 0 && trecerea lichidarii in drepturi neridicare
|
||||||
|
|
||||||
|
thisform._grdrow1.column8.ReadOnly= .F.&&suma neridicata
|
||||||
|
thisform._grdrow1.column7.Visible = .t. &&bifa
|
||||||
|
thisform.label1.Visible = .t.
|
||||||
|
thisform.label2.Visible = .t.
|
||||||
|
thisform._txbase1.Visible = .t.&&luna
|
||||||
|
thisform._txbase2.Visible = .t. &&an
|
||||||
|
thisform.but_renunt1.Visible = .t.
|
||||||
|
|
||||||
|
CASE thisform.noptiune = 1&& pentru lichidare neridicata
|
||||||
|
|
||||||
|
thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
|
||||||
|
thisform._grdrow1.column7.Visible = .t.&&bifa
|
||||||
|
thisform._grdrow1.column7.heADER1.Caption = 'Achitat' &&bifa
|
||||||
|
thisform._grdrow1.column7.ReadOnly = .t.&&bifa
|
||||||
|
thisform.label1.Visible = .f.
|
||||||
|
thisform.label2.Visible = .f.
|
||||||
|
thisform._txbase1.Visible = .f.&&luna
|
||||||
|
thisform._txbase2.Visible = .f.&&an
|
||||||
|
thisform.but_renunt1.Visible = .f.
|
||||||
|
|
||||||
|
CASE thisform.noptiune = 2&& pentru achitarea lichidarii neridicate
|
||||||
|
|
||||||
|
thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
|
||||||
|
thisform._grdrow1.column7.Visible = .t.&&bifa
|
||||||
|
thisform._grdrow1.column6.Visible = .f.&&lichidare
|
||||||
|
thisform.label1.Visible = .f.
|
||||||
|
thisform.label2.Visible = .f.
|
||||||
|
thisform._txbase1.Visible = .f.&&luna
|
||||||
|
thisform._txbase2.Visible = .f.&&an
|
||||||
|
thisform.but_renunt1.Visible = .f.
|
||||||
|
thisform.ntotsuma=0
|
||||||
|
|
||||||
|
CASE thisform.noptiune = 3 && trecerea avansului in drepturi neridicare
|
||||||
|
|
||||||
|
thisform._grdrow1.column8.ReadOnly= .F.&&suma neridicata
|
||||||
|
thisform._grdrow1.column7.Visible = .t. &&bifa
|
||||||
|
thisform._grdrow1.column6.hEADER1.Caption=[Avans]
|
||||||
|
thisform.label1.Visible = .t.
|
||||||
|
thisform.label2.Visible = .t.
|
||||||
|
thisform._txbase1.Visible = .t.&&luna
|
||||||
|
thisform._txbase2.Visible = .t. &&an
|
||||||
|
thisform.but_renunt1.Visible = .t.
|
||||||
|
|
||||||
|
CASE thisform.noptiune = 4&& pentru avans neridicat
|
||||||
|
|
||||||
|
thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
|
||||||
|
thisform._grdrow1.column7.Visible = .t.&&bifa
|
||||||
|
thisform._grdrow1.column7.heADER1.Caption = 'Achitat' &&bifa
|
||||||
|
thisform._grdrow1.column7.ReadOnly = .t.&&bifa
|
||||||
|
thisform._grdrow1.column6.hEADER1.Caption = [Avans]
|
||||||
|
thisform.label1.Visible = .f.
|
||||||
|
thisform.label2.Visible = .f.
|
||||||
|
thisform._txbase1.Visible = .f.&&luna
|
||||||
|
thisform._txbase2.Visible = .f.&&an
|
||||||
|
thisform.but_renunt1.Visible = .f.
|
||||||
|
|
||||||
|
CASE thisform.noptiune = 5&& pentru achitarea avansului neridicat
|
||||||
|
|
||||||
|
*!* thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
|
||||||
|
thisform._grdrow1.column8.hEADER1.Caption=[Avans]
|
||||||
|
thisform._grdrow1.column7.Visible = .t.&&bifa
|
||||||
|
thisform._grdrow1.column6.Visible = .f.&&lichidare
|
||||||
|
thisform.label1.Visible = .f.
|
||||||
|
thisform.label2.Visible = .f.
|
||||||
|
thisform._txbase1.Visible = .f.&&luna
|
||||||
|
thisform._txbase2.Visible = .f.&&an
|
||||||
|
thisform.but_renunt1.Visible = .f.
|
||||||
|
thisform.ntotsuma=0
|
||||||
|
|
||||||
|
ENDCASE
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _grdrow1.Column7.Check1.Click
|
||||||
|
IF this.ReadOnly = .f.
|
||||||
|
IF !INLIST(thisform.noptiune,2,5)
|
||||||
|
|
||||||
|
IF this.Value = 1
|
||||||
|
SELECT crsState
|
||||||
|
REPLACE sumalicnerid WITH lichidare
|
||||||
|
ELSE
|
||||||
|
SELECT crsState
|
||||||
|
REPLACE sumalicnerid WITH 0
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
thisform.do_totaluri
|
||||||
|
thisform._grdrow1.column8.Refresh()
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _grdrow1.Column7.Header1.DblClick
|
||||||
|
REPLACE ALL bifa WITH 1
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _grdrow1.Column8.Text1.InteractiveChange
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _grdrow1.Column8.Text1.LostFocus
|
||||||
|
thisform.do_totaluri
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
2162
Clase/oOptiuni.vc2
Normal file
2162
Clase/oOptiuni.vc2
Normal file
File diff suppressed because it is too large
Load Diff
1179
Clase/oactualizari.vc2
Normal file
1179
Clase/oactualizari.vc2
Normal file
File diff suppressed because it is too large
Load Diff
500
Clase/oconfigcont.vc2
Normal file
500
Clase/oconfigcont.vc2
Normal file
@@ -0,0 +1,500 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="oconfigcont.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS imob_conturi AS _frmbase 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="grid1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cAcont.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cAcont.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cCont.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cCont.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cSCD.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cSCD.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cASCD.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cASCD.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cSCC.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cSCC.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cASCC.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cASCC.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cId.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cId.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cSectie.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cSectie.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grid1.cSectie._combobox1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 3
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 440
|
||||||
|
Name = "imob_conturi"
|
||||||
|
Width = 710
|
||||||
|
WindowState = 2
|
||||||
|
_shape1.Anchor = 10
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 714
|
||||||
|
_shape2.Anchor = 8
|
||||||
|
_shape2.Left = 719
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = -1
|
||||||
|
_shape2.Visible = .F.
|
||||||
|
Lb_titlu_alb_b121.Caption = "Configurare note inchidere amortizare"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 7
|
||||||
|
BUT_TERMIN1.Anchor = 8
|
||||||
|
BUT_TERMIN1.Left = 677
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 2
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
BUT_TERMIN1.Visible = .T.
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
||||||
|
Anchor = 8, ;
|
||||||
|
Left = 557, ;
|
||||||
|
Name = "But_excel1", ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 1, ;
|
||||||
|
Visible = .T.
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||||||
|
Anchor = 8, ;
|
||||||
|
Left = 586, ;
|
||||||
|
Name = "But_nou1", ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 1, ;
|
||||||
|
Visible = .T.
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||||||
|
Anchor = 8, ;
|
||||||
|
Left = 646, ;
|
||||||
|
Name = "But_renunt1", ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 1
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||||||
|
Anchor = 8, ;
|
||||||
|
Left = 616, ;
|
||||||
|
Name = "But_sterge1", ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 1, ;
|
||||||
|
Visible = .T.
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1' AS _grdbase WITH ;
|
||||||
|
Anchor = 15, ;
|
||||||
|
ColumnCount = 8, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
Height = 398, ;
|
||||||
|
Left = 8, ;
|
||||||
|
Name = "grid1", ;
|
||||||
|
Panel = 1, ;
|
||||||
|
RecordSource = "imob_conturi", ;
|
||||||
|
RowHeight = 18, ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 38, ;
|
||||||
|
Width = 700, ;
|
||||||
|
Column1.ColumnOrder = 2, ;
|
||||||
|
Column1.ControlSource = "acont", ;
|
||||||
|
Column1.FontName = "Arial", ;
|
||||||
|
Column1.FontSize = 9, ;
|
||||||
|
Column1.Format = "K", ;
|
||||||
|
Column1.Name = "cAcont", ;
|
||||||
|
Column1.Width = 55, ;
|
||||||
|
Column2.ColumnOrder = 1, ;
|
||||||
|
Column2.ControlSource = "cont", ;
|
||||||
|
Column2.FontName = "Arial", ;
|
||||||
|
Column2.FontSize = 9, ;
|
||||||
|
Column2.Format = "K", ;
|
||||||
|
Column2.Name = "cCont", ;
|
||||||
|
Column2.Width = 69, ;
|
||||||
|
Column3.ColumnOrder = 4, ;
|
||||||
|
Column3.ControlSource = "scd", ;
|
||||||
|
Column3.FontName = "Arial", ;
|
||||||
|
Column3.FontSize = 9, ;
|
||||||
|
Column3.Format = "K", ;
|
||||||
|
Column3.Name = "cSCD", ;
|
||||||
|
Column3.Width = 73, ;
|
||||||
|
Column4.ColumnOrder = 5, ;
|
||||||
|
Column4.ControlSource = "ascd", ;
|
||||||
|
Column4.FontName = "Arial", ;
|
||||||
|
Column4.FontSize = 9, ;
|
||||||
|
Column4.Format = "K", ;
|
||||||
|
Column4.Name = "cASCD", ;
|
||||||
|
Column4.Width = 75, ;
|
||||||
|
Column5.ColumnOrder = 6, ;
|
||||||
|
Column5.ControlSource = "scc", ;
|
||||||
|
Column5.FontName = "Arial", ;
|
||||||
|
Column5.FontSize = 9, ;
|
||||||
|
Column5.Format = "K", ;
|
||||||
|
Column5.Name = "cSCC", ;
|
||||||
|
Column5.Width = 68, ;
|
||||||
|
Column6.ColumnOrder = 7, ;
|
||||||
|
Column6.ControlSource = "ascc", ;
|
||||||
|
Column6.FontName = "Arial", ;
|
||||||
|
Column6.FontSize = 9, ;
|
||||||
|
Column6.Format = "K", ;
|
||||||
|
Column6.Name = "cASCC", ;
|
||||||
|
Column6.Width = 81, ;
|
||||||
|
Column7.ColumnOrder = 8, ;
|
||||||
|
Column7.ControlSource = "id", ;
|
||||||
|
Column7.FontName = "Arial", ;
|
||||||
|
Column7.FontSize = 9, ;
|
||||||
|
Column7.Name = "cId", ;
|
||||||
|
Column7.ReadOnly = .T., ;
|
||||||
|
Column7.Width = 55, ;
|
||||||
|
Column8.Bound = .F., ;
|
||||||
|
Column8.ColumnOrder = 3, ;
|
||||||
|
Column8.ControlSource = "Iif(Seek(imob_conturi.id_sectie,'vnom_sectii','id_sectie'),vnom_sectii.sectie,'')", ;
|
||||||
|
Column8.CurrentControl = "_combobox1", ;
|
||||||
|
Column8.FontName = "Arial", ;
|
||||||
|
Column8.Name = "cSectie", ;
|
||||||
|
Column8.Sparse = .F., ;
|
||||||
|
Column8.Width = 182
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cAcont.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Analitic", ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cAcont.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cASCC.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Analitic amort.", ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cASCC.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cASCD.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Analitic chelt.", ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cASCD.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cCont.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cont", ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cCont.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cId.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Id", ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cId.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cSCC.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cont amort.", ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cSCC.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cSCD.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cont chelt.", ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cSCD.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial", ;
|
||||||
|
FontSize = 9, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cSectie._combobox1' AS _combobox WITH ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
BoundColumn = 2, ;
|
||||||
|
BoundTo = .T., ;
|
||||||
|
ControlSource = "imob_conturi.id_sectie", ;
|
||||||
|
Left = 119, ;
|
||||||
|
Name = "_combobox1", ;
|
||||||
|
RowSource = "select vnom_sectii.sectie, id_sectie from vnom_sectii into cursor crsSectii order by sectie", ;
|
||||||
|
RowSourceType = 3, ;
|
||||||
|
Top = 81
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cSectie.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Sectie", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid1.cSectie.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
SelectedBackColor = 100,185,255
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
||||||
|
gridexpression = Thisform.grid1, ;
|
||||||
|
Left = 624, ;
|
||||||
|
Name = "Gridextra1", ;
|
||||||
|
Top = 120
|
||||||
|
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||||||
|
|
||||||
|
PROCEDURE do_adauga
|
||||||
|
LOCAL loRec
|
||||||
|
Sele imob_conturi
|
||||||
|
IF !EMPTY(NVL(cont,''))
|
||||||
|
SCATTER NAME loRec FIELDS EXCEPT id
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
APPEND BLANK
|
||||||
|
IF TYPE('loRec') = 'O'
|
||||||
|
GATHER NAME loRec
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
thisform.grid1.cCont.text1.SetFocus()
|
||||||
|
Thisform.grid1.Refresh()
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_excel
|
||||||
|
DO export_excel_grid WITH thisform.grid1
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_sterge
|
||||||
|
Select imob_conturi
|
||||||
|
lcCont = Alltrim(Cont) + Iif(!Empty(Nvl(acont, '')), '.' + Alltrim(acont),"")
|
||||||
|
|
||||||
|
If AMESSAGEBOX('Se sterge configurarea pentru contul ' + m.lcCont,4+32,_Screen.Caption) <> 6
|
||||||
|
Return
|
||||||
|
Endif
|
||||||
|
Sele imob_conturi
|
||||||
|
Delete
|
||||||
|
Try
|
||||||
|
Skip -1
|
||||||
|
Catch
|
||||||
|
GO TOP
|
||||||
|
Endtry
|
||||||
|
|
||||||
|
Thisform.grid1.SetFocus()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE inainte_de_do_termin
|
||||||
|
Local llSucces, llSucces2, lcText
|
||||||
|
Local lcDeleted, lcExec
|
||||||
|
PRIVATE poRec
|
||||||
|
llSucces = .T.
|
||||||
|
lcText = ''
|
||||||
|
Wait Window 'Se actualizeaza inregistrarile...' Nowait
|
||||||
|
|
||||||
|
SELECT id_sectie, sectie, cont, acont, COUNT(*) as nr FROM imob_conturi GROUP BY id_sectie, sectie, cont, acont HAVING COUNT(*) > 1 INTO CURSOR cVerificareTemp
|
||||||
|
IF _tally > 0
|
||||||
|
llSucces = .F.
|
||||||
|
SELECT cVerificareTemp
|
||||||
|
SCAN
|
||||||
|
lcText = lcText + ALLTRIM(sectie) + ' ' + ALLTRIM(cont) + IIF(!EMPTY(NVL(acont,'')), '.' + ALLTRIM(acont), '') + CHR(13) + CHR(10)
|
||||||
|
ENDSCAN
|
||||||
|
USE IN (SELECT('cVerificareTemp'))
|
||||||
|
lcText = 'Conturile urmatoare apar de mai multe ori in lista. Pastrati o singura pozitie!' + CHR(13) + CHR(10) + m.lcText
|
||||||
|
AMESSAGEBOX(m.lcText,0+48,_screen.Caption)
|
||||||
|
ENDIF
|
||||||
|
IF !m.llSucces
|
||||||
|
RETURN m.llSucces
|
||||||
|
endi
|
||||||
|
|
||||||
|
llSucces = This.do_deschide_tranzactie()
|
||||||
|
If m.llSucces
|
||||||
|
lcDeleted = Set("Deleted")
|
||||||
|
Set Deleted Off
|
||||||
|
|
||||||
|
Select imob_conturi
|
||||||
|
Scan
|
||||||
|
Scatter Name poRec
|
||||||
|
WAIT WINDOW TRANSFORM(RECNO()) + '/' + TRANSFORM(RECCOUNT()) NOWAIT
|
||||||
|
lcExec = ''
|
||||||
|
poRec.id_sectie = IIF(EMPTY(NVL(poRec.id_sectie,0)), NULL, poRec.id_sectie)
|
||||||
|
|
||||||
|
If !Empty(Nvl(poRec.Id, 0))
|
||||||
|
If Deleted()
|
||||||
|
lcExec = 'DELETE FROM imob_inchidere WHERE id = ?poRec.id'
|
||||||
|
Else
|
||||||
|
lcExec = 'UPDATE imob_inchidere set id_sectie = ?poRec.id_sectie, cont = TRIM(?poRec.cont), acont = TRIM(?poRec.acont), scd = TRIM(?poRec.scd), ascd = TRIM(?poRec.ascd), scc = TRIM(?poRec.scc), ascc = TRIM(?poRec.ascc) WHERE id = ?poRec.id'
|
||||||
|
Endif
|
||||||
|
Else
|
||||||
|
If !Deleted()
|
||||||
|
lcExec = 'INSERT INTO imob_inchidere (id_sectie, cont, acont, scd, ascd, scc, ascc) values (?poRec.id_sectie, TRIM(?poRec.cont), TRIM(?poRec.acont), TRIM(?poRec.scd), TRIM(?poRec.ascd), TRIM(?poRec.scc), TRIM(?poRec.ascc))'
|
||||||
|
Endif
|
||||||
|
Endif
|
||||||
|
If !Empty(m.lcExec)
|
||||||
|
lnSucces = goExecutor.oExecute(m.lcExec)
|
||||||
|
llSucces = (m.lnSucces > 0)
|
||||||
|
If !m.llSucces
|
||||||
|
AMESSAGEBOX('Sectie: ' + ALLTRIM(NVL(sectie,'')) + ' Cont: ' + ALLTRIM(NVL(poRec.cont,'')) + ;
|
||||||
|
IIF(!EMPTY(NVL(poRec.acont,'')), '.' + ALLTRIM(poRec.acont), '') + CHR(13) + CHR(10) + ;
|
||||||
|
goExecutor.oPrelucrareEroare(),0+48,_screen.Caption)
|
||||||
|
Exit
|
||||||
|
Endif
|
||||||
|
Endif
|
||||||
|
Endscan
|
||||||
|
If m.llSucces
|
||||||
|
llSucces = This.do_inchide_tranzactie(1) && COMMIT
|
||||||
|
Else
|
||||||
|
llSucces2 = This.do_inchide_tranzactie(2) && ROLLBACK
|
||||||
|
Endif
|
||||||
|
Set Deleted &lcDeleted
|
||||||
|
Endif
|
||||||
|
|
||||||
|
Return m.llSucces
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Init
|
||||||
|
DODEFAULT()
|
||||||
|
|
||||||
|
this.WindowState = 2
|
||||||
|
this.grid1.AutoFit()
|
||||||
|
lnHeight = this.Height
|
||||||
|
*!* this.WindowState = 0
|
||||||
|
this.Width = 500
|
||||||
|
this.Height = m.lnHeight
|
||||||
|
|
||||||
|
|
||||||
|
this.gridextra1.setup()
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grid1.cAcont.Text1.LostFocus
|
||||||
|
PARAMETERS PlClick
|
||||||
|
lcCont = ALLTRIM(NVL(cont,''))
|
||||||
|
lcAcont = ALLTRIM(NVL(acont,''))
|
||||||
|
llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'acont','imob_conturi') && in oOperatii_comune.prg
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grid1.cASCC.Text1.LostFocus
|
||||||
|
PARAMETERS PlClick
|
||||||
|
lcCont = ALLTRIM(NVL(scc,''))
|
||||||
|
lcAcont = ALLTRIM(NVL(ascc,''))
|
||||||
|
llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'ascc','imob_conturi') && in oOperatii_comune.prg
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grid1.cASCD.AddObject
|
||||||
|
LPARAMETERS cName, cClass
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grid1.cASCD.Text1.LostFocus
|
||||||
|
PARAMETERS PlClick
|
||||||
|
lcCont = ALLTRIM(NVL(scd,''))
|
||||||
|
lcAcont = ALLTRIM(NVL(ascd,''))
|
||||||
|
llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'ascd','imob_conturi') && in oOperatii_comune.prg
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grid1.cSectie._combobox1.Valid
|
||||||
|
REPLACE sectie WITH crsSectii.sectie IN imob_conturi
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grid1.Init
|
||||||
|
* NU STERGE
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
641
Clase/oconversii.vc2
Normal file
641
Clase/oconversii.vc2
Normal file
@@ -0,0 +1,641 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="oconversii.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS frm_conversie_conturi AS _frmbase 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="grdConturi" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cContVechi.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cContVechi.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cContNou.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cContNou.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Check1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*m: adaugare
|
||||||
|
*m: log
|
||||||
|
*m: modificare
|
||||||
|
*m: modificare_cont_balanta
|
||||||
|
*m: modificare_cont_plan
|
||||||
|
*m: stergere
|
||||||
|
*p: cacontnou
|
||||||
|
*p: cacontvechi
|
||||||
|
*p: ccontnou
|
||||||
|
*p: ccontvechi
|
||||||
|
*p: cconversie
|
||||||
|
*p: csubiectconversie
|
||||||
|
*p: lseaplica
|
||||||
|
*p: nid
|
||||||
|
*p: nseaplica
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 1
|
||||||
|
cacontnou =
|
||||||
|
cacontvechi =
|
||||||
|
ccontnou =
|
||||||
|
ccontvechi =
|
||||||
|
cconversie =
|
||||||
|
csubiectconversie =
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 521
|
||||||
|
lseaplica = .F.
|
||||||
|
Name = "frm_conversie_conturi"
|
||||||
|
nid = 0
|
||||||
|
nseaplica = 0
|
||||||
|
Width = 599
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 600
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 606
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 24
|
||||||
|
Lb_titlu_alb_b121.Caption = "Configurare conturi"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 7
|
||||||
|
BUT_TERMIN1.Left = 568
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 2
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Left = 9
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
Gridsort1.Top = 27
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||||||
|
Left = 477, ;
|
||||||
|
Name = "But_modifica1", ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 1
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||||||
|
Left = 447, ;
|
||||||
|
Name = "But_nou1", ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 2
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
|
||||||
|
Left = 537, ;
|
||||||
|
Name = "BUT_RENUNT1", ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 1
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||||||
|
Left = 507, ;
|
||||||
|
Name = "But_sterge1", ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 1
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi' AS _grdbase WITH ;
|
||||||
|
ColumnCount = 6, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
Height = 477, ;
|
||||||
|
HighlightStyle = 2, ;
|
||||||
|
Left = 8, ;
|
||||||
|
Name = "grdConturi", ;
|
||||||
|
Panel = 1, ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
RecordSource = "crsConversieConturi", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 37, ;
|
||||||
|
Width = 581, ;
|
||||||
|
Column1.ControlSource = "explicatie", ;
|
||||||
|
Column1.Name = "cExplicatie", ;
|
||||||
|
Column1.ReadOnly = .T., ;
|
||||||
|
Column1.Width = 233, ;
|
||||||
|
Column2.ControlSource = "cont_vechi", ;
|
||||||
|
Column2.Name = "cContVechi", ;
|
||||||
|
Column2.ReadOnly = .T., ;
|
||||||
|
Column2.Width = 61, ;
|
||||||
|
Column3.ControlSource = "acont_vechi", ;
|
||||||
|
Column3.Name = "cAcontVechi", ;
|
||||||
|
Column3.ReadOnly = .T., ;
|
||||||
|
Column3.Width = 74, ;
|
||||||
|
Column4.ControlSource = "cont_nou", ;
|
||||||
|
Column4.Name = "cContNou", ;
|
||||||
|
Column4.ReadOnly = .T., ;
|
||||||
|
Column4.Width = 58, ;
|
||||||
|
Column5.ControlSource = "acont_nou", ;
|
||||||
|
Column5.Name = "cAcontNou", ;
|
||||||
|
Column5.ReadOnly = .T., ;
|
||||||
|
Column5.Width = 67, ;
|
||||||
|
Column6.ControlSource = "se_aplica", ;
|
||||||
|
Column6.CurrentControl = "Check1", ;
|
||||||
|
Column6.Name = "cSeAplica", ;
|
||||||
|
Column6.ReadOnly = .T., ;
|
||||||
|
Column6.Sparse = .F., ;
|
||||||
|
Column6.Width = 52
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cAcontNou.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Analitic nou", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cAcontNou.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cAcontVechi.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Analitic vechi", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cAcontVechi.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cContNou.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cont nou", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cContNou.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cContVechi.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cont vechi", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cContVechi.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cExplicatie.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Explicatie", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cExplicatie.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cSeAplica.Check1' AS checkbox WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
Caption = "", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 29, ;
|
||||||
|
Name = "Check1", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
Top = 35, ;
|
||||||
|
Width = 60
|
||||||
|
*< END OBJECT: BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cSeAplica.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Se aplica", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grdConturi.cSeAplica.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE adaugare
|
||||||
|
LPARAMETERS toRec
|
||||||
|
|
||||||
|
INSERT INTO crsConversieConturi FROM NAME toRec
|
||||||
|
|
||||||
|
this.grdConturi.SetFocus()
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_adauga
|
||||||
|
PRIVATE pnId
|
||||||
|
pnId = 0
|
||||||
|
|
||||||
|
PRIVATE poRec
|
||||||
|
SELECT crsConversieConturi
|
||||||
|
SCATTER NAME poRec BLANK
|
||||||
|
poRec.tip_sold = "A"
|
||||||
|
poRec.conversie = this.cConversie
|
||||||
|
poRec.se_aplica = 1
|
||||||
|
loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou")
|
||||||
|
loFrmModifica.show(1)
|
||||||
|
IF gnButon = 1
|
||||||
|
lcSql = [BEGIN pack_conversie.adauga_cont(?@poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ?poRec.conversie); END;]
|
||||||
|
lnSucces = goExecutor.oExecute(lcSql)
|
||||||
|
IF lnSucces < 0
|
||||||
|
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
|
||||||
|
ELSE
|
||||||
|
this.adaugare(poRec)
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_modifica
|
||||||
|
IF RECCOUNT('crsConversieConturi') = 0
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
PRIVATE poRec
|
||||||
|
SELECT crsConversieConturi
|
||||||
|
SCATTER NAME poRec
|
||||||
|
loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou")
|
||||||
|
loFrmModifica.show(1)
|
||||||
|
|
||||||
|
IF gnButon = 1
|
||||||
|
lcSql = [BEGIN pack_conversie.modifica_cont(?poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ] + [?ALLTRIM(UPPER(poRec.conversie))); END;]
|
||||||
|
lnSucces = goExecutor.oExecute(lcSql)
|
||||||
|
IF lnSucces < 0
|
||||||
|
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
|
||||||
|
ELSE
|
||||||
|
this.modificare(poRec)
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_sterge
|
||||||
|
PRIVATE poRec
|
||||||
|
SELECT crsConversieConturi
|
||||||
|
SCATTER NAME poRec
|
||||||
|
|
||||||
|
IF AMESSAGEBOX('Doriti sa stergeti conversia ' + NVL(poRec.cont_vechi,'') + '.' + NVL(poRec.acont_vechi,'') + ' in ' + NVL(poRec.cont_nou,'') + '.' + NVL(poRec.acont_nou,'') + '?',4+32,'Sterge') = 6
|
||||||
|
lcSql = [BEGIN pack_conversie.sterge_cont(?poRec.id); END;]
|
||||||
|
lnSucces = goExecutor.oExecute(lcSql)
|
||||||
|
IF lnSucces < 0
|
||||||
|
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
|
||||||
|
ELSE
|
||||||
|
this.stergere(poRec)
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
this.grdConturi.SetFocus()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE log
|
||||||
|
LPARAMETERS tctabela,tnId
|
||||||
|
|
||||||
|
IF EMPTY(tnId)
|
||||||
|
tnId = 0
|
||||||
|
ENDIF
|
||||||
|
lcId = ALLTRIM(STR(tnId))
|
||||||
|
lctabela = UPPER(ALLTRIM(NVL(tctabela,'')))
|
||||||
|
PRIVATE polog,pcschema1,pcselect1
|
||||||
|
STORE '' TO polog
|
||||||
|
pcschema1 = ['']
|
||||||
|
pcselect1=['select * from ] + gcS + [.vlog where ']
|
||||||
|
pcorder1=['dataora']
|
||||||
|
pcfiltru1 = [tabel = '] + lctabela + ['] + IIF(!EMPTY(tnId), [ and id_tabel = ] + lcId , '')
|
||||||
|
gencursor('polog','v_log',pcselect1,pcfiltru1,pcschema1,pcorder1)
|
||||||
|
polog.ca_baza1.afisare()
|
||||||
|
ofrmlog=CREATEOBJECT('frm_log')
|
||||||
|
ofrmlog.show(1)
|
||||||
|
RELEASE polog
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE modificare
|
||||||
|
LPARAMETERS toRec
|
||||||
|
|
||||||
|
SELECT crsConversieConturi
|
||||||
|
GATHER NAME toRec
|
||||||
|
|
||||||
|
this.grdConturi.SetFocus()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE modificare_cont_balanta
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE modificare_cont_plan
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE stergere
|
||||||
|
LPARAMETERS toRec
|
||||||
|
SELECT crsConversieConturi
|
||||||
|
DELETE &&FOR ID = toRec.id
|
||||||
|
LOCATE
|
||||||
|
this.grdConturi.SetFocus()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grdConturi.cContNou.Text1.Valid
|
||||||
|
LOCAL lnSucces, lcContNou
|
||||||
|
lnSucces = 1
|
||||||
|
lcContNou = ALLTRIM(crsConversieConturi.cont_Nou)
|
||||||
|
IF lcContNou <> thisform.cContNou
|
||||||
|
IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6
|
||||||
|
lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou)
|
||||||
|
ELSE
|
||||||
|
lnSucces = -1
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
IF lnSucces = -1
|
||||||
|
REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi
|
||||||
|
ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grdConturi.cContNou.Text1.When
|
||||||
|
thisform.nId = crsConversieConturi.id
|
||||||
|
thisform.cContNou = crsConversieConturi.cont_nou
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grdConturi.cContVechi.Text1.Valid
|
||||||
|
LOCAL lnSucces, lcContNou
|
||||||
|
lnSucces = 1
|
||||||
|
lcContNou = ALLTRIM(crsConversieConturi.cont_Nou)
|
||||||
|
IF lcContNou <> thisform.cContNou
|
||||||
|
IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6
|
||||||
|
lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou)
|
||||||
|
ELSE
|
||||||
|
lnSucces = -1
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
IF lnSucces = -1
|
||||||
|
REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi
|
||||||
|
ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grdConturi.cContVechi.Text1.When
|
||||||
|
thisform.nId = crsConversieConturi.id
|
||||||
|
thisform.cContNou = crsConversieConturi.cont_Nou
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grdConturi.cExplicatie.Text1.DblClick
|
||||||
|
thisform.log("CONVERSIE_CONTURI",crsConversieConturi.id)
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grdConturi.cSeAplica.Check1.When
|
||||||
|
thisform.nId = crsConversieConturi.id
|
||||||
|
thisform.nSeAplica = crsConversieConturi.se_aplica
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE grdConturi.DblClick
|
||||||
|
thisform.log("CONVERSIE_CONTURI")
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS frm_conversie_conturi_nou AS _frmbase 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="clb_explicatie" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="clb_contvechi" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="clb_contnou" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="clb_acontvechi" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="clb_acontnou" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="chk_seaplica" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="clb_tipcont" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 1
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 176
|
||||||
|
Name = "frm_conversie_conturi_nou"
|
||||||
|
Width = 375
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 372
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 2
|
||||||
|
Lb_titlu_alb_b121.Caption = "Conversie conturi"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 10
|
||||||
|
BUT_TERMIN1.Left = 345
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 8
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
|
||||||
|
Left = 315, ;
|
||||||
|
Name = "BUT_RENUNT1", ;
|
||||||
|
TabIndex = 9, ;
|
||||||
|
Top = 1
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'chk_seaplica' AS _checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
Caption = "Se aplica", ;
|
||||||
|
ControlSource = "poRec.se_aplica", ;
|
||||||
|
Left = 9, ;
|
||||||
|
Name = "chk_seaplica", ;
|
||||||
|
TabIndex = 7, ;
|
||||||
|
Top = 154
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'clb_acontnou' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 135, ;
|
||||||
|
Name = "clb_acontnou", ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 64, ;
|
||||||
|
Width = 142, ;
|
||||||
|
TEXT_SIMPLU1.ControlSource = "poRec.acont_nou", ;
|
||||||
|
TEXT_SIMPLU1.Height = 23, ;
|
||||||
|
TEXT_SIMPLU1.Left = 83, ;
|
||||||
|
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||||
|
TEXT_SIMPLU1.Top = 3, ;
|
||||||
|
TEXT_SIMPLU1.Width = 55, ;
|
||||||
|
LB_SIMPLU1.Caption = "Analitic nou", ;
|
||||||
|
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'clb_acontvechi' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 135, ;
|
||||||
|
Name = "clb_acontvechi", ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 36, ;
|
||||||
|
Width = 142, ;
|
||||||
|
TEXT_SIMPLU1.ControlSource = "poRec.acont_vechi", ;
|
||||||
|
TEXT_SIMPLU1.Height = 23, ;
|
||||||
|
TEXT_SIMPLU1.Left = 83, ;
|
||||||
|
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||||
|
TEXT_SIMPLU1.Top = 3, ;
|
||||||
|
TEXT_SIMPLU1.Width = 55, ;
|
||||||
|
LB_SIMPLU1.Caption = "Analitic vechi", ;
|
||||||
|
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'clb_contnou' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 6, ;
|
||||||
|
Name = "clb_contnou", ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 64, ;
|
||||||
|
Width = 130, ;
|
||||||
|
TEXT_SIMPLU1.ControlSource = "poRec.cont_nou", ;
|
||||||
|
TEXT_SIMPLU1.Height = 23, ;
|
||||||
|
TEXT_SIMPLU1.Left = 71, ;
|
||||||
|
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||||
|
TEXT_SIMPLU1.Top = 3, ;
|
||||||
|
TEXT_SIMPLU1.Width = 55, ;
|
||||||
|
LB_SIMPLU1.Caption = "Cont nou", ;
|
||||||
|
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'clb_contvechi' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 6, ;
|
||||||
|
Name = "clb_contvechi", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 36, ;
|
||||||
|
Width = 130, ;
|
||||||
|
TEXT_SIMPLU1.ControlSource = "poRec.cont_vechi", ;
|
||||||
|
TEXT_SIMPLU1.Height = 23, ;
|
||||||
|
TEXT_SIMPLU1.Left = 71, ;
|
||||||
|
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||||
|
TEXT_SIMPLU1.Top = 3, ;
|
||||||
|
TEXT_SIMPLU1.Width = 55, ;
|
||||||
|
LB_SIMPLU1.Caption = "Cont vechi", ;
|
||||||
|
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'clb_explicatie' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 6, ;
|
||||||
|
Name = "clb_explicatie", ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 92, ;
|
||||||
|
Width = 360, ;
|
||||||
|
TEXT_SIMPLU1.ControlSource = "poRec.explicatie", ;
|
||||||
|
TEXT_SIMPLU1.Height = 23, ;
|
||||||
|
TEXT_SIMPLU1.Left = 70, ;
|
||||||
|
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||||
|
TEXT_SIMPLU1.Top = 3, ;
|
||||||
|
TEXT_SIMPLU1.Width = 286, ;
|
||||||
|
LB_SIMPLU1.Caption = "Explicatie", ;
|
||||||
|
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'clb_tipcont' AS cb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 6, ;
|
||||||
|
Name = "clb_tipcont", ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 120, ;
|
||||||
|
Width = 271, ;
|
||||||
|
_CBBASE1.ControlSource = "poRec.tip_sold", ;
|
||||||
|
_CBBASE1.Height = 23, ;
|
||||||
|
_CBBASE1.Left = 170, ;
|
||||||
|
_CBBASE1.Name = "_CBBASE1", ;
|
||||||
|
_CBBASE1.RowSource = "A,P,B", ;
|
||||||
|
_CBBASE1.RowSourceType = 1, ;
|
||||||
|
_CBBASE1.Top = 3, ;
|
||||||
|
_CBBASE1.Width = 99, ;
|
||||||
|
_LBBASE1.Caption = "Tip cont nou", ;
|
||||||
|
_LBBASE1.Name = "_LBBASE1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
PROCEDURE inainte_de_do_termin
|
||||||
|
DO CASE
|
||||||
|
CASE (EMPTY(poRec.cont_vechi) OR ISNULL(poRec.cont_vechi)) AND (EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou))
|
||||||
|
AMESSAGEBOX('Completati contul nou',0+48,'Atentie')
|
||||||
|
THIS.clb_contnou.teXT_SIMPLU1.SetFocus()
|
||||||
|
RETURN .F.
|
||||||
|
CASE EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou)
|
||||||
|
AMESSAGEBOX('Completati contul nou',0+48,'Atentie')
|
||||||
|
THIS.clb_contnou.teXT_SIMPLU1.SetFocus()
|
||||||
|
RETURN .F.
|
||||||
|
CASE EMPTY(poRec.explicatie) OR ISNULL(poRec.explicatie)
|
||||||
|
AMESSAGEBOX('Completati explicatia',0+48,'Atentie')
|
||||||
|
THIS.clb_explicatie.teXT_SIMPLU1.SetFocus()
|
||||||
|
RETURN .F.
|
||||||
|
ENDCASE
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE clb_tipcont._CBBASE1.Init
|
||||||
|
DO CASE
|
||||||
|
CASE porec.tip_sold = "A"
|
||||||
|
this.Value = "A"
|
||||||
|
CASE porec.tip_sold = "P"
|
||||||
|
this.Value = "P"
|
||||||
|
CASE porec.tip_sold = "B"
|
||||||
|
this.Value = "B"
|
||||||
|
OTHERWISE
|
||||||
|
**nada..
|
||||||
|
ENDCASE
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE clb_tipcont._CBBASE1.LostFocus
|
||||||
|
DO CASE
|
||||||
|
CASE this.Value = "Activ"
|
||||||
|
porec.tip_sold = "A"
|
||||||
|
CASE this.Value = "Pasiv"
|
||||||
|
porec.tip_sold = "P"
|
||||||
|
CASE this.Value = "Bifunctional"
|
||||||
|
porec.tip_sold = "B"
|
||||||
|
ENDCASE
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE clb_tipcont._CBBASE1.Valid
|
||||||
|
DO CASE
|
||||||
|
CASE this.Value = "A"
|
||||||
|
porec.tip_sold = "A"
|
||||||
|
CASE this.Value = "P"
|
||||||
|
porec.tip_sold = "P"
|
||||||
|
CASE this.Value = "B"
|
||||||
|
porec.tip_sold = "B"
|
||||||
|
ENDCASE
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
1610
Clase/odebcred.vc2
Normal file
1610
Clase/odebcred.vc2
Normal file
File diff suppressed because it is too large
Load Diff
9634
Clase/ointroduceri_cont.vc2
Normal file
9634
Clase/ointroduceri_cont.vc2
Normal file
File diff suppressed because it is too large
Load Diff
513
Clase/orapoarte_contabilitate.vc2
Normal file
513
Clase/orapoarte_contabilitate.vc2
Normal file
@@ -0,0 +1,513 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_contabilitate.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS frm_date_rap_balpart_temp AS _frmbase 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="But_excel1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="ed_explicatii_filtru" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_reset2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 1
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 302
|
||||||
|
Name = "frm_date_rap_balpart_temp"
|
||||||
|
Width = 562
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 564
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 439
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 125
|
||||||
|
Lb_titlu_alb_b121.Caption = "RAPORT BAZAT PE BALANTE PARTENERI"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
BUT_TERMIN1.Left = 533
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT '_label1' AS _label WITH ;
|
||||||
|
Caption = "Alegeti criteriile de cautare (butonul binoclu) si apasati pe butonul Export XLS", ;
|
||||||
|
Left = 15, ;
|
||||||
|
Name = "_label1", ;
|
||||||
|
Top = 39
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
||||||
|
Anchor = 9, ;
|
||||||
|
Left = 503, ;
|
||||||
|
Name = "But_excel1", ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 1, ;
|
||||||
|
ZOrderSet = 6
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_reset2' AS but_reset WITH ;
|
||||||
|
Anchor = 9, ;
|
||||||
|
caction = do_reset_filtru, ;
|
||||||
|
Left = 443, ;
|
||||||
|
Name = "But_reset2", ;
|
||||||
|
TabIndex = 9, ;
|
||||||
|
ToolTipText = "Reseteaza filtru", ;
|
||||||
|
Top = 1, ;
|
||||||
|
ZOrderSet = 14
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
|
||||||
|
Anchor = 9, ;
|
||||||
|
lcautare = .F., ;
|
||||||
|
Left = 473, ;
|
||||||
|
Name = "But_start_criterii1", ;
|
||||||
|
TabIndex = 13, ;
|
||||||
|
Top = 1, ;
|
||||||
|
ZOrderSet = 15
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'ed_explicatii_filtru' AS _editbox WITH ;
|
||||||
|
Anchor = 13, ;
|
||||||
|
ControlSource = "Thisform.filtru_pretty_ro", ;
|
||||||
|
Height = 228, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "ed_explicatii_filtru", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
TabIndex = 12, ;
|
||||||
|
Top = 60, ;
|
||||||
|
Width = 540, ;
|
||||||
|
ZOrderSet = 12
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="editbox" />
|
||||||
|
|
||||||
|
PROCEDURE do_excel
|
||||||
|
Local lcFileName,lcSql,lcCursor, lcCursorExport, lnSucces, lcFiltruPerioada, lcCondSoldInitial
|
||||||
|
lcFileName = ""
|
||||||
|
lcCursor = [crsRaport]
|
||||||
|
lcCursorExport = [crsExport]
|
||||||
|
|
||||||
|
If Used(lcCursor)
|
||||||
|
Use In (lcCursor)
|
||||||
|
Endif
|
||||||
|
|
||||||
|
lcFiltru = [AND ] + Thisform.filtru_pretty + [ AND]
|
||||||
|
lnPozitie = 1
|
||||||
|
lcFiltruPerioada = []
|
||||||
|
Do While .T.
|
||||||
|
lcElement = Strextract(lcFiltru,[AND],[AND],lnPozitie)
|
||||||
|
If Empty(lcElement)
|
||||||
|
Exit
|
||||||
|
Endif
|
||||||
|
If Upper(Substr(Alltrim(lcElement),1,10)) = [AN*12+LUNA]
|
||||||
|
lcFiltruPerioada = lcFiltruPerioada + [ AND ] + lcElement
|
||||||
|
Endif
|
||||||
|
lnPozitie = lnPozitie + 1
|
||||||
|
ENDDO
|
||||||
|
IF EMPTY(m.lcFiltruPerioada)
|
||||||
|
AMESSAGEBOX('Completati perioada de raportare!',0+48,_screen.Caption)
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
lcFiltruPerioada = Substr(lcFiltruPerioada,5)
|
||||||
|
|
||||||
|
lcSql = [select pivot_gen.build_sql_complex2('VRAPOARTE_BALPART',] + ;
|
||||||
|
['GROUPING_ID(CONT,ACONT,DENUMIRE,COD_FISCAL) AS GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ;
|
||||||
|
['SUM(debit) as Rulaj_debitor,SUM(credit) as Rulaj_creditor,SUM(soldluna) as Diferenta_rulaje',] + ;
|
||||||
|
['LUNAAN',] + ;
|
||||||
|
['ANLUNA',] + ;
|
||||||
|
['soldinit',] + ;
|
||||||
|
['Sold_initial',] + ;
|
||||||
|
['debit|credit|soldluna|soldfinal|',] + ;
|
||||||
|
['Rulaj_debitor|Rulaj_creditor|Diferenta_rulaje|Sold_final',] + ;
|
||||||
|
[null,] + ;
|
||||||
|
[null,] + ;
|
||||||
|
['] + lcFiltruPerioada + [',] + ;
|
||||||
|
['SUM',] + ;
|
||||||
|
['0',] + ;
|
||||||
|
['1=2',] + ;
|
||||||
|
[0,] + ;
|
||||||
|
['ROLLUP(CONT,ACONT,(DENUMIRE,COD_FISCAL)) ',] + ;
|
||||||
|
['CONT,ACONT,GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ;
|
||||||
|
['|') as sir_sql from dual]
|
||||||
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||||||
|
If lnSucces < 0
|
||||||
|
amessagebox(goExecutor.cEroare,16,"Atentie")
|
||||||
|
Return
|
||||||
|
Else
|
||||||
|
If Reccount(lcCursor) > 0
|
||||||
|
Select (lcCursor)
|
||||||
|
lcSql = Alltrim(sir_sql)
|
||||||
|
Endif
|
||||||
|
Use In (lcCursor)
|
||||||
|
Endif
|
||||||
|
|
||||||
|
lcSql = Strtran(lcSql,[WHERE 1=2],Iif(!Empty(Thisform.filtru_pretty),[WHERE ] + Thisform.filtru_pretty + gcCondSucursala,;
|
||||||
|
[] + Substr(gcCondSucursala,5)))
|
||||||
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||||||
|
If lnSucces < 0
|
||||||
|
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
|
||||||
|
Return
|
||||||
|
Endif
|
||||||
|
|
||||||
|
If Used(lcCursor) And Reccount(lcCursor)<>0
|
||||||
|
If Used(lcCursorExport)
|
||||||
|
Use In (lcCursorExport)
|
||||||
|
Endif
|
||||||
|
Dimension aColoane[1]
|
||||||
|
lcSelect = [SELECT Iif(gid<>0,'TOTAL',Space(5)) As explicatie]
|
||||||
|
Afields(aColoane,lcCursor)
|
||||||
|
lcColoaneFiltru = []
|
||||||
|
lnOptiune = aMessagebox("Doriti ca raportul sa includa si partenerii cu sold initial 0 si fara rulaje in perioada?",4+32,"Confirmare")
|
||||||
|
For i = 1 To Alen(aColoane,1)
|
||||||
|
If Upper(Alltrim(aColoane[i,1])) <> 'GID'
|
||||||
|
lcNumeColoana = Upper(Alltrim(aColoane[i,1]))
|
||||||
|
lcSelect = lcSelect + [,] + Iif(aColoane[i,2] = 'T', [TTOD(] + lcNumeColoana + [) as ] + ;
|
||||||
|
lcNumeColoana, lcNumeColoana)
|
||||||
|
If Between(i,6,9) And lnOptiune = 7
|
||||||
|
lcColoaneFiltru = lcColoaneFiltru + [ or ] + lcNumeColoana + [ <> 0]
|
||||||
|
Endif
|
||||||
|
Endif
|
||||||
|
Endfor
|
||||||
|
If !Empty(lcColoaneFiltru)
|
||||||
|
lcSelect = lcSelect + [ From ] + lcCursor + [ where gid=0 and (] + Substr(lcColoaneFiltru,4) + [) Into Cursor ] + lcCursorExport
|
||||||
|
Else
|
||||||
|
lcSelect = lcSelect + [ From ] + lcCursor + [ Into Cursor ] + lcCursorExport
|
||||||
|
Endif
|
||||||
|
&lcSelect
|
||||||
|
Endif
|
||||||
|
If Used(lcCursor)
|
||||||
|
Use In (lcCursor)
|
||||||
|
Endif
|
||||||
|
|
||||||
|
If Used(lcCursorExport)
|
||||||
|
lcFileName = strtranx([Raport bazat pe balante parteneri], "([^a-zA-Z0-9])", [_] )
|
||||||
|
export_xls(lcCursorExport, lcFileName)
|
||||||
|
Use In (lcCursorExport)
|
||||||
|
Else
|
||||||
|
amessagebox("Nu exista rezultate pentru export in Excel!",0+48,"Atentie")
|
||||||
|
Endif
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE But_start_criterii1.initform
|
||||||
|
Lparameters tlShowForm
|
||||||
|
DoDefault(tlShowForm)
|
||||||
|
Thisform.ed_explicatii_filtru.Refresh()
|
||||||
|
This.SetFocus()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE But_start_criterii1.loadcriterii
|
||||||
|
Parameters tacriterii
|
||||||
|
External Array tacriterii
|
||||||
|
#Define crlf Chr(13)+Chr(10)
|
||||||
|
lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ;
|
||||||
|
"Cont\cont\C\none\" + crlf + ;
|
||||||
|
"Analitic\acont\C\none\" + crlf + ;
|
||||||
|
"Perioada\an*12+luna\D1\none\"
|
||||||
|
DoDefault()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS frm_date_rapoarte_balpart AS frm_date_rapoarte_gen OF "..\comun\clase\orapoarte.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_debit" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldinit" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldluna" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cod_fiscal" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_denumire" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_credit" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_acont" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cont" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_anluna" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldfinal" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 1
|
||||||
|
ctitluraportinitial = Rapoarte bazate pe balante parteneri
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 572
|
||||||
|
Name = "frm_date_rapoarte_balpart"
|
||||||
|
nidformularraport = 3
|
||||||
|
Width = 696
|
||||||
|
_memberdata = <VFPData>
|
||||||
|
<memberdata name="craport" type="property" display="cRaport" favorites="True"/>
|
||||||
|
<memberdata name="lreadonly" type="property" display="lReadOnly" favorites="True"/>
|
||||||
|
</VFPData>
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 696
|
||||||
|
_shape1.ZOrderSet = 2
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 604
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 90
|
||||||
|
_shape2.ZOrderSet = 3
|
||||||
|
Lb_titlu_alb_b121.FontBold = .T.
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 14
|
||||||
|
Lb_titlu_alb_b121.ZOrderSet = 4
|
||||||
|
GRIDSORT1.Left = 480
|
||||||
|
GRIDSORT1.Name = "GRIDSORT1"
|
||||||
|
GRIDSORT1.Top = 36
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 9
|
||||||
|
BUT_TERMIN1.ZOrderSet = 5
|
||||||
|
But_listare1.Name = "But_listare1"
|
||||||
|
But_listare1.TabIndex = 8
|
||||||
|
But_excel1.Name = "But_excel1"
|
||||||
|
But_excel1.TabIndex = 7
|
||||||
|
But_excel1.Visible = .T.
|
||||||
|
But_help1.Name = "But_help1"
|
||||||
|
But_help1.TabIndex = 2
|
||||||
|
But_cautare1.Name = "But_cautare1"
|
||||||
|
But_cautare1.TabIndex = 4
|
||||||
|
But_nou1.Name = "But_nou1"
|
||||||
|
But_nou1.TabIndex = 3
|
||||||
|
But_sterge1.Name = "But_sterge1"
|
||||||
|
But_sterge1.TabIndex = 6
|
||||||
|
Ct_selectie1.cnumetabela = vrapoarte_balpart
|
||||||
|
Ct_selectie1.Ct_grupare1.Height = 187
|
||||||
|
Ct_selectie1.Ct_grupare1.lblAtentie.Name = "lblAtentie"
|
||||||
|
Ct_selectie1.Ct_grupare1.lb_grupare.Name = "lb_grupare"
|
||||||
|
Ct_selectie1.Ct_grupare1.Left = 6
|
||||||
|
Ct_selectie1.Ct_grupare1.Name = "Ct_grupare1"
|
||||||
|
Ct_selectie1.Ct_grupare1.TabIndex = 9
|
||||||
|
Ct_selectie1.Ct_grupare1.Top = 331
|
||||||
|
Ct_selectie1.Ct_grupare1.Width = 360
|
||||||
|
Ct_selectie1.Ct_grupare1.ZOrderSet = 11
|
||||||
|
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_jos1.Name = "But_jos1"
|
||||||
|
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_sus1.Name = "But_sus1"
|
||||||
|
Ct_selectie1.Ct_grupare1._scrollcontainer1.Name = "_scrollcontainer1"
|
||||||
|
Ct_selectie1.Ct_ordonare1.Height = 176
|
||||||
|
Ct_selectie1.Ct_ordonare1.lb_ordonare.Name = "lb_ordonare"
|
||||||
|
Ct_selectie1.Ct_ordonare1.Left = 6
|
||||||
|
Ct_selectie1.Ct_ordonare1.Name = "Ct_ordonare1"
|
||||||
|
Ct_selectie1.Ct_ordonare1.TabIndex = 10
|
||||||
|
Ct_selectie1.Ct_ordonare1.Top = 156
|
||||||
|
Ct_selectie1.Ct_ordonare1.Width = 360
|
||||||
|
Ct_selectie1.Ct_ordonare1.ZOrderSet = 12
|
||||||
|
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_jos1.Name = "But_jos1"
|
||||||
|
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_sus1.Name = "But_sus1"
|
||||||
|
Ct_selectie1.Ct_ordonare1._scrollcontainer1.Name = "_scrollcontainer1"
|
||||||
|
Ct_selectie1.Height = 527
|
||||||
|
Ct_selectie1.lb_coloane.Name = "lb_coloane"
|
||||||
|
Ct_selectie1.lb_coloane.TabIndex = 11
|
||||||
|
Ct_selectie1.lb_coloane.ZOrderSet = 13
|
||||||
|
Ct_selectie1.Left = 12
|
||||||
|
Ct_selectie1.ltitlucoloanesuma = .T.
|
||||||
|
Ct_selectie1.Name = "Ct_selectie1"
|
||||||
|
Ct_selectie1.TabIndex = 1
|
||||||
|
Ct_selectie1.Top = 36
|
||||||
|
Ct_selectie1.Width = 372
|
||||||
|
ed_explicatii_filtru.Height = 500
|
||||||
|
ed_explicatii_filtru.Left = 396
|
||||||
|
ed_explicatii_filtru.Name = "ed_explicatii_filtru"
|
||||||
|
ed_explicatii_filtru.TabIndex = 11
|
||||||
|
ed_explicatii_filtru.Top = 63
|
||||||
|
ed_explicatii_filtru.Width = 288
|
||||||
|
But_salveaza1.lvizibil = .F.
|
||||||
|
But_salveaza1.Name = "But_salveaza1"
|
||||||
|
But_salveaza1.TabIndex = 5
|
||||||
|
But_reset2.Name = "But_reset2"
|
||||||
|
But_reset2.TabIndex = 10
|
||||||
|
LB_RAPORT_PREDEFINIT.Name = "LB_RAPORT_PREDEFINIT"
|
||||||
|
LB_RAPORT_PREDEFINIT.TabIndex = 13
|
||||||
|
But_start_criterii1.Name = "But_start_criterii1"
|
||||||
|
But_start_criterii1.TabIndex = 12
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_acont' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = acont, ;
|
||||||
|
cnumecamp = Analitic, ;
|
||||||
|
Left = 2, ;
|
||||||
|
Name = "Ct_selectie_acont", ;
|
||||||
|
nid_container = 4, ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 56, ;
|
||||||
|
ZOrderSet = 9, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Analitic", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_anluna' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = anluna, ;
|
||||||
|
cidcamp = lunaan, ;
|
||||||
|
cnumecamp = Luna, ;
|
||||||
|
Height = 19, ;
|
||||||
|
Left = 2, ;
|
||||||
|
Name = "Ct_selectie_anluna", ;
|
||||||
|
nid_container = 5, ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 71, ;
|
||||||
|
Width = 140, ;
|
||||||
|
ZOrderSet = 20, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Luna", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_cod_fiscal' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = cod_fiscal, ;
|
||||||
|
cnumecamp = Cod fiscal, ;
|
||||||
|
Left = 2, ;
|
||||||
|
Name = "Ct_selectie_cod_fiscal", ;
|
||||||
|
nid_container = 2, ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 28, ;
|
||||||
|
ZOrderSet = 5, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Cod fiscal", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_cont' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = cont, ;
|
||||||
|
cnumecamp = Cont, ;
|
||||||
|
Height = 19, ;
|
||||||
|
Left = 2, ;
|
||||||
|
Name = "Ct_selectie_cont", ;
|
||||||
|
nid_container = 3, ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 42, ;
|
||||||
|
Width = 131, ;
|
||||||
|
ZOrderSet = 10, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.AutoSize = .T., ;
|
||||||
|
ck_camp.Caption = "Cont", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_credit' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = credit, ;
|
||||||
|
cnumecamp = Rulaj creditor, ;
|
||||||
|
Height = 19, ;
|
||||||
|
Left = 101, ;
|
||||||
|
lgrupare = .F., ;
|
||||||
|
lordine = .F., ;
|
||||||
|
lsuma = .T., ;
|
||||||
|
Name = "Ct_selectie_credit", ;
|
||||||
|
nid_container = 8, ;
|
||||||
|
TabIndex = 7, ;
|
||||||
|
Top = 42, ;
|
||||||
|
Width = 140, ;
|
||||||
|
ZOrderSet = 30, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Rulaj creditor", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_debit' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = debit, ;
|
||||||
|
cnumecamp = Rulaj debitor, ;
|
||||||
|
Height = 19, ;
|
||||||
|
Left = 101, ;
|
||||||
|
lgrupare = .F., ;
|
||||||
|
lordine = .F., ;
|
||||||
|
lsuma = .T., ;
|
||||||
|
Name = "Ct_selectie_debit", ;
|
||||||
|
nid_container = 7, ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 28, ;
|
||||||
|
Width = 140, ;
|
||||||
|
ZOrderSet = 0, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Rulaj debitor", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_denumire' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = denumire, ;
|
||||||
|
cnumecamp = Denumire, ;
|
||||||
|
Left = 2, ;
|
||||||
|
Name = "Ct_selectie_denumire", ;
|
||||||
|
nid_container = 1, ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 14, ;
|
||||||
|
ZOrderSet = 6, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Denumire", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldfinal' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = soldfinal, ;
|
||||||
|
cnumecamp = Sold final, ;
|
||||||
|
Height = 19, ;
|
||||||
|
Left = 101, ;
|
||||||
|
lgrupare = .F., ;
|
||||||
|
lordine = .F., ;
|
||||||
|
lsuma = .T., ;
|
||||||
|
Name = "Ct_selectie_soldfinal", ;
|
||||||
|
nid_container = 10, ;
|
||||||
|
TabIndex = 8, ;
|
||||||
|
Top = 71, ;
|
||||||
|
Width = 140, ;
|
||||||
|
ZOrderSet = 29, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Sold final", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldinit' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = soldinit, ;
|
||||||
|
cnumecamp = Sold initial, ;
|
||||||
|
Height = 19, ;
|
||||||
|
Left = 101, ;
|
||||||
|
lgrupare = .F., ;
|
||||||
|
lordine = .F., ;
|
||||||
|
lsuma = .T., ;
|
||||||
|
Name = "Ct_selectie_soldinit", ;
|
||||||
|
nid_container = 6, ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 14, ;
|
||||||
|
Width = 140, ;
|
||||||
|
ZOrderSet = 20, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Sold initial", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldluna' AS ct_selectie_camp WITH ;
|
||||||
|
ccamp = soldluna, ;
|
||||||
|
cnumecamp = Diferenta rulaje, ;
|
||||||
|
Height = 19, ;
|
||||||
|
Left = 101, ;
|
||||||
|
lgrupare = .F., ;
|
||||||
|
lordine = .F., ;
|
||||||
|
lsuma = .T., ;
|
||||||
|
Name = "Ct_selectie_soldluna", ;
|
||||||
|
nid_container = 9, ;
|
||||||
|
TabIndex = 8, ;
|
||||||
|
Top = 56, ;
|
||||||
|
Width = 140, ;
|
||||||
|
ZOrderSet = 29, ;
|
||||||
|
ck_camp.Alignment = 0, ;
|
||||||
|
ck_camp.Caption = "Diferenta rulaje", ;
|
||||||
|
ck_camp.Name = "ck_camp"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
PROCEDURE But_start_criterii1.loadcriterii
|
||||||
|
Parameters tacriterii
|
||||||
|
External Array tacriterii
|
||||||
|
#Define crlf Chr(13)+Chr(10)
|
||||||
|
lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ;
|
||||||
|
"Cod fiscal\cod_fiscal\C\none\" + crlf + ;
|
||||||
|
"Cont\cont\C\none\" + crlf + ;
|
||||||
|
"Analitic\acont\C\none\"
|
||||||
|
DoDefault()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
2249
Clase/osit_op.vc2
Normal file
2249
Clase/osit_op.vc2
Normal file
File diff suppressed because it is too large
Load Diff
1130
Clase/oteste.vc2
Normal file
1130
Clase/oteste.vc2
Normal file
File diff suppressed because it is too large
Load Diff
55154
Clase/ovanzcump.vc2
Normal file
55154
Clase/ovanzcump.vc2
Normal file
File diff suppressed because it is too large
Load Diff
1034
Clase/penalitati.vc2
Normal file
1034
Clase/penalitati.vc2
Normal file
File diff suppressed because it is too large
Load Diff
337
Clase/saft_d406.vc2
Normal file
337
Clase/saft_d406.vc2
Normal file
@@ -0,0 +1,337 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="saft_d406.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS frm_saft_d406 AS _frmbase 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="pgfSAFT" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="pgfSAFT.Page1.cboTip" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="pgfSAFT.Page1._label1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="pgfSAFT.Page1.cmdCitesteDate" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*p: ccaen
|
||||||
|
*p: ccalintoc
|
||||||
|
*p: cfpropr
|
||||||
|
*p: cjudet
|
||||||
|
*p: ctip
|
||||||
|
*p: oparent
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 3
|
||||||
|
ccaen =
|
||||||
|
ccalintoc =
|
||||||
|
cfpropr =
|
||||||
|
cjudet =
|
||||||
|
ctip =
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 465
|
||||||
|
Name = "frm_saft_d406"
|
||||||
|
oparent = .NULL.
|
||||||
|
Width = 789
|
||||||
|
WindowState = 2
|
||||||
|
_memberdata = <VFPData>
|
||||||
|
<memberdata name="oparent" display="oParent"/>
|
||||||
|
</VFPData>
|
||||||
|
_shape1.Anchor = 10
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 790
|
||||||
|
_shape1.ZOrderSet = 1
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 758
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = -1
|
||||||
|
_shape2.Width = 37
|
||||||
|
_shape2.ZOrderSet = 2
|
||||||
|
Lb_titlu_alb_b121.Caption = "SAFT D406"
|
||||||
|
Lb_titlu_alb_b121.FontSize = 11
|
||||||
|
Lb_titlu_alb_b121.Left = 4
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 3
|
||||||
|
Lb_titlu_alb_b121.Top = 6
|
||||||
|
Lb_titlu_alb_b121.ZOrderSet = 3
|
||||||
|
BUT_TERMIN1.Anchor = 9
|
||||||
|
BUT_TERMIN1.Left = 758
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 1
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
BUT_TERMIN1.ZOrderSet = 4
|
||||||
|
Gridsort1.Left = 216
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
Gridsort1.Top = 8
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'pgfSAFT' AS _pageframe WITH ;
|
||||||
|
Anchor = 15, ;
|
||||||
|
ErasePage = .T., ;
|
||||||
|
Height = 440, ;
|
||||||
|
Left = 0, ;
|
||||||
|
Name = "pgfSAFT", ;
|
||||||
|
PageCount = 4, ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 27, ;
|
||||||
|
Width = 790, ;
|
||||||
|
Page1.Caption = "Antet", ;
|
||||||
|
Page1.Name = "Page1", ;
|
||||||
|
Page2.Caption = "Fisiere Master", ;
|
||||||
|
Page2.Name = "Page2", ;
|
||||||
|
Page3.Caption = "Inregistrari contabile", ;
|
||||||
|
Page3.Name = "Page3", ;
|
||||||
|
Page4.Caption = "Documente sursa", ;
|
||||||
|
Page4.Name = "pgDocumenteSursa"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
|
||||||
|
|
||||||
|
ADD OBJECT 'pgfSAFT.Page1._label1' AS _label WITH ;
|
||||||
|
Caption = "Tip platitor", ;
|
||||||
|
Left = 8, ;
|
||||||
|
Name = "_label1", ;
|
||||||
|
TabIndex = 24, ;
|
||||||
|
Top = 5, ;
|
||||||
|
ZOrderSet = 9
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'pgfSAFT.Page1.cboTip' AS combobox WITH ;
|
||||||
|
ControlSource = "poUnitate.tip", ;
|
||||||
|
Left = 8, ;
|
||||||
|
Name = "cboTip", ;
|
||||||
|
RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ;
|
||||||
|
RowSourceType = 1, ;
|
||||||
|
Style = 2, ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 21, ;
|
||||||
|
Value = LUNAR, ;
|
||||||
|
Width = 173, ;
|
||||||
|
ZOrderSet = 5
|
||||||
|
*< END OBJECT: BaseClass="combobox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'pgfSAFT.Page1.cmdCitesteDate' AS cmd_executa WITH ;
|
||||||
|
Anchor = 9, ;
|
||||||
|
AutoSize = .F., ;
|
||||||
|
BackColor = 113,184,255, ;
|
||||||
|
caction = do_citeste_date, ;
|
||||||
|
Caption = "Genereaza XML", ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 587, ;
|
||||||
|
Name = "cmdCitesteDate", ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 3, ;
|
||||||
|
Width = 112, ;
|
||||||
|
ZOrderSet = 11
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'pgfSAFT.Page2.pgfMaster' AS _pageframe WITH ;
|
||||||
|
Anchor = 15, ;
|
||||||
|
ErasePage = .T., ;
|
||||||
|
Height = 408, ;
|
||||||
|
Left = 0, ;
|
||||||
|
Name = "pgfMaster", ;
|
||||||
|
PageCount = 11, ;
|
||||||
|
Top = 0, ;
|
||||||
|
Width = 787, ;
|
||||||
|
Page1.Caption = "Conturi contabile", ;
|
||||||
|
Page1.Name = "Page1", ;
|
||||||
|
Page1.PageOrder = 1, ;
|
||||||
|
Page2.Caption = "Clienti", ;
|
||||||
|
Page2.Name = "Page2", ;
|
||||||
|
Page2.PageOrder = 2, ;
|
||||||
|
Page3.Caption = "Taxe", ;
|
||||||
|
Page3.Name = "pgTaxe", ;
|
||||||
|
Page3.PageOrder = 4, ;
|
||||||
|
Page4.Caption = "Unitati de Masura", ;
|
||||||
|
Page4.Name = "pgUOM", ;
|
||||||
|
Page4.PageOrder = 5, ;
|
||||||
|
Page5.Caption = "Tipuri Analiza", ;
|
||||||
|
Page5.Name = "pgTipAnalize", ;
|
||||||
|
Page5.PageOrder = 6, ;
|
||||||
|
Page6.Caption = "Tipuri Miscari", ;
|
||||||
|
Page6.Name = "pgTipMiscari", ;
|
||||||
|
Page6.PageOrder = 7, ;
|
||||||
|
Page7.Caption = "Produse", ;
|
||||||
|
Page7.Name = "pgProduse", ;
|
||||||
|
Page7.PageOrder = 8, ;
|
||||||
|
Page8.Caption = "Stocuri", ;
|
||||||
|
Page8.Name = "pgStocuri", ;
|
||||||
|
Page8.PageOrder = 9, ;
|
||||||
|
Page9.Caption = "Proprietari", ;
|
||||||
|
Page9.Name = "pgProprietari", ;
|
||||||
|
Page9.PageOrder = 10, ;
|
||||||
|
Page10.Caption = "Furnizori", ;
|
||||||
|
Page10.Name = "pgFurnizori", ;
|
||||||
|
Page10.PageOrder = 3, ;
|
||||||
|
Page11.Caption = "Active", ;
|
||||||
|
Page11.Name = "pgActive", ;
|
||||||
|
Page11.PageOrder = 11
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
|
||||||
|
|
||||||
|
ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa' AS _pageframe WITH ;
|
||||||
|
Anchor = 15, ;
|
||||||
|
ErasePage = .T., ;
|
||||||
|
Height = 408, ;
|
||||||
|
Left = 2, ;
|
||||||
|
Name = "pgfDocumenteSursa", ;
|
||||||
|
PageCount = 5, ;
|
||||||
|
Top = -1, ;
|
||||||
|
Width = 787, ;
|
||||||
|
Page1.Caption = "Facturi vanzare", ;
|
||||||
|
Page1.Name = "Page1", ;
|
||||||
|
Page1.PageOrder = 1, ;
|
||||||
|
Page2.Caption = "Facturi achizitie", ;
|
||||||
|
Page2.Name = "Page2", ;
|
||||||
|
Page2.PageOrder = 2, ;
|
||||||
|
Page3.Caption = "Miscari bunuri", ;
|
||||||
|
Page3.Name = "pgMiscariBunuri", ;
|
||||||
|
Page3.PageOrder = 4, ;
|
||||||
|
Page4.Caption = "Tranzactii cu active", ;
|
||||||
|
Page4.Name = "pgTranzactiiActive", ;
|
||||||
|
Page4.PageOrder = 5, ;
|
||||||
|
Page5.Caption = "Plati", ;
|
||||||
|
Page5.Name = "pgPlati", ;
|
||||||
|
Page5.PageOrder = 3
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
|
||||||
|
|
||||||
|
PROCEDURE do_verifica
|
||||||
|
#Define CRLF Chr(13) + Chr(10)
|
||||||
|
Local loDate As "empty"
|
||||||
|
Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
|
||||||
|
Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
|
||||||
|
Local lnRaspuns, loPartener
|
||||||
|
lcSelect = Select()
|
||||||
|
|
||||||
|
Select crsJTVA
|
||||||
|
lcDenumire = Alltrim(Nvl(crsJTVA.denumire, ''))
|
||||||
|
lcCodFiscal = Alltrim(Nvl(crsJTVA.cod_fiscal, ''))
|
||||||
|
|
||||||
|
lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF')
|
||||||
|
|
||||||
|
If Empty(m.lnOptiune)
|
||||||
|
Return
|
||||||
|
Endif
|
||||||
|
* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
|
||||||
|
If m.lnOptiune = 1 && un singur nume
|
||||||
|
loPartener = Null
|
||||||
|
loDate = Createobject("empty")
|
||||||
|
|
||||||
|
AddProperty(loDate, "denumire", m.lcDenumire)
|
||||||
|
AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
|
||||||
|
AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
|
||||||
|
|
||||||
|
lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
|
||||||
|
Else
|
||||||
|
llDontCloseCursor = .F.
|
||||||
|
llExperimental = .F.
|
||||||
|
llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
|
||||||
|
llMFIN = .T. && verific MFIN pentru toata lumea
|
||||||
|
llValidare = .T. && verific algoritmul codurilor fiscale
|
||||||
|
llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
|
||||||
|
llServiciuWebANAF = .T.
|
||||||
|
|
||||||
|
lcFilter = Filter("crsJTVA")
|
||||||
|
lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
|
||||||
|
Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
|
||||||
|
From crsJTVA ;
|
||||||
|
Where &lcWhere ;
|
||||||
|
Into Cursor crsCoduriFiscale ;
|
||||||
|
Order By denumire, cod_fiscal ;
|
||||||
|
Readwrite
|
||||||
|
|
||||||
|
|
||||||
|
Local lcXMLParteneri
|
||||||
|
lcXMLParteneri = ""
|
||||||
|
Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
|
||||||
|
|
||||||
|
Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
|
||||||
|
Endif && x = 1
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Init
|
||||||
|
DODEFAULT()
|
||||||
|
this._pageframe1.page2.Enabled = .F.
|
||||||
|
this._pageframe1.page3.Enabled = .F.
|
||||||
|
this._pageframe1.page4.Enabled = .F.
|
||||||
|
this._pageframe1.page5.Enabled = .F.
|
||||||
|
|
||||||
|
this._pageframe1.page1.optPJIntocmit.Valid()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE pgfSAFT.Page1.cmdCitesteDate.Click
|
||||||
|
SET STEP ON
|
||||||
|
TEXT TO lcXML TEXTMERGE NOSHOW
|
||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<!--Sample XML file generated by XMLSpy v2021 rel. 3 (x64) (http://www.altova.com)-->
|
||||||
|
<nsSAFT:AuditFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:nsSAFT="mfp:anaf:dgti:d406t:declaratie:v1" xsi:schemaLocation="urn:StandardAuditFile-Taxation-Financial:RO Romanian_SAF-T_Financial_Schema_v_2.3.xsd">
|
||||||
|
<nsSAFT:Header>
|
||||||
|
<nsSAFT:AuditFileVersion>1.0</nsSAFT:AuditFileVersion>
|
||||||
|
<nsSAFT:AuditFileCountry>RO</nsSAFT:AuditFileCountry>
|
||||||
|
<nsSAFT:AuditFileRegion>RO-B</nsSAFT:AuditFileRegion>
|
||||||
|
<nsSAFT:AuditFileDateCreated><<gcDataora>></nsSAFT:AuditFileDateCreated>
|
||||||
|
<nsSAFT:SoftwareCompanyName><<gcFirma>></nsSAFT:SoftwareCompanyName>
|
||||||
|
<nsSAFT:SoftwareID>SAFT</nsSAFT:SoftwareID>
|
||||||
|
<nsSAFT:SoftwareVersion>2.4.10</nsSAFT:SoftwareVersion>
|
||||||
|
<nsSAFT:Company>
|
||||||
|
<nsSAFT:RegistrationNumber><<alltrim(poFirma.cod_fiscal)>></nsSAFT:RegistrationNumber>
|
||||||
|
<nsSAFT:Name><<alltrim(poFirma.denumire)>></nsSAFT:Name>
|
||||||
|
<nsSAFT:Address>
|
||||||
|
<nsSAFT:StreetName><<alltrim(poFirma.strada)>></nsSAFT:StreetName>
|
||||||
|
<nsSAFT:Number><<alltrim(poFirma.numar)>></nsSAFT:Number>
|
||||||
|
<nsSAFT:AdditionalAddressDetail><<alltrim(poFirma.adresa)>></nsSAFT:AdditionalAddressDetail>
|
||||||
|
<nsSAFT:Building></nsSAFT:Building>
|
||||||
|
<nsSAFT:City><<alltrim(poFirma.localitate)>></nsSAFT:City>
|
||||||
|
<nsSAFT:PostalCode><<alltrim(poFirma.codpostal)>></nsSAFT:PostalCode>
|
||||||
|
<nsSAFT:Region>RO-B</nsSAFT:Region>
|
||||||
|
<nsSAFT:Country>RO</nsSAFT:Country>
|
||||||
|
<nsSAFT:AddressType>PostalAddress</nsSAFT:AddressType>
|
||||||
|
</nsSAFT:Address>
|
||||||
|
<nsSAFT:Contact>
|
||||||
|
<nsSAFT:ContactPerson>
|
||||||
|
<nsSAFT:Title><<alltrim(poResponsabil.functie)>></nsSAFT:Title>
|
||||||
|
<nsSAFT:FirstName><<alltrim(poResponsabil.prenume)>></nsSAFT:FirstName>
|
||||||
|
<nsSAFT:LastName><<alltrim(poResponsabil.nume)>></nsSAFT:LastName>
|
||||||
|
<nsSAFT:Salutation></nsSAFT:Salutation>
|
||||||
|
</nsSAFT:ContactPerson>
|
||||||
|
<nsSAFT:Telephone><<alltrim(poFirma.telefon)>></nsSAFT:Telephone>
|
||||||
|
<nsSAFT:Email><<alltrim(poFirma.email)>></nsSAFT:Email>
|
||||||
|
<nsSAFT:Website><<alltrim(poFirma.website)>></nsSAFT:Website>
|
||||||
|
</nsSAFT:Contact>
|
||||||
|
<nsSAFT:TaxRegistration>
|
||||||
|
<nsSAFT:TaxRegistrationNumber><<alltrim(poFirma.cod_fiscal)>></nsSAFT:TaxRegistrationNumber>
|
||||||
|
<nsSAFT:TaxType>100010</nsSAFT:TaxType>
|
||||||
|
<nsSAFT:TaxNumber><<alltrim(poFirma.cod_fiscal)>></nsSAFT:TaxNumber>
|
||||||
|
<nsSAFT:TaxAuthority>ANAF</nsSAFT:TaxAuthority>
|
||||||
|
<nsSAFT:TaxVerificationDate>2021-07-03</nsSAFT:TaxVerificationDate>
|
||||||
|
</nsSAFT:TaxRegistration>
|
||||||
|
<nsSAFT:BankAccount>
|
||||||
|
<nsSAFT:IBANNumber><<alltrim(poFirma.cont_banca)>></nsSAFT:IBANNumber>
|
||||||
|
</nsSAFT:BankAccount>
|
||||||
|
</nsSAFT:Company>
|
||||||
|
<nsSAFT:DefaultCurrencyCode>RON</nsSAFT:DefaultCurrencyCode>
|
||||||
|
<nsSAFT:SelectionCriteria>
|
||||||
|
<nsSAFT:TaxReportingJurisdiction>Romania</nsSAFT:TaxReportingJurisdiction>
|
||||||
|
<nsSAFT:CompanyEntity><<gcFirma>></nsSAFT:CompanyEntity>
|
||||||
|
<nsSAFT:PeriodStart><<m.lnLunaI>></nsSAFT:PeriodStart>
|
||||||
|
<nsSAFT:PeriodStartYear><<m.lnAnI>></nsSAFT:PeriodStartYear>
|
||||||
|
<nsSAFT:PeriodEnd><<m.lnLunaF>></nsSAFT:PeriodEnd>
|
||||||
|
<nsSAFT:PeriodEndYear><<m.lnAnF>></nsSAFT:PeriodEndYear>
|
||||||
|
</nsSAFT:SelectionCriteria>
|
||||||
|
<nsSAFT:HeaderComment>Fara comentarii</nsSAFT:HeaderComment>
|
||||||
|
<nsSAFT:SegmentIndex>1</nsSAFT:SegmentIndex>
|
||||||
|
<nsSAFT:TotalSegmentsInsequence>1</nsSAFT:TotalSegmentsInsequence>
|
||||||
|
<nsSAFT:TaxAccountingBasis>A</nsSAFT:TaxAccountingBasis>
|
||||||
|
<nsSAFT:TaxEntity>Company</nsSAFT:TaxEntity>
|
||||||
|
</nsSAFT:Header>
|
||||||
|
</nsSAFT:AuditFile>
|
||||||
|
ENDTEXT
|
||||||
|
STRTOFILE(m.lcXML,PUTFILE('Fisier','saft_d406','xml'))
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
17
DATE/New Text Document.txt
Normal file
17
DATE/New Text Document.txt
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
*** DIRECTORUL APLICATIEI, NUMELE APLICATIEI
|
||||||
|
public pcDirApp,pcNumeApp,pcDateApp
|
||||||
|
*!* PUBLIC pinivel,pcan,pcnl
|
||||||
|
*!* STORE "" to pcan,pcnl && variabile publice pe care le initializez cu m.an si m.nl in init_optiuni.prg
|
||||||
|
|
||||||
|
|
||||||
|
SET procedure to wwutils.prg addi
|
||||||
|
pcdirapp=GetAppStartPath() && d:\contafin\acnnave\
|
||||||
|
pcdirapp=STRTRAN(STRTRAN(UPPER(pcdirapp),"PROGRAME",""),"\\","\")
|
||||||
|
pcNumeApp=ALLT(UPPE(JUSTSTEM(SYS(16,0)))) && "ACNSIT"
|
||||||
|
pcDateApp=pcDirApp+"Date_"+pcNumeApp+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI CARE NU TREBUIE IN FIECARE FIRMA EX: ADRESE DE EMAIL,
|
||||||
|
|
||||||
|
*!* wait wind pcdirapp
|
||||||
|
CD &pcdirapp
|
||||||
|
IF !DIRECTORY(pcDateApp)
|
||||||
|
MD (pcDateApp)
|
||||||
|
ENDIF
|
||||||
107
DATE/optiuni_firma.db2
Normal file
107
DATE/optiuni_firma.db2
Normal file
@@ -0,0 +1,107 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni_firma.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
|
||||||
|
|
||||||
|
<TABLE>
|
||||||
|
<MemoFile></MemoFile>
|
||||||
|
<CodePage>1252</CodePage>
|
||||||
|
<LastUpdate></LastUpdate>
|
||||||
|
<Database></Database>
|
||||||
|
<FileType>0x00000030</FileType>
|
||||||
|
<FileType_Descrip>Visual FoxPro</FileType_Descrip>
|
||||||
|
|
||||||
|
<FIELDS>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARNAME</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>20</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARTYPE</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>10</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARVALUE</Name>
|
||||||
|
<Type>M</Type>
|
||||||
|
<Width>4</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARDESC</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>30</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
</FIELDS>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<RECORDS>
|
||||||
|
|
||||||
|
</RECORDS>
|
||||||
|
|
||||||
|
|
||||||
|
</TABLE>
|
||||||
|
|
||||||
107
DATE/optiuni_local.db2
Normal file
107
DATE/optiuni_local.db2
Normal file
@@ -0,0 +1,107 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni_local.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
|
||||||
|
|
||||||
|
<TABLE>
|
||||||
|
<MemoFile></MemoFile>
|
||||||
|
<CodePage>1252</CodePage>
|
||||||
|
<LastUpdate></LastUpdate>
|
||||||
|
<Database></Database>
|
||||||
|
<FileType>0x00000030</FileType>
|
||||||
|
<FileType_Descrip>Visual FoxPro</FileType_Descrip>
|
||||||
|
|
||||||
|
<FIELDS>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARNAME</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>20</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARTYPE</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>10</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARVALUE</Name>
|
||||||
|
<Type>M</Type>
|
||||||
|
<Width>4</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARDESC</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>30</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
</FIELDS>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<RECORDS>
|
||||||
|
|
||||||
|
</RECORDS>
|
||||||
|
|
||||||
|
|
||||||
|
</TABLE>
|
||||||
|
|
||||||
107
DATE/optiuni_program.db2
Normal file
107
DATE/optiuni_program.db2
Normal file
@@ -0,0 +1,107 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni_program.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
|
||||||
|
|
||||||
|
<TABLE>
|
||||||
|
<MemoFile></MemoFile>
|
||||||
|
<CodePage>1252</CodePage>
|
||||||
|
<LastUpdate></LastUpdate>
|
||||||
|
<Database></Database>
|
||||||
|
<FileType>0x00000030</FileType>
|
||||||
|
<FileType_Descrip>Visual FoxPro</FileType_Descrip>
|
||||||
|
|
||||||
|
<FIELDS>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARNAME</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>20</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARTYPE</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>10</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARVALUE</Name>
|
||||||
|
<Type>M</Type>
|
||||||
|
<Width>4</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
<FIELD>
|
||||||
|
<Name>VARDESC</Name>
|
||||||
|
<Type>C</Type>
|
||||||
|
<Width>30</Width>
|
||||||
|
<Decimals>0</Decimals>
|
||||||
|
<Null>.F.</Null>
|
||||||
|
<NoCPTran>.F.</NoCPTran>
|
||||||
|
<Field_Valid_Exp></Field_Valid_Exp>
|
||||||
|
<Field_Valid_Text></Field_Valid_Text>
|
||||||
|
<Field_Default_Value></Field_Default_Value>
|
||||||
|
<Table_Valid_Exp></Table_Valid_Exp>
|
||||||
|
<Table_Valid_Text></Table_Valid_Text>
|
||||||
|
<LongTableName></LongTableName>
|
||||||
|
<Ins_Trig_Exp></Ins_Trig_Exp>
|
||||||
|
<Upd_Trig_Exp></Upd_Trig_Exp>
|
||||||
|
<Del_Trig_Exp></Del_Trig_Exp>
|
||||||
|
<TableComment></TableComment>
|
||||||
|
<Autoinc_Nextval>0</Autoinc_Nextval>
|
||||||
|
<Autoinc_Step>0</Autoinc_Step>
|
||||||
|
</FIELD>
|
||||||
|
</FIELDS>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<RECORDS>
|
||||||
|
|
||||||
|
</RECORDS>
|
||||||
|
|
||||||
|
|
||||||
|
</TABLE>
|
||||||
|
|
||||||
161
Ferestre/datedisp542.sc2
Normal file
161
Ferestre/datedisp542.sc2
Normal file
@@ -0,0 +1,161 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="datedisp542.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_termin_renunt1 AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_scop" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_explicatie" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_suma_cifre" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_functie" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ed_suma_litere" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_bi_numar" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*p: ccont
|
||||||
|
*p: ccursoracont
|
||||||
|
*p: ccursorcont
|
||||||
|
*p: id_part
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 1
|
||||||
|
ccont =
|
||||||
|
ccursoracont =
|
||||||
|
ccursorcont =
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 242
|
||||||
|
id_part = 0
|
||||||
|
Name = "Frm_termin_renunt1"
|
||||||
|
Width = 355
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 360
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 294
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 62
|
||||||
|
Lb_titlu_alb_b121.Caption = "DATE PRIVIND DISPOZITIA"
|
||||||
|
Lb_titlu_alb_b121.FontBold = .T.
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 11
|
||||||
|
BUT_TERMIN1.Left = 325
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 8
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Left = 12
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
Gridsort1.Top = 192
|
||||||
|
But_renunt1.Left = 296
|
||||||
|
But_renunt1.Name = "But_renunt1"
|
||||||
|
But_renunt1.TabIndex = 9
|
||||||
|
But_renunt1.Top = 1
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_bi_numar' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Clb_bi_numar", ;
|
||||||
|
TabIndex = 7, ;
|
||||||
|
Top = 205, ;
|
||||||
|
Width = 290, ;
|
||||||
|
Text_simplu1.ControlSource = "pcNumar", ;
|
||||||
|
Text_simplu1.Height = 23, ;
|
||||||
|
Text_simplu1.Left = 121, ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Text_simplu1.Top = 3, ;
|
||||||
|
Text_simplu1.Width = 164, ;
|
||||||
|
Lb_simplu1.Caption = "C.I. / Reg. Comert", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_explicatie' AS clb_tx_simplu WITH ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Clb_explicatie", ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 64, ;
|
||||||
|
Text_simplu1.ControlSource = "pcNume", ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_functie' AS clb_tx_simplu WITH ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Clb_functie", ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 177, ;
|
||||||
|
Width = 290, ;
|
||||||
|
Text_simplu1.ControlSource = "pcFunctie", ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Lb_simplu1.Caption = "Functia", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_scop' AS clb_tx_simplu WITH ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Clb_scop", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 36, ;
|
||||||
|
Text_simplu1.ControlSource = "pcScop", ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Lb_simplu1.Caption = "Scopul", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_suma_cifre' AS clb_tx_simplu WITH ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Clb_suma_cifre", ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
TabStop = .F., ;
|
||||||
|
Top = 92, ;
|
||||||
|
Text_simplu1.ControlSource = "pnSuma", ;
|
||||||
|
Text_simplu1.InputMask = (get_mask(14,gnPa)), ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Text_simplu1.ReadOnly = .F., ;
|
||||||
|
Lb_simplu1.Caption = "Suma ( in cifre )", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ed_suma_litere' AS ed_tx_simplu WITH ;
|
||||||
|
Left = 24, ;
|
||||||
|
Name = "Ed_suma_litere", ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 120, ;
|
||||||
|
_edbase1.ControlSource = "pcSumaLitere", ;
|
||||||
|
_edbase1.Name = "_edbase1", ;
|
||||||
|
_lbbase1.Caption = "Suma (in litere)", ;
|
||||||
|
_lbbase1.Height = 34, ;
|
||||||
|
_lbbase1.Left = 8, ;
|
||||||
|
_lbbase1.Name = "_lbbase1", ;
|
||||||
|
_lbbase1.Top = 6, ;
|
||||||
|
_lbbase1.Width = 52, ;
|
||||||
|
_lbbase1.WordWrap = .T.
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
PROCEDURE Init
|
||||||
|
DoDefault()
|
||||||
|
Thisform.clb_explicatie.lb_simplu1.Caption = pcExplicatie
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
483
Ferestre/fisa_cont_noua.sc2
Normal file
483
Ferestre/fisa_cont_noua.sc2
Normal file
@@ -0,0 +1,483 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="fisa_cont_noua.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_termin_renunt1 AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Op_tx_simplu1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_txbase1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="chkConturiCorespondente" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="chkDocumenteSold" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="chkLucrari" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*p: acont
|
||||||
|
*p: acontexp
|
||||||
|
*p: ccont
|
||||||
|
*p: ccursoracont
|
||||||
|
*p: ccursorcont
|
||||||
|
*p: id_part
|
||||||
|
*p: tip_sold
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
acont =
|
||||||
|
acontexp =
|
||||||
|
BorderStyle = 1
|
||||||
|
ccont =
|
||||||
|
ccursoracont =
|
||||||
|
ccursorcont =
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 245
|
||||||
|
id_part = 0
|
||||||
|
Name = "Frm_termin_renunt1"
|
||||||
|
tip_sold = 0
|
||||||
|
Width = 500
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 500
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 438
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 62
|
||||||
|
Lb_titlu_alb_b121.Caption = "Fisa cont"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 13
|
||||||
|
BUT_TERMIN1.Left = 469
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 11
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
But_renunt1.Left = 440
|
||||||
|
But_renunt1.Name = "But_renunt1"
|
||||||
|
But_renunt1.TabIndex = 12
|
||||||
|
But_renunt1.Top = 1
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
|
||||||
|
AutoSize = .F., ;
|
||||||
|
ButtonCount = 2, ;
|
||||||
|
ControlSource = "pnOptiune", ;
|
||||||
|
Height = 46, ;
|
||||||
|
Left = 236, ;
|
||||||
|
Name = "_optiongrup1", ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 136, ;
|
||||||
|
Width = 256, ;
|
||||||
|
Option1.AutoSize = .T., ;
|
||||||
|
Option1.Caption = "Rulaje precedente ptr. prima luna", ;
|
||||||
|
Option1.FontSize = 10, ;
|
||||||
|
Option1.Left = 5, ;
|
||||||
|
Option1.Name = "Option1", ;
|
||||||
|
Option1.Top = 5, ;
|
||||||
|
Option2.AutoSize = .T., ;
|
||||||
|
Option2.Caption = "Sold precedent ptr. prima luna", ;
|
||||||
|
Option2.FontSize = 10, ;
|
||||||
|
Option2.Left = 5, ;
|
||||||
|
Option2.Name = "Option2", ;
|
||||||
|
Option2.Top = 24
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
|
||||||
|
|
||||||
|
ADD OBJECT '_txbase1' AS _txbase WITH ;
|
||||||
|
ControlSource = "thisform.acontexp", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 144, ;
|
||||||
|
Name = "_txbase1", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 38, ;
|
||||||
|
Width = 348
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Export in Excel", ;
|
||||||
|
ControlSource = "plExcel", ;
|
||||||
|
FontSize = 10, ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 376, ;
|
||||||
|
Name = "Check1", ;
|
||||||
|
TabIndex = 10, ;
|
||||||
|
Top = 192, ;
|
||||||
|
Width = 108
|
||||||
|
*< END OBJECT: BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'chkConturiCorespondente' AS checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Defalcare pe conturi corespondente", ;
|
||||||
|
ControlSource = "xrec.conturicorespondente", ;
|
||||||
|
FontSize = 10, ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "chkConturiCorespondente", ;
|
||||||
|
TabIndex = 7, ;
|
||||||
|
Top = 192, ;
|
||||||
|
Width = 223
|
||||||
|
*< END OBJECT: BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'chkDocumenteSold' AS checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Se afiseaza soldul pe documente", ;
|
||||||
|
ControlSource = "xrec.documentesold", ;
|
||||||
|
FontSize = 10, ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "chkDocumenteSold", ;
|
||||||
|
TabIndex = 9, ;
|
||||||
|
Top = 207, ;
|
||||||
|
Visible = .F., ;
|
||||||
|
Width = 211
|
||||||
|
*< END OBJECT: BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'chkLucrari' AS checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Defalcare pe lucrari", ;
|
||||||
|
ControlSource = "xrec.lucrari", ;
|
||||||
|
FontSize = 10, ;
|
||||||
|
Height = 18, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "chkLucrari", ;
|
||||||
|
TabIndex = 8, ;
|
||||||
|
Top = 223, ;
|
||||||
|
Width = 130
|
||||||
|
*< END OBJECT: BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "Clb_luna_intre1", ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 101, ;
|
||||||
|
Width = 480, ;
|
||||||
|
tx_n1.Left = 212, ;
|
||||||
|
tx_n1.Name = "tx_n1", ;
|
||||||
|
tx_n1.SpecialEffect = 1, ;
|
||||||
|
tx_n1.Top = 3, ;
|
||||||
|
Lb_simplu1.Caption = "Perioada de referinta", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||||
|
tx_n2.Left = 327, ;
|
||||||
|
tx_n2.Name = "tx_n2", ;
|
||||||
|
tx_n2.SpecialEffect = 1, ;
|
||||||
|
tx_n2.Top = 3
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "Clb_tx_simplu1", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 37, ;
|
||||||
|
Width = 124, ;
|
||||||
|
Text_simplu1.BorderStyle = 1, ;
|
||||||
|
Text_simplu1.ControlSource = "thisform.ccont", ;
|
||||||
|
Text_simplu1.DisabledBackColor = 255,255,255, ;
|
||||||
|
Text_simplu1.Height = 23, ;
|
||||||
|
Text_simplu1.Left = 61, ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Text_simplu1.ReadOnly = .T., ;
|
||||||
|
Text_simplu1.SpecialEffect = 1, ;
|
||||||
|
Text_simplu1.TabIndex = 2, ;
|
||||||
|
Text_simplu1.Top = 3, ;
|
||||||
|
Text_simplu1.Width = 59, ;
|
||||||
|
Lb_simplu1.Caption = "Cont", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||||
|
Lb_simplu1.TabIndex = 1
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 145, ;
|
||||||
|
Name = "Clb_tx_simplu2", ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 69, ;
|
||||||
|
Width = 347, ;
|
||||||
|
Text_simplu1.DisabledBackColor = 255,255,255, ;
|
||||||
|
Text_simplu1.Height = 23, ;
|
||||||
|
Text_simplu1.Left = 71, ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Text_simplu1.ReadOnly = .T., ;
|
||||||
|
Text_simplu1.Top = 3, ;
|
||||||
|
Text_simplu1.Width = 271, ;
|
||||||
|
Lb_simplu1.Caption = "Partener", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Op_tx_simplu1' AS op_tx_simplu WITH ;
|
||||||
|
Height = 51, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "Op_tx_simplu1", ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
TabStop = .F., ;
|
||||||
|
Top = 134, ;
|
||||||
|
Width = 215, ;
|
||||||
|
Lb_simplu1.Caption = "Contul este considerat", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||||
|
_optiongrup1.Left = 142, ;
|
||||||
|
_optiongrup1.Name = "_optiongrup1", ;
|
||||||
|
_optiongrup1.Option1.Caption = "Activ", ;
|
||||||
|
_optiongrup1.Option1.Left = 5, ;
|
||||||
|
_optiongrup1.Option1.Name = "Option1", ;
|
||||||
|
_optiongrup1.Option1.Top = 5, ;
|
||||||
|
_optiongrup1.Option2.Caption = "Pasiv", ;
|
||||||
|
_optiongrup1.Option2.Left = 5, ;
|
||||||
|
_optiongrup1.Option2.Name = "Option2", ;
|
||||||
|
_optiongrup1.Option2.Top = 24, ;
|
||||||
|
_optiongrup1.Top = 3
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
PROCEDURE Destroy
|
||||||
|
*!* lcCursorAcont = ALLTRIM(thisform.cCursorAcont)
|
||||||
|
*!* lcCursorCont = ALLTRIM(thisform.cCursorCont)
|
||||||
|
*!* modificare v 2.0.125
|
||||||
|
*!* If thisform.check1.Value#0
|
||||||
|
*!* plexcel = .t.
|
||||||
|
*!* EndIf
|
||||||
|
*!* modificare v 2.0.125 ^
|
||||||
|
*!* IF USED(lcCursorCont)
|
||||||
|
*!* USE IN (lcCursorCont)
|
||||||
|
*!* ENDIF
|
||||||
|
|
||||||
|
*!* IF USED(lcCursorAcont)
|
||||||
|
*!* USE IN (lcCursorAcont)
|
||||||
|
*!* ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE chkConturiCorespondente.Valid
|
||||||
|
Local llVisible
|
||||||
|
llVisible = (This.Value = .F.)
|
||||||
|
|
||||||
|
xrec.DocumenteSold = .F.
|
||||||
|
Thisform.chkDocumenteSold.Refresh()
|
||||||
|
Thisform.chkDocumenteSold.Visible = m.llVisible
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Clb_luna_intre1.LostFocus
|
||||||
|
|
||||||
|
lcdatai = this.tx_n1.Value
|
||||||
|
lcdataf = this.tx_n2.Value
|
||||||
|
|
||||||
|
IF !EMPTY(lcdatai) AND !EMPTY(lcdataf)
|
||||||
|
xrec.lunai = ALLTRIM(STR(VAL(LEFT(lcdatai,2))))
|
||||||
|
xrec.lunaf = ALLTRIM(STR(VAL(LEFT(lcdataf,2))))
|
||||||
|
xrec.ani = RIGHT(lcdatai,4)
|
||||||
|
xrec.anf = RIGHT(lcdataf,4)
|
||||||
|
IF VAL(xrec.ani)*12+VAL(xrec.lunai)>VAL(xrec.anf)*12+VAL(xrec.lunaf)
|
||||||
|
aMESSAGEBOX('Luna initiala nu poate fi mai mare decat cea finala!',16,'Atentie!')
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
IF VAL(xrec.anf)*12+VAL(xrec.lunaf)>gnan*12+gnluna
|
||||||
|
aMESSAGEBOX('Nu puteti selecta ca perioada finala o luna mai mare decat luna curenta!',16,'Atentie!')
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Clb_tx_simplu1.Text_simplu1.GotFocus
|
||||||
|
*!* 28.02.2012
|
||||||
|
*!* marius.mutu
|
||||||
|
*!* la alegerea contului, nu mai apar toate inregistrarile.
|
||||||
|
*!* daca doresc toate conturile apas renunt sau terminat fara cautare
|
||||||
|
|
||||||
|
*!* 11.07.2018
|
||||||
|
*!* marius.mutu
|
||||||
|
*!* salvez denumirea contului
|
||||||
|
|
||||||
|
oCont = caut_cont(,,.F.) && fara toate inregistrarile
|
||||||
|
This.Value = oCont.Cont
|
||||||
|
Thisform.cCont = oCont.Cont
|
||||||
|
xrec.cont=thisform.ccont
|
||||||
|
xrec.acont=NVL(thisform.acont,'')
|
||||||
|
xrec.dencont = Alltrim(oCont.explicatie)
|
||||||
|
|
||||||
|
Thisform.tip_sold=oCont.tip_sold
|
||||||
|
Thisform.acont=Nvl(oCont.acont,'')
|
||||||
|
If Thisform.acont<>''
|
||||||
|
Thisform.acontexp=Alltrim(Thisform.acont) +'-'+ Alltrim(oCont.explicatie)
|
||||||
|
Else
|
||||||
|
Thisform.acontexp=''+ Alltrim(oCont.explicatie)
|
||||||
|
Endif
|
||||||
|
Thisform._txbase1.Refresh
|
||||||
|
If !Empty(Thisform.cCont)
|
||||||
|
Do Case
|
||||||
|
Case Upper(Alltrim(Thisform.tip_sold))='A'
|
||||||
|
Thisform.op_tx_simplu1._optiongrup1.Value=1
|
||||||
|
xrec.Activ = 'A'
|
||||||
|
Case Upper(Alltrim(Thisform.tip_sold))='P'
|
||||||
|
Thisform.op_tx_simplu1._optiongrup1.Value=2
|
||||||
|
xrec.Activ = 'P'
|
||||||
|
Otherwise
|
||||||
|
Thisform.op_tx_simplu1._optiongrup1.Value=1
|
||||||
|
xrec.Activ = 'A'
|
||||||
|
Endcase
|
||||||
|
Endif
|
||||||
|
Thisform.op_tx_simplu1.Refresh
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid
|
||||||
|
If !Empty(Thisform.acont)
|
||||||
|
xrec.acont = Alltrim(Thisform.acont)
|
||||||
|
Endif
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
*!* Local lcCont, lnSucces, lcCursorCont, lcCursorAcont
|
||||||
|
*!* lcCursorCont = ""
|
||||||
|
*!* lcCursorAcont = ""
|
||||||
|
*!* lnSucces = 1
|
||||||
|
*!* If Alltrim(This.Value) = "<TOATE INREGISTRARILE>"
|
||||||
|
*!* lcCont = ""
|
||||||
|
*!* Else
|
||||||
|
*!* lcCont = Alltrim(This.Value)
|
||||||
|
*!* Endif
|
||||||
|
|
||||||
|
*!* *!* IF EMPTY(lcCont)
|
||||||
|
*!* *!* lnSucces = -1
|
||||||
|
*!* *!* ELSE
|
||||||
|
*!* lcCursorCont = update_plcont(lcCont, gnAn) && updateserver.prg
|
||||||
|
*!* If Empty(lcCursorCont)
|
||||||
|
*!* lnSucces = -1
|
||||||
|
*!* Else
|
||||||
|
*!* Thisform.cCursorcont = Alltrim(lcCursorCont)
|
||||||
|
|
||||||
|
*!* Select (lcCursorCont)
|
||||||
|
*!* If Reccount() = 0
|
||||||
|
*!* aMESSAGEBOX('Contul ' + lcCont + ' nu este introdus in planul de conturi!',16,'Atentie!')
|
||||||
|
*!* lnSucces = -1
|
||||||
|
*!* Endif
|
||||||
|
|
||||||
|
*!* Thisform.cb_tx_simplu1._cbbase1.RowSource=''
|
||||||
|
*!* lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg
|
||||||
|
*!* Thisform.cCursorAcont = Alltrim(lcCursorAcont)
|
||||||
|
*!* Endif
|
||||||
|
*!* *!* ENDIF
|
||||||
|
|
||||||
|
*!* If lnSucces = -1
|
||||||
|
*!* Return
|
||||||
|
*!* Endif
|
||||||
|
|
||||||
|
*!* xrec.Cont = lcCont
|
||||||
|
*!* If !Empty(lcCont)
|
||||||
|
*!* Select (lcCursorCont)
|
||||||
|
*!* Go Top
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
*!* Do Case
|
||||||
|
*!* Case Upper(Alltrim(thisform.tip_sold))='A'
|
||||||
|
*!* Thisform.op_tx_simplu1._optiongrup1.Value=1
|
||||||
|
*!* xrec.Activ = 'A'
|
||||||
|
*!* Case Upper(Alltrim(tip_sold))='P'
|
||||||
|
*!* Thisform.op_tx_simplu1._optiongrup1.Value=2
|
||||||
|
*!* xrec.Activ = 'P'
|
||||||
|
*!* Otherwise
|
||||||
|
*!* Thisform.op_tx_simplu1._optiongrup1.Value=1
|
||||||
|
*!* xrec.Activ = 'A'
|
||||||
|
*!* Endcase
|
||||||
|
******************** 25.02.09
|
||||||
|
|
||||||
|
********************* 25.02.09
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
*!* Thisform.op_tx_simplu1.Visible= .T.
|
||||||
|
*!* Thisform.op_tx_simplu1.Refresh
|
||||||
|
*!* Else
|
||||||
|
*!* Thisform.op_tx_simplu1.Visible= .F.
|
||||||
|
*!* Endif
|
||||||
|
|
||||||
|
*!* With Thisform.cb_tx_simplu1._cbbase1
|
||||||
|
*!* .RowSourceType= 2
|
||||||
|
*!* .RowSource = lcCursorAcont + '.denumire,acont'
|
||||||
|
*!* .BoundColumn=2
|
||||||
|
*!* .BoundTo = .T.
|
||||||
|
*!* Select (lcCursorAcont)
|
||||||
|
*!* Locate For Alltrim(acont) = '-1'
|
||||||
|
*!* If Found()
|
||||||
|
*!* .Value = acont
|
||||||
|
*!* .Refresh
|
||||||
|
*!* Endif
|
||||||
|
|
||||||
|
*!* Endwith
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Clb_tx_simplu2.Text_simplu1.GotFocus
|
||||||
|
* 10.01.2022
|
||||||
|
* nu mai arat partenerii inactivi
|
||||||
|
|
||||||
|
LOCAL lcCont, llToate , llInactiv, llNou
|
||||||
|
llToate = .F.
|
||||||
|
llNou = .F.
|
||||||
|
llInactiv = .F. && arat si partenerii inactivi (pote sunt proveniti din parteneri unificati)
|
||||||
|
|
||||||
|
If Thisform.cCont = "<TOATE INREGISTRARILE>"
|
||||||
|
lcCont = ""
|
||||||
|
llToate = .F.
|
||||||
|
Else
|
||||||
|
lcCont = Thisform.cCont
|
||||||
|
llToate = .T.
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
oPart = caut_parteneri(lcCont, "Caut partener", m.llToate, m.llNou, m.llInactiv)
|
||||||
|
|
||||||
|
This.Value = oPart.denumire
|
||||||
|
Thisform.id_part=oPart.id_part
|
||||||
|
If !Empty(Thisform.id_part)
|
||||||
|
xrec.id_part = Alltrim(Str(Thisform.id_part))
|
||||||
|
xrec.numepart = Upper(Alltrim(oPart.denumire))
|
||||||
|
Endif
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Op_tx_simplu1.LostFocus
|
||||||
|
IF this._optiongrup1.Value = 1
|
||||||
|
xrec.activ = 'A'
|
||||||
|
ELSE
|
||||||
|
xrec.activ = 'P'
|
||||||
|
ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _txbase1.Valid
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
265
Ferestre/frm_config_note_contabile2007.sc2
Normal file
265
Ferestre/frm_config_note_contabile2007.sc2
Normal file
@@ -0,0 +1,265 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_config_note_contabile2007.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_config_note_contabile20071 AS frm_config_note_contabile2007 OF "..\comun\clase\onote_contabile.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Name = "Frm_config_note_contabile20071"
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
_pageframe1.ErasePage = .T.
|
||||||
|
_pageframe1.Name = "_pageframe1"
|
||||||
|
_pageframe1.Page1.But_modifica1.Name = "But_modifica1"
|
||||||
|
_pageframe1.Page1.But_modifica2.Name = "But_modifica2"
|
||||||
|
_pageframe1.Page1.But_nou1.Name = "But_nou1"
|
||||||
|
_pageframe1.Page1.But_nou2.Name = "But_nou2"
|
||||||
|
_pageframe1.Page1.But_sterge1.Name = "But_sterge1"
|
||||||
|
_pageframe1.Page1.But_sterge2.Name = "But_sterge2"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cAscc.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cAscc.Name = "cAscc"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cAscc.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cAscd.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cAscd.Name = "cAscd"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cAscd.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cCu_tva.Check1.Alignment = 2
|
||||||
|
_pageframe1.Page1.gridInregistrari.cCu_tva.Check1.Name = "Check1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cCu_tva.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cCu_tva.Name = "cCu_tva"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cExplicatie.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cExplicatie.Name = "cExplicatie"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cExplicatie.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cExplicatieTVA.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cExplicatieTVA.Name = "cExplicatieTVA"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cExplicatieTVA.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cin_valuta.Check1.Alignment = 2
|
||||||
|
_pageframe1.Page1.gridInregistrari.cin_valuta.Check1.Name = "Check1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cin_valuta.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cin_valuta.Name = "cin_valuta"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cOrdine.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cOrdine.Name = "cOrdine"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cOrdine.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cPartc.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cPartc.Name = "cPartc"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cPartc.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cPartd.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cPartd.Name = "cPartd"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cPartd.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cptva.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cptva.Name = "cptva"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cptva.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cScc.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cScc.Name = "cScc"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cScc.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cScd.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cScd.Name = "cScd"
|
||||||
|
_pageframe1.Page1.gridInregistrari.cScd.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridInregistrari.Name = "gridInregistrari"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page1.gridNote.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.gridNote.Name = "gridNote"
|
||||||
|
_pageframe1.Page1.Name = "Page1"
|
||||||
|
_pageframe1.Page2.But_copiaza2.Name = "But_copiaza2"
|
||||||
|
_pageframe1.Page2.But_editeazaset.Name = "But_editeazaset"
|
||||||
|
_pageframe1.Page2.But_modifica1.Name = "But_modifica1"
|
||||||
|
_pageframe1.Page2.But_modifica2.Name = "But_modifica2"
|
||||||
|
_pageframe1.Page2.But_nou1.Name = "But_nou1"
|
||||||
|
_pageframe1.Page2.But_nou2.Name = "But_nou2"
|
||||||
|
_pageframe1.Page2.But_renunt3.Name = "But_renunt3"
|
||||||
|
_pageframe1.Page2.But_salveaza1.Name = "But_salveaza1"
|
||||||
|
_pageframe1.Page2.But_sterge1.Name = "But_sterge1"
|
||||||
|
_pageframe1.Page2.But_sterge2.Name = "But_sterge2"
|
||||||
|
_pageframe1.Page2.grdNote.CALES.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.CALES.Name = "CALES"
|
||||||
|
_pageframe1.Page2.grdNote.CALES.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.CALES._CHECKBOX1.Alignment = 2
|
||||||
|
_pageframe1.Page2.grdNote.CALES._CHECKBOX1.Name = "_CHECKBOX1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN10.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN10.Name = "COLUMN10"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN10.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN11.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN11.Name = "COLUMN11"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN11.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN12.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN12.Name = "COLUMN12"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN12.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN13.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN13.Name = "COLUMN13"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN13.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN14.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN14.Name = "COLUMN14"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN14.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN15.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN15.Name = "COLUMN15"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN15.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN16.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN16.Name = "COLUMN16"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN16.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN17.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN17.Name = "COLUMN17"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN17.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN18.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN18.Name = "COLUMN18"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN18.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN19.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN19.Name = "COLUMN19"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN19.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN2.Header2.Name = "Header2"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN20.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN20.Name = "COLUMN20"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN20.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN21.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN21.Name = "COLUMN21"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN21.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN22.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN22.Name = "COLUMN22"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN22.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN23.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN23.Name = "COLUMN23"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN23.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN24.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN24.Name = "COLUMN24"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN24.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN25.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN25.Name = "COLUMN25"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN25.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN26.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN26.Name = "COLUMN26"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN26.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN27.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN27.Name = "COLUMN27"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN27.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN28.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN28.Name = "COLUMN28"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN28.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN29.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN29.Name = "COLUMN29"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN29.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN3.Header3.Name = "Header3"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN30.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN30.Name = "COLUMN30"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN30.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN31.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN31.Name = "COLUMN31"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN31.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN32.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN32.Name = "COLUMN32"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN32.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.Column33.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.Column33.Name = "Column33"
|
||||||
|
_pageframe1.Page2.grdNote.Column33.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.Column34.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.Column34.Name = "Column34"
|
||||||
|
_pageframe1.Page2.grdNote.Column34.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.Column35.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.Column35.Name = "Column35"
|
||||||
|
_pageframe1.Page2.grdNote.Column35.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.Column36.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.Column36.Name = "Column36"
|
||||||
|
_pageframe1.Page2.grdNote.Column36._CHECKBOX1.Alignment = 2
|
||||||
|
_pageframe1.Page2.grdNote.Column36._CHECKBOX1.Name = "_CHECKBOX1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN37.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN37.Name = "COLUMN37"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN37.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN38.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN38.Name = "COLUMN38"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN38.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN39.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN39.Name = "COLUMN39"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN39.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN4.Header4.Name = "Header4"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN40.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN40.Name = "COLUMN40"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN40.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN5.Header5.Name = "Header5"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN6.Header6.Name = "Header6"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN6.Name = "COLUMN6"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN6.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN7.Header7.Name = "Header7"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN7.Name = "COLUMN7"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN7.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN8.Header8.Name = "Header8"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN8.Name = "COLUMN8"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN8.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN9.Header9.Name = "Header9"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN9.Name = "COLUMN9"
|
||||||
|
_pageframe1.Page2.grdNote.COLUMN9.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdNote.Name = "grdNote"
|
||||||
|
_pageframe1.Page2.grdRequest.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdRequest.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2.grdRequest.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdRequest.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdRequest.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2.grdRequest.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdRequest.Name = "grdRequest"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cCategorie.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cCategorie.Name = "cCategorie"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cCategorie.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cIdCategorie.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cIdCategorie.Name = "cIdCategorie"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cIdCategorie.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cOrdine.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cOrdine.Name = "cOrdine"
|
||||||
|
_pageframe1.Page2.grdUCategorii.cOrdine.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdUCategorii.Name = "grdUCategorii"
|
||||||
|
_pageframe1.Page2.grdUSets.cIdSet.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdUSets.cIdSet.Name = "cIdSet"
|
||||||
|
_pageframe1.Page2.grdUSets.cIdSet.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdUSets.cNumeSet.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdUSets.cNumeSet.Name = "cNumeSet"
|
||||||
|
_pageframe1.Page2.grdUSets.cNumeSet.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdUSets.Name = "grdUSets"
|
||||||
|
_pageframe1.Page2.lblCategorie.Name = "lblCategorie"
|
||||||
|
_pageframe1.Page2.lblCategorii.Name = "lblCategorii"
|
||||||
|
_pageframe1.Page2.lblNote.Name = "lblNote"
|
||||||
|
_pageframe1.Page2.lblOrdine.Name = "lblOrdine"
|
||||||
|
_pageframe1.Page2.lblRequest.Name = "lblRequest"
|
||||||
|
_pageframe1.Page2.lblSets.Name = "lblSets"
|
||||||
|
_pageframe1.Page2.Name = "Page2"
|
||||||
|
_pageframe1.Page2.spnOrdine.Name = "spnOrdine"
|
||||||
|
_pageframe1.Page2.txtCategorie.Name = "txtCategorie"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
418
Ferestre/frm_decl394_2016.sc2
Normal file
418
Ferestre/frm_decl394_2016.sc2
Normal file
@@ -0,0 +1,418 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_decl394_2016.scx" CPID="1250" /> (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_decl394_20161 AS frm_decl394_2016 OF "..\clase\ovanzcump.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Name = "Frm_decl394_20161"
|
||||||
|
_SHAPE1.Name = "_SHAPE1"
|
||||||
|
_SHAPE2.Name = "_SHAPE2"
|
||||||
|
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||||||
|
GRIDSORT1.Name = "GRIDSORT1"
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
_pageframe1.ErasePage = .T.
|
||||||
|
_pageframe1.Name = "_pageframe1"
|
||||||
|
_pageframe1.Page1.cboTip.Name = "cboTip"
|
||||||
|
_pageframe1.Page1.chkOperatiuni.Alignment = 0
|
||||||
|
_pageframe1.Page1.chkOperatiuni.Name = "chkOperatiuni"
|
||||||
|
_pageframe1.Page1.chkTVAIncasare.Alignment = 0
|
||||||
|
_pageframe1.Page1.chkTVAIncasare.Name = "chkTVAIncasare"
|
||||||
|
_pageframe1.Page1.chkTvaNedeductibil.Alignment = 0
|
||||||
|
_pageframe1.Page1.chkTvaNedeductibil.Name = "chkTvaNedeductibil"
|
||||||
|
_pageframe1.Page1.cmdCitesteDate.Name = "cmdCitesteDate"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.grdSeriiFacturi.Name = "grdSeriiFacturi"
|
||||||
|
_pageframe1.Page1.grdTipDoc.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.grdTipDoc.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page1.grdTipDoc.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.grdTipDoc.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page1.grdTipDoc.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page1.grdTipDoc.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page1.grdTipDoc.Name = "grdTipDoc"
|
||||||
|
_pageframe1.Page1.Name = "Page1"
|
||||||
|
_pageframe1.Page1._label1.Name = "_label1"
|
||||||
|
_pageframe1.Page1._label2.Name = "_label2"
|
||||||
|
_pageframe1.Page1._label3.Name = "_label3"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN10.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN10.Name = "COLUMN10"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN10.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN5.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN6.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN6.Name = "COLUMN6"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN6.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN7.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN7.Name = "COLUMN7"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN7.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN8.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN8.Name = "COLUMN8"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN8.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN9.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN9.Name = "COLUMN9"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.COLUMN9.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdAutoFacturi.Name = "grdAutoFacturi"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiAlocate.Name = "grdFacturiAlocate"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmise.Name = "grdFacturiEmise"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdFacturiEmiseTip.Name = "grdFacturiEmiseTip"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2.grdSectiuneaI.Name = "grdSectiuneaI"
|
||||||
|
_pageframe1.Page2.lblAutofacturi.Name = "lblAutofacturi"
|
||||||
|
_pageframe1.Page2.Name = "Page2"
|
||||||
|
_pageframe1.Page2.txtNrFacturiEmise.Name = "txtNrFacturiEmise"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN5.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN6.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN6.Name = "COLUMN6"
|
||||||
|
_pageframe1.Page2._grdbase1.COLUMN6.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page2._grdbase1.Name = "_grdbase1"
|
||||||
|
_pageframe1.Page2._label1.Name = "_label1"
|
||||||
|
_pageframe1.Page2._label2.Name = "_label2"
|
||||||
|
_pageframe1.Page2._label3.Name = "_label3"
|
||||||
|
_pageframe1.Page2._label4.Name = "_label4"
|
||||||
|
_pageframe1.Page2._label5.Name = "_label5"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN5.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN6.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN6.Name = "COLUMN6"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.COLUMN6.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI4.Name = "grdSectiuneaI4"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN5.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page3.grdSectiuneaI6.Name = "grdSectiuneaI6"
|
||||||
|
_pageframe1.Page3.Name = "Page3"
|
||||||
|
_pageframe1.Page3._label1.Name = "_label1"
|
||||||
|
_pageframe1.Page3._label10.Name = "_label10"
|
||||||
|
_pageframe1.Page3._label11.Name = "_label11"
|
||||||
|
_pageframe1.Page3._label2.Name = "_label2"
|
||||||
|
_pageframe1.Page3._label3.Name = "_label3"
|
||||||
|
_pageframe1.Page3._label4.Name = "_label4"
|
||||||
|
_pageframe1.Page3._label5.Name = "_label5"
|
||||||
|
_pageframe1.Page3._label6.Name = "_label6"
|
||||||
|
_pageframe1.Page3._label7.Name = "_label7"
|
||||||
|
_pageframe1.Page3._label8.Name = "_label8"
|
||||||
|
_pageframe1.Page3._label9.Name = "_label9"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN10.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN10.Name = "COLUMN10"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN10.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN11.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN11.Name = "COLUMN11"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN11.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN12.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN12.Name = "COLUMN12"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN12.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN13.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN13.Name = "COLUMN13"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN13.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN14.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN14.Name = "COLUMN14"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN14.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN15.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN15.Name = "COLUMN15"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN15.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN16.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN16.Name = "COLUMN16"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN16.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN17.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN17.Name = "COLUMN17"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN17.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN18.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN18.Name = "COLUMN18"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN18.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN19.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN19.Name = "COLUMN19"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN19.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN20.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN20.Name = "COLUMN20"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN20.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN21.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN21.Name = "COLUMN21"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN21.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN22.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN22.Name = "COLUMN22"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN22.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN23.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN23.Name = "COLUMN23"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN23.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN24.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN24.Name = "COLUMN24"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN24.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN25.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN25.Name = "COLUMN25"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN25.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN26.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN26.Name = "COLUMN26"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN26.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN27.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN27.Name = "COLUMN27"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN27.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN28.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN28.Name = "COLUMN28"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN28.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN29.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN29.Name = "COLUMN29"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN29.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN30.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN30.Name = "COLUMN30"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN30.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN31.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN31.Name = "COLUMN31"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN31.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN32.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN32.Name = "COLUMN32"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN32.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN33.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN33.Name = "COLUMN33"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN33.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN34.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN34.Name = "COLUMN34"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN34.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN35.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN35.Name = "COLUMN35"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN35.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN36.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN36.Name = "COLUMN36"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN36.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN37.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN37.Name = "COLUMN37"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN37.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN38.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN38.Name = "COLUMN38"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN38.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN39.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN39.Name = "COLUMN39"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN39.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN40.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN40.Name = "COLUMN40"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN40.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN41.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN41.Name = "COLUMN41"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN41.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN42.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN42.Name = "COLUMN42"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN42.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN5.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN6.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN6.Name = "COLUMN6"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN6.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN7.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN7.Name = "COLUMN7"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN7.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN8.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN8.Name = "COLUMN8"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN8.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN9.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN9.Name = "COLUMN9"
|
||||||
|
_pageframe1.Page4.grdJTVA.COLUMN9.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page4.grdJTVA.Name = "grdJTVA"
|
||||||
|
_pageframe1.Page4.Name = "Page4"
|
||||||
|
_pageframe1.Page4._label7.Name = "_label7"
|
||||||
|
_pageframe1.Page5.cmdCitesteDate.Name = "cmdCitesteDate"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN10.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN10.Name = "COLUMN10"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN10.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN11.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN11.Name = "COLUMN11"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN11.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN12.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN12.Name = "COLUMN12"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN12.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN13.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN13.Name = "COLUMN13"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN13.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN2.Name = "COLUMN2"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN2.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN3.Name = "COLUMN3"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN3.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN4.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN4.Name = "COLUMN4"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN4.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN5.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN6.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN6.Name = "COLUMN6"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN6.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN7.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN7.Name = "COLUMN7"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN7.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN8.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN8.Name = "COLUMN8"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN8.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN9.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN9.Name = "COLUMN9"
|
||||||
|
_pageframe1.Page5.grdCrsamef.COLUMN9.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdCrsamef.Name = "grdCrsamef"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN1.Name = "COLUMN1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN1.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN10.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN10.Name = "COLUMN10"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN10.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN11.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN11.Name = "COLUMN11"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN11.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN12.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN12.Name = "COLUMN12"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN12.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN13.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN13.Name = "COLUMN13"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN13.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN5.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN5.Name = "COLUMN5"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN5.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN6.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN6.Name = "COLUMN6"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN6.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN7.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN7.Name = "COLUMN7"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN7.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN8.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN8.Name = "COLUMN8"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN8.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN9.HEADER1.Name = "HEADER1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN9.Name = "COLUMN9"
|
||||||
|
_pageframe1.Page5.grdPersFizice.COLUMN9.Text1.Name = "Text1"
|
||||||
|
_pageframe1.Page5.grdPersFizice.Name = "grdPersFizice"
|
||||||
|
_pageframe1.Page5.Name = "Page5"
|
||||||
|
_pageframe1.Page5._label1.Name = "_label1"
|
||||||
|
_pageframe1.Page5._label7.Name = "_label7"
|
||||||
|
But_renunt1.Name = "But_renunt1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
16743
Ferestre/frm_decl406_saft.sc2
Normal file
16743
Ferestre/frm_decl406_saft.sc2
Normal file
File diff suppressed because it is too large
Load Diff
2802
Ferestre/frm_import_extrase_banca.sc2
Normal file
2802
Ferestre/frm_import_extrase_banca.sc2
Normal file
File diff suppressed because it is too large
Load Diff
3011
Ferestre/frm_import_note_a4200.sc2
Normal file
3011
Ferestre/frm_import_note_a4200.sc2
Normal file
File diff suppressed because it is too large
Load Diff
113
Ferestre/frm_list_balana.sc2
Normal file
113
Ferestre/frm_list_balana.sc2
Normal file
@@ -0,0 +1,113 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_list_balana.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 formtermin12 AS formtermin OF "..\comun\clase\baza.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="GRIDB1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="GRIDB1.Column2.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="GRIDB1.Column2.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="GRIDB1.Column2.Check1" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 1
|
||||||
|
DataSession = 1
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 310
|
||||||
|
Name = "FormTERMIN12"
|
||||||
|
Width = 195
|
||||||
|
Shape1.Height = 36
|
||||||
|
Shape1.Left = 0
|
||||||
|
Shape1.Name = "Shape1"
|
||||||
|
Shape1.Top = 0
|
||||||
|
Shape1.Width = 157
|
||||||
|
Terminat1.Command1.Name = "Command1"
|
||||||
|
Terminat1.Imbuton1.Height = 27
|
||||||
|
Terminat1.Imbuton1.Name = "Imbuton1"
|
||||||
|
Terminat1.Imbuton1.Width = 30
|
||||||
|
Terminat1.Left = 159
|
||||||
|
Terminat1.Name = "Terminat1"
|
||||||
|
Terminat1.Top = 2
|
||||||
|
Titlufrumos1.AutoSize = .T.
|
||||||
|
Titlufrumos1.Caption = "Bifati conturile care nu se listeaza cu analitice:"
|
||||||
|
Titlufrumos1.ForeColor = 0,64,128
|
||||||
|
Titlufrumos1.Height = 38
|
||||||
|
Titlufrumos1.Left = 12
|
||||||
|
Titlufrumos1.Name = "Titlufrumos1"
|
||||||
|
Titlufrumos1.Top = 36
|
||||||
|
Titlufrumos1.Width = 161
|
||||||
|
Titlufrumos1.WordWrap = .T.
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'GRIDB1' AS gridb WITH ;
|
||||||
|
ColumnCount = 2, ;
|
||||||
|
FontName = "Arial Narrow", ;
|
||||||
|
Height = 218, ;
|
||||||
|
Left = 10, ;
|
||||||
|
Name = "GRIDB1", ;
|
||||||
|
Panel = 1, ;
|
||||||
|
Top = 75, ;
|
||||||
|
Width = 169, ;
|
||||||
|
Column1.ControlSource = "cont", ;
|
||||||
|
Column1.FontName = "Arial Narrow", ;
|
||||||
|
Column1.Header1.Alignment = 2, ;
|
||||||
|
Column1.Header1.Caption = "Cont", ;
|
||||||
|
Column1.Header1.FontName = "Arial Narrow", ;
|
||||||
|
Column1.Header1.Name = "Header1", ;
|
||||||
|
Column1.Name = "Column1", ;
|
||||||
|
Column1.Text1.FontName = "Arial Narrow", ;
|
||||||
|
Column1.Text1.Name = "Text1", ;
|
||||||
|
Column1.Width = 76, ;
|
||||||
|
Column2.ControlSource = "bifa", ;
|
||||||
|
Column2.CurrentControl = "Check1", ;
|
||||||
|
Column2.FontName = "Arial Narrow", ;
|
||||||
|
Column2.Name = "Column2", ;
|
||||||
|
Column2.Sparse = .F., ;
|
||||||
|
Column2.Width = 62
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
|
||||||
|
|
||||||
|
ADD OBJECT 'GRIDB1.Column2.Check1' AS checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
Caption = "", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 22, ;
|
||||||
|
Name = "Check1", ;
|
||||||
|
SpecialEffect = 1, ;
|
||||||
|
Top = 30, ;
|
||||||
|
Width = 60
|
||||||
|
*< END OBJECT: BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'GRIDB1.Column2.Header1' AS header WITH ;
|
||||||
|
Caption = "Nu se listeaza", ;
|
||||||
|
FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'GRIDB1.Column2.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
422
Ferestre/frm_stornare_plinc.sc2
Normal file
422
Ferestre/frm_stornare_plinc.sc2
Normal file
@@ -0,0 +1,422 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_stornare_plinc.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_termin_renunt1 AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_clb_fdoc" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_nract" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_clb_cont" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Ct_clb_partener" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_perioadaref" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cSerie_act.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cSerie_act.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cNract.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cNract.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cDataact.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cDataact.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cFdoc.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cFdoc.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cCod.Header1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="grd_documente.cCod.Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_dataireg" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Clb_dataact" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*m: do_cauta_cont
|
||||||
|
*m: do_cauta_document
|
||||||
|
*m: do_cauta_partener
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 560
|
||||||
|
Name = "Frm_termin_renunt1"
|
||||||
|
Width = 731
|
||||||
|
_shape1.Height = 29
|
||||||
|
_shape1.Left = 0
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape1.Top = 0
|
||||||
|
_shape1.Width = 732
|
||||||
|
_shape2.Height = 29
|
||||||
|
_shape2.Left = 669
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Top = 0
|
||||||
|
_shape2.Width = 62
|
||||||
|
Lb_titlu_alb_b121.Caption = "Stornare plat<61> / <20>ncasare"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
Lb_titlu_alb_b121.TabIndex = 11
|
||||||
|
BUT_TERMIN1.Left = 700
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
BUT_TERMIN1.TabIndex = 9
|
||||||
|
BUT_TERMIN1.Top = 1
|
||||||
|
Gridsort1.Left = 334
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
Gridsort1.Top = 38
|
||||||
|
But_renunt1.Left = 671
|
||||||
|
But_renunt1.Name = "But_renunt1"
|
||||||
|
But_renunt1.TabIndex = 10
|
||||||
|
But_renunt1.Top = 1
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_dataact' AS clb_tx_data WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "Clb_dataact", ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 94, ;
|
||||||
|
Width = 312, ;
|
||||||
|
Text_simplu1.ControlSource = "poRec.dataact", ;
|
||||||
|
Text_simplu1.Left = 125, ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Text_simplu1.Top = 3, ;
|
||||||
|
Text_simplu1.Width = 148, ;
|
||||||
|
Lb_simplu1.Caption = "Data documentului", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||||
|
Cmd_buton1.Left = 277, ;
|
||||||
|
Cmd_buton1.Name = "Cmd_buton1", ;
|
||||||
|
Cmd_buton1.Top = 2
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_dataireg' AS clb_tx_data WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "Clb_dataireg", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 38, ;
|
||||||
|
Width = 312, ;
|
||||||
|
Text_simplu1.ControlSource = "poRec.dataireg", ;
|
||||||
|
Text_simplu1.Height = 23, ;
|
||||||
|
Text_simplu1.Left = 125, ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Text_simplu1.Top = 3, ;
|
||||||
|
Text_simplu1.Width = 148, ;
|
||||||
|
Lb_simplu1.Caption = "Dat<61> <20>nregistrare", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||||
|
Cmd_buton1.Left = 277, ;
|
||||||
|
Cmd_buton1.Name = "Cmd_buton1", ;
|
||||||
|
Cmd_buton1.Top = 2
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_nract' AS clb_tx_simplu WITH ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "Clb_nract", ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 122, ;
|
||||||
|
Width = 312, ;
|
||||||
|
Text_simplu1.ControlSource = "poRec.nract", ;
|
||||||
|
Text_simplu1.Left = 123, ;
|
||||||
|
Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Text_simplu1.Top = 3, ;
|
||||||
|
Lb_simplu1.Caption = "Nr. documentului", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Clb_perioadaref' AS clb_nr_intre WITH ;
|
||||||
|
Height = 29, ;
|
||||||
|
Left = 370, ;
|
||||||
|
Name = "Clb_perioadaref", ;
|
||||||
|
TabIndex = 7, ;
|
||||||
|
Top = 107, ;
|
||||||
|
Width = 312, ;
|
||||||
|
tx_n1.ControlSource = "poRec.datai", ;
|
||||||
|
tx_n1.Height = 23, ;
|
||||||
|
tx_n1.Left = 124, ;
|
||||||
|
tx_n1.Name = "tx_n1", ;
|
||||||
|
tx_n1.Top = 3, ;
|
||||||
|
tx_n1.Width = 79, ;
|
||||||
|
Lb_simplu1.Caption = "Perioada de referin<69><6E>", ;
|
||||||
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||||
|
tx_n2.ControlSource = "poRec.dataf", ;
|
||||||
|
tx_n2.Height = 23, ;
|
||||||
|
tx_n2.Left = 228, ;
|
||||||
|
tx_n2.Name = "tx_n2", ;
|
||||||
|
tx_n2.Top = 3, ;
|
||||||
|
tx_n2.Width = 80
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_clb_cont' AS ct_clb_cautare_var WITH ;
|
||||||
|
cconditie = EMPTY(NVL(poRec.cont,'')), ;
|
||||||
|
cprocedura = Thisform.do_cauta_cont, ;
|
||||||
|
ctooltip = Alegeti contul, ;
|
||||||
|
cvar_afisata = poRec.cont, ;
|
||||||
|
Left = 369, ;
|
||||||
|
Name = "Ct_clb_cont", ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 50, ;
|
||||||
|
shape_cautare.Name = "shape_cautare", ;
|
||||||
|
img_cautare.Name = "img_cautare", ;
|
||||||
|
lb_cautare.Caption = "Cont", ;
|
||||||
|
lb_cautare.Left = 9, ;
|
||||||
|
lb_cautare.Name = "lb_cautare", ;
|
||||||
|
lb_cautare.Top = 8, ;
|
||||||
|
tx_cautare.Name = "tx_cautare"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_clb_fdoc' AS ct_clb_cautare_var WITH ;
|
||||||
|
cconditie = EMPTY(NVL(poRec.id_fdoc,0)), ;
|
||||||
|
cprocedura = Thisform.do_cauta_document, ;
|
||||||
|
ctooltip = Alegeti felul documentului, ;
|
||||||
|
cvar_afisata = poRec.fdoc, ;
|
||||||
|
Left = 11, ;
|
||||||
|
Name = "Ct_clb_fdoc", ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 65, ;
|
||||||
|
shape_cautare.Name = "shape_cautare", ;
|
||||||
|
img_cautare.Name = "img_cautare", ;
|
||||||
|
lb_cautare.Caption = "Felul documentului", ;
|
||||||
|
lb_cautare.Left = 9, ;
|
||||||
|
lb_cautare.Name = "lb_cautare", ;
|
||||||
|
lb_cautare.Top = 8, ;
|
||||||
|
tx_cautare.Name = "tx_cautare"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare_var WITH ;
|
||||||
|
cconditie = EMPTY(NVL(poRec.id_part,0)), ;
|
||||||
|
cprocedura = Thisform.do_cauta_partener, ;
|
||||||
|
ctooltip = Alegeti partenerul, ;
|
||||||
|
cvar_afisata = poRec.denumire, ;
|
||||||
|
Left = 369, ;
|
||||||
|
Name = "Ct_clb_partener", ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 78, ;
|
||||||
|
shape_cautare.Name = "shape_cautare", ;
|
||||||
|
img_cautare.Name = "img_cautare", ;
|
||||||
|
lb_cautare.Caption = "Partener", ;
|
||||||
|
lb_cautare.Left = 9, ;
|
||||||
|
lb_cautare.Name = "lb_cautare", ;
|
||||||
|
lb_cautare.Top = 8, ;
|
||||||
|
tx_cautare.Name = "tx_cautare"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente' AS _grdrow WITH ;
|
||||||
|
ColumnCount = 5, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
Height = 360, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "grd_documente", ;
|
||||||
|
Panel = 1, ;
|
||||||
|
RecordSource = "crsDocumenteStorno", ;
|
||||||
|
TabIndex = 8, ;
|
||||||
|
Top = 192, ;
|
||||||
|
Width = 708, ;
|
||||||
|
Column1.ControlSource = "serie_act", ;
|
||||||
|
Column1.Name = "cSerie_act", ;
|
||||||
|
Column2.ControlSource = "nract", ;
|
||||||
|
Column2.Name = "cNract", ;
|
||||||
|
Column2.Width = 96, ;
|
||||||
|
Column3.ControlSource = "TTOD(dataact)", ;
|
||||||
|
Column3.Name = "cDataact", ;
|
||||||
|
Column4.ControlSource = "fdoc", ;
|
||||||
|
Column4.Name = "cFdoc", ;
|
||||||
|
Column5.ControlSource = "cod", ;
|
||||||
|
Column5.Name = "cCod"
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cCod.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cod", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cCod.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cDataact.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Data doc.", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cDataact.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cFdoc.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Fel document", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cFdoc.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cNract.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Nr. doc.", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cNract.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cSerie_act.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Serie doc.", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_documente.cSerie_act.Text1' AS textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
|
||||||
|
Caption = "Face<63>i click pe linia corespunz<6E>toare documentului pe care dori<72>i s<>-l storna<6E>i :", ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "Lb_simplu1", ;
|
||||||
|
TabIndex = 12, ;
|
||||||
|
Top = 169
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
PROCEDURE Destroy
|
||||||
|
Unbindevents(poRec,"cont",Thisform,"do_cauta")
|
||||||
|
Unbindevents(poRec,"id_part",Thisform,"do_cauta")
|
||||||
|
Unbindevents(poRec,"datai",Thisform,"do_cauta")
|
||||||
|
Unbindevents(poRec,"dataf",Thisform,"do_cauta")
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_cauta
|
||||||
|
If !Empty(Nvl(poRec.Cont,'')) And !Empty(Nvl(poRec.tip_sold,'')) And !Empty(Nvl(poRec.id_part,0)) ;
|
||||||
|
And !Empty(Nvl(poRec.datai,{})) And !Empty(Nvl(poRec.dataf,{}))
|
||||||
|
With Thisform.grd_documente
|
||||||
|
lcCursor = .RecordSource
|
||||||
|
.salveaza_grid()
|
||||||
|
lcSql = [select distinct serie_act, nract, dataact, fdoc, cod from vact ] + ;
|
||||||
|
[where ] + ;
|
||||||
|
IIF(poRec.tip_sold = 'P', [scd = '] + ALLTRIM(NVL(poRec.Cont, '')) + [' and id_partd = ] + ALLTRIM(STR(poRec.id_part)),[scc = '] + ALLTRIM(NVL(poRec.Cont, '')) + [' and id_partc = ] + ALLTRIM(STR(poRec.id_part))) + ;
|
||||||
|
[ and dataact between to_date('] + DTOS(poRec.datai)+ [','yyyymmdd') and to_date('] + DTOS(poRec.dataf)+ [','yyyymmdd')] + ;
|
||||||
|
[order by dataact]
|
||||||
|
If goExecutor.oExecuta(lcSql,lcCursor)
|
||||||
|
If Reccount(lcCursor) = 0
|
||||||
|
amessagebox("Cautarea nu a intors rezultate!",64,"Atentie")
|
||||||
|
Endif
|
||||||
|
Endif
|
||||||
|
.incarca_grid()
|
||||||
|
.AutoFit()
|
||||||
|
Endwith
|
||||||
|
Endif
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_cauta_cont
|
||||||
|
Local loCauta
|
||||||
|
loCauta = caut_cont(,,,.T.)
|
||||||
|
If !Isnull(loCauta) And !Empty(loCauta.Cont)
|
||||||
|
poRec.Cont = Alltrim(loCauta.Cont)
|
||||||
|
poRec.tip_sold = Alltrim(loCauta.tip_sold)
|
||||||
|
|
||||||
|
This.ct_clb_cont.Refresh()
|
||||||
|
This.ct_clb_partener.SetFocus()
|
||||||
|
Endif
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_cauta_document
|
||||||
|
Local loCauta
|
||||||
|
loCauta = caut_fdoc()
|
||||||
|
If !Isnull(loCauta) And !Empty(loCauta.fel_document)
|
||||||
|
poRec.id_fdoc = loCauta.id_fdoc
|
||||||
|
poRec.fdoc = loCauta.fel_document
|
||||||
|
|
||||||
|
This.ct_clb_fdoc.Refresh()
|
||||||
|
This.clb_dataact.SetFocus()
|
||||||
|
Endif
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_cauta_partener
|
||||||
|
Local loCauta
|
||||||
|
loCauta = CautPartenerContabilitate(GetHash([cCont=>]+Alltrim(poRec.Cont)))
|
||||||
|
If !Empty(Nvl(loCauta.id_part,0)) And !Empty(loCauta.denumire)
|
||||||
|
poRec.id_part = loCauta.id_part
|
||||||
|
poRec.denumire = loCauta.denumire
|
||||||
|
|
||||||
|
This.ct_clb_partener.Refresh()
|
||||||
|
This.clb_perioadaref.SetFocus()
|
||||||
|
Endif
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE inainte_de_do_termin
|
||||||
|
Local llReturn
|
||||||
|
llReturn = .F.
|
||||||
|
|
||||||
|
Do Case
|
||||||
|
Case Empty(Nvl(poRec.dataireg,{}))
|
||||||
|
amessagebox("Nu ati completat data inregistrarii!",48,"Atentie")
|
||||||
|
Thisform.clb_dataireg.SetFocus()
|
||||||
|
Case Empty(Nvl(poRec.id_fdoc,0))
|
||||||
|
amessagebox("Nu ati ales felul documentului!",48,"Atentie")
|
||||||
|
Thisform.ct_clb_fdoc.SetFocus()
|
||||||
|
Case Empty(Nvl(poRec.dataact,{}))
|
||||||
|
amessagebox("Nu ati completat data documentului!",48,"Atentie")
|
||||||
|
Thisform.clb_dataact.SetFocus()
|
||||||
|
Case Empty(Nvl(poRec.nract,0))
|
||||||
|
amessagebox("Numarul documentului trebuie sa fie diferit de 0!",48,"Atentie")
|
||||||
|
Thisform.clb_nract.SetFocus()
|
||||||
|
Case Reccount(Thisform.grd_documente.RecordSource) = 0
|
||||||
|
amessagebox("Nu ati ales documentul pentru care se face stornarea!",48,"Atentie")
|
||||||
|
Thisform.grd_documente.SetFocus()
|
||||||
|
Otherwise
|
||||||
|
poRec.cursor = Thisform.grd_documente.RecordSource
|
||||||
|
llReturn = .T.
|
||||||
|
Endcase
|
||||||
|
|
||||||
|
Return llReturn
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Init
|
||||||
|
DoDefault()
|
||||||
|
Bindevent(poRec,"cont",Thisform,"do_cauta",1)
|
||||||
|
Bindevent(poRec,"id_part",Thisform,"do_cauta",1)
|
||||||
|
Bindevent(poRec,"datai",Thisform,"do_cauta",1)
|
||||||
|
Bindevent(poRec,"dataf",Thisform,"do_cauta",1)
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Clb_dataireg.Text_simplu1.LostFocus
|
||||||
|
poRec.dataact = poRec.dataireg
|
||||||
|
Thisform.clb_dataact.Refresh()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
103
Ferestre/fundal.sc2
Normal file
103
Ferestre/fundal.sc2
Normal file
@@ -0,0 +1,103 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (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 = 595
|
||||||
|
MaxButton = .F.
|
||||||
|
MinButton = .F.
|
||||||
|
Movable = .F.
|
||||||
|
Name = "Form1"
|
||||||
|
ostatusbar = .F.
|
||||||
|
Picture = ..\..\
|
||||||
|
Width = 795
|
||||||
|
WindowState = 2
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
PROCEDURE jurnal
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE KeyPress
|
||||||
|
LPARAMETERS nKeyCode, nShiftAltCtrl
|
||||||
|
if nkeycode==-1 &&F2
|
||||||
|
DO IESIRE
|
||||||
|
endif
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Show
|
||||||
|
Lparameters nStyle
|
||||||
|
DoDefault(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
|
||||||
|
*!*
|
||||||
|
|
||||||
|
|
||||||
|
Do start_firma In ostartfirma.prg
|
||||||
|
primadata = .F.
|
||||||
|
This.AlwaysOnBottom = .T.
|
||||||
|
Do lansare_toolbar In oproceduri_comune.prg
|
||||||
|
DO lansare_help IN oproceduri_comune.prg
|
||||||
|
oprinc=Createobject('princ')
|
||||||
|
oprinc.Show()
|
||||||
|
*!* oprinc.pagefr1.p1.click()
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE statusbarclick
|
||||||
|
*MESSAGEBOX(_Screen.ActiveForm.name)
|
||||||
|
Thisform.oStatusBar.newtooltip()
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
1085
Ferestre/sesizare.sc2
Normal file
1085
Ferestre/sesizare.sc2
Normal file
File diff suppressed because it is too large
Load Diff
BIN
Grafice/AFIS1.BMP
Normal file
BIN
Grafice/AFIS1.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 358 B |
BIN
Grafice/ARW01LT.ICO
Normal file
BIN
Grafice/ARW01LT.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/ARW01RT.ICO
Normal file
BIN
Grafice/ARW01RT.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/BLUE.BMP
Normal file
BIN
Grafice/BLUE.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 630 B |
BIN
Grafice/BOOK.ICO
Normal file
BIN
Grafice/BOOK.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/BOOK01A.ICO
Normal file
BIN
Grafice/BOOK01A.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/BOOK01B.ICO
Normal file
BIN
Grafice/BOOK01B.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/BOOK01C.ICO
Normal file
BIN
Grafice/BOOK01C.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/BOOK04.ICO
Normal file
BIN
Grafice/BOOK04.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/BUT.BMP
Normal file
BIN
Grafice/BUT.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 382 B |
BIN
Grafice/BUTa.BMP
Normal file
BIN
Grafice/BUTa.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 382 B |
BIN
Grafice/C.ico
Normal file
BIN
Grafice/C.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
BIN
Grafice/CASA2.bmp
Normal file
BIN
Grafice/CASA2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/EDIT1.BMP
Normal file
BIN
Grafice/EDIT1.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 358 B |
BIN
Grafice/FILES04.ICO
Normal file
BIN
Grafice/FILES04.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/FIND.BMP
Normal file
BIN
Grafice/FIND.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 246 B |
BIN
Grafice/FURNIZOR.bmp
Normal file
BIN
Grafice/FURNIZOR.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 382 B |
BIN
Grafice/HLP.BMP
Normal file
BIN
Grafice/HLP.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 246 B |
BIN
Grafice/LEAF.BMP
Normal file
BIN
Grafice/LEAF.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 222 B |
BIN
Grafice/Money2.ico
Normal file
BIN
Grafice/Money2.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
BIN
Grafice/SAGJOS.bmp
Normal file
BIN
Grafice/SAGJOS.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 502 B |
BIN
Grafice/SECUR05.ICO
Normal file
BIN
Grafice/SECUR05.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/SHAPES.ICO
Normal file
BIN
Grafice/SHAPES.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
BIN
Grafice/Vechi/Cont11.ico
Normal file
BIN
Grafice/Vechi/Cont11.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/Vechi/EXCLAM1.ICO
Normal file
BIN
Grafice/Vechi/EXCLAM1.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/Vechi/MARIO.ICO
Normal file
BIN
Grafice/Vechi/MARIO.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.7 KiB |
BIN
Grafice/Vechi/MIJ-AL.BMP
Normal file
BIN
Grafice/Vechi/MIJ-AL.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 92 KiB |
BIN
Grafice/Vechi/MIJ-GA.BMP
Normal file
BIN
Grafice/Vechi/MIJ-GA.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 92 KiB |
BIN
Grafice/Vechi/PER-AL.BMP
Normal file
BIN
Grafice/Vechi/PER-AL.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 62 KiB |
BIN
Grafice/Vechi/PER-GA.BMP
Normal file
BIN
Grafice/Vechi/PER-GA.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 62 KiB |
BIN
Grafice/Vechi/cont2003.ico
Normal file
BIN
Grafice/Vechi/cont2003.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/Vechi/gestiuni.bmp
Normal file
BIN
Grafice/Vechi/gestiuni.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 232 KiB |
BIN
Grafice/Vechi/mfix.ICO
Normal file
BIN
Grafice/Vechi/mfix.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
BIN
Grafice/WHITE.bmp
Normal file
BIN
Grafice/WHITE.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 190 B |
36
Grafice/WZSETUP.INI
Normal file
36
Grafice/WZSETUP.INI
Normal file
@@ -0,0 +1,36 @@
|
|||||||
|
[Preferences]
|
||||||
|
DistributionDirectory=C:\VFP\DISTRIB\
|
||||||
|
DistributionSourceDirectory=C:\VFP\DISTRIB.SRC\
|
||||||
|
SourceDirectory=E:\CONT2000\CONTAB\GRAFICE\
|
||||||
|
InstallFoxProRuntime=Y
|
||||||
|
InstallGraph=N
|
||||||
|
InstallODBCDrivers=N
|
||||||
|
AccessDriver=Y
|
||||||
|
FoxPro2xDriver=Y
|
||||||
|
dBASEDriver=Y
|
||||||
|
ParadoxDriver=Y
|
||||||
|
SQLServerDriver=Y
|
||||||
|
ExcelDriver=Y
|
||||||
|
TextDriver=Y
|
||||||
|
OracleDriver=Y
|
||||||
|
Oracle7Driver=Y
|
||||||
|
BtrieveDriver=Y
|
||||||
|
VFPDriver=Y
|
||||||
|
InstallWindows95=N
|
||||||
|
InstallWindowsNT=N
|
||||||
|
DestinationDirectory=E:\CONTSETUP\
|
||||||
|
Make1.44MegDisks=N
|
||||||
|
Make1.2MegDisks=N
|
||||||
|
Make720KDisks=N
|
||||||
|
MakeNetsetup=Y
|
||||||
|
SetupBanner=gr
|
||||||
|
Copyright=gr
|
||||||
|
PostExecute=
|
||||||
|
UserDefaultDirectory=\GRAFICE\
|
||||||
|
ProgManGroup=Visual FoxPro Applications
|
||||||
|
UserCanModify=1
|
||||||
|
SplitSize=363520
|
||||||
|
FileCustomizationDelimiter=~
|
||||||
|
InstRemoteAuto=N
|
||||||
|
InstActiveX=N
|
||||||
|
|
||||||
BIN
Grafice/bal1.bmp
Normal file
BIN
Grafice/bal1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/bal2.bmp
Normal file
BIN
Grafice/bal2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/banca1.bmp
Normal file
BIN
Grafice/banca1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/banca2.bmp
Normal file
BIN
Grafice/banca2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/casa1.bmp
Normal file
BIN
Grafice/casa1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/clie1.bmp
Normal file
BIN
Grafice/clie1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/clie2.bmp
Normal file
BIN
Grafice/clie2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/fact_c.bmp
Normal file
BIN
Grafice/fact_c.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.8 KiB |
BIN
Grafice/fctc1.bmp
Normal file
BIN
Grafice/fctc1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/fctc2.bmp
Normal file
BIN
Grafice/fctc2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/fctv1.bmp
Normal file
BIN
Grafice/fctv1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/fctv2.bmp
Normal file
BIN
Grafice/fctv2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
BIN
Grafice/furn1.bmp
Normal file
BIN
Grafice/furn1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.4 KiB |
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user