/cambios en globalDT separados por Empresa
This commit is contained in:
janeth arvizu
@@ -1615,6 +1615,8 @@ Partial Class PV
|
||||
If (Boolean.Parse(ObjCliente.DtResultados(0)("EsDistribuidor").ToString)) Then
|
||||
TrEsDistribuidor.Visible = True
|
||||
LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
|
||||
Else
|
||||
TrEsDistribuidor.Visible = False
|
||||
End If
|
||||
|
||||
ViewState("CliNoExt") = ObjCliente.NoExt
|
||||
@@ -1643,8 +1645,14 @@ Partial Class PV
|
||||
End If
|
||||
|
||||
If CveVenta <= 0 Then
|
||||
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString)
|
||||
DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
|
||||
End If
|
||||
TxtFechaPago.Text = (Now.AddDays(ObjCliente.PlazoCobranza)).ToShortDateString
|
||||
|
||||
@@ -1969,7 +1977,7 @@ Partial Class PV
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Alert("No se pudo verificar la fecha del certificado", TipoMensaje.MsgError)
|
||||
Alert("No se pudo verificar la fecha del certificado", TipoMensaje.ToastError)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -2800,7 +2808,7 @@ Partial Class PV
|
||||
|
||||
DdlUnidadMedida.Items.Clear()
|
||||
If UsuarioActual.Empresa.UsaInventarios Then
|
||||
DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(CvePSParametro, -1)
|
||||
DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(CvePSParametro, -1, UsuarioActual.CveEmpresa)
|
||||
Else
|
||||
DdlUnidadMedida.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
|
||||
End If
|
||||
@@ -4890,17 +4898,19 @@ Partial Class PV
|
||||
Hilo.Start()
|
||||
End Sub
|
||||
Private Sub GeneraGlobalDT()
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
|
||||
'Dim ObjPS As New ClsProductosServicios
|
||||
|
||||
If (ObjPS.GetPSSimplificado(-1)) Then
|
||||
Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable 'Cargamos el GlobalDTPSSimplificado
|
||||
End If
|
||||
'If (ObjPS.GetPSSimplificado(-1)) Then
|
||||
' Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable 'Cargamos el GlobalDTPSSimplificado
|
||||
'End If
|
||||
|
||||
If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
|
||||
End If
|
||||
'If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
' GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
|
||||
'End If
|
||||
|
||||
ObjPS.Dispose()
|
||||
'ObjPS.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub RecargaGlobalCliente()
|
||||
@@ -5020,8 +5030,6 @@ Partial Class PV
|
||||
GvRecepcionUsados.DataBind()
|
||||
GvRecepcionUsadosModal.DataBind()
|
||||
|
||||
CargaPSAjuste()
|
||||
|
||||
CreaDTmpDTAjustes()
|
||||
CreaDTmpDTRecepcionUsados()
|
||||
CargaBCIAjuste()
|
||||
@@ -5216,10 +5224,11 @@ Partial Class PV
|
||||
|
||||
Private Sub CalculaPorcentajeAjuste()
|
||||
If DdlPS.SelectedValue.ToEntero <= 0 Then
|
||||
'Alert("No se ha especificado producto a entregar")
|
||||
Alert("No se ha especificado producto a entregar")
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
TxtImporteAjuste.Text = "0.00"
|
||||
If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
|
||||
Dim CveMarca As Integer = -1
|
||||
|
||||
@@ -5267,10 +5276,13 @@ Partial Class PV
|
||||
TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
|
||||
|
||||
Else
|
||||
Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
|
||||
'cuando no está registrada, no da ajuste
|
||||
TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
|
||||
TxtImporteAjuste.Text = "0.00"
|
||||
End If
|
||||
Else
|
||||
Alert("No se tiene especificado tabla de garantía")
|
||||
End If
|
||||
ObjAcum.Dispose()
|
||||
End If
|
||||
@@ -5430,8 +5442,8 @@ Partial Class PV
|
||||
Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFolioGarantia.SelectedIndexChanged
|
||||
Dim ObjAcumuladores As New ClsAcumuladores
|
||||
If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
|
||||
Dim resultado As String = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo")
|
||||
TxtConsecutivoAjuste.Text = resultado
|
||||
Dim resultado As Integer = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo").ToEntero
|
||||
TxtConsecutivoAjuste.Text = resultado.ToString
|
||||
UpAjuste.Update()
|
||||
End If
|
||||
ObjAcumuladores.Dispose()
|
||||
|
||||
@@ -1009,7 +1009,7 @@ Partial Class ProductosyServicios
|
||||
End Sub
|
||||
Private Sub ElProductoChange()
|
||||
ddlUnidad.Items.Clear()
|
||||
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductows.SelectedValue.ToEntero, -1)
|
||||
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductows.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
ddlUnidad.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
@@ -1301,7 +1301,7 @@ Partial Class ProductosyServicios
|
||||
RecargaGlobal()
|
||||
End Sub
|
||||
Protected Sub HFProducto_ValueChanged(sender As Object, e As EventArgs) Handles HFProducto.ValueChanged
|
||||
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1)
|
||||
ddlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
ddlUnidad.DataBind()
|
||||
End Sub
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
@@ -1330,27 +1330,34 @@ Partial Class ProductosyServicios
|
||||
Hilo.Start()
|
||||
End Sub
|
||||
Private Sub GeneraGlobalDT()
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
GlobalDTPSAdicionales(-1, UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTImpuestosLocales(-1, UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTPSAdicionales(-1, UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
|
||||
'Dim ObjPS As New ClsProductosServicios
|
||||
|
||||
If ObjPS.GetPSAlias(-1, -1) Then
|
||||
GlobalDTProductosServiciosAlias(-1) = ObjPS.DtResultados
|
||||
End If
|
||||
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
|
||||
|
||||
If ObjPS.GetPSImpuestosLocales(-1, -1) Then
|
||||
GlobalDTImpuestosLocales(-1, -1) = ObjPS.DtResultados
|
||||
End If
|
||||
'If ObjPS.GetPSAlias(-1, -1) Then
|
||||
' GlobalDTProductosServiciosAlias(-1) = ObjPS.DtResultados
|
||||
'End If
|
||||
|
||||
If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
|
||||
End If
|
||||
'If ObjPS.GetPSImpuestosLocales(-1, -1) Then
|
||||
' GlobalDTImpuestosLocales(-1, -1) = ObjPS.DtResultados
|
||||
'End If
|
||||
|
||||
If ObjPS.GetPSAdicionales(-1, -1) Then
|
||||
GlobalDTPSAdicionales(-1, -1) = ObjPS.DtResultados
|
||||
End If
|
||||
'If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
' GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
|
||||
'End If
|
||||
|
||||
ObjPS.Dispose()
|
||||
''If ObjPS.GetPSAdicionales(-1, -1) Then
|
||||
'' GlobalDTPSAdicionales(-1, -1) = ObjPS.DtResultados
|
||||
''End If
|
||||
|
||||
'ObjPS.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
@@ -1398,11 +1405,12 @@ Partial Class ProductosyServicios
|
||||
Hilo.Start()
|
||||
End Sub
|
||||
Private Sub GeneraGlobalEquivalencias()
|
||||
Dim ObjPS = New ClsProductosServicios
|
||||
If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
|
||||
End If
|
||||
ObjPS.Dispose()
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
'Dim ObjPS = New ClsProductosServicios
|
||||
'If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
' GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
|
||||
'End If
|
||||
'ObjPS.Dispose()
|
||||
End Sub
|
||||
Private Sub CargaGvEquivalencias()
|
||||
If DtEquivalencias IsNot Nothing Then
|
||||
|
||||
@@ -5778,7 +5778,7 @@
|
||||
|
||||
<%--APLICAR NC--%>
|
||||
<div id="ModalAplicarNC" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel ID="UpAplicarNC" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel ID="UpAplicarNC" class="modal-dialog rowpadding modal-lg" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
|
||||
@@ -5494,7 +5494,7 @@ Partial Class Ventas
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
'MODO EDICION
|
||||
|
||||
e.Row.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToEntero, -1)
|
||||
e.Row.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlUnidadMedida").DataBind()
|
||||
e.Row.FCDropDownList("DdlUnidadMedida").SelectedValueExist(e.Row.DBCampo("CveUM"))
|
||||
|
||||
@@ -6739,12 +6739,6 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'ENVIAR POLIZA VIRTUAL
|
||||
If ErrorList.Count = 0 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
|
||||
GeneraPolizaVentaWS(ObjFactura)
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 Then
|
||||
|
||||
@@ -6847,6 +6841,14 @@ Partial Class Ventas
|
||||
If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA", "Pd2")) Then
|
||||
ObjVentas.Commit()
|
||||
|
||||
'ENVIAR POLIZA VIRTUAL
|
||||
If ErrorList.Count = 0 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
|
||||
GeneraPolizaVentaWS(ObjFactura)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'ContPAQ El movimiento 1 es el de Venta
|
||||
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
|
||||
|
||||
@@ -10693,7 +10695,7 @@ Partial Class Ventas
|
||||
|
||||
If UsuarioActual.CveEmpresa = 1 Then
|
||||
DtEquivalencias = New DataTable
|
||||
DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
|
||||
DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1, UsuarioActual.CveEmpresa)
|
||||
Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
|
||||
Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
|
||||
|
||||
@@ -13008,7 +13010,7 @@ Partial Class Ventas
|
||||
HdnPorcentajeIEPS.Value = drPS("IEPSPorcentaje").ToString
|
||||
DdlUnidadMedida.Items.Clear()
|
||||
If UsuarioActual.Empresa.UsaInventarios Then
|
||||
DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(CvePSParametro, -1)
|
||||
DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(CvePSParametro, -1, UsuarioActual.CveEmpresa)
|
||||
Else
|
||||
DdlUnidadMedida.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
|
||||
End If
|
||||
@@ -15248,7 +15250,7 @@ Partial Class Ventas
|
||||
Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs)
|
||||
Dim Ddl As DropDownList = CType(sender, DropDownList)
|
||||
Dim gvr As GridViewRow = CType(Ddl.BindingContainer, GridViewRow)
|
||||
gvr.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(Ddl.SelectedValue.ToEntero, -1)
|
||||
gvr.FCDropDownList("DdlUnidadMedida").DataSource = GlobalDTProductosServiciosEquivalencias(Ddl.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
gvr.FCDropDownList("DdlUnidadMedida").DataBind()
|
||||
|
||||
End Sub
|
||||
@@ -19166,17 +19168,19 @@ Partial Class Ventas
|
||||
Hilo.Start()
|
||||
End Sub
|
||||
Private Sub GeneraGlobalDT()
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
|
||||
'Dim ObjPS As New ClsProductosServicios
|
||||
|
||||
If (ObjPS.GetPSSimplificado(-1)) Then
|
||||
Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable 'Cargamos el GlobalDTPSSimplificado
|
||||
End If
|
||||
'If (ObjPS.GetPSSimplificado(-1)) Then
|
||||
' Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable 'Cargamos el GlobalDTPSSimplificado
|
||||
'End If
|
||||
|
||||
If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
|
||||
End If
|
||||
'If ObjPS.GetPSEquivalencias(-1, -1) Then
|
||||
' GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
|
||||
'End If
|
||||
|
||||
ObjPS.Dispose()
|
||||
'ObjPS.Dispose()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
@@ -19300,7 +19304,7 @@ Partial Class Ventas
|
||||
HdnPorcentajeIEPS.Value = drPS("IEPSPorcentaje").ToString
|
||||
DdlUMPyME.Items.Clear()
|
||||
If UsuarioActual.Empresa.UsaInventarios Then
|
||||
DdlUMPyME.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSPyME.SelectedValue.ToEntero, -1)
|
||||
DdlUMPyME.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSPyME.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
Else
|
||||
DdlUMPyME.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
|
||||
End If
|
||||
@@ -20906,16 +20910,16 @@ Partial Class Ventas
|
||||
InicializaDTVentasNC()
|
||||
|
||||
Dim DtImpuestos As New DataTable
|
||||
DtImpuestos.Columns.Add("ImportePU", GetType(Double))
|
||||
DtImpuestos.Columns.Add("ImporteTotal", GetType(Double))
|
||||
DtImpuestos.Columns.Add("PorcentajeIVA", GetType(Double))
|
||||
DtImpuestos.Columns.Add("ImporteIVA", GetType(Double))
|
||||
DtImpuestos.Columns.Add("PorcentajeRetIVA", GetType(Double))
|
||||
DtImpuestos.Columns.Add("ImporteRetIVA", GetType(Double))
|
||||
DtImpuestos.Columns.Add("PorcentajeRetISR", GetType(Double))
|
||||
DtImpuestos.Columns.Add("ImporteRetISR", GetType(Double))
|
||||
DtImpuestos.Columns.Add("PorcentajeIEPS", GetType(Double))
|
||||
DtImpuestos.Columns.Add("ImporteIEPS", GetType(Double))
|
||||
DtImpuestos.Columns.Add("ImportePU", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("ImporteTotal", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("PorcentajeIVA", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("ImporteIVA", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("PorcentajeRetIVA", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("ImporteRetIVA", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("PorcentajeRetISR", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("ImporteRetISR", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("PorcentajeIEPS", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("ImporteIEPS", GetType(Decimal))
|
||||
DtImpuestos.Columns.Add("CveSubProyecto", GetType(Integer))
|
||||
DtImpuestos.AcceptChanges()
|
||||
|
||||
@@ -20945,14 +20949,15 @@ Partial Class Ventas
|
||||
Into x = Group
|
||||
Select ImportePU = x.Sum(Function(s) s("ImportePU").ToString.ToDecimal),
|
||||
ImporteTotal = x.Sum(Function(s) s("ImporteTotal").ToString.ToDecimal),
|
||||
ImporteIVA = x.Sum(Function(s) s("ImporteIVA").ToString.ToDecimal),
|
||||
ImporteRetIVA = x.Sum(Function(s) s("ImporteRetIVA").ToString.ToDecimal),
|
||||
ImporteRetISR = x.Sum(Function(s) s("ImporteRetISR").ToString.ToDecimal),
|
||||
ImporteIEPS = x.Sum(Function(s) s("ImporteIEPS").ToString.ToDecimal),
|
||||
ImporteIVA = x.Sum(Function(s) Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA,
|
||||
ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetIVA,
|
||||
ImporteRetISR = x.Sum(Function(s) Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetISR,
|
||||
ImporteIEPS = x.Sum(Function(s) Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeIEPS,
|
||||
PorcentajeIVA = PorcentajeIVA,
|
||||
PorcentajeRetIVA = PorcentajeRetIVA,
|
||||
PorcentajeRetISR = PorcentajeRetISR,
|
||||
PorcentajeIEPS = PorcentajeIEPS
|
||||
'(1 + DrPS("IEPSPorcentaje").ToString.ToDecimal)
|
||||
|
||||
Dim DrSubProyecto = GlobalDTSubProyectos(-1, TmpDT.FiltroPrimeroValor("CveSubProyecto", "", "ImporteTotal DESC").ToEntero, UsuarioActual.CveEmpresa, -1).FiltroPrimero("")
|
||||
If DrSubProyecto Is Nothing Then
|
||||
@@ -21058,25 +21063,24 @@ Partial Class Ventas
|
||||
ObjVentas.Dispose()
|
||||
|
||||
Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy
|
||||
DtImpuestosLocal.Columns.Add("ImportePU", GetType(Double))
|
||||
DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Double))
|
||||
DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Double))
|
||||
DtImpuestosLocal.Columns.Add("ImporteRetIVA", GetType(Double))
|
||||
DtImpuestosLocal.Columns.Add("ImporteRetISR", GetType(Double))
|
||||
DtImpuestosLocal.Columns.Add("ImporteIEPS", GetType(Double))
|
||||
DtImpuestosLocal.Columns.Add("ImportePU", GetType(Decimal))
|
||||
DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Decimal))
|
||||
DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Decimal))
|
||||
DtImpuestosLocal.Columns.Add("ImporteRetIVA", GetType(Decimal))
|
||||
DtImpuestosLocal.Columns.Add("ImporteRetISR", GetType(Decimal))
|
||||
DtImpuestosLocal.Columns.Add("ImporteIEPS", GetType(Decimal))
|
||||
|
||||
Dim ImporteReferencia As Decimal = If(DdlNCNivelImporte.SelectedValue.ToEntero = 1, Total, SubTotal)
|
||||
Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100
|
||||
|
||||
Dim FiltroStr As String = ""
|
||||
For Each Dr As DataRow In DtImpuestosLocal.Rows
|
||||
Dr("ImporteTotal") = Math.Round(Porcentaje * (TmpDT.SUM("TotalImporte", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' ") - TmpDT.SUM("Descuento", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' ")), 2)
|
||||
' COMENTANDO POR JESUS MURUA ALIAS EL CHOLO, LO HIZO EL RAUL ARRIBA ALV ! 28/02/2018
|
||||
'Dr("ImporteTotal") = Porcentaje * TmpDT.SUM("TotalImporte", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' ")
|
||||
FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("CveSubProyecto"))
|
||||
Dr("ImporteTotal") = Math.Round(Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr) - TmpDT.SUM("Descuento", FiltroStr)), 2)
|
||||
|
||||
Dr("ImporteIVA") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2)
|
||||
Dr("ImporteRetIVA") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2)
|
||||
Dr("ImporteRetISR") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2)
|
||||
Dr("ImporteIEPS") = (Porcentaje * Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2)
|
||||
Dr("ImporteIVA") = (Dr("ImporteTotal").ToString().ToDecimal() * (1 + Dr("PorcentajeIEPS").ToString().ToDecimal()) * Dr("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2)
|
||||
Dr("ImporteRetIVA") = (Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2)
|
||||
Dr("ImporteRetISR") = (Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2)
|
||||
Dr("ImporteIEPS") = (Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2)
|
||||
|
||||
'Dr("ImporteIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIVA", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' "), 2)
|
||||
'Dr("ImporteRetIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetIVA", $"ISNULL(PorcentajeIVA,0) = {Dr("PorcentajeIVA").ToString.ToDecimal} AND ISNULL(PorcentajeRetIVA,0) = '{Dr("PorcentajeRetIVA").ToString.ToDecimal}' AND ISNULL(PorcentajeRetISR,0) = '{Dr("PorcentajeRetISR").ToString.ToDecimal}' AND ISNULL(PorcentajeIEPS,0) = '{Dr("PorcentajeIEPS").ToString.ToDecimal}' AND ISNULL(CveSubProyecto,0) = '{Dr("CveSubProyecto").ToString.ToEntero}' "), 2)
|
||||
|
||||
Reference in New Issue
Block a user