-- se quitó propiedad usacontabilidadSIG
This commit is contained in:
@@ -697,7 +697,7 @@ Partial Class Compras_Proveedores
|
||||
DtCuentasContables = Nothing
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
ElseIf UsuarioActual.Empresa.UsaContabilidadSIG Then
|
||||
ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
DtCuentasContables = ObjContabilidad.DtResultados
|
||||
@@ -904,7 +904,7 @@ Partial Class Compras_Proveedores
|
||||
End If
|
||||
|
||||
'Contable
|
||||
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
|
||||
If UsuarioActual.Empresa.UsaContabilidad Then
|
||||
DdlCtaContAcreedores.AutoPostBack = True
|
||||
DdlCtaContProveedores.AutoPostBack = True
|
||||
DdlCtaContAnticipos.AutoPostBack = True
|
||||
@@ -943,29 +943,6 @@ Partial Class Compras_Proveedores
|
||||
DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);")
|
||||
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
|
||||
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
|
||||
@@ -4542,92 +4519,92 @@ Partial Class Compras_Proveedores
|
||||
ObjProveedores.Dispose()
|
||||
|
||||
|
||||
ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then
|
||||
'ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then
|
||||
|
||||
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
Dim ObjProveedores As New ClsCompProveedores()
|
||||
ObjContabilidad.IniciaTransacSQL()
|
||||
ObjProveedores.IniciaTransacSQL()
|
||||
Dim CuentaPadre = -1
|
||||
Dim IdCuentaContable = -1
|
||||
Dim CtaCodigo As String = ""
|
||||
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 CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
|
||||
' Dim ObjContabilidad As New ClsContabilidad
|
||||
' Dim ObjProveedores As New ClsCompProveedores()
|
||||
' ObjContabilidad.IniciaTransacSQL()
|
||||
' ObjProveedores.IniciaTransacSQL()
|
||||
' Dim CuentaPadre = -1
|
||||
' Dim IdCuentaContable = -1
|
||||
' Dim CtaCodigo As String = ""
|
||||
' 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 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
|
||||
Case "Proveedores"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero
|
||||
Case "Acreedores"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero
|
||||
Case "DocsXPagar"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero
|
||||
Case "Anticipos"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero
|
||||
Case "Deudores"
|
||||
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero
|
||||
' Select Case btn.CommandArgument.ToString
|
||||
' Case "Proveedores"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero
|
||||
' Case "Acreedores"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero
|
||||
' Case "DocsXPagar"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero
|
||||
' Case "Anticipos"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero
|
||||
' Case "Deudores"
|
||||
' 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)
|
||||
IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa)
|
||||
If IdCuentaContable > 0 Then
|
||||
' Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
|
||||
' IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa)
|
||||
' If IdCuentaContable > 0 Then
|
||||
|
||||
ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa)
|
||||
Dim dt = ObjContabilidad.DtResultados
|
||||
' ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa)
|
||||
' Dim dt = ObjContabilidad.DtResultados
|
||||
|
||||
If dt.Rows.Count = 1 Then
|
||||
' If dt.Rows.Count = 1 Then
|
||||
|
||||
Dim row As DataRow = dt.Rows(0)
|
||||
CtaCodigo = CStr(row("CtaCodigo"))
|
||||
' Dim row As DataRow = dt.Rows(0)
|
||||
' CtaCodigo = CStr(row("CtaCodigo"))
|
||||
|
||||
Select Case btn.CommandArgument.ToString
|
||||
Case "Proveedores"
|
||||
IdCtaContableProveedores = IdCuentaContable
|
||||
CtaCodigoProveedores = CtaCodigo
|
||||
Case "Acreedores"
|
||||
IdCtaContableAcreedores = IdCuentaContable
|
||||
CtaCodigoAcreedores = CtaCodigo
|
||||
Case "DocsXPagar"
|
||||
IdCtaContableDocsXPagar = IdCuentaContable
|
||||
CtaCodigoDocsXPagar = CtaCodigo
|
||||
Case "Anticipos"
|
||||
IdCtaContableAnticipos = IdCuentaContable
|
||||
CtaCodigoAnticipos = CtaCodigo
|
||||
Case "Deudores"
|
||||
IdCtaContableDeudor = IdCuentaContable
|
||||
CtaCodigoDeudor = CtaCodigo
|
||||
End Select
|
||||
' Select Case btn.CommandArgument.ToString
|
||||
' Case "Proveedores"
|
||||
' IdCtaContableProveedores = IdCuentaContable
|
||||
' CtaCodigoProveedores = CtaCodigo
|
||||
' Case "Acreedores"
|
||||
' IdCtaContableAcreedores = IdCuentaContable
|
||||
' CtaCodigoAcreedores = CtaCodigo
|
||||
' Case "DocsXPagar"
|
||||
' IdCtaContableDocsXPagar = IdCuentaContable
|
||||
' CtaCodigoDocsXPagar = CtaCodigo
|
||||
' Case "Anticipos"
|
||||
' IdCtaContableAnticipos = IdCuentaContable
|
||||
' CtaCodigoAnticipos = CtaCodigo
|
||||
' Case "Deudores"
|
||||
' IdCtaContableDeudor = IdCuentaContable
|
||||
' CtaCodigoDeudor = CtaCodigo
|
||||
' End Select
|
||||
|
||||
|
||||
If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
|
||||
TieneError = True
|
||||
End If
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
' If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
|
||||
' TieneError = True
|
||||
' End If
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
|
||||
|
||||
If Not TieneError Then
|
||||
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
||||
btn.Visible = False
|
||||
ddl.Width = 206
|
||||
ObjProveedores.Commit()
|
||||
ObjContabilidad.Commit()
|
||||
Else
|
||||
Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError)
|
||||
ObjProveedores.RollBack()
|
||||
ObjContabilidad.RollBack()
|
||||
End If
|
||||
' If Not TieneError Then
|
||||
' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
' ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
||||
' btn.Visible = False
|
||||
' ddl.Width = 206
|
||||
' ObjProveedores.Commit()
|
||||
' ObjContabilidad.Commit()
|
||||
' Else
|
||||
' Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError)
|
||||
' ObjProveedores.RollBack()
|
||||
' ObjContabilidad.RollBack()
|
||||
' End If
|
||||
|
||||
ObjProveedores.Dispose()
|
||||
ObjContabilidad.Dispose()
|
||||
' ObjProveedores.Dispose()
|
||||
' ObjContabilidad.Dispose()
|
||||
End If
|
||||
|
||||
UPPContable.Update()
|
||||
|
||||
Reference in New Issue
Block a user