diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index a8263551a..b544cabee 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5538,7 +5538,7 @@ Public Class ClsContabilidad End Function #Region "IVAS" - Public Function GetRepIVA(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer, TipoCambio As Integer, TCEspecifico As Double) As Boolean + Public Function GetRepIVA(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer, TipoCambio As Integer, TCEspecifico As Double, Optional Cuenta As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_RepIVA") With SqlAdapter.SelectCommand.Parameters @@ -5550,6 +5550,7 @@ Public Class ClsContabilidad .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico + .Add("@Cuenta", SqlDbType.NVarChar).Value = Cuenta End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 836be534b..6ea168a78 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -155,7 +155,7 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetCxCCliente(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveUsuarioRegistro As Integer, CveEmpresa As Integer, Optional TipoAgrupador As Integer = 1, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Public Function GetCxCCliente(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveUsuarioRegistro As Integer, CveEmpresa As Integer, Optional TipoAgrupador As Integer = 1, Optional CveUsuarioConsulta As Integer = -1, Optional Cuenta As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_Clientes") @@ -169,6 +169,7 @@ Public Class ClsMovimientos .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@TipoAgrupador", SqlDbType.Int).Value = TipoAgrupador .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@Cuenta", SqlDbType.NVarChar).Value = Cuenta End With diff --git a/Bancos/RepCxCCliente.aspx b/Bancos/RepCxCCliente.aspx index 271a7965a..6148a08dc 100644 --- a/Bancos/RepCxCCliente.aspx +++ b/Bancos/RepCxCCliente.aspx @@ -120,6 +120,9 @@ +
  • Cuenta:     + +
    • diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index c10e276d1..f9e979d4c 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -55,7 +55,9 @@ Partial Class Bancos_RepCxCCliente If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1" If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" - If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then + Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text) + + If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta) Then GvCxC.DataSource = Mov.DtResultados End If UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue @@ -138,7 +140,7 @@ Partial Class Bancos_RepCxCCliente If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) - If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then + If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then DTpp = ObjMovtos.DtResultados Else DTpp = Nothing diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index df71f1fcc..a86f38ed6 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -3,12 +3,12 @@ - @@ -16,21 +16,21 @@ Reporte de Impuestos -
  • +
  • PDF
  • - Excel + Excel
    • -
  • +
  • Ver Dlls en pesos
    • - + -
  • - Generar DIOT -
    • +
  • + Generar DIOT +
    • @@ -38,14 +38,14 @@
  • - Generales del proveedor + Generales del proveedor
    • - +
  • - Comparativo + Comparativo
    • -     +     @@ -59,6 +59,8 @@
    + "> +
    @@ -93,17 +95,23 @@
    - +
    - - + + -
    +
    -
    +
    > +
    + +
    + +
    +
    @@ -112,134 +120,134 @@ - - + + -
    +
    - -

    IVA Trasladado

    - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    +

    IVA Trasladado

    + + + + + + + + + + + + + + + -
    -

    IEPS por Porcentaje

    - - - - - - - - - -
    -
    -

    IVA por Porcentaje

    - - - - - - - - + + + + + + + +
    +
    +
    + +
    +

    IEPS por Porcentaje

    + + + + + + + + +
    -
    -
    - - - +
    +

    IVA por Porcentaje

    + + + + + - - -

    IVA Acreditable

    - - - - - - - - - - - - - - - - - - RetIVA
    Hon/Ser.Prof.     -     - - - -     - - - - - - - - - - +     +     +
    +
    +
    - <%-- + + + + + +

    IVA Acreditable

    + + + + + + + + + + + + + + + + + + RetIVA
    Hon/Ser.Prof.     +     + + + +     + + + + + + + + + + + + <%-- --%> - - - - - -     -     -
    -

    IVA por Porcentaje

    - - - - - - - - -
    - -     -     - + + + + + + + +
    +

    IVA por Porcentaje

    + + + + + + + + +
    + + + + @@ -279,7 +287,7 @@ -