Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -248,11 +248,11 @@ End Class
|
||||
<Serializable>
|
||||
Public Class CFDIComplementos
|
||||
|
||||
Public Property ComercioExterior11 As CFDIComercioExterior11
|
||||
Public Property ComercioExterior As CFDIComercioExterior
|
||||
Public Property CartaPorte As CFDICartaPorte
|
||||
|
||||
Sub New()
|
||||
ComercioExterior11 = New CFDIComercioExterior11
|
||||
ComercioExterior = New CFDIComercioExterior
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -732,7 +732,7 @@ End Class
|
||||
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDIComercioExterior11
|
||||
Public Class CFDIComercioExterior
|
||||
Public Property MotivoTraslado As String
|
||||
Public Property TipoOperacion As String = ""
|
||||
Public Property ClavedePedimento As String = ""
|
||||
|
||||
@@ -4052,6 +4052,7 @@ Public Class ClsVentas
|
||||
.Add("@TipoSaldo", SqlDbType.Int).Value = TipoSaldo
|
||||
.Add("@EsquemaNuevo", SqlDbType.Bit).Value = EsquemaNuevo
|
||||
End With
|
||||
SqlAdapter.SelectCommand.CommandTimeout = 0
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
|
||||
@@ -1788,7 +1788,7 @@ Namespace Modelos
|
||||
|
||||
Dim AplicaComercioExteriorSubProyecto As Boolean = True
|
||||
|
||||
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
|
||||
Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
|
||||
|
||||
Me.FemsaFactura = New Modelos.FemsaFactura
|
||||
Me.Timbre = Timbre
|
||||
|
||||
@@ -1361,127 +1361,127 @@ Public Class Timbrado
|
||||
#End Region
|
||||
#Region " Comercio Exterior"
|
||||
|
||||
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
|
||||
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
|
||||
|
||||
'DATOS GENERALES
|
||||
Dim ComExt As New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExterior()
|
||||
ComExt.Version = "1.1"
|
||||
ComExt.MotivoTrasladoSpecified = True
|
||||
ComExt.MotivoTraslado = ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado
|
||||
ComExt.TipoOperacion = ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion
|
||||
ComExt.MotivoTraslado = ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado
|
||||
ComExt.TipoOperacion = ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion
|
||||
ComExt.ClaveDePedimentoSpecified = True
|
||||
ComExt.ClaveDePedimento = ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento
|
||||
ComExt.ClaveDePedimento = ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento
|
||||
ComExt.CertificadoOrigenSpecified = True
|
||||
ComExt.CertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen.ToEntero
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen <> "" Then
|
||||
ComExt.NumCertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen
|
||||
ComExt.CertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen.ToEntero
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen <> "" Then
|
||||
ComExt.NumCertificadoOrigen = ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen
|
||||
End If
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable <> "" Then
|
||||
ComExt.NumeroExportadorConfiable = ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable <> "" Then
|
||||
ComExt.NumeroExportadorConfiable = ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable
|
||||
End If
|
||||
ComExt.IncotermSpecified = True
|
||||
ComExt.Incoterm = ObjCFDITimbre.Complementos.ComercioExterior11.Incoterm
|
||||
ComExt.Incoterm = ObjCFDITimbre.Complementos.ComercioExterior.Incoterm
|
||||
ComExt.SubdivisionSpecified = True
|
||||
ComExt.Subdivision = ObjCFDITimbre.Complementos.ComercioExterior11.Subdivision.ToEntero
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones <> "" Then
|
||||
ComExt.Observaciones = ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones
|
||||
ComExt.Subdivision = ObjCFDITimbre.Complementos.ComercioExterior.Subdivision.ToEntero
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Observaciones <> "" Then
|
||||
ComExt.Observaciones = ObjCFDITimbre.Complementos.ComercioExterior.Observaciones
|
||||
End If
|
||||
ComExt.TipoCambioUSDSpecified = True
|
||||
ComExt.TipoCambioUSD = ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD
|
||||
ComExt.TipoCambioUSD = ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD
|
||||
ComExt.TotalUSDSpecified = True
|
||||
ComExt.TotalUSD = ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD
|
||||
ComExt.TotalUSD = ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD
|
||||
|
||||
'EMISOR
|
||||
ComExt.Emisor = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorEmisor()
|
||||
If EmisorRFC.Length < 12 Then
|
||||
ComExt.Emisor.Curp = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP
|
||||
ComExt.Emisor.Curp = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP
|
||||
End If
|
||||
ComExt.Emisor.Domicilio = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorEmisorDomicilio
|
||||
ComExt.Emisor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle
|
||||
ComExt.Emisor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP
|
||||
ComExt.Emisor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle
|
||||
ComExt.Emisor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP
|
||||
ComExt.Emisor.Domicilio.ColoniaSpecified = True
|
||||
ComExt.Emisor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia
|
||||
ComExt.Emisor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad <> "" Then
|
||||
ComExt.Emisor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia
|
||||
ComExt.Emisor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad <> "" Then
|
||||
ComExt.Emisor.Domicilio.LocalidadSpecified = False
|
||||
ComExt.Emisor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad
|
||||
ComExt.Emisor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad
|
||||
End If
|
||||
ComExt.Emisor.Domicilio.MunicipioSpecified = True
|
||||
ComExt.Emisor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Municipio
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior <> "" Then ComExt.Emisor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior <> "" Then ComExt.Emisor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior
|
||||
ComExt.Emisor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia <> "" Then
|
||||
ComExt.Emisor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia
|
||||
ComExt.Emisor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior <> "" Then ComExt.Emisor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior <> "" Then ComExt.Emisor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior
|
||||
ComExt.Emisor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia <> "" Then
|
||||
ComExt.Emisor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia
|
||||
End If
|
||||
|
||||
'RECEPTOR
|
||||
ComExt.Receptor = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorReceptor
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib <> "" Then
|
||||
ComExt.Receptor.NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib <> "" Then
|
||||
ComExt.Receptor.NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib
|
||||
End If
|
||||
ComExt.Receptor.Domicilio = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorReceptorDomicilio
|
||||
ComExt.Receptor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle
|
||||
ComExt.Receptor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia <> "" Then
|
||||
ComExt.Receptor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia
|
||||
ComExt.Receptor.Domicilio.Calle = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle
|
||||
ComExt.Receptor.Domicilio.CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia <> "" Then
|
||||
ComExt.Receptor.Domicilio.Colonia = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia
|
||||
End If
|
||||
ComExt.Receptor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad <> "" Then
|
||||
ComExt.Receptor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad
|
||||
ComExt.Receptor.Domicilio.Estado = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad <> "" Then
|
||||
ComExt.Receptor.Domicilio.Localidad = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad
|
||||
End If
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio <> "" Then
|
||||
ComExt.Receptor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio <> "" Then
|
||||
ComExt.Receptor.Domicilio.Municipio = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio
|
||||
End If
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior <> "" Then
|
||||
ComExt.Receptor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior <> "" Then
|
||||
ComExt.Receptor.Domicilio.NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior
|
||||
End If
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior <> "" Then
|
||||
ComExt.Receptor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior <> "" Then
|
||||
ComExt.Receptor.Domicilio.NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior
|
||||
End If
|
||||
ComExt.Receptor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia <> "" Then
|
||||
ComExt.Receptor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia
|
||||
ComExt.Receptor.Domicilio.Pais = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia <> "" Then
|
||||
ComExt.Receptor.Domicilio.Referencia = ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia
|
||||
End If
|
||||
|
||||
'DESTINATARIO
|
||||
ComExt.Destinatario = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatario(0) {}
|
||||
ComExt.Destinatario(0) = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatario()
|
||||
ComExt.Destinatario(0).Nombre = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib <> "" Then
|
||||
ComExt.Destinatario(0).NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib
|
||||
ComExt.Destinatario(0).Nombre = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib <> "" Then
|
||||
ComExt.Destinatario(0).NumRegIdTrib = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib
|
||||
End If
|
||||
ComExt.Destinatario(0).Domicilio = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatarioDomicilio(0) {}
|
||||
ComExt.Destinatario(0).Domicilio(0) = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorDestinatarioDomicilio()
|
||||
ComExt.Destinatario(0).Domicilio(0).Calle = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle
|
||||
ComExt.Destinatario(0).Domicilio(0).CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Colonia = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia
|
||||
ComExt.Destinatario(0).Domicilio(0).Calle = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle
|
||||
ComExt.Destinatario(0).Domicilio(0).CodigoPostal = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Colonia = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia
|
||||
End If
|
||||
ComExt.Destinatario(0).Domicilio(0).Estado = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Localidad = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad
|
||||
ComExt.Destinatario(0).Domicilio(0).Estado = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Localidad = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad
|
||||
End If
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Municipio = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Municipio = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio
|
||||
End If
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).NumeroExterior = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior
|
||||
End If
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).NumeroInterior = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior
|
||||
End If
|
||||
ComExt.Destinatario(0).Domicilio(0).Pais = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Referencia = ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia
|
||||
ComExt.Destinatario(0).Domicilio(0).Pais = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia <> "" Then
|
||||
ComExt.Destinatario(0).Domicilio(0).Referencia = ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia
|
||||
End If
|
||||
|
||||
'MERCANCIAS
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
|
||||
ComExt.Mercancias = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorMercancia(ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count - 1) {}
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then
|
||||
ComExt.Mercancias = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorMercancia(ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count - 1) {}
|
||||
Dim i As Integer
|
||||
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
|
||||
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias
|
||||
ComExt.Mercancias(i) = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExteriorMercancia()
|
||||
ComExt.Mercancias(i).NoIdentificacion = concep.NoIdentificacion
|
||||
ComExt.Mercancias(i).FraccionArancelariaSpecified = True
|
||||
@@ -1531,7 +1531,6 @@ Public Class Timbrado
|
||||
|
||||
If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then
|
||||
|
||||
|
||||
If ObjCFDITimbre.ComplementoPagos20.ComplementoPagos.Count > 0 Then
|
||||
|
||||
Dim Totales As New Profact.TimbraCFDI40.Complementos.Pagos20.PagosTotales() 'Totales Generales
|
||||
@@ -2461,68 +2460,66 @@ Public Class Timbrado
|
||||
|
||||
#Region "Comercio Exterior"
|
||||
|
||||
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
|
||||
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
|
||||
|
||||
'DATOS GENERALES
|
||||
cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Incoterm,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Subdivision,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD)
|
||||
cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Incoterm,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Observaciones,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD)
|
||||
'EMISOR
|
||||
cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
|
||||
cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP)
|
||||
cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP))
|
||||
cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP)
|
||||
'RECEPTOR
|
||||
cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
|
||||
cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
|
||||
cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib)
|
||||
cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP)
|
||||
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario IsNot Nothing Then
|
||||
cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then
|
||||
cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP)
|
||||
End If
|
||||
|
||||
|
||||
'MERCANCIAS
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
|
||||
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
|
||||
cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then
|
||||
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias
|
||||
cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
|
||||
If concep.DescripcionesEspecificas.Marca <> "" Then
|
||||
cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
|
||||
cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
|
||||
concep.DescripcionesEspecificas.Modelo,
|
||||
concep.DescripcionesEspecificas.SubModelo,
|
||||
concep.DescripcionesEspecificas.NumeroSerie)
|
||||
@@ -2545,7 +2542,7 @@ Public Class Timbrado
|
||||
|
||||
#Region "C O M P L E M E N T O C A R T A P O R T E"
|
||||
|
||||
|
||||
'If UsuarioActual.CveEmpresa = 13 Then
|
||||
' If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
|
||||
|
||||
' Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
||||
@@ -2613,6 +2610,8 @@ Public Class Timbrado
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'Else
|
||||
|
||||
|
||||
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
|
||||
|
||||
@@ -2679,6 +2678,8 @@ Public Class Timbrado
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'End If
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -3452,6 +3452,9 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
TxtPrecio.Enabled = False
|
||||
If UsuarioActual.CveUsuario = 3986 Then
|
||||
TxtPrecio.Enabled = True
|
||||
End If
|
||||
'ocultar la columna de subproyecto
|
||||
GvPS.Columns(ColumnaSubProyecto).Visible = False
|
||||
ThProyecto.Visible = False
|
||||
@@ -12691,25 +12694,25 @@ Partial Class Ventas
|
||||
|
||||
If ChkEmitirComercioExterior.Checked Then
|
||||
'AplicaComercioExteriorSubProyecto = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
|
||||
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
|
||||
Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
|
||||
|
||||
'DATOS GENERALES
|
||||
|
||||
Timbre.Comprobante.Exportacion = "02"
|
||||
Timbre.Complementos.ComercioExterior11.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.CertificadoOrigen = "0"
|
||||
Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
|
||||
Timbre.Complementos.ComercioExterior11.Subdivision = "0"
|
||||
Timbre.Complementos.ComercioExterior.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString()
|
||||
Timbre.Complementos.ComercioExterior.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString()
|
||||
Timbre.Complementos.ComercioExterior.CertificadoOrigen = "0"
|
||||
Timbre.Complementos.ComercioExterior.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
|
||||
Timbre.Complementos.ComercioExterior.Subdivision = "0"
|
||||
|
||||
Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio)
|
||||
Timbre.Complementos.ComercioExterior.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio)
|
||||
|
||||
Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
|
||||
Timbre.Complementos.ComercioExterior.MotivoTraslado = ""
|
||||
|
||||
'If Timbre.Comprobante.TipoComprobante = "T" Then
|
||||
' Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
|
||||
' Timbre.Complementos.ComercioExterior.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
|
||||
'Else
|
||||
' Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
|
||||
' Timbre.Complementos.ComercioExterior.MotivoTraslado = ""
|
||||
'End If
|
||||
|
||||
'EMISOR
|
||||
@@ -12718,16 +12721,16 @@ Partial Class Ventas
|
||||
If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
|
||||
Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
|
||||
End If
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.CURP = UsuarioActual.Empresa.CURP
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.NumeroExterior = Dr("NoExt").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.NumeroInterior = Dr("NoInt").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.Colonia = Dr("ClaveSATColonia").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.Localidad = ""
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.Estado = Dr("ClaveSATEstado").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.CURP = UsuarioActual.Empresa.CURP
|
||||
Timbre.Complementos.ComercioExterior.Emisor.Calle = Dr("Calle").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.NumeroExterior = Dr("NoExt").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.NumeroInterior = Dr("NoInt").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.Colonia = Dr("ClaveSATColonia").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.Localidad = ""
|
||||
Timbre.Complementos.ComercioExterior.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.Estado = Dr("ClaveSATEstado").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.Pais = Dr("ClaveSATPais").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Emisor.CP = Dr("ClaveSATCP").ToString()
|
||||
|
||||
Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
|
||||
ComExtColonia = "" : ComExtMunicipio = ""
|
||||
@@ -12751,17 +12754,17 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
'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.Complementos.ComercioExterior.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
|
||||
Timbre.Complementos.ComercioExterior.Receptor.Calle = ComExtCalle
|
||||
Timbre.Complementos.ComercioExterior.Receptor.NumeroExterior = ComExtNumero
|
||||
Timbre.Complementos.ComercioExterior.Receptor.NumeroInterior = ""
|
||||
Timbre.Complementos.ComercioExterior.Receptor.Colonia = ComExtColonia
|
||||
Timbre.Complementos.ComercioExterior.Receptor.Localidad = ""
|
||||
Timbre.Complementos.ComercioExterior.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
|
||||
Timbre.Complementos.ComercioExterior.Receptor.Municipio = ComExtMunicipio
|
||||
Timbre.Complementos.ComercioExterior.Receptor.CP = ComExtCP
|
||||
Timbre.Complementos.ComercioExterior.Receptor.Estado = ComExtEstado
|
||||
Timbre.Complementos.ComercioExterior.Receptor.Pais = ComExtPais
|
||||
Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
|
||||
Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
|
||||
|
||||
@@ -12778,23 +12781,23 @@ Partial Class Ventas
|
||||
|
||||
If RowDireccion IsNot Nothing Then
|
||||
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = RowDireccion("EnvioContacto").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Calle = RowDireccion("EnvioDireccion").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = RowDireccion("EnvioNoExt").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ""
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = RowDireccion("NombreLocalidad").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = ""
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = RowDireccion("NombreMunicipio").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.CP = RowDireccion("EnvioCP").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Estado = RowDireccion("NombreEstado").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Nombre = RowDireccion("EnvioContacto").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Calle = RowDireccion("EnvioDireccion").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.NumeroExterior = RowDireccion("EnvioNoExt").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.NumeroInterior = ""
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Colonia = ""
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Localidad = RowDireccion("NombreLocalidad").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Referencia = ""
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Municipio = RowDireccion("NombreMunicipio").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.CP = RowDireccion("EnvioCP").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Estado = RowDireccion("NombreEstado").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
|
||||
Timbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
|
||||
Timbre.Complementos.ComercioExterior.Destinatario = Nothing
|
||||
End If
|
||||
|
||||
'MERCANCIAS
|
||||
@@ -12809,12 +12812,12 @@ Partial Class Ventas
|
||||
mercancia.DescripcionesEspecificas.Marca = Gvr.FCTextBox("TxtMarca").Text
|
||||
End If
|
||||
|
||||
Timbre.Complementos.ComercioExterior11.Mercancias.Add(mercancia)
|
||||
Timbre.Complementos.ComercioExterior.Mercancias.Add(mercancia)
|
||||
i += 1
|
||||
Next
|
||||
|
||||
Else
|
||||
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
|
||||
Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
|
||||
End If
|
||||
|
||||
Return Timbre
|
||||
@@ -16753,6 +16756,9 @@ Partial Class Ventas
|
||||
|
||||
If EsVentaMedica Then
|
||||
TxtPrecio.Enabled = False
|
||||
If UsuarioActual.CveUsuario = 3986 Then
|
||||
TxtPrecio.Enabled = True
|
||||
End If
|
||||
Else
|
||||
If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
|
||||
If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
|
||||
@@ -21654,6 +21660,9 @@ Partial Class Ventas
|
||||
|
||||
If EsVentaMedica Then
|
||||
TxtPrecio.Enabled = False
|
||||
If UsuarioActual.CveUsuario = 3986 Then
|
||||
TxtPrecio.Enabled = True
|
||||
End If
|
||||
Else
|
||||
TxtPrecio.Enabled = True
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user