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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-09-11 18:00:37 -07:00
parent 0238a018f8 537a17d083
commit ffde941be8
1 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Compras/Proveedores.aspx.vb
View File

@@ -1091,7 +1091,7 @@ Partial Class Compras_Proveedores
Select Case HdnCuenta.Value Select Case HdnCuenta.Value
Case "1" Case "1"
CargaCuentasDDL(DdlCtaContProveedores, 201) CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
Case "2" Case "2"
CargaCuentasDDL(DdlCtaContAnticipos, 204) CargaCuentasDDL(DdlCtaContAnticipos, 204)
Case "3" Case "3"
@@ -1299,7 +1299,13 @@ Partial Class Compras_Proveedores
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL() ObjContaAC.IniciaTransacSQL()
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(201).ToEntero, TxtRazonSocial.Text.Trim, "D", 2) Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
If DdlCveTipoProveedor.SelectedValue = "2" Then 'cuando es acreedor
ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
End If
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2)
If IdCuentaContable > 0 Then If IdCuentaContable > 0 Then
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1) ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
@@ -1396,10 +1402,13 @@ Partial Class Compras_Proveedores
Next Next
End If End If
If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then If UsuarioActual.CveEmpresa = 119 Then
ErrorCuentasContables = True If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then
ErrorCuentasContables = True
End If
End If End If
''Agrega Sucursales ''Agrega Sucursales
If TempDTSucursales.Rows.Count > 0 Then If TempDTSucursales.Rows.Count > 0 Then
For Each row As DataRow In TempDTSucursales.Rows For Each row As DataRow In TempDTSucursales.Rows
@@ -3684,7 +3693,9 @@ Partial Class Compras_Proveedores
'' 17/03/2017 FUNCIONALIDADES 249,250,251 '' 17/03/2017 FUNCIONALIDADES 249,250,251
'' Proveedores '' Proveedores
If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0 Then Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
DdlCtaContProveedores.Width = 175 DdlCtaContProveedores.Width = 175
BtnActivaRegistroProveedores.Visible = True BtnActivaRegistroProveedores.Visible = True
@@ -3866,7 +3877,7 @@ Partial Class Compras_Proveedores
Select Case btn.CommandArgument.ToString Select Case btn.CommandArgument.ToString
Case "Proveedores" Case "Proveedores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(201).ToEntero CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
Case "Acreedores" Case "Acreedores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
Case "DocsXPagar" Case "DocsXPagar"
@@ -5534,6 +5545,7 @@ Partial Class Compras_Proveedores
End Sub End Sub
#End Region #End Region
Protected Sub DdlCveTipoProveedor_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlCveTipoProveedor_SelectedIndexChanged(sender As Object, e As EventArgs)
If UsuarioActual.Empresa.Funcionalidad(544).ToString = "1" Then If UsuarioActual.Empresa.Funcionalidad(544).ToString = "1" Then
TxtCodigo.Enabled = True TxtCodigo.Enabled = True
TxtCodigo.Text = "" TxtCodigo.Text = ""
@@ -5568,6 +5580,8 @@ Partial Class Compras_Proveedores
Alert("No tiene registrados Folios Automáticos.", TipoMensaje.MsgAdvertencia) Alert("No tiene registrados Folios Automáticos.", TipoMensaje.MsgAdvertencia)
End If End If
End If End If
ObjSub.Dispose()
ObjFolios.Dispose()
End Sub End Sub
Protected Sub LblB_Click(sender As Object, e As EventArgs) Protected Sub LblB_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)