diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 5dbf16ec4..4b7d82517 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1243,6 +1243,28 @@ Public Class ClsMovimientos End Try Return Retorno + End Function + + Public Function UpdateReembolsoComprobante(CveComprobacion As Integer, Comprobante As String) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Comp_ReembolosoComprobanteUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveComprobacion", SqlDbType.Int).Value = CveComprobacion + .Add("@Comprobante", SqlDbType.VarChar).Value = Comprobante + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el comprobante.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno End Function Public Function GetAcreedoresSaldosDetalles(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean diff --git a/Compras/RepRembolsoComprobaciones.aspx b/Compras/RepRembolsoComprobaciones.aspx index 2728a7ae1..fb4e387ee 100644 --- a/Compras/RepRembolsoComprobaciones.aspx +++ b/Compras/RepRembolsoComprobaciones.aspx @@ -10,6 +10,11 @@ overflow: hidden; text-overflow: ellipsis; } + + .v-center { + display: flex !important; + align-items: center; + } @@ -30,7 +35,10 @@ Imprimir Reembolso -
  • + +
  • + Cargar Comprobante +
  • @@ -100,7 +108,7 @@ - +
    @@ -123,41 +131,62 @@ -
    -
    - - -
    - -
    - - -
    - - -
    - -
    - - Unificar - -
    - -
    - +
    +
    +
    + Concepto: +
    +
    + +
    +
    +
    + +
    +
    +
    + Fecha: +
    +
    + + +
    +
    +
    + +
    +
    +
    + + Unificar + +
    +
    + +
    +
    +
    +
    + + Adjunto + +
    +
    +
    +
    +
    + +
    -
    +
    - -
    -
    - + @@ -242,13 +271,69 @@ - + + + + + +
    +