From 437dc47db709756e9eafa664f437a5db65078b51 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 26 Nov 2019 09:27:47 -0700 Subject: [PATCH 1/2] Error al consultar direcciones --- GPS/EntradasSalidasGR.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/GPS/EntradasSalidasGR.aspx.vb b/GPS/EntradasSalidasGR.aspx.vb index 5827fa0eb..84ef503af 100644 --- a/GPS/EntradasSalidasGR.aspx.vb +++ b/GPS/EntradasSalidasGR.aspx.vb @@ -233,7 +233,7 @@ Partial Class GPS_Rastreo For Each Row As DataRow In DtDatos.Rows Try - request = WebRequest.Create(String.Format("{0}nominatim/reverse.php?format=jsonv2&lat={1}&lon={2}", ClsPaginas.UrlDirecciones, Row("Lat"), Row("Lon"))) + request = WebRequest.Create(String.Format("{0}nominatim/reverse.php?format=jsonv2&lat={1}&lon={2}", ClsPaginas.UrlDirecciones, Row("Lat"), Row("Lng"))) request.Method = "GET" ' set default credentials Dim response As WebResponse = Request.GetResponse() ' fire this puppy off Dim inputstream1 As Stream = response.GetResponseStream() ' define the stream(must be stream From b374e0407d274c1c8af939e818e25f153c20a8e6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 26 Nov 2019 09:28:22 -0700 Subject: [PATCH 2/2] Validar porcentaje IVA en OC --- OC/OC.aspx.vb | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index d8d27c13c..7c9f76462 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2253,6 +2253,14 @@ Partial Class OC End If End If + 'VALIDAR PORCENTAJES DE IVA + Dim PorcentajeIVA As Decimal = DdlIVA.SelectedValue.ToDecimal() - 1 + Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal() + + If PorcentajeIVA > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then + Alert("El IVA de los conceptos no coincide con el IVA a facturar.", TipoMensaje.MsgAdvertencia) + TieneError = True + End If Return TieneError End Function