Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Inventarios/PrestamosdeProveedor.aspx

@@ -84,6 +84,7 @@
                                             </div>
                                         </div>
                                          <div class="row">
+                                             <asp:HiddenField ID="HdnCveProveedor" runat="server" />
                                             <label class="col-md-3">Almacén:</label>
                                             <div class="col-md-9">
                                                 <asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true"  runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -6,12 +6,8 @@ Partial Class Inventarios_PrestamosdeProveedor
     Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
-			 Dim a As New ClsValidaCFDi("EBFD0EF4-F7D2-4243-9A79-9C484D6C1323", "FRU880930R72", "AJA850608L7A", 39)
-            Alert(a.EsValida)
- Dim lista As New List(Of String)
-            lista.Add("93")
-			 lista.Add("100")
-            Notificaciones.AlertaVentana("hola", lista)
+
+
             CargaDatos()
         End If
     End Sub
@@ -45,6 +41,11 @@ Partial Class Inventarios_PrestamosdeProveedor
 
         If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, UsuarioActual.CveEmpresa) Then
             GvD.DataSource = ObjInv.DtResultados
+            Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("")
+            If Dr IsNot Nothing Then
+                HdnCveProveedor.Value = Dr("CveProveedor")
+            End If
+
         End If
 
         ObjInv.Dispose()
@@ -128,7 +129,7 @@ Partial Class Inventarios_PrestamosdeProveedor
             Dim Fecha As Date = TxtFechaEntrega.Text.ToDate
 
             Dim CveMovimientoSalida As Integer
-            Dim tCveProveedor As Integer = ddlProveedor.SelectedValue.ToEntero
+            Dim tCveProveedor As Integer = HdnCveProveedor.Value.ToEntero
             Dim CvePS As Integer = 0
 
             'AGREGAMOS LA SALIDA
@@ -173,8 +174,7 @@ Partial Class Inventarios_PrestamosdeProveedor
 
                     Dim CveConceptoContable As Integer = 69
                     Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS))
-                    idCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {CveClasifCosto}").ToEntero
-
+                    IdCtaContableOtro = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasifCosto}").ToEntero
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then
                         ErrorMovInv = True
@@ -196,6 +196,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                 TxtRecibio.Text = ""
                 TxtFechaEntrega.Text = Now.ToShortDateString
                 TxtObservacionesEntrega.Text = ""
+                HdnCveProveedor.Value = ""
 
                 Dim Mensaje As StringBuilder = New StringBuilder
                 Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoSalida)