diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index c0658934e..81aaae32d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -756,8 +756,7 @@ Servicio a Domicilio:  - - activado + activado @@ -1263,7 +1262,7 @@ - <%--22--%> + <%--22--%> @@ -1428,7 +1427,8 @@ - + <%-- --%> + @@ -2210,8 +2210,7 @@ - - - + + + + +
- +
@@ -2343,8 +2342,7 @@
- +
@@ -2435,123 +2433,7 @@
- -
-
-
- - 7Eleven - -
-
-
-
-
- -
- -
-
- -
-
- - - - - - - - - - - - - - - - - -
Proveedor:  -
- -
-
Folio:  -
- -
-
Tienda:  -
- -
- <%----%> -
Fecha:  - -
- - - - - - - - -
-
-
-
-
-
-
-
- - FORD - -
-
-
-
-
- -
- -
-
-
-
- - - - - - - - - - - - - -
GSDB:   -
- -
-
ASN :   -
- -
-   - - -
- - -
-
-
-
-
+
@@ -2723,6 +2605,230 @@
+
+
+
+ + 7Eleven + +
+
+
+
+
+ +
+ +
+
+ +
+
+ + + + + + + + + + + + + + + + + +
Proveedor:  +
+ +
+
Folio:  +
+ +
+
Tienda:  +
+ +
+ <%----%> +
Fecha:  + +
+ + + + + + + + +
+
+
+
+
+ 		+
+
+
+ + FORD + +
+
+
+
+
+ +
+ +
+
+
+
+ + + + + + + + + + + + + +
GSDB:   +
+ +
+
ASN :   +
+ +
+   + + +
+ + +
+
+
+
+ 		+
+
+
+ + Complementos INE +
+
+
+
+
+
+ +
+
+
+
+
+
+ + + + + + +
+
+ + + + + + + + + + + + + + + + + + + +
Tipo Campaña: + + + + +
Ambito: + + + + +
Entidad: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Id Conta: + + + +
+ + +
+
+
+
+
+
@@ -2840,9 +2946,9 @@
- + - +
@@ -3366,7 +3472,7 @@
- +
$ @@ -3947,7 +4053,7 @@
- +
--%> <%-- ******************************************** Corte de Caja *************************************************************************************************************************************** --%> @@ -6060,7 +6166,8 @@
-
+ +
@@ -6069,12 +6176,14 @@
-
+ +
- Agregar
+ Agregar +

@@ -6349,7 +6458,7 @@
- +
@@ -6907,75 +7016,124 @@
-
-
-
- - Cargos -
-
-
-
-
-
- -
+ + + + + +
+
+ +
+
+
+
+
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
-
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - +
+
+
+
+
+
+ + + +
+
+
+
+
+
+ +
-
-
-
- - - - - - -
Saldo Maximo Utilizable.: -   -
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + + + + + +
Saldo Maximo Utilizable.: +   +
+
+
-
+
@@ -7021,7 +7179,7 @@ - + @@ -7046,6 +7204,7 @@
+
@@ -7344,13 +7503,66 @@ } function CalculaSaldoRNCBonChk(TxtImporte, Saldo, Chk) { + //if (Chk.checked) { + // TxtImporte.value = FormatoNumero(Saldo, 2); + //} else { + // TxtImporte.value = ""; + //} if (Chk.checked) { - TxtImporte.value = FormatoNumero(Saldo, 2); + let SaldoMaximoUtilizable = ToDouble(HdnSMUBonDesc.value) + let ImportesAsignados = 0; + + $('.ImportesRNCBon').each(function () { + if ($(this).context.id != TxtImporte.id) { + ImportesAsignados += ToDouble($(this).val()); + } + }); + let Importe = SaldoMaximoUtilizable - ImportesAsignados; + + if (Importe > 0) { + if (Saldo > Importe) { + TxtImporte.value = FormatoNumero(Importe, 2); + } else { + TxtImporte.value = FormatoNumero(Saldo, 2); + } + } else { + if (SaldoMaximoUtilizable > 0) { + TxtImporte.value = ""; + Chk.checked = false; + } else { + TxtImporte.value = FormatoNumero(Saldo, 2); + } + + } + } else { TxtImporte.value = ""; } } function LimitaSaldoRNCBonChk(TxtImporte, Saldo) { + //var Importe = 0; + + //if (TxtImporte.value.includes('.')) { + // return; + //} + //if (TxtImporte.value.includes(',')) { + // return; + //} + + //var regex = new RegExp("^[-+]?[0-9]+\.[0-9]+$"); + + //if (regex.test(TxtImporte.value)) { + // if (TxtImporte.value != '') { + // Importe = parseFloat(TxtImporte.value); + // } + + // if (Importe > Saldo) { + // TxtImporte.value = FormatoNumero(Saldo, 2); + // } else { + // TxtImporte.value = FormatoNumero(Importe, 2);; + // } + //} + var Importe = 0; if (TxtImporte.value.includes('.')) { @@ -7367,8 +7579,17 @@ Importe = parseFloat(TxtImporte.value); } - if (Importe > Saldo) { - TxtImporte.value = FormatoNumero(Saldo, 2); + let SaldoMaximoUtilizable = parseFloat(HdnSMUBonDesc.value) + let ImportesAsignados = 0; + $('.ImportesRNCBon').each(function () { + if ($(this).context.id != TxtImporte.id) { + ImportesAsignados += ToDouble($(this).val()); + } + }); + let ImporteDiferencia = SaldoMaximoUtilizable - ImportesAsignados; + + if (Importe > ImporteDiferencia) { + TxtImporte.value = FormatoNumero(ImporteDiferencia, 2); } else { TxtImporte.value = FormatoNumero(Importe, 2);; } @@ -8402,99 +8623,99 @@ function ConvertirDolares(ChkConvertirDolares) { //LIMPIA $('#<%= LblDolaresConvertidos.ClientID %>').text(''); - $("#TrConversionDolaresTexto").hide(); - - //CALCULA - if (ChkConvertirDolares.checked) { - ConvertirPesosDlls(); - } - } - - //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); - - $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); - } - - 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); - } - - 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); + $("#TrConversionDolaresTexto").hide(); + //CALCULA + if (ChkConvertirDolares.checked) { + ConvertirPesosDlls(); } } - } - function BuscarOCRegistrada() { - $('#btnBuscarOCRegistrada').click(); - } + //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 ValidaAnticipoBoton() { + $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); + } - var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); - var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); + 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); + } - var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); + 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() { + + var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); + var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); + + var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); - if (IndexActualDdl == 1 && IndexActualDd2 > 0 && TotalAnticipos > 0) { + if (IndexActualDdl == 1 && IndexActualDd2 > 0 && TotalAnticipos > 0) { - if (TotalAnticipos > 0) { - $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', false); + if (TotalAnticipos > 0) { + $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', false); + } else { + $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); + } } else { $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); } - } else { - $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); + } - } + function showDivEC() { + $('#<%= TxtRFCCliente.ClientID %>').val(''); + $('#<%= TxtNombreCliente.ClientID %>').val(''); + $('#<%= TxtDireccionCliente.ClientID %>').val(''); + $('#<%= TxtNumExtCliente.ClientID %>').val(''); + $('#<%= TxtNumIntCliente.ClientID %>').val(''); + $('#<%= TxtCPCliente.ClientID %>').val(''); + $('#<%= TxtColoniaCliente.ClientID %>').val(''); + $('#<%= TxtTelefonoCliente.ClientID %>').val(''); + $('#<%= TxtCiudadCliente.ClientID %>').val(''); + $('#<%= TxtLocalidadCliente.ClientID %>').val(''); + $('#<%= DdlSATPais.ClientID %>').val(''); + $('#<%= DdlEstadoSAT.ClientID %>').val(''); + $('#<%= TxtCorreoCliente.ClientID %>').val(''); - function showDivEC() { - $('#<%= TxtRFCCliente.ClientID %>').val(''); - $('#<%= TxtNombreCliente.ClientID %>').val(''); - $('#<%= TxtDireccionCliente.ClientID %>').val(''); - $('#<%= TxtNumExtCliente.ClientID %>').val(''); - $('#<%= TxtNumIntCliente.ClientID %>').val(''); - $('#<%= TxtCPCliente.ClientID %>').val(''); - $('#<%= TxtColoniaCliente.ClientID %>').val(''); - $('#<%= TxtTelefonoCliente.ClientID %>').val(''); - $('#<%= TxtCiudadCliente.ClientID %>').val(''); - $('#<%= TxtLocalidadCliente.ClientID %>').val(''); - $('#<%= DdlSATPais.ClientID %>').val(''); - $('#<%= DdlEstadoSAT.ClientID %>').val(''); - $('#<%= TxtCorreoCliente.ClientID %>').val(''); + $('#divAgregarCliente').modal(); + } - $('#divAgregarCliente').modal(); - } + function hideDivEC() { + $('#divAgregarCliente').modal('hide'); + } - function hideDivEC() { - $('#divAgregarCliente').modal('hide'); - } + var ValidarRNC = false; + function AplicarValidarRNC(Valor) { + ValidarRNC = Valor; + } + function CompararNC() { + if (ValidarRNC) { + var TotalRem = ToDouble(document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').value); + var TotalNC = ToDouble(document.getElementById('<%= TxtNCImporte.ClientID %>').value); - var ValidarRNC = false; - function AplicarValidarRNC(Valor) { - ValidarRNC = Valor; - } - function CompararNC() { - if (ValidarRNC) { - var TotalRem = ToDouble(document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').value); - var TotalNC = ToDouble(document.getElementById('<%= TxtNCImporte.ClientID %>').value); - - if (TotalRem == TotalNC) { - document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').style.border = "2px solid #04B431"; + if (TotalRem == TotalNC) { + document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').style.border = "2px solid #04B431"; document.getElementById('<%= TxtNCImporte.ClientID %>').style.border = "2px solid #04B431"; document.getElementById('<%= TxtImportesRemisionesNC.ClientID %>').style.color = ""; document.getElementById('<%= TxtNCImporte.ClientID %>').style.color = ""; @@ -8519,22 +8740,22 @@ var verficaRNC = function () { var total = 0; if ('<%= UsuarioActual.CveEmpresa %>' == '140') { - $(".ChkAplicaRNC > input").each(function () { - if (this.checked) { - total = total + 1; - } - if (total == 2) { - alert("No se puede seleccionar mas de una remisión de nota de crédito."); - this.checked = false; - return false; - } - }); - } - }; + $(".ChkAplicaRNC > input").each(function () { + if (this.checked) { + total = total + 1; + } + if (total == 2) { + alert("No se puede seleccionar mas de una remisión de nota de crédito."); + this.checked = false; + return false; + } + }); + } + }; - function showDivAgregarSucursal() { + function showDivAgregarSucursal() { - $('#<%= TxtNombreSucursal.ClientID %>').val(''); + $('#<%= TxtNombreSucursal.ClientID %>').val(''); $('#<%= TxtDireccionSucursal.ClientID %>').val(''); $('#<%= TxtNumExtSucursal.ClientID %>').val(''); $('#<%= TxtNumIntSucursal.ClientID %>').val(''); diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ceecd7d8f..82cf85254 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2174,7 +2174,7 @@ Partial Class Ventas ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';") ImgAntiPend.Attributes.Add("onclick", "$get('HdnTipoDescuento').value = '3'; MuestraAnticipos();") ImgOtrosConceptos.Attributes.Add("onclick", "javascript:$('#ModalOtrosConceptos').modal();") - LkbAgregarComplementos.Attributes.Add("onclick", "javascript:$('#ModalComplementos').modal();") + 'LkbAgregarComplementos.Attributes.Add("onclick", "javascript:$('#ModalComplementos').modal();") 'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide();") 'LkbEstadodeCaja.Attributes.Add("OnClick", "MuestraEstadoCaja();") 'LkbIngreso.Attributes.Add("OnClick", "MuestraIngresoEgreso(1);") @@ -2820,7 +2820,7 @@ Partial Class Ventas UpParametros.Update() DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) CambiaTipoDocto() - LimpiaEscondeContado(CveFormaPago33Cliente) + LimpiaEscondeContado() End If InicializaAplicarNC() @@ -4263,7 +4263,10 @@ Partial Class Ventas If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then HplSaldoAuxiliar.Visible = False HplPagado.Visible = True - + Dim EsCancelado = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero() = 5 + If EsCancelado Then + HplPagado.Text = "CANCELADO" + End If If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then ImgAntiPend.Visible = True Else @@ -4871,8 +4874,60 @@ Partial Class Ventas Else BtnGenerarRemision.Visible = False End If + If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(60) Then + + Select Case UsuarioActual.Empresa.Funcionalidad(135) + Case "1" ' POR SUPERVISOR + Dim ObjVendedores As New ClsVtaVendedores + + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + Dim DTVendedores As New DataTable + If DbRowVenta("CveVendedor").ToString().ToEntero() > 0 AndAlso UsuarioActual.CveVendedor > 0 Then + DTVendedores = ObjVendedores.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString())).FiltraParametros(String.Format("CveSupervisor = {0}", UsuarioActual.CveVendedor)) + End If + + 'Verifico si es su supervisor asignado + If DTVendedores.Rows.Count > 0 Then + If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then + BtnsFacturar.Visible = True + + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) + Else + BtnGenerarRemision.Visible = False + End If + + Else + BtnsFacturar.Visible = False + BtnGenerarRemision.Visible = False + End If + End If + + DTVendedores.Dispose() + End If + ObjVendedores.Dispose() + + Case "2" ' POR PERMISO + If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) + + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) + Else + BtnGenerarRemision.Visible = False + End If + Else + BtnsFacturar.Visible = False + BtnGenerarRemision.Visible = False + End If + + End Select + + End If + LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274) End If End If @@ -4951,14 +5006,16 @@ Partial Class Ventas ObjVendedores.Dispose() Case "2" ' POR PERMISO - If UsuarioActual.TienePermisoProceso(116) Then - If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then - BtnsFacturar.Visible = True - BtnGenerarRemision.Visible = True + If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) Else - BtnsFacturar.Visible = False BtnGenerarRemision.Visible = False End If + Else + BtnsFacturar.Visible = False + BtnGenerarRemision.Visible = False End If End Select @@ -5170,7 +5227,7 @@ Partial Class Ventas 'End If End Sub - Private Sub CargaFormaPago(CveMetodoPago As Integer, Optional CveFormaPago As Integer = -1) + Private Sub CargaFormaPago(CveMetodoPago As Integer) 'FACTURACION 3.3 'permiso para desbloquear la relación entre Método de pago y forma de pago @@ -5186,14 +5243,9 @@ Partial Class Ventas 'DdlFormaPago33.ClearSelection() 'DdlFormaPago33.DataBind() DdlFormaPago33.DataSource = dtt + DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "") DdlFormaPago33.DataBind() - If CveFormaPago > 0 Then - DdlFormaPago33.SelectedValueExist(CveFormaPago) - Else - DdlFormaPago33.SelectedValueExist(dtt.FiltroPrimeroValor("CveFormaPago", "")) - End If - DdlFormaCliente.DataSource = GlobalDTVtaFormaPago DdlFormaCliente.DataBind() DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago @@ -7974,7 +8026,9 @@ Partial Class Ventas 'SOLO GENERAR NC POR DESCUENTO PRONTO PAGO SI EL PAGO ES DE CONTADO If RBLPago.SelectedValue = "2" AndAlso ObjFactura.DescuentoProntoPago > 0 Then Dim ImportePagado = DtPagos.SUM("Importe").ToString().ToDecimal - If (ImportePagado + ObjFactura.DescuentoProntoPago) >= ObjFactura.Total Then + Dim ImporteRNC As Decimal = LblDescuentosRNC.Text.ToDecimal() + + If (ImportePagado + ImporteRNC + ObjFactura.DescuentoProntoPago) >= ObjFactura.Total Then Dim RespFacturaProntoPago = GenerarNCProntoPago(ObjVentas.IniciaTransacSQL(), ObjClientes, ObjContPaq, ObjFactura) If RespFacturaProntoPago.ObjFacturaProntoPago Is Nothing OrElse RespFacturaProntoPago Is Nothing Then @@ -7990,7 +8044,8 @@ Partial Class Ventas Obj2.Add(RespFacturaProntoPago.ObjFacturaProntoPago) End If End If - + Else + ErrorList.Add("No se pudo generar la nota de crédito de pronto pago, no coiciden los pagos con el total a pagar de la factura") End If @@ -9762,6 +9817,22 @@ Partial Class Ventas If Not CveEmpresaCRM > 0 Then ObjFactura.Timbre = PreParaTimbre(ObjFactura) + 'SI SE ESTA EDITANDO ACTUALIZA LOS IMPORTES DEL DT + If GvImpuestosLocales2.Visible AndAlso GvImpuestosLocales2.Enabled Then + For Each gvr As GridViewRow In GvImpuestosLocales2.Rows + If gvr.RowType = DataControlRowType.DataRow Then + + Dim DrsImpuestos = TmpDTImpuestos.Select($"CveImpuestoLocal={gvr.DataKey("CveImpuestoLocal")}") + + If DrsImpuestos IsNot Nothing AndAlso DrsImpuestos.Length = 1 Then + DrsImpuestos(0)("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble + End If + + End If + Next + End If + + 'RMF. faltan impuestos locales If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows.Count > 0 Then @@ -15048,31 +15119,31 @@ Partial Class Ventas RegistraScript("$('#ModalOtrosConceptos').modal('hide')", "hidemodal") End Sub - Private Sub BtnAplicarComplementos_Click(sender As Object, e As EventArgs) Handles AplicarComplementosTimbrado.Click - LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs green" - UpPS.Update() + 'Private Sub BtnAplicarComplementos_Click(sender As Object, e As EventArgs) Handles AplicarComplementosTimbrado.Click + ' LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs green" + ' UpPS.Update() - RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") - End Sub - Private Sub BtnCancelarComplementos_Click(sender As Object, e As EventArgs) Handles CancelarComplementosTimbrado.Click - trEntidad.Visible = False - trContaComplementos.Visible = False - trAmbito.Visible = False - trTipoCampaña.Visible = False + ' RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") + 'End Sub + 'Private Sub BtnCancelarComplementos_Click(sender As Object, e As EventArgs) Handles CancelarComplementosTimbrado.Click + ' trEntidad.Visible = False + ' trContaComplementos.Visible = False + ' trAmbito.Visible = False + ' trTipoCampaña.Visible = False - RblComplementos.SelectedIndex = -1 - TxtIdConta.Text = "" - DdlTipoCampaña.SelectedIndex = -1 - DdlAmbitoComplemento.SelectedIndex = -1 - DdlINEEntidad.SelectedIndex = -1 + ' RblComplementos.SelectedIndex = -1 + ' TxtIdConta.Text = "" + ' DdlTipoCampaña.SelectedIndex = -1 + ' DdlAmbitoComplemento.SelectedIndex = -1 + ' DdlINEEntidad.SelectedIndex = -1 - LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs gray" - UpComplementos.Update() - UpDatosComplementos.Update() - UpPS.Update() + ' LkbAgregarComplementos.CssClass = "btn btn-circle btn-xs gray" + ' UpComplementos.Update() + ' UpDatosComplementos.Update() + ' UpPS.Update() - RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") - End Sub + ' RegistraScript("$('#ModalComplementos').modal('hide')", "hidemodal") + 'End Sub '2019-07-31 OSCAR Nuevo cancela usando el metodo de cancelacion de facturas Protected Sub LnkCancelarComplemetno_Click(sender As Object, e As EventArgs) @@ -19983,7 +20054,7 @@ Partial Class Ventas TxtImporteOtrosContado.Text = "0.00" End Sub - Private Sub LimpiaEscondeContado(Optional CveFormaPagoCliente As Integer = -1) + Private Sub LimpiaEscondeContado() 'LIMPIA DivContado.Visible = False DivTerminal.Visible = False @@ -20002,7 +20073,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then DdlFormaPago33.Enabled = False DdlFormaPago33.SelectedValueExist("20") - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) End If End If @@ -20020,7 +20091,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then DdlFormaPago33.Enabled = True - CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente) + CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) End If End If @@ -20061,9 +20132,17 @@ Partial Class Ventas Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) - DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + Else + DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) + End If + DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero()))) DtCC.Dispose() @@ -20367,7 +20446,7 @@ Partial Class Ventas End Sub Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged - LimpiaEscondeContado(CveFormaPago33Cliente) + LimpiaEscondeContado() End Sub Private Function ValidaPagosContado() As Boolean Dim Retorno = False @@ -24497,6 +24576,48 @@ Partial Class Ventas End Select End Sub + + Protected Sub RblRNCTipoDesc_SelectedIndexChanged(sender As Object, e As EventArgs) + Select Case RblRNCTipoDesc.SelectedValue + Case "1" 'CARGOS + LtlCargoDesc.Text = "CARGOS" + DivRNCCargoDesc.Visible = True + DivRNCBonDesc.Visible = True + + If ChkMostarProductosRNCDesc.Checked Then + DivRNCCargoDescTotal.Visible = False + DivRNCCargoDescDetalle.Visible = True + CargaRNCDetalleDesc() + Else + DivRNCCargoDescTotal.Visible = True + DivRNCCargoDescDetalle.Visible = False + CargaRNCDesc(False, False) + End If + + CargaBonificacionesDesc("-1", True) + + Case "2" 'BONIFICACIONES + DivRNCCargoDesc.Visible = False + DivRNCBonDesc.Visible = True + CargaRNCDesc(True, False) + Case "3" 'AJUSTE/GARANTIAS + LtlCargoDesc.Text = "AJUSTES/GARANTIAS" + DivRNCCargoDesc.Visible = True + DivRNCBonDesc.Visible = True + + If ChkMostarProductosRNCDesc.Checked Then + DivRNCCargoDescTotal.Visible = False + DivRNCCargoDescDetalle.Visible = True + CargaRNCDetalleDesc(True) + Else + DivRNCCargoDescTotal.Visible = True + DivRNCCargoDescDetalle.Visible = False + CargaRNCDesc(False, True) + End If + + CargaBonificacionesDesc("-1", True) + End Select + End Sub Protected Sub ChkMostarProductosRNC_CheckedChanged(sender As Object, e As EventArgs) If ChkMostarProductosRNC.Checked Then DivRNCCargos.Visible = False @@ -24509,6 +24630,12 @@ Partial Class Ventas End If UpModalRemisionesNC.Update() End Sub + Protected Sub ChkMostarProductosRNCDesc_CheckedChanged(sender As Object, e As EventArgs) + + RblRNCTipoDesc_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty) + + UpModalRemisionesNC.Update() + End Sub Private Sub CargaRNC(Optional CveVentaUsado As Integer = -1, Optional CargarBonificaciones As Boolean = False, Optional CargarSoloGarantias As Boolean = False) Dim DtNC As DataTable = Nothing @@ -24572,6 +24699,41 @@ Partial Class Ventas UpModalRemisionesNC.Update() UpDescNC.Update() End Sub + Private Sub CargaRNCDesc(Optional CargarBonificaciones As Boolean = False, Optional CargarSoloGarantias As Boolean = False) + Dim DtNC As DataTable = Nothing + + Dim ObjMovtos As New ClsMovimientos() + If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then + DtNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio") + End If + ObjMovtos.Dispose() + + Me.TmpDTRNCBonificacionesSeleccionadas = Nothing + + Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2") + Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal)) + Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal)) + Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer)) + + If CargarBonificaciones Then + 'Me.TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Copy() + CargaBonificacionesDesc("-1", True) + End If + + If CargarSoloGarantias Then + GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = True") + Else + GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = False") + End If + GvDescNCCargos.DataBind() + + Dim SaldoMaximoUsados As Decimal = Me.TmpDT.SUM("Total", "EsCargo = True").ToDecimal() + Me.TmpDT.SUM("ImporteIVA", "EsCargo = True").ToDecimal() + HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString() + LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados) + + UpDescNC.Update() + End Sub + Private Sub CargaRNCDetalle(Optional CveVentaUsado As Integer = -1) Dim DtNC As DataTable = Nothing @@ -24629,124 +24791,41 @@ Partial Class Ventas UpModalRemisionesNC.Update() UpDescNC.Update() End Sub - Private Sub CargaDescRNC() + Private Sub CargaRNCDetalleDesc(Optional CargarSoloGarantias As Boolean = False) Dim DtNC As DataTable = Nothing + Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then - DtNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio") + If ObjMovtos.GetRemisionesNCCliente(CveCliente, True, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then + Me.TmpDTRNCDetalle = ObjMovtos.DtResultados.Copy() End If ObjMovtos.Dispose() - TmpDTRNCBonificacionesSeleccionadas = Nothing + Me.TmpDTRNCDetalle.Columns.Add(New DataColumn("CveVentaDetalleNCGenerada", GetType(Integer))) - GvDescNCCargos.DataSource = DtNC.FiltraParametros("TipoRNC = 1") - GvDescNCBonificaciones.DataSource = TmpDTRNCBonificacionesSeleccionadas + Me.TmpDTRNCDetalleSelecciondas = Nothing + Me.TmpDTRNCDetalleSelecciondas = TmpDTRNCDetalle.Clone() + Me.TmpDTRNCDetalleSelecciondas.Clear() - Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2") - Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal)) - Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal)) - Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer)) - - GvDescNCCargos.DataBind() - GvDescNCBonificaciones.DataBind() + If CargarSoloGarantias Then + GvDescNCCargosDetalle.DataSource = TmpDTRNCDetalle.FiltraParametros("TipoRNC = 1") + Else + GvDescNCCargosDetalle.DataSource = TmpDTRNCDetalle.FiltraParametros("TipoRNC = 1") + End If + GvDescNCCargosDetalle.DataBind() Dim SaldoMaximoUsados As Decimal = Me.TmpDT.SUM("Total", "EsCargo = True").ToDecimal() + Me.TmpDT.SUM("ImporteIVA", "EsCargo = True").ToDecimal() + If SaldoMaximoUsados > 0 Then - LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados) HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString() + LblSaldoMaximoUsados.Text = String.Format("{0:N2}", SaldoMaximoUsados) Else HdnSaldoMaximoUsados.Value = "0" - LtlSMU.Text = "0" + LblSaldoMaximoUsados.Text = "0" End If - UpDescNC.Update() End Sub - Protected Sub ChkAplicarRNC_CheckedChanged(sender As Object, e As EventArgs) - Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) - Dim GvRow As GridViewRow = DirectCast(ChkAplicarRNC.NamingContainer, GridViewRow) - - CargaBonificacionesDesc(GvRow.DataKey("CveVenta").ToEntero(), ChkAplicarRNC.Checked) - - End Sub - - Private Sub CargaBonificacionesDesc(CveVentaRNCCargo As Integer, AplicarRNC As Boolean) - If TmpDTRNCBonificacionesSeleccionadas Is Nothing Then - TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Clone() - End If - - Dim ListaBon As New List(Of VentasBonificaciones) - Dim DtBon As DataTable = Nothing - Dim SbFiltro As New StringBuilder() - SbFiltro.Append("CveVenta IN(") - Using ObjAcum As New ClsAcumuladores - If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, CveVentaRNCCargo:=CveVentaRNCCargo) Then - DtBon = ObjAcum.DtResultados.Copy() - End If - End Using - - If DtBon IsNot Nothing Then - Dim queryBonificacion = From dr In DtBon - Group By CveVentaBonificacion = dr("CveVentaBonificacion").ToString().ToEntero - Into x = Group - Select New With { - .CveVentaBonificacion = CveVentaBonificacion, - .ImporteBonificacion = x.Sum(Function(s) s("ImporteBonificacion").ToString().ToDecimal), - .IVABonificacion = x.Sum(Function(s) s("IVABonificacion").ToString().ToDecimal) - } - - For Each bon In queryBonificacion - SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion) - ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion}) - Next - SbFiltro.Remove(SbFiltro.Length - 1, 1) - SbFiltro.Append(")") - End If - - If ListaBon.Count > 0 Then - Dim Bonificaciones = Me.TmpDTRNCBonificacionesCliente.Select(SbFiltro.ToString()) - - For Each RowBonificacion As DataRow In Bonificaciones - Dim RNCBonificacion = ListaBon.Where(Function(x) x.CveVentaBonificacion = RowBonificacion("CveVenta").ToString().ToEntero()) - - RowBonificacion("ImporteBonificacion") = RNCBonificacion.Sum(Function(x) x.ImporteBonificacion) - RowBonificacion("IVABonificacion") = RNCBonificacion.Sum(Function(x) x.IVABonificacion) - RowBonificacion("CveVentaRNCCargo") = CveVentaRNCCargo - - If AplicarRNC Then - TmpDTRNCBonificacionesSeleccionadas.Rows.Add(RowBonificacion.ItemArray) - Else - For Each RowEliminar In Me.TmpDTRNCBonificacionesSeleccionadas.Select(SbFiltro.ToString()) - RowEliminar.Delete() - Next - End If - Next - - End If - - 'VERIFICA SI TIENE BONIFICACIONES PARA AGREGARLAS - If TmpDTRNCBonificacionesSeleccionadas IsNot Nothing AndAlso TmpDTRNCBonificacionesSeleccionadas.Rows.Count > 0 Then - DivRNCBonificaciones.Visible = True - Else - DivRNCBonificaciones.Visible = False - End If - - GvDescNCBonificaciones.DataSource = TmpDTRNCBonificacionesSeleccionadas - GvDescNCBonificaciones.DataBind() - - LblSaldoMaximoBonificacion.Text = String.Format("{0:N2}", Me.TmpDTRNCBonificacionesSeleccionadas.SUM("ImporteBonificacion").ToDecimal() + Me.TmpDTRNCBonificacionesSeleccionadas.SUM("IVABonificacion").ToDecimal()) - - UpDescNC.Update() - End Sub - Protected Sub ChkAplicarNCBon_CheckedChanged(sender As Object, e As EventArgs) - Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) - Dim GvRow As GridViewRow = DirectCast(ChkAplicarRNC.NamingContainer, GridViewRow) - - CargaBonificaciones(GvRow.DataKey("CveVenta").ToEntero(), ChkAplicarRNC.Checked) - - End Sub - Private Sub CargaBonificaciones(CveVentaRNCCargo As Integer, AplicarRNC As Boolean) If TmpDTRNCBonificacionesSeleccionadas Is Nothing Then TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Clone() @@ -24817,6 +24896,158 @@ Partial Class Ventas UpModalRemisionesNC.Update() End Sub + + 'Protected Sub ChkAplicarRNC_CheckedChanged(sender As Object, e As EventArgs) + ' Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) + ' Dim SbRNC As New StringBuilder() + + ' For Each GvRow As GridViewRow In GvDescNCCargos.Rows + ' If GvRow.RowType = DataControlRowType.DataRow Then + ' If GvRow.FCCheckBox("ChkAplicar").Checked Then + ' SbRNC.AppendFormat("{0},", GvRow.DataKey("CveVenta")) + ' End If + ' End If + ' Next + + ' If SbRNC.Length > 0 Then + ' SbRNC.Remove(SbRNC.Length - 1, 1) + ' CargaBonificacionesDesc(SbRNC.ToString(), True) + ' Else + ' CargaBonificacionesDesc(SbRNC.ToString(), ChkAplicarRNC.Checked) + ' End If + + 'End Sub + + 'Protected Sub ChkAplicarRNCDesc_CheckedChanged(sender As Object, e As EventArgs) + ' Dim ChkAplicarRNC As CheckBox = DirectCast(sender, CheckBox) + ' Dim SbRNC As New StringBuilder() + + ' For Each GvRow As GridViewRow In GvDescNCCargosDetalle.Rows + ' If GvRow.RowType = DataControlRowType.DataRow Then + ' If GvRow.FCCheckBox("ChkAplicar").Checked Then + ' SbRNC.AppendFormat("{0},", GvRow.DataKey("CveVenta")) + ' End If + ' End If + ' Next + + ' If SbRNC.Length > 0 Then + ' SbRNC.Remove(SbRNC.Length - 1, 1) + ' CargaBonificacionesDesc(SbRNC.ToString(), True) + ' Else + ' CargaBonificacionesDesc(SbRNC.ToString(), ChkAplicarRNC.Checked) + ' End If + + 'End Sub + + + Private Sub CargaBonificacionesDesc(CvesVentaRNCCargo As String, AplicarRNC As Boolean) + If TmpDTRNCBonificacionesSeleccionadas Is Nothing Then + TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Clone() + Else + TmpDTRNCBonificacionesSeleccionadas.Clear() + End If + + Dim ListaVentasRNCCargos As String() = {} + + If CvesVentaRNCCargo <> "-1" OrElse Not String.IsNullOrEmpty(CvesVentaRNCCargo) Then + ListaVentasRNCCargos = CvesVentaRNCCargo.Split(","c) + End If + + Dim ListaBon As New List(Of VentasBonificaciones) + Dim DtBon As DataTable = Nothing + Dim SbFiltro As New StringBuilder() + SbFiltro.Append("CveVenta IN(") + + Using ObjAcum As New ClsAcumuladores + For Each CveVentaRNC As String In ListaVentasRNCCargos + If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, CveVentaRNCCargo:=CveVentaRNC.ToEntero()) Then + Dim DtDist = ObjAcum.DtResultados.Copy() + + If DtBon Is Nothing Then + DtBon = DtDist.Clone() + End If + + DtBon.Merge(DtDist) + End If + Next + End Using + + If DtBon IsNot Nothing Then + Dim queryBonificacion = From dr In DtBon + Group By CveVentaBonificacion = dr("CveVentaBonificacion").ToString().ToEntero, CveVentaRNCCargo = dr("CveVentaRNCCargo").ToString().ToEntero + Into x = Group + Select New With { + .CveVentaRNCCargo = CveVentaRNCCargo, + .CveVentaBonificacion = CveVentaBonificacion, + .ImporteBonificacion = x.Sum(Function(s) s("ImporteBonificacion").ToString().ToDecimal), + .IVABonificacion = x.Sum(Function(s) s("IVABonificacion").ToString().ToDecimal) + } + + For Each bon In queryBonificacion + SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion) + ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion}) + Next + + SbFiltro.Remove(SbFiltro.Length - 1, 1) + SbFiltro.Append(")") + End If + + If ListaBon.Count > 0 Then + Dim Bonificaciones = Me.TmpDTRNCBonificacionesCliente.Select(SbFiltro.ToString()) + + For Each RowBonificacion As DataRow In Bonificaciones + Dim RNCBonificacion = ListaBon.Where(Function(x) x.CveVentaBonificacion = RowBonificacion("CveVenta").ToString().ToEntero()) + + RowBonificacion("ImporteBonificacion") = RNCBonificacion.Sum(Function(x) x.ImporteBonificacion) + RowBonificacion("IVABonificacion") = RNCBonificacion.Sum(Function(x) x.IVABonificacion) + RowBonificacion("CveVentaRNCCargo") = RNCBonificacion(0).CveVentaRNCCargo + + If AplicarRNC Then + TmpDTRNCBonificacionesSeleccionadas.Rows.Add(RowBonificacion.ItemArray) + Else + For Each RowEliminar In Me.TmpDTRNCBonificacionesSeleccionadas.Select(SbFiltro.ToString()) + RowEliminar.Delete() + Next + End If + Next + + End If + + 'VERIFICA SI TIENE BONIFICACIONES PARA AGREGARLAS + If TmpDTRNCBonificacionesSeleccionadas IsNot Nothing AndAlso TmpDTRNCBonificacionesSeleccionadas.Rows.Count > 0 Then + DivRNCBonDesc.Visible = True + Else + DivRNCBonDesc.Visible = False + End If + + GvDescNCBonificaciones.DataSource = TmpDTRNCBonificacionesSeleccionadas + GvDescNCBonificaciones.DataBind() + + 'SI ES CREDITO + If RBLPago.SelectedValue = "1" Then + Dim ImporteUsados As Decimal = Me.TmpDTRNCBonificacionesSeleccionadas.SUM("ImporteBonificacion").ToDecimal() + Me.TmpDTRNCBonificacionesSeleccionadas.SUM("IVABonificacion").ToDecimal() + HdnSMUBonDesc.Value = ImporteUsados.ToString() + LblSaldoMaximoBonificacion.Text = String.Format("{0:N2}", ImporteUsados) + 'SI ES CONTADO + ElseIf RBLPago.SelectedValue = "2" Then + Dim ImporteUsados As Decimal = 0 + + For Each Row As DataRow In Me.TmpDT.FiltraParametros("EsCargo = True").Rows + Dim PUBonificacion As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Bonificacion", $"CvePSCargo={Row("CvePS")}").ToDecimal() + + Dim TotalBonificacion As Decimal = (Row("Cantidad").ToString().ToDecimal() * PUBonificacion) + Dim IVABonificacion As Decimal = (TotalBonificacion * Row("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2) + + ImporteUsados += TotalBonificacion + IVABonificacion + Next + HdnSMUBonDesc.Value = ImporteUsados.ToString() + LblSaldoMaximoBonificacion.Text = String.Format("{0:N2}", ImporteUsados) + + End If + + UpDescNC.Update() + End Sub + Protected Sub GvDescNCCargos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDescNCCargos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") @@ -24842,6 +25073,7 @@ Partial Class Ventas e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") End If End Sub + Protected Sub GvRemisionesNCDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRemisionesNCDetalle.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CveVentaDetalleRNC").ToEntero() = 0 Then @@ -24851,13 +25083,22 @@ Partial Class Ventas End If End If End Sub + Protected Sub GvDescNCCargosDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDescNCCargosDetalle.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CveVentaDetalleRNC").ToEntero() = 0 Then + e.Row.CssClass = "Totales" + e.Row.FCCheckBox("ChkAplicar").Visible = False + e.Row.FCTextBox("TxtCantidadRNC").Visible = False + End If + End If + End Sub + Protected Sub GvRemisionesNCBon_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRemisionesNCBon.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCBonChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaSaldoRNCBonChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble});") End If End Sub - Protected Sub DdlNCNivelImporte_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ImporteReferencia As Double = 0, PorcentajeMaximo As Double = 0 If Not AplicaNCMasiva Then @@ -25123,7 +25364,7 @@ Partial Class Ventas TmpDTDescNC = TmpDT.Clone() TmpDTDescNC.Clear() - If UsuarioActual.CveEmpresa = 140 Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If AplicaRNCXDetalle Then CrearDTNCCargoDetalle(ListaNCDesc, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) Else @@ -25141,10 +25382,10 @@ Partial Class Ventas 'EN LA NC DE BONIFICACION EL CONCEPTO DEBE SER SIEMPRE 'BONIFICACION POR USADO' Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCBonificacion).FiltroPrimero("") If DrPSBonificacion IsNot Nothing Then - CrearDTNCBonificacion(ListaNCDesc, DtImpuestosBonificacion, TmpDTDescNC, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + CrearDTNCBonificacionDesc(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) + CrearDTNCBonificacionDesc(DtImpuestosBonificacion, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) End If Else @@ -25174,7 +25415,7 @@ Partial Class Ventas Dim Ajuste As Decimal = 0 'DEBE AGREGAR LOS USADOS DE LA REMISION EN LA NOTA DE CREDITO - If UsuarioActual.CveEmpresa = 140 AndAlso (ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0) Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0) Then If AplicaRNCXDetalle Then CrearDTNCCargoDetalle(ListaRemisionesNC, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) @@ -25189,6 +25430,7 @@ Partial Class Ventas If ArrayNC.Length > 4 Then NCBonificacion = ArrayNC(4).ToEntero() End If + Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCBonificacion).FiltroPrimero("") If DrPSBonificacion IsNot Nothing Then CrearDTNCBonificacion(ListaRemisionesNC, DtImpuestosBonificacion, TmpDT, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) @@ -25349,8 +25591,8 @@ Partial Class Ventas 'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then Obs = RowUsado("CodigoPS").ToString() - Else - Obs = RowUsado("Obs").ToString() + 'Else + ' Obs = RowUsado("Obs").ToString() End If If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then @@ -25418,7 +25660,6 @@ Partial Class Ventas Next End Sub - Private Sub CrearDTNCBonificacion(ListaNC As List(Of Modelos.Factura), DtImpuestosBonificacion As DataTable, ByRef TmpDTNC As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) 'SI TIENE DE BONIFICACION LOS AGREGA If DtImpuestosBonificacion IsNot Nothing AndAlso ListaNCBonificacion IsNot Nothing AndAlso ListaNCBonificacion.Count > 0 Then @@ -25503,6 +25744,92 @@ Partial Class Ventas Next End If End Sub + Private Sub CrearDTNCBonificacionDesc(DtImpuestosBonificacion As DataTable, ByRef TmpDTNC As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) + 'SI TIENE DE BONIFICACION LOS AGREGA + If DtImpuestosBonificacion IsNot Nothing AndAlso ListaNCBonificacion IsNot Nothing AndAlso ListaNCBonificacion.Count > 0 Then + + TmpDTDescNCBonificacion = TmpDTNC.Clone() + TmpDTDescNCBonificacion.Clear() + + For Each RNCBonificacion In ListaNCBonificacion + Dim UltimoRenglonRNC As Integer = 1 + Dim TotalAcumuladoRNC As Decimal = 0 + Dim Terminar As Boolean = False + + 'Dim RNCCargo = ListaNC.Where(Function(f) f.CveVenta = RNCBonificacion.CveVentaRNCCargo).FirstOrDefault() + + For Each RowCargo As DataRow In TmpDT.FiltraParametros("EsCargo = True", Orderby:="PU").Rows + + Dim PorcentajeAplicado = (RNCBonificacion.TotalRemNCAplicado / RNCBonificacion.Total) + + Dim Cantidad As Decimal = RowCargo("Cantidad").ToString().ToDecimal() '* PorcentajeAplicado + + Dim Obs = RowCargo("CodigoPS").ToString() + + If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then + Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim()) + End If + + 'Dim ImportePU = RowCargo("PUBonificacion").ToString().ToDecimal + + Dim ImportePU As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal() + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * ImportePU) + + Dim ImporteIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteIEPS = (TotalCalculableImpuestos * RowCargo("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetISR = (TotalCalculableImpuestos * RowCargo("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2) + Dim ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + 'SI EL IMPORTE ES MAYOR REALIZA EL AJUSTE + If TotalAcumuladoRNC > RNCBonificacion.TotalRemNCAplicado Then + Terminar = True + 'RESTA LO SUMANDO DEL ACUMULADO + TotalAcumuladoRNC -= (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + Dim Diferencia As Decimal = RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC + + Dim TotalPartida As Decimal = (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + Dim PorcentajePorAplicar As Decimal = (Diferencia / TotalPartida) + + Cantidad = Cantidad * PorcentajePorAplicar + + TotalCalculableImpuestos = (Cantidad * ImportePU) + ImporteIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + ImporteIEPS = (TotalCalculableImpuestos * RowCargo("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2) + ImporteRetIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2) + ImporteRetISR = (TotalCalculableImpuestos * RowCargo("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2) + + ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + End If + + 'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE + If UltimoRenglonRNC = TmpDT.FiltraParametros("EsCargo = True", Orderby:="PU").Rows.Count Then + Dim Ajuste As Decimal = 0 + If Math.Abs(RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC) > 0.00 Then + Ajuste = RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC + + ImporteIVA += Ajuste + End If + End If + UltimoRenglonRNC += 1 + + AgregaTempDT(TmpDTDescNCBonificacion, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), + DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto, + Obs, Cantidad, ImportePU, RowCargo("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowCargo("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, + RowCargo("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, RowCargo("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, 0, ImporteTotal, "", "", -1, -1, + DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1) + Next + + Next + End If + End Sub Private Function CargaDtImpuestosNC(CveVentaNC As Integer, Importe As Decimal, Optional NCDescuento As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional NivelTotal As Integer = 1, Optional AplicaNCUsado As Boolean = False) As DataTable Dim Total As Decimal = 0, SubTotal As Decimal = 0, Saldo As Decimal = 0 @@ -27112,7 +27439,7 @@ Partial Class Ventas Next Return Nothing End Function - Private Function AgregaPSCotizacion() As Boolean + Private Function AgregaPSCotizacion(Optional RecalculaImpustosLocales As Boolean = True) As Boolean 'Dim ObjFactCotizacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa) 'Dim TotalCotizacion As Decimal = ObjFactCotizacion.Total 'TmpDT.SUM("TotalImporte").ToDecimal() + TmpDT.SUM("ImporteIVA").ToDecimal() + TmpDT.SUM("ImporteIEPS").ToDecimal() - TmpDT.SUM("ImporteRetIVA").ToDecimal() - TmpDT.SUM("ImporteRetISR").ToDecimal() @@ -27142,7 +27469,7 @@ Partial Class Ventas ' LastRow("ImporteIVA") = LastRow("ImporteIVA").ToString().ToDecimal() - Diferencia 'End If - CalculaTotalesVenta() + CalculaTotalesVenta(RecalculaImpuestosLocales:=RecalculaImpustosLocales) Return True Else Return False @@ -27180,7 +27507,7 @@ Partial Class Ventas End If ObjClientes.Dispose() - If Not AgregaPSCotizacion() Then + If Not AgregaPSCotizacion(RecalculaImpustosLocales:=False) Then Alert("Ocurrió un error al agregar los conceptos de la cotización. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Return False End If @@ -27603,8 +27930,8 @@ Partial Class Ventas If ChkRemProductos.Checked Then Valido = Not (From GvRow In GvRemPS.Rows.Cast(Of GridViewRow) - Let Cantidad = GvRow.FCTextBox("TxtCantidadRem").Text.Trim().ToEntero(), Aplicar = GvRow.FCCheckBox("Chk").Checked - Where GvRow.RowType = DataControlRowType.DataRow AndAlso Cantidad <= 0 AndAlso Aplicar + Let Cantidad = GvRow.FCTextBox("TxtCantidadRem").Text.Trim().ToDecimal(), Aplicar = GvRow.FCCheckBox("Chk").Checked + Where GvRow.RowType = DataControlRowType.DataRow AndAlso Cantidad <= 0D AndAlso Aplicar Select GvRow ).Any @@ -28810,6 +29137,7 @@ Partial Class Ventas TotalRNC += TotalRNCDetalle + End If End If @@ -28936,11 +29264,13 @@ Partial Class Ventas End Sub Protected Sub LnkDescuentosRNC_Click(sender As Object, e As EventArgs) - CargaDescRNC() + RblRNCTipoDesc_SelectedIndexChanged(RblRNCTipoDesc, EventArgs.Empty) + RegistraScript("$('#ModalAplicarDescuentoNC').modal('show'); ") End Sub Protected Sub BtnAplicarDesc_Click(sender As Object, e As EventArgs) Try + Me.AplicaRNCXDetalle = False Dim DrPS As DataRow = Nothing Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) @@ -28972,11 +29302,82 @@ Partial Class Ventas End If Dim TotalRemNCAplicado As Decimal = 0 - For Each GvRow As GridViewRow In GvDescNCCargos.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - If GvRow.FCCheckBox("ChkAplicar").Checked Then - Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) - RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + + Dim LimiteUsados As Decimal = LblSaldoMaximoUsados.Text.Trim().ToDecimal() + + If RblRNCTipoDesc.SelectedValue.Contiene("1", "3") Then + If ChkMostarProductosRNCDesc.Checked Then + TmpDTRNCDetalleSelecciondas.Clear() + Dim TotalAcumulado As Decimal = 0 + Me.AplicaRNCXDetalle = True + + For Each GvRow As GridViewRow In GvDescNCCargosDetalle.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim Rows = TmpDTRNCDetalle.Select($"CveVentaDetalleRNC = {GvRow.DataKey("CveVentaDetalleRNC").ToEntero()}") + For Each row In Rows + row("Cantidad") = GvRow.FCTextBox("TxtCantidadRNC").Text.ToDecimal() + + Dim TotalCalculableImpuestos As Decimal = row("Cantidad").ToString().ToDecimal() * row("PU").ToString().ToDecimal() + Dim IVA As Decimal = (TotalCalculableImpuestos * row("PorcentajeIVA").ToString().ToDecimal()).RoundSQL() + + row("IVA") = IVA + row("Total") = (TotalCalculableImpuestos + IVA).RoundSQL + + TmpDTRNCDetalleSelecciondas.Rows.Add(row.ItemArray) + Next + End If + End If + Next + + + If TmpDTRNCDetalleSelecciondas.SUMD("Total") > LblSaldoMaximoUsados.Text.ToDecimal() Then + Alert($"El importe no debe exceder el saldo maximo utilizable. Importe:{TmpDTRNCDetalleSelecciondas.SUMD("Total"):N2}", TipoMensaje.MsgAdvertencia) + TmpDTRNCDetalleSelecciondas.Clear() + ListaNCDesc.Clear() + Exit Sub + End If + + Dim TerminarCiclo As Boolean = False + + For Each Dr As DataRow In TmpDTRNCDetalleSelecciondas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows + Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa) + + Dim TotalRNC As Decimal = 0 + For Each GvRow As GridViewRow In GvDescNCCargosDetalle.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + If GvRow.FCCheckBox("ChkAplicar").Checked AndAlso GvRow.DataKey("CveVenta").ToEntero() = Dr("CveVenta").ToString().ToEntero() Then + + Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidadRNC").Text.ToDecimal() + Dim PU = GvRow.DataKey("PU").ToDecimal() + Dim PorcentajeIVA As Decimal = GvRow.DataKey("PorcentajeIVA").ToDecimal() + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * PU) + Dim ImporteIVA As Decimal = (TotalCalculableImpuestos * PorcentajeIVA).RoundSQL(2) + + Dim TotalRNCDetalle As Decimal = (TotalCalculableImpuestos + ImporteIVA) + + TotalRNC += TotalRNCDetalle + + If RemNC.CveVentaRNCCargo <= 0 Then + RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVenta").ToEntero() + End If + + End If + + End If + Next + TotalAcumulado += TotalRNC + + 'SI SE EXECE RESTA AL ULTIMO + If TotalAcumulado > LblSaldoMaximoUsados.Text.ToDecimal() Then + TerminarCiclo = True + TotalAcumulado -= TotalRNC + TotalRNC = LblSaldoMaximoUsados.Text.ToDecimal() - TotalAcumulado + End If + + RemNC.TotalRemNCAplicado = TotalRNC TotalRemNCAplicado += RemNC.TotalRemNCAplicado If RemNC.TotalRemNCAplicado <= 0 Then @@ -28986,76 +29387,144 @@ Partial Class Ventas End If ListaNCDesc.Add(RemNC) - End If - End If - Next - 'SI TIENE ALGUN AJUSTE O GARANTIA - If ListaNCDesc.Any(Function(RNC) RNC.Num2 = 1) Then - For Each RNC In ListaNCDesc.Where(Function(x) x.Num2 = 1) - Dim Salir As Boolean = False + If TerminarCiclo Then + Exit For + End If + Next - Dim NCAjuste As Integer = -1 - Dim NCGarantiaTotal As Integer = -1 - If ArrayNC.Length > 2 Then - NCAjuste = ArrayNC(1).ToEntero() - NCGarantiaTotal = ArrayNC(2).ToEntero() + If ListaNCDesc.Sum(Function(x) x.TotalRemNCAplicado) > LblSaldoMaximoUsados.Text.ToDecimal() Then + Alert($"El importe no debe exceder el saldo maximo utilizable", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + TmpDTRNCDetalleSelecciondas.Clear() + Exit Sub End If - Using ObjAcum As New ClsAcumuladores - If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then - 'SI ES GARANTIA TOTAL - If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCGarantiaTotal, AplicaParaVenta:=1).Rows(0) - Salir = True - Else - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCAjuste, AplicaParaVenta:=1).Rows(0) + Else + + For Each GvRow As GridViewRow In GvDescNCCargos.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + Exit Sub + End If + + ListaNCDesc.Add(RemNC) End If End If - End Using + Next - If Salir Then - Exit For - End If - Next - End If + End If - Dim LimiteUsados As Decimal = LblSaldoMaximoUsados.Text.Trim().ToDecimal() + 'SI TIENE ALGUN AJUSTE O GARANTIA + If ListaNCDesc.Any(Function(RNC) RNC.Num2 = 1) Then + For Each RNC In ListaNCDesc.Where(Function(x) x.Num2 = 1) + Dim Salir As Boolean = False - 'VERIFICA EL LIMITE DE LOS USADOS - If TotalRemNCAplicado > LimiteUsados Then - Alert($"La suma de las remisiones de nota de crédito de tipo 'Cargo' no debe superar el total de Usados.
Total RNC: {TotalRemNCAplicado:N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) - ListaNCDesc.Clear() - Exit Sub - End If - - - For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - If GvRow.FCCheckBox("ChkAplicar").Checked Then - Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) - RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() - RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() - TotalRemNCAplicado += RemNC.TotalRemNCAplicado - - If RemNC.TotalRemNCAplicado <= 0 Then - Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) - ListaNCBonificacion.Clear() - Exit Sub + Dim NCAjuste As Integer = -1 + Dim NCGarantiaTotal As Integer = -1 + If ArrayNC.Length > 2 Then + NCAjuste = ArrayNC(1).ToEntero() + NCGarantiaTotal = ArrayNC(2).ToEntero() End If - ListaNCBonificacion.Add(RemNC) - End If + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then + 'SI ES GARANTIA TOTAL + If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCGarantiaTotal, AplicaParaVenta:=1).Rows(0) + Salir = True + Else + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCAjuste, AplicaParaVenta:=1).Rows(0) + End If + End If + End Using + + If Salir Then + Exit For + End If + Next End If - Next - Dim LimiteBonficaciones As Decimal = LblSaldoMaximoBonificacion.Text.Trim().ToDecimal() + 'VERIFICA EL LIMITE DE LOS USADOS + If TotalRemNCAplicado > LimiteUsados Then + Alert($"La suma de las remisiones de nota de crédito de tipo 'Cargo' no debe superar el total de Usados.
Total RNC: {TotalRemNCAplicado:N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + Exit Sub + End If + + For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaNCBonificacion.Clear() + Exit Sub + End If + + ListaNCBonificacion.Add(RemNC) + End If + End If + Next + + Dim LimiteBonficaciones As Decimal = LblSaldoMaximoBonificacion.Text.Trim().ToDecimal() + + 'VERIFICA EL LIMITE DE LOS USADOS + If ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado) > LimiteBonficaciones Then + Alert($"La suma de las remisiones de nota de crédito de tipo 'Bonificación' no debe superar el limite.
Total RNC: {ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado):N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + ListaNCBonificacion.Clear() + Exit Sub + End If + + ElseIf RblRNCTipoDesc.SelectedValue.Contiene("2") Then + + For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaNCBonificacion.Clear() + Exit Sub + End If + + ListaNCBonificacion.Add(RemNC) + End If + End If + Next + + Dim LimiteBonficaciones As Decimal = LblSaldoMaximoBonificacion.Text.Trim().ToDecimal() + + 'VERIFICA EL LIMITE DE LOS USADOS + If ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado) > LimiteBonficaciones Then + Alert($"La suma de las remisiones de nota de crédito de tipo 'Bonificación' no debe superar el limite.
Total RNC: {ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado):N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) + ListaNCDesc.Clear() + ListaNCBonificacion.Clear() + Exit Sub + End If + + 'SI SON SOLO BONIFICACIONES GENERA LA NC PRINCIPAL EN BASE A ESAS + If RblRNCTipoDesc.SelectedValue.ToString() = "2" AndAlso ListaNCDesc.Count = 0 Then + ListaNCDesc.AddRange(ListaNCBonificacion) + ListaNCBonificacion.Clear() + End If - 'VERIFICA EL LIMITE DE LOS USADOS - If ListaNCBonificacion.Sum(Function(x) x.TotalRemNCAplicado) > LimiteBonficaciones Then - Alert($"La suma de las remisiones de nota de crédito de tipo 'Cargo' no debe superar el total de Usados.
Total RNC: {TotalRemNCAplicado:N2}.
Total Usados: {LimiteUsados:N2}", TipoMensaje.MsgAdvertencia) - ListaNCDesc.Clear() - Exit Sub End If Dim TotalProntoPago As Decimal = 0 @@ -29071,12 +29540,10 @@ Partial Class Ventas Dim CvePS = DrPS("CvePS").ToString().ToEntero() - AplicarNC(CvePS, True) + AplicarNC(CvePS, NCDescuento:=True) Catch ex As Exception OnError("Ocurrió un error al aplicar remisiones de nota de crédito", ex) End Try - - UpPS.Update() RegistraScript("$('#ModalAplicarDescuentoNC').modal('hide'); ")