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

Merge - Recepcion Usados

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-11-06 20:04:25 -07:00
parent 2fa9cc5713 80e9f54fee
commit 369a7bd1a9
55 changed files with 4666 additions and 2617 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Bancos/RepCxCCliente.aspx
View File

@@ -120,6 +120,9 @@
<asp:ListItem Text="Moneda" Value="2"></asp:ListItem>
</asp:DropDownList>
</li>
<li>Cuenta:&nbsp;&nbsp;&nbsp;&nbsp;
<asp:Textbox runat="server" ID="TxtCuenta" Width="120px"/>
</li>
</ul>
</div>
</div>

6
Bancos/RepCxCCliente.aspx.vb
View File

@@ -56,7 +56,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
@@ -139,7 +141,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