+
+
+ <%--
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e72bd615b..fe1571b9d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6334,6 +6334,10 @@ Partial Class Ventas
LblTipoOperacion.Text = ObjCliente.ClaveSATTipoOperacionDescripcion
LblClavePedimento.Text = ObjCliente.ClaveSATPedimentoDescripcion
+ If ObjCliente.AplicaComercioExterior Then
+ ChkEmitirComercioExterior.Checked = True
+ End If
+
If ObjCliente.AplicaComercioExterior Then
DdlSATMotivoTraslado.DataSource = GlobalDTSATMotivoTraslado
DdlSATMotivoTraslado.DataBind()
@@ -11764,6 +11768,10 @@ Partial Class Ventas
Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
Dim Timbre As New CFDITimbre
+
+
+ Timbre.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", "4.0", "3.3")
+
Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
Timbre.Comprobante.Folio = Obj.Folio.ToString()
Timbre.Comprobante.Serie = Obj.Serie
@@ -11972,104 +11980,121 @@ Partial Class Ventas
i += 1
Next
- Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
- Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
- If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
- 'DATOS GENERALES
- 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.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal)
- Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
+ Dim AplicaComercioExteriorSubProyecto As Boolean
+
+ If ChkEmitirComercioExterior.Checked Then
+ AplicaComercioExteriorSubProyecto = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
+ Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
+
+ If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
+ '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.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal)
+ Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
- 'EMISOR
- Dim Dr As DataRow
- Dr = Nothing
- 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()
- 'RECEPTOR
- Timbre.Complementos.ComercioExterior11.Receptor.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
+ 'EMISOR
+ Dim Dr As DataRow
+ Dr = Nothing
+ 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()
- Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
- ComExtColonia = "" : ComExtMunicipio = ""
- ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
- ComExtCalle = TxtComExtCalle.Text.Trim
- ComExtNumero = TxtComExtNumero.Text.Trim
- ComExtCP = TxtComExtCP.Text.Trim
- If ComExtPais = "MEX" Then
- ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
- ComExtMunicipio = GlobalDTGralMunicipios(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
- ComExtColonia = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=DdlComExtColonia.SelectedValue.ToEntero).FiltroPrimeroValor("ClaveSATColonia", "")
- Else
- If ComExtPais.Contiene("USA", "CAN") Then
+ '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}")
+ ComExtCalle = TxtComExtCalle.Text.Trim
+ ComExtNumero = TxtComExtNumero.Text.Trim
+ ComExtCP = TxtComExtCP.Text.Trim
+
+ If ComExtPais = "MEX" Then
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
+ ComExtMunicipio = GlobalDTGralMunicipios(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
+ ComExtColonia = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=DdlComExtColonia.SelectedValue.ToEntero).FiltroPrimeroValor("ClaveSATColonia", "")
Else
- ComExtEstado = TxtComExtEstado.Text.Trim
+ If ComExtPais.Contiene("USA", "CAN") Then
+ ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
+ Else
+ ComExtEstado = TxtComExtEstado.Text.Trim
+ End If
+ ComExtMunicipio = TxtComExtMunicipio.Text.Trim
+ ComExtColonia = TxtComExtColonia.Text.Trim
End If
- ComExtMunicipio = TxtComExtMunicipio.Text.Trim
- ComExtColonia = TxtComExtColonia.Text.Trim
+
+ '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
+
+
+ 'MERCANCIAS
+ For Each Gvr As GridViewRow In GvComercioExterior.Rows
+ Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
+ .FraccionArancelaria = Gvr.DataKey("ClaveSATFraccionArancelaria").ToString(),
+ .UnidadAduana = Gvr.DataKey("ClaveSATUnidadAduana").ToString(),
+ .ValorDolares = Math.Round(Gvr.FCTextBox("TxtCantidad").Text.ToDecimal * Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal, 2),
+ .ValorUnitarioAduana = Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal,
+ .NoIdentificacion = Gvr.DataKey("Codigo")}
+ If Gvr.FCTextBox("TxtMarca").Text <> "" Then
+ mercancia.DescripcionesEspecificas.Marca = Gvr.FCTextBox("TxtMarca").Text
+ End If
+
+ Timbre.Complementos.ComercioExterior11.Mercancias.Add(mercancia)
+ i += 1
+ Next
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
-
- 'MERCANCIAS
- For Each Gvr As GridViewRow In GvComercioExterior.Rows
- Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
- .FraccionArancelaria = Gvr.DataKey("ClaveSATFraccionArancelaria").ToString(),
- .UnidadAduana = Gvr.DataKey("ClaveSATUnidadAduana").ToString(),
- .ValorDolares = Math.Round(Gvr.FCTextBox("TxtCantidad").Text.ToDecimal * Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal, 2),
- .ValorUnitarioAduana = Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal,
- .NoIdentificacion = Gvr.DataKey("Codigo")}
- If Gvr.FCTextBox("TxtMarca").Text <> "" Then
- mercancia.DescripcionesEspecificas.Marca = Gvr.FCTextBox("TxtMarca").Text
- End If
-
- Timbre.Complementos.ComercioExterior11.Mercancias.Add(mercancia)
- i += 1
- Next
+ Else
+ Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
End If
+
+
+
+
Return Timbre
End Function
@@ -35019,5 +35044,10 @@ Partial Class Ventas
End Function
+ Protected Sub ChkEmitirComercioExterior_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+
End Class