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

33
Bancos/RepCortes.aspx.vb
View File

@@ -113,11 +113,11 @@ Partial Class Bancos_RepCortes
End If
Else
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).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal)).ToString
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).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal)).ToString
End If
@@ -280,18 +280,29 @@ Partial Class Bancos_RepCortes
GvP.DataBind()
GvDep.DataBind()
GvPorIVA.DataBind()
GvIngresosRetiros.DataBind()
GvIngresosRetiros.DataBind()
If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) Then
DivAnexo.Visible = True
Dim CveCuenta As Integer = 0
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
'obtener relación contable
Dim objC As New ClsContabilidad
If objC.GetCuentasAsignaciones(UsuarioActual.CveEmpresa, 30) Then
'obtengo la cvecuentabancaria
Dim tCveBancoCuenta As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1, CveTipoCuenta:=1).FiltroPrimeroValor("CveCuenta", $"CveSubProyecto = {DdlSubProyectos.SelectedValue}").ToEntero
CveCuenta = objC.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveBancoCuenta = {tCveBancoCuenta}").ToEntero
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
If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then