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

-- option explicit

Browse Source 
-- repie, filtro por usuario
This commit is contained in:
rrene
2023-08-31 21:54:13 -07:00
parent 3c3268bef1
commit f4d4d5f264
23 changed files with 356 additions and 418 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contabilidad/DiarioPagos.aspx.vb
View File

@@ -175,14 +175,12 @@ Partial Class Contabilidad_DiarioPagos
If TxtTC.Text.ToDouble > 0 Then TxtTC.Enabled = False Else TxtTC.Text = ""
End If
End If
'------------------------------------------ consulto F y E
If CargaOpcion.Contiene(-1, 1) Then
ds = Conta.GetDiarioPagosCompras(DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 2, DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
If ds IsNot Nothing AndAlso ds.Tables.Count = 2 Then
@@ -197,7 +195,6 @@ Partial Class Contabilidad_DiarioPagos
' '------------------------------------------ consulto Transferencias
If CargaOpcion.Contiene(-1, 2) Then
ds = Conta.GetDiarioPagosCompras(DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 3, DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
If ds IsNot Nothing AndAlso ds.Tables.Count = 1 Then
DtDatosTransf = ds.Tables(0)
@@ -211,8 +208,6 @@ Partial Class Contabilidad_DiarioPagos
' '------------------------------------------ consulto anticipos
If CargaOpcion.Contiene(-1, 3) Then
ds = Conta.GetDiarioPagosCompras(DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 4, DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
If ds IsNot Nothing AndAlso ds.Tables.Count = 2 Then
@@ -1605,15 +1600,12 @@ Partial Class Contabilidad_DiarioPagos
If e.Row.DBCampo("ValidoCuenta") = "1" Then
e.Row.FCCheckBox("Chk").Visible = True
''pero si hay compras sin contabilizar, y la factura no tenga completa las clasificaciones
If tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 Then
'
If tDtCompras.MIN("Valido") = "0" Then
e.Row.FCCheckBox("Chk").Visible = False
End If
End If
Else
'sino tiene cuenta