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

113
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)
DivProveedorSucursal.Visible = True
DdlProveedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
DdlProveedorSucursal.Items.Insert(1, New ListItem("Matriz", "0")) DivProveedorSucursal.Visible = True
DdlProveedorSucursal.DataSource = Objeto.DtResultados DdlProveedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else DdlProveedorSucursal.Items.Insert(1, New ListItem("Matriz", "0"))
DivProveedorSucursal.Visible = False DdlProveedorSucursal.DataSource = dtt
End If Else
DivProveedorSucursal.Visible = False
End If End If
DdlProveedorSucursal.DataBind()
If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then dtt = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, DdlProveedores.SelectedValue.ToEntero)
If Objeto.DtResultados.Rows.Count > 0 Then 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 If UsuarioActual.CveEmpresa = 119 AndAlso CveTipoProveedor = 1 Then 'solo si es proveedor ocultar el %de iva.
Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero() DdlIVA.SelectedValue = "1.16"
'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO' DivIVAFacturar.Visible = False
If CveConfianzaProveedor <= 0 Then Else
CveConfianzaProveedor = 2 DivIVAFacturar.Visible = True
End If 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 End If
ChkCotizacion.Checked = CveConfianzaProveedor > 0 ChkCotizacion.Checked = CveConfianzaProveedor > 0
ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
End If 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 'MONEDA PREFERENTE
If CveOrdenCompra <= 0 Then If CveOrdenCompra <= 0 AndAlso CveMonedaPreferente > 0 Then
DdlMoneda.SelectedValueExist(Objeto.CveMonedaPreferente) DdlMoneda.SelectedValueExist(CveMonedaPreferente)
MonedaTexto = DdlMoneda.SelectedItem.Text MonedaTexto = DdlMoneda.SelectedItem.Text
End If 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 End If
Objeto.Dispose()
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