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
2023-03-22 23:12:56 -07:00
parent be900bdbcc 69528af6bc
commit 1233c1d0b4
61 changed files with 38524 additions and 29425 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
Sistemas/Empresa.aspx.vb
View File

@@ -655,7 +655,7 @@ Partial Class Sistemas_Empresa
'RECARGA EMPRESA
If TextoError = "" Then
If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
GlobalDTEmpresas(CveEmpresa) = ObjEmpresas.DtResultados
GlobalDTEmpresas(CveEmpresa) = Nothing
'verifico si existe la carpeta de la empresa, sino la crea
For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
@@ -665,9 +665,8 @@ Partial Class Sistemas_Empresa
Next
End If
If ObjGral.GetClasificacionPorcentaje(CveEmpresa) Then
GlobalDTClasificacionPorcentaje(CveEmpresa) = ObjGral.DtResultados
End If
GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
End If
'AGREGAR FUNCIONALIDADES
@@ -706,31 +705,35 @@ Partial Class Sistemas_Empresa
If TextoError = "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" Then
If UsuarioActual.Empresa.UsaContabilidad Then
'CREA OBJETO EMPRESA
If ObjEmpresas.GetEmpresas(TxtCveEmpresa.Text.ToEntero, "-1", "-1", "-1", "-1") Then
Dim Empresa As New Empresa
Empresa = ObjEmpresas.Empresa
ObjContPAQ = New ClsContPAQi(Empresa)
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
'CREA OBJETO EMPRESA
If ObjEmpresas.GetEmpresas(TxtCveEmpresa.Text.ToEntero, "-1", "-1", "-1", "-1") Then
Dim Empresa As New Empresa
Empresa = ObjEmpresas.Empresa
If ObjContPAQ.Conectado Then
'ADD
If BDContPAQ = "" Then
If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
ObjContPAQ = New ClsContPAQi(Empresa)
If ObjContPAQ.Conectado Then
'ADD
If BDContPAQ = "" Then
If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
End If
End If
End If
'UPDATE
If BDContPAQ <> "" And (BDContPAQ <> TxtBDContPAQi.Text.Trim Or ServerContPAQ <> TxtServerContPAQi.Text.Trim) Then
If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
'UPDATE
If BDContPAQ <> "" And (BDContPAQ <> TxtBDContPAQi.Text.Trim Or ServerContPAQ <> TxtServerContPAQi.Text.Trim) Then
If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
End If
End If
Else
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
End If
Else
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
End If
End If
Else
Alert("La empresa tiene la información para el uso de contabilidad pero no se tiene activada", TipoMensaje.MsgAdvertencia)
End If
@@ -781,11 +784,16 @@ Partial Class Sistemas_Empresa
If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
Empresa = ObjEmpresa.Empresa
Dim ObjContabilidad As New ClsContPAQi(Empresa)
If ObjContabilidad.GetCuentas(-1, "-1", -1, IdPadre:=IdCuentaPadre) Then
DtCuentasContables = ObjContabilidad.DtResultados
If Empresa.TipoContabilidad = 2 Then
Dim ObjContabilidad As New ClsContPAQi(Empresa)
If ObjContabilidad.GetCuentas(-1, "-1", -1, IdPadre:=IdCuentaPadre) Then
DtCuentasContables = ObjContabilidad.DtResultados
End If
ObjContabilidad.Dispose()
End If
ObjContabilidad.Dispose()
End If
ObjEmpresa.Dispose()
@@ -1410,7 +1418,7 @@ Partial Class Sistemas_Empresa
Private Sub CargaCuentasIVA(ByRef ObjEmpresas As ClsSisEmpresas)
If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
If ObjEmpresas.Empresa.UsaContabilidad Then
If ObjEmpresas.Empresa.UsaContabilidad And ObjEmpresas.Empresa.TipoContabilidad = 2 Then
'If ObjEmpresas.Empresa.TipoContabilidad = 2 Then
Dim Cuenta As New ClsContPAQi(ObjEmpresas.Empresa)
@@ -1437,6 +1445,8 @@ Partial Class Sistemas_Empresa
Catch ex As Exception
End Try
End If
End If
'ObjEmpresas.Dispose()