diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 9283bbf74..975465cb7 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -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()