Untitled Application MyApp Author name 1.0 Apple iPhone 6 False 667 375 False False False False WebApp False G:\Mi unidad\VisualNeo\VisualNeo Web\Proyectos\NeoAjax\Nueva carpeta C:\Users\gusta\Documents\VisualNeoWeb\Libraries\img\default-icon.png en True standalone Offline page #000000 / [AndroidOS,iOS,WindowsPhoneOS] normal True True False True True False False True False False CreateEmptyObject [weather] SetVar [weather] [data] Math "[weather.main.temp]-273" 2 [temperature] SetObjectHTML "Container1" "<b>Madrid Weather Now:</b><br>Temperature: [temperature]ºC<br>Pressure: [weather.main.pressure] mm.<br>Humidity: [weather.main.humidity]" [data]|STRING|Data loaded .SetObjectHTML "Container1" "[data]" ConsoleLog "[data]" .CreateEmptyArray [arraydata] .CreateEmptyObject [miobj] .SetVar [arraydata] [data] .SetVar [miobj] [data] ParseJSON "[data]" [arraydata] .ArrayLen [arraydata] [largo] .ArrayLen [miobj] [totalRows] .jsAlert "[totalRows]" .SetVar [index] 0 .SetVar [myvar2] [arraydata(0)('TipoComprobante')] .SetVar [var] [arraydata.TipoComprobante] .SetVar [id] [arrayData([index]).id] SetVar [myvar] [arraydata(0).nro_transaccion] .ConsoleLog "[myvar]" SetObjectHTML "Container1" "[myvar]" .jsAlert "[myvar]" [data]|STRING|Data from server ConsoleLog [data] CreateEmptyObject [users] SetVar [users] [data] SetVar [totalusers] [users.length] SetVar [finalHTML] "Total records: [totalusers]<br><br>" Loop 0 ([totalusers]-1) [n] SetVar [finalHTML] "[finalHTML][users([n])(0).Name]: [users([n])(0).Value]<br>" SetVar [finalHTML] "[finalHTML][users([n])(1).Name]: [users([n])(1).Value]<br>" SetVar [finalHTML] "[finalHTML][users([n])(2).Name]: [users([n])(2).Value]<br><br>" EndLoop SetObjectHTML "Container1" [finalHTML] [data]|STRING|Data from server jsAlert "Error: [data]" [data]|STRING|Error message 208px 216px 432px 136px False [myvar] 64px 176px 104px 48px NeoAjax .IsVarEmpty [Ventas1Total] [Ventas1Total_Estado] .If [Ventas1Total_Estado] == false SetVar [Subtotal] 0 SetVar [Subtotal_Tasa_Minima] 0 SetVar [Subtotal_Iva_Cero] 0 SetVar [Subtotal_Iva_Basico] 0 SetVar [Total_Factura] 48 SetVar [Tipo_Comprobante] 101 SetVar [Rut] "" .Corrigiendo Fecha, cuando el valor tiene un solo digito SetVar [Mes] [NAB.MonthNum] StrLen "[Mes]" [mes_largo] If [mes_largo] == 1 StrIns "0" "[Mes]" 0 [MesNuevo] else SetVar [MesNuevo] [NAB.MonthNum] endif SetVar [Dia] [NAB.DayNum] StrLen "[Dia]" [dia_largo] If [dia_largo] == 1 StrIns "0" "[Dia]" 0 [DiaNuevo] else SetVar [DiaNuevo] [NAB.DayNum] endif SetVar [Fecha] "[NAB.Year][MesNuevo][DiaNuevo]" SetVar "[Fecha2]" "[NAB.Year]-[MesNuevo]-[DiaNuevo]" .Forma de Pago .Forma Pago : 1 (Contado) .Forma Pago : 2 (Credito) SetVar [Forma_Pago] 1 SetVar [IdEmisor] "1353755" SetVar [Usuario] "interfaz" SetVar [Pass] "03ac674216f3e15c761ee1a5e255f067953623c8b388b4459e13f978d7c846f4" SetVar [Sucursal] 1 .Tipo de Receptor .TipoDocRecep : 2 (RUT) .TipoDocRecep : 3 (CEDULA) .TipoDocRecep : 4 (OTROS) SetVar [TipoDocRecep] 3 SetVar "[Iva]" "3" .Iva : 1 (EXCENTO) .Iva : 2 (IVA MINIMO) .Iva : 3 (IVA BASICO) CreateEmptyObject [mydata] SetVar [mydata.urlSoap] "http://******" SetVar [mydata.idEmisor] "[IdEmisor]" SetVar [mydata.codSucursal] "[Sucursal]" SetVar [mydata.tipoComprobante] "[Tipo_Comprobante]" SetVar [mydata.serie] "A" SetVar [mydata.numero] "?" SetVar [mydata.fechaEmision] "[Fecha]" SetVar [mydata.formaPago] "[Forma_Pago]" SetVar [mydata.usuario] "[Usuario]" SetVar [mydata.password] "[Pass]" SetVar [Dato] "<CFE><DatosGenerales><MntBruto>1</MntBruto></DatosGenerales><Receptor><TipoDocRecep>[TipoDocRecep]</TipoDocRecep><CodPaisRecep>UY</CodPaisRecep><DocRecep></DocRecep><RznSocRecep></RznSocRecep><DirRecep> </DirRecep><CiudadRecep>Salto</CiudadRecep><DeptoRecep>Salto</DeptoRecep></Receptor><Detalle>" .Enviando Detalle de Articulos .Math "[Array_Ventas1_Indice]-1" -1 [Array_Ventas1_Indicee] SetVar [cont] 1 SetVar [Articulo] "Leche Claldy 1L" SetVar [Subtotal] 48 SetVar [Cantidad] 1 SetVar [Precio_Unitario] 48 SetVar [Iva_Porcentaje] 22 .Loop 0 [Array_Ventas1_Indicee] [x] .neoTableGetData [ventas1] [x] "articulos" "[Articulo]" .neoTableGetData [ventas1] [x] "subtotales" "[Subtotal]" .neoTableGetData [ventas1] [x] "cantidades" "[Cantidad]" .neoTableGetData [ventas1] [x] "precioscosto" "[Precio_Unitario]" .neoTableGetData [ventas1] [x] "ivas" "[Iva_Porcentaje]" If [Iva_Porcentaje] == 22 SetVar [Iva] 3 endif If [Iva_Porcentaje] == 10 SetVar [Iva] 2 endif If [Iva_Porcentaje] == 0 SetVar [Iva] 1 endif SetVar [Subtotal2] "[Subtotal].00" SetVar [Subtotal] "[Subtotal2]" .Calculando suma de Ivas tasa Minima If [Iva] == 2 Math "[Subtotal_Tasa_Minima]+[Subtotal]" -1 [Subtotal_Tasa_Minima] endif .Calculando suma de articulos con Ivas Excento If [Iva] == 1 Math "[Subtotal_Iva_Cero]+[Subtotal]" -1 [Subtotal_Iva_Cero] endif .Calculando suma de articulos con Iva Basico If [Iva] == 3 Math "[Subtotal_Iva_Basico]+[Subtotal]" -1 [Subtotal_Iva_Basico] endif StrLen "[Dato]" [Dato_Largo] StrIns "<Item><NroLinDet>[cont]</NroLinDet><IndFact>[Iva]</IndFact><NomItem>[Articulo]</NomItem><DescItem></DescItem><Cantidad>[Cantidad]</Cantidad><UniMed>N/A</UniMed><PrecioUnitario>[Precio_Unitario]</PrecioUnitario><MontoItem>[Subtotal]</MontoItem><DescuentoPct>0.00</DescuentoPct><DescuentoMonto>0.00</DescuentoMonto><RecargoPct>0.00</RecargoPct><RecargoMnt>0.00</RecargoMnt></Item>" "[Dato]" [Dato_Largo] [Dato] .Math "[cont]+1" -1 [cont] .endloop StrLen "[Dato]" [Dato_Largo] StrIns "</Detalle><Totales><TpoMoneda>UYU</TpoMoneda><CantLinDet>1</CantLinDet>" "[Dato]" [Dato_Largo] [Dato] .Guardando MONTO NO GRABADO StrLen "[Dato]" [Dato_Largo] If [Subtotal_Iva_Cero] > 0 Math "[Subtotal_Iva_Cero]+0" 2 [Subtotal_Iva_Cero] StrIns "<MntNoGrv>[Subtotal_Iva_Cero]</MntNoGrv>" "[Dato]" [Dato_Largo] [Dato] else StrIns "<MntNoGrv>0.00</MntNoGrv>" "[Dato]" [Dato_Largo] [Dato] endif StrLen "[Dato]" [Dato_Largo] StrIns "<MntIvaenSusp>0.00</MntIvaenSusp>" "[Dato]" [Dato_Largo] [Dato] .Enviando MONTO NETO TASA MINIMA StrLen "[Dato]" [Dato_Largo] If [Subtotal_Tasa_Minima] > 0 .Calcula el valor del articulo sin el IVA Math "[Subtotal_Tasa_Minima]/1.10" 2 [Monto_Neto_Iva_Tasa_Minima_2] .Calcula el IVA del Articulo Math "[Subtotal_Tasa_Minima]-[Monto_Neto_Iva_Tasa_Minima_2]" 2 [Iva_Tasa_Minima] StrIns "<MntNetoIvaTasaMin>[Monto_Neto_Iva_Tasa_Minima_2]</MntNetoIvaTasaMin>" "[Dato]" [Dato_Largo] [Dato] else StrIns "<MntNetoIvaTasaMin>0.00</MntNetoIvaTasaMin>" "[Dato]" [Dato_Largo] [Dato] SetVar [Iva_Tasa_Minima] "0.00" endif .Enviando MONTO NETO TASA BASICA StrLen "[Dato]" [Dato_Largo] If [Subtotal_Iva_Basico] > 0 .Calcula el Valor del Articulo sin el IVA Math "[Subtotal_Iva_Basico]/1.22" 2 [Monto_Neto_Iva_Tasa_Basica_2] .Calcula el Iva del Articulo Math "[Subtotal_Iva_Basico]-[Monto_Neto_Iva_Tasa_Basica_2]" 2 [Iva_Tasa_Basica] StrIns "<MntNetoIvaTasaBasica>[Monto_Neto_Iva_Tasa_Basica_2]</MntNetoIvaTasaBasica>" "[Dato]" [Dato_Largo] [Dato] else StrIns "<MntNetoIvaTasaBasica>0.00</MntNetoIvaTasaBasica>" "[Dato]" [Dato_Largo] [Dato] SetVar [Iva_Tasa_Basica] "0.00" endif Math "[Total_Factura]/1.22" 2 [Monto_Neto_Iva_Tasa_Basica] Math "[Total_Factura]-[Monto_Neto_Iva_Tasa_Basica]" 2 [MntIVATasaBasica] StrLen "[Dato]" [Dato_Largo] StrIns "<IVATasaMin>10</IVATasaMin><IVATasaBasica>22</IVATasaBasica><MntIVATasaMin>[Iva_Tasa_Minima]</MntIVATasaMin><MntIVATasaBasica>[Iva_Tasa_Basica]</MntIVATasaBasica><MntTotal>[Total_Factura]</MntTotal><MontoNF>0.00</MontoNF><MntPagar>[Total_Factura]</MntPagar></Totales><Adenda></Adenda></CFE>" "[Dato]" [Dato_Largo] [Dato] .SetVar [archivo] '[archivo]]]>\r\n' SetVar [mydata.xmlData] "[Dato]" .SetVar [mydata.xmlData] "<CFE><DatosGenerales><MntBruto>1</MntBruto></DatosGenerales><Receptor><TipoDocRecep>3</TipoDocRecep><CodPaisRecep>UY</CodPaisRecep><DocRecep></DocRecep><RznSocRecep></RznSocRecep><DirRecep> </DirRecep><CiudadRecep>Salto</CiudadRecep><DeptoRecep>Salto</DeptoRecep></Receptor><Detalle><Item>" neoAjaxSend "https://aplicacionesuy.com/ajax/******" "POST" "[mydata]" "json" "parseData2" "error" .neoAjaxSend "http://localhost/******" "POST" "[mydata]" "json" "parseData2" "error" VarToLocalFile [Dato] "prueba.txt" .endif 256px 16px 368px 168px Uso Parse Json con los datos que recibdo de la consulta y luego aplico la siguiente linea para tratar de obtener una de las propiedades:<br><br>[arraydata(0).nro_transaccion]"<br><br><br> 0px 0px 667px 375px False custom