From f1289c09b91dcf1ac1af654b080bddc640ef3eca Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 23 Sep 2021 06:49:28 -0700
Subject: [PATCH] -CARTAPORTE

---
 Inventarios/TraspasoAlmacen.aspx.vb | 54 +++++++++++++++++++++++++++--
 1 file changed, 51 insertions(+), 3 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index f585987ab..eeb0e8011 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2712,6 +2712,50 @@ Partial Class Inventarios_TraspasoAlmacen
         CartaPorte.Mercancias.UnidadPeso = ""
         CartaPorte.Mercancias.CargoporTasacion = 0
 
+        ''CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = "TPAF01"
+        ''CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = "1234567890"
+        ''CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = "GNP"
+        ''CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = "P123"
+        ''CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular = "C2"
+        ''CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM = "WTF757A"
+        ''CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM = 2007
+
+        ''Dim DomOrigen As New CFDICartaPorteDomicilio With {.Calle = "calle",
+        ''                                                        .Colonia = "",
+        ''                                                        .CP = "45200",
+        ''                                                        .Estado = "JAL",
+        ''                                                        .Pais = "MEX",
+        ''                                                        .Localidad = ""}
+        ''Dim DomDestino As New CFDICartaPorteDomicilio With {.Calle = "calle destino",
+        ''                                                        .Colonia = "",
+        ''                                                        .CP = "45200",
+        ''                                                        .Estado = "JAL",
+        ''                                                        .Pais = "MEX",
+        ''                                                        .Localidad = ""}
+        ''Dim Ubica As New CFDICartaPorteUbicaciones
+        ''Ubica.TipoEstacion = "01"
+        ''Ubica.DistanciaRecorrida = 6
+        ''Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "CAMJ841219I33",
+        ''                                                        .FechaHoraSalida = "2021-08-23T11:13:01",
+        ''                                                        .NombreRemitente = "Empresa",
+        ''                                                        .Domicilio = DomOrigen}
+        ''Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = "CAMJ841219I33",
+        ''                                                        .FechaHoraProgLlegada = "2021-08-23T11:13:01",
+        ''                                                        .NombreDestinatario = "Empresa dest",
+        ''                                                        .Domicilio = DomDestino}
+
+        ''CartaPorte.Ubicaciones.Add(Ubica)
+
+        ''CartaPorte.FiguraTransporte.ClaveTransporte = "01"
+        ''CartaPorte.FiguraTransporte.Operadores.Add(New CFDICartaPorteOperador With {.RFCOperador = "CAMJ841219I33",
+        ''                                                .Domicilio = Nothing,
+        ''                                                .NombreOperador = "juan Perez",
+        ''                                                .NumLicencia = "Num Lic",
+        ''                                                .NumRegidTribOperador = "",
+        ''                                                .ResidenciaFiscalOperador = ""})
+
+
+
         Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue))
 
         If Dr IsNot Nothing Then
@@ -2799,7 +2843,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                                         .Descripcion = "Flete",
                                                         .ValorUnitario = 0,
                                                         .Importe = 0,
-                                                        .Descuento = 0L,
+                                                        .Descuento = 0,
                                                         .Unidad = "Servicio",
                                                         .ClaveUnidad = "E48",
                                                         .ClaveProdServ = "78101802",
@@ -2977,7 +3021,7 @@ Partial Class Inventarios_TraspasoAlmacen
         'If TimbrarFacturaGoCFDIv33(ObjFactura, UsuarioActual, 4) <> "" Then
         '    MensajeAlert.AppendFormat("<ul><li>-- no timbró-{0}</li></ul>", MensajeErrorCFDI)
         'End If
-        If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
+        If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, 3) Then
             MensajeAlert.Append("Emitido con exito.")
             'XML
             Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
@@ -2991,7 +3035,11 @@ Partial Class Inventarios_TraspasoAlmacen
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
             End If
 
-            MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
+            If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimientoTimbrado)))
+            Else
+                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
+            End If
 
         Else
             MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbrado.MensajeErrorCFDI)