VFP 愛用者社區

foxy · 發表於: 星期五一月 19, 2024 3:10 pm 文章主題:

给时间缓冲期，比较方便

CPS0204 · 註冊時間: 2014-08-24 文章: 484 第 17 樓

B TO B 經過多次的測試,電子發票已經成功
方法是採用國稅局建議的第一種:
1.公司先跟國稅買發票號碼
2.自己的foxpro9或excel 印出電子發票pdf檔傳給客戶
第一頁需要A5,第2頁之後的明細,需要A4紙張,頁次須吻合
明細最多999筆
3.FOXPRO9 生成 CSV 檔,須加上BOM讓CSV 更完整,然後逐張上傳給國稅7天內
CSV如下
3-1. 第一行先寫入 = 賣方公司資訊
3-2.第二行寫入 M=發票資料
3-3. 第三行到999行寫入產品明細 D
例如:
H,13456222,您的賣方股份有限公司,賣方的公司地址22號
M,AB1234163,2025/11/20,07,90448797,買方股份有限公司,,1,5,27898,1395,29293,,,,,,,,,,USD
D,A.0BC2.0001,1,57.4400,57,56581128
D,B.0BCY.0001,1,107.2800,107,56581128
D,C.09CF.0001,4,96.5300,386,56581128
..
...
...最多999筆

記得上面的CSV須轉為UTF8

FUNC PUT_CSV_APPEND
LPARAMETERS LCLINE1,FILENAME,IF_EOF
LOCAL LCUTF8
*lcLine = '"王小明","500字也可以...（略）"' + CHR(13)+CHR(10)
IF IF_EOF &&最後一筆不要換行
LCLINE = LCLINE1
ELSE
LCLINE = LCLINE1 + CHR(13)+CHR(10)
ENDIF
LCUTF8 = STRCONV(LCLINE, 9)

* 1=append 追加
=STRTOFILE(LCUTF8,FILENAME, 1)
RETURN .T.
****************************************
FUNC PUT_HEAD_CSV &&先寫入第一行H
LPARAMETERS FILENAME

* lcCsv 你已經組好的 CSV 內容（500 字元以上沒問題）
LOCAL lcCsv, lcUtf8, lcBom, lnBytes

*lcCsv = "col1,col2" + CHR(13)+CHR(10) + ;
'"中文測試","123"' + CHR(13)+CHR(10)
lcCsv='H,'+LEFT(ZZ_COMPANY_TON, Cool

+','+ALLTRIM(ZZ_COMPANY_NAME)+','+ALLTRIM(ZZ_COMPANY_ADDR)+ CHR(13)+CHR(10)
* 轉 UTF-8
lcUtf8 = STRCONV(lcCsv, 9)
&& VFP ANSI/DBCS -> UTF-8 :contentReference[oaicite:1]{index=1}

* (建議) 加上 UTF-8 BOM：EF BB BF
lcBom = CHR(239) + CHR(187) + CHR(191)
lcUtf8 = lcBom + lcUtf8

* 寫檔（0=覆蓋）
*lnBytes = STRTOFILE(lcUtf8, "AA.CSV", 0)
lnBytes = STRTOFILE(lcUtf8,FILENAME, 0)
*? lnBytes
RETURN .T.
******************************************
附檔有:電子發票上傳格式檔,請看第2 SHEETS,還有電子發票證明聯pdf