本業終了後、夜な夜な得意先に導入されるEDIシステムへの対応プログラムを開発。
疲れたよ！
得意先から渡された仕様書を読むと
業界標準の流通BMIシステム
業界標準ってどういう意味かと思ったら、何のことは無い
全業種に対応するために無駄にたくさんの項目が用意されたテーブルを持つシステムでした！
水域・産地名・等級・養殖区分・解凍・部位・カラー名称・・・・
9割以上、加工食品卸業に関係ない項目。
すごくプログラムし難いんですけど、これ！
取り合えずEDIアップロード用「実出荷データ」を用意しcsvエクスポートテスト・・・
すると、見たことのないエラー
フィールドF134の開始位置32916が有効ではありません。
開始位置は32767以内で指定してください。
何これ？
原因究明の為、項目文字数・項目数を変えながら何度もテストしたら・・・・・・
エラー原因、わかりました！
項目数が多すぎてMS-Access君がエクスポート用定義を作れないみたい！
なんだ、そんな原因ならTextStreamを使えばいいじゃん！
select caseで項目ごとの固定値も簡単に指定できる。
流通BMI開発は、TextStreamで楽勝ね！
逆に言えば、項目がバカみたいに多い流通BMI、
TextStreamを知らないと開発出来ません。
[vb]
Private Sub btnEDIexp_Click()
Dim i As Integer
Dim FnameS As String
i = 0
FnameS = "C:\katabe\EDIupload.csv"
Dim FSO As New FileSystemObject
Dim f As File
Dim st As TextStream
Set st = FSO.CreateTextFile("C:\katabe\EDIupload.csv")
Dim cn As ADODB.Connection
Set cn = Application.CurrentProject.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from QEDIエクスポートソース", cn, adOpenKeyset, adLockOptimistic
Dim myTEXT As String
myTEXT = ""
‘検証用ヘッダー部
For i = 1 To 188
If i = 188 Then
myTEXT = myTEXT & "F" & i
Else
myTEXT = myTEXT & "F" & i & ","
End If
Next i
st.WriteLine (myTEXT)
Do While rs.EOF = False
myTEXT = ""
For i = 0 To 187
Select Case i
Case 0
myTEXT = rs.Fields(i)
Case 4, 8, 9, 13, 26, 39, 45, 98, 100, 111, 123, 132, 139, 142, 145, 153, 161
myTEXT = myTEXT & "," & rs.Fields(i)
Case 5
myTEXT = myTEXT & ",00" ‘固定00
Case 19
myTEXT = myTEXT & ",03" ‘固定03
Case 33
myTEXT = myTEXT & ",02" ‘固定02
Case 66
myTEXT = myTEXT & ",999" ‘固定999
Case 84
myTEXT = myTEXT & ",00" ‘固定00
Case 89
myTEXT = myTEXT & ",01" ‘固定01
Case 133
myTEXT = myTEXT & "," & Date()
Case 155
myTEXT = myTEXT & ",1" ‘固定1
Case Else
myTEXT = myTEXT & ","
End Select
Next i
st.WriteLine (myTEXT)
rs.MoveNext
Loop
rs.Close
cn.Close
st.Close
Call Shell("notepad.exe C:\katabe\EDIupdate.csv", 1)
End Sub
[/vb]
これまでの物件は全てヘッダー・フッターが必要だった為、最初からTextStreamで開発してました。
その為、今回のエラーに遭遇しなかったのかな？
![[vba]マジですか2021年4月までにプライスカード作り直し！](https://katabe.jp/wp-content/uploads/2021/02/20210211pricecard0web.jpg)
![[vba]マジですか2021年4月までにプライスカード作り直し！](https://katabe.jp/wp-content/uploads/2021/02/20210211pricecard5vba.png)
![[vba]マジですか2021年4月までにプライスカード作り直し！](https://katabe.jp/wp-content/uploads/2021/02/20210211pricecard4report.png)
![[vba]マジですか2021年4月までにプライスカード作り直し！](https://katabe.jp/wp-content/uploads/2021/02/20210211pricecard9card.png)
![[vba]マジですか2021年4月までにプライスカード作り直し！](https://katabe.jp/wp-content/uploads/2021/02/20210211pricecard1ht.jpg)
