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

-- tomar la cuenta contable de la cuenta bancaria

Browse Source
This commit is contained in:
rrene
2025-01-03 08:33:44 -07:00
parent b44ece9922
commit e5f606ee99
1 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Bancos/RepCortes.aspx.vb
View File

@@ -113,11 +113,11 @@ Partial Class Bancos_RepCortes
End If End If
Else Else
If UsuarioActual.CveRol = 1 Then If UsuarioActual.CveRol = 1 Then
If e.Row.DBCampo("VentasCorte").ToDecimal.RoundSQL <> e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal.RoundSQL Then If e.Row.DBCampo("VentasCorte").ToDecimal <> e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal Then
e.Row.Cells(2).ForeColor = Drawing.Color.Red e.Row.Cells(2).ForeColor = Drawing.Color.Red
e.Row.Cells(2).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal)).ToString e.Row.Cells(2).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal)).ToString
End If End If
If e.Row.DBCampo("VentasCorte").ToDecimal.RoundSQL <> e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal.RoundSQL Then If e.Row.DBCampo("VentasCorte").ToDecimal <> e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal Then
e.Row.Cells(6).ForeColor = Drawing.Color.Red e.Row.Cells(6).ForeColor = Drawing.Color.Red
e.Row.Cells(6).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal)).ToString e.Row.Cells(6).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal)).ToString
End If End If
@@ -283,15 +283,26 @@ Partial Class Bancos_RepCortes
GvIngresosRetiros.DataBind() GvIngresosRetiros.DataBind()
If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) Then If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) Then
DivAnexo.Visible = True
Dim CveCuenta As Integer = 0 Dim CveCuenta As Integer = 0
CveCuenta = If(UsuarioActual.CveEmpresa = 193, 186367, 0) 'obtener relación contable
If DdlSubProyectos.SelectedValue = "12756" Then 'nav Dim objC As New ClsContabilidad
CveCuenta = 188796 If objC.GetCuentasAsignaciones(UsuarioActual.CveEmpresa, 30) Then
End If 'obtengo la cvecuentabancaria
If DdlSubProyectos.SelectedValue = "12755" Then 'hillo Dim tCveBancoCuenta As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1, CveTipoCuenta:=1).FiltroPrimeroValor("CveCuenta", $"CveSubProyecto = {DdlSubProyectos.SelectedValue}").ToEntero
CveCuenta = 188795 CveCuenta = objC.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveBancoCuenta = {tCveBancoCuenta}").ToEntero
End If End If
objC.Dispose()
DivAnexo.Visible = True
'CveCuenta = If(UsuarioActual.CveEmpresa = 193, 186367, 0)
'If DdlSubProyectos.SelectedValue = "12756" Then 'nav
' CveCuenta = 188796
'End If
'If DdlSubProyectos.SelectedValue = "12755" Then 'hillo
' CveCuenta = 188795
'End If
'obtener la cuen
Using ObjConta As New ClsContabilidad Using ObjConta As New ClsContabilidad
If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then