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

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