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

-- correción de cuenta

Browse Source
This commit is contained in:
rrene
2023-08-17 15:29:58 -07:00
parent 90d1bead35
commit 70fce81f48
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/PolizaCheque.aspx.vb
View File

@@ -203,8 +203,6 @@ Partial Class Bancos_PolizaCheque
Private Sub CargaPlantillas(TipoPlantilla As Integer) Private Sub CargaPlantillas(TipoPlantilla As Integer)
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
DdlPlantilla.DataBind() DdlPlantilla.DataBind()
@@ -263,9 +261,7 @@ Partial Class Bancos_PolizaCheque
Banco.Dispose() Banco.Dispose()
TxtFolio.Text = Folio.ToString TxtFolio.Text = Folio.ToString
End If End If
End If End If
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
@@ -368,10 +364,10 @@ Partial Class Bancos_PolizaCheque
For Each drt As DataRow In Dt.Rows For Each drt As DataRow In Dt.Rows
Cuenta = drt("ConceptoContable").ToString Cuenta = drt("ConceptoContable").ToString
IdCuenta = 0 IdCuenta = drt("IdCtaContable").ToString.ToEntero
CveCuenta = 0 CveCuenta = 0
CodigoCuenta = "" CodigoCuenta = drt("Codigo").ToString
NombreCuenta = "" NombreCuenta = drt("Nombre").ToString
If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))