From 87f016d59f6f9ffaab9b47a30fdf93489c963a40 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Wed, 17 Mar 2021 13:31:14 -0700 Subject: [PATCH 1/4] Quitar la parte de eventos ya que lleva a un modulo obsoleto --- Inicio.aspx | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Inicio.aspx b/Inicio.aspx index f1548a284..20d7705e5 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -535,7 +535,7 @@ -
+ <%--
@@ -558,7 +558,7 @@ - --%> + --
Eventos @@ -603,7 +603,7 @@
-
+
--%>
<%-- DIRECTORIO TELEFONICO --%> From 834fd9cb2878e483bb1208490a31a58da66bf01a Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 18 Mar 2021 08:52:49 -0700 Subject: [PATCH 2/4] ERROR DE ANALISIS DE CREDITO --- Ventas/Clientes.aspx.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 4b1283c3a..3a0aabf9f 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -7981,7 +7981,11 @@ Partial Class Clientes Dim Row2 As DataRow = Nothing Row2 = Dt2.NewRow() LtlLimiteCreditoModal.Text = LimiteCredito.FormatoNumero() - Row2("limite") = LimiteCredito - Saldo + If LimiteCredito > 0 Then + Row2("limite") = LimiteCredito - Saldo + Else + Row2("limite") = 0 + End If Row2("saldo") = Saldo Dt2.Rows.Add(Row2) Dim query2 = From s In Dt2.AsEnumerable() Select New With {.year = "", .limite = s("limite").ToString(), .saldo = s("saldo").ToString()} From 1b3858e88edbc528910a60e9af9ef84bab3d4c09 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 18 Mar 2021 08:53:12 -0700 Subject: [PATCH 3/4] Proveedor/PRODUCTO POR ENTREGAR --- Compras/Proveedores.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 5673f5984..3aaf2a0d7 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2254,7 +2254,7 @@ - + <%--
@@ -2296,7 +2296,7 @@
- + --%> From 4d305c791b61768cca90f8798ba120a13f6c3310 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 18 Mar 2021 10:37:15 -0700 Subject: [PATCH 4/4] ClsPaginas modulos ventas detalle --- App_Code/ClsPaginas.vb | 4 +++- Compras/Compras.aspx.vb | 12 +++++++----- Ventas/Promociones.aspx.vb | 4 ++-- 3 files changed, 12 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 148b96b30..f3c4f4b4a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5033,7 +5033,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/CatCobranzaEstatus.aspx".ToUpper(), 7003) PaginaDict.Add("/Ventas/CatCobranzaEstatusTurno.aspx".ToUpper(), 7004) PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720) - PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 721) + PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 720) PaginaDict.Add("/Ventas/MetasVendedores.aspx".ToUpper(), 722) PaginaDict.Add("/Ventas/CatMetasVendedores.aspx".ToUpper(), 723) PaginaDict.Add("/Ventas/RepAuxiliarFacturas.aspx".ToUpper(), 567) @@ -5177,6 +5177,8 @@ Public Class ClsPaginas PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032) + + 'Antes de aquí. Application("GlobalSIGAppPaginas") = PaginaDict diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9ee13e965..bff44fe3a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8505,10 +8505,12 @@ Partial Class Compras_Compras Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) End If - Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar) BtnGuardar.Enabled = False UpFacturar.Update() + Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar) + + End If Else @@ -13208,7 +13210,7 @@ Partial Class Compras_Compras End If 'CONTADO - Select Case RBLContado.SelectedValue + Select Case RBLContado.SelectedValue Case "1" ' Bancos PnlContadoBancos.Visible = True TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero @@ -13257,7 +13259,7 @@ Partial Class Compras_Compras End Sub Protected Sub BtnContado_Click(sender As Object, e As EventArgs) - TxtRembolsoNumero.Text = TxtNumeroReembolso.Text + TxtRembolsoNumero.Text = TxtNumeroReembolso.Text RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal")) End Sub @@ -14494,7 +14496,7 @@ Partial Class Compras_Compras Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal() Dim RetIVACompra As Decimal = TxtRetIVA.Text.ToDecimal() Dim RetISRCompra As Decimal = TxtRetISR.Text.ToDecimal() - Dim Acumulado As Decimal = 0 + Dim Acumulado As Decimal = 0 'Dim TotalCalculable As Decimal = TotalCompra - IEPSCompra + RetIVACompra + RetISRCompra @@ -19258,7 +19260,7 @@ Partial Class Compras_Compras GuardaAnticipos(Nothing, Nothing) End Sub - Protected Sub BtnNCInvAlmacen_Click(sender As Object, e As EventArgs) + Protected Sub BtnNCInvAlmacen_Click(sender As Object, e As EventArgs) 'Dim ObjCompras As New ClsCompras 'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 1acec290c..54879aca4 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -463,7 +463,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then TieneError = True Exit For End If @@ -473,7 +473,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then TieneError = True Exit For End If