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

traspaso carta porte

Browse Source
This commit is contained in:
rakcsle
2021-10-29 19:57:34 -07:00
parent c0ba707dd9
commit bc974956c6
14 changed files with 2074 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Compras/PopUpVerFactura.aspx.vb
View File

@@ -379,8 +379,8 @@ Partial Class PopUpVerFactura
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)
If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
End If
End If
@@ -897,8 +897,8 @@ Partial Class PopUpVerFactura
End If
End Function
Private Sub ImprimeFormatoCartaPorteTimbrado(CveMovimiento As Integer)
If CveMovimiento > 0 Then
Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
If CveTimbre > 0 Then
'01 Autotransporte Federal
'02 Transporte Marítimo
@@ -944,13 +944,14 @@ Partial Class PopUpVerFactura
Dim SelloCFDi As String = ""
Dim SelloSAT As String = ""
Dim ObjInv As New ClsInventarios
If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
Dim ObjInv As New ClsGenerales
If ObjInv.GetGralTimbre(CveTimbre, "-1", "-1", -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1, -1) 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
SerieFolio = Dr("SerieFolio").ToString
Telefono = Dr("ChrTelefono").ToString
End If
End If
End If
@@ -982,7 +983,7 @@ Partial Class PopUpVerFactura
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 Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Tra", String.Format("{0}", SerieFolio), "xml")
Dim Archivo As New System.IO.FileInfo(Path)
If Archivo.Exists Then
@@ -1001,7 +1002,7 @@ Partial Class PopUpVerFactura
If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then
Dim RutaCBB As String = String.Format("{0}\CBB\Tra-{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
Dim nodo As XmlNode = XMLDoc.DocumentElement
@@ -1150,7 +1151,7 @@ Partial Class PopUpVerFactura
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)
ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio)
End If
If DtConceptos.Rows.Count > 0 Then