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
2024-06-06 19:46:26 -07:00
parent c9b47f5ac9 6521eae20c
commit 6e05f9c7e5
5 changed files with 39 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -178,16 +178,16 @@ Partial Class Contabilidad_ContabilidadElectronica
Dim DtCuentas As New DataTable Dim DtCuentas As New DataTable
If UsuarioActual.Empresa.TipoContabilidad = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim objconta As New ClsContabilidad Dim objconta As New ClsContabilidad
If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, 1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
DtCuentas = objconta.DtResultados DtCuentas = objconta.DtResultados
End If End If
objconta.Dispose() objconta.Dispose()
If DtCuentas IsNot Nothing Then If DtCuentas IsNot Nothing Then
Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD") Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD", "Id is null")
Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA") Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA", "Id is null")
If Deudor <> Acreedor Then If Deudor <> Acreedor Then
Alert("los Saldos Actuales no cuadran.", TipoMensaje.MsgError) Alert("los Saldos Actuales no cuadran. " & Deudor - Acreedor, TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
End If End If

10
Contabilidad2/RepBalanzaComprobacion.aspx
View File

@@ -107,7 +107,15 @@
<asp:ListItem Text="Mayores" Value="1"></asp:ListItem> <asp:ListItem Text="Mayores" Value="1"></asp:ListItem>
<asp:ListItem Text="Último nivel" Value="2"></asp:ListItem> <asp:ListItem Text="Último nivel" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div
<label class="col-md-1">Vista: </label>
<div class="col-md-2 ">
<asp:DropDownList ID="DdlVista" runat="server" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" >
<asp:ListItem Selected="True" Text="Contable" Value="0"></asp:ListItem>
<asp:ListItem Text="SAT" Value="1"></asp:ListItem>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>

20
Contabilidad2/RepBalanzaComprobacion.aspx.vb
View File

@@ -123,10 +123,24 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, 0, DdlNivel.SelectedValue.ToEntero) Then If TipoReporte = 1 Then
'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
Dim dtt As DataTable = ObjConta.DtResultados.FiltraParametros("CveAgrupadorSAT is null and not Codigo like '_%'")
If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
Dim str As New StringBuilder
For Each dr As DataRow In dtt.Rows
str.AppendFormat(" - {0} </br>", dr("CtaCodigo"))
Next
Alert(str.ToString)
End If
End If
End If
If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, DdlVista.SelectedValue.ToEntero, DdlNivel.SelectedValue.ToEntero) Then
DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
Else Else
DtDatos = Nothing DtDatos = Nothing
Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError) Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)

2
OS/OrdenesServicios.aspx.vb
View File

@@ -3072,7 +3072,7 @@ Partial Class OS_OrdenesServicios
Exit For Exit For
Next Next
If Not TieneArchivos Then If Not TieneArchivos Then
Alert("Debe de Agregar Un Documento de Confirmación (hasta 5 maximo).") Alert("Debe de agregar un documento de confirmación (5 máximo).")
Exit Sub Exit Sub
End If End If

10
Ventas/RepComisionesSMS.aspx.vb
View File

@@ -34,7 +34,10 @@ Partial Class Ventas_RepComisionesSMS
Private Sub CargaCombos() Private Sub CargaCombos()
'If UsuarioActual.TienePermisoProceso(376) Then
' DdlTecnico.Enabled = False
' DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario)
'End If
'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then 'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue)) ' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
'Else 'Else
@@ -42,7 +45,10 @@ Partial Class Ventas_RepComisionesSMS
'End If 'End If
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.CveVendedor > 0 Then
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
DdlVendedor.Enabled = False
End If
DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlMedico.DataBind() DdlMedico.DataBind()