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

Traslado timbrado sin carta formato sin carta porte

Browse Source
This commit is contained in:
rakcsle
2022-02-09 16:48:05 -07:00
parent 720a3cd0e6
commit 5c0e4d8242
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsPaginas.vb
View File

@@ -7528,6 +7528,7 @@ Public Class ClsPaginas
If ObjInv.GetMovimientos(Vta.Inv_CveMovimiento.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then If ObjInv.GetMovimientos(Vta.Inv_CveMovimiento.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjInv.DtResultados.Rows.Count > 0 Then If ObjInv.DtResultados.Rows.Count > 0 Then
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
If Dr IsNot Nothing Then If Dr IsNot Nothing Then
AlmOrigen = Dr("AlmacenOrigen").ToString AlmOrigen = Dr("AlmacenOrigen").ToString
@@ -7554,6 +7555,11 @@ Public Class ClsPaginas
If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString) If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
End If End If
End If End If
params.Add(New ReportParameter("Chofer", Dr("Chofer").ToString))
params.Add(New ReportParameter("Placa", Dr("Placa").ToString))
params.Add(New ReportParameter("EspecifUnidad", Dr("Especificacion").ToString))
End If End If
End If End If