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

formato de fecha mejorado

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

8
Compras/PopUpVerFactura.aspx.vb
View File

@@ -4346,7 +4346,7 @@ Partial Class PopUpVerFactura
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 Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
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 If Modalidad = "Individual" Then
Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS) Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
@@ -4392,16 +4392,16 @@ Partial Class PopUpVerFactura
ObjInventarios.Dispose() ObjInventarios.Dispose()
End Sub End Sub
Private Function GenerarEtiqueta(CvePS As Integer, Lote As String, FechaCaducidad As String, PS As String) As Byte() Private Function GenerarEtiqueta(CvePS As Integer, Lote As String, FechaCaducidad As Date, PS As String) As Byte()
Dim QrDescarga As String = "" Dim QrDescarga As String = ""
Dim Cfdi As New RVCFDI33.GeneraCFDI() Dim Cfdi As New RVCFDI33.GeneraCFDI()
Dim b As Byte() = Cfdi.ConvertirQrCode(String.Format("?CvePS={0}&Lote={1}&Fecha={2}", CvePS, Lote, FechaCaducidad)) Dim b As Byte() = Cfdi.ConvertirQrCode(String.Format("?CvePS={0}&Lote={1}&Fecha={2}", CvePS, Lote, Format(FechaCaducidad, "dd/MM/yyyy").ToString()))
QrDescarga = Convert.ToBase64String(b) QrDescarga = Convert.ToBase64String(b)
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("QR", QrDescarga)) params.Add(New ReportParameter("QR", QrDescarga))
params.Add(New ReportParameter("PS", PS)) params.Add(New ReportParameter("PS", PS))
params.Add(New ReportParameter("Lote", Lote)) params.Add(New ReportParameter("Lote", Lote))
params.Add(New ReportParameter("FechaCad", FechaCaducidad)) params.Add(New ReportParameter("FechaCad", FechaCaducidad.ToString()))
Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params) Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params)
End Function End Function
#End Region #End Region