Access - Descarga de reporte de SAP

 
Vista:
sin imagen de perfil
Val: 10
Ha aumentado su posición en 9 puestos en Access (en relación al último mes)
Gráfica de Access

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:

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.AppendRow
 
       tblFields(1, "FIELDNAME") = "MATNR"    ''  Material
 
              tblFields.AppendRow
 
       tblFields(2, "FIELDNAME") = "WERKS"    '' PLANT
 
              tblFields.AppendRow
 
       tblFields(3, "FIELDNAME") = "LGORT"    '' SLOC
 
              tblFields.AppendRow
'
       tblFields(4, "FIELDNAME") = "ERFME"    '' UNIT OF MEASURE
 
              tblFields.AppendRow
 
       tblFields(5, "FIELDNAME") = "LABST"    '' VALUE UNRESTRICTED
 
              tblFields.AppendRow
 
       tblFields(6, "FIELDNAME") = "UMLME"    '' STOCK IN TRANSFER
 
              tblFields.AppendRow
 
       tblFields(7, "FIELDNAME") = "INSME"    '' STOCK IN QUALITY INSPECTION
 
              tblFields.AppendRow
 
       tblFields(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 = Nothing
 
    objBAPIControl.Connection.Logoff
    conn.Close
    MsgBox ("OK")

Agradezco si alguien me pudiera ayudar

Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 10
Ha aumentado su posición en 8 puestos en Access (en relación al último mes)
Gráfica de Access

Descarga de reporte de SAP

Publicado por PEFIEM (33 intervenciones) el 28/02/2019 00:13:41
lo primero es que mensaje de error te marca, si es de conexion, de visual o mensaje de sap. ahora bien conque se esta conectando a BAPI o RFC , Eso es lo primero.que debe enviar. entiendo por un lado que oculta la parte completa dell codigo, pero con esa pregunta dificil que alguien pueda asesorar

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar