Correciones de comercio exterior

2022-11-11 02:07:22 -07:00
parent f6d0b4e6e4
commit de9ba7acd1
7 changed files with 327 additions and 320 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6450,9 +6450,9 @@ Partial Class Ventas
                    End If
                    TxtNumRegIdTrib.Text = ObjCliente.NumRegIdTrib
                    TxtDestinatarioNombre.Text = ObjCliente.Nombre
-                    TxtComExtCalle.Text = ObjCliente.Direccion
-                    TxtComExtNumero.Text = ObjCliente.NoExt
-                    TxtComExtCP.Text = ObjCliente.CP
+                    TxtComExtCalle.Text = ObjCliente.DtResultados.Rows(0)("ComExtCalle").ToString()
+                    TxtComExtNumero.Text = ObjCliente.DtResultados.Rows(0)("ComExtNumExt").ToString()
+                    TxtComExtCP.Text = ObjCliente.DtResultados.Rows(0)("ComExtCP").ToString()
                    'en comercio exterior como regla de timbrado se utiliza el TC del día anterior
                    TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()

@@ -12237,22 +12237,6 @@ Partial Class Ventas
                Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString()
                Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString()

-
-                'RECEPTOR
-                Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
-                Timbre.Complementos.ComercioExterior11.Receptor.Calle = Obj.Cliente.Direccion
-                Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = Obj.Cliente.NoExt
-                Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = Obj.Cliente.NoInt
-                Timbre.Complementos.ComercioExterior11.Receptor.Colonia = Obj.Cliente.ClaveSATColonia
-                Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
-                Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
-                Timbre.Complementos.ComercioExterior11.Receptor.Municipio = Obj.Cliente.Ciudad
-                Timbre.Complementos.ComercioExterior11.Receptor.CP = Obj.Cliente.CP
-                Timbre.Complementos.ComercioExterior11.Receptor.Estado = Obj.Cliente.ClaveSATEstado
-                Timbre.Complementos.ComercioExterior11.Receptor.Pais = Obj.Cliente.ClaveSATPais
-                Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
-                Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
-
                Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
                ComExtColonia = "" : ComExtMunicipio = ""
                ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
@@ -12274,21 +12258,38 @@ Partial Class Ventas
                    ComExtColonia = TxtComExtColonia.Text.Trim
                End If

-                'DESTINATARIO
-                Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = TxtDestinatarioNombre.Text.Trim
-                Timbre.Complementos.ComercioExterior11.Destinatario.Calle = ComExtCalle
-                Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = ComExtNumero
-                Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
-                Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ComExtColonia
-                Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = ""
-                Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = Obj.Cliente.ReferenciaFiscal
-                Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = ComExtMunicipio
-                Timbre.Complementos.ComercioExterior11.Destinatario.CP = ComExtCP
-                Timbre.Complementos.ComercioExterior11.Destinatario.Estado = ComExtEstado
-                Timbre.Complementos.ComercioExterior11.Destinatario.Pais = ComExtPais
-                Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = TxtNumRegIdTrib.Text.Trim
+                'RECEPTOR
+                Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
+                Timbre.Complementos.ComercioExterior11.Receptor.Calle = ComExtCalle
+                Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = ComExtNumero
+                Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = ""
+                Timbre.Complementos.ComercioExterior11.Receptor.Colonia = ComExtColonia
+                Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
+                Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
+                Timbre.Complementos.ComercioExterior11.Receptor.Municipio = ComExtMunicipio
+                Timbre.Complementos.ComercioExterior11.Receptor.CP = ComExtCP
+                Timbre.Complementos.ComercioExterior11.Receptor.Estado = ComExtEstado
+                Timbre.Complementos.ComercioExterior11.Receptor.Pais = ComExtPais
+                Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
+                Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib


+                'DESTINATARIO
+                Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
+
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = TxtDestinatarioNombre.Text.Trim
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Calle = ComExtCalle
+                'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = ComExtNumero
+                'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ComExtColonia
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = ""
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = Obj.Cliente.ReferenciaFiscal
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = ComExtMunicipio
+                'Timbre.Complementos.ComercioExterior11.Destinatario.CP = ComExtCP
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Estado = ComExtEstado
+                'Timbre.Complementos.ComercioExterior11.Destinatario.Pais = ComExtPais
+                'Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = TxtNumRegIdTrib.Text.Trim
+
                'MERCANCIAS
                For Each Gvr As GridViewRow In GvComercioExterior.Rows
                    Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,