From 7f2e786df37c3fc3ac8445fd893f2457256d3fd6 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Apr 2022 14:00:37 -0700 Subject: [PATCH 01/15] =?UTF-8?q?--=20cambio=20en=20texto=20de=20cancelaci?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepCancelacionesPorRespuesta.aspx | 15 ++++++++++----- Ventas/RepCancelacionesPorRespuesta.aspx.cs | 13 +++++++++++-- 2 files changed, 21 insertions(+), 7 deletions(-) diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx b/Ventas/RepCancelacionesPorRespuesta.aspx index a159d3b16..8e7c92dde 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx +++ b/Ventas/RepCancelacionesPorRespuesta.aspx @@ -70,7 +70,7 @@ - + @@ -121,21 +121,26 @@ - +
- +
- +
- + + + + + + diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index e86360122..69b5c4009 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -77,6 +77,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas GvRefacturaciones.DataSource = DtRefacturar; GvRefacturaciones.DataBind(); } + GvDatos.DataBind(); UPDatos.Update(); @@ -569,11 +570,19 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas { if (e.Row.RowType == DataControlRowType.DataRow) { - if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion").ToString())) + GridView gv = (GridView)sender; + if (!(e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion").ToString()))) { - e.Row.Cells[12].Text = ""; + e.Row.FCHyperLink("HplRefact").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", e.Row.DBCampo("CveVenta")); + e.Row.FCHyperLink("HplRefact").Visible = true; } + if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID=="GvDatos") + { + e.Row.FCLinkButton("BtnValidar").Text= "02"; + } + // + //if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23) //{ // e.Row.FCLinkButton("LnkValidarRefac").Visible = false; From b8ded4ee93678e3cae0548580b96b3c122f9a9c2 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Apr 2022 14:00:50 -0700 Subject: [PATCH 02/15] =?UTF-8?q?redireccionar=20a=20la=20p=C3=B3liza=20se?= =?UTF-8?q?gun=20el=20tipo=20de=20contabilidad?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/PopUpAuxiliar.aspx.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index 7658cd839..d7547cfe2 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -198,7 +198,13 @@ Partial Class PopUpAuxiliar e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then - Dim Liga As String = String.Format("", e.Row.DBCampo("IdPoliza")) + Dim Liga As String + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + Liga = String.Format("", e.Row.DBCampo("CvePrePoliza")) + Else + Liga = String.Format("", e.Row.DBCampo("IdPoliza")) + End If + e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}", Liga, e.Row.DBCampo("Poliza")) End If From a43142c65bf62a476a87de83ba407ee6d4ecb7df Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Apr 2022 14:01:15 -0700 Subject: [PATCH 03/15] =?UTF-8?q?--=20poner=20un=20timmer=20cuando=20se=20?= =?UTF-8?q?activa=20la=20modalidad=20de=20liquidaci=C3=B3n,=20para=20que?= =?UTF-8?q?=20no=20expire=20el=20tiempo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx | 12 +++++++++--- Ventas/ClientesAbonar.aspx.vb | 10 +++++++--- 2 files changed, 16 insertions(+), 6 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index f2558f45d..4bb0bc047 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -196,7 +196,13 @@
Liquidación:
- + + + + + + +
@@ -566,7 +572,7 @@
- + @@ -606,7 +612,7 @@
- + diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 2b6da06bb..3a61273de 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1499,7 +1499,7 @@ Partial Class Ventas_ClientesAbonar End If End If - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then + If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then If ObjMov.ValorPolizaDescuadre > 0 Then MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia End If @@ -2871,11 +2871,15 @@ Partial Class Ventas_ClientesAbonar #Region "LIQUIDACION" + Protected Sub TimTiempo_Tick(sender As Object, e As EventArgs) + Dim a As String = "se recarga para que no pierda sesíón el registro puede tardar más de una hora en llenar todos los datos" 'solo para que se ejecute sin que afecte a lo demás + End Sub + Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs) If ChkLiquidacion.Checked Then - + TimTiempo.Enabled = True 'para que no me saque GvCxC.Columns(4).Visible = False GvCxC.Columns(5).Visible = False GvCxC.Columns(6).Visible = False @@ -2899,6 +2903,7 @@ Partial Class Ventas_ClientesAbonar Else + TimTiempo.Enabled = False GvCxC.Columns(4).Visible = True GvCxC.Columns(5).Visible = True GvCxC.Columns(6).Visible = True @@ -2919,7 +2924,6 @@ Partial Class Ventas_ClientesAbonar GvCxC.Columns(27).Visible = True GvCxC.Columns(28).Visible = True - End If UPVentas.Update() From c60039d57fd74fab5607e26b1b2854ae5e4adf9a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Apr 2022 14:01:50 -0700 Subject: [PATCH 04/15] =?UTF-8?q?--=20mejora=20en=20la=20visualizaci=C3=B3?= =?UTF-8?q?n=20del=20error,=20al=20activar=20autoconta=20E140?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 60ba09742..14ba6e119 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9146,6 +9146,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 140 Then AutoConta = True + idCuentaContabilizacion = 10 End If If AutoConta Then From 684a84fec1924ed4583ed60791ad9be6348368a4 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 28 Apr 2022 18:04:59 -0700 Subject: [PATCH 05/15] =?UTF-8?q?--=20correcci=C3=B3n=20del=20saldo=20de?= =?UTF-8?q?=20la=20compra=20al=20aplicar=20anticipo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 333a8f44d..6497c6564 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -5827,8 +5827,7 @@ $get("HdnArchivoEstatus").value = "error"; alert("Ocurrió un error al intentar subir el archivo, por favor intentelo de nuevo."); } - - + function chkAnt(t, txt, importe, TotalSaldo, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal) { var Total = ToDouble($get('TxtTotal').value); @@ -5844,7 +5843,7 @@ } //var SaldoCompra = parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2)); - var SaldoCompra = (Total - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo + var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo From e172b080b6d18063b8e602d134059a772cbda151 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 28 Apr 2022 18:48:44 -0700 Subject: [PATCH 06/15] Validacion de existencias. bloquear facturacion del modulo de cotizacion --- Ventas/Ventas.aspx.vb | 70 +++++++++++++++++++++++++++++++++++++------ 1 file changed, 61 insertions(+), 9 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 60ba09742..39c5bc7e1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6231,7 +6231,13 @@ Partial Class Ventas 'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES If CveVenta <= 0 Then - LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() + Dim EsModuloCotizacion As Boolean = False + If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() = "Cot" Then + EsModuloCotizacion = True + End If + If Not EsModuloCotizacion Then + LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() + End If End If If UsuarioActual.Empresa.CvePlataforma = 2 Then LnkOCs.Visible = False @@ -7120,7 +7126,13 @@ Partial Class Ventas 'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES If CveVenta <= 0 Then - LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() + Dim EsModuloCotizacion As Boolean = False + If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() = "Cot" Then + EsModuloCotizacion = True + End If + If Not EsModuloCotizacion Then + LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() + End If End If ObjCliente.Dispose() @@ -7693,10 +7705,31 @@ Partial Class Ventas If ValidaExistencia AndAlso DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False AndAlso Not RegistroxOC Then 'VALIDA EXISTENCIA If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140, 153}) Then - If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then - Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) - Exit Sub + 'SI ES VENTA NUEVA TOMA EN CUENTA LO DEL TMPDT + If CveVenta <= 0 Then + If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Else + If DdlTipoComprobante.SelectedValue = "Rem" Then + Dim CantidadVenta As Double = 0 + Using ObjVentas As New ClsVentas + If ObjVentas.GetVentaDetalle(CveVenta) Then + CantidadVenta = ObjVentas.DtResultados.SUM("Cantidad", $"CvePS = {CvePS}") + End If + End Using + + 'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA. + 'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL + If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + End If + End If End If @@ -14352,7 +14385,7 @@ Partial Class Ventas Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0 'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN - If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then + If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then OcurrioError = True ErrorList.Add("Ocurrió un error al verificar inventario.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") @@ -17583,10 +17616,29 @@ Partial Class Ventas If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then 'VALIDA EXISTENCIA If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then - If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then - Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) - Return False + If CveVenta <= 0 OrElse Me.EsCreaApartirDe Then + If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) + Return False + End If + Else + If DdlTipoComprobante.SelectedValue = "Rem" Then + Dim CantidadVenta As Double = 0 + Using ObjVentasE As New ClsVentas + If ObjVentasE.GetVentaDetalle(CveVenta) Then + CantidadVenta = ObjVentasE.DtResultados.SUM("Cantidad", $"CvePS = {CvePS}") + End If + End Using + + 'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA. + 'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL + If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} And (EntregaDirecta Is NULL Or EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) + Return False + End If + End If End If + End If End If From 17d2d60205f38a238efea8c7efa0d16586dd1df8 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:26:29 -0700 Subject: [PATCH 07/15] -- activar TC en conceptos de "aplicaTC" --- Contabilidad/RegPrePolizaS.aspx | 1 + Contabilidad/RegPrePolizaS.aspx.vb | 14 +++++++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b09cf0b9f..7fca6a232 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -362,6 +362,7 @@ + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index bbb576de3..edc51400d 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -678,6 +678,17 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged + Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContables.SelectedValue.ToEntero).FiltroPrimero("") + + If dr IsNot Nothing Then + If dr("AplicaTC").ToString = "True" Then + TxtTCPreP.Visible = True + LblTC.Visible = True + Else + TxtTCPreP.Visible = False + LblTC.Visible = False + End If + End If If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then CargaProveedores() @@ -694,7 +705,7 @@ Partial Class ContabilidadC_RegPrePolizaS Else DdlPersonal.Visible = False End If - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then + If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91, 291, 292) Then CargaClientes() DdlClientes.Visible = True DdlVentas.Visible = True @@ -1509,6 +1520,7 @@ Partial Class ContabilidadC_RegPrePolizaS If AplicaBancos Then + CargaModalConceptoTipoTransaccion("Egs") 'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px") DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6") DvMoldalConceptoSeccion2.Visible = True From b24496126c0c6a06949da444ab751259bc991bb2 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:26:44 -0700 Subject: [PATCH 08/15] =?UTF-8?q?--=20retorno=20tipo=20de=20p=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 27 +++++++++++++++++---------- 1 file changed, 17 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 07ef0da67..9adce918b 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -187,6 +187,9 @@ Public Class ClsContabilidad If Valor1 = "2" OrElse Valor2 = "2" Then Retorno = 3 End If + Case 140 + Retorno = 2 'egreso + End Select @@ -987,16 +990,20 @@ Public Class ClsContabilidad If ex1.Message.Contains("50015;") Then OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then - Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) - OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then - Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) - OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then - Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) - OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - Else - OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Dim dr As Data.DataRow = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimero(String.Format("CveConceptoContable = {0}", CveConceptoContable)) + Dim Strr As String = dr("ConceptoContable").ToString + 'If dr("AplicaClasificacion").ToString <> "No" Then + ' Strr = Strr + " - Clasificación: " + DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("", "") + 'End If + OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", dr("ConceptoContable").ToString), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then + Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) + OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then + Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) + OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End If ' Catch ex As Exception If ex.Message.Contains("50015;") Then From 0f9d2e6d0ad19f94cb79046b00068590512b7f03 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:26:52 -0700 Subject: [PATCH 09/15] -- visual --- Acumuladores/RepIndicadorDiario.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Acumuladores/RepIndicadorDiario.aspx b/Acumuladores/RepIndicadorDiario.aspx index dfe552523..36cfdf5e4 100644 --- a/Acumuladores/RepIndicadorDiario.aspx +++ b/Acumuladores/RepIndicadorDiario.aspx @@ -190,7 +190,7 @@ Acumulado - + @@ -206,7 +206,7 @@ Venta Diaria - + From 31931565f0941321828f75616f317988fa966746 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:27:55 -0700 Subject: [PATCH 10/15] =?UTF-8?q?--=20devolucion=20automatica=20en=20cance?= =?UTF-8?q?laci=C3=B3n,=20que=20en=20prep=C3=B3liza=20registre=20el=20nuev?= =?UTF-8?q?omovimeinto=20de=20salida?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3c67875f7..96d491d7a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14986,12 +14986,12 @@ Partial Class Compras_Compras End If ObjComprasComprobacion.Dispose() - + Dim cvemovimientoentrada As Integer = -1 'DEVOLUCIÓN AUTOMATICA If CheckDevAuto.Checked Then Dim ErrorMovInv As Boolean = False - Dim cvemovimientoentrada As Integer + Dim folio As Integer Dim fecha As Date = TxtFechaCancelacion.Text.ToDate Dim importeconcepto As Decimal @@ -15133,7 +15133,8 @@ Partial Class Compras_Compras If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero, dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero, dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, - dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, + If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero), + dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then ErrorCancelar = True Exit For From 8e4e838b33de30603c7747db934ec9d9d2e0f6dc Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:31:48 -0700 Subject: [PATCH 11/15] -- mejora en registro de otros ingresos --- Bancos/Devoluciones.aspx.cs | 35 ++++++++++++++++++++++++----------- 1 file changed, 24 insertions(+), 11 deletions(-) diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index 385954068..ad11e336e 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -392,7 +392,7 @@ public partial class Bancos_Devoluciones : ClsPaginas int cveProveedor = (DdlProveedores.SelectedValue.ToEntero() > 0) ? DdlProveedores.SelectedValue.ToEntero() : -1; int cvePersonal = (DdlPersonal.SelectedValue.ToEntero() > 0) ? DdlPersonal.SelectedValue.ToEntero() : -1; int cveCliente = (DdlCliente.SelectedValue.ToEntero() > 0) ? DdlCliente.SelectedValue.ToEntero() : -1; - bool TipoMovoDevolucion = false; + bool TipoMovtoDevolucion = false; double TC = 1; StringBuilder Msg = new StringBuilder(); @@ -402,25 +402,25 @@ public partial class Bancos_Devoluciones : ClsPaginas PagueseA = DdlCliente.SelectedText.ToString(); CveConceptoContableDevolucion = 92; CvePlantillaPoliza = 7; - TipoMovoDevolucion = false; + TipoMovtoDevolucion = false; break; case "2": PagueseA = DdlProveedores.SelectedText.ToString(); CveConceptoContableDevolucion = 21; CvePlantillaPoliza = 7; - TipoMovoDevolucion = true; + TipoMovtoDevolucion = true; break; case "3": PagueseA = DdlPersonal.SelectedItem.ToString(); CvePlantillaPoliza = 100; - TipoMovoDevolucion = true; + TipoMovtoDevolucion = true; CveConceptoContableDevolucion = 250; break; case "4": PagueseA = DdlPersonal.SelectedItem.ToString(); CveConceptoContableDevolucion = 273; CvePlantillaPoliza = 100; - TipoMovoDevolucion = true; + TipoMovtoDevolucion = true; break; } @@ -464,7 +464,7 @@ public partial class Bancos_Devoluciones : ClsPaginas { if (gvr.FCCheckBox("Chk").Checked) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente)) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente)) { MsgError = "No se pudo insertar concepto de Devolución"; break; @@ -474,7 +474,7 @@ public partial class Bancos_Devoluciones : ClsPaginas //Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL(); Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal(); //GUARDA PREPOLIZAS DETALLE Via Nómina - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente)) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovtoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente)) { MsgError = "No se pudo insertar concepto de Devolución"; } @@ -520,15 +520,24 @@ public partial class Bancos_Devoluciones : ClsPaginas else { //INGxC - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } + // OTROS INGRESOS + if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0) + { + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero())) + { + MsgError = "No se pudo insertar concepto de ot. ingresos/gastos"; + break; + } + } } } else { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE)) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE)) { MsgError = "No se pudo insertar concepto de Devolución"; break; @@ -537,7 +546,11 @@ public partial class Bancos_Devoluciones : ClsPaginas // OTROS INGRESOS if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE)) + int tcvecon = 78; + if (gvr.FCTextBox("TxtComision").Text.ToDecimal() > 0) + tcvecon = 255; + + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, tcvecon, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE)) { MsgError = "No se pudo insertar concepto de Devolución"; break; @@ -548,7 +561,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } //GUARDA PREPOLIZAS DETALLE Bancos - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, TxtImporte.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: TxtImporte.Text.ToDecimal())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovtoDevolucion, TxtImporte.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: TxtImporte.Text.ToDecimal())) { MsgError = "No se pudo insertar concepto de bancos"; } From 4a39fb0084ed666eddcb286783750eb034c5e364 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:32:07 -0700 Subject: [PATCH 12/15] -- estaus de camiones --- App_Code/ClsInventarios.vb | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4a306f502..00613e593 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5545,22 +5545,15 @@ Public Class ClsInventarios #End Region - - - - - - - - #Region "Camiones" - Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean + Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1, Optional Estatus As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCamion", SqlDbType.Int).Value = CveCamion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion + .Add("@Estatus", SqlDbType.Int).Value = Estatus End With Try SqlAdapter.Fill(Data) From 7452304465cb027f3327f7514d6d251de9ad4af7 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 29 Apr 2022 13:33:16 -0700 Subject: [PATCH 13/15] -- filtro empresas en usuarios --- Bancos/RepEgresosSinComprobante.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index c97b4e116..383c5a74a 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -39,7 +39,7 @@ Partial Class Bancos_RepEgresosSinComprobante DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) Else - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataBind() End If From f4ab75336418ee86e00d53964a245c9fd8b3131c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 30 Apr 2022 15:32:53 -0700 Subject: [PATCH 14/15] Cancelar como refacturacion las que tienen el estatus de refacturacion en 4 --- App_Code/Modelos.vb | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index e6fbe82fd..7a6893c9d 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4668,6 +4668,13 @@ Namespace Modelos Dim TieneAlmacen As Boolean = False Dim AplicaRefacturacionConPagos As Boolean = False + Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion) + + 'SI YA FUE MARCADA COMO REFACTURACION Y FUE SEPARADA, MANTENER EL COMPORTAMIENTO DE CANCELACION COMO REFACTURACION + If Not EsRefacturacion AndAlso CveEstatusRefacturacion = 4 Then + EsRefacturacion = True + End If + '1 NORMAL, 2 CON PAGOS Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero() @@ -4800,11 +4807,7 @@ Namespace Modelos Return Retorno End If - - Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion) - - - If Not EsRefacturacion Then + If Not EsRefacturacion AndAlso CveEstatusRefacturacion <> 4 Then CveEstatusRefacturacion = 0 End If From a5e12e0544af7a3eddb0b46e9b6387fa9a4381ca Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 2 May 2022 13:00:41 -0700 Subject: [PATCH 15/15] Compras refacturacion, Nominas layout Banorte, RegPrepolizas --- App_Code/ClsContabilidad.vb | 4 ++- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 39 +++++++++++++++++++---- Compras/Proveedores.aspx.vb | 5 --- Compras/eFacturas.aspx.vb | 49 ++++++++++++++++++----------- Contabilidad/RegPrePolizaS.aspx.vb | 8 ++++- Empresas/141/Formatos/CHQ-7452.rdlc | 10 +++--- Nomina/Nomina.aspx.cs | 7 +++-- 8 files changed, 83 insertions(+), 41 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 20a20bd32..2d0ab9c7d 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1188,8 +1188,10 @@ Public Class ClsContabilidad Catch ex As Exception If ex.Message.Contains("50015;") Then OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex.Message.Contains("IDX_UN_ContaPrePolizasCveEmpresaCveTipoPolizaFoliosAnioMes") Then + OnError($"El Folio {Folio} ya esta registrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else - OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If End Try Return Retorno diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 333a8f44d..4a67fbb34 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -5844,7 +5844,7 @@ } //var SaldoCompra = parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2)); - var SaldoCompra = (Total - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo + var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 399a06781..859abbf64 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1025,6 +1025,21 @@ Partial Class Compras_Compras End Set End Property + Private Property SubTotalRefacturacion As Decimal + Get + + If ViewState("SubTotalRefacturacion") Is Nothing Then + ViewState("SubTotalRefacturacion") = 0.0D + End If + + Return ViewState("SubTotalRefacturacion").ToString.ToDecimal + + End Get + Set(value As Decimal) + ViewState("SubTotalRefacturacion") = value + End Set + End Property + Private Property IVAOriginal As Double Get @@ -2165,7 +2180,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) ''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then - 'DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) + DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) ''End If End If @@ -5925,7 +5940,7 @@ Partial Class Compras_Compras Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal))) Dim importeMN As Decimal = 0 - Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1) + Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation @@ -6314,7 +6329,7 @@ Partial Class Compras_Compras Funcionalidad = 313 ConceptoContable = 248 ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then - Funcionalidad = 577 + Funcionalidad = 578 ConceptoContable = 285 End If @@ -6517,7 +6532,14 @@ Partial Class Compras_Compras Exit Select 'Es credito el concepto 6 se agrega en CASE 17 End If - If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then + + Dim DifSubTotatles As Decimal = 0D + + If CveCompraRefacturacion > 0 Then + DifSubTotatles = Math.Abs(SubTotalRefacturacion - TxtSubTotal2.Text.ToDecimal) + End If + + If DifSubTotatles > 0 Or (Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked)) Then 'AF TipoAF 2 Es para las compras DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ") If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then @@ -8972,7 +8994,7 @@ Partial Class Compras_Compras IdCtaContable = 0 Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text) Dim importeMN As Decimal = 0 - Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1) + Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) Dim PorcentajeImpuesto As Decimal = 0 Dim ConceptoPartida As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text) @@ -10591,7 +10613,7 @@ Partial Class Compras_Compras Dim importeMovimiento As Decimal = 0 Dim IdCtaContable As Integer = 0 Dim importeMN As Decimal = 0 - Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1) + Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation Select Case ConceptoContable @@ -14731,14 +14753,19 @@ Partial Class Compras_Compras Private Sub DdlRefacturacionFacturas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRefacturacionFacturas.SelectedIndexChanged + SubTotalRefacturacion = 0.0D + If DdlRefacturacionFacturas.SelectedValue.ToEntero > 0 Then Dim dr As DataRow = DtRefacturacion.FiltroPrimero(String.Format("CveCompra ={0}", DdlRefacturacionFacturas.SelectedValue)) If dr IsNot Nothing Then HdnRefacturacionConcepto.Value = dr("CveConceptoContableAlmacen").ToString ChkRefacturacionConAlmacen.Checked = If(dr("CveMovimientoAlmacen").ToString.ToEntero > 0, True, False) + SubTotalRefacturacion = dr("SubTotal").ToString.ToDecimal End If + + End If End Sub diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index d8176bb72..e06070550 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -728,15 +728,10 @@ Partial Class Compras_Proveedores cfdVer = "http://www.sat.gob.mx/cfd/4" End If - - 'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2" namespaces.AddNamespace(Prefijo, cfdVer) - - - Dim node As XmlNode node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces) If node IsNot Nothing Then diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index c73ff32d0..e50b0a6ec 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2883,7 +2883,7 @@ Partial Class Compras_eFacturas DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean)) - + Dim TieneRegistros As Boolean = False If IO.File.Exists(Archivo) Then @@ -3034,18 +3034,29 @@ Partial Class Compras_eFacturas End If End If + ObjCompraFolios.Dispose() + DTDocumentosRelacionados = DTDocumentosRelacionados.FiltraParametros("CveIE > 0 AND LEN(IdDocumento) > 0") GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados GVPDocumentosRelacionadosPagos.DataBind() DTGVPagosVinculacion = DTDocumentosRelacionados + BtnVincularPago.Visible = False + If DTDocumentosRelacionados.Rows.Count > 0 Then + SerieFolioIE = DTDocumentosRelacionados.Rows(0)("SerieFolio").ToString + DivVincularPagoManualmente.Visible = False + BtnVincularPago.Visible = True + TieneRegistros = True + Else + DivVincularPagoManualmente.Visible = True + BtnVincularPago.Visible = False + End If ComprasEnComplemento = DTGVPagosVinculacion.COUNT("CveCompra", " CveCompra > 0") - If DTDocumentosRelacionados.MAX("CveCompra").ToString.ToEntero > 0 Then TieneCompras = True Else @@ -3096,25 +3107,25 @@ Partial Class Compras_eFacturas Dim ObjCompras As New ClsCompras - Dim TieneRegistros As Boolean = False - If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then - GvVincularPago.DataSource = ObjCompras.DtResultados - If ObjCompras.DtResultados.Rows.Count > 0 Then - SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString - DivVincularPagoManualmente.Visible = False - BtnVincularPago.Visible = True - TieneRegistros = True - Else - DivVincularPagoManualmente.Visible = True - BtnVincularPago.Visible = False - End If - 'ImportePago = ObjCompras.DtResultados.SUMD("Monto") - Else - DivVincularPagoManualmente.Visible = False - BtnVincularPago.Visible = False - End If + 'If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then + ' GvVincularPago.DataSource = ObjCompras.DtResultados + + ' If ObjCompras.DtResultados.Rows.Count > 0 Then + ' SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString + ' DivVincularPagoManualmente.Visible = False + ' BtnVincularPago.Visible = True + ' TieneRegistros = True + ' Else + ' DivVincularPagoManualmente.Visible = True + ' BtnVincularPago.Visible = False + ' End If + ' 'ImportePago = ObjCompras.DtResultados.SUMD("Monto") + 'Else + ' DivVincularPagoManualmente.Visible = False + ' BtnVincularPago.Visible = False + 'End If For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 05f6994b1..9bf82bd72 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2724,7 +2724,10 @@ Partial Class ContabilidadC_RegPrePolizaS TxtFolio.Text = ObjConta.ContaFolio.ToString() LnkFolioManual.Visible = False + BtnContabilizar.Visible = False + BtnDescontabilizar.Visible = True UpPoliza.Update() + UpGuardar.Update() End If @@ -3215,15 +3218,18 @@ Partial Class ContabilidadC_RegPrePolizaS If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then + Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion) TxtFolio.Text = "" LnkFolioManual.Visible = True + BtnDescontabilizar.Visible = False + BtnContabilizar.Visible = True End If ObjConta.Dispose() UpPoliza.Update() - + UpGuardar.Update() diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc index 3c26bcd98..77447f2a8 100644 --- a/Empresas/141/Formatos/CHQ-7452.rdlc +++ b/Empresas/141/Formatos/CHQ-7452.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -93,9 +93,9 @@ Textbox1 3.15903cm - 2.98488cm + 0.58123cm 0.6cm - 14.64437cm + 17.04802cm 1