From 176b79164573c29999fc57f10ddeea41fa407f4a Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 19 Feb 2020 17:47:04 -0700 Subject: [PATCH] Documentacion ajsutes, rep ingresos --- Edoc/CatDocumentos.aspx | 2 +- Edoc/Contratos.aspx | 2 +- Edoc/Contratos.aspx.vb | 10 +- Ventas/RepIngresos.aspx | 413 +++++++++++++++++++------------------ Ventas/RepIngresos.aspx.vb | 6 +- vwd.webinfo | 2 + 6 files changed, 229 insertions(+), 206 deletions(-) diff --git a/Edoc/CatDocumentos.aspx b/Edoc/CatDocumentos.aspx index eaa6a2fed..a4dd193e9 100644 --- a/Edoc/CatDocumentos.aspx +++ b/Edoc/CatDocumentos.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="RH - Catálogo de Documentos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatDocumentos.aspx.vb" Inherits="RH_CatDocumentos" %> +<%@ Page Title="Catálogo de Documentos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatDocumentos.aspx.vb" Inherits="RH_CatDocumentos" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> diff --git a/Edoc/Contratos.aspx b/Edoc/Contratos.aspx index 3bd132099..b49544a0c 100644 --- a/Edoc/Contratos.aspx +++ b/Edoc/Contratos.aspx @@ -230,7 +230,7 @@

- Tipo contrato

+ Representante Legal
diff --git a/Edoc/Contratos.aspx.vb b/Edoc/Contratos.aspx.vb index ab45985ee..153298752 100644 --- a/Edoc/Contratos.aspx.vb +++ b/Edoc/Contratos.aspx.vb @@ -72,6 +72,7 @@ Partial Class Proveedores_Contratos End If ObjProveedor.Dispose() + DdlTipoContrato.DataBind() DdlTipoContrato.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -163,6 +164,7 @@ Partial Class Proveedores_Contratos If Not ErrorProceso Then ObjProv.Commit() + ObjProv.Dispose() If CveContrato > 0 Then Alert("Contrato Actualizado Correctamente.") @@ -177,9 +179,11 @@ Partial Class Proveedores_Contratos Else ObjProv.RollBack() + ObjProv.Dispose() + End If - ObjProv.Dispose() + @@ -198,12 +202,14 @@ Partial Class Proveedores_Contratos ErrorProceso = True End If + ObjProv.Dispose() + If Not ErrorProceso Then CargaDatos() End If - ObjProv.Dispose() + End Sub Protected Sub BtnCatRepresentantes_Click(sender As Object, e As EventArgs) diff --git a/Ventas/RepIngresos.aspx b/Ventas/RepIngresos.aspx index 6abacbbed..bf0475e42 100644 --- a/Ventas/RepIngresos.aspx +++ b/Ventas/RepIngresos.aspx @@ -1,201 +1,214 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIngresos.aspx.vb" Inherits="Ventas_RepIngresos" %> - - - - - - - - Reporte de Ingresos - - - - - - -
  • - PDF -
    • -
  • - Excel -
    • -     - - - - -     -     - - - - - - -
    -
    -
    - - - "> - - -
    -
    -
    -
    - -
    -
    -
    - - - - -
    - - -
    -
    - -
    -
    -
    - - - - -
    - - -
    -
    - -
    -
    - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIngresos.aspx.vb" Inherits="Ventas_RepIngresos" %> + + + + + + + + Reporte de Ingresos + + + + + + +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + +     +     + + + + + + +
    +
    +
    + + + "> + + +
    +
    +
    +
    + +
    +
    +
    + + + + +
    + + +
    +
    + +
    +
    +
    + + + + +
    + + +
    +
    + +
    + +
    + + + + + + + + + + + + <%-- + + + + + + --%> + +
    +
    + +
    +
    + <%-- - - - - - -
    -
    - -
    -
    -<%-- - - --%> - - - - -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     -     - - - +     --%> + + + + +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     +     +     + + + diff --git a/Ventas/RepIngresos.aspx.vb b/Ventas/RepIngresos.aspx.vb index 0850d272c..57d099dd5 100644 --- a/Ventas/RepIngresos.aspx.vb +++ b/Ventas/RepIngresos.aspx.vb @@ -83,12 +83,14 @@ Partial Class Ventas_RepIngresos End Sub Protected Sub CargaRepIngresos(Optional tipoReporte As Integer = -1) - Dim ObjRepI As New ClsVentas() + Dim ObjRepI As New ClsVentas() + Dim Cves_Subprotectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM) + Dim TiposDoc As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) - ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TipoDoc, Cves_Subprotectos) + ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TiposDoc, Cves_Subprotectos) GVRepIngresos.DataSource = ObjRepI.DtResultados DtDatos = ObjRepI.DtResultados ObjRepI.Dispose() diff --git a/vwd.webinfo b/vwd.webinfo index 824b76cb0..0770194b6 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -17,6 +17,8 @@ + + \ No newline at end of file