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

en la recepción de almacén se pueden generar etiquetas de la mercancía que llega

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-11-17 10:06:16 -07:00
parent d170ad4d84
commit 02134ff7c7
1 changed files with 9 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Compras/PopUpVerFactura.aspx.vb
View File

@@ -4343,13 +4343,12 @@ Partial Class PopUpVerFactura
d.Open() d.Open()
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
If ObjInventarios.DtResultados IsNot Nothing Then If ObjInventarios.DtResultados IsNot Nothing Then
If Modalidad = "Individual" Then For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero
Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero Dim Lote As String = DetalleRow.Item("Lote").ToString
Dim Lote As String = DetalleRow.Item("Lote").ToString Dim FechaCaducidad As String = DetalleRow.Item("FechaCaducidad").ToString
Dim FechaCaducidad As String = DetalleRow.Item("FechaCaducidad").ToString Dim PS As String = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
Dim PS As String = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString) If Modalidad = "Individual" Then
Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
Dim reader As New PdfReader(reporteByte) Dim reader As New PdfReader(reporteByte)
@@ -4359,13 +4358,7 @@ Partial Class PopUpVerFactura
Contador += 1 Contador += 1
Copy.AddPage(Copy.GetImportedPage(reader, Contador)) Copy.AddPage(Copy.GetImportedPage(reader, Contador))
End While End While
Next Else
Else
For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero
Dim Lote As String = DetalleRow.Item("Lote").ToString
Dim FechaCaducidad As String = DetalleRow.Item("FechaCaducidad").ToString
Dim PS As String = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1 Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
For contador As Integer = 0 To Cant For contador As Integer = 0 To Cant
@@ -4379,8 +4372,8 @@ Partial Class PopUpVerFactura
Copy.AddPage(Copy.GetImportedPage(reader, Cont)) Copy.AddPage(Copy.GetImportedPage(reader, Cont))
End While End While
Next Next
Next End If
End If Next
End If End If
End If End If
d.Close() d.Close()