-- JAM., que no se muestre el % iva a facturar en proveedores

++ si es XEXX, que no lo cambie en automático al 0%

OC/OC.aspx

@@ -319,9 +319,9 @@
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
 
-                                <div class="row">
+                                <div class="row" runat="server" id="DivIVAFacturar" >
                                     <label class="col-md-2"><b>IVA A Facturar:</b> </label>
-                                    <div class="col-md-2">
+                                    <div class="col-md-2" >
                                         <asp:UpdatePanel ID="UpDdlIVA" runat="server" UpdateMode="Conditional">
                                             <ContentTemplate>
                                                 <asp:DropDownList ID="DdlIVA" AutoPostBack="true" OnSelectedIndexChanged="DdlIVA_SelectedIndexChanged" CssClass="select2me" Style="width: 100%; display: inline-block;" runat="server" data-toggle="tooltip" data-placement="left" ToolTip="Si el producto aplica IVA, se tomara en cuenta el porcentaje seleccionado.">

OC/OC.aspx.vb

@@ -4676,18 +4676,18 @@ Partial Class OC_OC
             If e.CommandArgument.ToString <> "" Then
                 Dim OC As New ClsOC
                 OC.IniciaTransacSQL()
-                Dim TieneError = False
+                Dim TieneError As Boolean = False
                 Dim Cve As String() = e.CommandArgument.ToString.Split("|"c)
 
                 If OC.UpdateCotizacionDetalleGanadora(Cve(0).ToEntero, If(Cve(1).ToString.ToUpper = "TRUE", False, True)) > 0 Then
 
-                    Dim index = CType(DirectCast(e.CommandSource, Button).NamingContainer, GridViewRow).RowIndex
-                    Dim dr = DtDetalle.Rows(index)
+                    Dim index As Integer = CType(DirectCast(e.CommandSource, Button).NamingContainer, GridViewRow).RowIndex
+                    Dim dr As DataRow = DtDetalle.Rows(index)
 
                     If Not Cve(1).ToString.ToUpper = "TRUE" Then
 
-                        Dim Importe = DirectCast(e.CommandSource, Button).Text.ToDecimal
-                        Dim Total = Importe * dr("Cantidad").ToString.ToDecimal
+                        Dim Importe As Decimal = DirectCast(e.CommandSource, Button).Text.ToDecimal
+                        Dim Total As Decimal = Importe * dr("Cantidad").ToString.ToDecimal
 
                         dr("Importe") = DirectCast(e.CommandSource, Button).Text
                         dr("Total") = dr("Importe").ToString.ToDecimal * dr("Cantidad").ToString.ToDecimal
@@ -4819,7 +4819,7 @@ Partial Class OC_OC
         End If
     End Sub
     Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click
-        Dim Body = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim)
+        Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim)
         RegistraScript("hideDivEC();")
     End Sub
 #End Region
@@ -5185,7 +5185,7 @@ Partial Class OC_OC
 
 
         'AGREGA
-        Dim Dr = DtBitacora.NewRow
+        Dim Dr As DataRow = DtBitacora.NewRow
         Dr("FechaIng") = Now
         Dr("FechaInicio") = ""
         Dr("Usuario") = UsuarioActual.Usuario
@@ -5646,7 +5646,6 @@ Partial Class OC_OC
     End Function
 
     Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.selectedindexchange
-        Dim Objeto As New ClsCompProveedores
 
         DdlProveedorSucursal.Items.Clear()
         DdlProveedorSucursal.SelectedValue = Nothing
@@ -5658,60 +5657,61 @@ Partial Class OC_OC
             DivProveedorSucursal.Visible = False
             DivProveedorContacto.Visible = False
         Else
-            If Objeto.GetSucursales(DdlProveedores.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-                If Objeto.DtResultados.Rows.Count > 0 Then
-                    DivProveedorSucursal.Visible = True
-                    DdlProveedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    DdlProveedorSucursal.Items.Insert(1, New ListItem("Matriz", "0"))
-                    DdlProveedorSucursal.DataSource = Objeto.DtResultados
-                Else
-                    DivProveedorSucursal.Visible = False
-                End If
+
+            Dim dtt As DataTable = GlobalDTProveedorSucursales(DdlProveedores.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+
+            If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+                DivProveedorSucursal.Visible = True
+                DdlProveedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                DdlProveedorSucursal.Items.Insert(1, New ListItem("Matriz", "0"))
+                DdlProveedorSucursal.DataSource = dtt
+            Else
+                DivProveedorSucursal.Visible = False
             End If
+            DdlProveedorSucursal.DataBind()
 
-            If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-                If Objeto.DtResultados.Rows.Count > 0 Then
+            dtt = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, DdlProveedores.SelectedValue.ToEntero)
+            Dim CveMonedaPreferente As Integer = -1
+            If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+                Dim CveTipoProveedor As Integer = dtt.FiltroPrimeroValor("CveTipoProveedor").ToEntero()
 
-                    If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
-                        Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
-                        'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
-                        If CveConfianzaProveedor <= 0 Then
-                            CveConfianzaProveedor = 2
-                        End If
+                If UsuarioActual.CveEmpresa = 119 AndAlso CveTipoProveedor = 1 Then 'solo si es proveedor ocultar el %de iva.
+                    DdlIVA.SelectedValue = "1.16"
+                    DivIVAFacturar.Visible = False
+                Else
+                    DivIVAFacturar.Visible = True
+                End If
+                CveMonedaPreferente = dtt.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
+                If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                    Me.CveConfianzaProveedor = dtt.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
+                    'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
+                    If CveConfianzaProveedor <= 0 Then
+                        CveConfianzaProveedor = 2
                     End If
-
                     ChkCotizacion.Checked = CveConfianzaProveedor > 0
                     ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
-
                 End If
-            End If
 
+                'MUESTRA IVA PROVEEDOR EXTRANJERO
+                If UsuarioActual.CveEmpresa <> 119 AndAlso GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
+                    'Alert("Proveedor extranjero")
+                    LblLeyendaProveedorIVA.Text = "IVA 0%"
+                    'Si es proveedor extranjero selecciona iva al 0%
+                    DdlIVA.SelectedValue = "1"
+                Else
+                    LblLeyendaProveedorIVA.Text = ""
+                    'Si es proveedor selecciona iva al 16%
+                    'DdlIVA.SelectedValue = "1.16"
+                End If
+
+            End If
             'MONEDA PREFERENTE
-            If CveOrdenCompra <= 0 Then
-                DdlMoneda.SelectedValueExist(Objeto.CveMonedaPreferente)
+            If CveOrdenCompra <= 0 AndAlso CveMonedaPreferente > 0 Then
+                DdlMoneda.SelectedValueExist(CveMonedaPreferente)
                 MonedaTexto = DdlMoneda.SelectedItem.Text
             End If
-
-            'MUESTRA IVA PROVEEDOR EXTRANJERO
-            If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
-                'Alert("Proveedor extranjero")
-                LblLeyendaProveedorIVA.Text = "IVA 0%"
-
-                'Si es proveedor extranjero selecciona iva al 0%
-                DdlIVA.SelectedValue = "1"
-
-            Else
-                LblLeyendaProveedorIVA.Text = ""
-                'Si es proveedor selecciona iva al 16%
-                'DdlIVA.SelectedValue = "1.16"
-
-            End If
         End If
-
-        Objeto.Dispose()
-
         VerificaSiRequiereCotizacion()
-
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" And CveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then
             'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO
             If CveConfianzaProveedor = 1 Then
@@ -5720,7 +5720,6 @@ Partial Class OC_OC
             UpIvas.Update()
         End If
 
-        DdlProveedorSucursal.DataBind()
         UPProv.Update() : UPPEmp.Update()
         UPPDetalle.Update()
         uppEstatus.Update()
@@ -7035,7 +7034,7 @@ Partial Class OC_OC
     Private Sub VerificarExistencias()
 
         Dim tmpDTPS As DataTable = DtDetalle
-        Dim DTAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($" CveTipoAlmacen IN (1,9) ") 'AND CveSucursal = {CveSucursal}")
+        Dim DTAlmacen As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($" CveTipoAlmacen IN (1,9) ") 'AND CveSucursal = {CveSucursal}")
         Dim objInv As New ClsInventarios
         'Dim consulta As New StringBuilder
 
@@ -7062,7 +7061,7 @@ Partial Class OC_OC
         objInv.GetExistenciasAlmacenDT(CveOrdenCompra, UsuarioActual.CveEmpresa)
 
         ' limpio los almacenes donde no tiene ningun producto existencia
-        For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
+        For i As Integer = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
             If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
                 objInv.DtResultados.Columns.RemoveAt(i)
             End If
@@ -7074,7 +7073,7 @@ Partial Class OC_OC
         GvExist.DataBind()
 
         'ORDENA HACIA LA DERECHA LAS CANTIDAD - OJO!! NO SE USO GV.COLUMNS.COUNT PORQUE LAS COLUMNAS GENERADAS EN BEHIND NO LAS RECONOCE
-        For index = 1 To tmpDTPS.Columns.Count - 1
+        For index As Integer = 1 To tmpDTPS.Columns.Count - 1
             For Each gvr As GridViewRow In GvExist.Rows
                 gvr.Cells(index).HorizontalAlign = HorizontalAlign.Right
             Next
@@ -7927,7 +7926,7 @@ Partial Class OC_OC
         worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
 
         Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
+        For i As Integer = 0 To columnCount
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next
 
@@ -8467,13 +8466,11 @@ Partial Class OC_OC
                     Dim Cantidad As Decimal = DRow("Faltante").ToString.ToDecimal
 
                     If Cantidad > 0 Then
-
-
                         Dim CvePS As Integer = DRow("CvePS").ToString.ToEntero
                         Dim PrecioUnitario As Decimal = 0
 
                         Dim dr As DataRow = DtDetalle.NewRow
-                        Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")
+                        Dim DrPS As DataRow = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")
                         If DrPS Is Nothing Then
                             Alert("Ocurrió un error al cargar la información de los productos del archivo. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                             Continue For
@@ -8493,7 +8490,7 @@ Partial Class OC_OC
                         Dim IEPSPSIVA As Decimal = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
                         Dim CveClasificacion As Integer = DrPS("CveClasificacion").ToString.ToEntero
                         Dim Clasificacion As String = DrPS("Clasificacion").ToString
-                        Dim CveActivoFijo = HdnCveActivoFijo.Value.ToEntero
+                        Dim CveActivoFijo As Integer = HdnCveActivoFijo.Value.ToEntero
                         Dim IdCuentaPorEjercer As Integer = If(HdnCveCuentaPorEjercer.Value = String.Empty, -1, HdnCveCuentaPorEjercer.Value.ToEntero)
                         Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
                         Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100