-

Compras/Compras.aspx.vb

@@ -5571,6 +5571,17 @@ Partial Class Compras_Compras
                                             CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
                                             Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text
                                         End If
+
+
+                                        If CvePersonal <= 0 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 Then
+                                            CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
+                                            If Not CvePersonal > 0 Then
+                                                Alert("Debe asignar personal al reembolso.", TipoMensaje.MsgAdvertencia)
+                                                ErrorDetalles = True
+                                            End If
+                                        End If
+
+
                                         Cont = Cont + 1
 
                                         'Si es AF-INSUMO se guarda CveAF en CompraDetalle

Compras/PopUpVerFactura.aspx.vb

@@ -2891,7 +2891,7 @@ Partial Class PopUpVerFactura
         Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
         Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
         Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
-
+        Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente")
 
         Dim Ruta As String = ""
         Dim Supervisor As String = ""
@@ -3096,7 +3096,7 @@ Partial Class PopUpVerFactura
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
                           CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
-                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola)
+                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3115,7 +3115,7 @@ Partial Class PopUpVerFactura
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                   RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
                                   Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
-                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1")
+                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "")
 
 
         Select Case CveConcepto
@@ -3924,7 +3924,7 @@ Partial Class PopUpVerFactura
                     Observaciones = ObservacionesSolicitud
                 End If
 
-                If UsuarioActual.CveEmpresa.Contiene(119, 186) Then
+                If UsuarioActual.CveEmpresa.Contiene(119, 186, 201) Then
                     If CalleOrigen.Length > 0 Then
                         SBDireccionO.AppendFormat("{0}", CalleOrigen)
                         If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
@@ -3976,6 +3976,18 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
                         params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                         params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+                    ElseIf UsuarioActual.CveEmpresa = 201 Then
+                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
+                        params.Add(New ReportParameter("AlmacenDestino", ""))
+                        params.Add(New ReportParameter("DireccionCliente", DireccionCliente))
+                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
+                        params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
+                        params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
+                        params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
+                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                        params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+
+                        NombreArchivo = String.Format("Saldia del sistema - {0}", Folio)
                     Else
                         params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
                         params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))