AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora carta porte

Browse Source
This commit is contained in:
rrene
2024-04-24 10:02:44 -07:00
parent 76addac71e
commit d975c0a601
1 changed files with 2 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
App_Code/ClsPaginas.vb
View File

@@ -1965,7 +1965,7 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
Property GlobalDTGralCartaPorteConfigAutoTransportes() As DataTable Property GlobalDTGralCartaPorteConfigAutoTransportes As DataTable
Get Get
Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes" Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes"
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
@@ -5966,8 +5966,6 @@ Public Class ClsPaginas
Dim PermisoSCTR2 As String = "" Dim PermisoSCTR2 As String = ""
Dim ConfATR1 As String = "" Dim ConfATR1 As String = ""
Dim ConfATR2 As String = "" Dim ConfATR2 As String = ""
Dim ObjInv As New ClsGenerales Dim ObjInv As New ClsGenerales
If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
@@ -5984,7 +5982,6 @@ Public Class ClsPaginas
ConfATR1 = Dr("ConfATR1").ToString ConfATR1 = Dr("ConfATR1").ToString
ConfATR2 = Dr("ConfATR2").ToString ConfATR2 = Dr("ConfATR2").ToString
End If End If
End If End If
End If End If
End If End If
@@ -6078,22 +6075,6 @@ Public Class ClsPaginas
Dim VersionCCP As String = "" Dim VersionCCP As String = ""
Dim PrefijoCCP As String = "" Dim PrefijoCCP As String = ""
'Try
' 'XDocument doc = XDocument.Parse(Xml);
' 'String Version = doc.Descendants("cartaporte30:CartaPorte").First().Attribute("version").Value;
' Dim NodoVersionCCP As XmlNode = XMLDoc.Descendants("cartaporte30:CartaPorte")
' If NodoVersionCCP IsNot Nothing Then
' VersionCCP = ValorXML(NodoVersionCCP, "version")
' Else
' VersionCCP = "2.0"
' End If
'Catch ex As Exception
'End Try
If Version = "3.3" Then If Version = "3.3" Then
cfdVer = "http://www.sat.gob.mx/cfd/3" cfdVer = "http://www.sat.gob.mx/cfd/3"
Else ' se considera que es la version 4.0 Else ' se considera que es la version 4.0
@@ -6162,9 +6143,7 @@ Public Class ClsPaginas
TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "") TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
Dim CveTransporte As String = ValorXML(nodeCartaPorte, "ViaEntradaSalida", "") Dim CveTransporte As String = ValorXML(nodeCartaPorte, "ViaEntradaSalida", "")
'Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte20"), namespaces) 'Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte20"), namespaces)
'If nodeFiguraTransporte IsNot Nothing Then If CveTransporte <> "" Then MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
'End If
End If End If
Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", PrefijoCCP), namespaces) Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", PrefijoCCP), namespaces)
@@ -6207,8 +6186,6 @@ Public Class ClsPaginas
End If End If
End If End If
Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", PrefijoCCP), namespaces) Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", PrefijoCCP), namespaces)
For Each node As XmlNode In nodeMercancias For Each node As XmlNode In nodeMercancias
Dim Row As DataRow = DtMercancias.NewRow Dim Row As DataRow = DtMercancias.NewRow
@@ -6294,8 +6271,6 @@ Public Class ClsPaginas
End If End If
Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP) Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP)
End If End If
DtUbicaciones.Rows.Add(Row) DtUbicaciones.Rows.Add(Row)
Next Next
@@ -6439,11 +6414,6 @@ Public Class ClsPaginas
params.Add(New ReportParameter("ConfATR2", ConfATR2)) params.Add(New ReportParameter("ConfATR2", ConfATR2))
End If End If
' [@CertificadoContribuyente]
'[@CadenaOriginal]
Dim lrds As New List(Of ReportDataSource) Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource Dim rds As New ReportDataSource
@@ -6483,7 +6453,6 @@ Public Class ClsPaginas
retorno.DataSources.AddRange(lrds) retorno.DataSources.AddRange(lrds)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al generar el pdf de la carta porte", ex) OnError("Ocurrió un error al generar el pdf de la carta porte", ex)