diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 7f2c2e6ca..3b0b13e38 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -949,6 +949,31 @@ Public Class ClsAcumuladores End Try + Return Retorno + End Function + + Public Function GetMovimientosDistribuidorResumen(CveCliente As Integer, CveEmpresa As Integer, Optional FechaI As Date = MinFecha, Optional FechaF As Date = MaxFecha) As Boolean + Dim Retorno As Boolean = False + 'Data = New DataTable + + SqlDataAdapter("PA_Acum_DistribuidorMovtosResumenGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + + OnError("Ocurrió un error al consultar los movimientos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + + End Try + Return Retorno End Function diff --git a/Contratos/CatContratosTipos.aspx.vb b/Contratos/CatContratosTipos.aspx.vb index f0bdc4aea..7b36b4837 100644 --- a/Contratos/CatContratosTipos.aspx.vb +++ b/Contratos/CatContratosTipos.aspx.vb @@ -16,8 +16,7 @@ Partial Class Contratos_CatContratosTipos Private Sub CargaDatos() Dim Objeto As New ClsContratos If Objeto.GetContratosTipos(UsuarioActual.CveEmpresa) Then - GvContratos.DataSource = Objeto.DtResultados - GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Objeto.DtResultados + GvContratos.DataSource = Objeto.DtResultados End If GvContratos.DataBind() Objeto.Dispose() @@ -40,9 +39,10 @@ Partial Class Contratos_CatContratosTipos UpDatos.Update() End If - Objeto.Dispose() - Alert("El Contrato se agregó correctamente.", TipoMensaje.MsgInformacion) + RecargaGlobal() + Alert("El Contrato se agregó correctamente.", TipoMensaje.MsgInformacion) + End Sub @@ -72,6 +72,7 @@ Partial Class Contratos_CatContratosTipos End If GvContratos.EditIndex = -1 CargaDatos() + RecargaGlobal() UpDatos.Update() End Sub @@ -92,10 +93,14 @@ Partial Class Contratos_CatContratosTipos Objeto.Dispose() GvContratos.EditIndex = -1 CargaDatos() - End Sub - - + RecargaGlobal() + End Sub + Private Sub RecargaGlobal() + GlobalDTContratosTipos(-1) = Nothing + End Sub + + #End Region - - + + End Class diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index 01376ea94..7f11c7288 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -742,7 +742,9 @@ Partial Class Sistemas_PopUpAddUsuario GvModulosPermiso.DataSource = ObjProcesos.DtResultados.FiltraParametros($"CvePlataforma = 6") ElseIf UsuarioActual.Empresa.CvePlataforma = 1 And CveProveedor > 0 Then GvModulosPermiso.DataSource = ObjProcesos.DtResultados.FiltraParametros($"CvePlataforma = 7") - BtnDefaultPWD.Visible = True + If CveUsuario > 0 Then + BtnDefaultPWD.Visible = True + End If ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then GvModulosPermiso.DataSource = ObjProcesos.DtResultados.FiltraParametros("CveModulo = 433") End If diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 98bb2104e..62d141b39 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -858,8 +858,8 @@ - - + + @@ -1956,63 +1956,63 @@
- + CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-height="300" GridLines="None" DataKeyNames="CveVenta"> + - - - - - - + + + + + + - - - - - - - -   + + + + + + + +   - - - - -   + + + + +   - - - - -   + + + + +   - - - - - - - - - - - - - - - - <%----%> - - - - - - - - + + + + + + + + + + + + + + + + <%----%> + + + + + + + +
-
+ @@ -2046,53 +2046,53 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - +

- - + + - - - - - - - - - - -   + + + + + + + + + + +   - - - - -   + + + + +   - - - - -   + + + + +   - - - - - - - - - - - - -
+ + + + + + + + + + + + +
@@ -4188,7 +4188,7 @@ - + @@ -4197,7 +4197,7 @@ - + @@ -4210,6 +4210,31 @@ +
+
+
+
+ + Saldo de Cliente +
+
+
+
+
+
+
+ + + + + + + +
+
+
@@ -4302,8 +4327,8 @@ --%> + - @@ -4577,14 +4602,9 @@

- - + + -
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f6fcd022c..be55071aa 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9161,6 +9161,11 @@ Partial Class Clientes End If + If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate, TxtFechaFUsados.Text.ToDate) Then + GvUsadosResumen.DataSource = ObjAcum.DtResultados + End If + GvUsadosResumen.DataBind() + 'LnkFacturaUsadosCargos.Visible = If(ImporteCargo > 0, True, False) LnkFacturaUsadosBonificacion.Visible = If(ImporteBonificacion > 0, True, False) diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 548d83a87..2365c576f 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -428,40 +428,50 @@ Partial Class Ventas_RepVentas Dim FechaIRef As DateTime = FechaI.ToDateTime() Dim FechaFRef As DateTime = FechaF.ToDateTime() - Dim Anio As Integer = FechaFRef.Year - Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero() - Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes) + If e.Row.DBCampo("Mes").ToEntero() > 0 Then + Dim Anio As Integer = FechaFRef.Year + Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero() + Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes) - Dim Dia As Integer = FechaFRef.Day + Dim Dia As Integer = FechaFRef.Day - If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then - Dia = lastDayOfMonth + If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then + Dia = lastDayOfMonth + End If + + If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then + FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") + End If + + FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") End If - If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then - FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") - End If - - FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") Case 3 ' AÑO/MES Dim FechaIRef As DateTime = FechaI.ToDateTime() Dim FechaFRef As DateTime = FechaF.ToDateTime() - Dim Anio As Integer = e.Row.DBCampo("Anio").ToEntero() - Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero() - Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes) + Dim separator As Char = "/".ToCharArray().FirstOrDefault() + Dim AnioMes = e.Row.DBCampo("AnioMes").Split(separator) - Dim Dia As Integer = FechaFRef.Day + Dim Anio As Integer = AnioMes(0).ToEntero() + Dim Mes As Integer = AnioMes(1).ToEntero() - If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then - Dia = lastDayOfMonth + If Anio > 0 AndAlso Mes > 0 Then + Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes) + + Dim Dia As Integer = FechaFRef.Day + + If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then + Dia = lastDayOfMonth + End If + + If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then + FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") + End If + + FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") End If - If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then - FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") - End If - - FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") Case 4 ' FECHA FechaInicial = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy") FechaFinal = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy") diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 9e8be3ff7..e8fc5c8c7 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4343,11 +4343,11 @@
Agendar
- +
@@ -6255,7 +6255,7 @@
-<%-- + <%-- --%>
@@ -6427,6 +6427,17 @@

Aplicar Devolución

+
+
+ +
+
+ + + +
+
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> @@ -6469,7 +6480,7 @@ - + @@ -7104,7 +7115,7 @@ if (Chk.checked) { let SaldoMaximoUtilizable = ToDouble(HdnSaldoMaximoUsados.value) let ImportesAsignados = 0; - + $('.ImportesRNCCargo').each(function () { if ($(this).context.id != TxtImporte.id) { ImportesAsignados += ToDouble($(this).val()); @@ -7127,7 +7138,7 @@ } } - + } else { TxtImporte.value = ""; } @@ -7148,14 +7159,14 @@ // if (TxtImporte.value != '') { // Importe = parseFloat(TxtImporte.value); // } - //let SaldoMaximoUtilizable = ToDouble(HdnSaldoMaximoUsados.value) - //let ImportesAsignados = 0; - //$('.ImportesRNCCargo').each(function () { - // if ($(this).context.id != TxtImporte.id) { - // ImportesAsignados += ToDouble($(this).val()); - // } - //}); - + //let SaldoMaximoUtilizable = ToDouble(HdnSaldoMaximoUsados.value) + //let ImportesAsignados = 0; + //$('.ImportesRNCCargo').each(function () { + // if ($(this).context.id != TxtImporte.id) { + // ImportesAsignados += ToDouble($(this).val()); + // } + //}); + // let ImporteDiferencia = SaldoMaximoUtilizable - ImportesAsignados; // if (ImporteDiferencia < 0) { @@ -7193,9 +7204,9 @@ let SaldoMaximoUtilizable = parseFloat(HdnSaldoMaximoUsados.value) let ImportesAsignados = 0; $('.ImportesRNCCargo').each(function () { - if ($(this).context.id != TxtImporte.id) { - ImportesAsignados += ToDouble($(this).val()); - } + if ($(this).context.id != TxtImporte.id) { + ImportesAsignados += ToDouble($(this).val()); + } }); let ImporteDiferencia = SaldoMaximoUtilizable - ImportesAsignados; @@ -7340,6 +7351,17 @@ } } + function CalculaPenalizacionDevolucion(TxtPenalizacion) { + const Porcentaje = ToDouble(TxtPenalizacion.value) / ToDouble(100); + if (Porcentaje <= 1) { + $('.ImporteDevolucion').each(function () { + const importe = ToDouble($(this).val()); + const resta = importe * Porcentaje; + $(this).val(FormatoNumero((importe - resta), 2)); + }); + } + } + function displayToastr(x) { toastr.options = { @@ -8245,57 +8267,57 @@ function ConvertirPesosDlls() { var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2) $('#<%= LblDolaresConvertidos.ClientID %>').text(totalPesos); - $("#TrConversionDolaresTexto").show(); + $("#TrConversionDolaresTexto").show(); + } + + function ConvertirDolares(ChkConvertirDolares) { + //LIMPIA + $('#<%= LblDolaresConvertidos.ClientID %>').text(''); + $("#TrConversionDolaresTexto").hide(); + + //CALCULA + if (ChkConvertirDolares.checked) { + ConvertirPesosDlls(); + } } - function ConvertirDolares(ChkConvertirDolares) { - //LIMPIA - $('#<%= LblDolaresConvertidos.ClientID %>').text(''); - $("#TrConversionDolaresTexto").hide(); + //FUNCIONES PARA MODAL "ModalAplicarNC" + function CalculaImporteNC() { + var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); + //var ImporteReferencia = ToDouble($get('TxtTotal').value); - //CALCULA - if (ChkConvertirDolares.checked) { - ConvertirPesosDlls(); - } - } + $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); + } - //FUNCIONES PARA MODAL "ModalAplicarNC" - function CalculaImporteNC() { - var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); - //var ImporteReferencia = ToDouble($get('TxtTotal').value); + function CalculaPorcentajeNC() { + var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); + //var ImporteReferencia = ToDouble($get('TxtTotal').value); + $get('TxtNCPorcentaje').value = FormatoNumero((ToDouble($get('TxtNCImporte').value) * 100) / ImporteReferencia, 4); + } - $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); - } + function CambioTipoMoneda(chk, saldo, txt, tipocambio, CveMoneda) { + debugger; + if (tipocambio.value.length > 0) { - function CalculaPorcentajeNC() { - var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); - //var ImporteReferencia = ToDouble($get('TxtTotal').value); - $get('TxtNCPorcentaje').value = FormatoNumero((ToDouble($get('TxtNCImporte').value) * 100) / ImporteReferencia, 4); - } + if (CveMoneda == 1) { + txt.value = FormatoNumero(ToDouble(saldo / tipocambio.value), 2); + } else { + txt.value = FormatoNumero(ToDouble(saldo * tipocambio.value), 2); - function CambioTipoMoneda(chk, saldo, txt, tipocambio, CveMoneda) { - debugger; - if (tipocambio.value.length > 0) { + } + } + } - if (CveMoneda == 1) { - txt.value = FormatoNumero(ToDouble(saldo / tipocambio.value), 2); - } else { - txt.value = FormatoNumero(ToDouble(saldo * tipocambio.value), 2); + function BuscarOCRegistrada() { + $('#btnBuscarOCRegistrada').click(); + } - } - } - } + function ValidaAnticipoBoton() { - function BuscarOCRegistrada() { - $('#btnBuscarOCRegistrada').click(); - } + var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); + var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); - function ValidaAnticipoBoton() { - - var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); - var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); - - var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); + var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); if (IndexActualDdl == 1 && IndexActualDd2 > 0 && TotalAnticipos > 0) { diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f78ed8c3a..18fbf7012 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5674,7 +5674,7 @@ Partial Class Ventas LnkCotizaciones.Visible = False End If UPCondicionesPago.Update() - ElseIf UsuarioActual.CveEmpresa.Contiene(72, 119) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then + ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then RBLPago.SelectedValue = "1" RBLPago_SelectedIndexChanged(Nothing, Nothing) UPCondicionesPago.Update() @@ -8088,6 +8088,22 @@ Partial Class Ventas ObjFacturaDevolucion.FormaPago = 0 ObjFacturaDevolucion.TipoDocto = "Egs" + + If UsuarioActual.CveEmpresa = 140 Then + Dim ObjFolios As New ClsGralFolios() + Dim TipoDoctoConsulta As String = If(ObjFacturaDevolucion.TipoDocto = "Ant", "Ing", If(ObjFacturaDevolucion.TipoDocto = "PA", "Rem", ObjFacturaDevolucion.TipoDocto)) + + If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then + Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue)) + If DT.Rows.Count > 0 Then + ObjFactura.Serie = DT.Rows(0)("Serie").ToString() + End If + DT.Dispose() + End If + ObjFolios.Dispose() + + End If + ObjFacturaDevolucion.Fecha = Now ObjFacturaDevolucion.Version = "3.3" @@ -8350,6 +8366,21 @@ Partial Class Ventas ObjFacturaBonificacion.FormaPago = 0 ObjFacturaBonificacion.TipoDocto = "Egs" + + If UsuarioActual.CveEmpresa = 140 Then + Dim ObjFolios As New ClsGralFolios() + Dim TipoDoctoConsulta As String = If(ObjFacturaBonificacion.TipoDocto = "Ant", "Ing", If(ObjFacturaBonificacion.TipoDocto = "PA", "Rem", ObjFacturaBonificacion.TipoDocto)) + + If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then + Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue)) + If DT.Rows.Count > 0 Then + ObjFactura.Serie = DT.Rows(0)("Serie").ToString() + End If + DT.Dispose() + End If + ObjFolios.Dispose() + + End If ObjFacturaBonificacion.Fecha = Now ObjFacturaBonificacion.Version = "3.3" @@ -8763,6 +8794,23 @@ Partial Class Ventas 'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1) ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text) + + + If UsuarioActual.CveEmpresa = 140 Then + Dim ObjFolios As New ClsGralFolios() + Dim TipoDoctoConsulta As String = If(ObjFactura.TipoDocto = "Ant", "Ing", If(ObjFactura.TipoDocto = "PA", "Rem", ObjFactura.TipoDocto)) + + If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then + Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue)) + If DT.Rows.Count > 0 Then + ObjFactura.Serie = DT.Rows(0)("Serie").ToString() + End If + DT.Dispose() + End If + ObjFolios.Dispose() + + End If + ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second) ObjFactura.CvePrePoliza = -1 ObjFactura.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero() @@ -9392,6 +9440,7 @@ Partial Class Ventas 'ObjFacturaDevolucion.RefDocto = TxtDocto.Text.Trim 'ObjFacturaDevolucion.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1) ObjFacturaDevolucion.Serie = LblSerie.Text + ObjFacturaDevolucion.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second) ObjFacturaDevolucion.CvePrePoliza = -1 ObjFacturaDevolucion.CveMetodoPago = 0 'DdlMetodoPago.SelectedValue.ToEntero() @@ -9406,6 +9455,22 @@ Partial Class Ventas ObjFacturaDevolucion.FormaPago = 0 'ObjFacturaDevolucion.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text) ObjFacturaDevolucion.TipoDocto = "Egs" + + If UsuarioActual.CveEmpresa = 140 Then + Dim ObjFolios As New ClsGralFolios() + Dim TipoDoctoConsulta As String = If(ObjFacturaDevolucion.TipoDocto = "Ant", "Ing", If(ObjFacturaDevolucion.TipoDocto = "PA", "Rem", ObjFacturaDevolucion.TipoDocto)) + + If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then + Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue)) + If DT.Rows.Count > 0 Then + ObjFactura.Serie = DT.Rows(0)("Serie").ToString() + End If + DT.Dispose() + End If + ObjFolios.Dispose() + + End If + ObjFacturaDevolucion.Fecha = Now @@ -16060,7 +16125,7 @@ Partial Class Ventas Dim Row As DataRow = Nothing Dim TotalCalculableImpuestos As Decimal = 0 Dim TotalCalculableImpuestosIVA As Decimal = 0 - PU = PU.RoundSQL(6) ' el precio unitario puede llevar hasta 6 decimales permitidos + PU = PU.RoundAD(6) ' el precio unitario puede llevar hasta 6 decimales permitidos Row = TmpDT.NewRow() Row("CveProyecto") = CveProyecto @@ -16186,19 +16251,19 @@ Partial Class Ventas Row("IVA") = Row("PorcentajeIVA") - Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) - Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) - Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) + Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundAD(NumeroDecimales) + Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundAD(NumeroDecimales) + Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundAD(NumeroDecimales) Row("PorcentajeRetIVA") = ClienteRetIVA Row("PorcentajeRetISR") = ClienteRetISR Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje") - Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) + Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos).RoundAD(NumeroDecimales) Row("IEPS") = Row("ImporteIEPS") - Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales) + Row("Descuento") = (Descuento).RoundAD(NumeroDecimales) Row("TipoDescuento") = HdnTipoDescuento.Value Row("CvePromocionDetalle") = CvePromocionDetalle Row("Total") = (Cantidad * PU) - Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales) + Row("TotalImporte") = (Cantidad * PU).RoundAD(NumeroDecimales) 'Row("AsientoContableVentas") = DrPS("AsientoContableVentas") ' Row("IdCtaContVentas") = IdCtaContable @@ -19097,7 +19162,15 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then DdlMetodoPago33.SelectedValueExist("3") DdlMetodoPago33.Enabled = False + + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then + DdlFormaPago33.Enabled = False + DdlFormaPago33.SelectedValueExist("20") + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) + End If + End If + Case 2 'CONTADO If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then DivContado.Visible = True @@ -19108,6 +19181,12 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then DdlMetodoPago33.SelectedValueExist("1") DdlMetodoPago33.Enabled = False + + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then + DdlFormaPago33.Enabled = True + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) + End If + End If Case 3 ' TERMINAL DivTerminal.Visible = True @@ -23516,9 +23595,18 @@ Partial Class Ventas HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString() LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados) Else - DivSMU.Visible = False - HdnSaldoMaximoUsados.Value = "0" - LtlSMU.Text = "0" + Dim ObjAcum As New ClsAcumuladores + If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then + Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2) + DivSMU.Visible = True + HdnSaldoMaximoUsados.Value = RowUsadosNC("Valor").ToString() + LtlSMU.Text = RowUsadosNC("Valor").ToString().ToDecimal().FormatoNumero(2) + Else + DivSMU.Visible = False + HdnSaldoMaximoUsados.Value = "0" + LtlSMU.Text = "0" + End If + ObjAcum.Dispose() End If UpModalRemisionesNC.Update() @@ -23966,7 +24054,15 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 140 Then CrearDTNCCargo(ListaNCDesc, DtImpuestos, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) - CrearDTNCBonificacion(ListaNCDesc, DtImpuestosBonificacion, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + + 'EN LA NC DE BONIFICACION EL CONCEPTO DEBE SER SIEMPRE 'BONIFICACION POR USADO' + Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=360481).FiltroPrimero("") + If DrPSBonificacion IsNot Nothing Then + CrearDTNCBonificacion(ListaNCDesc, DtImpuestosBonificacion, TmpDTDescNC, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + Else + Alert("No se encontró el concepto de BONIFICACION POR USADO", TipoMensaje.MsgAdvertencia) + CrearDTNCBonificacion(ListaNCDesc, DtImpuestosBonificacion, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + End If Else For Each Dr As DataRow In DtImpuestos.Rows @@ -23998,7 +24094,14 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 140 AndAlso ListaRemisionesNC.Count > 0 Then CrearDTNCCargo(ListaRemisionesNC, DtImpuestos, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) - CrearDTNCBonificacion(ListaRemisionesNC, DtImpuestosBonificacion, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + 'EN LA NC DE BONIFICACION EL CONCEPTO DEBE SER SIEMPRE 'BONIFICACION POR USADO' + Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=360481).FiltroPrimero("") + If DrPSBonificacion IsNot Nothing Then + CrearDTNCBonificacion(ListaRemisionesNC, DtImpuestosBonificacion, TmpDT, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + Else + Alert("No se encontró el concepto de BONIFICACION POR USADO", TipoMensaje.MsgAdvertencia) + CrearDTNCBonificacion(ListaRemisionesNC, DtImpuestosBonificacion, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + End If Else For Each Dr As DataRow In DtImpuestos.Rows @@ -24588,6 +24691,7 @@ Partial Class Ventas e.Row.FCLabel("LblProyecto").Text = e.Row.FCLabel("LblSubProyecto").Text e.Row.FCLabel("LblProyecto").Style.Clear() e.Row.FCLabel("LblSubProyecto").Text = "" + 'e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") End If End If End Sub