carta porte

App_Code/CFDITimbre.vb

@@ -580,7 +580,7 @@ Public Class CFDICartaPorte
     Public Property ViaEntradaSalida As String = ""
     Public ReadOnly Property TotalDistanciaRecorrida As Decimal
         Get
-            Return Ubicaciones.Sum(Function(item) item.DistanciaRecorrida) * 2
+            Return Ubicaciones.Sum(Function(item) item.DistanciaRecorridaOrigen) + Ubicaciones.Sum(Function(item) item.DistanciaRecorridaDestino)
         End Get
     End Property
     Public Property Ubicaciones As New List(Of CFDICartaPorteUbicaciones)
@@ -591,7 +591,8 @@ End Class
 <Serializable>
 Public Class CFDICartaPorteUbicaciones
     Public Property TipoEstacion As String = ""
-    Public Property DistanciaRecorrida As Decimal = 0
+    Public Property DistanciaRecorridaOrigen As Decimal = 0
+    Public Property DistanciaRecorridaDestino As Decimal = 0
     'Public Property Ubicacion As New CFDICartaPorteUbicacion
     Public Property Origen As New CFDICartaPorteUbicacionOrigen
     Public Property Destino As New CFDICartaPorteUbicacionDestino

App_Code/Timbrado.vb

@@ -2142,11 +2142,11 @@ Public Class Timbrado
                 If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
                     For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones
                     'origen
-                        cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                    cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorridaOrigen)
                     cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
                         cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP)
                     'destino
-                        cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                    cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorridaDestino)
                     cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada)
                         cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP)
                     Next
@@ -3798,7 +3798,7 @@ Public Class Timbrado
                     'origen
                     ComCartaPorte.Ubicaciones(i) = New ProfactCartaPorte.CartaPorteUbicacion
                     ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False
-                        ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida
+                    ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorridaDestino
                     ComCartaPorte.Ubicaciones(i).Origen = New ProfactCartaPorte.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen,
                                                                                                                                                     .RFCRemitente = ubica.Origen.RFCRemitente,
                                                                                                                                                     .NombreRemitente = ubica.Origen.NombreRemitente,

Inventarios/TraspasoAlmacen.aspx

@@ -208,7 +208,7 @@
                                             <div class="row">
                                                 <label class="col-md-1">Unidad:</label>
                                                 <div class="col-md-1 ">
-                                                    <asp:HyperLink runat="server" ID="HplNuevaUnidad" CssClass="btn btn-sm btn-primary" NavigateUrl="#" data-toggle="modal" data-target="#DivAgregarNuevoCamion"><i class='fa fa-plus'></i></asp:HyperLink>
+                                                    <asp:HyperLink runat="server" Visible="false" ID="HplNuevaUnidad" CssClass="btn btn-sm btn-primary" NavigateUrl="#" data-toggle="modal" data-target="#DivAgregarNuevoCamion"><i class='fa fa-plus'></i></asp:HyperLink>
                                                 </div>
                                                 <div class="col-md-2">
                                                     <asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa"></asp:DropDownList>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2760,7 +2760,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue))
 
         If Dr IsNot Nothing Then
-            CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = Dr("TipoPermisoSCT").ToString '"TPAF01"
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = Dr("ClaveTipoPermisoSCT").ToString '"TPAF01"
             CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = Dr("NumPermisoSCT").ToString
             CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = Dr("NombreAseguradora").ToString
             CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = Dr("NumPolizaSeguro").ToString
@@ -2799,7 +2799,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         Dim Ubica As New CFDICartaPorteUbicaciones
         Ubica.TipoEstacion = ""
-        Ubica.DistanciaRecorrida = 1
+        Ubica.DistanciaRecorridaDestino = 1
         Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC,
                                                                 .FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
                                                                 .NombreRemitente = UsuarioActual.Empresa.Empresa,
@@ -3274,13 +3274,13 @@ Partial Class Inventarios_TraspasoAlmacen
 
     End Sub
     Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
-        Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
-            RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
-            CargarCamiones()
-            LimpiarAgregarCamion()
-        End If
-        ObjInventarios.Dispose()
+        'Dim ObjInventarios As New ClsInventarios
+        'If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
+        '    RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
+        '    CargarCamiones()
+        '    LimpiarAgregarCamion()
+        'End If
+        'ObjInventarios.Dispose()
     End Sub
 
     Private Sub LimpiarAgregarCamion()