Descarga de reporte de SAP
Publicado por Luis (4 intervenciones) el 22/02/2019 22:00:49
Buenas!
He estado tratando de descargar reportes de SAP en mi archivo de ACCESS, ya hay dos que me funcionaron sin problema pero el que ahora estoy tratando me marca un error en el QUERY.
El código es el siguiente:
Agradezco si alguien me pudiera ayudar
Saludos!
He estado tratando de descargar reportes de SAP en mi archivo de ACCESS, ya hay dos que me funcionaron sin problema pero el que ahora estoy tratando me marca un error en el QUERY.
El código es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
tblFields.AppendRowtblFields(1, "FIELDNAME") = "MATNR" '' Material
tblFields.AppendRowtblFields(2, "FIELDNAME") = "WERKS" '' PLANT
tblFields.AppendRowtblFields(3, "FIELDNAME") = "LGORT" '' SLOC
tblFields.AppendRow'
tblFields(4, "FIELDNAME") = "ERFME" '' UNIT OF MEASURE
tblFields.AppendRowtblFields(5, "FIELDNAME") = "LABST" '' VALUE UNRESTRICTED
tblFields.AppendRowtblFields(6, "FIELDNAME") = "UMLME" '' STOCK IN TRANSFER
tblFields.AppendRowtblFields(7, "FIELDNAME") = "INSME" '' STOCK IN QUALITY INSPECTION
tblFields.AppendRowtblFields(8, "FIELDNAME") = "SPEME" '' BLOCKED STOCK
If objSalesOrd.Call = True Then
If tblData.RowCount > 0 Then
For intRow = 1 To tblData.RowCount
OUTPUTTXT = tblData(intRow, "WA")
MATERIAL = Mid$(OUTPUTTXT, 1, 18)
PLANT = Mid$(OUTPUTTXT, 20, 4)
SLOC = Mid$(OUTPUTTXT, 25, 4)
UNIT = Mid$(OUTPUTTXT, 30, 3)
VUNRESTRICTED = Mid$(OUTPUTTXT, 34, 18)
STOCKTRANSFER = Mid$(OUTPUTTXT, 53, 18)
QUALITY = Mid$(OUTPUTTXT, 72, 18)
BLOCKED = Mid$(OUTPUTTXT, 91, 18)
'
CurrentDb.Execute "insert into mb52_test values ('" + MATERIAL + "','" + PLANT + "','" + SLOC + "','" + UNIT + "','" + VUNRESTRICTED + "','" + STOCKTRANSFER + "','" + QUALITY + "','" + BLOCKED + "')"
Next
Else
MsgBox "No records returned"End If
Else
MsgBox "Query Error" <---- Error que muestra por el IF
End If
Set filOutput = NothingobjBAPIControl.Connection.Logoff
conn.CloseMsgBox ("OK")
Agradezco si alguien me pudiera ayudar
Saludos!
Valora esta pregunta
0