AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
++ si es XEXX, que no lo cambie en automático al 0%
This commit is contained in:
rrene
2023-09-07 15:05:43 -07:00
parent 64f54a081a
commit 26c4292956
2 changed files with 57 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
OC/OC.aspx
View File

@@ -319,9 +319,9 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="row"> <div class="row" runat="server" id="DivIVAFacturar" >
<label class="col-md-2"><b>IVA A Facturar:</b> </label> <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"> <asp:UpdatePanel ID="UpDdlIVA" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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."> <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.">

83
OC/OC.aspx.vb
View File

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