From 26c42929563bdadc10d0cd4ee5745429071c52eb Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Sep 2023 15:05:43 -0700 Subject: [PATCH] =?UTF-8?q?--=20JAM.,=20que=20no=20se=20muestre=20el=20%?= =?UTF-8?q?=20iva=20a=20facturar=20en=20proveedores=20++=20si=20es=20XEXX,?= =?UTF-8?q?=20que=20no=20lo=20cambie=20en=20autom=C3=A1tico=20al=200%?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx | 4 +- OC/OC.aspx.vb | 113 ++++++++++++++++++++++++-------------------------- 2 files changed, 57 insertions(+), 60 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index 8d7a2d171..99ea66ee2 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -319,9 +319,9 @@ -
+
-
+
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index c31fb6dc8..f986b9cfa 100644 --- a/OC/OC.aspx.vb +++ b/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