CarataPorte

Contabilidad/RegPrePolizaS.aspx.vb

@@ -432,6 +432,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TipoPoliza = DdlTipoPoliza.SelectedItem.Text
                 Folio = dr("FolioPoliza").ToString
 
+                TxtFolio.Text = dr("FolioPoliza").ToString
+                TxtUsuarioElaboro.Text = dr("Usuario").ToString
+                TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
+                TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
+
+
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
                     'DivAgregarConceptos.Visible = True
                     LnkAddConcepto.Visible = True
@@ -2341,18 +2347,27 @@ Partial Class ContabilidadC_RegPrePolizaS
             params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
             params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
             params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
-            params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+
+            If UsuarioActual.CveEmpresa.Contiene(141) Then
+                params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
+            Else
+                params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+            End If
+
+
             'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
             'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
             params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
             params.Add(New ReportParameter("Moneda", ""))
             params.Add(New ReportParameter("CodigoPostal", ""))
-            If UsuarioActual.CveEmpresa = 119 Then
+
+            If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
                 params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
             End If
-            If UsuarioActual.CveEmpresa = 140 Then
+            If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             End If
+
             If Archivo.Exists Then
                 ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
             Else