diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 38ab109d4..ef7e16b69 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -437,9 +437,8 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.NumeroCuenta = "" 'ObjFactura.CveSucursal = GlobalDTSucursales.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero 'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim - ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 - 'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text) + ObjFactura.CondicionesPago = 0 + 'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text) ObjFactura.PedidoContrato = "" ObjFactura.NumeroContrato = DR("NumeroContrato").ToString ObjFactura.DescripcionContrato = DR("DescripcionContrato").ToString @@ -537,30 +536,30 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.SetCliente() - Dim ObjCliente As New ClsClientes() - If ObjCliente.GetClientes(DR("CveCliente").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 - ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}") - ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}") + 'Dim ObjCliente As New ClsClientes() + 'If ObjCliente.GetClientes(DR("CveCliente").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then + ' If ObjCliente.DtResultados.Rows.Count > 0 Then + ' ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 + ' ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}") + ' ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}") - ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") - ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") + ' ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 + ' ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") + ' ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") - ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI - ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") - ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") + ' ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI + ' ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") + ' ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") - 'AGREGAR LOS PLAZOS PARA EL PAGO DEL CLIENTE - Dim FechaPago As DateTime = ObjFactura.Fecha.AddDays(ObjCliente.PlazoCobranza) - ObjFactura.FechaVencimiento = FechaPago - ObjFactura.Vigencia = FechaPago - ObjFactura.FechaPago = FechaPago + ' 'AGREGAR LOS PLAZOS PARA EL PAGO DEL CLIENTE + ' Dim FechaPago As DateTime = ObjFactura.Fecha.AddDays(ObjCliente.PlazoCobranza) + ' ObjFactura.FechaVencimiento = FechaPago + ' ObjFactura.Vigencia = FechaPago + ' ObjFactura.FechaPago = FechaPago - End If - End If - ObjCliente.Dispose() + ' End If + 'End If + 'ObjCliente.Dispose() 'SUBPROYECTO ObjFactura.SetSubProyectoMatriz(Me) @@ -579,8 +578,8 @@ Partial Class Contratos_FacturacionMasiva Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.Subtotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -595,7 +594,7 @@ Partial Class Contratos_FacturacionMasiva Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 6672cebdb..160061279 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -4865,9 +4865,9 @@ Partial Class General_SaldosIniciales myarraystr = MetodoPago.Split(":"c) If (myarraystr.Length > 1) Then CveMetodoPago = myarraystr(0).ToEntero() - CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero() + CveMetodoPago = GlobalDTVtaMetodoPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero() Else - CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString().ToEntero() + CveMetodoPago = GlobalDTVtaMetodoPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveMetodoPagoSAT = '{MetodoPago}'").ToString().ToEntero() End If If CveMetodoPago = 0 Then CveMetodoPago = -1 @@ -5282,7 +5282,7 @@ Partial Class General_SaldosIniciales crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Metodo pago" - For Each row As DataRow In GlobalDTMetodosPago.Rows + For Each row As DataRow In GlobalDTVtaMetodoPago.Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveMetodoPago"), row("MetodoPago")) Next diff --git a/General/TimbraRetencion.aspx.vb b/General/TimbraRetencion.aspx.vb index afaa76efc..adcb8532b 100644 --- a/General/TimbraRetencion.aspx.vb +++ b/General/TimbraRetencion.aspx.vb @@ -4,7 +4,6 @@ Imports System.IO Imports System.Data Imports System.Xml Imports System.Xml.Serialization -Imports ADSNetLibrary.PacsTimbrado.SAT Imports Extensiones Imports Profact.TimbraCFDI40 @@ -42,7 +41,7 @@ Partial Class General_TimbraRetencion Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then - EnviarNotificacionWhatsApp("6621430964", "Hola") + 'EnviarNotificacionWhatsApp("6621430964", "Hola") DdlClientes.setEsWebService(True) CargaDatos() End If @@ -61,6 +60,7 @@ Partial Class General_TimbraRetencion #Region "Timbra" Private Function TimbraRetencion(cfditimbre As CFDITimbreRetenciones, UsuarioActual As Usuario) As String + Dim Retorno As String = "" Dim sw As New Diagnostics.Stopwatch Dim swTiempo As New StringBuilder Dim swmili As Long = 0 @@ -242,7 +242,7 @@ Partial Class General_TimbraRetencion resultadoTimbre = cfdi.TimbraRetencion(retenciones) If resultadoTimbre.Exitoso Then - Dim Retorno As String = "" + Dim RutaArchivo As String = $"{UsuarioActual.Empresa.Ruta}XML\Ret\" Dim NombreArchivoXML As String = "" Dim objGrales As New ClsGenerales @@ -292,6 +292,7 @@ Partial Class General_TimbraRetencion Alert(resultadoTimbre.Descripcion) Dim detalle As String = resultadoTimbre.Detalle End If + Return Retorno End Function #End Region diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 356ddef0c..9008ba63a 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5763,8 +5763,8 @@ Partial Class Inventarios_EntradasSalidas Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.Fecha - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento diff --git a/Inventarios/RecepcionDevolucion.aspx.vb b/Inventarios/RecepcionDevolucion.aspx.vb index e63e45015..591c7dd84 100644 --- a/Inventarios/RecepcionDevolucion.aspx.vb +++ b/Inventarios/RecepcionDevolucion.aspx.vb @@ -342,7 +342,6 @@ Partial Class Inventarios_RecepcionDevolucion Me.ObjRemisionNC.CondicionEntrega = "" Me.ObjRemisionNC.NumeroCuenta = "" Me.ObjRemisionNC.CondicionesPago = 0 - Me.ObjRemisionNC.FormaPago = 0 Me.ObjRemisionNC.PedidoContrato = "" Me.ObjRemisionNC.NumeroContrato = "" Me.ObjRemisionNC.DescripcionContrato = "" @@ -373,31 +372,31 @@ Partial Class Inventarios_RecepcionDevolucion Dim ObjCliente As New ClsClientes If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then If ObjCliente.DtResultados.Rows.Count > 0 Then - Me.ObjRemisionNC.CveFormaPago33 = ObjCliente.CveFormaPago33 - Me.ObjRemisionNC.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - Me.ObjRemisionNC.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + Me.ObjRemisionNC.CveFormaPago = ObjCliente.CveFormaPago33 + 'Me.ObjRemisionNC.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + 'Me.ObjRemisionNC.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - Me.ObjRemisionNC.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - Me.ObjRemisionNC.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) - Me.ObjRemisionNC.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33 + 'Me.ObjRemisionNC.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + 'Me.ObjRemisionNC.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) Me.ObjRemisionNC.CveUsoCFDI = ObjCliente.CveUsoCFDI - Me.ObjRemisionNC.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - Me.ObjRemisionNC.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + 'Me.ObjRemisionNC.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + 'Me.ObjRemisionNC.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33 - If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows.Count > 0 Then - Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows(0)("MetodoPago").ToString + If GlobalDTVtaMetodoPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows.Count > 0 Then + Me.ObjRemisionNC.MetodoPago = GlobalDTVtaMetodoPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows(0)("MetodoPago").ToString Else Me.ObjRemisionNC.CveMetodoPago = 1 Me.ObjRemisionNC.MetodoPago = "Efectivo" End If If UsuarioActual.CveEmpresa = 119 Then - Me.ObjRemisionNC.FormaPago = 20 'POR DEFINIR AND (@CveMetodoPago33 = 3 AND @CveFormaPago33 <> 20) - If Me.ObjRemisionNC.CveMetodoPago33 = 3 Then - Me.ObjRemisionNC.CveFormaPago33 = 20 + Me.ObjRemisionNC.CveFormaPago = 20 'POR DEFINIR AND (@CveMetodoPago33 = 3 AND @CveFormaPago33 <> 20) + If Me.ObjRemisionNC.CveMetodoPago = 3 Then + Me.ObjRemisionNC.CveFormaPago = 20 End If End If End If diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index b84f1214f..a1a33d492 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2434,7 +2434,6 @@ Partial Class Inventarios_RecepcionUsados Me.ObjRemisionNC.FechaEjecucion = Fecha Me.ObjRemisionNC.UsuarioCreo = UsuarioActual.Usuario Me.ObjRemisionNC.CondicionesPago = 0 - Me.ObjRemisionNC.FormaPago = 0 Me.ObjRemisionNC.TipoDocumento = "Remisión" 'NUM 1- CARGO 2- BONIFICACION Me.ObjRemisionNC.Num1 = 1 @@ -2456,36 +2455,36 @@ Partial Class Inventarios_RecepcionUsados Dim ObjCliente As New ClsClientes If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then If ObjCliente.DtResultados.Rows.Count > 0 Then - Me.ObjRemisionNC.CveFormaPago33 = ObjCliente.CveFormaPago33 - Me.ObjRemisionNC.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - Me.ObjRemisionNC.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + Me.ObjRemisionNC.CveFormaPago = ObjCliente.CveFormaPago33 + 'Me.ObjRemisionNC.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) + 'Me.ObjRemisionNC.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33)) - Me.ObjRemisionNC.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - Me.ObjRemisionNC.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) - Me.ObjRemisionNC.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33 + 'Me.ObjRemisionNC.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + 'Me.ObjRemisionNC.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) Me.ObjRemisionNC.CveUsoCFDI = ObjCliente.CveUsoCFDI - Me.ObjRemisionNC.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - Me.ObjRemisionNC.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + 'Me.ObjRemisionNC.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) + 'me.ObjRemisionNC.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33 - If GlobalDTMetodosPago IsNot Nothing Then - Dim DtMetodoPago As DataTable = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) + 'If GlobalDTMetodosPago IsNot Nothing Then + ' Dim DtMetodoPago As DataTable = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) - If DtMetodoPago IsNot Nothing Then + ' If DtMetodoPago IsNot Nothing Then - If DtMetodoPago.Rows.Count > 0 Then - Me.ObjRemisionNC.MetodoPago = DtMetodoPago.Rows(0)("MetodoPago").ToString - Else - Me.ObjRemisionNC.CveMetodoPago = 1 - Me.ObjRemisionNC.MetodoPago = "Efectivo" - End If + ' If DtMetodoPago.Rows.Count > 0 Then + ' Me.ObjRemisionNC.MetodoPago = DtMetodoPago.Rows(0)("MetodoPago").ToString + ' Else + ' Me.ObjRemisionNC.CveMetodoPago = 1 + ' Me.ObjRemisionNC.MetodoPago = "Efectivo" + ' End If - DtMetodoPago.Dispose() - DtMetodoPago = Nothing - End If - End If + ' DtMetodoPago.Dispose() + ' DtMetodoPago = Nothing + ' End If + 'End If End If End If diff --git a/Inventarios/Remanufactura.aspx.vb b/Inventarios/Remanufactura.aspx.vb index db02d8d94..e3d85837c 100644 --- a/Inventarios/Remanufactura.aspx.vb +++ b/Inventarios/Remanufactura.aspx.vb @@ -389,7 +389,6 @@ Partial Class Inventarios_Remanufactura ObjFactura.CondicionEntrega = "" ObjFactura.NumeroCuenta = "" ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 ObjFactura.PedidoContrato = "" ObjFactura.NumeroContrato = "" ObjFactura.DescripcionContrato = "" @@ -465,21 +464,21 @@ Partial Class Inventarios_Remanufactura ObjFactura.SetCliente() - If ObjCliente.GetClientes(DdlCliente.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 - ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}") - ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}") + 'If ObjCliente.GetClientes(DdlCliente.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then + ' If ObjCliente.DtResultados.Rows.Count > 0 Then + ' ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 + ' ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}") + ' ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}") - ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 - ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") - ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") + ' ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 + ' ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") + ' ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") - ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI - ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") - ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") - End If - End If + ' ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI + ' ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") + ' ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") + ' End If + 'End If 'SUBPROYECTO ObjFactura.SetSubProyectoMatriz(Me) @@ -494,8 +493,8 @@ Partial Class Inventarios_Remanufactura Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.Fecha - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.Subtotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -510,7 +509,7 @@ Partial Class Inventarios_Remanufactura Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then @@ -613,15 +612,15 @@ Partial Class Inventarios_Remanufactura factura.CvePrePoliza = ObjConta.AddPrePolizas("Reman/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, - factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, + factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, 0, factura.FechaPago, factura.Fecha, factura.MotivoDescuento, factura.Observaciones, factura.FechaEjecucion, factura.CveVendedor, factura.Alfa1, factura.Alfa2, factura.Alfa3, factura.Num1, factura.Num2, factura.Num3, factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa, AtencionA:=factura.AtencionA, TelefonoGenerico:="", CveContrato:=factura.CveContrato, CveVentaPadre:=factura.CveVentaPadre, Det_FechaOrdenCompra:=factura.Det_FechaOrdenCompra, Det_OrdenCompra:=factura.Det_OrdenCompra, otros:=factura.Otros, Entrega:="", Vigencia:=MinFecha, CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=-1, CveOC:=-1, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=-1, - PedidoContrato:="", CveSubProyecto:=CveSubProyecto, CveSubProyectoCobranza:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto, CveFormaPago33:=factura.CveFormaPago33, - CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI) Then + PedidoContrato:="", CveSubProyecto:=CveSubProyecto, CveSubProyectoCobranza:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto, CveFormaPago33:=factura.CveFormaPago, + CveMetodoPago33:=factura.CveMetodoPago, CveUsoCFDI:=factura.CveUsoCFDI) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") End If diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 9809a4095..98e5dbf11 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -433,7 +433,7 @@ public partial class Nomina_Nomina2 : ClsPaginas DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa); DdlTurno.DataBind(); - DdlMetodoPago.DataSource = GlobalDTMetodosPago; + DdlMetodoPago.DataSource = GlobalDTVtaMetodoPago; DdlMetodoPago.DataBind(); DdlBanco.DataSource = GlobalDTNomSatBancos; diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 31984727b..f949ad894 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -338,9 +338,9 @@ Partial Class RH_CatPersonal End Sub Private Sub CargaMetodosPago() - DdlMetodoPago.DataSource = GlobalDTMetodosPago + DdlMetodoPago.DataSource = GlobalDTVtaMetodoPago DdlMetodoPago.DataBind() - DdlMetodoPagoAdd.DataSource = GlobalDTMetodosPago + DdlMetodoPagoAdd.DataSource = GlobalDTVtaMetodoPago DdlMetodoPagoAdd.DataBind() End Sub @@ -807,7 +807,7 @@ Partial Class RH_CatPersonal crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Metodo pago" - For Each row As DataRow In GlobalDTMetodosPago.Rows + For Each row As DataRow In GlobalDTVtaMetodoPago.Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveMetodoPago"), row("MetodoPago")) Next diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index d9fe3cfbe..8cf21dbc5 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1410,7 +1410,7 @@ Partial Class RH_Personal 'DdlPermisosReemplazo.DataBind() End Sub Private Sub CargaMetodosPago() - DdlMetodoPago.DataSource = GlobalDTMetodosPago + DdlMetodoPago.DataSource = GlobalDTVtaMetodoPago DdlMetodoPago.DataBind() End Sub diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index c8e76dbb5..6c32caa2f 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -1150,7 +1150,7 @@ Partial Class RepContratoDetalle ObjFactura.CveMoneda = CveMoneda ObjFactura.CveContrato = CveContrato ObjFactura.Observaciones = ObsPartida - ObjFactura.CveFormaPago33 = 20 ' por definir + ObjFactura.CveFormaPago = 20 ' por definir If CveMoneda > 1 Then ObjFactura.TipoCambio = GlobalTipoCambio(DateTime.Now).ToDecimal End If diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 90e67e004..b549fdea9 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -354,7 +354,7 @@ Partial Class ListadoContratos ObjFactura.CveMoneda = CveMoneda ObjFactura.CveContrato = CveContrato ObjFactura.Observaciones = ObsPartida - ObjFactura.CveFormaPago33 = 20 ' por definir + ObjFactura.CveFormaPago = 20 ' por definir If CveMoneda > 1 Then ObjFactura.TipoCambio = GlobalTipoCambio(DateTime.Now).ToDecimal End If diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ed5fe33bf..6a927a74e 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1421,8 +1421,8 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.Version = "4.0" - ObjFacturaDevolucion.CveMetodoPago33 = 1 - ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición" + ObjFacturaDevolucion.CveMetodoPago = 1 + ObjFacturaDevolucion.MetodoPago = "PUE - Pago en una sola exhibición" ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE" Dim CveTipoTransaccion As Integer = -1 @@ -1439,9 +1439,9 @@ Partial Class Ventas_ClientesAbonar Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & CveTipoTransaccion) Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago").ToString) - ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString.ToEntero - ObjFacturaDevolucion.FormaPago33 = dra("FormaPagoSAT").ToString - ObjFacturaDevolucion.FormaPagoSAT33 = dra("ClaveFormaPagoSAT").ToString + ObjFacturaDevolucion.CveFormaPago = dra("CveFormaPago").ToString.ToEntero + ObjFacturaDevolucion.FormaPago = dra("FormaPagoSAT").ToString + ObjFacturaDevolucion.ClaveFormaPagoSAT = dra("ClaveFormaPagoSAT").ToString ObjFacturaDevolucion.CveSubProyecto = CveSubProyecto ObjFacturaDevolucion.SetSubProyecto() @@ -1455,7 +1455,7 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.CveUsoCFDI = 2 ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", 2)) - ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", 2)) + ObjFacturaDevolucion.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", 2)) ObjFacturaDevolucion.DtDetalle = CreaDTDetalleNC() @@ -1571,8 +1571,8 @@ Partial Class Ventas_ClientesAbonar Timbre.Comprobante.Folio = Obj.Folio.ToString() Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -1602,7 +1602,7 @@ Partial Class Ventas_ClientesAbonar Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If ListaVentasGenerarNC IsNot Nothing Then Timbre.CFDIRelacionados.UUID.Clear() diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index d1fc3ee84..a1fd84ddd 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -2405,7 +2405,7 @@ Partial Class PV UpFacturar.Update() End Sub Private Sub CargaMetodosPago() - DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ") + DdlMetodoPago.DataSource = GlobalDTVtaMetodoPago '.FiltraParametros("CveMetodoPago > 0 ") DdlMetodoPago.DataBind() 'FACTURACION 3.3 @@ -3636,27 +3636,26 @@ Partial Class PV ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, NowADS().Hour, NowADS().Minute, NowADS().Second) ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text - ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}") + 'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}") ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate - ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero - ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "") - ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") + ObjFactura.CveMetodoPago = DdlMetodoPago33.SelectedValue.ToEntero + ObjFactura.MetodoPago = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "") + 'ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") - ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero - ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "") - ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}") + ObjFactura.CveFormaPago = DdlFormaPago33.SelectedValue.ToEntero + ObjFactura.FormaPago = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "") + 'ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}") ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "") - ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") + 'ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") ObjFactura.UsuarioCreo = LblUsuario.Text.Trim ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1) ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "") ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl - ObjFactura.FormaPago = DdlFormaPago.SelectedValue.ToEntero Select Case ObjFactura.TipoDocto Case "Ing" @@ -3896,8 +3895,8 @@ Partial Class PV Timbre.Comprobante.Folio = Obj.Folio.ToString Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.Fecha - Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 + Timbre.Comprobante.FormadePago = Obj.ClaveFormaPagoSAT + Timbre.Comprobante.CondicionesdePago = Obj.FormaPago Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -3918,7 +3917,7 @@ Partial Class PV Timbre.Receptor.Nombre = Obj.Cliente.Nombre Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.NumeroRegistroTributario = "" - Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI + Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDISAT If Obj.CveTipoRelacion > 0 Then