Initial import of ROACONT (Visual FoxPro accounting app) into git
Migrated from the ROACONT SVN trunk working copy for hosting on gitea.romfast.ro.
This commit is contained in:
36
.gitignore
vendored
Normal file
36
.gitignore
vendored
Normal file
@@ -0,0 +1,36 @@
|
||||
# Fisiere generate/compilate Visual FoxPro (regenerate de compilator, nu se versioneaza)
|
||||
*.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.PreARM
|
||||
roacont_ref.CDX
|
||||
roacont_ref.DBF
|
||||
roacont_ref.FPT
|
||||
|
||||
# Subversion (working copy paralela / migrare de la SVN)
|
||||
.svn/
|
||||
BIN
Alte/Extras_de_cont_11634808EXCEL.xls
Normal file
BIN
Alte/Extras_de_cont_11634808EXCEL.xls
Normal file
Binary file not shown.
42
Alte/Extras_de_cont_11634808MT 940.txt
Normal file
42
Alte/Extras_de_cont_11634808MT 940.txt
Normal file
@@ -0,0 +1,42 @@
|
||||
|
||||
:20:44457020001
|
||||
:25:RO57RZBR0000060011634808
|
||||
:28C:213/1
|
||||
:NS:22A.B.C.VAL SRL
|
||||
23Cont curent CORPORATE RON
|
||||
:60F:D171220RON2815046,47
|
||||
:61:1712201220D82665,12NTRF32871258//3A9H3KUEDK5T72I
|
||||
:86:000^20C/V F. 54^24Ref.Doc 1501/OPIB^30GE GARAN
|
||||
TI BANK S.A.^31RO68UGBI0000442012404RON^32ADINA SI
|
||||
CAMI UNIVERS SRL
|
||||
:61:1712201220D13,74NCOMNONREF//3A9H3KUEDK5T72S
|
||||
:86:000^20Comision OPIB Interbancar
|
||||
:61:1712201220D173,74NTRFRO 13838336//3A9H3KUEDK5T732
|
||||
:86:000^20CV.FACT 3829503 SI 3889431^24Ref.Doc 150
|
||||
2/OPMC^30RAIFFEISEN BANK S.A.^31RO50RZBR0000060005
|
||||
285217^32SC FAN COURIER EXPRESS SRL
|
||||
:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T73C
|
||||
:86:000^20Comision MC intrabancar
|
||||
:61:1712201220D3141,04NTRFNONREF//3A9H3KUEDK5T73M
|
||||
:86:000^20Tranzactie instrument debit^24BO/RZBR3AE
|
||||
0497677^30PIRAEUS BANK ROMANIA S.A.^31RO09PIRB1801
|
||||
733066002000^32DYNAMIC SELLING GROUP SRL
|
||||
:61:1712201220D8,00NCOMNONREF//3A9H3KUEDK5T73W
|
||||
:86:000^20Comision plata BO/RZBR3AE/0^21497677
|
||||
:61:1712201220D21600,00NTRF2711022131264//3A9H3KUEDK5T746
|
||||
:86:000^20plata salarii noiembrie/mel^21enc^32mele
|
||||
ndu diana florentina
|
||||
:61:1712201220D162,00NCOMNONREF//3A9H3KUEDK5T747
|
||||
:86:000^20Com retragereIMM lei
|
||||
:61:1712201220D7300,00NTRFNONREF//3A9H3KUEDK5T74G
|
||||
:86:000^20transfer suma^24Ref.Doc 1503/OPIB^30RAIF
|
||||
FEISEN BANK S.A.^31RO53RZBR0000060019503132^32A.B.
|
||||
C.VAL SRL
|
||||
:61:1712201220D197,54NTRFRO 13838336//3A9H3KUEDK5T74Q
|
||||
:86:000^20CV.F. 3859683^24Ref.Doc 1504/OPMC^30RAI
|
||||
FFEISEN BANK S.A.^31RO50RZBR0000060005285217^32SC
|
||||
FAN COURIER EXPRESS SRL
|
||||
:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T750
|
||||
:86:000^20Comision MC intrabancar
|
||||
:62F:D171220RON2930309,65
|
||||
:64:D171220RON2930309,65
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx
Normal file
BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx
Normal file
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
BIN
Alte/SmartBill2ROA/SmartBill2ROA.PJT
Normal file
BIN
Alte/SmartBill2ROA/SmartBill2ROA.PJT
Normal file
Binary file not shown.
BIN
Alte/SmartBill2ROA/SmartBill2ROA.exe
Normal file
BIN
Alte/SmartBill2ROA/SmartBill2ROA.exe
Normal file
Binary file not shown.
BIN
Alte/SmartBill2ROA/SmartBill2ROA.pjx
Normal file
BIN
Alte/SmartBill2ROA/SmartBill2ROA.pjx
Normal file
Binary file not shown.
BIN
Alte/SmartBill2ROA/VFPxWorkbookXLSX.VCT
Normal file
BIN
Alte/SmartBill2ROA/VFPxWorkbookXLSX.VCT
Normal file
Binary file not shown.
296
Alte/SmartBill2ROA/VFPxWorkbookXLSX.h
Normal file
296
Alte/SmartBill2ROA/VFPxWorkbookXLSX.h
Normal file
@@ -0,0 +1,296 @@
|
||||
#DEFINE CR CHR(13)
|
||||
#DEFINE LF CHR(10)
|
||||
#DEFINE CRLF CR+LF
|
||||
#DEFINE TAB CHR(9)
|
||||
#DEFINE False .F.
|
||||
#DEFINE True .T.
|
||||
#DEFINE FOF_SILENT 4
|
||||
|
||||
#DEFINE LIMITS_MAX_CELL_CHARS 32767
|
||||
#DEFINE LIMITS_MAX_COLUMNS 16384
|
||||
#DEFINE LIMITS_MAX_ROWS 1048576
|
||||
#DEFINE LIMITS_MAX_ROW_HEIGHT 409
|
||||
#DEFINE LIMITS_MAX_COLUMN_WIDTH 255
|
||||
#DEFINE LIMITS_MAX_HDR_FTR_CHARS 255
|
||||
#DEFINE LIMITS_MAX_CELL_FORMATS 200
|
||||
#DEFINE LIMITS_MAX_FILL_STYLES 256
|
||||
#DEFINE LIMITS_MAX_LINE_STYLES 256
|
||||
#DEFINE LIMITS_MAX_FONTS 512
|
||||
#DEFINE LIMITS_MAX_FORMULA_LENGTH 8192
|
||||
#DEFINE LIMITS_MAX_SH_NAME 30
|
||||
|
||||
#DEFINE INSERT_BEFORE "BEFORE"
|
||||
#DEFINE INSERT_AFTER "AFTER"
|
||||
#DEFINE INSERT_RIGHT "RIGHT"
|
||||
#DEFINE INSERT_LEFT "LEFT"
|
||||
|
||||
#DEFINE START_NUMERIC_FORMAT_ID 165
|
||||
|
||||
#DEFINE SCOPE_WB_NAMED_RANGE 0 && Scope of named range - workbook
|
||||
#DEFINE SCOPE_SH_NAMED_RANGE 1 && Scope of named range - limited to sheet
|
||||
|
||||
#DEFINE VISIBLE_SHEET_STATE 0 && visible (default)
|
||||
#DEFINE HIDDEN_SHEET_STATE 1 && hidden
|
||||
#DEFINE VERYHIDDEN_SHEET_STATE 2 && veryHidden
|
||||
|
||||
#DEFINE NONE_VALID_TYPE 1 && none
|
||||
#DEFINE WHOLE_VALID_TYPE 2 && whole
|
||||
#DEFINE DECIMAL_VALID_TYPE 3 && decimal
|
||||
#DEFINE LIST_VALID_TYPE 4 && list
|
||||
#DEFINE DATE_VALID_TYPE 5 && date
|
||||
#DEFINE TIME_VALID_TYPE 6 && time
|
||||
#DEFINE TXTLEN_VALID_TYPE 7 && textLength
|
||||
#DEFINE CUSTOM_VALID_TYPE 8 && custom
|
||||
|
||||
#DEFINE STOP_VALID_STYLE 1 && stop
|
||||
#DEFINE WARN_VALID_STYLE 2 && warning
|
||||
#DEFINE INFO_VALID_STYLE 3 && information
|
||||
|
||||
#DEFINE BETWEEN_VALID_OPER 1 && between
|
||||
#DEFINE NOTBETW_VALID_OPER 2 && notBetween
|
||||
#DEFINE EQUAL_VALID_OPER 3 && equal
|
||||
#DEFINE NOTEQUAL_VALID_OPER 4 && notEqual
|
||||
#DEFINE LESSTHAN_VALID_OPER 5 && lessThan
|
||||
#DEFINE LESSOREQUAL_VALID_OPER 6 && lessThanOrEqual
|
||||
#DEFINE GREATTHAN_VALID_OPER 7 && greaterThan
|
||||
#DEFINE GREATOREQUAL_VALID_OPER 8 && greaterThanOrEqual
|
||||
|
||||
#DEFINE PORTRAIT_PRINT_ORIENTATION 1
|
||||
#DEFINE LANDSCAPE_PRINT_ORIENTATION 2
|
||||
|
||||
#DEFINE PAPERSIZE_LTR 1 && Letter paper (8.5 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_LTR_SMALL 2 && Letter small paper (8.5 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_TABLOID 3 && Tabloid paper (11 in. BY 17 in.)
|
||||
#DEFINE PAPERSIZE_LEDGER 4 && Ledger paper (17 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_LEGAL 5 && Legal paper (8.5 in. BY 14 in.)
|
||||
#DEFINE PAPERSIZE_STATEMENT 6 && Statement paper (5.5 in. BY 8.5 in.)
|
||||
#DEFINE PAPERSIZE_EXECUTIVE 7 && Executive paper (7.25 in. BY 10.5 in.)
|
||||
#DEFINE PAPERSIZE_A3 8 && A3 paper (297 mm BY 420 mm)
|
||||
#DEFINE PAPERSIZE_A4 9 && A4 paper (210 mm BY 297 mm)
|
||||
#DEFINE PAPERSIZE_A4_SMALL 10 && A4 small paper (210 mm BY 297 mm)
|
||||
#DEFINE PAPERSIZE_A5 11 && A5 paper (148 mm BY 210 mm)
|
||||
#DEFINE PAPERSIZE_B4 12 && B4 paper (250 mm BY 353 mm)
|
||||
#DEFINE PAPERSIZE_B5 13 && B5 paper (176 mm BY 250 mm)
|
||||
#DEFINE PAPERSIZE_FOLIO 14 && Folio paper (8.5 in. BY 13 in.)
|
||||
#DEFINE PAPERSIZE_QUARTO 15 && Quarto paper (215 mm BY 275 mm)
|
||||
#DEFINE PAPERSIZE_STD10X14 16 && Standard paper (10 in. BY 14 in.)
|
||||
#DEFINE PAPERSIZE_STD11X17 17 && Standard paper (11 in. BY 17 in.)
|
||||
#DEFINE PAPERSIZE_NOTE 18 && NOTE paper (8.5 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_9ENV 19 && #9 envelope (3.875 in. BY 8.875 in.)
|
||||
#DEFINE PAPERSIZE_10ENV 20 && #10 envelope (4.125 in. BY 9.5 in.)
|
||||
#DEFINE PAPERSIZE_11ENV 21 && #11 envelope (4.5 in. BY 10.375 in.)
|
||||
#DEFINE PAPERSIZE_12ENV 22 && #12 envelope (4.75 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_14ENV 23 && #14 envelope (5 in. BY 11.5 in.)
|
||||
#DEFINE PAPERSIZE_C 24 && C paper (17 in. BY 22 in.)
|
||||
#DEFINE PAPERSIZE_D 25 && D paper (22 in. BY 34 in.)
|
||||
#DEFINE PAPERSIZE_E 26 && E paper (34 in. BY 44 in.)
|
||||
#DEFINE PAPERSIZE_DL_ENV 27 && DL envelope (110 mm BY 220 mm)
|
||||
#DEFINE PAPERSIZE_C5_ENV 28 && C5 envelope (162 mm BY 229 mm)
|
||||
#DEFINE PAPERSIZE_C3_ENV 29 && C3 envelope (324 mm BY 458 mm)
|
||||
#DEFINE PAPERSIZE_C4_ENV 30 && C4 envelope (229 mm BY 324 mm)
|
||||
#DEFINE PAPERSIZE_C6_ENV 31 && C6 envelope (114 mm BY 162 mm)
|
||||
#DEFINE PAPERSIZE_C65_ENV 32 && C65 envelope (114 mm BY 229 mm)
|
||||
#DEFINE PAPERSIZE_B4_ENV 33 && B4 envelope (250 mm BY 353 mm)
|
||||
#DEFINE PAPERSIZE_B5_ENV 34 && B5 envelope (176 mm BY 250 mm)
|
||||
#DEFINE PAPERSIZE_B6_ENV 35 && B6 envelope (176 mm BY 125 mm)
|
||||
#DEFINE PAPERSIZE_ITALY_ENV 36 && Italy envelope (110 mm BY 230 mm)
|
||||
#DEFINE PAPERSIZE_MONARCH_ENV 37 && Monarch envelope (3.875 in. BY 7.5 in.).
|
||||
#DEFINE PAPERSIZE_6_3_4_ENV 38 && 6 3/4 envelope (3.625 in. BY 6.5 in.)
|
||||
#DEFINE PAPERSIZE_US_STD_FANFOLD 39 && US standard fanfold (14.875 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_GERMAN_STD_FANFOLD 40 && German standard fanfold (8.5 in. BY 12 in.)
|
||||
#DEFINE PAPERSIZE_GERMAN_LGL_FANFOLD 41 && German legal fanfold (8.5 in. BY 13 in.)
|
||||
#DEFINE PAPERSIZE_ISO_B4 42 && ISO B4 (250 mm BY 353 mm)
|
||||
#DEFINE PAPERSIZE_JPN_DBL_POSTCARD 43 && JPN DOUBLE postcard (200 mm BY 148 mm)
|
||||
#DEFINE PAPERSIZE_STD_PAPER9X11 44 && Standard paper (9 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_STD_PAPER10X11 45 && Standard paper (10 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_STD_PAPER15X11 46 && Standard paper (15 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_INVITE_ENV 47 && Invite envelope (220 mm BY 220 mm)
|
||||
#DEFINE PAPERSIZE_LTR_XTRA_PAPER 50 && Letter extra paper (9.275 in. BY 12 in.)
|
||||
#DEFINE PAPERSIZE_LEGAL_XTRA_PAPER 51 && Legal extra paper (9.275 in. BY 15 in.)
|
||||
#DEFINE PAPERSIZE_TABLOID_XTRA_PAPER 52 && Tabloid extra paper (11.69 in. BY 18 in.)
|
||||
#DEFINE PAPERSIZE_A4_XTRA_PAPER 53 && A4 extra paper (236 mm BY 322 mm)
|
||||
#DEFINE PAPERSIZE_LTR_TRANSVERSE 54 && Letter transverse paper (8.275 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_A4_TRANSVERSE 55 && A4 transverse paper (210 mm BY 297 mm)
|
||||
#DEFINE PAPERSIZE_LTR_XTRA_TRANSV 56 && Letter extra transverse paper (9.275 in. BY 12 in.)
|
||||
#DEFINE PAPERSIZE_SUPERA_A4 57 && SuperA/SuperA/A4 paper (227 mm BY 356 mm)
|
||||
#DEFINE PAPERSIZE_SUPERB_A3 58 && SuperB/SuperB/A3 paper (305 mm BY 487 mm)
|
||||
#DEFINE PAPERSIZE_LTR_PLUS 59 && Letter plus paper (8.5 in. BY 12.69 in.)
|
||||
#DEFINE PAPERSIZE_A4_PLUS 60 && A4 plus paper (210 mm BY 330 mm)
|
||||
#DEFINE PAPERSIZE_A5_TRANSVERSE 61 && A5 transverse paper (148 mm BY 210 mm)
|
||||
#DEFINE PAPERSIZE_JIS_B5_TRANSVERS 62 && JIS B5 transverse paper (182 mm BY 257 mm)
|
||||
#DEFINE PAPERSIZE_A3_EXTRA 63 && A3 extra paper (322 mm BY 445 mm)
|
||||
#DEFINE PAPERSIZE_A5_EXTRA 64 && A5 extra paper (174 mm BY 235 mm)
|
||||
#DEFINE PAPERSIZE_ISO_B5_EXTRA 65 && ISO B5 extra paper (201 mm BY 276 mm)
|
||||
#DEFINE PAPERSIZE_A2 66 && A2 paper (420 mm BY 594 mm)
|
||||
#DEFINE PAPERSIZE_A3_TRANSVERSE 67 && A3 transverse paper (297 mm BY 420 mm)
|
||||
#DEFINE PAPERSIZE_A3_EXTRA_TRANSVE 68 && A3 extra transverse paper (322 mm BY 445 mm)
|
||||
#DEFINE PAPERSIZE_JPN_DOUBLE 69 && JPN DOUBLE Postcard (200 mm x 148 mm)
|
||||
#DEFINE PAPERSIZE_A6 70 && A6 (105 mm x 148 mm)
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU1 71 && JPN Envelope Kaku #2
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU2 72 && JPN Envelope Kaku #3
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU3 73 && JPN Envelope Chou #3
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU4 74 && JPN Envelope Chou #4
|
||||
#DEFINE PAPERSIZE_LTR_ROT 75 && Letter Rotated (11in x 8 1/2 11 IN)
|
||||
#DEFINE PAPERSIZE_A3_ROT 76 && A3 Rotated (420 mm x 297 mm)
|
||||
#DEFINE PAPERSIZE_A4_ROT 77 && A4 Rotated (297 mm x 210 mm)
|
||||
#DEFINE PAPERSIZE_A5_ROT 78 && A5 Rotated (210 mm x 148 mm)
|
||||
#DEFINE PAPERSIZE_B4_JIS_ROT 79 && B4 (JIS) Rotated (364 mm x 257 mm)
|
||||
#DEFINE PAPERSIZE_B5_JIS_ROT 80 && B5 (JIS) Rotated (257 mm x 182 mm)
|
||||
#DEFINE PAPERSIZE_JPN_POSTCARD 81 && JPN Postcard Rotated (148 mm x 100 mm)
|
||||
#DEFINE PAPERSIZE_DOUBLE_JPN 82 && DOUBLE JPN Postcard Rotated (148 mm x 200 mm)
|
||||
#DEFINE PAPERSIZE_A6_ROT 83 && A6 Rotated (148 mm x 105 mm)
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU2_ROT 84 && JPN Envelope Kaku #2 Rotated
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU3_ROT 85 && JPN Envelope Kaku #3 Rotated
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU3_ROT 86 && JPN Envelope Chou #3 Rotated
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU4_ROT 87 && JPN Envelope Chou #4 Rotated
|
||||
#DEFINE PAPERSIZE_B6_JIS 88 && B6 (JIS) (128 mm x 182 mm)
|
||||
#DEFINE PAPERSIZE_B6_JIS_ROT 89 && B6 (JIS) Rotated (182 mm x 128 mm)
|
||||
#DEFINE PAPERSIZE_12X11 90 && (12 IN x 11 IN)
|
||||
#DEFINE PAPERSIZE_JPN_ENV_YOU4 91 && JPN Envelope You #4
|
||||
#DEFINE PAPERSIZE_JPN_ENV_YOU4_ROT 92 && JPN Envelope You #4 Rotated
|
||||
#DEFINE PAPERSIZE_PRC_16K 93 && PRC 16K (146 mm x 215 mm)
|
||||
#DEFINE PAPERSIZE_PRC_32K 94 && PRC 32K (97 mm x 151 mm)
|
||||
#DEFINE PAPERSIZE_PRC_32K_BIG 95 && PRC 32K(Big) (97 mm x 151 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_1 96 && PRC Envelope #1 (102 mm x 165 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_2 97 && PRC Envelope #2 (102 mm x 176 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_3 98 && PRC Envelope #3 (125 mm x 176 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_4 99 && PRC Envelope #4 (110 mm x 208 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_5 100 && PRC Envelope #5 (110 mm x 220 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_6 101 && PRC Envelope #6 (120 mm x 230 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_7 102 && PRC Envelope #7 (160 mm x 230 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_8 103 && PRC Envelope #8 (120 mm x 309 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_9 104 && PRC Envelope #9 (229 mm x 324 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_10 105 && PRC Envelope #10 (324 mm x 458 mm)
|
||||
#DEFINE PAPERSIZE_PRC_16K_ROT 106 && PRC 16K Rotated
|
||||
#DEFINE PAPERSIZE_PRC_32K_ROT 107 && PRC 32K Rotated
|
||||
#DEFINE PAPERSIZE_PRC_32K_BIG_ROT 108 && PRC 32K(Big) Rotated
|
||||
#DEFINE PAPERSIZE_PRC_ENV_1_ROT 109 && PRC Envelope #1 Rotated (165 mm x 102 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_2_ROT 110 && PRC Envelope #2 Rotated (176 mm x 102 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_3_ROT 111 && PRC Envelope #3 Rotated (176 mm x 125 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_4_ROT 112 && PRC Envelope #4 Rotated (208 mm x 110 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_5_ROT 113 && PRC Envelope #5 Rotated (220 mm x 110 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_6_ROT 114 && PRC Envelope #6 Rotated (230 mm x 120 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_7_ROT 115 && PRC Envelope #7 Rotated (230 mm x 160 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_8_ROT 116 && PRC Envelope #8 Rotated (309 mm x 120 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_9_ROT 117 && PRC Envelope #9 Rotated (324 mm x 229 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_10_ROT 118 && PRC Envelope #10 Rotated (458 mm x 324 mm)
|
||||
|
||||
#DEFINE HEADERFOOTER_SECT_HDR_LEFT 1
|
||||
#DEFINE HEADERFOOTER_SECT_HDR_CENTER 2
|
||||
#DEFINE HEADERFOOTER_SECT_HDR_RIGHT 3
|
||||
#DEFINE HEADERFOOTER_SECT_FTR_LEFT 4
|
||||
#DEFINE HEADERFOOTER_SECT_FTR_CENTER 5
|
||||
#DEFINE HEADERFOOTER_SECT_FTR_RIGHT 6
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_NORMAL 0
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_BOLD 1
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_ITALIC 2
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_BOLDITALIC 3
|
||||
#DEFINE HEADERFOOTER_FIRST_PAGE 0
|
||||
#DEFINE HEADERFOOTER_ODD_PAGE 1
|
||||
#DEFINE HEADERFOOTER_EVEN_PAGE 2
|
||||
#DEFINE HEADERFOOTER_SAME_PAGE 3
|
||||
|
||||
#DEFINE DATA_TYPE_NONE "X"
|
||||
#DEFINE DATA_TYPE_DATE "D"
|
||||
#DEFINE DATA_TYPE_DATETIME "T"
|
||||
#DEFINE DATA_TYPE_CHAR "C"
|
||||
#DEFINE DATA_TYPE_INT "I"
|
||||
#DEFINE DATA_TYPE_FLOAT "N"
|
||||
#DEFINE DATA_TYPE_CURRENCY "Y"
|
||||
#DEFINE DATA_TYPE_GENERAL "G"
|
||||
#DEFINE DATA_TYPE_FORMULA "F"
|
||||
#DEFINE DATA_TYPE_TIME "M"
|
||||
#DEFINE DATA_TYPE_PERCENT "P"
|
||||
#DEFINE DATA_TYPE_LOGICAL "L"
|
||||
|
||||
#DEFINE FIELD_TYPE_DATE "D"
|
||||
#DEFINE FIELD_TYPE_DATETIME "T"
|
||||
#DEFINE FIELD_TYPE_CHAR "C"
|
||||
#DEFINE FIELD_TYPE_INT "I"
|
||||
#DEFINE FIELD_TYPE_FLOAT "F"
|
||||
#DEFINE FIELD_TYPE_CURRENCY "Y"
|
||||
#DEFINE FIELD_TYPE_LOGICAL "L"
|
||||
#DEFINE FIELD_TYPE_DOUBLE "B"
|
||||
#DEFINE FIELD_TYPE_MEMO "M"
|
||||
#DEFINE FIELD_TYPE_NUMERIC "N"
|
||||
|
||||
#DEFINE BORDER_LEFT 1
|
||||
#DEFINE BORDER_RIGHT 2
|
||||
#DEFINE BORDER_TOP 4
|
||||
#DEFINE BORDER_BOTTOM 8
|
||||
#DEFINE BORDER_DIAGDOWN 16
|
||||
#DEFINE BORDER_DIAGUP 32
|
||||
|
||||
#DEFINE BORDER_STYLE_NONE "none"
|
||||
#DEFINE BORDER_STYLE_THIN "thin"
|
||||
#DEFINE BORDER_STYLE_HAIR "hair"
|
||||
#DEFINE BORDER_STYLE_DOTTED "dotted"
|
||||
#DEFINE BORDER_STYLE_DASHDOTDOT "dashDotDot"
|
||||
#DEFINE BORDER_STYLE_DASHDOT "dashDot"
|
||||
#DEFINE BORDER_STYLE_DASHED "dashed"
|
||||
#DEFINE BORDER_STYLE_MEDIUMDASHDOTDOT "mediumDashDotDot"
|
||||
#DEFINE BORDER_STYLE_SLANTDASHDOT "slantDashDot"
|
||||
#DEFINE BORDER_STYLE_MEDIUMDASHDOT "mediumDashDot"
|
||||
#DEFINE BORDER_STYLE_MEDIUMDASHED "mediumDashed"
|
||||
#DEFINE BORDER_STYLE_MEDIUM "medium"
|
||||
#DEFINE BORDER_STYLE_THICK "thick"
|
||||
#DEFINE BORDER_STYLE_DOUBLE "double"
|
||||
|
||||
#DEFINE FILL_STYLE_NONE "none"
|
||||
#DEFINE FILL_STYLE_SOLID "solid"
|
||||
#DEFINE FILL_STYLE_GRAY125 "gray125"
|
||||
|
||||
#DEFINE CELL_HORIZ_ALIGN_LEFT "left"
|
||||
#DEFINE CELL_HORIZ_ALIGN_RIGHT "right"
|
||||
#DEFINE CELL_HORIZ_ALIGN_CENTER "center"
|
||||
#DEFINE CELL_VERT_ALIGN_TOP "top"
|
||||
#DEFINE CELL_VERT_ALIGN_BOTTOM "bottom"
|
||||
#DEFINE CELL_VERT_ALIGN_CENTER "center"
|
||||
|
||||
#DEFINE UNDERLINE_SINGLE "single"
|
||||
#DEFINE UNDERLINE_DOUBLE "double"
|
||||
#DEFINE UNDERLINE_SINGLEACCOUNTING "singleAccounting"
|
||||
#DEFINE UNDERLINE_DOUBLEACCOUNTING "doubleAccounting"
|
||||
#DEFINE UNDERLINE_NONE "none"
|
||||
|
||||
#DEFINE FONT_VERTICAL_BASELINE "baseline"
|
||||
#DEFINE FONT_VERTICAL_SUBSCRIPT "subscript"
|
||||
#DEFINE FONT_VERTICAL_SUPERSCRIPT "superscript"
|
||||
|
||||
#DEFINE CELL_FORMAT_INTEGER 1 && 0
|
||||
#DEFINE CELL_FORMAT_FLOAT 2 && 0.00
|
||||
#DEFINE CELL_FORMAT_COMMA_INTEGER 3 && #,##0
|
||||
#DEFINE CELL_FORMAT_COMMA_FLOAT 4 && #,##0.00
|
||||
#DEFINE CELL_FORMAT_CURRENCY_PAREN 7 && $#,##0.00;($#,##0.00)
|
||||
#DEFINE CELL_FORMAT_CURRENCY_RED_PAREN 8 && $#,##0.00;[Red]($#,##0.00)
|
||||
#DEFINE CELL_FORMAT_PERCENT_INTEGER 9 && ###%
|
||||
#DEFINE CELL_FORMAT_PERCENT_FLOAT 10 && ###.00%
|
||||
#DEFINE CELL_FORMAT_EXPONENT 11 && 0.00E+00
|
||||
#DEFINE CELL_FORMAT_FRACTION_1 12 && # ?/?
|
||||
#DEFINE CELL_FORMAT_FRACTION_2 13 && # ??/??
|
||||
#DEFINE CELL_FORMAT_DATE_MMDDYY 14 && mm-dd-yy
|
||||
#DEFINE CELL_FORMAT_DATE_DMMMYY 15 && d-mmm-yy
|
||||
#DEFINE CELL_FORMAT_DATE_DMMM 16 && d-mmm
|
||||
#DEFINE CELL_FORMAT_DATE_MMMYY 17 && mmm-yy
|
||||
#DEFINE CELL_FORMAT_TIME_HMMAMPM 18 && h:mm AM/PM
|
||||
#DEFINE CELL_FORMAT_TIME_HMMSSAMPM 19 && h:mm:ss AM/PM
|
||||
#DEFINE CELL_FORMAT_TIME_HMM 20 && h:mm
|
||||
#DEFINE CELL_FORMAT_TIME_HMMSS 21 && h:mm:ss
|
||||
#DEFINE CELL_FORMAT_DATETIME_MDYYHMM 22 && m/d/yy h:mm
|
||||
#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TTAM 29 && [$-409]dd/mmm/yyyy\ h:mm\ AM/PM;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TT24 30 && dd/mmm/yyyy\ h:mm;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TTAM 31 && [$-409]mmm\ d\,\ yyyy\ h:mm\ AM/PM;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TT24 32 && [$-409]mmm\ d\,\ yyyy\ h:mm;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MDYY_TTAM 33 && m/d/yy\ h:mm\ AM/PM;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MDYY_TT24 34 && m/d/yy\ h:mm;@
|
||||
#DEFINE CELL_FORMAT_COMMA_INTEGER_PAREN 37 && #,##0;(#,##0)
|
||||
#DEFINE CELL_FORMAT_COMMA_INTEGER_RED_PAREN 38 && #,##0;[Red](#,##0)
|
||||
#DEFINE CELL_FORMAT_COMMA_FLOAT_PAREN 39 && #,##0.00;(#,##0.00)
|
||||
#DEFINE CELL_FORMAT_COMMA_FLOAT_RED_PAREN 40 && #,##0.00;[Red](#,##0.00)
|
||||
#DEFINE CELL_FORMAT_TIME_MMSS 45 && mm:ss
|
||||
#DEFINE CELL_FORMAT_TIME_H_MMSS 46 && [h]:mm:ss
|
||||
#DEFINE CELL_FORMAT_CURRENCY_RED 901 && $#,##0.00;[Red]$#,##0.00
|
||||
#DEFINE CELL_FORMAT_ACC_CURR_POUNDS 902 && Accounting British Pounds, <20>#,##0.00
|
||||
#DEFINE CELL_FORMAT_ACC_CURR_EURO 903 && Accounting Euro, <20>#,##0.00
|
||||
#DEFINE CELL_FORMAT_CURR_POUNDS_RED 904 && British Pounds, <20>#,##0.00 RED
|
||||
#DEFINE CELL_FORMAT_CURR_EURO_RED 905 && Euro, <20>#,##0.00 RED
|
||||
3
Alte/SmartBill2ROA/changelog_smartbill2roa.txt
Normal file
3
Alte/SmartBill2ROA/changelog_smartbill2roa.txt
Normal file
@@ -0,0 +1,3 @@
|
||||
15.05.2025
|
||||
v 1.0.10
|
||||
Se completeaza contul '708' pentru articolele care contin: 'curier', 'courier', 'transport'
|
||||
1
Alte/SmartBill2ROA/citeste.txt
Normal file
1
Alte/SmartBill2ROA/citeste.txt
Normal file
@@ -0,0 +1 @@
|
||||
Creeaza fisierul facturi_roa.xlsx din export SmartBill facturi in format saga si facturi excel, pentru import in ROACONT
|
||||
306
Alte/SmartBill2ROA/import_facturi.prg
Normal file
306
Alte/SmartBill2ROA/import_facturi.prg
Normal file
@@ -0,0 +1,306 @@
|
||||
*!* 11.12.2018
|
||||
*!* am folosit o schema XSD la importul din xml facturi saga
|
||||
|
||||
Set Century On
|
||||
Set Ansi On
|
||||
Set Exact On
|
||||
Set Deleted On
|
||||
Set Date Dmy
|
||||
Set Safety Off
|
||||
Set Exclusive Off
|
||||
Close Databases All
|
||||
Set Default To Justpath(Sys(16,0))
|
||||
SET PATH TO 'd:\roa\roacont\comun\programe;' + ;
|
||||
'd:\roa\roacont\comun\utile\excel;' ADDITIVE
|
||||
|
||||
SET PROCEDURE TO regex.prg ADDITIVE
|
||||
Set Procedure To importfromxlsx.prg Additive
|
||||
Set Classlib To vfpxworkbookxlsx.vcx Additive
|
||||
|
||||
_Screen.Caption = "SmartBill2ROA"
|
||||
|
||||
Messagebox('Pentru import din SmartBill sunt necesare fisierele: ' + Chr(13) + Chr(10) + ;
|
||||
'1. facturi export saga (format xml) ex: F_CUI_multiple_zz.ll.aaaa.xml' + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ;
|
||||
'2. facturi export format xlsx ex: Facturi_zz_ll_aaaa.xlsx' + Chr(13) + Chr(10) + ;
|
||||
'* Primul rand din fisierul xlsx trebuie sa fie completat cu denumirile coloanelor',0+64,_Screen.Caption)
|
||||
|
||||
|
||||
*****************************************************************
|
||||
* xml saga - nu are judet/localitate pentru clienti
|
||||
lcFileFacturi = Getfile("xml","Facturi SAGA","Alege", 0, "Alege fisierul xml cu exportul de facturi in format SAGA") && "E:\pass\F_RO16148853_multiple_01.08.2018.xml"
|
||||
If Empty(m.lcFileFacturi)
|
||||
Return
|
||||
Endif
|
||||
If Lower(Justext(m.lcFileFacturi)) <> 'xml'
|
||||
Messagebox('Fisierul trebuie sa fie de tip xml!',0+48,_Screen.Caption)
|
||||
Return
|
||||
Endif
|
||||
|
||||
lcFileFacturiXlsx = Getfile("xlsx","Facturi excel","Alege", 0, "Alege fisierul xlsx cu exportul de facturi in format excel") && 'e:\pass\Facturi_12_09_2018.xlsx'
|
||||
If Empty(m.lcFileFacturiXlsx)
|
||||
Return
|
||||
Endif
|
||||
If Lower(Justext(m.lcFileFacturiXlsx)) <> 'xlsx'
|
||||
Messagebox('Fisierul trebuie sa fie de tip xlsx!',0+48,_Screen.Caption)
|
||||
Return
|
||||
Endif
|
||||
*****************************************************************
|
||||
|
||||
*!* lcFileClienti = 'e:\pass\cli_11_09_2018.xml'
|
||||
lcText = Filetostr(m.lcFileFacturi)
|
||||
|
||||
* ANTETE
|
||||
lcAntete = ""
|
||||
lnAntete = Occurs("<antet>", Lower(m.lcText))
|
||||
For m.lnAntet = 1 To m.lnAntete
|
||||
lcAntet = Strextract(m.lcText, "<antet>", "</antet>", lnAntet,1+4)
|
||||
lcAntete = m.lcAntete + lcAntet + Chr(13) + Chr(10)
|
||||
Endfor
|
||||
|
||||
lcAntete = "<vfpdata>" + m.lcAntete + "</vfpdata>"
|
||||
|
||||
Xmltocursor(m.lcAntete,"cAntetTemp")
|
||||
Select Cast(0 As I) As nAntet, * From cAntetTemp Into Cursor cAntet Readwrite
|
||||
Use In (Select('cAntetTemp'))
|
||||
Replace All nAntet With Recno() In cAntet
|
||||
|
||||
|
||||
***********
|
||||
* Detalii
|
||||
create cursor cDetalii ;
|
||||
(NANTET I, ;
|
||||
CANTITATE N(10,3), ;
|
||||
CODARTICOLCLIENT C(20), ;
|
||||
CODARTICOLFURNIZOR C(20), ;
|
||||
CODBARE C(20), ;
|
||||
DESCRIERE C(100), ;
|
||||
GESTIUNE C(20), ;
|
||||
INFORMATIISUPLIMENTARE C(100), ;
|
||||
LINIENRCRT I, ;
|
||||
PRET N(20,4), ;
|
||||
PROCTVA N(5,2), ;
|
||||
UM C(10), ;
|
||||
VALOARE N(20,4), ;
|
||||
TVA N(20,4))
|
||||
|
||||
TEXT TO lcXSD NOSHOW
|
||||
<xsd:schema id="VFPData" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="VFPData" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="cdetalii" minOccurs="0" maxOccurs="unbounded">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="cantitate">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="9"/>
|
||||
<xsd:fractionDigits value="3"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="codarticolclient">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="codarticolfurnizor">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="codbare">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="descriere">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="100"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="gestiune">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="informatiisuplimentare">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="100"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="linienrcrt" type="xsd:int"/>
|
||||
<xsd:element name="pret">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="19"/>
|
||||
<xsd:fractionDigits value="4"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="proctva">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="4"/>
|
||||
<xsd:fractionDigits value="2"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="um">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="10"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="valoare">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="19"/>
|
||||
<xsd:fractionDigits value="4"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="tva">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="19"/>
|
||||
<xsd:fractionDigits value="4"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
<xsd:anyAttribute namespace="http://www.w3.org/XML/1998/namespace" processContents="lax"/>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
ENDTEXT
|
||||
|
||||
lcDetalii = ""
|
||||
lnDetalii = Occurs("<continut>", Lower(m.lcText))
|
||||
For m.lnDetaliu = 1 To m.lnDetalii
|
||||
lcDetaliu = Strextract(m.lcText, "<continut>", "</continut>", lnDetaliu,1+4)
|
||||
lcDetaliu = STRTRAN(m.lcDetaliu, "<continut>", "<continut>" + CHR(13) + CHR(10) + m.lcXSD + CHR(13) + CHR(10),1,1,1) && adaug schema XSD
|
||||
lcDetaliu = STRTRAN(m.lcDetaliu, "</continut>", "</continut>",1,1,1) && modific tag-ul de sfarsit tot cu litere mici
|
||||
Xmltocursor(m.lcDetaliu,"cDetaliu")
|
||||
Select m.lnDetaliu As nAntet, * From cDetaliu Into Cursor cDetaliiTemp Readwrite
|
||||
Select cDetalii
|
||||
Append From Dbf('cDetaliiTemp')
|
||||
|
||||
Use In (Select("cDetaliu"))
|
||||
Use In (Select("cDetaliiTemp"))
|
||||
|
||||
Endfor
|
||||
|
||||
Select Padr(Upper(Alltrim(a.clientadresa)), 250, ' ') As adresa, a.clientbanca As banca, Padr(Strtran(Upper(a.clientcif), '-', ''), 20, ' ') As cod_fiscal, a.clientiban As cont_banca, a.clientnrregcom As reg_com, Upper(a.clientnume) As denumire, Ctod(a.facturadata) As dataact, a.facturanumar As nrfact, Ctod(a.facturascadenta) As datascad, ;
|
||||
ROUND(b.cantitate,3) As cantitate, Upper(b.descriere) As articol, b.proctva as proctva, ;
|
||||
ROUND(b.valoare,2) As valftva, ;
|
||||
ROUND(b.tva,2) As valtva, ;
|
||||
CAST(0 as N(20,2)) as valctva, ;
|
||||
UPPER(a.facturatvaincasare) As tvaincasare, Upper(a.facturataxareinversa) As taxareinversa ;
|
||||
From cAntet a Left Join cDetalii b On a.nAntet = b.nAntet ;
|
||||
Into Cursor cFacturiSaga READWRITE
|
||||
|
||||
UPDATE cFacturiSaga SET valctva = valftva + valtva
|
||||
|
||||
Use In (Select('cAntet'))
|
||||
Use In (Select('cDetalii'))
|
||||
|
||||
*********
|
||||
* Clienti
|
||||
* cod, denumire, cod_fiscal, reg_com, tara, judet, adresa, cont_banca, banca, tel, email, discount, informatii
|
||||
* "cod","Elena Tomescu","-","reg_com","RO","B","Loc. Bucuresti,Calea Serban Voda nr 133 Corp A , etaj 1, receptie Provident, Cod Postal 40204", "cont_banca", "banca", "tel", "email", "discount", "informatii"
|
||||
* Xmltocursor(m.lcFileClienti,'cClienti',512)
|
||||
|
||||
* Import first sheet
|
||||
|
||||
importfromxlsx(m.lcFileFacturiXlsx,2,'sheet 1',.T.,.T.,1,'facturitemp')
|
||||
|
||||
*!* * sunt fisiere doar cu (valoaretotala), altele cu (valoarefaratva, valoaretva, valoaretotala)
|
||||
*!* IF TYPE('facturitemp.valoarefaratva') <> 'U'
|
||||
*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ;
|
||||
*!* Round(VAL(TRANSFORM(valoarefaratva)), 2) As valftva, ;
|
||||
*!* Round(VAL(TRANSFORM(valoaretva)), 2) As valtva, ;
|
||||
*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ;
|
||||
*!* From facturitemp ;
|
||||
*!* Into Cursor cFacturiXls
|
||||
*!* ELSE
|
||||
*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ;
|
||||
*!* 0 As valftva, ;
|
||||
*!* 0 As valtva, ;
|
||||
*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ;
|
||||
*!* From facturitemp ;
|
||||
*!* Into Cursor cFacturiXls
|
||||
*!* ENDIF
|
||||
|
||||
* Nu am nevoie de valori din fisierul facturitemp
|
||||
Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, ;
|
||||
Padr(Alltrim(factura), 50, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad ;
|
||||
From facturitemp ;
|
||||
Into Cursor cFacturiXls
|
||||
|
||||
Use In (Select('facturitemp'))
|
||||
|
||||
|
||||
*!* lcFile = 'e:\pass\Vanzari_Produse_12_09_2018.xlsx'
|
||||
*!* importfromxlsx(m.lcFile,2,'sheet 1',.T.,.T.,1,'vanzari')
|
||||
|
||||
*!* SELECT UPPER(produs) as articol, PADR(UPPER(client), 100, ' ') as denumire, PADR(STRTRAN(UPPER(cifclient), '-', ''), 20, ' ') as cod_fiscal, PADR(UPPER(ALLTRIM(judetclient)), 100, ' ') as judet, PADR(ALLTRIM(document), 20, ' ') as nrfact, CTOD(ALLTRIM(data)) as datafact, ROUND(valoarefaratva, 2) as valftva, ROUND(valoarecutva,2)-ROUND(valoarefaratva, 2) as valtva, ROUND(valoarecutva, 2) as valctva FROM vanzari INTO CURSOR cVanzarix
|
||||
|
||||
Select a.articol, a.denumire, a.cod_fiscal, a.reg_com, a.nrfact, b.adresa, SPACE(20) as serie_act, CAST(0 as N(14)) As nract, a.dataact, a.datascad, a.proctva, a.valftva, a.valtva, a.valctva, '707' As cont7xx, '' As acont7xx, '' As acont4111, Iif(a.tvaincasare = 'DA', '4428', '4427') As cont442x, Iif(a.tvaincasare = 'DA', '2', ' ') As acont442x, ;
|
||||
'NU' As incasat, '' As casa, '' As cont5xx, '' As acont5xx, ;
|
||||
a.tvaincasare, a.taxareinversa ;
|
||||
FROM cFacturiSaga a Left Join cFacturiXls b On a.nrfact = b.nrfact ;
|
||||
ORDER By a.dataact, a.nrfact ;
|
||||
INTO Cursor cFacturi Readwrite
|
||||
|
||||
* nract = ultime
|
||||
SELECT cFacturi
|
||||
SCAN
|
||||
lcNrAct = Alltrim(Right(Alltrim(GetRegExp(ALLTRIM(nrfact), "[0-9]+$",1)),14))
|
||||
lnNrAct = Int(Val(m.lcNrAct))
|
||||
lcSerieAct = ALLTRIM(STRTRAN(nrfact, m.lcNrAct, '',1,1,1))
|
||||
REPLACE serie_act WITH m.lcSerieAct, nract WITH m.lnNrAct
|
||||
ENDSCAN
|
||||
|
||||
|
||||
USE IN (SELECT('cFacturiSaga'))
|
||||
USE IN (SELECT('cFacturiXls'))
|
||||
|
||||
Update cFacturi Set datascad = dataact Where Empty(datascad)
|
||||
Update cFacturi Set cont7xx = '704' Where 'GRAVURA'$articol
|
||||
Update cFacturi Set cont7xx = '708' Where 'CURIER'$articol OR 'COURIER'$articol OR 'TRANSPORT'$articol
|
||||
Update cFacturi Set cont7xx = '667' Where 'DISCOUNT'$articol
|
||||
Update cFacturi Set cont7xx = '419' Where 'GIFT CARD'$articol
|
||||
*lcTable = ADDBS(JUSTPATH(m.lcFile)) + 'facturi.dbf'
|
||||
Select denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa,;
|
||||
SUM(valftva) As valftva, Sum(valtva) As valtva ;
|
||||
GROUP By denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa ;
|
||||
ORDER By dataact, nract ;
|
||||
FROM cFacturi Into Cursor Facturi && (m.lcTable)
|
||||
|
||||
USE IN (SELECT('cFacturi'))
|
||||
|
||||
* EXPORT XLSX
|
||||
lcExcel = Addbs(Justpath(m.lcFileFacturiXlsx)) + 'facturi_roa.xlsx'
|
||||
|
||||
loExcel = Newobject("VFPxWorkbookXLSX", "VFPxWorkbookXLSX.vcx")
|
||||
loExcel.SaveTabletoWorkbook('facturi', lcExcel, .T., .T., 'Sheet1')
|
||||
Messagebox('S-a salvat fisierul ' + m.lcExcel + CHR(13) + CHR(10) + 'Lansati ROACONT > Import > Note facturi clienti',0+64, _Screen.Caption)
|
||||
|
||||
USE IN (SELECT('Facturi'))
|
||||
BIN
Alte/SmartBill2ROA/vfpxworkbookxlsx.vcx
Normal file
BIN
Alte/SmartBill2ROA/vfpxworkbookxlsx.vcx
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROAAUTO/crsobiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROAAUTO/crsobiecte.dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROAAUTO/obiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROAAUTO/obiecte.dbf
Normal file
Binary file not shown.
62
COMUN/Drepturi utilizatori/ROAAUTO/scrie_obiecte.prg
Normal file
62
COMUN/Drepturi utilizatori/ROAAUTO/scrie_obiecte.prg
Normal file
@@ -0,0 +1,62 @@
|
||||
&& id = 8
|
||||
lnIdProgram = 8
|
||||
lcLocalDir=Addbs(Justpath(Sys(16,0)))
|
||||
Cd (lcLocalDir)
|
||||
If Used('obiecte')
|
||||
Use In obiecte
|
||||
Endif
|
||||
Use obiecte In 0
|
||||
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
|
||||
If Used('crsmax')
|
||||
Use In CrsMax
|
||||
Endif
|
||||
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
|
||||
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la citirea id-ului!")
|
||||
Exit
|
||||
Endif
|
||||
Select CrsMax
|
||||
lnMaxId=maxid
|
||||
Use In CrsMax
|
||||
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
|
||||
|
||||
Select obiecte
|
||||
Replace id_prog With lnIdProgram All
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
|
||||
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
|
||||
Replace id_obiect With Recno()+lnMaxId All
|
||||
Replace cheie With Alltrim(tata)+Alltrim(cod) All
|
||||
Replace id_tata With -1 All
|
||||
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
|
||||
Select crstati
|
||||
Scan
|
||||
lnIdObiect=id_obiect
|
||||
lcCheie=Alltrim(cheie)
|
||||
Select obiecte
|
||||
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
|
||||
Select crstati
|
||||
Endscan
|
||||
Use In crstati
|
||||
|
||||
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la stergerea vechilor obiecte!")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
Select obiecte
|
||||
Browse
|
||||
Scan
|
||||
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
|
||||
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
|
||||
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<1
|
||||
Wait Window lcSql
|
||||
Endif
|
||||
Endscan
|
||||
SQLDisconnect(gnhandle)
|
||||
Use In obiecte
|
||||
38
COMUN/Drepturi utilizatori/ROACASA/roacasa_obiecte.sql
Normal file
38
COMUN/Drepturi utilizatori/ROACASA/roacasa_obiecte.sql
Normal file
@@ -0,0 +1,38 @@
|
||||
-- obiecte roacasa, drepturi asupra lor
|
||||
-- creat de alex.lepadatu,
|
||||
-- 28.04.2009
|
||||
|
||||
|
||||
prompt PL/SQL Developer import file
|
||||
prompt Created on Tuesday, April 28, 2009 by alexandru.lepadatu
|
||||
set feedback off
|
||||
set define off
|
||||
prompt Disabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE disable all triggers;
|
||||
prompt Loading DEF_OBIECTE...
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5628, 197, 'Listare', 5626, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5629, 197, 'Stergere', 5626, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5625, 197, 'Rapoarte', -1, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5626, 197, 'Registrul de casa', 5625, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5627, 197, 'Export', 5626, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5741, 197, 'Operatii', -1, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5742, 197, 'Seturi', 5741, '01', null, null, 0);
|
||||
commit;
|
||||
prompt 7 records loaded
|
||||
prompt Enabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE enable all triggers;
|
||||
set feedback on
|
||||
set define on
|
||||
prompt Done.
|
||||
|
||||
|
||||
|
||||
exec pack_migrare.UpdateVersiune('ff_2009_04_28_01_OBIECTE');
|
||||
commit;
|
||||
BIN
COMUN/Drepturi utilizatori/ROACONT/OBIECTE.Dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROACONT/OBIECTE.Dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROACONT/OBIECTE_1010.Dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROACONT/OBIECTE_1010.Dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_0510.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_0510.dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_0710.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_0710.dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_forma.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_forma.dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_meniu.DBF
Normal file
BIN
COMUN/Drepturi utilizatori/ROACONT/obiecte_meniu.DBF
Normal file
Binary file not shown.
61
COMUN/Drepturi utilizatori/ROACONT/scrie_obiecte.prg
Normal file
61
COMUN/Drepturi utilizatori/ROACONT/scrie_obiecte.prg
Normal file
@@ -0,0 +1,61 @@
|
||||
&& id = 2
|
||||
lnProgram = 2
|
||||
lcLocalDir=Addbs(Justpath(Sys(16,0)))
|
||||
Cd (lcLocalDir)
|
||||
If Used('obiecte')
|
||||
Use In obiecte
|
||||
Endif
|
||||
Use obiecte In 0
|
||||
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
|
||||
If Used('crsmax')
|
||||
Use In CrsMax
|
||||
Endif
|
||||
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
|
||||
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la citirea id-ului!")
|
||||
Exit
|
||||
Endif
|
||||
Select CrsMax
|
||||
lnMaxId=maxid
|
||||
Use In CrsMax
|
||||
|
||||
Select obiecte
|
||||
Replace id_prog With lnProgram All
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
|
||||
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
|
||||
Replace id_obiect With Recno()+lnMaxId All
|
||||
Replace cheie With Alltrim(tata)+Alltrim(cod) All
|
||||
Replace id_tata With -1 All
|
||||
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
|
||||
Select crstati
|
||||
Scan
|
||||
lnIdObiect=id_obiect
|
||||
lcCheie=Alltrim(cheie)
|
||||
Select obiecte
|
||||
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
|
||||
Select crstati
|
||||
Endscan
|
||||
Use In crstati
|
||||
|
||||
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la stergerea vechilor obiecte!")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
Select obiecte
|
||||
Browse
|
||||
Scan
|
||||
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
|
||||
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
|
||||
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<1
|
||||
Wait Window lcSql
|
||||
Endif
|
||||
Endscan
|
||||
SQLDisconnect(gnhandle)
|
||||
Use In obiecte
|
||||
BIN
COMUN/Drepturi utilizatori/ROADEF/obiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROADEF/obiecte.dbf
Normal file
Binary file not shown.
249
COMUN/Drepturi utilizatori/ROADEF/roadef_obiecte.sql
Normal file
249
COMUN/Drepturi utilizatori/ROADEF/roadef_obiecte.sql
Normal file
@@ -0,0 +1,249 @@
|
||||
-- obiecte roadef, drepturi asupra lor
|
||||
-- creat de alex.lepadatu,
|
||||
-- 21.04.2009
|
||||
|
||||
prompt Disabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE disable all triggers;
|
||||
prompt Loading DEF_OBIECTE...
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5516, 1, 'Organizarea companiei', -1, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5517, 1, 'Datele firmei', 5516, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5518, 1, 'Sucursale/puncte de lucru', 5516, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5519, 1, 'Export', 5518, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5520, 1, 'Listare', 5518, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5521, 1, 'Modificare', 5518, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5522, 1, 'Refacere', 5518, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5523, 1, 'Departamente/ Sectii', 5516, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5524, 1, 'Export', 5523, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5525, 1, 'Listare', 5523, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5526, 1, 'Modificare', 5523, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5527, 1, 'Refacere', 5523, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5528, 1, 'Gestiuni', 5516, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5529, 1, 'Export', 5528, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5530, 1, 'Listare', 5528, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5531, 1, 'Modificare', 5528, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5532, 1, 'Refacere', 5528, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5533, 1, 'Calculatoare', 5516, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5534, 1, 'Export', 5533, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5535, 1, 'Listare', 5533, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5536, 1, 'Modificare', 5533, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5537, 1, 'Refacere', 5533, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5538, 1, 'Utilizatori', 5516, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5539, 1, 'Export', 5538, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5540, 1, 'Listare', 5538, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5541, 1, 'Modificare', 5538, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5542, 1, 'Refacere', 5538, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5543, 1, 'Rapoarte', 5516, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5544, 1, 'Entitati', -1, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5545, 1, 'Entitati', 5544, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5546, 1, 'Export', 5545, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5547, 1, 'Listare', 5545, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5548, 1, 'Modificare', 5545, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5549, 1, 'Refacere', 5545, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5550, 1, 'Responsabili', 5544, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5551, 1, 'Export', 5550, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5552, 1, 'Listare', 5550, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5553, 1, 'Modificare', 5550, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5554, 1, 'Refacere', 5550, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5555, 1, 'Asociere entitati-sectii/gestiuni', 5544, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5556, 1, 'Export', 5555, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5557, 1, 'Listare', 5555, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5558, 1, 'Modificare', 5555, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5559, 1, 'Refacere', 5555, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5560, 1, 'Angajati', 5544, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5561, 1, 'Export', 5560, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5562, 1, 'Listare', 5560, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5563, 1, 'Modificare', 5560, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5564, 1, 'Refacere', 5560, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5565, 1, 'Liste nomenclatoare', -1, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5566, 1, 'Tipuri de venituri si cheltuieli', 5565, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5567, 1, 'Export', 5566, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5568, 1, 'Listare', 5566, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5569, 1, 'Modificare', 5566, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5570, 1, 'Refacere', 5566, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5571, 1, 'Lucrari', 5565, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5572, 1, 'Export', 5571, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5573, 1, 'Listare', 5571, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5574, 1, 'Modificare', 5571, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5575, 1, 'Refacere', 5571, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5576, 1, 'Tipuri de documente', 5565, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5577, 1, 'Export', 5576, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5578, 1, 'Listare', 5576, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5579, 1, 'Modificare', 5576, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5580, 1, 'Refacere', 5576, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5581, 1, 'Medii de transmisie', 5565, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5582, 1, 'Export', 5581, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5583, 1, 'Listare', 5581, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5584, 1, 'Modificare', 5581, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5585, 1, 'Refacere', 5581, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5586, 1, 'Judete', 5565, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5587, 1, 'Export', 5586, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5588, 1, 'Listare', 5586, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5589, 1, 'Modificare', 5586, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5590, 1, 'Refacere', 5586, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5591, 1, 'Localitati', 5565, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5592, 1, 'Export', 5591, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5593, 1, 'Listare', 5591, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5594, 1, 'Modificare', 5591, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5595, 1, 'Refacere', 5591, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5596, 1, 'Valute', 5565, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5597, 1, 'Export', 5596, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5598, 1, 'Listare', 5596, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5599, 1, 'Modificare', 5596, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5600, 1, 'Refacere', 5596, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5601, 1, 'Categorii de entitati', 5565, '08', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5602, 1, 'Export', 5601, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5603, 1, 'Listare', 5601, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5604, 1, 'Modificare', 5601, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5605, 1, 'Refacere', 5601, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5606, 1, 'Utilitati', -1, 'D', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5607, 1, 'Deschidere de luna', 5606, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5608, 1, 'Export', 5607, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5609, 1, 'Listare', 5607, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5610, 1, 'Modificare', 5607, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5611, 1, 'Refacere', 5607, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5612, 1, 'Vizualizare istoric deschid./redeschid.', 5606, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5613, 1, 'Blocare de luna', 5606, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5614, 1, 'Optiuni', 5606, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5615, 1, 'Categorii seturi', 5606, '05', null, null, 0);
|
||||
commit;
|
||||
prompt 100 records committed...
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5616, 1, 'Export', 5615, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5617, 1, 'Listare', 5615, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5618, 1, 'Modificare', 5615, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5619, 1, 'Refacere', 5615, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5620, 1, 'Configurare seturi', 5606, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5621, 1, 'Export', 5620, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5622, 1, 'Listare', 5620, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5623, 1, 'Modificare', 5620, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5624, 1, 'Refacere', 5620, '4', null, null, 0);
|
||||
commit;
|
||||
prompt 109 records loaded
|
||||
prompt Enabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE enable all triggers;
|
||||
|
||||
|
||||
insert into def_grup_drept_obiecte
|
||||
(id_grup, id_obiect, id_utilop, dataora)
|
||||
select g.id_grup, o.id_obiect, -3, sysdate
|
||||
from (select id_grup
|
||||
from def_grup_drept t
|
||||
where id_program = 1
|
||||
and sters = 0) g,
|
||||
(select id_obiect
|
||||
from def_obiecte
|
||||
where id_program = 1
|
||||
and sters = 0) o;
|
||||
commit;
|
||||
|
||||
|
||||
exec pack_migrare.UpdateVersiune('ff_2009_04_21_05_OBIECTE');
|
||||
commit;
|
||||
62
COMUN/Drepturi utilizatori/ROADEF/scrie_obiecte.prg
Normal file
62
COMUN/Drepturi utilizatori/ROADEF/scrie_obiecte.prg
Normal file
@@ -0,0 +1,62 @@
|
||||
*!* ATENTIE LA SECVENTA, SE APELEAZA AUTOMAT TRIGGERUL LA INSERT
|
||||
&& id = 2
|
||||
lnIdProgram = 1
|
||||
lcLocalDir=Addbs(Justpath(Sys(16,0)))
|
||||
Cd (lcLocalDir)
|
||||
If Used('obiecte')
|
||||
Use In obiecte
|
||||
Endif
|
||||
Use obiecte In 0
|
||||
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
|
||||
If Used('crsmax')
|
||||
Use In CrsMax
|
||||
Endif
|
||||
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
|
||||
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la citirea id-ului!")
|
||||
Exit
|
||||
Endif
|
||||
Select CrsMax
|
||||
lnMaxId=maxid
|
||||
Use In CrsMax
|
||||
|
||||
Select obiecte
|
||||
Replace id_prog With lnidProgram All
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
|
||||
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
|
||||
Replace id_obiect With Recno()+lnMaxId All
|
||||
Replace cheie With Alltrim(tata)+Alltrim(cod) All
|
||||
Replace id_tata With -1 All
|
||||
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
|
||||
Select crstati
|
||||
Scan
|
||||
lnIdObiect=id_obiect
|
||||
lcCheie=Alltrim(cheie)
|
||||
Select obiecte
|
||||
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
|
||||
Select crstati
|
||||
Endscan
|
||||
Use In crstati
|
||||
|
||||
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la stergerea vechilor obiecte!")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
Select obiecte
|
||||
Browse
|
||||
Scan
|
||||
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
|
||||
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
|
||||
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<1
|
||||
Wait Window lcSql
|
||||
Endif
|
||||
Endscan
|
||||
SQLDisconnect(gnhandle)
|
||||
Use In obiecte
|
||||
219
COMUN/Drepturi utilizatori/ROAGEST/adaugare_drepturi.prg
Normal file
219
COMUN/Drepturi utilizatori/ROAGEST/adaugare_drepturi.prg
Normal file
@@ -0,0 +1,219 @@
|
||||
Procedure citeste_obiecte
|
||||
Local lcMeniu,lcPageframe
|
||||
lcMeniu=[contgest]
|
||||
lcPageframe=[oprinc.pagefr1]
|
||||
|
||||
Create Cursor CRSOBIECTE(ID_PROG N(1),CHEIE C(20),NIVEL N(2),EXPLICATIE C(100),TATA C(20),COD C(2),ID_OBIECT N(10),ID_TATA N(10))
|
||||
plCursor=.T.
|
||||
citeste_meniu(90,lcmeniu,"Meniu")
|
||||
citeste_pageframe(65,lcpageframe)
|
||||
select * FROM crsobiecte INTO TABLE C:\crsobiecte.dbf
|
||||
Endproc
|
||||
************************************************************************
|
||||
Procedure citeste_meniu
|
||||
Lparameters lnKey,lcNumeMeniu,lcOptiune
|
||||
lcKey=Chr(lnKey)
|
||||
*!* This.Nodes.Add(,1,lcKey,lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,1,lcOptiune,[ ])
|
||||
Endif
|
||||
lnKey2=65
|
||||
*!* k=0
|
||||
*!* Try
|
||||
*!* lcKey2=lcKey+Chr(lnKey2)
|
||||
*!* lnKey2=lnKey2+1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey2,'Utile')
|
||||
*!* If plCursor
|
||||
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Utile],lcKey)
|
||||
*!* Endif
|
||||
*!* For i=1 To Cntbar('utile')
|
||||
*!* lcOptiune=Prmbar('utile',i)
|
||||
*!* If !Empty(lcOptiune)
|
||||
*!* k=k+1
|
||||
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
*!* If plCursor
|
||||
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
*!* Endfor
|
||||
*!* Catch
|
||||
*!* ENDTRY
|
||||
k=0
|
||||
Try
|
||||
lcKey2=lcKey+Chr(lnKey2)
|
||||
lnKey2=lnKey2+1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey2,'Initializare')
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Actualizare],lcKey)
|
||||
Endif
|
||||
For i=1 To Cntbar('actualizar')
|
||||
lcOptiune=Prmbar('actualizar',i)
|
||||
If !Empty(lcOptiune)
|
||||
k=k+1
|
||||
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
Endif
|
||||
Endif
|
||||
Endfor
|
||||
Catch
|
||||
Endtry
|
||||
*!* k=0
|
||||
*!* Try
|
||||
*!* lcKey2=lcKey+Chr(lnKey2)
|
||||
*!* *!* This.Nodes.Add(lcKey,4,lcKey2,'Actualizari')
|
||||
*!* If plCursor
|
||||
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Actualizari],lcKey)
|
||||
*!* Endif
|
||||
*!* For i=1 To Cntbar('_1bs12qror')
|
||||
*!* lcOptiune=Prmbar('_1bs12qror',i)
|
||||
*!* If !Empty(lcOptiune)
|
||||
*!* k=k+1
|
||||
*!* *!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
*!* If plCursor
|
||||
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
*!* Endfor
|
||||
*!* Catch
|
||||
*!* Endtry
|
||||
************************************************************************
|
||||
Procedure citeste_pageframe
|
||||
Lparameters lnKey,lcPageframe,lcTata
|
||||
Local lcKey,lcProp,lcOptiune,lnNivel,lnPozitie,i,j,k,l
|
||||
Store [] To lcKey,lcProp,lcOptiune
|
||||
Store 0 To lnNivel,lnPozitie,i,j,k,l
|
||||
If Empty(lcTata)
|
||||
lcTata=Null
|
||||
lnNivel=1
|
||||
Else
|
||||
lnNivel=4
|
||||
Endif
|
||||
Set Exact On
|
||||
With &lcPageframe
|
||||
For i=1 To .PageCount
|
||||
For j=1 To .PageCount
|
||||
If .Pages(j).PageOrder=i
|
||||
Exit
|
||||
Endif
|
||||
Endfor
|
||||
With .Pages(j)
|
||||
lcKey=Nvl(lcTata,[])+Chr(lnKey)
|
||||
*!* This.Nodes.Add(lcTata,lnNivel,lcKey,.Caption)
|
||||
lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,lnNivel,.Caption,Nvl(lcTata,[ ]))
|
||||
Endif
|
||||
lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
Dimension copii(128,3)
|
||||
k=1
|
||||
For l=1 To .ControlCount
|
||||
Do Case
|
||||
Case Alltrim(Upper(.Objects(l).Class))='PAGEFRAME'
|
||||
lcNume=lcPageframe+'.'+Alltrim(.Name)+'.'+Alltrim(Upper(.Objects(l).Name))
|
||||
citeste_pageframe(65,lcNume,lcKey)
|
||||
Case Alltrim(Upper(.Objects(l).Class))='CW' And .Objects(l).nid_cw>0
|
||||
lcOptiune=.Objects(l).label_item1.Caption
|
||||
lnPozitie=.Objects(l).nid_cw
|
||||
copii(lnPozitie,1)=lcOptiune
|
||||
copii(lnPozitie,2)=.Objects(l).ntip
|
||||
copii(lnPozitie,3)=.Objects(l).cmeniu
|
||||
k=k+1
|
||||
Endcase
|
||||
Endfor
|
||||
For l=1 To k-1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+Padl(Alltrim(Str(l)),2,[0]),copii(l,1))
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+Padl(Alltrim(Str(l)),2,[0]),4,copii(l,1),lcKey)
|
||||
Endif
|
||||
*!* If !Empty(copii(l,3))
|
||||
*!* This.adauga_meniuri(copii(l,3),copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
|
||||
*!* Else
|
||||
adauga_frunze(copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
|
||||
*!* Endif
|
||||
Endfor
|
||||
Endwith
|
||||
lnKey=lnKey+1
|
||||
Endfor
|
||||
Endwith
|
||||
Set Exact Off
|
||||
Endproc
|
||||
************************************************************************
|
||||
Procedure adauga_frunze
|
||||
Lparameters lnTip,lcKey
|
||||
Do Case
|
||||
Case lnTip=0 && introducere
|
||||
Case lnTip=1 && raport
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Endif
|
||||
Case lnTip=2 && registru
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
|
||||
Endif
|
||||
Case lnTip=3 && balanta\inreg.
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
|
||||
Endif
|
||||
Case lnTip=4 && vizualizare
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"5","Vizualizare inreg. proprii")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"6","Vizualizare toate inreg.")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"5",4,"Vizualizare inreg.proprii",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"6",4,"Vizualizare tot",lcKey)
|
||||
ENDIF
|
||||
Case lnTip=5 && personalizat
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"7","Altele...")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"8","Altele...")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"7",4,"Altele...",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"8",4,"Altele...",lcKey)
|
||||
Endif
|
||||
Endcase
|
||||
Endproc
|
||||
************************************************************************
|
||||
BIN
COMUN/Drepturi utilizatori/ROAGEST/crsobiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROAGEST/crsobiecte.dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROAGEST/obiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROAGEST/obiecte.dbf
Normal file
Binary file not shown.
62
COMUN/Drepturi utilizatori/ROAGEST/scrie_obiecte.prg
Normal file
62
COMUN/Drepturi utilizatori/ROAGEST/scrie_obiecte.prg
Normal file
@@ -0,0 +1,62 @@
|
||||
&& id = 5
|
||||
lnIdProgram = 5
|
||||
lcLocalDir=Addbs(Justpath(Sys(16,0)))
|
||||
Cd (lcLocalDir)
|
||||
If Used('obiecte')
|
||||
Use In obiecte
|
||||
Endif
|
||||
Use obiecte In 0
|
||||
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
|
||||
If Used('crsmax')
|
||||
Use In CrsMax
|
||||
Endif
|
||||
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
|
||||
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la citirea id-ului!")
|
||||
Exit
|
||||
Endif
|
||||
Select CrsMax
|
||||
lnMaxId=maxid
|
||||
Use In CrsMax
|
||||
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
|
||||
|
||||
Select obiecte
|
||||
Replace id_prog With lnIdProgram All
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
|
||||
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
|
||||
Replace id_obiect With Recno()+lnMaxId All
|
||||
Replace cheie With Alltrim(tata)+Alltrim(cod) All
|
||||
Replace id_tata With -1 All
|
||||
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
|
||||
Select crstati
|
||||
Scan
|
||||
lnIdObiect=id_obiect
|
||||
lcCheie=Alltrim(cheie)
|
||||
Select obiecte
|
||||
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
|
||||
Select crstati
|
||||
Endscan
|
||||
Use In crstati
|
||||
|
||||
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la stergerea vechilor obiecte!")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
Select obiecte
|
||||
Browse
|
||||
Scan
|
||||
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
|
||||
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
|
||||
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<1
|
||||
Wait Window lcSql
|
||||
Endif
|
||||
Endscan
|
||||
SQLDisconnect(gnhandle)
|
||||
Use In obiecte
|
||||
218
COMUN/Drepturi utilizatori/ROALUCRARI/adaugare_drepturi.prg
Normal file
218
COMUN/Drepturi utilizatori/ROALUCRARI/adaugare_drepturi.prg
Normal file
@@ -0,0 +1,218 @@
|
||||
Procedure citeste_obiecte
|
||||
Local lcMeniu,lcPageframe
|
||||
*!* lcMeniu=[cont2000]
|
||||
lcPageframe=[gofundal._pgfrmbase1]
|
||||
Create Cursor CRSOBIECTE(ID_PROG N(1),CHEIE C(20),NIVEL N(2),EXPLICATIE C(100),TATA C(20),COD C(2),ID_OBIECT N(10),ID_TATA N(10))
|
||||
plCursor=.T.
|
||||
*!* citeste_meniu(90,lcmeniu,"Meniu")
|
||||
citeste_pageframe(65,lcpageframe)
|
||||
select * FROM crsobiecte INTO TABLE C:\crsobiecte.dbf
|
||||
Endproc
|
||||
************************************************************************
|
||||
Procedure citeste_meniu
|
||||
Lparameters lnKey,lcNumeMeniu,lcOptiune
|
||||
lcKey=Chr(lnKey)
|
||||
*!* This.Nodes.Add(,1,lcKey,lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,1,lcOptiune,[ ])
|
||||
Endif
|
||||
lnKey2=65
|
||||
*!* k=0
|
||||
*!* Try
|
||||
*!* lcKey2=lcKey+Chr(lnKey2)
|
||||
*!* lnKey2=lnKey2+1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey2,'Utile')
|
||||
*!* If plCursor
|
||||
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Utile],lcKey)
|
||||
*!* Endif
|
||||
*!* For i=1 To Cntbar('utile')
|
||||
*!* lcOptiune=Prmbar('utile',i)
|
||||
*!* If !Empty(lcOptiune)
|
||||
*!* k=k+1
|
||||
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
*!* If plCursor
|
||||
*!* Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
*!* Endfor
|
||||
*!* Catch
|
||||
*!* ENDTRY
|
||||
k=0
|
||||
Try
|
||||
lcKey2=lcKey+Chr(lnKey2)
|
||||
lnKey2=lnKey2+1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey2,'Initializare')
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Initializare],lcKey)
|
||||
Endif
|
||||
For i=1 To Cntbar('initializa')
|
||||
lcOptiune=Prmbar('initializa',i)
|
||||
If !Empty(lcOptiune)
|
||||
k=k+1
|
||||
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
Endif
|
||||
Endif
|
||||
Endfor
|
||||
Catch
|
||||
Endtry
|
||||
k=0
|
||||
Try
|
||||
lcKey2=lcKey+Chr(lnKey2)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey2,'Actualizari')
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Actualizari],lcKey)
|
||||
Endif
|
||||
For i=1 To Cntbar('_1bs12qror')
|
||||
lcOptiune=Prmbar('_1bs12qror',i)
|
||||
If !Empty(lcOptiune)
|
||||
k=k+1
|
||||
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
Endif
|
||||
Endif
|
||||
Endfor
|
||||
Catch
|
||||
Endtry
|
||||
************************************************************************
|
||||
Procedure citeste_pageframe
|
||||
Lparameters lnKey,lcPageframe,lcTata
|
||||
Local lcKey,lcProp,lcOptiune,lnNivel,lnPozitie,i,j,k,l
|
||||
Store [] To lcKey,lcProp,lcOptiune
|
||||
Store 0 To lnNivel,lnPozitie,i,j,k,l
|
||||
If Empty(lcTata)
|
||||
lcTata=Null
|
||||
lnNivel=1
|
||||
Else
|
||||
lnNivel=4
|
||||
Endif
|
||||
Set Exact On
|
||||
With &lcPageframe
|
||||
For i=1 To .PageCount
|
||||
For j=1 To .PageCount
|
||||
If .Pages(j).PageOrder=i
|
||||
Exit
|
||||
Endif
|
||||
Endfor
|
||||
With .Pages(j)
|
||||
lcKey=Nvl(lcTata,[])+Chr(lnKey)
|
||||
*!* This.Nodes.Add(lcTata,lnNivel,lcKey,.Caption)
|
||||
lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,lnNivel,.Caption,Nvl(lcTata,[ ]))
|
||||
Endif
|
||||
lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
Dimension copii(128,3)
|
||||
k=1
|
||||
For l=1 To .ControlCount
|
||||
Do Case
|
||||
Case Alltrim(Upper(.Objects(l).Class))='PAGEFRAME'
|
||||
lcNume=lcPageframe+'.'+Alltrim(.Name)+'.'+Alltrim(Upper(.Objects(l).Name))
|
||||
citeste_pageframe(65,lcNume,lcKey)
|
||||
Case Alltrim(Upper(.Objects(l).Class))='CW' And .Objects(l).nid_cw>0
|
||||
lcOptiune=.Objects(l).label_item1.Caption
|
||||
lnPozitie=.Objects(l).nid_cw
|
||||
copii(lnPozitie,1)=lcOptiune
|
||||
copii(lnPozitie,2)=.Objects(l).ntip
|
||||
copii(lnPozitie,3)=.Objects(l).cmeniu
|
||||
k=k+1
|
||||
Endcase
|
||||
Endfor
|
||||
For l=1 To k-1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+Padl(Alltrim(Str(l)),2,[0]),copii(l,1))
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+Padl(Alltrim(Str(l)),2,[0]),4,copii(l,1),lcKey)
|
||||
Endif
|
||||
*!* If !Empty(copii(l,3))
|
||||
*!* This.adauga_meniuri(copii(l,3),copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
|
||||
*!* Else
|
||||
adauga_frunze(copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
|
||||
*!* Endif
|
||||
Endfor
|
||||
Endwith
|
||||
lnKey=lnKey+1
|
||||
Endfor
|
||||
Endwith
|
||||
Set Exact Off
|
||||
Endproc
|
||||
************************************************************************
|
||||
Procedure adauga_frunze
|
||||
Lparameters lnTip,lcKey
|
||||
Do Case
|
||||
Case lnTip=0 && introducere
|
||||
Case lnTip=1 && raport
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Endif
|
||||
Case lnTip=2 && registru
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
|
||||
Endif
|
||||
Case lnTip=3 && balanta\inreg.
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
|
||||
Endif
|
||||
Case lnTip=4 && vizualizare
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"5","Vizualizare inreg. proprii")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"6","Vizualizare toate inreg.")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"5",4,"Vizualizare inreg.proprii",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"6",4,"Vizualizare tot",lcKey)
|
||||
ENDIF
|
||||
Case lnTip=5 && personalizat
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"7","Altele...")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"8","Altele...")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"7",4,"Altele...",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"8",4,"Altele...",lcKey)
|
||||
Endif
|
||||
Endcase
|
||||
Endproc
|
||||
************************************************************************
|
||||
BIN
COMUN/Drepturi utilizatori/ROALUCRARI/crsobiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROALUCRARI/crsobiecte.dbf
Normal file
Binary file not shown.
@@ -0,0 +1,97 @@
|
||||
prompt PL/SQL Developer import file
|
||||
prompt Created on Monday, April 17, 2006 by marius.atanasiu
|
||||
set feedback off
|
||||
set define off
|
||||
prompt Disabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE disable all triggers;
|
||||
prompt Deleting DEF_OBIECTE...
|
||||
update DEF_OBIECTE set sters=2 where id_program=13;
|
||||
commit;
|
||||
prompt Loading DEF_OBIECTE...
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5070, 13, 'Configurare', -1, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5071, 13, 'Capitole de deviz', 5070, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5072, 13, 'Vizualizare', 5071, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5073, 13, 'Modificare', 5071, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5074, 13, 'Stergere', 5071, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5075, 13, 'Clienti', 5070, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5076, 13, 'Vizualizare', 5075, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5077, 13, 'Modificare', 5075, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5078, 13, 'Stergere', 5075, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5079, 13, 'Responsabili', 5070, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5080, 13, 'Vizualizare', 5079, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5081, 13, 'Modificare', 5079, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5082, 13, 'Stergere', 5079, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5083, 13, 'Configurare capitole de deviz', 5070, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5084, 13, 'Vizualizare', 5083, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5085, 13, 'Modificare', 5083, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5087, 13, 'Configurare chei de repartizare a indirectelor', 5070, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5088, 13, 'Vizualizare', 5087, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5089, 13, 'Modificare', 5087, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5091, 13, 'Lucrari', -1, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5092, 13, 'Oferte', 5091, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5093, 13, 'Vizualizare', 5092, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5094, 13, 'Modificare', 5092, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5095, 13, 'Stergere', 5092, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5096, 13, 'Lucrari', 5091, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5097, 13, 'Vizualizare', 5096, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5098, 13, 'Modificare', 5096, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5099, 13, 'Stergere', 5096, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5100, 13, 'Contracte', 5091, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5101, 13, 'Vizualizare', 5100, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5102, 13, 'Modificare', 5100, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5103, 13, 'Stergere', 5100, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5104, 13, 'Analiza', -1, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5105, 13, 'O lucrare', 5104, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5106, 13, 'Toate lucrarile', 5104, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5107, 13, 'Situatie comparativa Lista lucrari', 5104, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5108, 13, 'O lucrare', 5104, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5109, 13, 'Toate lucrarile', 5104, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5110, 13, 'Situatie de post calcul pe societate', 5104, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (5111, 13, 'Opis', 5104, '07', null, null, 0);
|
||||
commit;
|
||||
prompt 42 records loaded
|
||||
prompt Enabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE enable all triggers;
|
||||
set feedback on
|
||||
set define on
|
||||
prompt Done.
|
||||
BIN
COMUN/Drepturi utilizatori/ROALUCRARI/obiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROALUCRARI/obiecte.dbf
Normal file
Binary file not shown.
62
COMUN/Drepturi utilizatori/ROALUCRARI/scrie_obiecte.prg
Normal file
62
COMUN/Drepturi utilizatori/ROALUCRARI/scrie_obiecte.prg
Normal file
@@ -0,0 +1,62 @@
|
||||
&& id = 13
|
||||
lnIdProgram = 13
|
||||
lcLocalDir=Addbs(Justpath(Sys(16,0)))
|
||||
Cd (lcLocalDir)
|
||||
If Used('obiecte')
|
||||
Use In obiecte
|
||||
Endif
|
||||
Use obiecte In 0
|
||||
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
|
||||
If Used('crsmax')
|
||||
Use In CrsMax
|
||||
Endif
|
||||
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
|
||||
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la citirea id-ului!")
|
||||
Exit
|
||||
Endif
|
||||
Select CrsMax
|
||||
lnMaxId=maxid
|
||||
Use In CrsMax
|
||||
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
|
||||
|
||||
Select obiecte
|
||||
Replace id_prog With lnIdProgram All
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
|
||||
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
|
||||
Replace id_obiect With Recno()+lnMaxId All
|
||||
Replace cheie With Alltrim(tata)+Alltrim(cod) All
|
||||
Replace id_tata With -1 All
|
||||
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
|
||||
Select crstati
|
||||
Scan
|
||||
lnIdObiect=id_obiect
|
||||
lcCheie=Alltrim(cheie)
|
||||
Select obiecte
|
||||
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
|
||||
Select crstati
|
||||
Endscan
|
||||
Use In crstati
|
||||
|
||||
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la stergerea vechilor obiecte!")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
Select obiecte
|
||||
Browse
|
||||
Scan
|
||||
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
|
||||
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
|
||||
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<1
|
||||
Wait Window lcSql
|
||||
Endif
|
||||
Endscan
|
||||
SQLDisconnect(gnhandle)
|
||||
Use In obiecte
|
||||
216
COMUN/Drepturi utilizatori/ROAMANAGER/adaugare_drepturi.prg
Normal file
216
COMUN/Drepturi utilizatori/ROAMANAGER/adaugare_drepturi.prg
Normal file
@@ -0,0 +1,216 @@
|
||||
Procedure citeste_obiecte
|
||||
Local lcMeniu,lcPageframe
|
||||
lcMeniu=[manager]
|
||||
lcPageframe=[oprinc.pagefr1]
|
||||
Create Cursor CRSOBIECTE(ID_PROG N(1),CHEIE C(20),NIVEL N(2),EXPLICATIE C(100),TATA C(20),COD C(2),ID_OBIECT N(10),ID_TATA N(10))
|
||||
plCursor=.T.
|
||||
citeste_meniu(90,lcmeniu,"Meniu")
|
||||
citeste_pageframe(65,lcpageframe)
|
||||
select * FROM crsobiecte INTO TABLE C:\crsobiecte.dbf
|
||||
Endproc
|
||||
************************************************************************
|
||||
Procedure citeste_meniu
|
||||
Lparameters lnKey,lcNumeMeniu,lcOptiune
|
||||
lcKey=Chr(lnKey)
|
||||
*!* This.Nodes.Add(,1,lcKey,lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,1,lcOptiune,[ ])
|
||||
Endif
|
||||
lnKey2=65
|
||||
k=0
|
||||
Try
|
||||
lcKey2=lcKey+Chr(lnKey2)
|
||||
lnKey2=lnKey2+1
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Optiuni],lcKey)
|
||||
Endif
|
||||
For i=1 To Cntbar('optiuni')
|
||||
lcOptiune=Prmbar('optiuni',i)
|
||||
If !Empty(lcOptiune)
|
||||
k=k+1
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
Endif
|
||||
Endif
|
||||
Endfor
|
||||
Catch
|
||||
ENDTRY
|
||||
k=0
|
||||
Try
|
||||
lcKey2=lcKey+Chr(lnKey2)
|
||||
lnKey2=lnKey2+1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey2,'Initializare')
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Vizualizare],lcKey)
|
||||
Endif
|
||||
For i=1 To Cntbar('vizualizar')
|
||||
lcOptiune=Prmbar('vizualizar',i)
|
||||
If !Empty(lcOptiune)
|
||||
k=k+1
|
||||
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
Endif
|
||||
Endif
|
||||
Endfor
|
||||
Catch
|
||||
Endtry
|
||||
k=0
|
||||
Try
|
||||
lcKey2=lcKey+Chr(lnKey2)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey2,'Actualizari')
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2,4,[Rapoarte generale],lcKey)
|
||||
Endif
|
||||
For i=1 To Cntbar('rapoartege')
|
||||
lcOptiune=Prmbar('rapoartege',i)
|
||||
If !Empty(lcOptiune)
|
||||
k=k+1
|
||||
*!* This.Nodes.Add(lcKey2,4,lcKey2+Padl(Alltrim(Str(k)),2,[0]),lcOptiune)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey2+Padl(Alltrim(Str(k)),2,[0]),4,lcOptiune,lcKey2)
|
||||
Endif
|
||||
Endif
|
||||
Endfor
|
||||
Catch
|
||||
Endtry
|
||||
************************************************************************
|
||||
Procedure citeste_pageframe
|
||||
Lparameters lnKey,lcPageframe,lcTata
|
||||
Local lcKey,lcProp,lcOptiune,lnNivel,lnPozitie,i,j,k,l
|
||||
Store [] To lcKey,lcProp,lcOptiune
|
||||
Store 0 To lnNivel,lnPozitie,i,j,k,l
|
||||
If Empty(lcTata)
|
||||
lcTata=Null
|
||||
lnNivel=1
|
||||
Else
|
||||
lnNivel=4
|
||||
Endif
|
||||
Set Exact On
|
||||
With &lcPageframe
|
||||
For i=1 To .PageCount
|
||||
For j=1 To .PageCount
|
||||
If .Pages(j).PageOrder=i
|
||||
Exit
|
||||
Endif
|
||||
Endfor
|
||||
With .Pages(j)
|
||||
lcKey=Nvl(lcTata,[])+Chr(lnKey)
|
||||
*!* This.Nodes.Add(lcTata,lnNivel,lcKey,.Caption)
|
||||
lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey,lnNivel,.Caption,Nvl(lcTata,[ ]))
|
||||
Endif
|
||||
lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
Dimension copii(128,3)
|
||||
k=1
|
||||
For l=1 To .ControlCount
|
||||
Do Case
|
||||
Case Alltrim(Upper(.Objects(l).Class))='PAGEFRAME'
|
||||
lcNume=lcPageframe+'.'+Alltrim(.Name)+'.'+Alltrim(Upper(.Objects(l).Name))
|
||||
citeste_pageframe(65,lcNume,lcKey)
|
||||
Case Alltrim(Upper(.Objects(l).Class))='CW' And .Objects(l).nid_cw>0
|
||||
lcOptiune=.Objects(l).label_item1.Caption
|
||||
lnPozitie=.Objects(l).nid_cw
|
||||
copii(lnPozitie,1)=lcOptiune
|
||||
copii(lnPozitie,2)=.Objects(l).ntip
|
||||
copii(lnPozitie,3)=.Objects(l).cmeniu
|
||||
k=k+1
|
||||
Endcase
|
||||
Endfor
|
||||
For l=1 To k-1
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+Padl(Alltrim(Str(l)),2,[0]),copii(l,1))
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+Padl(Alltrim(Str(l)),2,[0]),4,copii(l,1),lcKey)
|
||||
Endif
|
||||
*!* If !Empty(copii(l,3))
|
||||
*!* This.adauga_meniuri(copii(l,3),copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
|
||||
*!* Else
|
||||
adauga_frunze(copii(l,2),lcKey+Padl(Alltrim(Str(l)),2,[0]))
|
||||
*!* Endif
|
||||
Endfor
|
||||
Endwith
|
||||
lnKey=lnKey+1
|
||||
Endfor
|
||||
Endwith
|
||||
Set Exact Off
|
||||
Endproc
|
||||
************************************************************************
|
||||
Procedure adauga_frunze
|
||||
Lparameters lnTip,lcKey
|
||||
Do Case
|
||||
Case lnTip=0 && introducere
|
||||
Case lnTip=1 && raport
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Endif
|
||||
Case lnTip=2 && registru
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
|
||||
Endif
|
||||
Case lnTip=3 && balanta\inreg.
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Refacere")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Refacere",lcKey)
|
||||
Endif
|
||||
Case lnTip=4 && vizualizare
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"5","Vizualizare inreg. proprii")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"6","Vizualizare toate inreg.")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"5",4,"Vizualizare inreg.proprii",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"6",4,"Vizualizare tot",lcKey)
|
||||
ENDIF
|
||||
Case lnTip=5 && personalizat
|
||||
*!* lcProp="cnt"+lcKey
|
||||
*!* This.AddProperty(lcProp,0)
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"1","Export")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"2","Listare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"3","Modificare")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"4","Stergere")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"7","Altele...")
|
||||
*!* This.Nodes.Add(lcKey,4,lcKey+"8","Altele...")
|
||||
If plCursor
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"1",4,"Export",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"2",4,"Listare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"3",4,"Modificare",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"4",4,"Stergere",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"7",4,"Altele...",lcKey)
|
||||
Insert Into CRSOBIECTE (CHEIE,NIVEL,EXPLICATIE,TATA) Values(lcKey+"8",4,"Altele...",lcKey)
|
||||
Endif
|
||||
Endcase
|
||||
Endproc
|
||||
************************************************************************
|
||||
BIN
COMUN/Drepturi utilizatori/ROAMANAGER/crsobiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROAMANAGER/crsobiecte.dbf
Normal file
Binary file not shown.
BIN
COMUN/Drepturi utilizatori/ROAMANAGER/obiecte.dbf
Normal file
BIN
COMUN/Drepturi utilizatori/ROAMANAGER/obiecte.dbf
Normal file
Binary file not shown.
62
COMUN/Drepturi utilizatori/ROAMANAGER/scrie_obiecte.prg
Normal file
62
COMUN/Drepturi utilizatori/ROAMANAGER/scrie_obiecte.prg
Normal file
@@ -0,0 +1,62 @@
|
||||
&& id = 7
|
||||
lnIdProgram = 7
|
||||
lcLocalDir=Addbs(Justpath(Sys(16,0)))
|
||||
Cd (lcLocalDir)
|
||||
If Used('obiecte')
|
||||
Use In obiecte
|
||||
Endif
|
||||
Use obiecte In 0
|
||||
gnhandle=SQLConnect('jcsserver','contafin_oracle','123')
|
||||
If Used('crsmax')
|
||||
Use In CrsMax
|
||||
Endif
|
||||
lcSql=[select pack_drepturi.getid_obiect() as maxid from dual]
|
||||
lnSucces=SQLExec(gnhandle,lcSql,'crsmax')
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la citirea id-ului!")
|
||||
Exit
|
||||
Endif
|
||||
Select CrsMax
|
||||
lnMaxId=maxid
|
||||
Use In CrsMax
|
||||
MESSAGEBOX(lnMaxId,0,"Id maxim pentru obiecte")
|
||||
|
||||
Select obiecte
|
||||
Replace id_prog With lnIdProgram All
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),5,1),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))='N'
|
||||
Replace cod With Padl(Substr(Padl(Alltrim(cheie),5,[ ]),4,2),2,[0]) FOR TYPE(SUBSTR(ALLTRIM(cheie),LEN(ALLTRIM(cheie))-2))<>'N'
|
||||
Replace cod With Substr(cod,2,1) For !Inlist(Len(Alltrim(tata)),1,2) Or Type(Substr(cod,2,1))!='N'
|
||||
Replace id_obiect With Recno()+lnMaxId All
|
||||
Replace cheie With Alltrim(tata)+Alltrim(cod) All
|
||||
Replace id_tata With -1 All
|
||||
Select id_obiect,cheie From obiecte Where Alltrim(cheie) In (Select Distinct Alltrim(tata) As cheie From obiecte) Into Cursor crstati
|
||||
Select crstati
|
||||
Scan
|
||||
lnIdObiect=id_obiect
|
||||
lcCheie=Alltrim(cheie)
|
||||
Select obiecte
|
||||
Replace id_tata With lnIdObiect For Alltrim(tata)=lcCheie
|
||||
Select crstati
|
||||
Endscan
|
||||
Use In crstati
|
||||
|
||||
lcSql=[update def_obiecte set sters=2 where id_program=]+ALLTRIM(STR(lnIdProgram))+[ and sters=0]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<0
|
||||
Messagebox("Eroare la stergerea vechilor obiecte!")
|
||||
Exit
|
||||
Endif
|
||||
|
||||
Select obiecte
|
||||
Browse
|
||||
Scan
|
||||
lcSql=[insert into def_obiecte (id_obiect,id_program,id_tata,descriere,cod) ]+;
|
||||
[values (]+Alltrim(Str(id_obiect))+[,]+ALLTRIM(STR(id_prog))+[,]+;
|
||||
ALLTRIM(Str(id_tata))+[,']+Alltrim(explicatie)+[',']+Alltrim(cod)+[')]
|
||||
lnSucces=SQLExec(gnhandle,lcSql)
|
||||
If lnSucces<1
|
||||
Wait Window lcSql
|
||||
Endif
|
||||
Endscan
|
||||
SQLDisconnect(gnhandle)
|
||||
Use In obiecte
|
||||
1134
COMUN/Drepturi utilizatori/def_obiecte_0311.sql
Normal file
1134
COMUN/Drepturi utilizatori/def_obiecte_0311.sql
Normal file
File diff suppressed because it is too large
Load Diff
586
COMUN/Drepturi utilizatori/def_obiecte_completare_0311.sql
Normal file
586
COMUN/Drepturi utilizatori/def_obiecte_completare_0311.sql
Normal file
@@ -0,0 +1,586 @@
|
||||
prompt PL/SQL Developer import file
|
||||
prompt Created on Thursday, November 03, 2005 by marius.atanasiu
|
||||
set feedback off
|
||||
set define off
|
||||
prompt Disabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE disable all triggers;
|
||||
prompt Disabling foreign key constraints for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE disable constraint FK_DO01;
|
||||
alter table DEF_OBIECTE disable constraint FK_DO02;
|
||||
prompt Loading DEF_OBIECTE...
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3361, 4, 'Structura personalului', 3360, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3362, 4, 'Migratia personalului', 3360, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3363, 4, 'Salariul mediu', 3360, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3365, 5, 'Meniu', -1, 'Z', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3366, 5, 'Actualizare', 3365, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3367, 5, 'Initializare', 3366, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3368, 5, 'Recalculare', 3366, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3369, 5, 'Gestiuni', -1, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3370, 5, 'Inregistrari', 3369, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3371, 5, 'Configurare', 3369, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3372, 5, 'Export', 3371, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3373, 5, 'Listare', 3371, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3374, 5, 'Modificare', 3371, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3375, 5, 'Refacere', 3371, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3376, 5, 'Vizualizare', 3369, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3377, 5, 'Export', 3376, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3378, 5, 'Listare', 3376, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3379, 5, 'Modificare', 3376, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3380, 5, 'Stergere', 3376, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3381, 5, 'Vizualizare inreg.proprii', 3376, '5', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3382, 5, 'Vizualizare tot', 3376, '6', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3383, 5, 'Rapoarte generale', 3369, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3384, 5, 'Export', 3383, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3385, 5, 'Listare', 3383, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3386, 5, 'Registru Jurnal', 3369, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3387, 5, 'Export', 3386, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3388, 5, 'Listare', 3386, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3389, 5, 'Modificare', 3386, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3390, 5, 'Stergere', 3386, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3391, 5, 'Vizualizare inreg.proprii', 3386, '5', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3392, 5, 'Vizualizare tot', 3386, '6', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3393, 5, 'Materii Prime si Materiale', -1, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3394, 5, 'Achizitie', 3393, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3395, 5, 'Achizitie din Import', 3393, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3396, 5, 'Consum', 3393, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3397, 5, 'Transfer', 3393, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3398, 5, 'Vanzare', 3393, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3399, 5, 'Stocuri materiale', 3393, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3400, 5, 'Export', 3399, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3401, 5, 'Listare', 3399, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3402, 5, 'Modificare', 3399, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3403, 5, 'Refacere', 3399, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3404, 5, 'Rapoarte', 3393, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3405, 5, 'Export', 3404, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3406, 5, 'Listare', 3404, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3407, 5, 'Obiecte de Inventar', -1, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3408, 5, 'Achizitie', 3407, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3409, 5, 'Consum', 3407, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3410, 5, 'Transfer', 3407, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3411, 5, 'Rulaje ob. de inventar in folosinta (8039)', 3407, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3412, 5, 'Export', 3411, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3413, 5, 'Listare', 3411, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3414, 5, 'Modificare', 3411, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3415, 5, 'Refacere', 3411, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3416, 5, 'Obiecte de inventar in folosinta (8039)', 3407, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3417, 5, 'Export', 3416, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3418, 5, 'Listare', 3416, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3419, 5, 'Modificare', 3416, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3420, 5, 'Refacere', 3416, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3421, 5, 'Obiecte de inventar in stoc / magazie (303)', 3407, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3422, 5, 'Export', 3421, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3423, 5, 'Listare', 3421, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3424, 5, 'Modificare', 3421, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3425, 5, 'Refacere', 3421, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3426, 5, 'Rapoarte', 3407, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3427, 5, 'Export', 3426, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3428, 5, 'Listare', 3426, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3429, 5, 'Produse', -1, 'D', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3430, 5, 'Achizitie', 3429, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3431, 5, 'Intrare in gestiune', 3429, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3432, 5, 'Consum', 3429, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3433, 5, 'Transfer', 3429, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3434, 5, 'Vanzare', 3429, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3435, 5, 'Configurare', 3429, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3436, 5, 'Export', 3435, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3437, 5, 'Listare', 3435, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3438, 5, 'Modificare', 3435, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3439, 5, 'Refacere', 3435, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3440, 5, 'Stocuri produse', 3429, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3441, 5, 'Export', 3440, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3442, 5, 'Listare', 3440, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3443, 5, 'Modificare', 3440, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3444, 5, 'Refacere', 3440, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3445, 5, 'Rapoarte', 3429, '08', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3446, 5, 'Export', 3445, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3447, 5, 'Listare', 3445, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3448, 5, 'Marfuri la pret de achizitie', -1, 'E', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3449, 5, 'Achizitie', 3448, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3450, 5, 'Achizitie din Import', 3448, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3451, 5, 'Consum', 3448, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3452, 5, 'Transfer', 3448, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3453, 5, 'Vanzare', 3448, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3454, 5, 'Stocuri marfa', 3448, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3455, 5, 'Export', 3454, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3456, 5, 'Listare', 3454, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3457, 5, 'Modificare', 3454, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3458, 5, 'Refacere', 3454, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3459, 5, 'Rapoarte', 3448, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3460, 5, 'Export', 3459, '1', null, null, 0);
|
||||
commit;
|
||||
prompt 100 records committed...
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3461, 5, 'Listare', 3459, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3462, 5, 'Marfuri la pret de vanzare', -1, 'F', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3463, 5, 'Achizitie', 3462, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3464, 5, 'Transfer', 3462, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3465, 5, 'Vanzare', 3462, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3466, 5, 'Configurare', 3462, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3467, 5, 'Stocuri marfa', 3462, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3468, 5, 'Export', 3467, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3469, 5, 'Listare', 3467, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3470, 5, 'Modificare', 3467, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3471, 5, 'Refacere', 3467, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3472, 5, 'Rapoarte', 3462, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3473, 5, 'Export', 3472, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3474, 5, 'Listare', 3472, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3475, 5, 'Casa de marcat', 3462, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3477, 7, 'Meniu', -1, 'Z', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3478, 7, 'Optiuni', 3477, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3479, 7, 'Optiuni', 3478, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3480, 7, 'Vizualizare', 3477, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3481, 7, 'Balanta', 3480, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3482, 7, 'Registru Jurnal', 3480, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3483, 7, 'Rapoarte generale', 3477, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3484, 7, 'Vizualizare seturi de indicatori', 3483, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3485, 7, 'Definire set nou de indicatori', 3483, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3486, 7, 'Pregatire pentru prezentare', 3483, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3487, 7, 'Seturi predefinite', 3483, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3488, 7, 'Rapoarte generale', -1, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3489, 7, 'Centre de cost', -1, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3490, 7, 'Raport de eficienta', 3489, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3491, 7, 'Export', 3490, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3492, 7, 'Listare', 3490, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3493, 7, 'Balanta pe centru', 3489, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3494, 7, 'Export', 3493, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3495, 7, 'Listare', 3493, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3496, 7, 'Lucrari/Contracte', -1, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3497, 7, 'Raport de eficienta', 3496, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3498, 7, 'Export', 3497, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3499, 7, 'Listare', 3497, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3500, 7, 'Raport materiale Cantitativ-valoric', 3496, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3501, 7, 'Export', 3500, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3502, 7, 'Listare', 3500, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3503, 7, 'Total cheltuieli directe grupate pe tipuri', 3496, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3504, 7, 'Export', 3503, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3505, 7, 'Listare', 3503, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3506, 7, 'Cheltuieli directe Lista documentelor grupate dupa tipul de cheltuiala', 3496, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3507, 7, 'Export', 3506, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3508, 7, 'Listare', 3506, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3509, 7, 'Venituri/Cheltuieli directe Lista documentelor in ordine cronologica', 3496, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3510, 7, 'Export', 3509, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3511, 7, 'Listare', 3509, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3512, 7, 'Facturat / Incasat', 3496, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3513, 7, 'Export', 3512, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3514, 7, 'Listare', 3512, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3515, 7, 'Bugete', -1, 'D', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3516, 7, 'Previzionare', 3515, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3517, 7, 'Export', 3516, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3518, 7, 'Listare', 3516, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3519, 7, 'Comparatie previzionat - realizat', 3515, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3520, 7, 'Export', 3519, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3521, 7, 'Listare', 3519, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3522, 7, 'Evaluarea in valuta', -1, 'E', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3523, 7, 'Balanta', 3522, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3524, 7, 'Export', 3523, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3525, 7, 'Listare', 3523, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3526, 7, 'Registru Jurnal', 3522, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3527, 7, 'Export', 3526, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3528, 7, 'Listare', 3526, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3529, 7, 'Terti', 3522, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3530, 7, 'Export', 3529, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3531, 7, 'Listare', 3529, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3532, 7, 'Fluxul de trezorerie', -1, 'F', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3533, 7, 'Calcul Flux de trezorerie', 3532, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3534, 7, 'Formule Flux de trezorerie', 3532, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3535, 7, 'Rapoarte', 3488, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3536, 9, 'Lucrari', 3322, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3538, 9, 'Modificare', 3536, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3542, 9, 'Stergere', 3536, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3322, 9, 'Configurare', -1, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3323, 9, 'Calcul tarifar/ ora', 3322, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3324, 9, 'Pontare', -1, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3007, 3, 'Export', 3006, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3005, 3, 'Configurare', -1, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3006, 3, 'Calcul sporuri', 3005, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3008, 3, 'Listare', 3006, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3009, 3, 'Modificare', 3006, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3010, 3, 'Stergere', 3006, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3011, 3, 'Vizualizare inreg.proprii', 3006, '5', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3012, 3, 'Vizualizare tot', 3006, '6', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3013, 3, 'Calcul popriri', 3005, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3014, 3, 'Export', 3013, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3015, 3, 'Listare', 3013, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3016, 3, 'Modificare', 3013, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3017, 3, 'Stergere', 3013, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3018, 3, 'Vizualizare inreg.proprii', 3013, '5', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3019, 3, 'Vizualizare tot', 3013, '6', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3020, 3, 'Calcul salariu', 3005, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3021, 3, 'Calcul centralizator', 3005, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3022, 3, 'Nota de inchidere', 3005, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3023, 3, 'Configurare rapoarte', 3005, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3024, 3, 'State', -1, 'B', null, null, 0);
|
||||
commit;
|
||||
prompt 200 records committed...
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3025, 3, 'Evidenta personal', 3024, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3026, 3, 'Introducere avansuri', 3024, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3027, 3, 'Export', 3026, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3028, 3, 'Sporuri', 3024, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3029, 3, 'Export', 3028, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3030, 3, 'Listare', 3028, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3031, 3, 'Modificare', 3028, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3032, 3, 'Popriri', 3024, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3033, 3, 'Export', 3032, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3034, 3, 'Listare', 3032, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3035, 3, 'Modificare', 3032, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3036, 3, 'Prime', 3024, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3037, 3, 'Export', 3036, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3038, 3, 'Calcul state', 3024, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3039, 3, 'Export', 3038, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3040, 3, 'Rapoarte', 3024, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3041, 3, 'Concedii', -1, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3042, 3, 'Concedii de odihna', 3041, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3043, 3, 'Export', 3042, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3044, 3, 'Listare', 3042, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3045, 3, 'Modificare', 3042, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3046, 3, 'Refacere', 3042, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3047, 3, 'Avansuri CO', 3041, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3048, 3, 'Export', 3047, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3049, 3, 'Listare', 3047, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3050, 3, 'Modificare', 3047, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3051, 3, 'Refacere', 3047, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3052, 3, 'Concedii medicale', 3041, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3053, 3, 'Export', 3052, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3054, 3, 'Listare', 3052, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3055, 3, 'Modificare', 3052, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3056, 3, 'Refacere', 3052, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3057, 3, 'Rapoarte', 3041, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3058, 3, 'Export', 3057, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3059, 3, 'Listare', 3057, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3060, 3, 'Modificare', 3057, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3061, 3, 'Stergere', 3057, '4', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3062, 3, 'Vizualizare inreg.proprii', 3057, '5', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3063, 3, 'Vizualizare tot', 3057, '6', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3064, 3, 'Analize', -1, 'D', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3065, 3, 'Borderou plati salarii', 3064, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3066, 3, 'Vizualizare state', 3064, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3067, 3, 'Export', 3066, '1', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3068, 3, 'Rapoarte', 3064, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3069, 3, 'Nota de inchidere', 3064, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3070, 3, 'Deschidere de luna', 3064, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3325, 9, 'Pontare pe zile', 3324, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3326, 9, 'Pontare pe lucrari', 3324, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3327, 9, 'Foaia de lucru', 3324, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3328, 9, 'Modificare', 3327, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3329, 9, 'Rapoarte', 3324, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3331, 4, 'Personal', -1, 'A', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3332, 4, 'Adaugare/modificare', 3331, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3333, 4, 'Listare', 3332, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3334, 4, 'Modificare', 3332, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3335, 4, 'Familie', 3331, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3336, 4, 'Listare', 3335, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3337, 4, 'Modificare', 3335, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3338, 4, 'Calificare', 3331, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3339, 4, 'Listare', 3338, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3340, 4, 'Modificare', 3338, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3341, 4, 'Scolarizare', 3331, '04', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3342, 4, 'Listare', 3341, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3343, 4, 'Modificare', 3341, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3344, 4, 'Vechimi', 3331, '05', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3345, 4, 'Listare', 3344, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3346, 4, 'Modificare', 3344, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3347, 4, 'Plecari din unitate', 3331, '06', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3348, 4, 'Rapoarte', 3331, '07', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3349, 4, 'Contracte de munca', -1, 'B', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3350, 4, 'Configurare contract', 3349, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3351, 4, 'Listare', 3350, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3352, 4, 'Modificare', 3350, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3353, 4, 'Listare contract', 3349, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3354, 4, 'Concedii de odihna', -1, 'C', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3355, 4, 'Planificari CO', 3354, '01', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3356, 4, 'Listare', 3355, '2', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3357, 4, 'Modificare', 3355, '3', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3358, 4, 'Sit CO cuvenite', 3354, '02', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3359, 4, 'Rapoarte', 3354, '03', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3360, 4, 'Rapoarte de analiza', -1, 'D', null, null, 0);
|
||||
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
|
||||
values (3544, 2, 'Note contabile', 2523, '06', null, null, 0);
|
||||
commit;
|
||||
prompt 280 records loaded
|
||||
prompt Enabling foreign key constraints for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE enable constraint FK_DO01;
|
||||
alter table DEF_OBIECTE enable constraint FK_DO02;
|
||||
prompt Enabling triggers for DEF_OBIECTE...
|
||||
alter table DEF_OBIECTE enable all triggers;
|
||||
set feedback on
|
||||
set define on
|
||||
prompt Done.
|
||||
38
COMUN/Drepturi utilizatori/def_programe_2710.sql
Normal file
38
COMUN/Drepturi utilizatori/def_programe_2710.sql
Normal file
@@ -0,0 +1,38 @@
|
||||
prompt PL/SQL Developer import file
|
||||
prompt Created on Thursday, October 27, 2005 by marius.atanasiu
|
||||
set feedback off
|
||||
set define off
|
||||
prompt Disabling triggers for DEF_PROGRAME...
|
||||
alter table DEF_PROGRAME disable all triggers;
|
||||
prompt Disabling foreign key constraints for DEF_PROGRAME...
|
||||
alter table DEF_PROGRAME disable constraint FK_DP01;
|
||||
prompt Loading DEF_PROGRAME...
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (1, 'ROASAL', 'SALARIZAREA PERSONALULUI', 1, 4, 0, 3, 1, to_date('25-10-2005 11:10:52', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (2, 'ROAIMOB', 'GESTIUNEA IMOBILIZARILOR', 1, 3, 0, 6, 1, to_date('25-10-2005 11:14:25', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (3, 'ROADECL', 'DECLARATII SALARII', 1, 7, 0, 10, 1, to_date('25-10-2005 11:11:19', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (4, 'ROAAUTO', 'MANAGEMENTUL ACTIVITATII DE SERVICE AUTO', 1, 8, 0, 8, 1, to_date('25-10-2005 11:13:09', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (5, 'ROAGEST', 'GESTIUNEA STOCURILOR SI A OBIECTELOR DE INVENTAR', 1, 2, 0, 5, 1, to_date('18-10-2005 13:06:14', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (6, 'ROACONT', 'FINANCIAR CONTABILITATE', 1, 1, 0, 2, 1, to_date('18-10-2005 13:06:14', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (7, 'ROAMANAGER', 'MANAGER', 1, 10, 0, 7, 1, to_date('25-10-2005 11:10:21', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (8, 'ROADEF', 'DEFINIREA COMPANIEI', 1, 11, 0, 1, 1, to_date('25-10-2005 11:10:09', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (9, 'ROANOR', 'NORMAREA MUNCII', 1, 6, 0, 9, 1, to_date('25-10-2005 11:11:09', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
insert into DEF_PROGRAME (ID_PROG, DIRECTOR, EXPLICATIE, INSTALAT, ORDINE, STERS, IDE_PROGRAM, ID_UTILOP, DATAORA)
|
||||
values (10, 'ROARES', 'RESURSE UMANE', 1, 5, 0, 4, 1, to_date('25-10-2005 11:10:59', 'dd-mm-yyyy hh24:mi:ss'));
|
||||
commit;
|
||||
prompt 11 records loaded
|
||||
prompt Enabling foreign key constraints for DEF_PROGRAME...
|
||||
alter table DEF_PROGRAME enable constraint FK_DP01;
|
||||
prompt Enabling triggers for DEF_PROGRAME...
|
||||
alter table DEF_PROGRAME enable all triggers;
|
||||
set feedback on
|
||||
set define on
|
||||
prompt Done.
|
||||
1773
COMUN/Drepturi utilizatori/drepturi_utilizatori.sql
Normal file
1773
COMUN/Drepturi utilizatori/drepturi_utilizatori.sql
Normal file
File diff suppressed because it is too large
Load Diff
47
COMUN/Drepturi utilizatori/instructiuni drepturi.txt
Normal file
47
COMUN/Drepturi utilizatori/instructiuni drepturi.txt
Normal file
@@ -0,0 +1,47 @@
|
||||
- pe forme : DO_DEFAULT pe init
|
||||
- trebuie completate cbuton1,cbuton2,cbuton3,cbuton4 cu numele butoanelor separate prin [;]
|
||||
- daca glLunaInchisa, atunci visible=.F.
|
||||
- pe click-urile de la cw: se muta tot in do_actiune ; de completat nid_cw si ntip ; linactiv=.T. daca se doreste ca cw sa fie enabled=.F. pentru toti utilizatorii
|
||||
- imaginile butoanelor trebuie sa fie bazate pe OFUNDAL.IMAGINE + modificare pictureup,picturedown,mouseenter,mouseleave,do_actiune,click,picture
|
||||
- trebuie completate proprietatile nid_img,ntip,ccod ale imaginilor ; de completat DODEFAULT pe click
|
||||
- de completat cbuton1,... de la _frmbase
|
||||
- verifica_drepturi('oprinc','pagefr1') in princ.show si unde se apeleaza DO start_firma IN ostartfirma.prg
|
||||
- butoanele de modificare,stergere,refacere,excel si listare executa mai intai inainte_de_do_XXX
|
||||
- daca se modifica visible = .T. pe forma pentru butoane, atunci trebuie modificate si proprietatile lactiv corespunzatoare in cazul in care butoanele executa inainte_de_do (do_modifica, do_sterge, do_refacere sau do_excel)
|
||||
- de adaugat acces_meniu2 ( pentru programele care nu au definite obiecte ) sau acces_meniu ( pentru prog. care au definite obiectele )
|
||||
|
||||
VALORI PENTRU NTIP:
|
||||
(0 - introducere\vizualizare simpla ; 1 - raport; 2 - registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat)
|
||||
0 - INTRODUCERE
|
||||
1 - RAPORT
|
||||
Acces:
|
||||
- export in Excel
|
||||
- listare
|
||||
2 - BALANTA/INREGISTRARI DE PART.
|
||||
Acces :
|
||||
- export in Excel
|
||||
- listare
|
||||
- modificare
|
||||
- refacere/stergere
|
||||
3 - REGISTRU
|
||||
Acces :
|
||||
- export in Excel
|
||||
- listare
|
||||
- modificare
|
||||
- refacere/stergere
|
||||
4 - VIZUALIZARI
|
||||
Acces :
|
||||
- export in Excel
|
||||
- listare
|
||||
- modificare
|
||||
- refacere/stergere
|
||||
- vizualizare inreg. ( doar inreg. proprii )
|
||||
- vizualizarea tuturor inreg.
|
||||
5 - PERSONALIZAT
|
||||
Acces :
|
||||
- export in Excel
|
||||
- listare
|
||||
- modificare
|
||||
- stergere
|
||||
- altele...
|
||||
- altele...
|
||||
@@ -0,0 +1,150 @@
|
||||
* PLUGIN email factura, recapitulatie si alte documente pdf cu aceeasi structura ca factura.pdf
|
||||
* MARIUS MUTU
|
||||
* V 23.02.2016
|
||||
* INSTALARE: Se copie fisierul prg in directorul ROA\[APLICATIE]\PLUGIN\
|
||||
* FOLOSIRE: In formularul Vizualizare facturi se apasa butonul listare
|
||||
* copiat din oproceduri_facturare.prg:email_facturi
|
||||
|
||||
Lparameters toFacturiForm, toDate
|
||||
*** Trimit email la facturile alese, sau la factura de pe inregistrarea curenta
|
||||
|
||||
Local laFiles[1], lcBody, lcClient, lcDir, lcEmail, lcErrorMessage, lcFacturaFile, lcFile
|
||||
Local lcFileName, lcFiles, lcNume, lcRaportEmail, lcRecapitulatiaFile, lcScheletonFile
|
||||
Local lcSerieFactura, lcSubject, lcTipDocument, lcTo, lcWhere, ldDataFactura, llClearErrors
|
||||
Local llJustPDF, llListareFactura, llListareRecapitulatia, llListareAlteDocumente, llSilent, llSucces, lnFile, lnFiles
|
||||
Local lnIdVanzare, lnNumarFactura, lnRecno, loDate, loMail
|
||||
|
||||
loMail = getoEmail() && email.prg
|
||||
|
||||
lcWhere = ""
|
||||
llListareFactura = .T.
|
||||
llGenerareFactura = .T.
|
||||
llListareRecapitulatia = .T.
|
||||
llGenerareRecapitulatia = .T.
|
||||
llListareAlteDocumente = .T.
|
||||
If Type('toDate') = 'O'
|
||||
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
|
||||
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .F.)
|
||||
|
||||
llListareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', Inlist(toDate.nListareRecapitulatia, 1, 2), .F.)
|
||||
llGenerareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', toDate.nListareRecapitulatia = 2, .F.)
|
||||
|
||||
llListareAlteDocumente = Iif(Type('toDate.nListareAlteDocumente') = 'L', toDate.nListareAlteDocumente = 1, .F.)
|
||||
Endif
|
||||
|
||||
Select crsFacturi
|
||||
lnRecno = Recno()
|
||||
Locate For ales = 1
|
||||
If !Found()
|
||||
Goto m.lnRecno
|
||||
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
|
||||
Else
|
||||
lcWhere = m.lcWhere + 'ales = 1'
|
||||
Endif
|
||||
|
||||
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
|
||||
|
||||
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, ;
|
||||
email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
|
||||
From crsFacturi F ;
|
||||
Where &lcWhere ;
|
||||
Into Cursor cEmail Readwrite
|
||||
|
||||
lcSubjectTemplate = loMail.cSubject
|
||||
lcBodyTemplate = loMail.cHtmlBody
|
||||
Sele cEmail
|
||||
Scan
|
||||
lcFiles = ""
|
||||
ldDataFactura = data_act
|
||||
lcSerieFactura = Alltrim(serie_act)
|
||||
lnNumarFactura = numar_act
|
||||
lcNume = Upper(Alltrim(client))
|
||||
lcClient = m.lcNume
|
||||
lnIdVanzare = id_vanzare
|
||||
loDate = Null
|
||||
|
||||
lcSubject = m.lcSubjectTemplate
|
||||
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
|
||||
loMail.cSubject = m.lcSubject
|
||||
|
||||
lcBody = m.lcBodyTemplate
|
||||
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
|
||||
loMail.cHtmlBody = m.lcBody
|
||||
|
||||
* Generare PDF factura
|
||||
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
|
||||
If m.llListareFactura
|
||||
If !File(m.lcFacturaFile) And m.llGenerareFactura
|
||||
llSilent = .F.
|
||||
llJustPDF = .T.
|
||||
lcTipDocument = 'FACTURA'
|
||||
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
|
||||
Endif
|
||||
loMail.EmailSetAttachment(m.lcFacturaFile)
|
||||
lcFiles = m.lcFiles + Iif(File(m.lcFacturaFile), m.lcFacturaFile, "")
|
||||
Endif && llListareFactura
|
||||
|
||||
* Generare PDF recapitulatie
|
||||
lcRecapitulatiaFile = GetPDFRecapitulatiaFile(ldDataFactura, m.lnNumarFactura)
|
||||
If m.llListareRecapitulatia
|
||||
If !File(m.lcRecapitulatiaFile) And m.llGenerareRecapitulatia
|
||||
llSilent = .F.
|
||||
llJustPDF = .T.
|
||||
lcTipDocument = 'RECAPITULATIE'
|
||||
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
|
||||
Endif
|
||||
loMail.EmailSetAttachment(m.lcRecapitulatiaFile)
|
||||
lcFiles = m.lcFiles + Iif(File(m.lcRecapitulatiaFile), "," + m.lcRecapitulatiaFile, "")
|
||||
Endif && llListareRecapitulatia
|
||||
|
||||
* Atasez alte documente cu aceeasi structura ca factura.pdf
|
||||
If m.llListareAlteDocumente
|
||||
lcScheletonFile = Strtran(lcFacturaFile, 'factura', '*', 1, 10, 1) && d:\roa\pdf\20200402_12346_*.pdf (_recapitulatia.pdf, _situatie_stationare.pdf, _declaratie_comandant.pdf)
|
||||
lcDir = Addbs(Justpath(m.lcFacturaFile))
|
||||
lnFiles = Adir(laFiles, m.lcScheletonFile)
|
||||
For lnFile = 1 To m.lnFiles
|
||||
lcFileName = laFiles[m.lnFile, 1]
|
||||
* Nu mai atasez factura.pdf si recapitulatie.pdf
|
||||
If Inlist(Lower(m.lcFileName), Lower(JUSTFNAME(m.lcFacturaFile)), Lower(JUSTFNAME(m.lcRecapitulatiaFile)))
|
||||
Loop
|
||||
Endif
|
||||
lcFile = m.lcDir + m.lcFileName
|
||||
loMail.EmailSetAttachment(m.lcFile)
|
||||
lcFiles = m.lcFiles + Iif(File(m.lcFile), m.lcFile, "")
|
||||
Endfor
|
||||
Endif && llListareAlteDocumente
|
||||
|
||||
* Email
|
||||
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
|
||||
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
|
||||
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
|
||||
loMail.cTo = m.lcTo
|
||||
|
||||
llSucces = .T.
|
||||
lcErrorMessage = ''
|
||||
If loMail.Send() > 0
|
||||
llClearErrors = .T.
|
||||
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
|
||||
llSucces = .F.
|
||||
Endif
|
||||
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
|
||||
|
||||
If Inkey(0.5) = 27 && 'ESC'
|
||||
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
|
||||
Exit
|
||||
Endif
|
||||
Endif
|
||||
Endscan
|
||||
|
||||
Select cEmail
|
||||
Copy To (m.lcRaportEmail) Type Xl5
|
||||
OPEN_DEFAULT_APP(m.lcRaportEmail)
|
||||
|
||||
Use In (Select('cEmail'))
|
||||
|
||||
Select crsFacturi
|
||||
Go lnRecno
|
||||
175
COMUN/Plugin/listare_facturi_omv_petrom_pdf_si_xml.prg
Normal file
175
COMUN/Plugin/listare_facturi_omv_petrom_pdf_si_xml.prg
Normal file
@@ -0,0 +1,175 @@
|
||||
Lparameters toFacturiForm, toDate
|
||||
Local lcBody, lcBodyTemplate, lcClickSignPDF, lcClient, lcContract, lcDivizia, lcEmail
|
||||
Local lcErrorMessage, lcFacturaFile, lcFileSemnat, lcFiles, lcNume, lcRaportEmail, lcRun, lcSelect
|
||||
Local lcSerieFactura, lcSql, lcSubject, lcSubjectTemplate, lcTipDocument, lcTo, lcValuta, lcWhere
|
||||
Local lcXML, lcXMLFile, ldDataFactura, llClearErrors, llForceExit, llGenerareFactura, llInValuta
|
||||
Local llJustPDF, llListareFactura, llSilent, llSucces, lnCurs, lnIdFact, lnIdVanzare, lnNumarFactura
|
||||
Local lnOptDivizia, lnRecno, lnValoare, loDate, loMail
|
||||
|
||||
lcSelect = Select()
|
||||
|
||||
lcClickSignPDF = [C:\Program Files (x86)\clickSignPdf\clickSignPdfProfessional.exe]
|
||||
If !File(m.lcClickSignPDF)
|
||||
lcClickSignPDF = [C:\Program Files\clickSignPdf\clickSignPdfProfessional.exe]
|
||||
Endif
|
||||
If !File(m.lcClickSignPDF)
|
||||
If AMESSAGEBOX('Nu este instalat clickSIGNpdf.exe! Continuati?',4+32,_Screen.Caption) <> 6
|
||||
Return
|
||||
Endif
|
||||
Endif
|
||||
|
||||
loMail = getoEmail() && email.prg
|
||||
|
||||
lcWhere = ""
|
||||
llListareFactura = .T.
|
||||
llGenerareFactura = .T.
|
||||
If Type('toDate') = 'O'
|
||||
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
|
||||
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .T.)
|
||||
Endif
|
||||
|
||||
Select crsFacturi
|
||||
lnRecno = Recno()
|
||||
Locate For ales = 1
|
||||
If !Found()
|
||||
Goto m.lnRecno
|
||||
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
|
||||
Else
|
||||
lcWhere = m.lcWhere + 'ales = 1'
|
||||
Endif
|
||||
|
||||
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
|
||||
|
||||
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, F.valuta, F.contract, F.Curs, F.in_valuta,;
|
||||
f.valval, F.tvaval, F.totval, F.email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
|
||||
From crsFacturi F ;
|
||||
Where &lcWhere ;
|
||||
Into Cursor cEmail Readwrite
|
||||
|
||||
lcSubjectTemplate = loMail.cSubject
|
||||
lcBodyTemplate = loMail.cHtmlBody
|
||||
|
||||
If Reccount('cEmail') > 0
|
||||
|
||||
lcFiles = ""
|
||||
Sele cEmail
|
||||
Scan
|
||||
ldDataFactura = data_act
|
||||
lcSerieFactura = Alltrim(serie_act)
|
||||
lnNumarFactura = numar_act
|
||||
lcNume = Upper(Alltrim(client))
|
||||
lcClient = m.lcNume
|
||||
lnIdVanzare = id_vanzare
|
||||
loDate = Null
|
||||
lcValuta = Upper(Alltrim(valuta))
|
||||
lcContract = Alltrim(Nvl(contract, ''))
|
||||
lnCurs = Curs
|
||||
llInValuta = (Nvl(in_valuta,0) = 1)
|
||||
|
||||
lcValuta = Upper(Alltrim(Nvl(valuta,'')))
|
||||
Do Case
|
||||
Case !m.llInValuta
|
||||
lcValuta = 'RON'
|
||||
Case Left(m.lcValuta,3) = 'EUR' && EURO
|
||||
lcValuta = 'EUR'
|
||||
Endcase
|
||||
lnValoare = Iif(m.llInValuta, totval, total_cu_tva)
|
||||
|
||||
lcSubject = m.lcSubjectTemplate
|
||||
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
|
||||
loMail.cSubject = m.lcSubject
|
||||
|
||||
lcBody = m.lcBodyTemplate
|
||||
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
|
||||
loMail.cHtmlBody = m.lcBody
|
||||
|
||||
* Generare PDF factura
|
||||
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
|
||||
lcFacturaValutaFile = GetPDFFacturaValutaFile(m.ldDataFactura, m.lnNumarFactura)
|
||||
If m.llListareFactura
|
||||
If !File(m.lcFacturaFile) And m.llGenerareFactura
|
||||
llSilent = .F.
|
||||
llJustPDF = .T.
|
||||
lcTipDocument = 'FACTURA'
|
||||
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
|
||||
Endif
|
||||
Endif && llListareFactura
|
||||
|
||||
If File(m.lcFacturaValutaFile) And File(m.lcFacturaFile)
|
||||
lnRaspuns = AMESSAGEBOX('Doriti semnarea facturii in valuta (DA) sau a facturii in lei (NU)?',4+32,_Screen.Caption)
|
||||
If m.lnRaspuns = 6
|
||||
lcFacturaFile = m.lcFacturaValutaFile
|
||||
Endif
|
||||
Endif
|
||||
* Semnare PDF
|
||||
* Lansare utilitar certsign.ro
|
||||
OPEN_DEFAULT_APP(Justpath(m.lcFacturaFile)) && deschid directorul facturii
|
||||
If File(m.lcClickSignPDF)
|
||||
lcRun = [! /N "] + m.lcClickSignPDF + [" -i "] + m.lcFacturaFile + ["]
|
||||
&lcRun
|
||||
Endif
|
||||
|
||||
lcFileSemnat = Strtran(m.lcFacturaFile, Juststem(m.lcFacturaFile), Juststem(m.lcFacturaFile) + '_signed')
|
||||
|
||||
AMESSAGEBOX('Se verifica fisierul ' + lcFileSemnat + Chr(13) + Chr(10) + 'Apasati OK cand s-a semnat pdf-ul.',0, _Screen.Caption)
|
||||
*WAIT WINDOW 'Se asteapta semnarea fisierului ' + m.lcFacturaFile NOWAIT
|
||||
|
||||
llForceExit = .F.
|
||||
Do While .T.
|
||||
If File(m.lcFileSemnat)
|
||||
Exit
|
||||
Endif
|
||||
Wait Window 'Se verifica ' + m.lcFileSemnat Nowait
|
||||
If Inkey(1) = 27 && 'ESC'
|
||||
If AMESSAGEBOX('Doriti sa intrerupeti operatia?',4+32, _Screen.Caption) = 6
|
||||
llForceExit = .T.
|
||||
Exit
|
||||
Endif
|
||||
Endif
|
||||
Enddo
|
||||
|
||||
If m.llForceExit
|
||||
Exit
|
||||
Endif
|
||||
|
||||
If File(m.lcFileSemnat)
|
||||
loMail.EmailSetAttachment(m.lcFileSemnat)
|
||||
Endif
|
||||
|
||||
* Email
|
||||
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
|
||||
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
|
||||
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
|
||||
loMail.cTo = m.lcTo
|
||||
|
||||
llSucces = .T.
|
||||
lcErrorMessage = ''
|
||||
If loMail.Send() > 0
|
||||
llClearErrors = .T.
|
||||
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
|
||||
llSucces = .F.
|
||||
Endif
|
||||
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
|
||||
|
||||
If Inkey(0.5) = 27 && 'ESC'
|
||||
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
|
||||
Exit
|
||||
Endif
|
||||
Endif
|
||||
Endscan
|
||||
|
||||
Select cEmail
|
||||
Copy To (m.lcRaportEmail) Type Xl5
|
||||
OPEN_DEFAULT_APP(m.lcRaportEmail)
|
||||
ENDIF && Reccount('cEmail')
|
||||
|
||||
Use In (Select('cEmail'))
|
||||
|
||||
Select (m.lcSelect)
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,150 @@
|
||||
* PLUGIN email factura, recapitulatie si alte documente pdf cu aceeasi structura ca factura.pdf
|
||||
* MARIUS MUTU
|
||||
* V 23.02.2016
|
||||
* INSTALARE: Se copie fisierul prg in directorul ROA\[APLICATIE]\PLUGIN\
|
||||
* FOLOSIRE: In formularul Vizualizare facturi se apasa butonul listare
|
||||
* copiat din oproceduri_facturare.prg:email_facturi
|
||||
|
||||
Lparameters toFacturiForm, toDate
|
||||
*** Trimit email la facturile alese, sau la factura de pe inregistrarea curenta
|
||||
|
||||
Local laFiles[1], lcBody, lcClient, lcDir, lcEmail, lcErrorMessage, lcFacturaFile, lcFile
|
||||
Local lcFileName, lcFiles, lcNume, lcRaportEmail, lcRecapitulatiaFile, lcScheletonFile
|
||||
Local lcSerieFactura, lcSubject, lcTipDocument, lcTo, lcWhere, ldDataFactura, llClearErrors
|
||||
Local llJustPDF, llListareFactura, llListareRecapitulatia, llListareAlteDocumente, llSilent, llSucces, lnFile, lnFiles
|
||||
Local lnIdVanzare, lnNumarFactura, lnRecno, loDate, loMail
|
||||
|
||||
loMail = getoEmail() && email.prg
|
||||
|
||||
lcWhere = ""
|
||||
llListareFactura = .T.
|
||||
llGenerareFactura = .T.
|
||||
llListareRecapitulatia = .T.
|
||||
llGenerareRecapitulatia = .T.
|
||||
llListareAlteDocumente = .T.
|
||||
If Type('toDate') = 'O'
|
||||
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
|
||||
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .F.)
|
||||
|
||||
llListareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', Inlist(toDate.nListareRecapitulatia, 1, 2), .F.)
|
||||
llGenerareRecapitulatia = Iif(Type('toDate.nListareRecapitulatia') = 'N', toDate.nListareRecapitulatia = 2, .F.)
|
||||
|
||||
llListareAlteDocumente = Iif(Type('toDate.nListareAlteDocumente') = 'L', toDate.nListareAlteDocumente = 1, .F.)
|
||||
Endif
|
||||
|
||||
Select crsFacturi
|
||||
lnRecno = Recno()
|
||||
Locate For ales = 1
|
||||
If !Found()
|
||||
Goto m.lnRecno
|
||||
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
|
||||
Else
|
||||
lcWhere = m.lcWhere + 'ales = 1'
|
||||
Endif
|
||||
|
||||
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
|
||||
|
||||
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, ;
|
||||
email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
|
||||
From crsFacturi F ;
|
||||
Where &lcWhere ;
|
||||
Into Cursor cEmail Readwrite
|
||||
|
||||
lcSubjectTemplate = loMail.cSubject
|
||||
lcBodyTemplate = loMail.cHtmlBody
|
||||
Sele cEmail
|
||||
Scan
|
||||
lcFiles = ""
|
||||
ldDataFactura = data_act
|
||||
lcSerieFactura = Alltrim(serie_act)
|
||||
lnNumarFactura = numar_act
|
||||
lcNume = Upper(Alltrim(client))
|
||||
lcClient = m.lcNume
|
||||
lnIdVanzare = id_vanzare
|
||||
loDate = Null
|
||||
|
||||
lcSubject = m.lcSubjectTemplate
|
||||
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
|
||||
loMail.cSubject = m.lcSubject
|
||||
|
||||
lcBody = m.lcBodyTemplate
|
||||
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
|
||||
loMail.cHtmlBody = m.lcBody
|
||||
|
||||
* Generare PDF factura
|
||||
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
|
||||
If m.llListareFactura
|
||||
If !File(m.lcFacturaFile) And m.llGenerareFactura
|
||||
llSilent = .F.
|
||||
llJustPDF = .T.
|
||||
lcTipDocument = 'FACTURA'
|
||||
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
|
||||
Endif
|
||||
loMail.EmailSetAttachment(m.lcFacturaFile)
|
||||
lcFiles = m.lcFiles + Iif(File(m.lcFacturaFile), m.lcFacturaFile, "")
|
||||
Endif && llListareFactura
|
||||
|
||||
* Generare PDF recapitulatie
|
||||
lcRecapitulatiaFile = GetPDFRecapitulatiaFile(ldDataFactura, m.lnNumarFactura)
|
||||
If m.llListareRecapitulatia
|
||||
If !File(m.lcRecapitulatiaFile) And m.llGenerareRecapitulatia
|
||||
llSilent = .F.
|
||||
llJustPDF = .T.
|
||||
lcTipDocument = 'RECAPITULATIE'
|
||||
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
|
||||
Endif
|
||||
loMail.EmailSetAttachment(m.lcRecapitulatiaFile)
|
||||
lcFiles = m.lcFiles + Iif(File(m.lcRecapitulatiaFile), "," + m.lcRecapitulatiaFile, "")
|
||||
Endif && llListareRecapitulatia
|
||||
|
||||
* Atasez alte documente cu aceeasi structura ca factura.pdf
|
||||
If m.llListareAlteDocumente
|
||||
lcScheletonFile = Strtran(lcFacturaFile, 'factura', '*', 1, 10, 1) && d:\roa\pdf\20200402_12346_*.pdf (_recapitulatia.pdf, _situatie_stationare.pdf, _declaratie_comandant.pdf)
|
||||
lcDir = Addbs(Justpath(m.lcFacturaFile))
|
||||
lnFiles = Adir(laFiles, m.lcScheletonFile)
|
||||
For lnFile = 1 To m.lnFiles
|
||||
lcFileName = laFiles[m.lnFile, 1]
|
||||
* Nu mai atasez factura.pdf si recapitulatie.pdf
|
||||
If Inlist(Lower(m.lcFileName), Lower(JUSTFNAME(m.lcFacturaFile)), Lower(JUSTFNAME(m.lcRecapitulatiaFile)))
|
||||
Loop
|
||||
Endif
|
||||
lcFile = m.lcDir + m.lcFileName
|
||||
loMail.EmailSetAttachment(m.lcFile)
|
||||
lcFiles = m.lcFiles + Iif(File(m.lcFile), m.lcFile, "")
|
||||
Endfor
|
||||
Endif && llListareAlteDocumente
|
||||
|
||||
* Email
|
||||
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
|
||||
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
|
||||
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
|
||||
loMail.cTo = m.lcTo
|
||||
|
||||
llSucces = .T.
|
||||
lcErrorMessage = ''
|
||||
If loMail.Send() > 0
|
||||
llClearErrors = .T.
|
||||
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
|
||||
llSucces = .F.
|
||||
Endif
|
||||
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
|
||||
|
||||
If Inkey(0.5) = 27 && 'ESC'
|
||||
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
|
||||
Exit
|
||||
Endif
|
||||
Endif
|
||||
Endscan
|
||||
|
||||
Select cEmail
|
||||
Copy To (m.lcRaportEmail) Type Xl5
|
||||
OPEN_DEFAULT_APP(m.lcRaportEmail)
|
||||
|
||||
Use In (Select('cEmail'))
|
||||
|
||||
Select crsFacturi
|
||||
Go lnRecno
|
||||
175
COMUN/PluginTemplate/listare_facturi_omv_petrom_pdf_si_xml.prg
Normal file
175
COMUN/PluginTemplate/listare_facturi_omv_petrom_pdf_si_xml.prg
Normal file
@@ -0,0 +1,175 @@
|
||||
Lparameters toFacturiForm, toDate
|
||||
Local lcBody, lcBodyTemplate, lcClickSignPDF, lcClient, lcContract, lcDivizia, lcEmail
|
||||
Local lcErrorMessage, lcFacturaFile, lcFileSemnat, lcFiles, lcNume, lcRaportEmail, lcRun, lcSelect
|
||||
Local lcSerieFactura, lcSql, lcSubject, lcSubjectTemplate, lcTipDocument, lcTo, lcValuta, lcWhere
|
||||
Local lcXML, lcXMLFile, ldDataFactura, llClearErrors, llForceExit, llGenerareFactura, llInValuta
|
||||
Local llJustPDF, llListareFactura, llSilent, llSucces, lnCurs, lnIdFact, lnIdVanzare, lnNumarFactura
|
||||
Local lnOptDivizia, lnRecno, lnValoare, loDate, loMail
|
||||
|
||||
lcSelect = Select()
|
||||
|
||||
lcClickSignPDF = [C:\Program Files (x86)\clickSignPdf\clickSignPdfProfessional.exe]
|
||||
If !File(m.lcClickSignPDF)
|
||||
lcClickSignPDF = [C:\Program Files\clickSignPdf\clickSignPdfProfessional.exe]
|
||||
Endif
|
||||
If !File(m.lcClickSignPDF)
|
||||
If AMESSAGEBOX('Nu este instalat clickSIGNpdf.exe! Continuati?',4+32,_Screen.Caption) <> 6
|
||||
Return
|
||||
Endif
|
||||
Endif
|
||||
|
||||
loMail = getoEmail() && email.prg
|
||||
|
||||
lcWhere = ""
|
||||
llListareFactura = .T.
|
||||
llGenerareFactura = .T.
|
||||
If Type('toDate') = 'O'
|
||||
llListareFactura = Iif(Type('toDate.nListareFactura') = 'N', Inlist(toDate.nListareFactura, 1, 2), .T.)
|
||||
llGenerareFactura = Iif(Type('toDate.nListareFactura') = 'N', toDate.nListareFactura = 2, .T.)
|
||||
Endif
|
||||
|
||||
Select crsFacturi
|
||||
lnRecno = Recno()
|
||||
Locate For ales = 1
|
||||
If !Found()
|
||||
Goto m.lnRecno
|
||||
lcWhere = m.lcWhere + 'recno() = ' + Alltrim(Str(m.lnRecno))
|
||||
Else
|
||||
lcWhere = m.lcWhere + 'ales = 1'
|
||||
Endif
|
||||
|
||||
lcRaportEmail = Addbs(gcTempPath) + "email_" + Ttoc(Datetime(), 1) + '.xls'
|
||||
|
||||
Select F.id_vanzare, F.data_act, F.numar_act, F.serie_act, F.total_fara_tva, F.total_tva, F.total_cu_tva, F.client, F.valuta, F.contract, F.Curs, F.in_valuta,;
|
||||
f.valval, F.tvaval, F.totval, F.email_facturare, Cast(Null As L) As email_succes, Cast(Null As c(250)) As email_mesaj ;
|
||||
From crsFacturi F ;
|
||||
Where &lcWhere ;
|
||||
Into Cursor cEmail Readwrite
|
||||
|
||||
lcSubjectTemplate = loMail.cSubject
|
||||
lcBodyTemplate = loMail.cHtmlBody
|
||||
|
||||
If Reccount('cEmail') > 0
|
||||
|
||||
lcFiles = ""
|
||||
Sele cEmail
|
||||
Scan
|
||||
ldDataFactura = data_act
|
||||
lcSerieFactura = Alltrim(serie_act)
|
||||
lnNumarFactura = numar_act
|
||||
lcNume = Upper(Alltrim(client))
|
||||
lcClient = m.lcNume
|
||||
lnIdVanzare = id_vanzare
|
||||
loDate = Null
|
||||
lcValuta = Upper(Alltrim(valuta))
|
||||
lcContract = Alltrim(Nvl(contract, ''))
|
||||
lnCurs = Curs
|
||||
llInValuta = (Nvl(in_valuta,0) = 1)
|
||||
|
||||
lcValuta = Upper(Alltrim(Nvl(valuta,'')))
|
||||
Do Case
|
||||
Case !m.llInValuta
|
||||
lcValuta = 'RON'
|
||||
Case Left(m.lcValuta,3) = 'EUR' && EURO
|
||||
lcValuta = 'EUR'
|
||||
Endcase
|
||||
lnValoare = Iif(m.llInValuta, totval, total_cu_tva)
|
||||
|
||||
lcSubject = m.lcSubjectTemplate
|
||||
lcSubject = Strtran(m.lcSubject, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 1, 1)
|
||||
lcSubject = Strtran(m.lcSubject, '<client>', m.lcClient, 1, 1, 1)
|
||||
loMail.cSubject = m.lcSubject
|
||||
|
||||
lcBody = m.lcBodyTemplate
|
||||
lcBody = Strtran(m.lcBody, '<nrfact>', Alltrim(Str(m.lnNumarFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<datafact>', Alltrim(Dtoc(m.ldDataFactura)), 1, 10, 1)
|
||||
lcBody = Strtran(m.lcBody, '<client>', m.lcClient, 1, 10, 1)
|
||||
loMail.cHtmlBody = m.lcBody
|
||||
|
||||
* Generare PDF factura
|
||||
lcFacturaFile = GetPDFFacturaFile(m.ldDataFactura, m.lnNumarFactura)
|
||||
lcFacturaValutaFile = GetPDFFacturaValutaFile(m.ldDataFactura, m.lnNumarFactura)
|
||||
If m.llListareFactura
|
||||
If !File(m.lcFacturaFile) And m.llGenerareFactura
|
||||
llSilent = .F.
|
||||
llJustPDF = .T.
|
||||
lcTipDocument = 'FACTURA'
|
||||
loDate = toFacturiForm.do_listare_document(m.lnIdVanzare, m.llSilent, m.llJustPDF, m.lcTipDocument) && .ListareDocument(m.llSilent, m.llJustPDF, "cEmail")
|
||||
Endif
|
||||
Endif && llListareFactura
|
||||
|
||||
If File(m.lcFacturaValutaFile) And File(m.lcFacturaFile)
|
||||
lnRaspuns = AMESSAGEBOX('Doriti semnarea facturii in valuta (DA) sau a facturii in lei (NU)?',4+32,_Screen.Caption)
|
||||
If m.lnRaspuns = 6
|
||||
lcFacturaFile = m.lcFacturaValutaFile
|
||||
Endif
|
||||
Endif
|
||||
* Semnare PDF
|
||||
* Lansare utilitar certsign.ro
|
||||
OPEN_DEFAULT_APP(Justpath(m.lcFacturaFile)) && deschid directorul facturii
|
||||
If File(m.lcClickSignPDF)
|
||||
lcRun = [! /N "] + m.lcClickSignPDF + [" -i "] + m.lcFacturaFile + ["]
|
||||
&lcRun
|
||||
Endif
|
||||
|
||||
lcFileSemnat = Strtran(m.lcFacturaFile, Juststem(m.lcFacturaFile), Juststem(m.lcFacturaFile) + '_signed')
|
||||
|
||||
AMESSAGEBOX('Se verifica fisierul ' + lcFileSemnat + Chr(13) + Chr(10) + 'Apasati OK cand s-a semnat pdf-ul.',0, _Screen.Caption)
|
||||
*WAIT WINDOW 'Se asteapta semnarea fisierului ' + m.lcFacturaFile NOWAIT
|
||||
|
||||
llForceExit = .F.
|
||||
Do While .T.
|
||||
If File(m.lcFileSemnat)
|
||||
Exit
|
||||
Endif
|
||||
Wait Window 'Se verifica ' + m.lcFileSemnat Nowait
|
||||
If Inkey(1) = 27 && 'ESC'
|
||||
If AMESSAGEBOX('Doriti sa intrerupeti operatia?',4+32, _Screen.Caption) = 6
|
||||
llForceExit = .T.
|
||||
Exit
|
||||
Endif
|
||||
Endif
|
||||
Enddo
|
||||
|
||||
If m.llForceExit
|
||||
Exit
|
||||
Endif
|
||||
|
||||
If File(m.lcFileSemnat)
|
||||
loMail.EmailSetAttachment(m.lcFileSemnat)
|
||||
Endif
|
||||
|
||||
* Email
|
||||
Wait Window 'Email ' + Alltrim(Transform(Recno('cEmail'))) + '/' + Alltrim(Transform(Reccount('cEmail'))) + ' Client: ' + m.lcClient + ' Factura: ' + Alltrim(Str(m.lnNumarFactura)) Nowait
|
||||
lcEmail = Alltrim(Nvl(cEmail.email_facturare, '')) && am adaugat direct in crsFacturi.email_facturare, ca sa nu mai folosesc loDate.oClient.email_facturare, daca fisierele pdf sunt deja listate
|
||||
lcTo = Iif(!Empty(Nvl(m.lcEmail, '')), m.lcEmail, '')
|
||||
loMail.cTo = m.lcTo
|
||||
|
||||
llSucces = .T.
|
||||
lcErrorMessage = ''
|
||||
If loMail.Send() > 0
|
||||
llClearErrors = .T.
|
||||
lcErrorMessage = loMail.GetErrorMessage(m.llClearErrors)
|
||||
llSucces = .F.
|
||||
Endif
|
||||
Replace email_succes With m.llSucces, email_mesaj With Left(m.lcErrorMessage, 250) In cEmail
|
||||
|
||||
If Inkey(0.5) = 27 && 'ESC'
|
||||
If AMESSAGEBOX('Doriti sa intrerupeti operatia?', 4 + 32, _Screen.Caption) = 6
|
||||
Exit
|
||||
Endif
|
||||
Endif
|
||||
Endscan
|
||||
|
||||
Select cEmail
|
||||
Copy To (m.lcRaportEmail) Type Xl5
|
||||
OPEN_DEFAULT_APP(m.lcRaportEmail)
|
||||
ENDIF && Reccount('cEmail')
|
||||
|
||||
Use In (Select('cEmail'))
|
||||
|
||||
Select (m.lcSelect)
|
||||
|
||||
|
||||
|
||||
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_a5_ft.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_a5_ft.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_a5_ft.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_a5_ft.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_ft.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_ft.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_ft.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_ft.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_transfer_ctva.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_transfer_ctva.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_transfer_ctva.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/aviz_transfer_ctva.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_a5_ft.frt
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_a5_ft.frt
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_a5_ft.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_a5_ft.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_ft.frt
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_ft.frt
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_ft.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_ft.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_a5_ft.frt
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_a5_ft.frt
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_a5_ft.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_a5_ft.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_ft.frt
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_ft.frt
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_ft.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/Formulare tipizate/factura_val_ft.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer_ctva.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer_ctva.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer_ctva.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva/aviz_transfer_ctva.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_a5.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_a5.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_a5.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_a5.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer_ctva.FRT
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer_ctva.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer_ctva.frx
Normal file
BIN
COMUN/Rapoarte/Arhiva_netipizate/aviz_transfer_ctva.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz.FRT
Normal file
BIN
COMUN/Rapoarte/aviz.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz.frx
Normal file
BIN
COMUN/Rapoarte/aviz.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz_a5.FRT
Normal file
BIN
COMUN/Rapoarte/aviz_a5.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz_a5.frx
Normal file
BIN
COMUN/Rapoarte/aviz_a5.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz_ctva.FRT
Normal file
BIN
COMUN/Rapoarte/aviz_ctva.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz_ctva.frx
Normal file
BIN
COMUN/Rapoarte/aviz_ctva.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz_ctva_a5.FRT
Normal file
BIN
COMUN/Rapoarte/aviz_ctva_a5.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/aviz_ctva_a5.frx
Normal file
BIN
COMUN/Rapoarte/aviz_ctva_a5.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt1.FRT
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt1.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt1.frx
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt1.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2.FRT
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2.frx
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2_ext.FRT
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2_ext.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2_ext.frx
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt2_ext.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt3.FRT
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt3.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt3.frx
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt3.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt4.FRT
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt4.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt4.frx
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt4.frx
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt5.FRT
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt5.FRT
Normal file
Binary file not shown.
BIN
COMUN/Rapoarte/balanta_parteneri_rpt5.frx
Normal file
BIN
COMUN/Rapoarte/balanta_parteneri_rpt5.frx
Normal file
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user