-- cambio de texto de eliminar compra de guardar a Eliminar

Compras/Compras.aspx

@@ -3179,6 +3179,14 @@
                             <asp:UpdatePanel ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
                                 <ContentTemplate>
                                     <table width="100%">
+                                        <tr runat="server" id="trProvRefacturacion" visible="false" >
+                                            <td width="80px">Proveedor:</td>
+                                            <td>
+
+                                                <ADS:Dropdownlost ID="DdlProvRefacturacion" runat="server" CssStyle="width: 100%;" Width="100%" UsaWebService="true" data-metodo="getproveedores" DataTextField="RazonSocial" DataValueField="CveProveedor" autopostback="true" ></ADS:Dropdownlost>
+
+                                            </td>
+                                        </tr>
                                         <tr>
                                             <td width="80px">Factura:</td>
                                             <td>
@@ -5373,7 +5381,7 @@
                 <div class="modal-footer">
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
-                            <asp:Button ID="BtnModalEliminarCompra" OnClick="BtnModalEliminarCompra_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-danger"  ValidationGroup="GrpModalEliminarCompra"
+                            <asp:Button ID="BtnModalEliminarCompra" OnClick="BtnModalEliminarCompra_Click" runat="server" ClientIDMode="Static" Text="Eliminar" CssClass="btn btn-danger"  ValidationGroup="GrpModalEliminarCompra"
                                 data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
                             <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                         </ContentTemplate>

Compras/Compras.aspx.vb

@@ -1121,6 +1121,10 @@ Partial Class Compras_Compras
                 btnProrateo2.Visible = True
             End If
 
+            If UsuarioActual.CveRol = 1 Then
+                trProvRefacturacion.Visible = True
+            End If
+
             TipoCambio = 1
             IvaAcumulado = 0
             TotalAlmacen = 0
@@ -20017,6 +20021,24 @@ Partial Class Compras_Compras
         UpCancelarCompra.Update()
 
     End Sub
+
+    Protected Sub DdlProveedorRefact(sender As Object, e As EventArgs) Handles DdlProvRefacturacion.selectedindexchange
+        Dim ObjCompras As New ClsCompras
+        Dim Opcion As Integer = 1
+
+        If UsuarioActual.CveEmpresa.Contiene(119, 1, 140, 172, 173, 174) Then Opcion = 2
+        DdlRefacturacionFacturas.Items.Clear()
+        If ObjCompras.GetRefacturacion(DdlProvRefacturacion.SelectedValue.ToEntero, TxtSubTotal.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtTotal.Text.ToDecimal, Opcion, UsuarioActual.CveEmpresa) Then
+            DtRefacturacion = ObjCompras.DtResultados
+            DdlRefacturacionFacturas.DataSource = DtRefacturacion
+        Else
+            Alert("Ocurrió un error al obtener las facturas para refacturación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+        End If
+        ObjCompras.Dispose()
+        DdlRefacturacionFacturas.DataBind()
+        DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
 End Class