EMD - OC Autorizadas, registrar prepóliza 154 Cargo, 152 Abono

Contratos/RepPresupuestos.aspx

@@ -330,6 +330,7 @@
                     <tr>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;">Agrupador</td>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 15%; border-right: 3px solid white;">Autorizado</td>
+                        <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 15%; border-right: 3px solid white;">Comprometido</td>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 25%; border-right: 3px solid white;">Ejercido</td>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 25%; border-right: 3px solid white;">Por Ejercer</td>
                         <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 15%; border-right: 3px solid white;">Pagado</td>
@@ -342,6 +343,7 @@
                                 <%--<asp:HyperLinkField HeaderText="Descripcion" DataTextField="Agrupador" ItemStyle-Width="20%"--%>
                                 <asp:BoundField HeaderText="Descripcion" DataField="Agrupador" ItemStyle-Width="20%" />
                                 <asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="Comprometido" DataField="Comprometido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
                                 <asp:BoundField HeaderText="Importe" DataField="Ejercido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
                                 <asp:BoundField HeaderText="%" DataField="EjercidoPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Importe" DataField="PorEjercer" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
@@ -377,8 +379,10 @@
                          <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; min-width: 370px; border-right: 3px solid white;">Total</td>
                     </tr>
                 </table>
+
                 <asp:GridView ID="GvDatosMensual" OnRowDataBound="GvDatosMensual_RowDataBound" runat="server" AutoGenerateColumns="False" Style="min-width: 2000px; overflow-y: hidden" Width="4740px" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover" GridLines="None" data-sort="true">
                     <Columns>
+                        
                         <asp:BoundField HeaderText="Descripcion" DataField="Agrupador" ItemStyle-Width="200px" />                        
                         <asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="120px" />
 
@@ -459,15 +463,19 @@
                         <%-- <asp:BoundField HeaderText="Por Ejercer" DataField="NoviembrePorEjercer" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="130px" />
                         <asp:BoundField HeaderText="%" DataField="NoviembrePorEjercerPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="60px" />--%>
 
-                         <asp:BoundField HeaderText="Autorizado" DataField="DiciembreAutorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" />
+                        <asp:BoundField HeaderText="Autorizado" DataField="DiciembreAutorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" />                        
                         <asp:BoundField HeaderText="Ejercido" DataField="DiciembreEjercido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" />
                         <asp:BoundField HeaderText="%" DataField="DiciembreEjercidoPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="40px" />
                         <asp:BoundField HeaderText="Pagado" DataField="DiciembrePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" />
                         <%--<asp:BoundField HeaderText="Por Ejercer" DataField="DiciembrePorEjercer" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="130px" />
                         <asp:BoundField HeaderText="%" DataField="DiciembrePorEjercerPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="60px" />--%>
+                        
                         <asp:BoundField HeaderText="Ejercido" DataField="TotalEjercido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="150px" />                        
                         <asp:BoundField HeaderText="%" DataField="TotalEjercidoPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="40px" />
                         <asp:BoundField HeaderText="Pagado" DataField="TotalPagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="150px" />
+
+
+                        
                     </Columns>
                 </asp:GridView>
             </div>

OC/OC.aspx.vb

@@ -6,6 +6,7 @@ Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
 Imports GemBox.Spreadsheet
+Imports Microsoft.Owin.Security.Provider
 Imports Newtonsoft.Json
 
 Partial Class OC_OC
@@ -2852,6 +2853,14 @@ Partial Class OC_OC
             End If
 
 
+            If Not TieneError AndAlso TipoOC = "OC" Then
+
+                If Not GeneraPrePolizaPresupuesto(CveOrdenCompra, OC.IniciaTransacSQL) Then
+                    TieneError = True
+                End If
+
+            End If
+
             If Not TieneError Then
                 If Conta IsNot Nothing Then Conta.Commit()
                 OC.Commit()
@@ -3304,6 +3313,7 @@ Partial Class OC_OC
 
         'TERMINA TODO POR SI OCURRIÓ ALGO RARO
         If TieneError Then
+
             If OC IsNot Nothing Then OC.RollBack()
             If UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto Then
                 If Conta IsNot Nothing Then Conta.RollBack()
@@ -3505,6 +3515,16 @@ Partial Class OC_OC
 
             End If
 
+
+            If Not HuboError AndAlso UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+
+                If Not GeneraPrePolizaPresupuesto(objOrdenCompra.CveOrdenCompra, objOrdenCompra.IniciaTransacSQL) Then
+                    HuboError = True
+                End If
+
+            End If
+
+
         Catch ex As Exception
             HuboError = True
         End Try
@@ -9027,22 +9047,6 @@ Partial Class OC_OC
 
                 If resultadosFiltrados.Count > 0 Then
 
-                    Dim EnumAgrupado = (From row In DtDetalle.AsEnumerable()
-                                        Group row By
-                                        SubProyecto = row.Field(Of String)("SubProyecto"),
-                                        CveSubProyecto = row.Field(Of Integer)("CveSubProyecto"),
-                                        Clasificacion = row.Field(Of String)("Clasificacion"),
-                                        CveClasificacion = row.Field(Of Integer)("CveClasificacion")
-                                    Into Group
-                                        Select New With {
-                                        .SubProyecto = SubProyecto,
-                                        .CveSubProyecto = CveSubProyecto,
-                                        .Clasificacion = Clasificacion,
-                                        .CveClasificacion = CveClasificacion,
-                                        .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))))
-                                    }).ToList()
-
-
                     If Opcion = 1 Then
 
 
@@ -9075,6 +9079,22 @@ Partial Class OC_OC
                         End If
 
                     Else
+
+                        Dim EnumAgrupado = (From row In DtDetalle.AsEnumerable()
+                                            Group row By
+                                        SubProyecto = row.Field(Of String)("SubProyecto"),
+                                        CveSubProyecto = row.Field(Of Integer)("CveSubProyecto"),
+                                        Clasificacion = row.Field(Of String)("Clasificacion"),
+                                        CveClasificacion = row.Field(Of Integer)("CveClasificacion")
+                                    Into Group
+                                            Select New With {
+                                        .SubProyecto = SubProyecto,
+                                        .CveSubProyecto = CveSubProyecto,
+                                        .Clasificacion = Clasificacion,
+                                        .CveClasificacion = CveClasificacion,
+                                        .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))))
+                                    }).ToList()
+
                         For Each item In EnumAgrupado
 
                             Dim tieneRegistrosConCveSubProyecto As Boolean = resultadosFiltrados.Any(Function(row) CType(row("CveSubProyecto"), Integer) = item.CveSubProyecto)
@@ -9105,6 +9125,7 @@ Partial Class OC_OC
                                 respuesta = True
                             End If
                         Next
+
                     End If
 
                 Else
@@ -9130,6 +9151,70 @@ Partial Class OC_OC
     End Function
 
 
+    Private Function GeneraPrePolizaPresupuesto(CveOrdenCompraPrePoliza As Integer, Optional ByRef transaccion As SqlTransaction = Nothing) As Boolean
+
+        Dim Respuesta As Boolean = True
+
+        If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+
+            Dim ObjConta As New ClsContabilidad()
+
+            If transaccion Is Nothing Then
+                ObjConta = New ClsContabilidad(Nothing)
+            Else
+                ObjConta = New ClsContabilidad(transaccion)
+            End If
+
+
+            Dim CvePrePolizaPreSuPuesto = ObjConta.AddPrePolizas("OC/OC-(Presupuesto)", 53, LblTotal.Text.ToDecimal, LblTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+            If CvePrePolizaPreSuPuesto > 0 Then
+
+                Dim EnumAgrupado = (From row In DtDetalle.AsEnumerable()
+                                    Group row By
+                                SubProyecto = row.Field(Of String)("SubProyecto"),
+                                CveSubProyecto = row.Field(Of Integer)("CveSubProyecto"),
+                                Clasificacion = row.Field(Of String)("Clasificacion"),
+                                CveClasificacion = row.Field(Of Integer)("CveClasificacion")
+                            Into Group
+                                    Select New With {
+                                .SubProyecto = SubProyecto,
+                                .CveSubProyecto = CveSubProyecto,
+                                .Clasificacion = Clasificacion,
+                                .CveClasificacion = CveClasificacion,
+                                .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))) + If(IsDBNull(r("IVA")), 0D, Convert.ToDecimal(r("IVA"))) + If(IsDBNull(r("IEPSPSIVA")), 0D, Convert.ToDecimal(r("IEPSPSIVA"))) - If(IsDBNull(r("RetIVA")), 0D, Convert.ToDecimal(r("RetIVA"))) - If(IsDBNull(r("RetISR")), 0D, Convert.ToDecimal(r("RetISR"))))
+                            }).ToList()
+
+                For Each item In EnumAgrupado
+
+                    Dim SerieFolio = $"OC: {Folio}, Clasificación: {item.Clasificacion}"
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaPreSuPuesto, False, item.TotalSum, item.TotalSum, 154, SerieFolio, SerieFolio, CveProveedor:=DdlProveedores.SelectedValue.ToEntero, CveOC:=CveOrdenCompraPrePoliza, CveClasificacion:=item.CveClasificacion, CveSubProyecto:=item.CveSubProyecto, Contabilizable:=True) Then
+                        Respuesta = False
+                        Exit For
+                    End If
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaPreSuPuesto, True, item.TotalSum, item.TotalSum, 152, SerieFolio, SerieFolio, CveProveedor:=DdlProveedores.SelectedValue.ToEntero, CveOC:=CveOrdenCompraPrePoliza, CveClasificacion:=item.CveClasificacion, CveSubProyecto:=item.CveSubProyecto, Contabilizable:=True) Then
+                        Respuesta = False
+                        Exit For
+                    End If
+
+                Next
+            Else
+                Respuesta = False
+            End If
+
+
+
+        End If
+
+        Return Respuesta
+
+    End Function
+
+
+
+
 #End Region
 
 

Transportes/RepContratos.aspx

@@ -41,15 +41,16 @@
                 <%-- Filtro Visible - Consulta --%>
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button OnClick="Consultar" runat="server" Text="Consultar" class="btn
+                        <asp:Button OnClick="Consultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                btn-primary" />
                         <a href="javascript:;" class="expand"></a>
                     </div>
-                    <div class="titlefiltros  caption">
+                    <div class="titlefiltros  caption row">
-                        <div class="row" style="height: 32px;">
+
+                        <%--<div class="row" style="height: 32px;">--%>
+
                             <%-- Fecha Inicial --%>
                             <label class="col-md-1 truncate">Fecha Inicial</label>
-                            <div class="col-md-1" style="min-width: 115px">
+                            <div class="col-md-1" >
                                 <div class="input-group input-sm input-small date date-picker "
                                     data-date-format="dd/mm/yyyy"
                                     style="width: 100px !important; padding: 0px;">
@@ -69,7 +70,7 @@
                             </div>
                             <%-- Fecha Final --%>
                             <label class="col-md-1 truncate">Fecha Fin</label>
-                            <div class="col-md-1" style="min-width: 115px">
+                            <div class="col-md-1" >
                                 <div class="input-group input-sm input-small date date-picker "
                                     data-date-format="dd/mm/yyyy"
                                     style="width: 100px !important; padding: 0px;">
@@ -100,43 +101,44 @@
                             <label class="col-md-1 ">Estatus:</label>
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlEstatus" data-text="Todos" AppendDataBoundItems="true"
-                                    DataTextField="ContratoEstatus" DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me
+                                    DataTextField="ContratoEstatus" DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me"
-                Widthall"
                                     Style="width: 100%;" runat="server">
                                 </asp:DropDownList>
                             </div>
                         </div>
-                    </div>
+                    <%--</div>--%>
                 </div>
                 <%-- Filtro Oculto --%>
-                <div class="portlet-body row" style="display: none">
+                <div class="portlet-body" style="display: none">
-                    <%-- Centro de Costos --%>
+
-                    <label class="col-md-1 truncate ">Centro de Costos</label>
+                    <div class="row">
-                    <div class="col-md-2">
+                        <%-- Centro de Costos --%>
-                        <asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
+                        <label class="col-md-1 truncate ">Centro de Costos</label>
-                            DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me
+                        <div class="col-md-2">
-            Widthall"
+                            <asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
-                            Style="width: 100%;" runat="server">
+                                DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me"
-                        </asp:DropDownList>
+                                Style="width: 100%;" runat="server">
-                    </div>
+                            </asp:DropDownList>
-                    <%-- Tipo de Unidad --%>
+                        </div>
-                    <label class="col-md-1 ">Tipo de Unidad</label>
+                        <%-- Tipo de Unidad --%>
-                    <div class="col-md-2">
+                        <label class="col-md-1 ">Tipo de Unidad</label>
-                        <asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
+                        <div class="col-md-2">
-                            DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me
+                            <asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
-            Widthall"
+                                DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me"
-                            Style="width: 100%;" runat="server">
+                                Style="width: 100%;" runat="server">
-                        </asp:DropDownList>
+                            </asp:DropDownList>
-                    </div>
+                        </div>
-                    <%-- Chofer --%>
+                        <%-- Chofer --%>
-                    <label class="col-md-1 ">Chofer:</label>
+                        <label class="col-md-1 ">Chofer:</label>
-                    <div class="col-md-2">
+                        <div class="col-md-2">
-                        <asp:DropDownList ID="DdlChofer" data-text="Todos" AppendDataBoundItems="true"
+                            <asp:DropDownList ID="DdlChofer" data-text="Todos" AppendDataBoundItems="true"
-                            DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me
+                                DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me"
-            Widthall"
+                                Style="width: 100%;" runat="server">
-                            Style="width: 100%;" runat="server">
+                            </asp:DropDownList>
-                        </asp:DropDownList>
+                        </div>
                     </div>
+                   
+
                 </div>
             </div>
         </ContentTemplate>

Transportes/RepContratosCalendario.aspx

@@ -179,8 +179,14 @@
                                             </div>
                                         </div>
                                         <div class="portlet-body">
-                                            <div id="calendar">
+
-                                            </div>
+                                            <asp:UpdatePanel runat="server" ID="UpCalendario" UpdateMode="Conditional">
+                                                <ContentTemplate>
+                                                    <div id="calendar">
+                                                    </div>
+                                                </ContentTemplate>
+                                            </asp:UpdatePanel>
+                                            
                                         </div>
                                     </div>
                                 </div>
@@ -485,7 +491,7 @@
 
     <div style="display: none">
 
-        <asp:UpdatePanel ID="UpCommando" runat="server">
+        <asp:UpdatePanel ID="UpCommando" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
                 <asp:Button runat="server" ID="BtnModal" OnClick="MostrarModal"></asp:Button>
                 <asp:HiddenField runat="server" ID="CveContrato" Value="-1" ClientIDMode="Static" />
@@ -691,14 +697,14 @@
         }
 
         function updateEvent(event, element) {
+
             $('#<%=TxtCantidadPasajeros.ClientID%>').val(event.CantidadPasajeros);
             $('#<%=TxtFolio.ClientID%>').val(event.NumeroContrato);
             $('#<%=TxtObservaciones.ClientID%>').val(event.title);
             $('#<%=TxtDescripcion.ClientID%>').val(event.title);
             $('#<%=TxtUbicacion.ClientID%>').val(event.NombreAcercamiento);
 
-            <%--$('#<%=TxtFechaSalida.ClientID%>').val(event.start._i);
+            
-            $('#<%=TxtFechaRegreso.ClientID%>').val(event.end._i);--%>
 
             $('#<%=TxtFechaSalida.ClientID%>').val(formatearFechaISO(event.start._i));
             $('#<%=TxtFechaRegreso.ClientID%>').val(formatearFechaISO(event.FechaFinal));
@@ -722,7 +728,8 @@
 
             $('#HidModCveCliente').val(event.CveCliente);
 
-            $('#<%=BtnModal.ClientID%>').click();
+           $('#<%=BtnModal.ClientID%>').click();
+
         }
 
 
@@ -793,6 +800,7 @@
         }
 
         function Calendario() {
+            
             var date = new Date();
             var d = date.getDate();
             var m = date.getMonth();

Transportes/RepContratosCalendario.aspx.vb

@@ -38,7 +38,7 @@ Partial Class RepContratosCalendario
             InicializaCalendar()
             CargaDatos()
         End If
-        InicializaCalendar()
+        'InicializaCalendar()
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
@@ -193,7 +193,8 @@ Partial Class RepContratosCalendario
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
 
-        If Contrato.ToEntero <= 0 Then Contrato = CveContrato.Value
+        Contrato = CveContrato.Value
+
         If ObjContratos.UpdateContratos(Contrato.ToEntero, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero) Then
             ObjContratos.Commit()
             Alert("Actualizado Correctamente.")