-- Cambios en timbrado, Método/Forma Pago

2025-01-13 06:59:42 -07:00
parent 9a2e0baf05
commit aa13ab1990
13 changed files with 205 additions and 344 deletions
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -442,8 +442,8 @@ Public Class WSApp
        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
@@ -458,7 +458,7 @@ Public Class WSApp
        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
@@ -615,11 +615,8 @@ Public Class WSApp
                ObjFactura.CveMoneda = CveMoneda
                ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {CveMoneda} ")
                ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1")
-                ObjFactura.TipoDocto = "Rem"
-                ObjFactura.RefDocto = ""
-                'ObjFactura.CveMesa = -1
+                ObjFactura.TipoDocto = "Rem"
                ObjFactura.Fecha = ClsPaginas.NowADS()
-                ObjFactura.CvePrePoliza = -1
                ObjFactura.FechaPago = ClsPaginas.NowADS()
                ObjFactura.MotivoDescuento = ""
                ObjFactura.Observaciones = Observaciones
@@ -628,19 +625,10 @@ Public Class WSApp
                ObjFactura.CveCondicionEntrega = -1
                ObjFactura.CondicionEntrega = ""
                ObjFactura.NumeroCuenta = ""
-                ObjFactura.CondicionesPago = 0
-                ObjFactura.FormaPago = 0
-                ObjFactura.PedidoContrato = ""
-                ObjFactura.NumeroContrato = ""
-                ObjFactura.DescripcionContrato = ""
-                ObjFactura.CveCorte = -1
-                ObjFactura.TipoDocumento = "Remision"
-                ObjFactura.Alfa1 = ""
-                ObjFactura.Alfa2 = ""
-                ObjFactura.Alfa3 = ""
+                ObjFactura.CondicionesPago = 0
+                ObjFactura.TipoDocumento = "Remision"
                ObjFactura.Descuento = 0
-                ObjFactura.Amortizacion = 0
-                ObjFactura.CveContrato = -1
+                ObjFactura.Amortizacion = 0
                ObjFactura.ConvertirPesos = False
                ObjFactura.CveSubProyecto = CveSubProyecto
                ObjFactura.CveSubProyectoCobranza = CveSubProyecto
@@ -656,21 +644,21 @@ Public Class WSApp
                Dim ObjCliente As New ClsClientes
                If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, -1, TipoCliente:=-1) Then
                    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                        ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33
-                        ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
-                        ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
+                        ObjFactura.CveFormaPago = ObjCliente.CveFormaPago33
+                        ObjFactura.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
+                        ObjFactura.ClaveFormaPagoSAT = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}")

-                        ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
-                        ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")
+                        ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33
+                        ObjFactura.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")
                        ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")

                        ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI
                        ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
-                        ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
+                        ObjFactura.ClaveUsoCFDISAT = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")

                        ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33
-                        If ClsPaginas.GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then
-                            ObjFactura.MetodoPago = ClsPaginas.GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString
+                        If ClsPaginas.GlobalDTVtaMetodoPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then
+                            ObjFactura.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString
                        Else
                            ObjFactura.CveMetodoPago = 1
                            ObjFactura.MetodoPago = "Efectivo"
--- a/asmx/WSSIGApp.asmx
+++ b/asmx/WSSIGApp.asmx
@@ -1942,17 +1942,17 @@ Public Class WSSIGApp
            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
-                    ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33
-                    ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
-                    ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
+                    ObjFactura.CveFormaPago = ObjCliente.CveFormaPago33
+                    ObjFactura.FormaPago = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
+                    ObjFactura.ClaveFormaPagoSAT = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}")

-                    ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
-                    ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")
+                    ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33
+                    ObjFactura.MetodoPago = 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.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")

                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
                    'If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows.Count > 0 Then
@@ -2161,8 +2161,8 @@ Public Class WSSIGApp
        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
@@ -2177,7 +2177,7 @@ Public Class WSSIGApp
        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