-- mejora en el caso de material peligroso, que no valla etiqueta seguro medio ambiente
This commit is contained in:
@@ -122,8 +122,8 @@ Public Class Timbres
|
|||||||
Dim DtMovimientos As DataTable = Nothing
|
Dim DtMovimientos As DataTable = Nothing
|
||||||
Dim drT As DataRow = ObjGrales.DtResultados.Rows(0)
|
Dim drT As DataRow = ObjGrales.DtResultados.Rows(0)
|
||||||
|
|
||||||
Timbre.Receptor.RFC = drT("RemitenteRFC").ToString
|
Timbre.Receptor.RFC = drT("EmpresaRFC").ToString
|
||||||
Timbre.Receptor.Nombre = drT("RemitenteNombre").ToString
|
Timbre.Receptor.Nombre = drT("EmpresaNombre").ToString
|
||||||
Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString
|
Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString
|
||||||
Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString
|
Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString
|
||||||
|
|
||||||
@@ -166,8 +166,14 @@ Public Class Timbres
|
|||||||
CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString
|
CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString
|
||||||
CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString
|
CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString
|
||||||
CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil = drT("NumPolizaSeguro").ToString
|
CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil = drT("NumPolizaSeguro").ToString
|
||||||
CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente = drT("NombreAseguradoraMedioAmbiente").ToString
|
|
||||||
CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente = drT("NumPolizaSeguroMedioAmbiente").ToString
|
If Obj.DtDetalle IsNot Nothing AndAlso Obj.DtDetalle.Rows.Count > 0 Then
|
||||||
|
If Obj.DtDetalle.MAX("ClaveMaterialPeligroso") <> "" Then
|
||||||
|
CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente = drT("NombreAseguradoraMedioAmbiente").ToString
|
||||||
|
CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente = drT("NumPolizaSeguroMedioAmbiente").ToString
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroCarga = drT("NombreAseguradoraCarga").ToString
|
CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroCarga = drT("NombreAseguradoraCarga").ToString
|
||||||
CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroCarga = drT("NumPolizaSeguroCarga").ToString
|
CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroCarga = drT("NumPolizaSeguroCarga").ToString
|
||||||
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString
|
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString
|
||||||
@@ -204,104 +210,109 @@ Public Class Timbres
|
|||||||
.Municipio = drT("DirDesClaveSATMunicipio").ToString,
|
.Municipio = drT("DirDesClaveSATMunicipio").ToString,
|
||||||
.Localidad = drT("DirDesClaveSATLocalidad").ToString}
|
.Localidad = drT("DirDesClaveSATLocalidad").ToString}
|
||||||
|
|
||||||
|
Dim NumRegIdTrib As String = ""
|
||||||
Dim Ubica As New CFDICartaPorteUbicacion
|
If drT("DestinatarioRFC").ToString.Contiene("XEXX010101000") Then ' cuando es Extranjero, debe de llevar un numregidtrib
|
||||||
Ubica.TipoEstacion = ""
|
NumRegIdTrib = "121585958"
|
||||||
Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Origen", .IDUbicacion = "OR000001", .RFCRemitenteDestinatario = drT("RemitenteRFC").ToString,
|
End If
|
||||||
.FechaHoraSalidaLlegada = FechaSalida.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
|
|
||||||
.NombreRemitenteDestinatario = drT("RemitenteNombre").ToString,
|
Dim Ubica As New CFDICartaPorteUbicacion
|
||||||
.Domicilio = DomOrigen}
|
Ubica.TipoEstacion = ""
|
||||||
CartaPorte.Ubicaciones.Add(Ubica)
|
Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Origen", .IDUbicacion = "OR000001", .RFCRemitenteDestinatario = drT("RemitenteRFC").ToString,
|
||||||
Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Destino", .IDUbicacion = "DE000001", .RFCRemitenteDestinatario = drT("DestinatarioRFC").ToString,
|
.FechaHoraSalidaLlegada = FechaSalida.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
|
||||||
.FechaHoraSalidaLlegada = FechaLlegada.ToString("yyyy-MM-ddTHH:mm:ss"),
|
.NombreRemitenteDestinatario = drT("RemitenteNombre").ToString,
|
||||||
.NombreRemitenteDestinatario = drT("DestinatarioNombre").ToString,
|
.Domicilio = DomOrigen}
|
||||||
.Domicilio = DomDestino,
|
CartaPorte.Ubicaciones.Add(Ubica)
|
||||||
.DistanciaRecorrida = Distancia}
|
Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Destino", .IDUbicacion = "DE000001", .RFCRemitenteDestinatario = drT("DestinatarioRFC").ToString,
|
||||||
|
.FechaHoraSalidaLlegada = FechaLlegada.ToString("yyyy-MM-ddTHH:mm:ss"),
|
||||||
CartaPorte.Ubicaciones.Add(Ubica)
|
.NombreRemitenteDestinatario = drT("DestinatarioNombre").ToString,
|
||||||
CartaPorte.FiguraTransporte.ClaveTransporte = "01"
|
.Domicilio = DomDestino,
|
||||||
|
.DistanciaRecorrida = Distancia,
|
||||||
Dim DomicilioOperador As New CFDICartaPorteDomicilio With {.Calle = drT("FiguraDomicilio").ToString,
|
.NumRegIdTrib = NumRegIdTrib}
|
||||||
.NumeroExterior = drT("FiguraNumeroExterior").ToString,
|
|
||||||
.NumeroInterior = drT("FiguraNumeroInterior").ToString,
|
CartaPorte.Ubicaciones.Add(Ubica)
|
||||||
.Colonia = drT("FiguraClaveSATColonia").ToString,
|
CartaPorte.FiguraTransporte.ClaveTransporte = "01"
|
||||||
.Municipio = drT("FiguraClaveSATMunicipio").ToString,
|
|
||||||
.Estado = drT("FiguraClaveSATEstado").ToString,
|
Dim DomicilioOperador As New CFDICartaPorteDomicilio With {.Calle = drT("FiguraDomicilio").ToString,
|
||||||
.CP = drT("FiguraCP").ToString}
|
.NumeroExterior = drT("FiguraNumeroExterior").ToString,
|
||||||
|
.NumeroInterior = drT("FiguraNumeroInterior").ToString,
|
||||||
|
.Colonia = drT("FiguraClaveSATColonia").ToString,
|
||||||
|
.Municipio = drT("FiguraClaveSATMunicipio").ToString,
|
||||||
CartaPorte.FiguraTransporte.Operadores.Add(New CFDICartaPorteOperador With {
|
.Estado = drT("FiguraClaveSATEstado").ToString,
|
||||||
.RFCFigura = drT("FiguraRFC").ToString,
|
.CP = drT("FiguraCP").ToString}
|
||||||
.NombreFigura = drT("FiguraChofer").ToString,
|
|
||||||
.NumLicencia = drT("FiguraLicencia").ToString,
|
|
||||||
.NumRegidTribFigura = drT("FiguraNumRegidTribFigura").ToString,
|
|
||||||
.ResidenciaFiscalFigura = drT("FiguraResidenciaFiscalFigura").ToString,
|
CartaPorte.FiguraTransporte.Operadores.Add(New CFDICartaPorteOperador With {
|
||||||
.Domicilio = DomicilioOperador})
|
.RFCFigura = drT("FiguraRFC").ToString,
|
||||||
|
.NombreFigura = drT("FiguraChofer").ToString,
|
||||||
|
.NumLicencia = drT("FiguraLicencia").ToString,
|
||||||
'concepto único
|
.NumRegidTribFigura = drT("FiguraNumRegidTribFigura").ToString,
|
||||||
Dim concepto As New CFDIConceptos With {.Cantidad = 1,
|
.ResidenciaFiscalFigura = drT("FiguraResidenciaFiscalFigura").ToString,
|
||||||
.Descripcion = "Traslado",
|
.Domicilio = DomicilioOperador})
|
||||||
.ValorUnitario = 0,
|
|
||||||
.Importe = 0,
|
|
||||||
.Descuento = 0,
|
'concepto único
|
||||||
.Unidad = "Servicio",
|
Dim concepto As New CFDIConceptos With {.Cantidad = 1,
|
||||||
.ClaveUnidad = "E48",
|
.Descripcion = "Traslado",
|
||||||
.ClaveProdServ = "78101802",
|
.ValorUnitario = 0,
|
||||||
.Noidentificacion = "",
|
.Importe = 0,
|
||||||
.CuentaPredial = ""}
|
.Descuento = 0,
|
||||||
|
.Unidad = "Servicio",
|
||||||
Timbre.Conceptos.Add(concepto)
|
.ClaveUnidad = "E48",
|
||||||
|
.ClaveProdServ = "78101802",
|
||||||
For Each drr As DataRow In Obj.DtDetalle.Rows
|
.Noidentificacion = "",
|
||||||
|
.CuentaPredial = ""}
|
||||||
If drr("PS").ToString.Length = 1 Then
|
|
||||||
tPS = drr("Obs").ToString
|
Timbre.Conceptos.Add(concepto)
|
||||||
Else
|
|
||||||
If drr("PS").ToString.Length = 0 Then
|
For Each drr As DataRow In Obj.DtDetalle.Rows
|
||||||
tPS = ""
|
|
||||||
Else
|
If drr("PS").ToString.Length = 1 Then
|
||||||
tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
|
tPS = drr("Obs").ToString
|
||||||
End If
|
Else
|
||||||
End If
|
If drr("PS").ToString.Length = 0 Then
|
||||||
Dim conceptoCarta As New CFDICartaPorteMercancia With {
|
tPS = ""
|
||||||
.BienesTransp = drr("SATClaveProdServ").ToString,
|
Else
|
||||||
.ClaveSTCC = "", 'para metodo ferroviario
|
tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
|
||||||
.Cantidad = drr("Cantidad").ToString.ToDecimal,
|
End If
|
||||||
.Descripción = tPS,
|
End If
|
||||||
.ClaveUnidad = drr("SATClaveUM").ToString,
|
Dim conceptoCarta As New CFDICartaPorteMercancia With {
|
||||||
.Unidad = drr("UM").ToString,
|
.BienesTransp = drr("SATClaveProdServ").ToString,
|
||||||
.Dimensiones = drr("Dimensiones").ToString,
|
.ClaveSTCC = "", 'para metodo ferroviario
|
||||||
.PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal,
|
.Cantidad = drr("Cantidad").ToString.ToDecimal,
|
||||||
.MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
|
.Descripción = tPS,
|
||||||
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
|
.ClaveUnidad = drr("SATClaveUM").ToString,
|
||||||
.Embalaje = drr("ClaveEmbalaje").ToString,
|
.Unidad = drr("UM").ToString,
|
||||||
.DescripEmbalaje = drr("Embalaje").ToString,
|
.Dimensiones = drr("Dimensiones").ToString,
|
||||||
.ValorMercancia = drr("PU").ToString.ToDecimal,
|
.PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal,
|
||||||
.Moneda = "MXN", 'temporal
|
.MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
|
||||||
.FraccionArrancelaria = "",
|
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
|
||||||
.UUIDComercioExt = ""
|
.Embalaje = drr("ClaveEmbalaje").ToString,
|
||||||
}
|
.DescripEmbalaje = drr("Embalaje").ToString,
|
||||||
|
.ValorMercancia = drr("PU").ToString.ToDecimal,
|
||||||
Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal}
|
.Moneda = "MXN", 'temporal
|
||||||
conceptoCarta.DetalleMercancia = DetalleMercancia
|
.FraccionArrancelaria = "",
|
||||||
|
.UUIDComercioExt = ""
|
||||||
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}
|
}
|
||||||
conceptoCarta.MercanciasCantidadTransporta.Add(MercanciaTransporta)
|
|
||||||
|
Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal}
|
||||||
totSubTotal = totSubTotal - concepto.Importe
|
conceptoCarta.DetalleMercancia = DetalleMercancia
|
||||||
CartaPorte.Mercancias.Mercancias.Add(conceptoCarta)
|
|
||||||
|
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}
|
||||||
i += 1
|
conceptoCarta.MercanciasCantidadTransporta.Add(MercanciaTransporta)
|
||||||
Next
|
|
||||||
Timbre.Complementos.CartaPorte = CartaPorte
|
totSubTotal = totSubTotal - concepto.Importe
|
||||||
|
CartaPorte.Mercancias.Mercancias.Add(conceptoCarta)
|
||||||
Else
|
|
||||||
'' T R A S L A D O S
|
i += 1
|
||||||
|
Next
|
||||||
'DETALLES
|
Timbre.Complementos.CartaPorte = CartaPorte
|
||||||
If Obj.DtDetalle IsNot Nothing Then
|
|
||||||
|
Else
|
||||||
|
'' T R A S L A D O S
|
||||||
|
|
||||||
|
'DETALLES
|
||||||
|
If Obj.DtDetalle IsNot Nothing Then
|
||||||
For Each drr As DataRow In Obj.DtDetalle.Rows
|
For Each drr As DataRow In Obj.DtDetalle.Rows
|
||||||
|
|
||||||
If drr("PS").ToString.Length = 1 Then
|
If drr("PS").ToString.Length = 1 Then
|
||||||
|
|||||||
Reference in New Issue
Block a user