carta porte

This commit is contained in:
2021-10-05 08:26:28 -07:00
parent 814f51d8c5
commit 24f8a473ec
4 changed files with 42 additions and 41 deletions

View File

@@ -580,7 +580,7 @@ Public Class CFDICartaPorte
Public Property ViaEntradaSalida As String = "" Public Property ViaEntradaSalida As String = ""
Public ReadOnly Property TotalDistanciaRecorrida As Decimal Public ReadOnly Property TotalDistanciaRecorrida As Decimal
Get 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 Get
End Property End Property
Public Property Ubicaciones As New List(Of CFDICartaPorteUbicaciones) Public Property Ubicaciones As New List(Of CFDICartaPorteUbicaciones)
@@ -591,7 +591,8 @@ End Class
<Serializable> <Serializable>
Public Class CFDICartaPorteUbicaciones Public Class CFDICartaPorteUbicaciones
Public Property TipoEstacion As String = "" 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 Ubicacion As New CFDICartaPorteUbicacion
Public Property Origen As New CFDICartaPorteUbicacionOrigen Public Property Origen As New CFDICartaPorteUbicacionOrigen
Public Property Destino As New CFDICartaPorteUbicacionDestino Public Property Destino As New CFDICartaPorteUbicacionDestino

View File

@@ -2141,13 +2141,13 @@ Public Class Timbrado
'UBICACIONES 'UBICACIONES
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones
'origen '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.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) 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 '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.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) 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 Next
@@ -3790,20 +3790,20 @@ Public Class Timbrado
ComCartaPorte.ViaEntradaSalidaSpecified = False ComCartaPorte.ViaEntradaSalidaSpecified = False
ComCartaPorte.TotalDistRecSpecified = False ComCartaPorte.TotalDistRecSpecified = False
'UBICACIONES 'UBICACIONES
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
Dim i As Integer = 0 Dim i As Integer = 0
ComCartaPorte.Ubicaciones = New ProfactCartaPorte.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {} ComCartaPorte.Ubicaciones = New ProfactCartaPorte.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {}
For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones
'origen 'origen
ComCartaPorte.Ubicaciones(i) = New ProfactCartaPorte.CartaPorteUbicacion ComCartaPorte.Ubicaciones(i) = New ProfactCartaPorte.CartaPorteUbicacion
ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False 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, ComCartaPorte.Ubicaciones(i).Origen = New ProfactCartaPorte.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen,
.RFCRemitente = ubica.Origen.RFCRemitente, .RFCRemitente = ubica.Origen.RFCRemitente,
.NombreRemitente = ubica.Origen.NombreRemitente, .NombreRemitente = ubica.Origen.NombreRemitente,
.FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate} .FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate}
ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle, ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle,
.NumeroExterior = ubica.Origen.Domicilio.NumeroExterior, .NumeroExterior = ubica.Origen.Domicilio.NumeroExterior,
.NumeroInterior = ubica.Origen.Domicilio.NumeroInterior, .NumeroInterior = ubica.Origen.Domicilio.NumeroInterior,
.Colonia = ubica.Origen.Domicilio.Colonia, .Colonia = ubica.Origen.Domicilio.Colonia,
@@ -3812,16 +3812,16 @@ Public Class Timbrado
.Municipio = ubica.Origen.Domicilio.Municipio, .Municipio = ubica.Origen.Domicilio.Municipio,
.Estado = ubica.Origen.Domicilio.Estado, .Estado = ubica.Origen.Domicilio.Estado,
.CodigoPostal = ubica.Origen.Domicilio.CP} .CodigoPostal = ubica.Origen.Domicilio.CP}
'falta pais 'falta pais
ComCartaPorte.Ubicaciones(i).Destino = New ProfactCartaPorte.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino, ComCartaPorte.Ubicaciones(i).Destino = New ProfactCartaPorte.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino,
.RFCDestinatario = ubica.Destino.RFCDestinatario, .RFCDestinatario = ubica.Destino.RFCDestinatario,
.NombreDestinatario = ubica.Destino.NombreDestinatario, .NombreDestinatario = ubica.Destino.NombreDestinatario,
.FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate} .FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate}
ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle, ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle,
.NumeroExterior = ubica.Destino.Domicilio.NumeroExterior, .NumeroExterior = ubica.Destino.Domicilio.NumeroExterior,
.NumeroInterior = ubica.Destino.Domicilio.NumeroInterior, .NumeroInterior = ubica.Destino.Domicilio.NumeroInterior,
.Colonia = ubica.Destino.Domicilio.Colonia, .Colonia = ubica.Destino.Domicilio.Colonia,
@@ -3832,16 +3832,16 @@ Public Class Timbrado
.CodigoPostal = ubica.Destino.Domicilio.CP} .CodigoPostal = ubica.Destino.Domicilio.CP}
'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida)
'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.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) '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 'destino
'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida)
'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.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) '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 Next
End If End If
'MERCANCIAS 'MERCANCIAS
If Carta.Mercancias IsNot Nothing Then If Carta.Mercancias IsNot Nothing Then

View File

@@ -208,7 +208,7 @@
<div class="row"> <div class="row">
<label class="col-md-1">Unidad:</label> <label class="col-md-1">Unidad:</label>
<div class="col-md-1 "> <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>
<div class="col-md-2"> <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> <asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa"></asp:DropDownList>

View File

@@ -2760,7 +2760,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue)) Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue))
If Dr IsNot Nothing Then 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.NumPermisoSCT = Dr("NumPermisoSCT").ToString
CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = Dr("NombreAseguradora").ToString CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = Dr("NombreAseguradora").ToString
CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = Dr("NumPolizaSeguro").ToString CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = Dr("NumPolizaSeguro").ToString
@@ -2799,7 +2799,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Ubica As New CFDICartaPorteUbicaciones Dim Ubica As New CFDICartaPorteUbicaciones
Ubica.TipoEstacion = "" Ubica.TipoEstacion = ""
Ubica.DistanciaRecorrida = 1 Ubica.DistanciaRecorridaDestino = 1
Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC, Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC,
.FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01", .FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
.NombreRemitente = UsuarioActual.Empresa.Empresa, .NombreRemitente = UsuarioActual.Empresa.Empresa,
@@ -3274,13 +3274,13 @@ Partial Class Inventarios_TraspasoAlmacen
End Sub End Sub
Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
Dim ObjInventarios As New ClsInventarios '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 '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');") ' RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
CargarCamiones() ' CargarCamiones()
LimpiarAgregarCamion() ' LimpiarAgregarCamion()
End If 'End If
ObjInventarios.Dispose() 'ObjInventarios.Dispose()
End Sub End Sub
Private Sub LimpiarAgregarCamion() Private Sub LimpiarAgregarCamion()