0
@fastpho, Hola, buenas tardes!, me podrás ayudar haciendo una prueba para ver si tenes el mismo error? (así descarto error humano). De los 4 campos que quiero recuperar solo me trae 2.
COBOL Código:
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 FILA PIC 9(8). 01 WFEC-AMD PIC X(10). 01 TIMPTOT PIC X(9). 01 WS. 02 WS-NRO PIC X(7). 02 WS-NRO-ORD REDEFINES WS-NRO PIC 9(7). 02 WS-ID PIC X(3). 02 WS-IDMPAGO REDEFINES WS-ID PIC 9(3). 01 WGET-VTA-FEC PIC X(20) IS GLOBAL VALUE "C:\APi\APIRFech1.TXT". PROCEDURE DIVISION. INICIO. INVOKE ChilkatJsonObject1 "LoadFile" USING WGET-VTA-FEC RETURNING ReturnValue. IF ReturnValue NOT = 1 THEN INVOKE pow-self "DisplayMessage" USING "error" EXIT PROGRAM END-IF. * INVOKE ChilkatJsonObject1 "SizeOfArray" USING "Objeto" RETURNING IndiceArray. MOVE ZEROS TO FILA FI-LA. PERFORM VARYING FILA FROM FILA BY 1 UNTIL FILA = IndiceArray OR FILA > 10 * MOVE SPACES TO ObJsolicitar STRING "Objeto[" delimited by size FILA delimited by size "]" delimited by size "." delimited by size "concretado" delimited by size into ObJsolicitar END-STRING INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING WFEC-AMD * MOVE SPACES TO ObJsolicitar STRING "Objeto[" delimited by size FILA delimited by size "]" delimited by size "." delimited by size "idModoDePago" delimited by size into ObJsolicitar END-STRING INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING WS-ID * INITIALIZE TIMPTOT WS-NRO WS-ID WFEC-AMD MOVE SPACES TO ObJsolicitar STRING "Objeto[" delimited by size FILA delimited by size "]" delimited by size "." delimited by size "idVenta" delimited by size into ObJsolicitar END-STRING INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING WS-NRO MOVE SPACES TO ObJsolicitar STRING "Objeto[" delimited by size FILA delimited by size "]" delimited by size "." delimited by size "total" delimited by size into ObJsolicitar END-STRING INVOKE ChilkatJsonObject1 "StringOf" USING ObJsolicitar RETURNING TIMPTOT * DISPLAY WFEC-AMD " , " WS-ID " , " TIMPTOT " , " WS-NRO " , fila " fila END-PERFORM. EXIT PROGRAM.
Si podes probar te lo voy a agradecer.
Cualquier ayuda es bienvenida!!
Saludos
Ana
Marcadores