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

-- limpieza de código de mandar idcta de contpaq

Browse Source
This commit is contained in:
rrene
2023-08-09 19:00:12 -07:00
parent eb4abbe9a5
commit 4e13b96c3a
90 changed files with 1583 additions and 10362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -203,33 +203,33 @@ Partial Class Bancos_CuentasBancariasDetalle
DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString)
Else
Dim ExisteEnIntems As Boolean = False
'Dim ExisteEnIntems As Boolean = False
For Each li As ListItem In DDlCuentaContable.Items
If li.Value.ToEntero = ObjCuentasBancariasDetalle.IdCtaContable Then
ExisteEnIntems = True
Exit For
End If
Next
'For Each li As ListItem In DDlCuentaContable.Items
' If li.Value.ToEntero = ObjCuentasBancariasDetalle.0 Then
' ExisteEnIntems = True
' Exit For
' End If
'Next
If ExisteEnIntems Then
DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
Else
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim objCont As New ClsContPAQi(UsuarioActual.Empresa)
'If ExisteEnIntems Then
' DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.0.ToString)
'Else
' If UsuarioActual.Empresa.TipoContabilidad = 2 Then
' Dim objCont As New ClsContPAQi(UsuarioActual.Empresa)
If objCont.GetCuentas(ObjCuentasBancariasDetalle.IdCtaContable, "-1", -1) Then
If objCont.DtResultados.Rows.Count > 0 Then
' If objCont.GetCuentas(ObjCuentasBancariasDetalle.0, "-1", -1) Then
' If objCont.DtResultados.Rows.Count > 0 Then
DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString))
DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
End If
End If
objCont.Dispose()
End If
' DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString))
' DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.0.ToString)
' End If
' End If
' objCont.Dispose()
' End If
End If
DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
'End If
'DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.0.ToString)
End If
Else
@@ -254,8 +254,8 @@ Partial Class Bancos_CuentasBancariasDetalle
If CveCuenta = -1 Then
If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim,
TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero,
DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked,
TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble,
"", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked,
TieneTerminal:=ChkTieneTerminal.Checked) Then
ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
Else
@@ -288,7 +288,7 @@ Partial Class Bancos_CuentasBancariasDetalle
Else
If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0,
TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text,
TxtLimiteCredito.Text.Trim.ToDouble, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text,
ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked) Then
'CargaDatos()
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
@@ -499,8 +499,7 @@ Partial Class Bancos_CuentasBancariasDetalle
Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
Dim IdCuentaContable As Integer = -1
Dim CtaCodigo As String = ""
Dim TieneError = False
Dim IdCtaContable As Integer = -1, IdCtaContableComplementaria As Integer = -1
Dim TieneError = False
Dim CtaContableCodigo As String = "-1", CtaComplementariaCodigo As String = "-1"
Dim TipoCase = ""
@@ -535,19 +534,16 @@ Partial Class Bancos_CuentasBancariasDetalle
CtaCodigo = CStr(row("CtaCodigo"))
Select Case TipoCase
Case "CuentaContable"
IdCtaContable = IdCuentaContable
Case "CuentaContable"
CtaContableCodigo = CtaCodigo
Case "CuentaContableComplementaria"
IdCtaContableComplementaria = IdCuentaContable
Case "CuentaContableComplementaria"
CtaContableCodigo = CtaCodigo
End Select
If Not ObjCuentasBancariasDetalle.VincularCuentasContablesBancarias(IdCtaContable, IdCtaContableComplementaria, CveCuenta) Then
TieneError = True
End If
Else
End Select
'If Not ObjCuentasBancariasDetalle.VincularCuentasContablesBancarias(Id0CtaContable, Id0CtaContableComplementaria, CveCuenta) Then
' ' TieneError = True
' 'End If
'Else
TieneError = True
End If
@@ -616,12 +612,12 @@ Partial Class Bancos_CuentasBancariasDetalle
End If
End If
'vincula ambos
If Not TieneError Then
If Not ObjCuentasBancariasDetalle.VincularCuentasContablesBancarias(IdCuentaContable, IdCuentaContableComplementaria, CveCuenta) Then
TieneError = True
End If
End If
''vincula ambos
'If Not TieneError Then
' If Not ObjCuentasBancariasDetalle.VincularCuentasContablesBancarias(0, 0, CveCuenta) Then
' TieneError = True
' End If
'End If
Return TieneError
End Function