- cambios y mejoras en carta porte

2021-12-16 19:29:55 -07:00
parent 06725f895a
commit 233bde3528
7 changed files with 105 additions and 98 deletions
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -590,7 +590,7 @@ End Class

 <Serializable>
 Public Class CFDICartaPorteAutoTransporte
-    Public Property PermSCT As String = ""
+    Public Property PermisoSCT As String = ""
    Public Property NumPermisoSCT As String = ""
    Public Property NombreSeguroResponsabilidadCivil As String = ""
    Public Property PolizaSeguroResponsabilidadCivil As String = ""
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2171,7 +2171,7 @@ Public Class Timbrado

                If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then

-                    cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
+                    cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)

                    cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)

@@ -3918,8 +3918,8 @@ Public Class Timbrado

                    ComCartaPorte.FiguraTransporte.CveTransporte = ProfactCartaPorte.c_CveTransporte.Item02
                    ComCartaPorte.Mercancias.AutotransporteFederal = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederal
-                    If Carta.FiguraTransporte.AutoTransporte.PermSCT <> "" Then
-                        ComCartaPorte.Mercancias.AutotransporteFederal.PermSCT = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoPermiso), Carta.FiguraTransporte.AutoTransporte.PermSCT), ProfactCartaPorte.c_TipoPermiso)
+                    If Carta.FiguraTransporte.AutoTransporte.PermisoSCT <> "" Then
+                        ComCartaPorte.Mercancias.AutotransporteFederal.PermSCT = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoPermiso), Carta.FiguraTransporte.AutoTransporte.PermisoSCT), ProfactCartaPorte.c_TipoPermiso)
                    End If
                    ComCartaPorte.Mercancias.AutotransporteFederal.NumPermisoSCT = Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT
                    'pendiente RMF
--- a/App_Code/Timbres.vb
+++ b/App_Code/Timbres.vb
@@ -136,6 +136,13 @@ Public Class Timbres
                Timbre.Comprobante.Serie = Obj.Serie
                Timbre.Comprobante.Folio = Obj.Folio.ToString

+                If drT("FolioFiscalRelacionado").ToString <> "" Then
+
+                    Timbre.CFDIRelacionados.TipoRelacion = "05"
+                    Timbre.CFDIRelacionados.UUID.Add(drT("FolioFiscalRelacionado").ToString)
+
+                End If
+
                If ObjGrales.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
                        DtMovimientos = ObjGrales.DtResultados
                    Else
@@ -154,7 +161,7 @@ Public Class Timbres

                    If AplicaCP Then

-                    CartaPorte.FiguraTransporte.AutoTransporte.PermSCT = drT("TipoPermisoSCT").ToString '"TPAF01"
+                        CartaPorte.FiguraTransporte.AutoTransporte.PermisoSCT = drT("ClaveTipoPermisoSCT").ToString '"TPAF01"
                        CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString
                        CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString
                        CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil = drT("NumPolizaSeguro").ToString
@@ -166,8 +173,6 @@ Public Class Timbres
                        CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString
                        CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero

-                    CPCliente = drT("CPCliente").ToString.ToEntero
-

                        Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
                        DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,
@@ -197,9 +202,9 @@ Public Class Timbres
                                                                .NombreRemitenteDestinatario = UsuarioActual.Empresa.Empresa,
                                                                .Domicilio = DomOrigen}
                        CartaPorte.Ubicaciones.Add(Ubica)
-                    Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Destino", .IDUbicacion = "DE000001", .RFCRemitenteDestinatario = UsuarioActual.Empresa.RFC,'UsuarioActual.Empresa.RFC,'"CAMJ841219I33",
+                        Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Destino", .IDUbicacion = "DE000001", .RFCRemitenteDestinatario = drT("DestinatarioRFC").ToString,
                                                                .FechaHoraSalidaLlegada = FechaLlegada.ToString("yyyy-MM-ddTHH:mm:ss"),
-                                                                .NombreRemitenteDestinatario = UsuarioActual.Empresa.Empresa,
+                                                                .NombreRemitenteDestinatario = drT("DestinatarioNombre").ToString,
                                                                .Domicilio = DomDestino,
                                                                .DistanciaRecorrida = Distancia}

--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1313,7 +1313,7 @@ Partial Class PopUpVerFactura
                DescargarArchivoPDFTraslado(Archivo, Path)
            Else
                If Exten = "pdf" Then
-                    Dim ObjTimbres As New Timbres("Rec", cvetimbre, UsuarioActual)
+                    Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual)

                    GeneraPDFFactura(ObjTimbres.ObjFactura)
                    Archivo = New System.IO.FileInfo(Path)
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -666,6 +666,7 @@ Partial Class Inventarios_EntradasSalidas
            TxtHoraInicio.SelectedTime = Mov.Fecha
            EstatusAlmacenCompra = Mov.EstatusAlmacenCompra
            Folio = Mov.Folio
+            Dim drM As DataRow = DtMov.Rows(0)


            If DtMov.Rows(0)("CveConcepto").ToString.ToEntero = 2 Then
@@ -773,13 +774,13 @@ Partial Class Inventarios_EntradasSalidas
            CveCompra = Mov.CveCompra
            CveConcepto = Mov.CveConcepto

-            If DtMov.Rows(0)("CveEstatusTimbrado").ToString.ToEntero > 0 Then
+            If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then
                HplDescargaXml.Visible = True
-                HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", $"Tra-{Folio}", "Tra")))
+                HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), "Tra")))
                HplDescargaPdf.Visible = True
-                HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "PDF", $"Tra-{Folio}", "Tra")))
+                HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "PDF", drM("TimbreSerieFolio"), "Tra")))

-                If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+                If drM("AplicaCP").ToString = "True" Then
                    HplCartaPorteTimbre.Visible = True
                    HplCartaPorteTimbre.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimiento)))
                Else
--- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
@@ -339,7 +339,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
        Timbres ObjTimbres = new Timbres("Tra", cvetimbre, UsuarioActual);
        StringBuilder MensajeAlert = new StringBuilder();
        MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio);
-        if (ObjTimbres.Timbrar())
+        if (ObjTimbres.MsgError =="" && ObjTimbres.Timbrar())
        {
            MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
            Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1154,8 +1154,9 @@ Partial Class Inventarios_TraspasoAlmacen

                Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL)
                Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
+                Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime

-                Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimientoSalida, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDatetime, "T", 1, 1, 1)
+                Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimientoSalida, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, Fechallegada, "T", 1, 1, 1)

                If CveEntregaAlmacen > 0 Then
                    CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)