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

-- parametro adicional de cvesubproyecto

Browse Source
This commit is contained in:
rrene
2024-09-26 17:36:14 -07:00
parent 7a2f854028
commit cacd261747
3 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsContabilidad.vb
View File

@@ -437,19 +437,17 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Conta_ClienteAuxiliar") DataAdapter("PA_Conta_ClienteAuxiliar")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.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("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
End With End With

5
Ventas/AuxiliarCliente.aspx
View File

@@ -119,6 +119,11 @@
<asp:ListItem Text="Detallado" Value="1"></asp:ListItem> <asp:ListItem Text="Detallado" Value="1"></asp:ListItem>
<asp:ListItem Selected="True" Text="Agrupado por Venta" Value="2"></asp:ListItem> <asp:ListItem Selected="True" Text="Agrupado por Venta" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div> </div>
</div> </div>
</div> </div>

4
Ventas/AuxiliarCliente.aspx.vb
View File

@@ -40,8 +40,6 @@ Partial Class Ventas_AuxiliarCliente
End If End If
End Sub End Sub
Private Sub CargaFiltros() Private Sub CargaFiltros()
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
@@ -59,7 +57,7 @@ Partial Class Ventas_AuxiliarCliente
'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1) 'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
'DdlConceptosContables.DataBind() 'DdlConceptosContables.DataBind()
'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy") txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy") txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")