From b3a828b8b8f958d74489c31af6c8ab400778993a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Jan 2025 12:28:42 -0700 Subject: [PATCH 01/17] =?UTF-8?q?--=20mandar=20par=C3=A1metro=20de=20cveus?= =?UTF-8?q?ocfdi?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/FacturacionGlobal.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/FacturacionGlobal.aspx.vb b/Ventas/FacturacionGlobal.aspx.vb index d8579acc7..efb8fb39f 100644 --- a/Ventas/FacturacionGlobal.aspx.vb +++ b/Ventas/FacturacionGlobal.aspx.vb @@ -220,6 +220,7 @@ Partial Class Ventas_FacturacionGlobal ObjFactura.DtRemisionesPS = DtRemisionesPS ObjFactura.DtRemisiones = DtRemisiones.FiltraParametros($"CveVenta IN ({SbRemisiones.ToString()})") ObjFactura.DtPagosFacturaGlobal = DtPagosFacturaGlobal + ObjFactura.CveUsoCFDI = 23 'S01 - Sin efectos fiscales' Dim RowNum As Integer = 0 For Each Dr As DataRow In ObjFactura.DtRemisionesPS.Rows From db2f477f9a3abfc77026ad71450f8f6ccb9c11dd Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Jan 2025 19:46:25 -0700 Subject: [PATCH 02/17] =?UTF-8?q?--=20validacion=20de=20prep=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/PVCobranza.aspx.vb | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index a390b3601..16da2483e 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -807,6 +807,14 @@ Partial Class Ventas_PVCobranza GuardaLog(ex.ToString()) End Try + If MsgError = "" Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=respFactura.CveVenta) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + GuardaLogAD($"Ventas/Ventas-NCGeneradas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + End If + End If + If MsgError = "" Then ObjVentas2.Commit() Dim msBuild As New StringBuilder() From 4f4bd32a8110e2a7e07b6f1cca3ee6acebe92bc2 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Jan 2025 20:54:23 -0700 Subject: [PATCH 03/17] -- carga de uso del cliente --- App_Code/Modelos.vb | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 633720008..dc127b3c4 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -8078,6 +8078,16 @@ Namespace Modelos Public Sub SetCliente() If CveCliente > 0 Then Cliente = New Modelos.ClienteModel(CveCliente, CveEmpresa) + + Me.CveFormaPago = Cliente.CveFormaPago + Me.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", Me.CveFormaPago)) + + Me.CveMetodoPago = Cliente.CveMetodoPago + Me.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", Me.CveMetodoPago)) + + Me.CveUsoCFDI = Cliente.CveUsoCFDI + Me.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", Me.CveUsoCFDI)) + If Me.CveClienteSucursal > 0 Then Dim ObjCliente As New ClsClientes() If ObjCliente.GetSucursales(CveCliente, Me.CveClienteSucursal) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then @@ -8452,6 +8462,9 @@ Namespace Modelos AplicaFEMSA = False AplicaDetallista = False AplicaComercioExterior = False + CveUsoCFDI = -1 + CveFormaPago = -1 + CveMetodoPago = -1 End Sub Public Sub New() MyBase.New() @@ -8486,6 +8499,9 @@ Namespace Modelos Public Property CveRegimenFiscal As Integer Public Property CodigoRegimenFiscal As String Public Property RegimenFiscal As String + Public Property CveUsoCFDI As Integer + Public Property CveFormaPago As Integer + Public Property CveMetodoPago As Integer Public Property Telefono As String Public Property Contacto As String Public Property Mail As String @@ -8514,7 +8530,6 @@ Namespace Modelos Public Property FormaFacturacion As String Public Property LimiteCredito As Decimal Public Property NumCtaPago As String - Public Property CveMetodoPago As Integer Public Property AplicaFEMSA As Boolean Public Property FEMSA_NumSociedad As String Public Property FEMSA_NumProveedor As String From 40ea67cc2f1a90f7d2e4bdecf580f2f7a9067c2a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Jan 2025 20:55:27 -0700 Subject: [PATCH 04/17] =?UTF-8?q?--=20txtfolio=20m=C3=A1s=20grande?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/PopUpBuscarFolio.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PopUpBuscarFolio.aspx b/Ventas/PopUpBuscarFolio.aspx index 146d13d7a..81d99f612 100644 --- a/Ventas/PopUpBuscarFolio.aspx +++ b/Ventas/PopUpBuscarFolio.aspx @@ -58,7 +58,7 @@ Folio: - + Folio Fiscal (UUID): From 1e366a1bf9e13264352cac80fb8e39d0c6c77e5f Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 14 Jan 2025 22:51:02 -0700 Subject: [PATCH 05/17] --- Nomina/Nomina.aspx | 6 +++--- Nomina/Nomina.aspx.cs | 1 + 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 4365c23ed..a753bb873 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -2584,7 +2584,7 @@ + Cuentas y conceptos sin vincular.