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

-- se quitó propiedad usacontabilidadSIG

Browse Source
This commit is contained in:
rrene
2023-02-08 08:32:16 -07:00
parent 4174dd86b1
commit fef7dc41b0
1 changed files with 73 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

169
Compras/Proveedores.aspx.vb
View File

@@ -697,7 +697,7 @@ Partial Class Compras_Proveedores
DtCuentasContables = Nothing DtCuentasContables = Nothing
End If End If
ObjContabilidad.Dispose() ObjContabilidad.Dispose()
ElseIf UsuarioActual.Empresa.UsaContabilidadSIG Then ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim ObjContabilidad As New ClsContabilidad Dim ObjContabilidad As New ClsContabilidad
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
DtCuentasContables = ObjContabilidad.DtResultados DtCuentasContables = ObjContabilidad.DtResultados
@@ -904,7 +904,7 @@ Partial Class Compras_Proveedores
End If End If
'Contable 'Contable
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then If UsuarioActual.Empresa.UsaContabilidad Then
DdlCtaContAcreedores.AutoPostBack = True DdlCtaContAcreedores.AutoPostBack = True
DdlCtaContProveedores.AutoPostBack = True DdlCtaContProveedores.AutoPostBack = True
DdlCtaContAnticipos.AutoPostBack = True DdlCtaContAnticipos.AutoPostBack = True
@@ -943,29 +943,6 @@ Partial Class Compras_Proveedores
DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);") DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);")
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);") DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
If UsuarioActual.Empresa.UsaContabilidadSIG = True And UsuarioActual.Empresa.UsaContabilidad = False Then
DdlCtaContAcreedores.DataTextField = "Cuenta" : DdlCtaContAcreedores.DataValueField = "CveCuenta"
DdlCtaContProveedores.DataTextField = "Cuenta" : DdlCtaContProveedores.DataValueField = "CveCuenta"
DdlCtaContAnticipos.DataTextField = "Cuenta" : DdlCtaContAnticipos.DataValueField = "CveCuenta"
DdlCtaContFondoGarantia.DataTextField = "Cuenta" : DdlCtaContFondoGarantia.DataValueField = "CveCuenta"
DdlCtaContRetIVA.DataTextField = "Cuenta" : DdlCtaContRetIVA.DataValueField = "CveCuenta"
DdlCtaContRetIVAAcreditable.DataTextField = "Cuenta" : DdlCtaContRetIVAAcreditable.DataValueField = "CveCuenta"
DdlCtaContRetISR.DataTextField = "Cuenta" : DdlCtaContRetISR.DataValueField = "CveCuenta"
DdlCtaContComplementaria.DataTextField = "Cuenta" : DdlCtaContComplementaria.DataValueField = "CveCuenta"
DdlCtaContExtranjera.DataTextField = "Cuenta" : DdlCtaContExtranjera.DataValueField = "CveCuenta"
DdlCtaContDeudor.DataTextField = "Cuenta" : DdlCtaContDeudor.DataValueField = "CveCuenta"
DdlCtaContDeudorExtranjera.DataTextField = "Cuenta" : DdlCtaContDeudorExtranjera.DataValueField = "CveCuenta"
DdlCtaContDocsXPagar.DataTextField = "Cuenta" : DdlCtaContDocsXPagar.DataValueField = "CveCuenta"
DdlCtaContDeudorComplementaria.DataTextField = "Cuenta" : DdlCtaContDeudorComplementaria.DataValueField = "CveCuenta"
DdlCtaContDocsXPagarComplementaria.DataTextField = "Cuenta" : DdlCtaContDocsXPagarComplementaria.DataValueField = "CveCuenta"
DdlCtaContRetISRAcreditable.DataTextField = "Cuenta" : DdlCtaContRetISRAcreditable.DataValueField = "CveCuenta"
DdlCtaContAcreedoresExtranjera.DataTextField = "Cuenta" : DdlCtaContAcreedoresExtranjera.DataValueField = "CveCuenta"
DdlCtaContAcreedoresComplementaria.DataTextField = "Cuenta" : DdlCtaContAcreedoresComplementaria.DataValueField = "CveCuenta"
DdlCtaContAnticiposExtranjera.DataTextField = "Cuenta" : DdlCtaContAnticiposExtranjera.DataValueField = "CveCuenta"
DdlCtaContAnticiposComplementaria.DataTextField = "Cuenta" : DdlCtaContAnticiposComplementaria.DataValueField = "CveCuenta"
DdlCtaContDocsXPagarExtranjera.DataTextField = "Cuenta" : DdlCtaContDocsXPagarExtranjera.DataValueField = "CveCuenta"
End If
'Proveedores 'Proveedores
If ObjProveedor.IdCtaContProveedores > 0 Then DdlCtaContProveedores.Items.Add(New ListItem(ObjProveedor.CtaContProveedores, ObjProveedor.IdCtaContProveedores.ToString)) : DdlCtaContProveedores.SelectedValueExist(ObjProveedor.IdCtaContProveedores.ToString) If ObjProveedor.IdCtaContProveedores > 0 Then DdlCtaContProveedores.Items.Add(New ListItem(ObjProveedor.CtaContProveedores, ObjProveedor.IdCtaContProveedores.ToString)) : DdlCtaContProveedores.SelectedValueExist(ObjProveedor.IdCtaContProveedores.ToString)
If ObjProveedor.IdCtaContProveedoresExtranjera > 0 Then DdlCtaContExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresExtranjera, ObjProveedor.IdCtaContProveedoresExtranjera.ToString)) : DdlCtaContExtranjera.SelectedValue = ObjProveedor.IdCtaContProveedoresExtranjera.ToString If ObjProveedor.IdCtaContProveedoresExtranjera > 0 Then DdlCtaContExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresExtranjera, ObjProveedor.IdCtaContProveedoresExtranjera.ToString)) : DdlCtaContExtranjera.SelectedValue = ObjProveedor.IdCtaContProveedoresExtranjera.ToString
@@ -4542,92 +4519,92 @@ Partial Class Compras_Proveedores
ObjProveedores.Dispose() ObjProveedores.Dispose()
ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then 'ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then
Dim ObjContabilidad As New ClsContabilidad ' Dim ObjContabilidad As New ClsContabilidad
Dim ObjProveedores As New ClsCompProveedores() ' Dim ObjProveedores As New ClsCompProveedores()
ObjContabilidad.IniciaTransacSQL() ' ObjContabilidad.IniciaTransacSQL()
ObjProveedores.IniciaTransacSQL() ' ObjProveedores.IniciaTransacSQL()
Dim CuentaPadre = -1 ' Dim CuentaPadre = -1
Dim IdCuentaContable = -1 ' Dim IdCuentaContable = -1
Dim CtaCodigo As String = "" ' Dim CtaCodigo As String = ""
Dim TieneError = False ' Dim TieneError = False
Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1 ' Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1" ' Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
Select Case btn.CommandArgument.ToString ' Select Case btn.CommandArgument.ToString
Case "Proveedores" ' Case "Proveedores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero
Case "Acreedores" ' Case "Acreedores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero
Case "DocsXPagar" ' Case "DocsXPagar"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero
Case "Anticipos" ' Case "Anticipos"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero
Case "Deudores" ' Case "Deudores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero
End Select ' End Select
Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim) ' Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa) ' IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa)
If IdCuentaContable > 0 Then ' If IdCuentaContable > 0 Then
ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa) ' ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa)
Dim dt = ObjContabilidad.DtResultados ' Dim dt = ObjContabilidad.DtResultados
If dt.Rows.Count = 1 Then ' If dt.Rows.Count = 1 Then
Dim row As DataRow = dt.Rows(0) ' Dim row As DataRow = dt.Rows(0)
CtaCodigo = CStr(row("CtaCodigo")) ' CtaCodigo = CStr(row("CtaCodigo"))
Select Case btn.CommandArgument.ToString ' Select Case btn.CommandArgument.ToString
Case "Proveedores" ' Case "Proveedores"
IdCtaContableProveedores = IdCuentaContable ' IdCtaContableProveedores = IdCuentaContable
CtaCodigoProveedores = CtaCodigo ' CtaCodigoProveedores = CtaCodigo
Case "Acreedores" ' Case "Acreedores"
IdCtaContableAcreedores = IdCuentaContable ' IdCtaContableAcreedores = IdCuentaContable
CtaCodigoAcreedores = CtaCodigo ' CtaCodigoAcreedores = CtaCodigo
Case "DocsXPagar" ' Case "DocsXPagar"
IdCtaContableDocsXPagar = IdCuentaContable ' IdCtaContableDocsXPagar = IdCuentaContable
CtaCodigoDocsXPagar = CtaCodigo ' CtaCodigoDocsXPagar = CtaCodigo
Case "Anticipos" ' Case "Anticipos"
IdCtaContableAnticipos = IdCuentaContable ' IdCtaContableAnticipos = IdCuentaContable
CtaCodigoAnticipos = CtaCodigo ' CtaCodigoAnticipos = CtaCodigo
Case "Deudores" ' Case "Deudores"
IdCtaContableDeudor = IdCuentaContable ' IdCtaContableDeudor = IdCuentaContable
CtaCodigoDeudor = CtaCodigo ' CtaCodigoDeudor = CtaCodigo
End Select ' End Select
If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then ' If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
TieneError = True ' TieneError = True
End If ' End If
Else ' Else
TieneError = True ' TieneError = True
End If ' End If
Else ' Else
TieneError = True ' TieneError = True
End If ' End If
If Not TieneError Then ' If Not TieneError Then
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion)) ' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString) ' ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
btn.Visible = False ' btn.Visible = False
ddl.Width = 206 ' ddl.Width = 206
ObjProveedores.Commit() ' ObjProveedores.Commit()
ObjContabilidad.Commit() ' ObjContabilidad.Commit()
Else ' Else
Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError) ' Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError)
ObjProveedores.RollBack() ' ObjProveedores.RollBack()
ObjContabilidad.RollBack() ' ObjContabilidad.RollBack()
End If ' End If
ObjProveedores.Dispose() ' ObjProveedores.Dispose()
ObjContabilidad.Dispose() ' ObjContabilidad.Dispose()
End If End If
UPPContable.Update() UPPContable.Update()