Merge branch 'master' of http://192.168.10.111:8383/SIG

.gitignore

@@ -287,3 +287,4 @@ vwd.webinfo
 /A/CatEstatusIE.aspx.vb
 /A/a.aspx
 /A/a.aspx.vb
+/General/Report.rdlc

Acumuladores/RepRecolecciones.aspx.vb

@@ -209,6 +209,18 @@ Partial Class Acumuladores_RepRecolecciones
     End Sub
 
     Private Sub BtnModalRecoleccionGuardar_Click(sender As Object, e As EventArgs) Handles BtnModalRecoleccionGuardar.Click
+
+
+        Dim Cantidad As Decimal = HdnCantidadRecoleccion.Value.ToDecimal
+        Dim CantidadDefinido As Decimal = 0
+        For Each gvr As GridViewRow In GvModalPSRecoleccion.Rows
+            CantidadDefinido += gvr.DataKey("Cantidad").ToDecimal
+        Next
+        If CantidadDefinido <> Cantidad Then
+            Alert("La cantidad definida no es la correcta", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjInventario As New ClsInventarios
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
         Dim ErrorMovInv As Boolean = False

App_Code/ClsContratos.vb

@@ -197,13 +197,19 @@ Public Class ClsContratos
 #End Region
 
 #Region " C O N T R A T O S "
-    Public Function GetContratosReporte(CveEmpresa As Integer, FechaInicial As DateTime, FechaFinal As DateTime) As Boolean
+    Public Function GetContratosReporte(CveEmpresa As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveCliente As Integer, Optional CveEstatus As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1, Optional CveTipoContrato As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Con_ContratosReporteGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaInicial", SqlDbType.DateTime).Value = FechaInicial
             .Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
+            .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+            .Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try

App_Code/ClsRH.vb

@@ -3,7 +3,9 @@ Option Explicit On
 
 Imports System.Data
 Imports System.Data.SqlClient
+Imports CrystalDecisions.[Shared].Json
 Imports Extensiones
+Imports Microsoft.Ajax.Utilities
 Imports Profact.TimbraCFDI40
 
 
@@ -2053,17 +2055,25 @@ Public Class ClsRH
 
             .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
 
+            .Add("@ErrorMostrarADS", SqlDbType.VarChar).Direction = ParameterDirection.Output
 
-            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.Output
 
         End With
+
         Try
-            SqlAdapter.Fill(Data)
+            SqlAdapter.SelectCommand.ExecuteNonQuery()
-            _CvePersonal = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+
+            'SqlAdapter.Fill(Data)
+            _CvePersonal = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString().ToEntero()
             Retorno = True
         Catch Ex1 As SqlException
+            Dim ErrorMostrarADS As String = trygetparameter("@ErrorMostrarADS")
+
             'dbo.Vw_Val_Nom_Curps
-            If Ex1.Message.Contains("Número: 2627;") Then
+            If Not (ErrorMostrarADS.IsNullOrWhiteSpace()) Then
+                Alert(ErrorMostrarADS, TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El nuevo personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
             ElseIf Ex1.Message.Contains("Chk_RH_PersonalSalarioIMSS") Then
                 Alert("El nuevo personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia)
@@ -2077,11 +2087,26 @@ Public Class ClsRH
                 Me.OnError("Ocurrió un error al guardar el nuevo personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
         Catch ex As Exception
+            Dim ErrorMostrarADS As String = trygetparameter("@ErrorMostrarADS")
+
+            If Not (ErrorMostrarADS.IsNullOrWhiteSpace()) Then
+                Alert(ErrorMostrarADS, TipoMensaje.MsgAdvertencia)
+            Else
                 OnError("Ocurrió un error al guardar el nuevo personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno
     End Function
+    Private Function trygetparameter(parametername As String) As String
+        Try
+            Return SqlAdapter.SelectCommand.Parameters(parametername).Value.ToString()
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+
+
 
     Public Function UpdatePersonal(Codigo As String, APaterno As String, AMaterno As String, Nombres As String, Correo As String, FechaIngreso As Date, CveTipoPeriodo As Integer, NumeroSS As String, SeInscribioSS As Boolean, SalarioDiarioPago As Double, SalarioDiario As Double, SDI As Double,
         SalarioDiarioSS As Double, Bono As Double, NumDiasAguinaldo As Integer, PorPrimaVacacional As Double, CveMetodoPago As Integer, FechaInicioContrato As Date, FechaFinContrato As String,

Bancos/PopIEVentas.aspx

@@ -533,13 +533,25 @@
             <td align="center">
                 <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <div class="row">
+                        <table>
+                            <tr>
+                                <td>
                                     <asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
-                            <br />
+                                </td>
-                        </div>
+                                <td>
-                        <div class="roe">
                                     <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
                                     <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
+                                </td>
+                            </tr>
+                        </table>
+                        <div class="row">
+                            <div class="col-md-6">
+                                
+                            </div>
+                            <div class="col-md-6">
+                                
+                            </div>                                                        
+                            <br />
                         </div>                        
                     </ContentTemplate>
                 </asp:UpdatePanel>

Bancos/PopIEVentas.aspx.vb

@@ -1110,6 +1110,22 @@ Partial Class Bancos_PopIEVentas
 #Region "G U A R D A R"
     Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
+        If ChkComplementoPago.Checked Then
+            Dim objGral As New ClsGralFolios
+            Dim SalirDeMetodo As Boolean = False
+            If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then
+                If Not objGral.DtResultados.Rows.Count > 0 Then
+                    Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
+                    SalirDeMetodo = True
+                End If
+            End If
+            objGral.Dispose()
+            If SalirDeMetodo Then
+                Exit Sub
+            End If
+        End If
+
+
         Dim FechaFactura As Date = FechaVenta
         Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
 

Bancos/RepComplementoPago.aspx.vb

@@ -97,7 +97,7 @@ Partial Class Bancos_RepComplementoPago
                     Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
                 End If
             End If
-
+            objGral.Dispose()
             'CargaDatos()
 
         End If

Inventarios/RecepcionUsados.aspx.vb

@@ -751,6 +751,8 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub LimpiarMovimiento()
         CveMovimiento = -1
+        CveRemisionRecibida = -1
+        CargoRemisionDesdeURL = False
 
         If ObjFactura IsNot Nothing Then
             ObjFactura.Dispose()
@@ -771,7 +773,7 @@ Partial Class Inventarios_RecepcionUsados
         RblUsadosAjuste.Enabled = True
         RblUsadosAjuste.SelectedValue = "0"
 
-        CveRemisionRecibida = -1
+
         EsDistribuidor = False
         InicializaClientes(True)
         DdlClientes.Enabled = True
@@ -831,6 +833,14 @@ Partial Class Inventarios_RecepcionUsados
 
         'CargaInicial()
 
+
+        If Me.ObjRemisionNC IsNot Nothing Then
+            Me.ObjRemisionNC.Dispose()
+            Me.ObjRemisionNC = Nothing
+        End If
+
+        DtMovimientos.Rows.Clear()
+
         UpGenerales.Update()
         UpRegistroTipoCambio.Update()
         UPDatos.Update()
@@ -1234,12 +1244,14 @@ Partial Class Inventarios_RecepcionUsados
         End If
     End Sub
     Private Sub BtnGenerarRNC_Click(sender As Object, e As EventArgs) Handles BtnGenerarRNC.Click
-        Guardar(True)
+        Guardar(True, RecargarPagina:=True)
     End Sub
 
     Protected Sub Guardar(Optional GenerarRNC As Boolean = False, Optional RecargarPagina As Boolean = False)
         If GvM.Rows.Count > 0 Then
-            Dim Msg As New StringBuilder()
+            Dim MsgError As New StringBuilder()
+            Dim Msg As New StringBuilder
+
             Dim Resp As Modelos.Factura.MMensajeFactura = Nothing
             Dim ObjInventario As New ClsInventarios
             Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL())
@@ -1255,9 +1267,7 @@ Partial Class Inventarios_RecepcionUsados
                 Dim CveSubProyecto As Integer = -1
                 Dim ActivoFijo As Integer = -1
 
-                If CveMovimiento > 0 Then
+                If Not CveMovimiento > 0 Then
-                Else
-
                     Dim Fecha As Date = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate
                     Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
                     Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
@@ -1281,22 +1291,23 @@ Partial Class Inventarios_RecepcionUsados
                         CargaDTDetalleRNC()
 
                         Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL)
-                        'For Each mensaje2 As String In Resp.Mensajes
-                        '    Msg.AppendFormat("<br>{0}", mensaje2)
-                        'Next
-                        If Resp.TieneError Then ErrorMovInv = True
-                        'Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
-                        CveVenta = Resp.CveVenta
 
-                        If Resp.CveMovimientoUsado <= 0 Then
+                        If Resp.TieneError Then ErrorMovInv = True
-                            Msg.Append("Error al guardar los movimientos de usados")
+
+                        If Resp.CveVenta > 0 Then
+                            CveVenta = Resp.CveVenta
+                        Else
+                            MsgError.Append("Error al generar la remisión de nota de crédito")
                             ErrorMovInv = True
                         End If
 
+                        If Resp.CveMovimientoUsado <= 0 Then
+                            MsgError.Append("Error al guardar los movimientos de usados")
+                            ErrorMovInv = True
+                        End If
 
                     End If
 
-                    Dim Mensaje As String = ""
                     Dim FolioInv As String = ""
 
                     If GenerarRNC Then
@@ -1314,7 +1325,7 @@ Partial Class Inventarios_RecepcionUsados
                                                                 Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
                                                                 PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G")
                         If CveMovimiento <= 0 Then
-                            Mensaje = "Error al guardar los movimientos"
+                            MsgError.Append("Error al guardar los movimientos")
                             ErrorMovInv = True
                         Else
                             FolioInv = ObjInventario.Folio.ToString()
@@ -1322,14 +1333,14 @@ Partial Class Inventarios_RecepcionUsados
                             For Each Dr As DataRow In DtMovimientos.Rows
 
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                    Mensaje = "Error al guardar los movimientos"
+                                    MsgError.Append("Error al guardar los movimientos")
                                     ErrorMovInv = True
                                     Exit For
                                 End If
 
                                 If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then
-                                    Mensaje = "Error al actualizar el recibo de los usados"
                                     ErrorMovInv = True
+                                    MsgError.Append("Error al actualizar el recibo de los usados")
                                     Exit For
                                 End If
 
@@ -1346,7 +1357,7 @@ Partial Class Inventarios_RecepcionUsados
 
                                         If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, Puntos, Cargo, Bonificacion, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
                                             UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, NowADS(), CveMovimiento:=CveMovimiento) Then
-                                            Mensaje = "Error al guardar Movimientos de distribuidor"
+                                            MsgError.Append("Error al guardar Movimientos de distribuidor")
                                             ErrorMovInv = True
                                             Exit For
                                         End If
@@ -1354,24 +1365,10 @@ Partial Class Inventarios_RecepcionUsados
                                 End If
                             Next
 
-                            'ACTUALIZA LA POLIZA VIRTUAL DEL LA REMISION
+                            If Not ErrorMovInv AndAlso ObjFactura.CveCliente <> CveCliente Then
-                            'If Not ErrorMovInv AndAlso ObjFactura.TipoDocto = "Rem" Then
+                                ErrorMovInv = True
-                            '    If ObjAcum.GetPolizasVirtuales(ObjFactura.CveVenta) Then
+                                MsgError.Append("Error al asignar el cliente")
-                            '        Dim DtPoliza As DataTable = ObjAcum.DtResultados.Copy()
+                            End If
-                            '        For Each RowPoliza As DataRow In DtPoliza.Rows
-                            '            If Not ObjAcum.UpdatePolizaVirtual(RowPoliza("CvePolizaVirtual").ToString().ToEntero, DdlMarcaRem.SelectedValue.ToEntero(), TxtFechaVigencia.Text.ToDateTime()) Then
-                            '                Mensaje = "Error al guardar la póliza virtual"
-                            '                ErrorMovInv = True
-                            '                Exit For
-                            '            End If
-                            '        Next
-
-                            '        DtPoliza.Dispose()
-                            '    Else
-                            '        Mensaje = "Error al obtener la póliza virtual"
-                            '        ErrorMovInv = True
-                            '    End If
-                            'End If
 
                             ''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
                             If Not ErrorMovInv Then
@@ -1384,14 +1381,12 @@ Partial Class Inventarios_RecepcionUsados
 
 
                     If Not ErrorMovInv Then
+
                         If Resp IsNot Nothing Then
                             For Each mensaje2 As String In Resp.Mensajes
                                 Msg.AppendFormat("<br>{0}", mensaje2)
                             Next
                         End If
-                    End If
-
-                    If Not ErrorMovInv Then
 
                         Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}' target='_blank'>{0}</a></b>", FolioInv, CveMovimiento)
                         Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
@@ -1399,27 +1394,17 @@ Partial Class Inventarios_RecepcionUsados
                         If IDPoliza > 0 Then Msg = Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza)
 
                         ObjInventario.Commit() ' aplica los movimientos insertados
-
-                        'Limpia Valores cuando inserta de campos especiales
-                        If UsuarioActual.CveEmpresa = 66 Then
-                            DdlSubProyecto.SelectedValueExist("-1")
-                        End If
-
-                        '  EnvioCorreo()
-
-                        CargaPendientesRecibir()
-                        UPDatos.Update()
-
                     Else
                         ObjInventario.RollBack() 'deshace lo insertado
                         CveMovimiento = 0
-                        Alert("ocurrió un Error al registrar los movimientos", TipoMensaje.MsgError)
+                        MsgError.Append("Ocurrió un error al registrar.")
+                        Alert(MsgError.ToString(), TipoMensaje.MsgError)
                     End If
                 End If
             Catch ex As Exception
                 ObjInventario.RollBack() 'deshace lo insertado
                 CveMovimiento = 0
-                Alert("Ocurrió un Error inesperado en el registro" & ex.Message, TipoMensaje.MsgError)
+                Alert("Ocurrió un error inesperado en el registro" & ex.Message, TipoMensaje.MsgError)
                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
             End Try
 
@@ -1435,15 +1420,19 @@ Partial Class Inventarios_RecepcionUsados
                 End If
 
                 Alert(Msg.ToString, TipoMensaje.MsgInformacion, JSBtnAceptar:=Liga, ShowCloseButton:=False)
-            End If
 
+                If CveRemisionRecibida > 0 Then
+                    CargaRemisionesPendientes()
+                    UPDatos.Update()
+                End If
+            End If
         Else
             Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
         End If
 
         LimpiarMovimiento()
-        CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
+        CargaGVM(DtMovimientos)
 
     End Sub
 
@@ -1655,7 +1644,7 @@ Partial Class Inventarios_RecepcionUsados
 #End Region
 
 #Region "  GVM  "
-    Private Sub CargaGVM(DtTemp As DataTable)
+    Private Sub CargaGVM(ByRef DtTemp As DataTable)
         GvM.DataSource = DtTemp
         GvM.DataBind()
 
@@ -2243,10 +2232,10 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 
     Protected Sub BtnConsultarPendientes_Click(sender As Object, e As EventArgs)
-        CargaPendientesRecibir()
+        CargaRemisionesPendientes()
     End Sub
 
-    Private Sub CargaPendientesRecibir()
+    Private Sub CargaRemisionesPendientes()
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa, ServicioDomicilio:=ChkServicioDomicilio.Checked) Then
             GVPendientes.DataSource = ObjVentas.DtResultados
@@ -2365,8 +2354,7 @@ Partial Class Inventarios_RecepcionUsados
             End If
 
             If DtUsados IsNot Nothing Then
-
+                AgregarUsado = True
-                'DivRecepcionApartado.Visible = True
 
                 For Each RowUsado As DataRow In DtUsados.Rows
                     Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
@@ -2382,8 +2370,9 @@ Partial Class Inventarios_RecepcionUsados
                     Dim CveVentaDetalle As Integer = RowUsado("CveVentaDetalle").ToString().ToEntero()
 
                     AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle)
-
                 Next
+
+                AgregarUsado = False
             End If
         Else
             Alert("No se pudo recibir la remisión", TipoMensaje.MsgAdvertencia)

Nomina/RepFiniquito.aspx

@@ -91,7 +91,12 @@
                             <asp:HyperLink ID="HplNombreCompleto" runat="server" Text='<%# Eval("NombreCompleto") %>' NavigateUrl='<%# Eval("CvePersonal", "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Fecha Fin">
+                    <asp:TemplateField HeaderText="Fecha Alta">
+                        <ItemTemplate>
+                            <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaInicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha Baja">
                         <ItemTemplate>
                             <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin","{0:dd/MM/yyyy}")%>'> </asp:Label>
                         </ItemTemplate>

OS/OrdenesServicios.aspx.vb

@@ -3039,6 +3039,9 @@ Partial Class OS_OrdenesServicios
             Case 5
                 Opcion = 3
                 Exit Select
+            Case 6
+                Opcion = 4
+                Exit Select
             Case Else
                 Opcion = 1
                 Exit Select

Transportes/RepContratosCalendario.aspx

@@ -94,69 +94,62 @@
                                 <%-- Filtro Visible - Consulta --%>
                                 <div class="portlet-title portlet-filterT smalltitle">
                                     <div class="tools">
-                                        <asp:Button ID="Button1" runat="server" Text="Consultar" class="btn btn-primary" />
+                                        <asp:Button ID="BtnConsultarListado" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultarListado_Click" />
                                         <a href="javascript:;" class="expand"></a>
                                     </div>
                                     <div class="titlefiltros  caption">
-                                        <div class="row" style="height: 32px;">
+                                            <div class="row">
-                                            <%-- Fecha Inicial --%>
+                    
-                                            <label class="col-md-1 truncate">Fecha Inicial</label>
+                                                 <div class="col-md-1 truncate">
+                                                        Fecha Inicio:                           
+                                                    </div>
                                                     <div class="col-md-1" style="min-width: 115px">
-                                                <div class="input-group input-sm input-small date date-picker "
+                                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                                    data-date-format="dd/mm/yyyy"
+                                                            <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                                    style="width: 100px !important; padding: 0px;">
-                                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control"
-                                                        MaxLength="10"></asp:TextBox>
                                                             <span class="input-group-btn ">
-                                                        <asp:LinkButton ID="imgCalendario" class="btn default "
+                                                                <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                            Text="<i class='fa fa-calendar'></i>"
-                                                            runat="server"></asp:LinkButton>
                                                             </span>
                                                         </div>
-                                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI"
+                                                        <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                    Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left">
+                                                        <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                </ajax:MaskedEditExtender>
+                                                        <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI"
+                                                        <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                                    PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                        <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                        <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    </div>
+                                                    <div class="col-md-1 truncate">
+                                                        Fecha Fin: 
+                           
                                                     </div>
-                                            <%-- Fecha Final --%>
-                                            <label class="col-md-1 truncate">Fecha Fin</label>
                                                     <div class="col-md-1" style="min-width: 115px">
-                                                <div class="input-group input-sm input-small date date-picker "
+                                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                                    data-date-format="dd/mm/yyyy"
+                                                            <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                                    style="width: 100px !important; padding: 0px;">
-                                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control"
-                                                        MaxLength="10"></asp:TextBox>
                                                             <span class="input-group-btn ">
-                                                        <asp:LinkButton ID="imgCalendarioF" class="btn default "
+                                                                <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                            Text="<i class='fa fa-calendar'></i>"
-                                                            runat="server"></asp:LinkButton>
                                                             </span>
                                                         </div>
-                                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF"
+                                                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                    Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left">
+                                                        <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                </ajax:MaskedEditExtender>
+                                                        <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF"
+                                                        <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                                    PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                        <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                        <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     </div>
-                                            <%-- Cliente --%>
+
-                                            <label class="col-md-1">Cliente</label>
+                                                 <label class="col-md-1 ">Cliente:</label>
                                                      <div class="col-md-2">
-                                                <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="86%"
+                                                        <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesFiltro" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                                                    data-metodo="getcliente"
-                                                    runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"
-                                                    CssStyle="width: 86%;"
-                                                    UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
                                                      </div>                              
-                                            <%-- Estatus --%>
                                                     <label  class="col-md-1 ">Estatus:</label>
                                                     <div class="col-md-2">
-                                                <asp:DropDownList ID="DdlEstatus" data-text="Todos" AppendDataBoundItems="true"
+                                                        <asp:DropDownList ID="DdlEstatusConsulta" runat="server" Class="table-group-action-input form-control input-inline select2me"
-                                                    DataTextField="ContratoEstatus" DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me Widthall"
+                                                            DataTextField="ContratoEstatus" DataValueField="CveContratoEstatus"
-                                                    Style="width: 100%;" runat="server">
+                                                            AppendDataBoundItems="true" Width="200px">
                                                         </asp:DropDownList>
                                                     </div>
+                                                 
                                             </div>
+
                                     </div>
                                 </div>
                                 <%-- Filtro Oculto --%>
@@ -256,16 +249,14 @@
 
                                     <asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="bold">
                                         <ItemTemplate>
-                                            <asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus1") %>'>
+                                            <asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'>
                                             </asp:Label>
                                         </ItemTemplate>
                                     </asp:TemplateField>
 
                                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
                                         <ItemTemplate>
-                                            <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" CssClass="miGrid"
+                                            <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" OnClick="UpdateModal" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
-                                                OnClick="UpdateModal" Text="Actualizar Contrato" />
-
                                         </ItemTemplate>
                                     </asp:TemplateField>
                                 </Columns>
@@ -362,8 +353,8 @@
                                 <label class="col-md-4">Tipo Unidad</label>
                                 <div class="col-md-8">
                                     <asp:DropDownList ID="DdlTipoAF" DataValueField="CveTipoActivoFijo"
-                                        DataTextField="TipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
+                                        DataTextField="TipoActivoFijo" Class="form-control input-inline"
-                                        Width="100%" Height="35px" runat="server" Enabled="false">
+                                        Width="100%" runat="server" Enabled="false">
                                     </asp:DropDownList>
 
                                 </div>
@@ -376,12 +367,6 @@
                                         DataTextField="Descripcion" Class="table-group-action-input form-control input-inline select2me"
                                         Width="100%" runat="server">
                                     </asp:DropDownList>                                    
-                                    <asp:RequiredFieldValidator ID="RFVAF" runat="server" ControlToValidate="DdlAF"
-                                        Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario, por favor ingréselo."
-                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco"
-                                        TargetControlID="RFVAF" Width="400px">
-                                    </ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
 
@@ -392,15 +377,8 @@
                                         DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me"
                                         Width="100%" runat="server">
                                     </asp:DropDownList>                                   
-                                    <asp:RequiredFieldValidator ID="RFVChofer" runat="server" ControlToValidate="DdlChofer"
-                                        Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor ingréselo."
-                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCEChofer" runat="server" HighlightCssClass="vco"
-                                        TargetControlID="RFVChofer" Width="400px">
-                                    </ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
-
                             <div class="row my-1">
                                 <label class="col-md-4">Chofer 2</label>
                                 <div class="col-md-8">
@@ -408,12 +386,6 @@
                                         DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me"
                                         Width="100%" runat="server">
                                     </asp:DropDownList>                                   
-                                    <asp:RequiredFieldValidator ID="RFVChofer2" runat="server" ControlToValidate="DdlChofer2"
-                                        Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer 2''</b> es necesario, por favor ingréselo."
-                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCEChofer2" runat="server" HighlightCssClass="vco"
-                                        TargetControlID="RFVChofer2" Width="400px">
-                                    </ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
 

Transportes/RepContratosCalendario.aspx.vb

@@ -28,41 +28,31 @@ Partial Class RepContratosCalendario
     End Property
 #End Region
 
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T")
+        txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
-        txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T")
+        txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
 
         If Not IsPostBack Then
             InicializaCombos()
             InicializaCalendar()
             CargaDatos()
-
         End If
         InicializaCalendar()
 
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
-        GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black
+        ' GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black
+        Dim CveCliente As Integer = DdlClientesFiltro.SelectedValue.ToEntero
+        If CveCliente = 0 Then CveCliente = -1
 
-        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=34) Then
+        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientesFiltro.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
             GvContratos.DataSource = ObjContratos.DtResultados
             GvContratos.DataBind()
         End If
 
         DtAvance = ObjContratos.DtResultados
 
-        If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
-            DdlEstatus.DataSource = ObjContratos.DtResultados
-            DdlEstatus.DataBind()
-            DdlEstatus.Items.Insert(0, New ListItem("-", ""))
-
-            DdlEstatusContrato.DataSource = ObjContratos.DtResultados
-            DdlEstatusContrato.DataBind()
-            DdlEstatusContrato.Items.Insert(0, New ListItem("-", ""))
-
-        End If
-
         ObjContratos.Dispose()
     End Sub
     Private Sub InicializaCalendar()
@@ -92,9 +82,26 @@ Partial Class RepContratosCalendario
         DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlChofer2.DataBind()
         DdlChofer2.Items.Insert(0, New ListItem("-", ""))
-        DdlChoferConsulta.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+
-        DdlChoferConsulta.DataBind()
+        DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
-        DdlChoferConsulta.Items.Insert(0, New ListItem("-", ""))
+        DdlChoferFiltro.DataBind()
+        DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
+        DdlTipoUnidad.DataBind()
+        DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlEstatusConsulta.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
+        DdlEstatusConsulta.DataBind()
+        DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlEstatusContrato.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
+        DdlEstatusContrato.DataBind()
+        DdlEstatusContrato.Items.Insert(0, New ListItem("-", ""))
+
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
 
     End Sub
 
@@ -133,21 +140,20 @@ Partial Class RepContratosCalendario
         TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato")
         TxtObservaciones.Text = GvRow.DataKey("Observaciones")
         TxtUbicacion.Text = GvRow.DataKey("Ubicacion")
-        TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm:ss tt")
+        TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm tt")
-        TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm:ss tt")
+        TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt")
         'Requeridos
         ViewState("Contrato") = GvRow.DataKey("CveContrato")
         DdlAF.SelectedValue = GvRow.DataKey("CveAF")
-        DdlChofer.SelectedValue = GvRow.DataKey("CveChofer")
+        DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer"))
-        DdlChofer2.SelectedValue = GvRow.DataKey("CveChofer2")
+        DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2"))
         DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus")
 
         UpModal.Update()
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub
-    Protected Sub Consultar(sender As Object, e As EventArgs)
 
-    End Sub
+
     Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
         GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
     End Sub
@@ -172,4 +178,5 @@ Partial Class RepContratosCalendario
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
     End Sub
+
 End Class

Ventas/ClientesAbonar.aspx.vb

@@ -615,6 +615,22 @@ Partial Class Ventas_ClientesAbonar
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+        If ChkComplementoPago.Checked Then
+            Dim objGral As New ClsGralFolios
+            Dim SalirDeMetodo As Boolean = False
+            If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then
+                If Not objGral.DtResultados.Rows.Count > 0 Then
+                    Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
+                    SalirDeMetodo = True
+                End If
+            End If
+            objGral.Dispose()
+            If SalirDeMetodo Then
+                Exit Sub
+            End If
+        End If
+
+
         'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim files As Extensiones.Files = Anexo.getfiles()

Ventas/ProductosServicios.aspx.vb

@@ -3503,6 +3503,7 @@ Partial Class ProductosyServicios
             DVNomQuimico.Visible = True
             DVNumCAS.Visible = True
         ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 5 Then '  5 - Plaguicidas y fertilizantes
+            DVNombreIngredienteActivo.Visible = True
             DVNumRegistroPlagCOFEPRIS.Visible = True
             DVDatosFabricante.Visible = True
             DVDatosFormulador.Visible = True
@@ -3534,10 +3535,10 @@ Partial Class ProductosyServicios
         CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim()
         CamposStringCCP = CamposStringCCP + TxtUsoAutorizado.Text.Trim()
 
-        If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then
+        'If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then
-            Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia)
+        '    Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia)
-            Respuesta = False
+        '    Respuesta = False
-        Else
+        'Else
 
         'If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 And DdlEmbalaje.SelectedValue.ToEntero > 0 And DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 And CamposStringCCP.Length > 0 Then
         Dim ObjPS As New ClsProductosServicios(transaccionSQL)
@@ -3548,7 +3549,7 @@ Partial Class ProductosyServicios
                 Respuesta = False
             End If
         ' End If 
-        End If
+        'End If
 
         Return Respuesta
 

Ventas/Ventas.aspx

@@ -7029,7 +7029,6 @@
                             <div class="col-md-4">
                                 <asp:DropDownList ID="DdlNCNivelImporte" OnSelectedIndexChanged="DdlNCNivelImporte_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" CssClass="select2me">
                                     <asp:ListItem Selected="True" Text="Nivel Total" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Nivel SubTotal" Value="2"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                             <div class="col-md-2">