Android Question Help Parsing XML (i have all day trying, but no luck)

victormedranop

Well-Known Member
Licensed User
Longtime User
I haven't found a propely way to parse this xml. please some one. HELP

thanks.

victor

here is my xml file

B4X:
<?xml version="1.0" encoding="utf-8"?>
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
  <s:Body>
    <ConsultaJugadasFechaXmlResponse xmlns="http://tempuri.org/">
      <ConsultaJugadasFechaXmlResult>
 <![CDATA[<Reporte><Respuesta><CodResp>0</CodResp><DescResp>Operacion Satisfactoria</DescResp></Respuesta><DocumentElement><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>66ABFA55-5100-4831-7C90EE5D07</CodigoReferencia><noTicket>1538812895780</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:49:49.233+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>74487160-0073-4376-BA7E387DEA</CodigoReferencia><noTicket>1538812830220</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:49:03.077+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1B14DA67-9572-4F40-56351D2D87</CodigoReferencia><noTicket>1538812875109</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:48:15.263+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>9CE71106-D47D-4137-30914B06ED</CodigoReferencia><noTicket>1538812861410</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:45:44.997+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>678B3053-9AE4-4CCA-BF4DF9E22A</CodigoReferencia><noTicket>1538812855504</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:19:44.853+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>F9D72CA6-EC0E-40BC-009E858481</CodigoReferencia><noTicket>1538812821279</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:19:16.027+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>88F7DD93-0B85-4C65-A4D9F88A9A</CodigoReferencia><noTicket>1538812817367</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:18:18.557+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>6B1E44DA-E4E6-4243-A6F34A203B</CodigoReferencia><noTicket>1538812811654</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:17:37.4+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>0B4ABBFA-D023-4D1F-7D1C3458E1</CodigoReferencia><noTicket>1538812835227</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:16:43.837+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>97A9E81F-2CF1-46EE-1527430A89</CodigoReferencia><noTicket>1538812897707</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:14:16.507+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>065C97D7-397A-4B40-29B3A6A44D</CodigoReferencia><noTicket>1538812869179</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:13:31.177+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1090785D-FDC6-47C9-B517EEFA44</CodigoReferencia><noTicket>1538812840743</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:10:49.397+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>CB8438D2-79FA-4A2E-1F6A45C4A3</CodigoReferencia><noTicket>1538812858814</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:03:45.627+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1287C4F5-8E9A-40F1-26101461EB</CodigoReferencia><noTicket>1538812821267</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:00:56.763+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>502B6A1F-1E3B-4E8E-25FCE05B35</CodigoReferencia><noTicket>1538812823124</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T13:55:53.073+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>EC5FCCA6-A44C-4D5E-BE3C0DF863</CodigoReferencia><noTicket>1538812877652</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T13:54:29.417+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>65D9E758-A12C-45FF-8F58FE89CA</CodigoReferencia><noTicket>1538812812369</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T13:54:02.853+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>97D49890-1460-46C1-72078EA926</CodigoReferencia><noTicket>1538812835056</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Anulada</Estatus><MontoJugada>20</MontoJugada><FechaAutorizacion>2018-10-06T13:46:27.71+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>3EE7049B-4CE0-4788-6C335B2256</CodigoReferencia><noTicket>1538812890121</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>20</MontoJugada><FechaAutorizacion>2018-10-06T13:44:46.457+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>B498358C-8027-44CD-D88A10FF48</CodigoReferencia><noTicket>1538812871289</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:29:59.917+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>29A9E5B8-1283-469B-AC55959B96</CodigoReferencia><noTicket>1538812882828</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:27:44.93+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>BA520594-3183-4DDF-430B869705</CodigoReferencia><noTicket>1538812848232</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Anulada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:25:22.523+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>A06C81CD-411E-49DD-DEFC224C4C</CodigoReferencia><noTicket>1538812874129</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:21:01.317+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><Consorcio>Consorcio Prueba Bingo</Consorcio><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>713C143F-64AF-49B4-CCC477CFD7</CodigoReferencia><noTicket>1538812875255</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:20:03.427+00:00</FechaAutorizacion></Reporte></DocumentElement></Reporte>]]>
 </ConsultaJugadasFechaXmlResult>
    </ConsultaJugadasFechaXmlResponse>
  </s:Body>
</s:Envelope>
 

victormedranop

Well-Known Member
Licensed User
Longtime User
here is a sample function, stop on "For Each item As Map In reporte" then error said that must be initilize

B4X:
sub example
 
 
 Dim da As String = $"<?xml version="1.0" encoding="utf-8"?>
 <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
 <s:Body>
 <ConsultaJugadasFechaXmlResponse xmlns="http://tempuri.org/">
 <ConsultaJugadasFechaXmlResult>
 <![CDATA[<Reporte><Respuesta><CodResp>0</CodResp><DescResp>Operacion Satisfactoria</DescResp></Respuesta><DocumentElement><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>66ABFA55-5100-4831-7C90EE5D07</CodigoReferencia><noTicket>1538812895780</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:49:49.233+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>74487160-0073-4376-BA7E387DEA</CodigoReferencia><noTicket>1538812830220</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:49:03.077+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1B14DA67-9572-4F40-56351D2D87</CodigoReferencia><noTicket>1538812875109</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:48:15.263+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>9CE71106-D47D-4137-30914B06ED</CodigoReferencia><noTicket>1538812861410</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:45:44.997+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>678B3053-9AE4-4CCA-BF4DF9E22A</CodigoReferencia><noTicket>1538812855504</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:19:44.853+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>F9D72CA6-EC0E-40BC-009E858481</CodigoReferencia><noTicket>1538812821279</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:19:16.027+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>88F7DD93-0B85-4C65-A4D9F88A9A</CodigoReferencia><noTicket>1538812817367</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:18:18.557+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>6B1E44DA-E4E6-4243-A6F34A203B</CodigoReferencia><noTicket>1538812811654</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:17:37.4+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>0B4ABBFA-D023-4D1F-7D1C3458E1</CodigoReferencia><noTicket>1538812835227</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:16:43.837+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>97A9E81F-2CF1-46EE-1527430A89</CodigoReferencia><noTicket>1538812897707</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:14:16.507+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>065C97D7-397A-4B40-29B3A6A44D</CodigoReferencia><noTicket>1538812869179</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:13:31.177+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1090785D-FDC6-47C9-B517EEFA44</CodigoReferencia><noTicket>1538812840743</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:10:49.397+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>CB8438D2-79FA-4A2E-1F6A45C4A3</CodigoReferencia><noTicket>1538812858814</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:03:45.627+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1287C4F5-8E9A-40F1-26101461EB</CodigoReferencia><noTicket>1538812821267</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:00:56.763+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>502B6A1F-1E3B-4E8E-25FCE05B35</CodigoReferencia><noTicket>1538812823124</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T13:55:53.073+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>EC5FCCA6-A44C-4D5E-BE3C0DF863</CodigoReferencia><noTicket>1538812877652</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T13:54:29.417+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>65D9E758-A12C-45FF-8F58FE89CA</CodigoReferencia><noTicket>1538812812369</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T13:54:02.853+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>97D49890-1460-46C1-72078EA926</CodigoReferencia><noTicket>1538812835056</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Anulada</Estatus><MontoJugada>20</MontoJugada><FechaAutorizacion>2018-10-06T13:46:27.71+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>3EE7049B-4CE0-4788-6C335B2256</CodigoReferencia><noTicket>1538812890121</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>20</MontoJugada><FechaAutorizacion>2018-10-06T13:44:46.457+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>B498358C-8027-44CD-D88A10FF48</CodigoReferencia><noTicket>1538812871289</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:29:59.917+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>29A9E5B8-1283-469B-AC55959B96</CodigoReferencia><noTicket>1538812882828</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:27:44.93+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>BA520594-3183-4DDF-430B869705</CodigoReferencia><noTicket>1538812848232</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Anulada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:25:22.523+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>A06C81CD-411E-49DD-DEFC224C4C</CodigoReferencia><noTicket>1538812874129</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:21:01.317+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>713C143F-64AF-49B4-CCC477CFD7</CodigoReferencia><noTicket>1538812875255</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:20:03.427+00:00</FechaAutorizacion></Reporte></DocumentElement></Reporte>]]>
 </ConsultaJugadasFechaXmlResult>
 </ConsultaJugadasFechaXmlResponse>
 </s:Body>
 </s:Envelope>"$
 Dim parsedata As Map
 parsedata.Initialize
 Dim xm As Xml2Map
 xm.Initialize
 Dim in As InputStream
 Dim b() As Byte
 b = da.GetBytes("UTF8")
 in.InitializeFromBytesArray(b,0,b.Length)
 parsedata = xm.Parse2(in)
 
 Dim reporte As List
 reporte.Initialize
 reporte = parsedata.Get("Reporte")
 
 For Each item As Map In reporte
  Dim title As String = item.Get("CONSORCIO")
  Dim link As String = item.Get("CodigoReferencia")
  Log($"${title}  ${link}"$)
 Next
 
 
End Sub
 
Upvote 0

victormedranop

Well-Known Member
Licensed User
Longtime User
I really don't know why I got this error

Waiting for debugger to connect...
Program started.
Error occurred on line: 126 (Main)
java.lang.RuntimeException: Object should first be initialized (Map).
at anywheresoftware.b4a.AbsObjectWrapper.getObject(AbsObjectWrapper.java:32)
at anywheresoftware.b4a.objects.collections.Map.Get(Map.java:67)
at b4j.example.main._example(main.java:437)
at b4j.example.main._button_cancel_click(main.java:371)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
at java.lang.reflect.Method.invoke(Method.java:498)
at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:628)
at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:237)
at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:168)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
at java.lang.reflect.Method.invoke(Method.java:498)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:90)
at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:98)
at anywheresoftware.b4a.BA$1.run(BA.java:215)
at com.sun.javafx.application.PlatformImpl.lambda$null$172(PlatformImpl.java:295)
at java.security.AccessController.doPrivileged(Native Method)
at com.sun.javafx.application.PlatformImpl.lambda$runLater$173(PlatformImpl.java:294)
at com.sun.glass.ui.InvokeLaterDispatcher$Future.run(InvokeLaterDispatcher.java:95)
at com.sun.glass.ui.win.WinApplication._runLoop(Native Method)
at com.sun.glass.ui.win.WinApplication.lambda$null$147(WinApplication.java:177)
at java.lang.Thread.run(Thread.java:748)
 
Upvote 0

victormedranop

Well-Known Member
Licensed User
Longtime User
even if I do this
the size of the map is 1 but the get result null.
da as string with the xml string.

B4X:
Dim xm As Xml2Map
 xm.Initialize
 ParsedData = xm.Parse(da)
 Log(ParsedData.Size)
 Log(ParsedData.Get("ConsultaJugadasFechaXmlResult"))
 
Upvote 0

victormedranop

Well-Known Member
Licensed User
Longtime User
This is not surely the proper way to do this.
but works for now. if someone have a better alternative please share

B4X:
sub sample2
 
 
 Dim da As String = $"<?xml version="1.0" encoding="utf-8"?>
 <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
 <s:Body>
 <ConsultaJugadasFechaXmlResponse xmlns="http://tempuri.org/">
 <ConsultaJugadasFechaXmlResult>
 <![CDATA[<Reporte><Respuesta><CodResp>0</CodResp><DescResp>Operacion Satisfactoria</DescResp></Respuesta><DocumentElement><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>66ABFA55-5100-4831-7C90EE5D07</CodigoReferencia><noTicket>1538812895780</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:49:49.233+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>74487160-0073-4376-BA7E387DEA</CodigoReferencia><noTicket>1538812830220</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:49:03.077+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1B14DA67-9572-4F40-56351D2D87</CodigoReferencia><noTicket>1538812875109</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:48:15.263+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>9CE71106-D47D-4137-30914B06ED</CodigoReferencia><noTicket>1538812861410</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:45:44.997+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>678B3053-9AE4-4CCA-BF4DF9E22A</CodigoReferencia><noTicket>1538812855504</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T14:19:44.853+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>F9D72CA6-EC0E-40BC-009E858481</CodigoReferencia><noTicket>1538812821279</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:19:16.027+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>88F7DD93-0B85-4C65-A4D9F88A9A</CodigoReferencia><noTicket>1538812817367</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:18:18.557+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>6B1E44DA-E4E6-4243-A6F34A203B</CodigoReferencia><noTicket>1538812811654</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:17:37.4+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>0B4ABBFA-D023-4D1F-7D1C3458E1</CodigoReferencia><noTicket>1538812835227</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:16:43.837+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>97A9E81F-2CF1-46EE-1527430A89</CodigoReferencia><noTicket>1538812897707</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:14:16.507+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>065C97D7-397A-4B40-29B3A6A44D</CodigoReferencia><noTicket>1538812869179</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:13:31.177+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1090785D-FDC6-47C9-B517EEFA44</CodigoReferencia><noTicket>1538812840743</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:10:49.397+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>CB8438D2-79FA-4A2E-1F6A45C4A3</CodigoReferencia><noTicket>1538812858814</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:03:45.627+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>1287C4F5-8E9A-40F1-26101461EB</CodigoReferencia><noTicket>1538812821267</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T14:00:56.763+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>502B6A1F-1E3B-4E8E-25FCE05B35</CodigoReferencia><noTicket>1538812823124</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T13:55:53.073+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>EC5FCCA6-A44C-4D5E-BE3C0DF863</CodigoReferencia><noTicket>1538812877652</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>10</MontoJugada><FechaAutorizacion>2018-10-06T13:54:29.417+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>65D9E758-A12C-45FF-8F58FE89CA</CodigoReferencia><noTicket>1538812812369</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Rechazada</Estatus><MontoJugada>25</MontoJugada><FechaAutorizacion>2018-10-06T13:54:02.853+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>97D49890-1460-46C1-72078EA926</CodigoReferencia><noTicket>1538812835056</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Anulada</Estatus><MontoJugada>20</MontoJugada><FechaAutorizacion>2018-10-06T13:46:27.71+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>3EE7049B-4CE0-4788-6C335B2256</CodigoReferencia><noTicket>1538812890121</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>20</MontoJugada><FechaAutorizacion>2018-10-06T13:44:46.457+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>B498358C-8027-44CD-D88A10FF48</CodigoReferencia><noTicket>1538812871289</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:29:59.917+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>29A9E5B8-1283-469B-AC55959B96</CodigoReferencia><noTicket>1538812882828</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:27:44.93+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>BA520594-3183-4DDF-430B869705</CodigoReferencia><noTicket>1538812848232</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Anulada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:25:22.523+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>A06C81CD-411E-49DD-DEFC224C4C</CodigoReferencia><noTicket>1538812874129</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:21:01.317+00:00</FechaAutorizacion></Reporte><Reporte><TotalPaginas>1</TotalPaginas><PaginaActual>1</PaginaActual><CONSORCIO>CONSORCIO Prueba Bingo</CONSORCIO><CodigoAgencia>1</CodigoAgencia><CodigoCaja>17</CodigoCaja><Supervisor>Jose Hernandez</Supervisor><CedulaSupervidor>001-123456-1</CedulaSupervidor><Cajero>Admin</Cajero><CedulaCajero>001-123585-9</CedulaCajero><CodigoReferencia>713C143F-64AF-49B4-CCC477CFD7</CodigoReferencia><noTicket>1538812875255</noTicket><Fecha>2018-10-06T00:00:00+00:00</Fecha><Estatus>Autorizada</Estatus><MontoJugada>50</MontoJugada><FechaAutorizacion>2018-10-06T13:20:03.427+00:00</FechaAutorizacion></Reporte></DocumentElement></Reporte>]]>
 </ConsultaJugadasFechaXmlResult>
 </ConsultaJugadasFechaXmlResponse>
 </s:Body>
 </s:Envelope>"$
 parser_consulta.Initialize
 Dim in As InputStream
 Dim b() As Byte
 b = da.GetBytes("UTF8")
 in.InitializeFromBytesArray(b,0,b.Length)
 parser_consulta.Parse(in,"Parser_consulta")
 
End Sub
Sub parser_consulta_StartElement (Uri As String, Name As String, Attributes As Attributes)
End Sub
Sub parser_consulta2_StartElement (Uri As String, Name As String, Attributes As Attributes)
End Sub
Sub parser_consulta_EndElement (Uri As String, Name As String, Text As StringBuilder)
 If parser_consulta.Parents.IndexOf("ConsultaJugadasFechaXmlResponse") > -1 Then
  Log("consulta 1"&Text.ToString)
  parser_consulta2.Initialize
  Dim in As InputStream
  Dim b() As Byte
  b = Text.ToString.GetBytes("UTF8")
  in.InitializeFromBytesArray(b,0,b.Length)
  parser_consulta2.Parse(in,"parser_consulta2")
 End If
End Sub

Sub parser_consulta2_EndElement (Uri As String, Name As String, Text As StringBuilder)
 Dim json_map As Map
 json_map.Initialize
 If parser_consulta.Parents.IndexOf("ConsultaJugadasFechaXmlResponse") > -1 Then
'  Log("consulta 2 "&Text.ToString)
  
  If Name = "DescResp" Then
   Log("Descripcion de Respuesta :"&Text.ToString)
   
  End If
  
  If Name = "CONSORCIO" Then
   Log("CONSORCIO :"&Text.ToString)
   
  End If
 End If 
End Sub
 
Upvote 0

victormedranop

Well-Known Member
Licensed User
Longtime User
Works but with many limitans, if you what to insert this as an record.
the sub always raise again to find the new item in de xml.


searching for the proper way.
 
Upvote 0

Erel

B4X founder
Staff member
Licensed User
Longtime User
Never initialize a variable before you assign a different object to that variable. This is a sign that you are doing something wrong.

Correct code to parse the embedded document:
B4X:
Sub example
   Dim parsedata As Map
   Dim xm As Xml2Map
   xm.Initialize
   parsedata = xm.Parse(File.ReadString(File.DirAssets, "1.txt"))
   Dim envelope As Map = parsedata.Get("s:Envelope")
   Dim body As Map = envelope.Get("s:Body")
   Dim response As Map = body.Get("ConsultaJugadasFechaXmlResponse")
   Dim result As String = response.Get("ConsultaJugadasFechaXmlResult")
   Dim res As Map = xm.Parse(result)
   Dim r1 As Map = res.Get("Reporte")
   Dim de As Map = r1.Get("DocumentElement")
   Dim jg As JSONGenerator
   jg.Initialize(de)
   Log(jg.ToPrettyString(4)) 'useful tool to understand the map structure
   Dim reports As List = de.Get("Reporte")
   For Each report As Map In reports
       Log(report)
   Next
End Sub
 
Upvote 0

victormedranop

Well-Known Member
Licensed User
Longtime User
I will try, thanks Erel.

victor

of course, works...….:)
(MyMap) {TotalPaginas=1, PaginaActual=1, CONSORCIO=CONSORCIO Prueba Bingo, CodigoAgencia=1, CodigoCaja=17, Supervisor=Jose Hernandez, CedulaSupervidor=001-123456-1, Cajero=Admin, CedulaCajero=001-123585-9, CodigoReferencia=678B3053-9AE4-4CCA-BF4DF9E22A, noTicket=1538812855504, Fecha=2018-10-06T00:00:00+00:00, Estatus=Autorizada, MontoJugada=10, FechaAutorizacion=2018-10-06T14:19:44.853+00:00}
 
Last edited:
Upvote 0
Top