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

Contabilidad/ContabilidadElectronica.aspx.vb

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

Contabilidad2/RepBalanzaComprobacion.aspx

@@ -107,7 +107,15 @@
                                     <asp:ListItem  Text="Mayores" Value="1"></asp:ListItem>
                                     <asp:ListItem  Text="Último nivel" Value="2"></asp:ListItem>
                                 </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>

Contabilidad2/RepBalanzaComprobacion.aspx.vb

@@ -123,10 +123,24 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
         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
-
-
         Else
             DtDatos = Nothing
             Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)

OS/OrdenesServicios.aspx.vb

@@ -3072,7 +3072,7 @@ Partial Class OS_OrdenesServicios
             Exit For
         Next
         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
         End If
 

Ventas/RepComisionesSMS.aspx.vb

@@ -34,7 +34,10 @@ Partial Class Ventas_RepComisionesSMS
 
     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
         '    DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
         'Else
@@ -42,7 +45,10 @@ Partial Class Ventas_RepComisionesSMS
         'End If
         DdlVendedor.DataBind()
         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.DataBind()