romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 10:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored Normal file
View 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
View 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
View File

Binary file not shown.

42
Alte/Extras_de_cont_11634808MT 940.txt Normal file
View 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

8111
Alte/SmartBill2ROA/ExportSmartBill/10.2020/F_RO16148853_multiple_01.10.2020.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/Facturi_11_11_2020.xlsx Normal file
View File

Binary file not shown.

BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx Normal file
View File

Binary file not shown.

2126
Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/F_34759480_multiple_01.10.2020.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/Facturi_17_11_2020.xlsx Normal file
View File

Binary file not shown.

BIN
Alte/SmartBill2ROA/ExportSmartBill/obsidian/10_2020/facturi_roa.xlsx Normal file
View File

Binary file not shown.

BIN
Alte/SmartBill2ROA/SmartBill2ROA.exe Normal file
View File

Binary file not shown.

92
Alte/SmartBill2ROA/SmartBill2ROA.pj2 Normal file
View 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
View 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
View 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
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

214
CLAUDE.md Normal file
View 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
View File

File diff suppressed because it is too large Load Diff

437
Clase/appwiz.vc2 Normal file
View 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
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

1202
Clase/contabilitate_rapoarte.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

639
Clase/inchideri_sal.vc2 Normal file
View 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
View File

File diff suppressed because it is too large Load Diff

1179
Clase/oactualizari.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

500
Clase/oconfigcont.vc2 Normal file
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

9634
Clase/ointroduceri_cont.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

513
Clase/orapoarte_contabilitate.vc2 Normal file
View 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
View File

File diff suppressed because it is too large Load Diff

1130
Clase/oteste.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

55154
Clase/ovanzcump.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1034
Clase/penalitati.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

337
Clase/saft_d406.vc2 Normal file
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

2802
Ferestre/frm_import_extrase_banca.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

3011
Ferestre/frm_import_note_a4200.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

113
Ferestre/frm_list_balana.sc2 Normal file
View 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
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

BIN
Grafice/AFIS1.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 358 B

BIN
Grafice/ARW01LT.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/ARW01RT.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/BLUE.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 630 B

BIN
Grafice/BOOK.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/BOOK01A.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/BOOK01B.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/BOOK01C.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/BOOK04.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/BUT.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 382 B

BIN
Grafice/BUTa.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 382 B

BIN
Grafice/C.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

BIN
Grafice/CASA2.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/EDIT1.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 358 B

BIN
Grafice/FILES04.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/FIND.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 246 B

BIN
Grafice/FURNIZOR.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 382 B

BIN
Grafice/HLP.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 246 B

BIN
Grafice/LEAF.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 222 B

BIN
Grafice/Money2.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

BIN
Grafice/SAGJOS.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 502 B

BIN
Grafice/SECUR05.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/SHAPES.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

BIN
Grafice/Vechi/Cont11.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/Vechi/EXCLAM1.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/Vechi/MARIO.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.7 KiB

BIN
Grafice/Vechi/MIJ-AL.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 92 KiB

BIN
Grafice/Vechi/MIJ-GA.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 92 KiB

BIN
Grafice/Vechi/PER-AL.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 62 KiB

BIN
Grafice/Vechi/PER-GA.BMP Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 62 KiB

BIN
Grafice/Vechi/cont2003.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Grafice/Vechi/gestiuni.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 232 KiB

BIN
Grafice/Vechi/mfix.ICO Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

BIN
Grafice/WHITE.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 190 B

36
Grafice/WZSETUP.INI Normal file
View 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
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/bal2.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/banca1.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/banca2.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/casa1.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/clie1.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/clie2.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/fact_c.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.8 KiB

BIN
Grafice/fctc1.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/fctc2.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/fctv1.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/fctv2.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
Grafice/furn1.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.4 KiB

Some files were not shown because too many files have changed in this diff Show More