AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

modulos Edoc

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-02-18 20:12:23 -07:00
parent d60c3074ba
commit aa26977472
3 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsPaginas.vb
View File

@@ -4671,9 +4671,9 @@ Public Class ClsPaginas
PaginaDict.Add("/PortalProveedor/PortalProveedor.aspx".ToUpper(), 1201) PaginaDict.Add("/PortalProveedor/PortalProveedor.aspx".ToUpper(), 1201)
PaginaDict.Add("/Edoc/CatDocumentos.aspx".ToUpper(), 1205) PaginaDict.Add("/Edoc/CatDocumentos.aspx".ToUpper(), 1205)
PaginaDict.Add("/Edoc/CatTipoContratos.aspx".ToUpper(), -1) PaginaDict.Add("/Edoc/CatTipoContratos.aspx".ToUpper(), 1207)
PaginaDict.Add("/Edoc/CatDocumentosContratos.aspx".ToUpper(), -1) PaginaDict.Add("/Edoc/CatDocumentosContratos.aspx".ToUpper(), 1208)
PaginaDict.Add("/Edoc/Contratos.aspx".ToUpper(), -1) PaginaDict.Add("/Edoc/Contratos.aspx".ToUpper(), 1209)
'Portal 'Portal
PaginaDict.Add("/AIMMGM/ConsultaCliente.aspx".ToUpper(), -1) PaginaDict.Add("/AIMMGM/ConsultaCliente.aspx".ToUpper(), -1)

4
App_Code/ClsVentas.vb
View File

@@ -3914,14 +3914,14 @@ Public Class ClsVentas
#End Region #End Region
Public Function RepIngresos(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, TipoDocto As String, CveSubProyecto As Integer) As Boolean Public Function RepIngresos(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, TipoDocto As String, Cves_Subprotectos As String) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_Ventas_RepIngresos", CommandType.StoredProcedure) DataAdapter("PA_Ventas_RepIngresos", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@TipoDoc", SqlDbType.VarChar).Value = TipoDocto .Add("@TipoDoc", SqlDbType.VarChar).Value = TipoDocto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@Cves_Subprotectos", SqlDbType.VarChar).Value = Cves_Subprotectos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

6
Ventas/RepIngresos.aspx.vb
View File

@@ -84,7 +84,11 @@ Partial Class Ventas_RepIngresos
Protected Sub CargaRepIngresos(Optional tipoReporte As Integer = -1) Protected Sub CargaRepIngresos(Optional tipoReporte As Integer = -1)
Dim ObjRepI As New ClsVentas() Dim ObjRepI As New ClsVentas()
ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TipoDoc, DdlSubProyecto.SelectedValue.ToEntero) Dim Cves_Subprotectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TipoDoc, Cves_Subprotectos)
GVRepIngresos.DataSource = ObjRepI.DtResultados GVRepIngresos.DataSource = ObjRepI.DtResultados
DtDatos = ObjRepI.DtResultados DtDatos = ObjRepI.DtResultados
ObjRepI.Dispose() ObjRepI.Dispose()