Impresion de carta porte Timbrado
This commit is contained in:
@@ -378,6 +378,12 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
|
||||||
|
If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
|
||||||
|
ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVEMOV").ToString.ToEntero)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If UrlParametros("OP").ToString = "CORT" Then
|
If UrlParametros("OP").ToString = "CORT" Then
|
||||||
@@ -747,7 +753,7 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
|
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
|
||||||
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
|
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
|
||||||
If CveMovimiento > 0 Then
|
If CveMovimiento > 0 Then
|
||||||
Dim ObjInv As New ClsInventarios
|
Dim ObjInv As New ClsInventarios
|
||||||
@@ -873,6 +879,345 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
||||||
|
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||||
|
If o Is Nothing Then
|
||||||
|
Return Retorno
|
||||||
|
Else
|
||||||
|
Return o.Value
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub ImprimeFormatoCartaPorteTimbrado(CveMovimiento As Integer)
|
||||||
|
If CveMovimiento > 0 Then
|
||||||
|
|
||||||
|
'01 Autotransporte Federal
|
||||||
|
'02 Transporte Marítimo
|
||||||
|
'03 Transporte Aéreo
|
||||||
|
'04 Transporte Ferroviario
|
||||||
|
'05 Ducto
|
||||||
|
Dim HtTransporte As New Hashtable()
|
||||||
|
HtTransporte.Add("01", "Autotransporte Federal")
|
||||||
|
HtTransporte.Add("02", "Transporte Marítimo")
|
||||||
|
HtTransporte.Add("03", "Transporte Aéreo")
|
||||||
|
HtTransporte.Add("04", "Transporte Ferroviario")
|
||||||
|
HtTransporte.Add("05", "Ducto")
|
||||||
|
|
||||||
|
'EMISOR
|
||||||
|
Dim LugarExpedicion As String = ""
|
||||||
|
Dim ImgCBB As String = ""
|
||||||
|
'COMPROBANTE
|
||||||
|
Dim SerieFolio As String = ""
|
||||||
|
Dim Telefono As String = ""
|
||||||
|
Dim SubTotal As Decimal = 0
|
||||||
|
Dim Descuentos As Decimal = 0
|
||||||
|
Dim Total As Decimal = 0
|
||||||
|
'DATOS DEL CLIENTE
|
||||||
|
Dim ClienteRFC As String = ""
|
||||||
|
Dim ClienteNombre As String = ""
|
||||||
|
Dim ClienteUsoCFDi As String = ""
|
||||||
|
|
||||||
|
'TRANSPORTE
|
||||||
|
Dim MedioTransporte As String = ""
|
||||||
|
Dim TransporteInternacional As String = ""
|
||||||
|
Dim PermisoSTCC As String = ""
|
||||||
|
Dim NumPermiso As String = ""
|
||||||
|
Dim Aseguradora As String = ""
|
||||||
|
Dim NumPolizaSeguro As String = ""
|
||||||
|
Dim PlacaVM As String = ""
|
||||||
|
Dim AnioModeloVM As String = ""
|
||||||
|
'TIMBRADO
|
||||||
|
Dim FolioFiscal As String = ""
|
||||||
|
Dim NoCertificadoSAT As String = ""
|
||||||
|
Dim CadenaOriginal As String = ""
|
||||||
|
Dim NoSerieCertificado As String = ""
|
||||||
|
Dim FechaCertificacion As DateTime = Nothing
|
||||||
|
Dim SelloCFDi As String = ""
|
||||||
|
Dim SelloSAT As String = ""
|
||||||
|
|
||||||
|
Dim ObjInv As New ClsInventarios
|
||||||
|
If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjInv.DtResultados.Rows.Count > 0 Then
|
||||||
|
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
|
||||||
|
If Dr IsNot Nothing Then
|
||||||
|
SerieFolio = Dr("Folio").ToString
|
||||||
|
Telefono = Dr("Telefono1").ToString
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
ObjInv.Dispose()
|
||||||
|
|
||||||
|
Dim DtConceptos As New DataTable()
|
||||||
|
DtConceptos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
|
||||||
|
DtConceptos.Columns.Add(New DataColumn("Unidad", GetType(String)))
|
||||||
|
DtConceptos.Columns.Add(New DataColumn("Descripcion", GetType(String)))
|
||||||
|
DtConceptos.Columns.Add(New DataColumn("ValorUnitario", GetType(Decimal)))
|
||||||
|
DtConceptos.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
|
||||||
|
|
||||||
|
Dim DtUbicaciones As New DataTable()
|
||||||
|
DtUbicaciones.Columns.Add(New DataColumn("Distancia", GetType(String)))
|
||||||
|
DtUbicaciones.Columns.Add(New DataColumn("RFC", GetType(String)))
|
||||||
|
DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String)))
|
||||||
|
DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime)))
|
||||||
|
DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String)))
|
||||||
|
|
||||||
|
Dim DtMercancias As New DataTable()
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("Descripcion", GetType(String)))
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("PesoEnKg", GetType(String)))
|
||||||
|
|
||||||
|
Dim DtOperadores As New DataTable()
|
||||||
|
DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
|
||||||
|
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
|
||||||
|
DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
|
||||||
|
|
||||||
|
Dim XMLDoc As New XmlDocument
|
||||||
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Tra", String.Format("Tra-{0}", SerieFolio), "xml")
|
||||||
|
Dim Archivo As New System.IO.FileInfo(Path)
|
||||||
|
|
||||||
|
If Archivo.Exists Then
|
||||||
|
Try
|
||||||
|
XMLDoc.Load(Path)
|
||||||
|
Catch ex As Exception
|
||||||
|
Try
|
||||||
|
Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
|
||||||
|
XMLDoc.Load(oReader)
|
||||||
|
oReader.Dispose()
|
||||||
|
Catch ex2 As Exception
|
||||||
|
GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
|
||||||
|
End Try
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
|
||||||
|
If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then
|
||||||
|
|
||||||
|
Dim RutaCBB As String = String.Format("{0}\CBB\Tra-{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
|
||||||
|
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
|
||||||
|
|
||||||
|
Dim nodo As XmlNode = XMLDoc.DocumentElement
|
||||||
|
|
||||||
|
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
|
||||||
|
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
|
||||||
|
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
|
||||||
|
|
||||||
|
If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
|
||||||
|
namespaces.AddNamespace(Prefijo, cfdVer)
|
||||||
|
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
||||||
|
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
||||||
|
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
|
||||||
|
namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
|
||||||
|
|
||||||
|
Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)
|
||||||
|
If nodeComprobante IsNot Nothing Then
|
||||||
|
LugarExpedicion = ValorXML(nodeComprobante, "LugarExpedicion")
|
||||||
|
SubTotal = ValorXML(nodeComprobante, "SubTotal").ToDecimal()
|
||||||
|
Total = ValorXML(nodeComprobante, "Total").ToDecimal()
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeCliente As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)
|
||||||
|
|
||||||
|
If nodeCliente IsNot Nothing Then
|
||||||
|
ClienteRFC = ValorXML(nodeCliente, "RFC")
|
||||||
|
ClienteNombre = ValorXML(nodeCliente, "Nombre")
|
||||||
|
Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI")
|
||||||
|
ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI)))
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeConceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
|
||||||
|
|
||||||
|
If nodeConceptos IsNot Nothing Then
|
||||||
|
For Each node As XmlNode In nodeConceptos.ChildNodes
|
||||||
|
Dim Row As DataRow = DtConceptos.NewRow
|
||||||
|
|
||||||
|
Row("Cantidad") = ValorXML(node, "Cantidad", "")
|
||||||
|
Row("Unidad") = ValorXML(node, "Unidad", "")
|
||||||
|
Row("Descripcion") = ValorXML(node, "Descripcion", "")
|
||||||
|
Row("ValorUnitario") = ValorXML(node, "ValorUnitario", "")
|
||||||
|
Row("Importe") = ValorXML(node, "Importe", "")
|
||||||
|
|
||||||
|
DtConceptos.Rows.Add(Row)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces)
|
||||||
|
|
||||||
|
Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte"), namespaces)
|
||||||
|
If nodeCartaPorte IsNot Nothing Then
|
||||||
|
TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:AutotransporteFederal", "cartaporte"), namespaces)
|
||||||
|
If nodeAutotransporteFederal IsNot Nothing Then
|
||||||
|
PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
|
||||||
|
NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
|
||||||
|
Aseguradora = ValorXML(nodeAutotransporteFederal, "NombreAseg", "")
|
||||||
|
NumPolizaSeguro = ValorXML(nodeAutotransporteFederal, "NumPolizaSeguro", "")
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte"), namespaces)
|
||||||
|
If nodeIdentificacionVehicular IsNot Nothing Then
|
||||||
|
PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
|
||||||
|
AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte"), namespaces)
|
||||||
|
If nodeFiguraTransporte IsNot Nothing Then
|
||||||
|
Dim CveTransporte As String = ValorXML(nodeFiguraTransporte, "CveTransporte", "")
|
||||||
|
MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte"), namespaces)
|
||||||
|
For Each node As XmlNode In nodeMercancias
|
||||||
|
Dim Row As DataRow = DtMercancias.NewRow
|
||||||
|
|
||||||
|
Row("Cantidad") = ValorXML(node, "Cantidad", "")
|
||||||
|
Row("UnidadMedida") = ValorXML(node, "Unidad", "")
|
||||||
|
Row("Descripcion") = ValorXML(node, "Descripcion", "")
|
||||||
|
Row("PesoEnKg") = ValorXML(node, "PesoEnKg", "")
|
||||||
|
|
||||||
|
DtMercancias.Rows.Add(Row)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Operador", "cartaporte"), namespaces)
|
||||||
|
For Each node As XmlNode In nodeOperadores
|
||||||
|
Dim Row As DataRow = DtOperadores.NewRow
|
||||||
|
|
||||||
|
Row("RFC") = ValorXML(node, "RFCOperador", "")
|
||||||
|
Row("NumLicencia") = ValorXML(node, "NumLicencia", "")
|
||||||
|
Row("NombreOperador") = ValorXML(node, "NombreOperador", "")
|
||||||
|
|
||||||
|
DtOperadores.Rows.Add(Row)
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte"), namespaces)
|
||||||
|
For Each node As XmlNode In nodeUbicaciones
|
||||||
|
Dim Row As DataRow = DtUbicaciones.NewRow
|
||||||
|
|
||||||
|
Row("Distancia") = ValorXML(node, "DistanciaRecorrida", "")
|
||||||
|
Dim nodeOrigen = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Origen")
|
||||||
|
If nodeOrigen IsNot Nothing Then
|
||||||
|
Row("RFC") = ValorXML(nodeOrigen, "RFCRemitente", "")
|
||||||
|
Row("Nombre") = ValorXML(nodeOrigen, "NombreRemitente", "")
|
||||||
|
Row("FechaHoraSalida") = ValorXML(nodeOrigen, "FechaHoraSalida", "").ToDateTime()
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeDestino = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Destino") 'node.SelectSingleNode(String.Format("//{0}:Destino", "cartaporte"), namespaces)
|
||||||
|
If nodeDestino IsNot Nothing Then
|
||||||
|
Row("RFC") = ValorXML(nodeDestino, "RFCDestinatario", "")
|
||||||
|
Row("Nombre") = ValorXML(nodeDestino, "NombreDestinatario", "")
|
||||||
|
Row("FechaHoraSalida") = ValorXML(nodeDestino, "FechaHoraProgLlegada", "").ToDateTime()
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
|
||||||
|
If nodeDomicilio IsNot Nothing Then
|
||||||
|
Dim calle = ValorXML(nodeDomicilio, "Calle", "")
|
||||||
|
Dim Estado = ValorXML(nodeDomicilio, "Estado", "")
|
||||||
|
Dim Pais = ValorXML(nodeDomicilio, "MEX", "")
|
||||||
|
Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "")
|
||||||
|
|
||||||
|
Row("Direccion") = String.Format("{0} ,{1},{2}. CP {3}", calle, Estado, Pais, CP)
|
||||||
|
End If
|
||||||
|
|
||||||
|
DtUbicaciones.Rows.Add(Row)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
|
||||||
|
If nodeTFD IsNot Nothing Then
|
||||||
|
FolioFiscal = ValorXML(nodeTFD, "UUID", "")
|
||||||
|
NoSerieCertificado = ValorXML(nodeTFD, "NoCertificadoSAT", "")
|
||||||
|
FechaCertificacion = ValorXML(nodeTFD, "FechaTimbrado", "").ToDateTime
|
||||||
|
SelloCFDi = ValorXML(nodeTFD, "SelloCFD", "")
|
||||||
|
SelloSAT = ValorXML(nodeTFD, "SelloSAT", "")
|
||||||
|
NoCertificadoSAT = ValorXML(nodeTFD, "NoCertificadoSAT", "")
|
||||||
|
|
||||||
|
CadenaOriginal = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||"
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not ImagenCBB.Exists Then
|
||||||
|
Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
|
||||||
|
CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
|
||||||
|
End If
|
||||||
|
|
||||||
|
ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/Tra-{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If DtConceptos.Rows.Count > 0 Then
|
||||||
|
Dim params As New List(Of ReportParameter)
|
||||||
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||||
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||||
|
If Imagen.Exists Then
|
||||||
|
params.Add(New ReportParameter("LogoPath", logouri))
|
||||||
|
Else
|
||||||
|
params.Add(New ReportParameter("LogoPath", ""))
|
||||||
|
End If
|
||||||
|
'EMPRESA
|
||||||
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
|
params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
|
||||||
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||||
|
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
|
||||||
|
params.Add(New ReportParameter("SerieFolio", SerieFolio))
|
||||||
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
||||||
|
params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion))
|
||||||
|
'CLIENTE
|
||||||
|
params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
|
||||||
|
params.Add(New ReportParameter("ClienteRFC", ClienteRFC))
|
||||||
|
params.Add(New ReportParameter("UsoCFDi", ClienteUsoCFDi))
|
||||||
|
'TRANSPORTE
|
||||||
|
params.Add(New ReportParameter("MedioTransporte", MedioTransporte))
|
||||||
|
params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional))
|
||||||
|
params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC))
|
||||||
|
params.Add(New ReportParameter("NumPermiso", NumPermiso))
|
||||||
|
params.Add(New ReportParameter("Aseguradora", Aseguradora))
|
||||||
|
params.Add(New ReportParameter("NumPoliza", NumPolizaSeguro))
|
||||||
|
params.Add(New ReportParameter("PlacaVM", PlacaVM))
|
||||||
|
params.Add(New ReportParameter("AnioVM", AnioModeloVM))
|
||||||
|
'TIMBRADO
|
||||||
|
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
||||||
|
params.Add(New ReportParameter("QR", ImgCBB))
|
||||||
|
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
|
||||||
|
params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
|
||||||
|
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
|
||||||
|
params.Add(New ReportParameter("SerieCertificadoSAT", NoSerieCertificado))
|
||||||
|
params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString("dd/MM/yyyy HH:mm:ss")))
|
||||||
|
params.Add(New ReportParameter("SelloSAT", SelloSAT))
|
||||||
|
'TOTALES
|
||||||
|
params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
|
||||||
|
params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
|
||||||
|
params.Add(New ReportParameter("Total", Total.ToString()))
|
||||||
|
' [@CertificadoContribuyente]
|
||||||
|
'[@CadenaOriginal]
|
||||||
|
|
||||||
|
Dim lrds As New List(Of ReportDataSource)
|
||||||
|
|
||||||
|
Dim rds As New ReportDataSource
|
||||||
|
rds.Name = "DataSet1"
|
||||||
|
rds.Value = DtConceptos
|
||||||
|
lrds.Add(rds)
|
||||||
|
|
||||||
|
Dim rds2 As New ReportDataSource
|
||||||
|
rds2.Name = "DataSet2"
|
||||||
|
rds2.Value = DtUbicaciones
|
||||||
|
lrds.Add(rds2)
|
||||||
|
|
||||||
|
Dim rds3 As New ReportDataSource
|
||||||
|
rds3.Name = "DataSet3"
|
||||||
|
rds3.Value = DtMercancias
|
||||||
|
lrds.Add(rds3)
|
||||||
|
|
||||||
|
Dim rds4 As New ReportDataSource
|
||||||
|
rds4.Name = "DataSet4"
|
||||||
|
rds4.Value = DtOperadores
|
||||||
|
lrds.Add(rds4)
|
||||||
|
|
||||||
|
ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
|
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
|
||||||
|
|||||||
3627
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
Normal file
3627
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
@@ -71,6 +71,9 @@
|
|||||||
</li>
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:HyperLink ID="HplCartaPorte" runat="server" Visible="false"><i class="fa fa-ad-pdf"></i> Descargar Carta Porte</asp:HyperLink>
|
<asp:HyperLink ID="HplCartaPorte" runat="server" Visible="false"><i class="fa fa-ad-pdf"></i> Descargar Carta Porte</asp:HyperLink>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:HyperLink ID="HplCartaPorteTimbre" runat="server" Visible="false"><i class="fa fa-ad-pdf"></i> Descargar Carta Porte Timbrado</asp:HyperLink>
|
||||||
</li>
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:HyperLink ID="HplTraspaso" Target="_blank" runat="server" Visible="false"><i class="fa fa-truck" aria-hidden="true"></i> Traspaso Almacen</asp:HyperLink>
|
<asp:HyperLink ID="HplTraspaso" Target="_blank" runat="server" Visible="false"><i class="fa fa-truck" aria-hidden="true"></i> Traspaso Almacen</asp:HyperLink>
|
||||||
|
|||||||
@@ -781,6 +781,12 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
HplCartaPorte.Visible = True
|
HplCartaPorte.Visible = True
|
||||||
HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
|
HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
|
||||||
|
|
||||||
|
If UsuarioActual.CveRol = 1 Then
|
||||||
|
HplCartaPorteTimbre.Visible = True
|
||||||
|
HplCartaPorteTimbre.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimiento)))
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.CveRol = 1 Then
|
If UsuarioActual.CveRol = 1 Then
|
||||||
LnkGenerarPDF.Visible = True
|
LnkGenerarPDF.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user