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

10.A. Formato de devolución como la entrada de almacén por compra.

Browse Source
This commit is contained in:
rakcsle
2025-02-04 16:06:47 -07:00
parent 31f5aadae7
commit 7a1fb0ff29
8 changed files with 2199 additions and 1904 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3273,6 +3273,8 @@ Partial Class PopUpVerFactura
ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
Else
params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, "")))
params.Add(New ReportParameter("Folio", Folio.ToString))
@@ -4199,7 +4201,7 @@ Partial Class PopUpVerFactura
Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate
Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
'params.Add(New ReportParameter("Folio", Folio.ToString))
@@ -4220,9 +4222,33 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDecimal.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
If UsuarioActual.CveEmpresa.Contiene(189) Then
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN A PROVEEDOR"))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
params.Add(New ReportParameter("FechaFactura", If(CveCompra > 0, dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"), "")))
params.Add(New ReportParameter("SerieFolio", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
params.Add(New ReportParameter("Moneda", If(CveCompra > 0, dr("Moneda").ToString, "")))
params.Add(New ReportParameter("Condicion", If(CveCompra > 0, (((dr("FechaVencimiento").ToString.ToDate - dr("Fecha").ToString.ToDate)).TotalDays).ToString, "")))
params.Add(New ReportParameter("Saldo", If(CveCompra > 0, dr("Saldo").ToString.ToDouble.FormatoNumero(2), "")))
params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCSerieFolioVinculada").ToString, "")))
Dim Fecha2 As String = String.Format("{0} {1}", FechaHora.ToDate.ToString("dd/MM/yyyy"), FechaHora.ToDateTime.ToString("HH:mm:ss"))
params.Add(New ReportParameter("Fecha", Fecha2))
params.Add(New ReportParameter("NombreCapturo", dr("NombreCapturo").ToString))
Else
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
End If
Else
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Observaciones", Observaciones))