Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
BIN
Alte/Extras_de_cont_11634808EXCEL.xls
Normal file
BIN
Alte/Extras_de_cont_11634808EXCEL.xls
Normal file
Binary file not shown.
42
Alte/Extras_de_cont_11634808MT 940.txt
Normal file
42
Alte/Extras_de_cont_11634808MT 940.txt
Normal file
@@ -0,0 +1,42 @@
|
||||
|
||||
:20:44457020001
|
||||
:25:RO57RZBR0000060011634808
|
||||
:28C:213/1
|
||||
:NS:22A.B.C.VAL SRL
|
||||
23Cont curent CORPORATE RON
|
||||
:60F:D171220RON2815046,47
|
||||
:61:1712201220D82665,12NTRF32871258//3A9H3KUEDK5T72I
|
||||
:86:000^20C/V F. 54^24Ref.Doc 1501/OPIB^30GE GARAN
|
||||
TI BANK S.A.^31RO68UGBI0000442012404RON^32ADINA SI
|
||||
CAMI UNIVERS SRL
|
||||
:61:1712201220D13,74NCOMNONREF//3A9H3KUEDK5T72S
|
||||
:86:000^20Comision OPIB Interbancar
|
||||
:61:1712201220D173,74NTRFRO 13838336//3A9H3KUEDK5T732
|
||||
:86:000^20CV.FACT 3829503 SI 3889431^24Ref.Doc 150
|
||||
2/OPMC^30RAIFFEISEN BANK S.A.^31RO50RZBR0000060005
|
||||
285217^32SC FAN COURIER EXPRESS SRL
|
||||
:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T73C
|
||||
:86:000^20Comision MC intrabancar
|
||||
:61:1712201220D3141,04NTRFNONREF//3A9H3KUEDK5T73M
|
||||
:86:000^20Tranzactie instrument debit^24BO/RZBR3AE
|
||||
0497677^30PIRAEUS BANK ROMANIA S.A.^31RO09PIRB1801
|
||||
733066002000^32DYNAMIC SELLING GROUP SRL
|
||||
:61:1712201220D8,00NCOMNONREF//3A9H3KUEDK5T73W
|
||||
:86:000^20Comision plata BO/RZBR3AE/0^21497677
|
||||
:61:1712201220D21600,00NTRF2711022131264//3A9H3KUEDK5T746
|
||||
:86:000^20plata salarii noiembrie/mel^21enc^32mele
|
||||
ndu diana florentina
|
||||
:61:1712201220D162,00NCOMNONREF//3A9H3KUEDK5T747
|
||||
:86:000^20Com retragereIMM lei
|
||||
:61:1712201220D7300,00NTRFNONREF//3A9H3KUEDK5T74G
|
||||
:86:000^20transfer suma^24Ref.Doc 1503/OPIB^30RAIF
|
||||
FEISEN BANK S.A.^31RO53RZBR0000060019503132^32A.B.
|
||||
C.VAL SRL
|
||||
:61:1712201220D197,54NTRFRO 13838336//3A9H3KUEDK5T74Q
|
||||
:86:000^20CV.F. 3859683^24Ref.Doc 1504/OPMC^30RAI
|
||||
FFEISEN BANK S.A.^31RO50RZBR0000060005285217^32SC
|
||||
FAN COURIER EXPRESS SRL
|
||||
:61:1712201220D1,00NCOMNONREF//3A9H3KUEDK5T750
|
||||
:86:000^20Comision MC intrabancar
|
||||
:62F:D171220RON2930309,65
|
||||
:64:D171220RON2930309,65
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx
Normal file
BIN
Alte/SmartBill2ROA/ExportSmartBill/10.2020/facturi_roa.xlsx
Normal file
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
BIN
Alte/SmartBill2ROA/SmartBill2ROA.exe
Normal file
BIN
Alte/SmartBill2ROA/SmartBill2ROA.exe
Normal file
Binary file not shown.
92
Alte/SmartBill2ROA/SmartBill2ROA.pj2
Normal file
92
Alte/SmartBill2ROA/SmartBill2ROA.pj2
Normal file
@@ -0,0 +1,92 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="smartbill2roa.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
LPARAMETERS tcDir
|
||||
|
||||
lcCurdir = SYS(5)+CURDIR()
|
||||
CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) )
|
||||
|
||||
*<DevInfo>
|
||||
_Author = ""
|
||||
_Company = ""
|
||||
_Address = ""
|
||||
_City = ""
|
||||
_State = ""
|
||||
_PostalCode = ""
|
||||
_Country = ""
|
||||
*--
|
||||
_Comments = ""
|
||||
_CompanyName = " "
|
||||
_FileDescription = " "
|
||||
_LegalCopyright = ""
|
||||
_LegalTrademark = ""
|
||||
_ProductName = " "
|
||||
_MajorVer = "1"
|
||||
_MinorVer = "0"
|
||||
_Revision = "10"
|
||||
_LanguageID = ""
|
||||
_AutoIncrement = "0"
|
||||
*</DevInfo>
|
||||
|
||||
|
||||
*<BuildProj>
|
||||
*<.HomeDir = 'd:\roa\roacont\alte\smartbill2roa' />
|
||||
|
||||
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
||||
loProject.Close()
|
||||
ENDFOR
|
||||
|
||||
STRTOFILE( '', '__newproject.f2b' )
|
||||
BUILD PROJECT SmartBill2ROA.pjx FROM '__newproject.f2b'
|
||||
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
||||
loProject.Close()
|
||||
ENDFOR
|
||||
|
||||
MODIFY PROJECT 'SmartBill2ROA.pjx' NOWAIT NOSHOW NOPROJECTHOOK
|
||||
|
||||
loProject = _VFP.Projects('SmartBill2ROA.pjx')
|
||||
|
||||
WITH loProject.FILES
|
||||
.ADD('..\..\comun\programe\regex.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
.ADD('..\..\comun\utile\excel\appendxlsx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
.ADD('..\..\comun\utile\excel\importfromxlsx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
.ADD('import_facturi.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
.ADD('vfpxworkbookxlsx.h') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
|
||||
.ADD('vfpxworkbookxlsx.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||
*</BuildProj>
|
||||
|
||||
.ITEM('__newproject.f2b').Remove()
|
||||
|
||||
*<FileComments>
|
||||
*</FileComments>
|
||||
|
||||
*<ExcludedFiles>
|
||||
*</ExcludedFiles>
|
||||
|
||||
*<TextFiles>
|
||||
.ITEM("vfpxworkbookxlsx.h").Type = 'T'
|
||||
*</TextFiles>
|
||||
ENDWITH
|
||||
|
||||
WITH loProject
|
||||
*<ProjectProperties>
|
||||
.SetMain("import_facturi.prg")
|
||||
|
||||
.Debug = .T.
|
||||
.Encrypted = .F.
|
||||
*<.CmntStyle = 1 />
|
||||
*<.NoLogo = .F. />
|
||||
*<.SaveCode = .T. />
|
||||
*<.User = '' />
|
||||
.ProjectHookLibrary = ''
|
||||
.ProjectHookClass = ''
|
||||
*</ProjectProperties>
|
||||
ENDWITH
|
||||
|
||||
|
||||
_VFP.Projects('SmartBill2ROA.pjx').Close()
|
||||
*ERASE '__newproject.f2b'
|
||||
CD (lcCurdir)
|
||||
RETURN
|
||||
296
Alte/SmartBill2ROA/VFPxWorkbookXLSX.h
Normal file
296
Alte/SmartBill2ROA/VFPxWorkbookXLSX.h
Normal file
@@ -0,0 +1,296 @@
|
||||
#DEFINE CR CHR(13)
|
||||
#DEFINE LF CHR(10)
|
||||
#DEFINE CRLF CR+LF
|
||||
#DEFINE TAB CHR(9)
|
||||
#DEFINE False .F.
|
||||
#DEFINE True .T.
|
||||
#DEFINE FOF_SILENT 4
|
||||
|
||||
#DEFINE LIMITS_MAX_CELL_CHARS 32767
|
||||
#DEFINE LIMITS_MAX_COLUMNS 16384
|
||||
#DEFINE LIMITS_MAX_ROWS 1048576
|
||||
#DEFINE LIMITS_MAX_ROW_HEIGHT 409
|
||||
#DEFINE LIMITS_MAX_COLUMN_WIDTH 255
|
||||
#DEFINE LIMITS_MAX_HDR_FTR_CHARS 255
|
||||
#DEFINE LIMITS_MAX_CELL_FORMATS 200
|
||||
#DEFINE LIMITS_MAX_FILL_STYLES 256
|
||||
#DEFINE LIMITS_MAX_LINE_STYLES 256
|
||||
#DEFINE LIMITS_MAX_FONTS 512
|
||||
#DEFINE LIMITS_MAX_FORMULA_LENGTH 8192
|
||||
#DEFINE LIMITS_MAX_SH_NAME 30
|
||||
|
||||
#DEFINE INSERT_BEFORE "BEFORE"
|
||||
#DEFINE INSERT_AFTER "AFTER"
|
||||
#DEFINE INSERT_RIGHT "RIGHT"
|
||||
#DEFINE INSERT_LEFT "LEFT"
|
||||
|
||||
#DEFINE START_NUMERIC_FORMAT_ID 165
|
||||
|
||||
#DEFINE SCOPE_WB_NAMED_RANGE 0 && Scope of named range - workbook
|
||||
#DEFINE SCOPE_SH_NAMED_RANGE 1 && Scope of named range - limited to sheet
|
||||
|
||||
#DEFINE VISIBLE_SHEET_STATE 0 && visible (default)
|
||||
#DEFINE HIDDEN_SHEET_STATE 1 && hidden
|
||||
#DEFINE VERYHIDDEN_SHEET_STATE 2 && veryHidden
|
||||
|
||||
#DEFINE NONE_VALID_TYPE 1 && none
|
||||
#DEFINE WHOLE_VALID_TYPE 2 && whole
|
||||
#DEFINE DECIMAL_VALID_TYPE 3 && decimal
|
||||
#DEFINE LIST_VALID_TYPE 4 && list
|
||||
#DEFINE DATE_VALID_TYPE 5 && date
|
||||
#DEFINE TIME_VALID_TYPE 6 && time
|
||||
#DEFINE TXTLEN_VALID_TYPE 7 && textLength
|
||||
#DEFINE CUSTOM_VALID_TYPE 8 && custom
|
||||
|
||||
#DEFINE STOP_VALID_STYLE 1 && stop
|
||||
#DEFINE WARN_VALID_STYLE 2 && warning
|
||||
#DEFINE INFO_VALID_STYLE 3 && information
|
||||
|
||||
#DEFINE BETWEEN_VALID_OPER 1 && between
|
||||
#DEFINE NOTBETW_VALID_OPER 2 && notBetween
|
||||
#DEFINE EQUAL_VALID_OPER 3 && equal
|
||||
#DEFINE NOTEQUAL_VALID_OPER 4 && notEqual
|
||||
#DEFINE LESSTHAN_VALID_OPER 5 && lessThan
|
||||
#DEFINE LESSOREQUAL_VALID_OPER 6 && lessThanOrEqual
|
||||
#DEFINE GREATTHAN_VALID_OPER 7 && greaterThan
|
||||
#DEFINE GREATOREQUAL_VALID_OPER 8 && greaterThanOrEqual
|
||||
|
||||
#DEFINE PORTRAIT_PRINT_ORIENTATION 1
|
||||
#DEFINE LANDSCAPE_PRINT_ORIENTATION 2
|
||||
|
||||
#DEFINE PAPERSIZE_LTR 1 && Letter paper (8.5 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_LTR_SMALL 2 && Letter small paper (8.5 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_TABLOID 3 && Tabloid paper (11 in. BY 17 in.)
|
||||
#DEFINE PAPERSIZE_LEDGER 4 && Ledger paper (17 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_LEGAL 5 && Legal paper (8.5 in. BY 14 in.)
|
||||
#DEFINE PAPERSIZE_STATEMENT 6 && Statement paper (5.5 in. BY 8.5 in.)
|
||||
#DEFINE PAPERSIZE_EXECUTIVE 7 && Executive paper (7.25 in. BY 10.5 in.)
|
||||
#DEFINE PAPERSIZE_A3 8 && A3 paper (297 mm BY 420 mm)
|
||||
#DEFINE PAPERSIZE_A4 9 && A4 paper (210 mm BY 297 mm)
|
||||
#DEFINE PAPERSIZE_A4_SMALL 10 && A4 small paper (210 mm BY 297 mm)
|
||||
#DEFINE PAPERSIZE_A5 11 && A5 paper (148 mm BY 210 mm)
|
||||
#DEFINE PAPERSIZE_B4 12 && B4 paper (250 mm BY 353 mm)
|
||||
#DEFINE PAPERSIZE_B5 13 && B5 paper (176 mm BY 250 mm)
|
||||
#DEFINE PAPERSIZE_FOLIO 14 && Folio paper (8.5 in. BY 13 in.)
|
||||
#DEFINE PAPERSIZE_QUARTO 15 && Quarto paper (215 mm BY 275 mm)
|
||||
#DEFINE PAPERSIZE_STD10X14 16 && Standard paper (10 in. BY 14 in.)
|
||||
#DEFINE PAPERSIZE_STD11X17 17 && Standard paper (11 in. BY 17 in.)
|
||||
#DEFINE PAPERSIZE_NOTE 18 && NOTE paper (8.5 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_9ENV 19 && #9 envelope (3.875 in. BY 8.875 in.)
|
||||
#DEFINE PAPERSIZE_10ENV 20 && #10 envelope (4.125 in. BY 9.5 in.)
|
||||
#DEFINE PAPERSIZE_11ENV 21 && #11 envelope (4.5 in. BY 10.375 in.)
|
||||
#DEFINE PAPERSIZE_12ENV 22 && #12 envelope (4.75 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_14ENV 23 && #14 envelope (5 in. BY 11.5 in.)
|
||||
#DEFINE PAPERSIZE_C 24 && C paper (17 in. BY 22 in.)
|
||||
#DEFINE PAPERSIZE_D 25 && D paper (22 in. BY 34 in.)
|
||||
#DEFINE PAPERSIZE_E 26 && E paper (34 in. BY 44 in.)
|
||||
#DEFINE PAPERSIZE_DL_ENV 27 && DL envelope (110 mm BY 220 mm)
|
||||
#DEFINE PAPERSIZE_C5_ENV 28 && C5 envelope (162 mm BY 229 mm)
|
||||
#DEFINE PAPERSIZE_C3_ENV 29 && C3 envelope (324 mm BY 458 mm)
|
||||
#DEFINE PAPERSIZE_C4_ENV 30 && C4 envelope (229 mm BY 324 mm)
|
||||
#DEFINE PAPERSIZE_C6_ENV 31 && C6 envelope (114 mm BY 162 mm)
|
||||
#DEFINE PAPERSIZE_C65_ENV 32 && C65 envelope (114 mm BY 229 mm)
|
||||
#DEFINE PAPERSIZE_B4_ENV 33 && B4 envelope (250 mm BY 353 mm)
|
||||
#DEFINE PAPERSIZE_B5_ENV 34 && B5 envelope (176 mm BY 250 mm)
|
||||
#DEFINE PAPERSIZE_B6_ENV 35 && B6 envelope (176 mm BY 125 mm)
|
||||
#DEFINE PAPERSIZE_ITALY_ENV 36 && Italy envelope (110 mm BY 230 mm)
|
||||
#DEFINE PAPERSIZE_MONARCH_ENV 37 && Monarch envelope (3.875 in. BY 7.5 in.).
|
||||
#DEFINE PAPERSIZE_6_3_4_ENV 38 && 6 3/4 envelope (3.625 in. BY 6.5 in.)
|
||||
#DEFINE PAPERSIZE_US_STD_FANFOLD 39 && US standard fanfold (14.875 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_GERMAN_STD_FANFOLD 40 && German standard fanfold (8.5 in. BY 12 in.)
|
||||
#DEFINE PAPERSIZE_GERMAN_LGL_FANFOLD 41 && German legal fanfold (8.5 in. BY 13 in.)
|
||||
#DEFINE PAPERSIZE_ISO_B4 42 && ISO B4 (250 mm BY 353 mm)
|
||||
#DEFINE PAPERSIZE_JPN_DBL_POSTCARD 43 && JPN DOUBLE postcard (200 mm BY 148 mm)
|
||||
#DEFINE PAPERSIZE_STD_PAPER9X11 44 && Standard paper (9 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_STD_PAPER10X11 45 && Standard paper (10 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_STD_PAPER15X11 46 && Standard paper (15 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_INVITE_ENV 47 && Invite envelope (220 mm BY 220 mm)
|
||||
#DEFINE PAPERSIZE_LTR_XTRA_PAPER 50 && Letter extra paper (9.275 in. BY 12 in.)
|
||||
#DEFINE PAPERSIZE_LEGAL_XTRA_PAPER 51 && Legal extra paper (9.275 in. BY 15 in.)
|
||||
#DEFINE PAPERSIZE_TABLOID_XTRA_PAPER 52 && Tabloid extra paper (11.69 in. BY 18 in.)
|
||||
#DEFINE PAPERSIZE_A4_XTRA_PAPER 53 && A4 extra paper (236 mm BY 322 mm)
|
||||
#DEFINE PAPERSIZE_LTR_TRANSVERSE 54 && Letter transverse paper (8.275 in. BY 11 in.)
|
||||
#DEFINE PAPERSIZE_A4_TRANSVERSE 55 && A4 transverse paper (210 mm BY 297 mm)
|
||||
#DEFINE PAPERSIZE_LTR_XTRA_TRANSV 56 && Letter extra transverse paper (9.275 in. BY 12 in.)
|
||||
#DEFINE PAPERSIZE_SUPERA_A4 57 && SuperA/SuperA/A4 paper (227 mm BY 356 mm)
|
||||
#DEFINE PAPERSIZE_SUPERB_A3 58 && SuperB/SuperB/A3 paper (305 mm BY 487 mm)
|
||||
#DEFINE PAPERSIZE_LTR_PLUS 59 && Letter plus paper (8.5 in. BY 12.69 in.)
|
||||
#DEFINE PAPERSIZE_A4_PLUS 60 && A4 plus paper (210 mm BY 330 mm)
|
||||
#DEFINE PAPERSIZE_A5_TRANSVERSE 61 && A5 transverse paper (148 mm BY 210 mm)
|
||||
#DEFINE PAPERSIZE_JIS_B5_TRANSVERS 62 && JIS B5 transverse paper (182 mm BY 257 mm)
|
||||
#DEFINE PAPERSIZE_A3_EXTRA 63 && A3 extra paper (322 mm BY 445 mm)
|
||||
#DEFINE PAPERSIZE_A5_EXTRA 64 && A5 extra paper (174 mm BY 235 mm)
|
||||
#DEFINE PAPERSIZE_ISO_B5_EXTRA 65 && ISO B5 extra paper (201 mm BY 276 mm)
|
||||
#DEFINE PAPERSIZE_A2 66 && A2 paper (420 mm BY 594 mm)
|
||||
#DEFINE PAPERSIZE_A3_TRANSVERSE 67 && A3 transverse paper (297 mm BY 420 mm)
|
||||
#DEFINE PAPERSIZE_A3_EXTRA_TRANSVE 68 && A3 extra transverse paper (322 mm BY 445 mm)
|
||||
#DEFINE PAPERSIZE_JPN_DOUBLE 69 && JPN DOUBLE Postcard (200 mm x 148 mm)
|
||||
#DEFINE PAPERSIZE_A6 70 && A6 (105 mm x 148 mm)
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU1 71 && JPN Envelope Kaku #2
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU2 72 && JPN Envelope Kaku #3
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU3 73 && JPN Envelope Chou #3
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU4 74 && JPN Envelope Chou #4
|
||||
#DEFINE PAPERSIZE_LTR_ROT 75 && Letter Rotated (11in x 8 1/2 11 IN)
|
||||
#DEFINE PAPERSIZE_A3_ROT 76 && A3 Rotated (420 mm x 297 mm)
|
||||
#DEFINE PAPERSIZE_A4_ROT 77 && A4 Rotated (297 mm x 210 mm)
|
||||
#DEFINE PAPERSIZE_A5_ROT 78 && A5 Rotated (210 mm x 148 mm)
|
||||
#DEFINE PAPERSIZE_B4_JIS_ROT 79 && B4 (JIS) Rotated (364 mm x 257 mm)
|
||||
#DEFINE PAPERSIZE_B5_JIS_ROT 80 && B5 (JIS) Rotated (257 mm x 182 mm)
|
||||
#DEFINE PAPERSIZE_JPN_POSTCARD 81 && JPN Postcard Rotated (148 mm x 100 mm)
|
||||
#DEFINE PAPERSIZE_DOUBLE_JPN 82 && DOUBLE JPN Postcard Rotated (148 mm x 200 mm)
|
||||
#DEFINE PAPERSIZE_A6_ROT 83 && A6 Rotated (148 mm x 105 mm)
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU2_ROT 84 && JPN Envelope Kaku #2 Rotated
|
||||
#DEFINE PAPERSIZE_JPN_ENV_KAKU3_ROT 85 && JPN Envelope Kaku #3 Rotated
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU3_ROT 86 && JPN Envelope Chou #3 Rotated
|
||||
#DEFINE PAPERSIZE_JPN_ENV_CHOU4_ROT 87 && JPN Envelope Chou #4 Rotated
|
||||
#DEFINE PAPERSIZE_B6_JIS 88 && B6 (JIS) (128 mm x 182 mm)
|
||||
#DEFINE PAPERSIZE_B6_JIS_ROT 89 && B6 (JIS) Rotated (182 mm x 128 mm)
|
||||
#DEFINE PAPERSIZE_12X11 90 && (12 IN x 11 IN)
|
||||
#DEFINE PAPERSIZE_JPN_ENV_YOU4 91 && JPN Envelope You #4
|
||||
#DEFINE PAPERSIZE_JPN_ENV_YOU4_ROT 92 && JPN Envelope You #4 Rotated
|
||||
#DEFINE PAPERSIZE_PRC_16K 93 && PRC 16K (146 mm x 215 mm)
|
||||
#DEFINE PAPERSIZE_PRC_32K 94 && PRC 32K (97 mm x 151 mm)
|
||||
#DEFINE PAPERSIZE_PRC_32K_BIG 95 && PRC 32K(Big) (97 mm x 151 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_1 96 && PRC Envelope #1 (102 mm x 165 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_2 97 && PRC Envelope #2 (102 mm x 176 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_3 98 && PRC Envelope #3 (125 mm x 176 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_4 99 && PRC Envelope #4 (110 mm x 208 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_5 100 && PRC Envelope #5 (110 mm x 220 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_6 101 && PRC Envelope #6 (120 mm x 230 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_7 102 && PRC Envelope #7 (160 mm x 230 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_8 103 && PRC Envelope #8 (120 mm x 309 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_9 104 && PRC Envelope #9 (229 mm x 324 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_10 105 && PRC Envelope #10 (324 mm x 458 mm)
|
||||
#DEFINE PAPERSIZE_PRC_16K_ROT 106 && PRC 16K Rotated
|
||||
#DEFINE PAPERSIZE_PRC_32K_ROT 107 && PRC 32K Rotated
|
||||
#DEFINE PAPERSIZE_PRC_32K_BIG_ROT 108 && PRC 32K(Big) Rotated
|
||||
#DEFINE PAPERSIZE_PRC_ENV_1_ROT 109 && PRC Envelope #1 Rotated (165 mm x 102 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_2_ROT 110 && PRC Envelope #2 Rotated (176 mm x 102 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_3_ROT 111 && PRC Envelope #3 Rotated (176 mm x 125 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_4_ROT 112 && PRC Envelope #4 Rotated (208 mm x 110 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_5_ROT 113 && PRC Envelope #5 Rotated (220 mm x 110 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_6_ROT 114 && PRC Envelope #6 Rotated (230 mm x 120 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_7_ROT 115 && PRC Envelope #7 Rotated (230 mm x 160 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_8_ROT 116 && PRC Envelope #8 Rotated (309 mm x 120 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_9_ROT 117 && PRC Envelope #9 Rotated (324 mm x 229 mm)
|
||||
#DEFINE PAPERSIZE_PRC_ENV_10_ROT 118 && PRC Envelope #10 Rotated (458 mm x 324 mm)
|
||||
|
||||
#DEFINE HEADERFOOTER_SECT_HDR_LEFT 1
|
||||
#DEFINE HEADERFOOTER_SECT_HDR_CENTER 2
|
||||
#DEFINE HEADERFOOTER_SECT_HDR_RIGHT 3
|
||||
#DEFINE HEADERFOOTER_SECT_FTR_LEFT 4
|
||||
#DEFINE HEADERFOOTER_SECT_FTR_CENTER 5
|
||||
#DEFINE HEADERFOOTER_SECT_FTR_RIGHT 6
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_NORMAL 0
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_BOLD 1
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_ITALIC 2
|
||||
#DEFINE HEADERFOOTER_FONT_STYLE_BOLDITALIC 3
|
||||
#DEFINE HEADERFOOTER_FIRST_PAGE 0
|
||||
#DEFINE HEADERFOOTER_ODD_PAGE 1
|
||||
#DEFINE HEADERFOOTER_EVEN_PAGE 2
|
||||
#DEFINE HEADERFOOTER_SAME_PAGE 3
|
||||
|
||||
#DEFINE DATA_TYPE_NONE "X"
|
||||
#DEFINE DATA_TYPE_DATE "D"
|
||||
#DEFINE DATA_TYPE_DATETIME "T"
|
||||
#DEFINE DATA_TYPE_CHAR "C"
|
||||
#DEFINE DATA_TYPE_INT "I"
|
||||
#DEFINE DATA_TYPE_FLOAT "N"
|
||||
#DEFINE DATA_TYPE_CURRENCY "Y"
|
||||
#DEFINE DATA_TYPE_GENERAL "G"
|
||||
#DEFINE DATA_TYPE_FORMULA "F"
|
||||
#DEFINE DATA_TYPE_TIME "M"
|
||||
#DEFINE DATA_TYPE_PERCENT "P"
|
||||
#DEFINE DATA_TYPE_LOGICAL "L"
|
||||
|
||||
#DEFINE FIELD_TYPE_DATE "D"
|
||||
#DEFINE FIELD_TYPE_DATETIME "T"
|
||||
#DEFINE FIELD_TYPE_CHAR "C"
|
||||
#DEFINE FIELD_TYPE_INT "I"
|
||||
#DEFINE FIELD_TYPE_FLOAT "F"
|
||||
#DEFINE FIELD_TYPE_CURRENCY "Y"
|
||||
#DEFINE FIELD_TYPE_LOGICAL "L"
|
||||
#DEFINE FIELD_TYPE_DOUBLE "B"
|
||||
#DEFINE FIELD_TYPE_MEMO "M"
|
||||
#DEFINE FIELD_TYPE_NUMERIC "N"
|
||||
|
||||
#DEFINE BORDER_LEFT 1
|
||||
#DEFINE BORDER_RIGHT 2
|
||||
#DEFINE BORDER_TOP 4
|
||||
#DEFINE BORDER_BOTTOM 8
|
||||
#DEFINE BORDER_DIAGDOWN 16
|
||||
#DEFINE BORDER_DIAGUP 32
|
||||
|
||||
#DEFINE BORDER_STYLE_NONE "none"
|
||||
#DEFINE BORDER_STYLE_THIN "thin"
|
||||
#DEFINE BORDER_STYLE_HAIR "hair"
|
||||
#DEFINE BORDER_STYLE_DOTTED "dotted"
|
||||
#DEFINE BORDER_STYLE_DASHDOTDOT "dashDotDot"
|
||||
#DEFINE BORDER_STYLE_DASHDOT "dashDot"
|
||||
#DEFINE BORDER_STYLE_DASHED "dashed"
|
||||
#DEFINE BORDER_STYLE_MEDIUMDASHDOTDOT "mediumDashDotDot"
|
||||
#DEFINE BORDER_STYLE_SLANTDASHDOT "slantDashDot"
|
||||
#DEFINE BORDER_STYLE_MEDIUMDASHDOT "mediumDashDot"
|
||||
#DEFINE BORDER_STYLE_MEDIUMDASHED "mediumDashed"
|
||||
#DEFINE BORDER_STYLE_MEDIUM "medium"
|
||||
#DEFINE BORDER_STYLE_THICK "thick"
|
||||
#DEFINE BORDER_STYLE_DOUBLE "double"
|
||||
|
||||
#DEFINE FILL_STYLE_NONE "none"
|
||||
#DEFINE FILL_STYLE_SOLID "solid"
|
||||
#DEFINE FILL_STYLE_GRAY125 "gray125"
|
||||
|
||||
#DEFINE CELL_HORIZ_ALIGN_LEFT "left"
|
||||
#DEFINE CELL_HORIZ_ALIGN_RIGHT "right"
|
||||
#DEFINE CELL_HORIZ_ALIGN_CENTER "center"
|
||||
#DEFINE CELL_VERT_ALIGN_TOP "top"
|
||||
#DEFINE CELL_VERT_ALIGN_BOTTOM "bottom"
|
||||
#DEFINE CELL_VERT_ALIGN_CENTER "center"
|
||||
|
||||
#DEFINE UNDERLINE_SINGLE "single"
|
||||
#DEFINE UNDERLINE_DOUBLE "double"
|
||||
#DEFINE UNDERLINE_SINGLEACCOUNTING "singleAccounting"
|
||||
#DEFINE UNDERLINE_DOUBLEACCOUNTING "doubleAccounting"
|
||||
#DEFINE UNDERLINE_NONE "none"
|
||||
|
||||
#DEFINE FONT_VERTICAL_BASELINE "baseline"
|
||||
#DEFINE FONT_VERTICAL_SUBSCRIPT "subscript"
|
||||
#DEFINE FONT_VERTICAL_SUPERSCRIPT "superscript"
|
||||
|
||||
#DEFINE CELL_FORMAT_INTEGER 1 && 0
|
||||
#DEFINE CELL_FORMAT_FLOAT 2 && 0.00
|
||||
#DEFINE CELL_FORMAT_COMMA_INTEGER 3 && #,##0
|
||||
#DEFINE CELL_FORMAT_COMMA_FLOAT 4 && #,##0.00
|
||||
#DEFINE CELL_FORMAT_CURRENCY_PAREN 7 && $#,##0.00;($#,##0.00)
|
||||
#DEFINE CELL_FORMAT_CURRENCY_RED_PAREN 8 && $#,##0.00;[Red]($#,##0.00)
|
||||
#DEFINE CELL_FORMAT_PERCENT_INTEGER 9 && ###%
|
||||
#DEFINE CELL_FORMAT_PERCENT_FLOAT 10 && ###.00%
|
||||
#DEFINE CELL_FORMAT_EXPONENT 11 && 0.00E+00
|
||||
#DEFINE CELL_FORMAT_FRACTION_1 12 && # ?/?
|
||||
#DEFINE CELL_FORMAT_FRACTION_2 13 && # ??/??
|
||||
#DEFINE CELL_FORMAT_DATE_MMDDYY 14 && mm-dd-yy
|
||||
#DEFINE CELL_FORMAT_DATE_DMMMYY 15 && d-mmm-yy
|
||||
#DEFINE CELL_FORMAT_DATE_DMMM 16 && d-mmm
|
||||
#DEFINE CELL_FORMAT_DATE_MMMYY 17 && mmm-yy
|
||||
#DEFINE CELL_FORMAT_TIME_HMMAMPM 18 && h:mm AM/PM
|
||||
#DEFINE CELL_FORMAT_TIME_HMMSSAMPM 19 && h:mm:ss AM/PM
|
||||
#DEFINE CELL_FORMAT_TIME_HMM 20 && h:mm
|
||||
#DEFINE CELL_FORMAT_TIME_HMMSS 21 && h:mm:ss
|
||||
#DEFINE CELL_FORMAT_DATETIME_MDYYHMM 22 && m/d/yy h:mm
|
||||
#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TTAM 29 && [$-409]dd/mmm/yyyy\ h:mm\ AM/PM;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_DDMMMYYYY_TT24 30 && dd/mmm/yyyy\ h:mm;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TTAM 31 && [$-409]mmm\ d\,\ yyyy\ h:mm\ AM/PM;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MMMDDYYYY_TT24 32 && [$-409]mmm\ d\,\ yyyy\ h:mm;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MDYY_TTAM 33 && m/d/yy\ h:mm\ AM/PM;@
|
||||
#DEFINE CELL_FORMAT_DATETIME_MDYY_TT24 34 && m/d/yy\ h:mm;@
|
||||
#DEFINE CELL_FORMAT_COMMA_INTEGER_PAREN 37 && #,##0;(#,##0)
|
||||
#DEFINE CELL_FORMAT_COMMA_INTEGER_RED_PAREN 38 && #,##0;[Red](#,##0)
|
||||
#DEFINE CELL_FORMAT_COMMA_FLOAT_PAREN 39 && #,##0.00;(#,##0.00)
|
||||
#DEFINE CELL_FORMAT_COMMA_FLOAT_RED_PAREN 40 && #,##0.00;[Red](#,##0.00)
|
||||
#DEFINE CELL_FORMAT_TIME_MMSS 45 && mm:ss
|
||||
#DEFINE CELL_FORMAT_TIME_H_MMSS 46 && [h]:mm:ss
|
||||
#DEFINE CELL_FORMAT_CURRENCY_RED 901 && $#,##0.00;[Red]$#,##0.00
|
||||
#DEFINE CELL_FORMAT_ACC_CURR_POUNDS 902 && Accounting British Pounds, <20>#,##0.00
|
||||
#DEFINE CELL_FORMAT_ACC_CURR_EURO 903 && Accounting Euro, <20>#,##0.00
|
||||
#DEFINE CELL_FORMAT_CURR_POUNDS_RED 904 && British Pounds, <20>#,##0.00 RED
|
||||
#DEFINE CELL_FORMAT_CURR_EURO_RED 905 && Euro, <20>#,##0.00 RED
|
||||
3
Alte/SmartBill2ROA/changelog_smartbill2roa.txt
Normal file
3
Alte/SmartBill2ROA/changelog_smartbill2roa.txt
Normal file
@@ -0,0 +1,3 @@
|
||||
15.05.2025
|
||||
v 1.0.10
|
||||
Se completeaza contul '708' pentru articolele care contin: 'curier', 'courier', 'transport'
|
||||
1
Alte/SmartBill2ROA/citeste.txt
Normal file
1
Alte/SmartBill2ROA/citeste.txt
Normal file
@@ -0,0 +1 @@
|
||||
Creeaza fisierul facturi_roa.xlsx din export SmartBill facturi in format saga si facturi excel, pentru import in ROACONT
|
||||
306
Alte/SmartBill2ROA/import_facturi.prg
Normal file
306
Alte/SmartBill2ROA/import_facturi.prg
Normal file
@@ -0,0 +1,306 @@
|
||||
*!* 11.12.2018
|
||||
*!* am folosit o schema XSD la importul din xml facturi saga
|
||||
|
||||
Set Century On
|
||||
Set Ansi On
|
||||
Set Exact On
|
||||
Set Deleted On
|
||||
Set Date Dmy
|
||||
Set Safety Off
|
||||
Set Exclusive Off
|
||||
Close Databases All
|
||||
Set Default To Justpath(Sys(16,0))
|
||||
SET PATH TO 'd:\roa\roacont\comun\programe;' + ;
|
||||
'd:\roa\roacont\comun\utile\excel;' ADDITIVE
|
||||
|
||||
SET PROCEDURE TO regex.prg ADDITIVE
|
||||
Set Procedure To importfromxlsx.prg Additive
|
||||
Set Classlib To vfpxworkbookxlsx.vcx Additive
|
||||
|
||||
_Screen.Caption = "SmartBill2ROA"
|
||||
|
||||
Messagebox('Pentru import din SmartBill sunt necesare fisierele: ' + Chr(13) + Chr(10) + ;
|
||||
'1. facturi export saga (format xml) ex: F_CUI_multiple_zz.ll.aaaa.xml' + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ;
|
||||
'2. facturi export format xlsx ex: Facturi_zz_ll_aaaa.xlsx' + Chr(13) + Chr(10) + ;
|
||||
'* Primul rand din fisierul xlsx trebuie sa fie completat cu denumirile coloanelor',0+64,_Screen.Caption)
|
||||
|
||||
|
||||
*****************************************************************
|
||||
* xml saga - nu are judet/localitate pentru clienti
|
||||
lcFileFacturi = Getfile("xml","Facturi SAGA","Alege", 0, "Alege fisierul xml cu exportul de facturi in format SAGA") && "E:\pass\F_RO16148853_multiple_01.08.2018.xml"
|
||||
If Empty(m.lcFileFacturi)
|
||||
Return
|
||||
Endif
|
||||
If Lower(Justext(m.lcFileFacturi)) <> 'xml'
|
||||
Messagebox('Fisierul trebuie sa fie de tip xml!',0+48,_Screen.Caption)
|
||||
Return
|
||||
Endif
|
||||
|
||||
lcFileFacturiXlsx = Getfile("xlsx","Facturi excel","Alege", 0, "Alege fisierul xlsx cu exportul de facturi in format excel") && 'e:\pass\Facturi_12_09_2018.xlsx'
|
||||
If Empty(m.lcFileFacturiXlsx)
|
||||
Return
|
||||
Endif
|
||||
If Lower(Justext(m.lcFileFacturiXlsx)) <> 'xlsx'
|
||||
Messagebox('Fisierul trebuie sa fie de tip xlsx!',0+48,_Screen.Caption)
|
||||
Return
|
||||
Endif
|
||||
*****************************************************************
|
||||
|
||||
*!* lcFileClienti = 'e:\pass\cli_11_09_2018.xml'
|
||||
lcText = Filetostr(m.lcFileFacturi)
|
||||
|
||||
* ANTETE
|
||||
lcAntete = ""
|
||||
lnAntete = Occurs("<antet>", Lower(m.lcText))
|
||||
For m.lnAntet = 1 To m.lnAntete
|
||||
lcAntet = Strextract(m.lcText, "<antet>", "</antet>", lnAntet,1+4)
|
||||
lcAntete = m.lcAntete + lcAntet + Chr(13) + Chr(10)
|
||||
Endfor
|
||||
|
||||
lcAntete = "<vfpdata>" + m.lcAntete + "</vfpdata>"
|
||||
|
||||
Xmltocursor(m.lcAntete,"cAntetTemp")
|
||||
Select Cast(0 As I) As nAntet, * From cAntetTemp Into Cursor cAntet Readwrite
|
||||
Use In (Select('cAntetTemp'))
|
||||
Replace All nAntet With Recno() In cAntet
|
||||
|
||||
|
||||
***********
|
||||
* Detalii
|
||||
create cursor cDetalii ;
|
||||
(NANTET I, ;
|
||||
CANTITATE N(10,3), ;
|
||||
CODARTICOLCLIENT C(20), ;
|
||||
CODARTICOLFURNIZOR C(20), ;
|
||||
CODBARE C(20), ;
|
||||
DESCRIERE C(100), ;
|
||||
GESTIUNE C(20), ;
|
||||
INFORMATIISUPLIMENTARE C(100), ;
|
||||
LINIENRCRT I, ;
|
||||
PRET N(20,4), ;
|
||||
PROCTVA N(5,2), ;
|
||||
UM C(10), ;
|
||||
VALOARE N(20,4), ;
|
||||
TVA N(20,4))
|
||||
|
||||
TEXT TO lcXSD NOSHOW
|
||||
<xsd:schema id="VFPData" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="VFPData" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="cdetalii" minOccurs="0" maxOccurs="unbounded">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="cantitate">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="9"/>
|
||||
<xsd:fractionDigits value="3"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="codarticolclient">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="codarticolfurnizor">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="codbare">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="descriere">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="100"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="gestiune">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="20"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="informatiisuplimentare">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="100"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="linienrcrt" type="xsd:int"/>
|
||||
<xsd:element name="pret">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="19"/>
|
||||
<xsd:fractionDigits value="4"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="proctva">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="4"/>
|
||||
<xsd:fractionDigits value="2"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="um">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:maxLength value="10"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="valoare">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="19"/>
|
||||
<xsd:fractionDigits value="4"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="tva">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:decimal">
|
||||
<xsd:totalDigits value="19"/>
|
||||
<xsd:fractionDigits value="4"/>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
<xsd:anyAttribute namespace="http://www.w3.org/XML/1998/namespace" processContents="lax"/>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
ENDTEXT
|
||||
|
||||
lcDetalii = ""
|
||||
lnDetalii = Occurs("<continut>", Lower(m.lcText))
|
||||
For m.lnDetaliu = 1 To m.lnDetalii
|
||||
lcDetaliu = Strextract(m.lcText, "<continut>", "</continut>", lnDetaliu,1+4)
|
||||
lcDetaliu = STRTRAN(m.lcDetaliu, "<continut>", "<continut>" + CHR(13) + CHR(10) + m.lcXSD + CHR(13) + CHR(10),1,1,1) && adaug schema XSD
|
||||
lcDetaliu = STRTRAN(m.lcDetaliu, "</continut>", "</continut>",1,1,1) && modific tag-ul de sfarsit tot cu litere mici
|
||||
Xmltocursor(m.lcDetaliu,"cDetaliu")
|
||||
Select m.lnDetaliu As nAntet, * From cDetaliu Into Cursor cDetaliiTemp Readwrite
|
||||
Select cDetalii
|
||||
Append From Dbf('cDetaliiTemp')
|
||||
|
||||
Use In (Select("cDetaliu"))
|
||||
Use In (Select("cDetaliiTemp"))
|
||||
|
||||
Endfor
|
||||
|
||||
Select Padr(Upper(Alltrim(a.clientadresa)), 250, ' ') As adresa, a.clientbanca As banca, Padr(Strtran(Upper(a.clientcif), '-', ''), 20, ' ') As cod_fiscal, a.clientiban As cont_banca, a.clientnrregcom As reg_com, Upper(a.clientnume) As denumire, Ctod(a.facturadata) As dataact, a.facturanumar As nrfact, Ctod(a.facturascadenta) As datascad, ;
|
||||
ROUND(b.cantitate,3) As cantitate, Upper(b.descriere) As articol, b.proctva as proctva, ;
|
||||
ROUND(b.valoare,2) As valftva, ;
|
||||
ROUND(b.tva,2) As valtva, ;
|
||||
CAST(0 as N(20,2)) as valctva, ;
|
||||
UPPER(a.facturatvaincasare) As tvaincasare, Upper(a.facturataxareinversa) As taxareinversa ;
|
||||
From cAntet a Left Join cDetalii b On a.nAntet = b.nAntet ;
|
||||
Into Cursor cFacturiSaga READWRITE
|
||||
|
||||
UPDATE cFacturiSaga SET valctva = valftva + valtva
|
||||
|
||||
Use In (Select('cAntet'))
|
||||
Use In (Select('cDetalii'))
|
||||
|
||||
*********
|
||||
* Clienti
|
||||
* cod, denumire, cod_fiscal, reg_com, tara, judet, adresa, cont_banca, banca, tel, email, discount, informatii
|
||||
* "cod","Elena Tomescu","-","reg_com","RO","B","Loc. Bucuresti,Calea Serban Voda nr 133 Corp A , etaj 1, receptie Provident, Cod Postal 40204", "cont_banca", "banca", "tel", "email", "discount", "informatii"
|
||||
* Xmltocursor(m.lcFileClienti,'cClienti',512)
|
||||
|
||||
* Import first sheet
|
||||
|
||||
importfromxlsx(m.lcFileFacturiXlsx,2,'sheet 1',.T.,.T.,1,'facturitemp')
|
||||
|
||||
*!* * sunt fisiere doar cu (valoaretotala), altele cu (valoarefaratva, valoaretva, valoaretotala)
|
||||
*!* IF TYPE('facturitemp.valoarefaratva') <> 'U'
|
||||
*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ;
|
||||
*!* Round(VAL(TRANSFORM(valoarefaratva)), 2) As valftva, ;
|
||||
*!* Round(VAL(TRANSFORM(valoaretva)), 2) As valtva, ;
|
||||
*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ;
|
||||
*!* From facturitemp ;
|
||||
*!* Into Cursor cFacturiXls
|
||||
*!* ELSE
|
||||
*!* Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, Padr(Alltrim(factura), 20, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad, ;
|
||||
*!* 0 As valftva, ;
|
||||
*!* 0 As valtva, ;
|
||||
*!* Round(VAL(TRANSFORM(valoaretotala)), 2) As valctva ;
|
||||
*!* From facturitemp ;
|
||||
*!* Into Cursor cFacturiXls
|
||||
*!* ENDIF
|
||||
|
||||
* Nu am nevoie de valori din fisierul facturitemp
|
||||
Select Padr(Upper(client), 100, ' ') As denumire, Padr(Strtran(Upper(cif), '-', ''), 20, ' ') As cod_fiscal, Padr(Upper(Alltrim(adresa)), 250, ' ') As adresa, ;
|
||||
Padr(Alltrim(factura), 50, ' ') As nrfact, Ctod(Alltrim(dataemiterii)) As datafact, Ctod(Alltrim(datascadentei)) As datascad ;
|
||||
From facturitemp ;
|
||||
Into Cursor cFacturiXls
|
||||
|
||||
Use In (Select('facturitemp'))
|
||||
|
||||
|
||||
*!* lcFile = 'e:\pass\Vanzari_Produse_12_09_2018.xlsx'
|
||||
*!* importfromxlsx(m.lcFile,2,'sheet 1',.T.,.T.,1,'vanzari')
|
||||
|
||||
*!* SELECT UPPER(produs) as articol, PADR(UPPER(client), 100, ' ') as denumire, PADR(STRTRAN(UPPER(cifclient), '-', ''), 20, ' ') as cod_fiscal, PADR(UPPER(ALLTRIM(judetclient)), 100, ' ') as judet, PADR(ALLTRIM(document), 20, ' ') as nrfact, CTOD(ALLTRIM(data)) as datafact, ROUND(valoarefaratva, 2) as valftva, ROUND(valoarecutva,2)-ROUND(valoarefaratva, 2) as valtva, ROUND(valoarecutva, 2) as valctva FROM vanzari INTO CURSOR cVanzarix
|
||||
|
||||
Select a.articol, a.denumire, a.cod_fiscal, a.reg_com, a.nrfact, b.adresa, SPACE(20) as serie_act, CAST(0 as N(14)) As nract, a.dataact, a.datascad, a.proctva, a.valftva, a.valtva, a.valctva, '707' As cont7xx, '' As acont7xx, '' As acont4111, Iif(a.tvaincasare = 'DA', '4428', '4427') As cont442x, Iif(a.tvaincasare = 'DA', '2', ' ') As acont442x, ;
|
||||
'NU' As incasat, '' As casa, '' As cont5xx, '' As acont5xx, ;
|
||||
a.tvaincasare, a.taxareinversa ;
|
||||
FROM cFacturiSaga a Left Join cFacturiXls b On a.nrfact = b.nrfact ;
|
||||
ORDER By a.dataact, a.nrfact ;
|
||||
INTO Cursor cFacturi Readwrite
|
||||
|
||||
* nract = ultime
|
||||
SELECT cFacturi
|
||||
SCAN
|
||||
lcNrAct = Alltrim(Right(Alltrim(GetRegExp(ALLTRIM(nrfact), "[0-9]+$",1)),14))
|
||||
lnNrAct = Int(Val(m.lcNrAct))
|
||||
lcSerieAct = ALLTRIM(STRTRAN(nrfact, m.lcNrAct, '',1,1,1))
|
||||
REPLACE serie_act WITH m.lcSerieAct, nract WITH m.lnNrAct
|
||||
ENDSCAN
|
||||
|
||||
|
||||
USE IN (SELECT('cFacturiSaga'))
|
||||
USE IN (SELECT('cFacturiXls'))
|
||||
|
||||
Update cFacturi Set datascad = dataact Where Empty(datascad)
|
||||
Update cFacturi Set cont7xx = '704' Where 'GRAVURA'$articol
|
||||
Update cFacturi Set cont7xx = '708' Where 'CURIER'$articol OR 'COURIER'$articol OR 'TRANSPORT'$articol
|
||||
Update cFacturi Set cont7xx = '667' Where 'DISCOUNT'$articol
|
||||
Update cFacturi Set cont7xx = '419' Where 'GIFT CARD'$articol
|
||||
*lcTable = ADDBS(JUSTPATH(m.lcFile)) + 'facturi.dbf'
|
||||
Select denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa,;
|
||||
SUM(valftva) As valftva, Sum(valtva) As valtva ;
|
||||
GROUP By denumire, cod_fiscal, reg_com, adresa, serie_act, nract, dataact, datascad, proctva, cont7xx, acont7xx, acont4111, cont442x, acont442x, incasat, casa, cont5xx, acont5xx, tvaincasare, taxareinversa ;
|
||||
ORDER By dataact, nract ;
|
||||
FROM cFacturi Into Cursor Facturi && (m.lcTable)
|
||||
|
||||
USE IN (SELECT('cFacturi'))
|
||||
|
||||
* EXPORT XLSX
|
||||
lcExcel = Addbs(Justpath(m.lcFileFacturiXlsx)) + 'facturi_roa.xlsx'
|
||||
|
||||
loExcel = Newobject("VFPxWorkbookXLSX", "VFPxWorkbookXLSX.vcx")
|
||||
loExcel.SaveTabletoWorkbook('facturi', lcExcel, .T., .T., 'Sheet1')
|
||||
Messagebox('S-a salvat fisierul ' + m.lcExcel + CHR(13) + CHR(10) + 'Lansati ROACONT > Import > Note facturi clienti',0+64, _Screen.Caption)
|
||||
|
||||
USE IN (SELECT('Facturi'))
|
||||
10017
Alte/SmartBill2ROA/vfpxworkbookxlsx.vc2
Normal file
10017
Alte/SmartBill2ROA/vfpxworkbookxlsx.vc2
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user