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 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