OC Remision notra de credito

This commit is contained in:
Rakcsle Supertramp
2020-12-22 19:33:25 -07:00
parent 0558fed7ae
commit 900496bb9e
2 changed files with 2688 additions and 2918 deletions

View File

@@ -7052,6 +7052,28 @@ Public Class ClsPaginas
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
Case "RNC"
NombreArchivo = "RemisionNC"
NombreArchivoDescarga = "RemisionNC"
TipoDocumento = "REMISION"
params.Add(New ReportParameter("TipoDocumento", NombreArchivoDescarga))
params.Add(New ReportParameter("Tipo", TipoDocumento))
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
'ALAN YEPIZ
If UsuarioActual.CveEmpresa.Contiene(123) Then
params.Add(New ReportParameter("DiaExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Day)))
params.Add(New ReportParameter("MesExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Month)))
params.Add(New ReportParameter("AñoExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Year)))
End If
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
Case Else
NombreArchivo = ""
TipoDocumento = ""

File diff suppressed because it is too large Load Diff