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

AF/RepDepreciacion.aspx

@@ -47,7 +47,7 @@
     </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    <asp:Label ID="LblTitulo" runat="server" Text="Catálogo de Ingreso / Egreso"></asp:Label>
+    Depreciaciones
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>

Ashx/E48.ashx

@@ -39,12 +39,15 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
         Dim RespuestaError As New FidelityAppsResponseError
         Dim TieneError As Boolean = False
         Dim JsonRequest As JObject = Nothing
-        Dim UsuarioActual As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Dim ObjInventario As New ClsInventarios
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
         Dim CveMovimiento As Integer = 0
         Dim Mensaje As String = ""
         Dim SinExistencia As String = "No hay existencias suficientes del producto: "
+        Dim ObjUsuarios As New ClsSisUsuarios
+        Dim CveUsuario As Integer
+        Dim UsuarioActual As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
+
 
         Dim ErrorAC As Boolean = False
         Dim ErrorMovInv As Boolean = False
@@ -68,29 +71,34 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
             RespuestaError.Message = "Ocurrió un error al obtener el cuerpo de los parametros"
         End If
 
-        If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha")) AndAlso Not String.IsNullOrEmpty(JsonRequest("usuario")) AndAlso Not String.IsNullOrEmpty(JsonRequest("almacen")) AndAlso Not String.IsNullOrEmpty(JsonRequest("entrega")) AndAlso
+        If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha")) Then
-                              Not String.IsNullOrEmpty(JsonRequest("observaciones")) AndAlso Not String.IsNullOrEmpty(JsonRequest("productos")) Then
             Dim Inv As New ClsInventarios
             Dim ObjProductosServicios As New ClsProductosServicios()
             Dim ObjContaAC As ClsContPAQi = Nothing
             Dim tFolio As Integer = Inv.GetFolioSiguiente(3, CveEmpresa)
-            Dim observaciones As String = JsonRequest("observaciones").ToString()
+            Dim observaciones As String = IIf(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen")
             Dim CveAlmacen As Integer = 7
             Dim IDPoliza As Integer = 0
-
-            Dim Fecha As Date = JsonRequest("fecha").ToString().ToDate
             Dim usuario As String = JsonRequest("usuario").ToString()
+            If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+                CveUsuario = ObjUsuarios.DtResultados.FiltroPrimeroValor("CveUsuario", String.Format("Usuario = '{0}' ", usuario)).ToEntero
+                If CveUsuario > 0 Then
+                    UsuarioActual = ValidaUsuarioSistema(CveUsuario, CveEmpresa)
+                Else
+                    Mensaje = "No se encontro el usuario ingresado"
+                    TieneError = True
+                End If
+            End If
+            Dim Fecha As Date = JsonRequest("fecha").ToString().ToDate
             Dim almacen As String = JsonRequest("almacen").ToString()
             Dim Recibe As String = JsonRequest("entrega").ToString()
             Dim GlobalDTInvConceptos As DataTable
-            Dim CveModalidad As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveModalidad").ToEntero()
+            Dim EsContabilizable As Boolean = True
-
-            Dim EsContabilizable As Boolean = (CveModalidad = 1)
             If Inv.GetConceptos Then GlobalDTInvConceptos = Inv.DtResultados Else GlobalDTInvConceptos = Nothing
+            If Not TieneError Then
                 Try
-
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("ASHX/E48", 53, 0, 0, 1, Fecha, observaciones, UsuarioActual.CveUsuario, CveEmpresa, CveTipoPoliza:=3)
-                Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("ASHX/E48", 53, 0, 0, 1, Fecha, observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
+                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, tFolio, UsuarioActual.CveUsuario, CveEmpresa, -1, -1, -1, -1, Observaciones:=observaciones, Recibio:=Recibe, Modulo:="ASHX/E48")
-                CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=observaciones, Recibio:=Recibe, Modulo:="ASHX/E48")
 
                     If CveMovimiento <= 0 OrElse CvePrePoliza <= 0 Then
                         RespuestaError.Message = "No se pudo almacenar el movimiento correctamente"
@@ -108,7 +116,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
 
                         Dim Cantidad As Double = JsonPS("cantidad").ToString.ToDouble()
                         Dim CvePS As Integer = GlobalDTPSSimplificado(Codigo:=JsonPS("codigo").ToString()).FiltroPrimeroValor("CvePS").ToEntero()
-                    Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+                        Dim DrPS As DataRow = GlobalDTPS(CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
                         Dim CveUM As Integer
                         If ObjProductosServicios.GetPS(CvePS, -1, CveEmpresa) Then
                             If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
@@ -119,7 +127,6 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
 
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, 0, Observaciones:=observaciones, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 Mensaje = "Error al guardar los movimientos"
-                            RespuestaError.Message = Mensaje
 
                                 ErrorMovInv = True
                                 Exit For
@@ -128,21 +135,19 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
                             If UsuarioActual.TienePermisoProceso(114) Then
                                 If ObjInventario.GetExistenciasPS(CvePS, CveUM, CveEmpresa, CveAlmacen, FechaMovto:=String.Format("{0} 00:00", Fecha.ToString("yyyy/MM/dd"))) >= Cantidad Then
                                     Mensaje = "Error al guardar los movimientos"
-                                RespuestaError.Message = Mensaje
                                     ErrorMovInv = True
                                     Exit For
                                 End If
                             Else
                                 SinExistencia += String.Format("{0}, ", JsonPS("codigo").ToString())
-                            RespuestaError.Message = SinExistencia
+                                ErrorMovInv = True
-                            ErrorMovInv = True : Exit For
                             End If
-
                         End If
                         Cont += 1
                     Next
+                    Mensaje = SinExistencia
                     'Registro la prepóliza
-                If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                    If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, CveEmpresa) Then
                         Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL()
                         Dim tValorOtro As Decimal = tValorInventario
                         Dim idCtaContable As Integer = 0
@@ -151,7 +156,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
                         Dim TipoMovtoOtro As Boolean = True
                         Dim tCveSubProyecto As Integer = -1
 
-                    Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", CveAlmacen))
+                        Dim drA2 As DataRow = GlobalDTAlmacen(CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", CveAlmacen))
                         If drA2 IsNot Nothing Then
                             idCtaContable = drA2("IdCtaContable").ToString.ToEntero
                             tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
@@ -205,8 +210,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
                             If AC.GetPresupuestoEgresos(-1, True, UsuarioActual.Empresa.EjercicioActual, UsuarioActual.CveEmpresa) Then
                                 DtPresupuestos = AC.DtResultados.Copy
                             Else
-                            Alert("Ocurrió un error al cargar los Presupuestos. Por favor vuelva a cargar la página", TipoMensaje.MsgError)
+                                Mensaje = "Ocurrió un error al cargar los Presupuestos. Por favor vuelva a cargar la página"
-                            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                             End If
                             AC.Dispose()
 
@@ -300,6 +304,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
 
                     TieneError = True
                 End Try
+            End If
 
             ObjInventario.Dispose() 'elimino la instancia
             If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()

Bancos/RegistroPagoIntermediario.aspx.vb

@@ -199,12 +199,7 @@ Partial Class Bancos_PagosIntermediarios
                             If ImporteMovimiento <> 0 Then
                                 'Conta ContPAQ
                                 If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
-                                    CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                    CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(ConceptoContable).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                End If
-
-                                'Conta SIG
-                                If (CveCuenta < 1 Or CveCuentaBancaria < 1) Then
-                                    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                 End If
 
                                 If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ConceptoMovimiento, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.DataKey("CveVenta").ToString.ToEntero, -1, -1, CveCliente, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta) Then

CRM/AsignarVendedorEnProspectos.aspx

@@ -82,7 +82,7 @@
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvProspectos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvProspectos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <asp:GridView ID="GvProspectos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveEmpresaCRM,Empresa,CveSubProyecto,SubProyecto,CveGiro,Giro" EmptyDataText="No se encontraron registros"
+            <asp:GridView ID="GvProspectos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveEmpresaCRM,Empresa,CveSubProyecto,SubProyecto,CveGiro,Giro" EmptyDataText="Sin prospectos por asignar."
                 ToolTip="Listado de Temas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-freezerows="1" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="Asignar" ItemStyle-HorizontalAlign="Center">

Compras/Compras.aspx.vb

@@ -9734,7 +9734,7 @@ Partial Class Compras_Compras
         Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
         Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL)
         Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL)
-        Dim ObjContaAC As ClsContPAQi  '= New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjContaAC As ClsContPAQi = Nothing '= New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim Retorno As Boolean = True
         Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero

Contabilidad/RegPrePolizaS.aspx

@@ -99,9 +99,9 @@
                             <div class="chequesie12" runat="server" id="divDatosPrincipales">
                                 <div class="row">
                                     <label class="col-md-2 control-label text-left">Fecha: </label>
-                                    <div class="col-md-4" style="width: 42%;">
+                                    <div class="col-md-4">
-                                        <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                        <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                            <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control"></asp:TextBox>
+                                            <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
                                             <span class="input-group-btn ">
                                                 <asp:LinkButton runat="server" ID="ImgCalendario" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
                                             </span>
@@ -341,7 +341,7 @@
                     </div>
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                         <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False"
-                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones" 
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones" 
                             Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -869,9 +869,9 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
         For Each Gvr As GridViewRow In GvMov.Rows
-            If Gvr.DataKey("CveConceptoContable") = "30" AndAlso Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE
+            If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE
                 If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then
-                    Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
+                    Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
             End If
@@ -914,7 +914,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         'End If
 
                         'Registra movimieno bancario
-                        If gvr.DataKey("CveConcepto").ToEntero = 30 Then
+                        If gvr.DataKey("CveConcepto").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToString.ToDecimal <> 0 Then
 
                             CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
                                                        gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",

Contabilidad/RepGastosCC.aspx

@@ -167,7 +167,7 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText=""   
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                data-sort="true" Style="text-align: center;" GridLines="None">
+                data-sort="true"  GridLines="None">
                 
                 <HeaderStyle CssClass="Titulos" />
                 <RowStyle CssClass="Texto" />

Contabilidad/RepGastosCC.aspx.vb

@@ -145,7 +145,10 @@ Partial Class RepGastosCC
     End Sub
 
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvDatos.ExportToExcelG("ReporteGastos" & Now.ToShortDateString & ".xlsx")
+        Dim StrFiltro As New StringBuilder
+        If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text)
+        If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text)
+        GvDatos.ExportToExcelG("ReporteGastos" & Now.ToShortDateString, "Gastos Acumulados", UsuarioActual, StrFiltro.ToString, 100, 200)
     End Sub
     ' Note, it is important to override the form verification in order to successfully call a GridView1.RenderControl method.
     Public Overrides Sub VerifyRenderingInServerForm(control As Control)

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     End Sub
 
     Private Sub CargaCombos()
-        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,12,14,16, 26)")
+        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,12,14,16,19, 26)")
 
         DdlAlmacen.DataSource = DtAlmacenes
         DdlAlmacen.DataBind()

Inventarios/EntradasSalidas.aspx.vb

@@ -4234,7 +4234,7 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
             If ValorEntrada >= ValorSalida Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"
                 End If

Ventas/RepPS.aspx

@@ -68,7 +68,7 @@
         <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
     <li>
-        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReporteDiario" ID="HLReporteDiario" runat="server"> <i class="fa fa-file-o"></i>  Reporte Diario</asp:HyperLink>
+        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReporteDiario" ID="HLReporteDiario" Visible="false" runat="server"> <i class="fa fa-file-o"></i>  Reporte Diario</asp:HyperLink>
     </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">

Ventas/RepPS.aspx.vb

@@ -36,7 +36,7 @@ Partial Class Ventas_RepPS
                 'DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
             End If
 
-            If UsuarioActual.TienePermisoProceso(320) OrElse UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.TienePermisoProceso(320) Then
                 HLReporteDiario.Visible = True
             End If