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

.gitignore

@@ -279,3 +279,4 @@ __pycache__/
 vwd.webinfo
 /Bin.rar
 /Ashx/sigfox.ashx
+/BinOLD

AF/AF.aspx

@@ -2165,8 +2165,8 @@
                                 <i class="fa fa-commenting font-green"></i>
                                 <span class="caption-subject bold">Agregar</span>
                             </div>--%>
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="false" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="cursor: pointer;font-weight: 700 !important;" ToolTip="Agendar"></asp:HyperLink>
 
                         </div>
                     </div>

Acumuladores/RepIndicadorDiario.aspx

@@ -175,8 +175,7 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" data-sort="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip=""
-                DataKeyNames="Tipo,Seccion,TipoCategoria,Ordernador2"
+                DataKeyNames="Tipo,Seccion,TipoCategoria,Ordernador2">
-                >
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="60">
                         <HeaderTemplate>
@@ -191,7 +190,7 @@
                             Acumulado
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado") %>'></asp:Literal>
+                            <asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado", "{0:N0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="20" ItemStyle-HorizontalAlign="Right">
@@ -207,7 +206,7 @@
                             Venta Diaria
                         </HeaderTemplate>
                         <ItemTemplate>
-                             <asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia") %>'></asp:Literal>
+                             <asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia", "{0:N0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">
@@ -215,7 +214,7 @@
                             Importe Al Día
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlImporteAldia" runat="server" Text='<%# Eval("ImporteAlDia", "{0:N2}") %>'></asp:Literal>
+                            <asp:HyperLink ID="HplImporteAldia" NavigateUrl="#" runat="server" Text='<%# Eval("ImporteAlDia", "{0:N2}") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>                    
 
@@ -224,7 +223,7 @@
                             Cantidad Total
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlCantidadTotal" runat="server" Text='<%# Eval("CantidadTotal")%>'></asp:Literal>
+                            <asp:Literal ID="LtlCantidadTotal" runat="server" Text='<%# Eval("CantidadTotal", "{0:N0}")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
 

Acumuladores/RepIndicadorDiario.aspx.vb

@@ -153,6 +153,10 @@ Partial Class ACumuladores_RepIndicadorDiario
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            If e.Row.DBCampo("Partida").Contiene("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16") Then
+                e.Row.FCHyperLink("HplImporteAldia").NavigateUrl = String.Format("RepIndicadorDiarioDetalle.aspx?Partida={0}&FI={1}&FF={2}&CveSubProyecto={3}", e.Row.DBCampo("Partida"), txtFechaF.Text, txtFechaF.Text, DdlSubProyecto.SelectedValue)
+            End If
+
             If e.Row.DataKey("Ordernador2").ToEntero = 100 Or e.Row.DataKey("Seccion").ToEntero = 3 And (e.Row.DataKey("TipoCategoria").ToEntero = 6 Or e.Row.DataKey("TipoCategoria").ToEntero = 7) Then
                 e.Row.Font.Bold = True
 

Acumuladores/RepIndicadorDiarioDetalle.aspx

@@ -0,0 +1,191 @@
+<%@ Page Title="Indicador diario detalle" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIndicadorDiarioDetalle.aspx.vb" Inherits="Acumuladores_RepIndicadorDiarioDetalle" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .select2 .select2-selection__rendered {
+            line-height: 1;
+            color: #111;
+        }
+
+        .select2 .select2-selection--multiple {
+            box-sizing: border-box;
+            cursor: pointer;
+            display: block;
+            min-height: 20px;
+            user-select: none;
+            -webkit-user-select: none;
+        }
+
+        .select2-container--default .select2-selection--multiple .select2-selection__choice {
+            margin-top: 10px;
+        }
+
+        .select2-selection__rendered {
+            margin-top: 0px;
+            height: 25px;
+        }
+
+        .select2-selection {
+            margin-top: 0px;
+            height: 31px;
+        }
+
+        .select2-container--default.select2-container--focus .select2-selection--multiple {
+            border: none;
+            outline: 0;
+        }
+
+        #chartdiv {
+            width: 100%;
+            height: 500px;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
+    <%--    <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="btn-group pull-right btn-separete">
+                <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-fit-height btnopaco" />
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>--%>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+    <li>
+        <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar</asp:LinkButton>
+    </li>
+    <li>
+        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
+    </li>
+    <li>
+        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
+    </li>
+    <li>
+        <asp:LinkButton ID="ImgImprimir" runat="server" Enabled="true"> <i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+    </li>
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        
+    </asp:UpdatePanel>
+
+    
+
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Reporte de Productos Servicios
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <label class="col-md-1">Opción: </label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlOpcion" runat="server" Enabled="false">
+                                    <asp:ListItem Text="ACUM. CONTADO" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="ACUM. DIST. CONT." Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="ACUM. DIST. CRED." Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="DEV. DE ACUM." Value="4"></asp:ListItem>
+                                    <asp:ListItem Text="TOTAL ACUM." Value="5"></asp:ListItem>
+                                    <asp:ListItem Text="GARANTIAS." Value="6"></asp:ListItem>
+                                    <asp:ListItem Text="FILTROS." Value="7"></asp:ListItem>
+                                     <asp:ListItem Text="FILTROS CRED" Value="8"></asp:ListItem>
+                                     <asp:ListItem Text="DEV. DE FILTROS" Value="9"></asp:ListItem>
+                                     <asp:ListItem Text="TOTAL FILTROS" Value="10"></asp:ListItem>
+                                    <asp:ListItem Text="ACEITES" Value="11"></asp:ListItem>
+                                    <asp:ListItem Text="ACEITES CRED." Value="12"></asp:ListItem>
+                                    <asp:ListItem Text="DEV ACEITES" Value="13"></asp:ListItem>
+                                    <asp:ListItem Text="TOTAL ACEITES" Value="14"></asp:ListItem>
+                                    <asp:ListItem Text="TOTAL VARIOS" Value="15"></asp:ListItem>
+                                    <asp:ListItem Text="TOTAL" Value="16"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-1 truncate">
+                                Fecha Inicio:
+                           
+                            </div>
+                            <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;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <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>
+                                <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>
+                                <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>
+                            <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;">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <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>
+                                <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>
+                                <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>                             
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                        <div runat="server" id="DivProyecto" class="col-md-2">
+                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
+                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        
+                    </div>
+                   
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="SerieFolio">
+                <Columns>
+                    <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <HeaderStyle CssClass="Titulos" />
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    
+     
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+ </asp:Content>
+

Acumuladores/RepIndicadorDiarioDetalle.aspx.vb

@@ -0,0 +1,79 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.IO
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+Imports System.IO.Compression
+
+Partial Class Acumuladores_RepIndicadorDiarioDetalle
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+            CargaParametrosDetalle()
+
+        End If
+    End Sub
+
+
+#Region "  CARGA DATOS INICIALES  "
+
+    Private Sub CargaParametrosDetalle()
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        Dim Partida As Integer = If(Request("Partida") IsNot Nothing AndAlso Request("Partida").ToEntero() > 0, Request("Partida").ToEntero(), -1)
+        DdlOpcion.SelectedValueExist(Partida.ToEntero)
+
+        Dim CveSubProyecto As Integer = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1)
+        DdlSubProyecto.SelectedValueExist(CveSubProyecto)
+
+        txtFechaI.Text = If(Request("FI") IsNot Nothing AndAlso Request("FI").ToString <> "", Request("FI").ToString.ToDate, MinFecha).ToShortDateString
+        txtFechaF.Text = If(Request("FF") IsNot Nothing AndAlso Request("FF").ToString <> "", Request("FF").ToString.ToDate, MinFecha).ToShortDateString
+        CargaDatos(Partida)
+    End Sub
+#End Region
+
+#Region "   CARGA DATOS   "
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos(1)
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDatos(opcion As Integer)
+
+        Dim ObjAcum As New ClsAcumuladores()
+
+        Dim FechaI, FechaF As Date
+        FechaI = txtFechaI.Text.ToDate
+        FechaF = txtFechaF.Text.ToDate
+
+        If ObjAcum.GetRepIndicadorDiarioDetalle(FechaI, FechaF, DdlOpcion.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjAcum.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjAcum.Dispose()
+        GvDatos.DataBind()
+
+    End Sub
+
+    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("SerieFolio") = "" Then
+                e.Row.CssClass = "SubTotales"
+            End If
+        End If
+    End Sub
+
+
+#End Region
+
+
+
+
+End Class

App_Code/ClsAcumuladores.vb

@@ -1135,7 +1135,7 @@ Public Class ClsAcumuladores
     End Function
 
 
-    Public Function GetRepIndicadorDiario(FechaInicio As Date, FechaFin As Date, CveSubProeycto As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepIndicadorDiario(FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1144,7 +1144,35 @@ Public Class ClsAcumuladores
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProeycto
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As SqlException
+
+            OnError("Ocurrió un error al consultar los datos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetRepIndicadorDiarioDetalle(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        SqlDataAdapter("PA_Acum_RepIndicadorDiarioDetalleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 

App_Code/ClsCRM.vb

@@ -447,11 +447,11 @@ Public Class ClsCRM
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
             .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
 
-            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+            .Add("@CveEmpresaCRM", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
         Try
             SqlAdapter.Fill(Data)
-            CveEmpresaCRM = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString().ToEntero()
+            CveEmpresaCRM = SqlAdapter.SelectCommand.Parameters("@CveEmpresaCRM").Value.ToString().ToEntero()
         Catch ex As Exception
             OnError("Ocurrió un error al agregar la Empresa CRM.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try

App_Code/ClsContabilidad.vb

@@ -6081,7 +6081,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
+    Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
                                            Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1,
                                            Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -6601,6 +6601,34 @@ Public Class ClsContabilidad
 
 #End Region
 
+
+
+    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Respuesta As Boolean = False
+
+        DataAdapter("PA_Conta_FiltraPolizasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
+            .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Respuesta = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener  las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Respuesta
+
+    End Function
+
+
 #Region "IDisposable Support"
     ' IDisposable
     Protected Overridable Sub Dispose(disposing As Boolean)

App_Code/ClsGenerales.vb

@@ -3867,7 +3867,7 @@ Public Class ClsGenerales
     End Function
 
     Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String,
-                                             FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer, Optional ConfigCartaPorte As String = "-1",
+                                             FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer, Optional CveConfigAutoTransporte As Integer = -1,
                                              Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1) As Integer
         Dim Retorno As Integer = -1
         DataAdapter("PA_Inv_EntregaAlmacenRutaAdd")
@@ -3893,7 +3893,7 @@ Public Class ClsGenerales
 
             .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1
             .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2
-            .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
+            .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
 
             .Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
@@ -3909,7 +3909,7 @@ Public Class ClsGenerales
 
     Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer,
                                                  Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1,
-                                                Optional ConfigCartaPorte As String = "-1") As Boolean
+                                                Optional CveConfigAutoTransporte As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate")
 
@@ -3928,7 +3928,7 @@ Public Class ClsGenerales
             .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1
             .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2
             .Add("@Distancia", SqlDbType.Int).Value = Distancia
-            .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
+            .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
 
         End With
 
@@ -4012,7 +4012,7 @@ Public Class ClsGenerales
     End Function
 
 
-    Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, Optional CveTimbre As Integer = -1) As Boolean
+    Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -4027,7 +4027,7 @@ Public Class ClsGenerales
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
             .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
-
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try

App_Code/ClsInventarios.vb

@@ -2298,7 +2298,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function GetInventarioFisico(CveInventarioFisico As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Estado As Integer) As Boolean
+    Public Function GetInventarioFisico(CveInventarioFisico As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Estado As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_InventarioFisicoGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -2306,6 +2306,7 @@ Public Class ClsInventarios
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Estado", SqlDbType.Int).Value = Estado
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -5541,16 +5542,17 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
+    Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
                                 NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String,
                                 Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "",
                                 Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean
+
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@Placa", SqlDbType.VarChar).Value = Placa
             .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
-            .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
+            .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
             .Add("@Anio", SqlDbType.Int).Value = Anio
             .Add("@CveTipoPermisoSCT", SqlDbType.VarChar).Value = CveTipoPermisoSCT
             .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT
@@ -5593,7 +5595,7 @@ Public Class ClsInventarios
         End Try
         Return Retorno
     End Function
-    Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
+    Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, CveConfigAutoTransporte As Integer, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String,
                                    NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String,
                                    NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "",
                                    Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean
@@ -5603,7 +5605,7 @@ Public Class ClsInventarios
             .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
             .Add("@Placa", SqlDbType.VarChar).Value = Placa
             .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
-            .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte
+            .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
             .Add("@Anio", SqlDbType.Int).Value = Anio
             .Add("@CveTipoPermisoSCT", SqlDbType.Int).Value = CveTipoPermisoSCT
             .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT

App_Code/ClsPaginas.vb

@@ -2039,7 +2039,7 @@ Public Class ClsPaginas
         End Set
     End Property
     'Variables para Ventas
-    Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Boolean = True, Optional VendedorTipo As Integer = 1) As DataTable
+    Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional VendedorTipo As Integer = 1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa)
             'sino existe, recarga los datos
@@ -2050,10 +2050,15 @@ Public Class ClsPaginas
             End If
             If CveEmpresa <> -1 Then
 
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0} AND CveEstatus = {1} AND VendedorTipo = {2}", CveEmpresa, If(Estatus, 1, 0), VendedorTipo), "", DataViewRowState.CurrentRows)
+                Dim StrSQL As New StringBuilder
+                StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+                If VendedorTipo >= 0 Then StrSQL.AppendFormat(" AND VendedorTipo = {0} ", VendedorTipo)
+                If Estatus >= 0 Then StrSQL.AppendFormat(" AND  CveEstatus = {0} ", If(Estatus = 1, True, False))
 
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTVendedores = Dv.ToTable
                 Dv.Dispose()
+
             Else
                 GlobalDTVendedores = DirectCast(Application(AppNombre), DataTable)
             End If
@@ -5636,7 +5641,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
             PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
             PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
-            PaginaDict.Add("/Acumuladores/RepIndicadorDiario.aspx".ToUpper(), 2055)
+            PaginaDict.Add("/Acumuladores/RepIndicadorDiario.aspx".ToUpper(), 730)
+            PaginaDict.Add("/Acumuladores/RepIndicadorDiarioDetalle.aspx".ToUpper(), 730)
             PaginaDict.Add("/Acumuladores/RepEntradasUsadosClientes.aspx".ToUpper(), 543)
             PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032)
 
@@ -7078,7 +7084,7 @@ Public Class ClsPaginas
         'Si no tiene CBB, SE GENERA
         If Not ImagenCBB.Exists AndAlso Vta.CveCliente.ToEntero > 0 Then
             Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total.ToString.ToDecimal, Vta.FolioFiscal, RutaCBB)
+            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total, Vta.FolioFiscal, RutaCBB)
         End If
         'ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme.Replace("https", "http"), Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
 

App_Code/ClsRH.vb

@@ -2527,7 +2527,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@xmlRegistros", SqlDbType.Xml).Value = xmlProductos.ToString()
+            .Add("@xmlRegistros", SqlDbType.Xml).Value = If(xmlProductos Is Nothing, DBNull.Value, DirectCast(xmlProductos.ToString(), Object))
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2549,7 +2549,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         SqlDataAdapter("PA_RH_ChecadorAsistenciaAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@xmlRegistros", SqlDbType.Xml).Value = xmlProductos.ToString()
+            .Add("@xmlRegistros", SqlDbType.Xml).Value = If(xmlProductos Is Nothing, DBNull.Value, DirectCast(xmlProductos.ToString(), Object))
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -7181,6 +7181,25 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
 
 
+    Public Function UpPersonalAsistenciasMasiva(CveEmpresa As Integer, CveUsuario As Integer, xmlProductos As String) As Boolean
+        Dim Retorno As Boolean = False
+        Data = New DataTable
+        SqlDataAdapter("PA_RH_PersonalAsistenciasMasivaUP")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@xmlRegistros", SqlDbType.Xml).Value = If(String.IsNullOrEmpty(xmlProductos), DBNull.Value, DirectCast(xmlProductos.ToString(), Object))
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al guardar la asistencia masiva", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la asistencia masiva.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
     Public Function UpPersonalSupervisorMasiva(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpSupervisorMasiva)) As Boolean
         Dim Retorno As Boolean = False
         Dim xmlProductos As System.Xml.Linq.XDocument = Nothing
@@ -7192,7 +7211,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@xmlRegistros", SqlDbType.Xml).Value = xmlProductos.ToString()
+            .Add("@xmlRegistros", SqlDbType.Xml).Value = If(xmlProductos Is Nothing, DBNull.Value, DirectCast(xmlProductos.ToString(), Object))
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/DtDatos.xsd

@@ -12,7 +12,7 @@
   <xs:element name="DtDatos" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:Generator_DataSetName="DtDatos" msprop:Generator_UserDSName="DtDatos">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_RowClassName="DataTable1Row" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent">
+        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent" msprop:Generator_RowClassName="DataTable1Row">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -28,7 +28,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent" msprop:Generator_RowClassName="VentaUtilidadDetalleRow">
+        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_RowClassName="VentaUtilidadDetalleRow" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="CantVta" msprop:Generator_ColumnVarNameInTable="columnCantVta" msprop:Generator_ColumnPropNameInRow="CantVta" msprop:Generator_ColumnPropNameInTable="CantVtaColumn" msprop:Generator_UserColumnName="CantVta" type="xs:decimal" minOccurs="0" />
@@ -46,7 +46,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent" msprop:Generator_RowClassName="RepClientesCxCRow">
+        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_RowClassName="RepClientesCxCRow" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -66,7 +66,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_RowClassName="LibroMayorRow" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent">
+        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent" msprop:Generator_RowClassName="LibroMayorRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -89,7 +89,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_RowClassName="LibroDiarioRow" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent">
+        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent" msprop:Generator_RowClassName="LibroDiarioRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -113,7 +113,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent" msprop:Generator_RowClassName="RepBalanzaComprobacionRow">
+        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_RowClassName="RepBalanzaComprobacionRow" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Id" msprop:Generator_ColumnVarNameInTable="columnId" msprop:Generator_ColumnPropNameInRow="Id" msprop:Generator_ColumnPropNameInTable="IdColumn" msprop:Generator_UserColumnName="Id" type="xs:string" minOccurs="0" />
@@ -139,7 +139,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_RowClassName="CatPSRow" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowEvArgName="CatPSRowChangeEvent">
+        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_RowEvArgName="CatPSRowChangeEvent" msprop:Generator_RowClassName="CatPSRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Clasificacion" msprop:Generator_ColumnVarNameInTable="columnClasificacion" msprop:Generator_ColumnPropNameInRow="Clasificacion" msprop:Generator_ColumnPropNameInTable="ClasificacionColumn" msprop:Generator_UserColumnName="Clasificacion" type="xs:string" minOccurs="0" />
@@ -155,7 +155,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent" msprop:Generator_RowClassName="RepProveedorCxPRow">
+        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_RowClassName="RepProveedorCxPRow" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -172,7 +172,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent" msprop:Generator_RowClassName="ResumenNCRow">
+        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_RowClassName="ResumenNCRow" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -181,7 +181,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent" msprop:Generator_RowClassName="ProgramarRecursosRow">
+        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_RowClassName="ProgramarRecursosRow" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="CveCompra" msprop:Generator_ColumnVarNameInTable="columnCveCompra" msprop:Generator_ColumnPropNameInRow="CveCompra" msprop:Generator_ColumnPropNameInTable="CveCompraColumn" msprop:Generator_UserColumnName="CveCompra" type="xs:short" minOccurs="0" />
@@ -217,7 +217,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_RowEvArgName="RepIVARowChangeEvent" msprop:Generator_RowClassName="RepIVARow">
+        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_RowClassName="RepIVARow" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowEvArgName="RepIVARowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -243,7 +243,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_RowClassName="DtVentaDetalleRow" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent">
+        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent" msprop:Generator_RowClassName="DtVentaDetalleRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Cantidad" msprop:Generator_ColumnVarNameInTable="columnCantidad" msprop:Generator_ColumnPropNameInRow="Cantidad" msprop:Generator_ColumnPropNameInTable="CantidadColumn" msprop:Generator_UserColumnName="Cantidad" type="xs:string" minOccurs="0" />
@@ -259,7 +259,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent" msprop:Generator_RowClassName="RepIVAAcreditableRow">
+        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_RowClassName="RepIVAAcreditableRow" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -297,10 +297,11 @@
               <xs:element name="IVANoDeducible" msprop:Generator_ColumnVarNameInTable="columnIVANoDeducible" msprop:Generator_ColumnPropNameInRow="IVANoDeducible" msprop:Generator_ColumnPropNameInTable="IVANoDeducibleColumn" msprop:Generator_UserColumnName="IVANoDeducible" type="xs:double" minOccurs="0" />
               <xs:element name="TipoCambioPago" msprop:Generator_ColumnVarNameInTable="columnTipoCambioPago" msprop:Generator_ColumnPropNameInRow="TipoCambioPago" msprop:Generator_ColumnPropNameInTable="TipoCambioPagoColumn" msprop:Generator_UserColumnName="TipoCambioPago" type="xs:double" minOccurs="0" />
               <xs:element name="TotalME" msprop:Generator_ColumnVarNameInTable="columnTotalME" msprop:Generator_ColumnPropNameInRow="TotalME" msprop:Generator_ColumnPropNameInTable="TotalMEColumn" msprop:Generator_UserColumnName="TotalME" type="xs:double" minOccurs="0" />
+              <xs:element name="RetISRResico" msprop:Generator_ColumnVarNameInTable="columnRetISRResico" msprop:Generator_ColumnPropNameInRow="RetISRResico" msprop:Generator_ColumnPropNameInTable="RetISRResicoColumn" msprop:Generator_UserColumnName="RetISRResico" type="xs:double" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="IEPSPorcentaje" msprop:Generator_TableClassName="IEPSPorcentajeDataTable" msprop:Generator_TableVarName="tableIEPSPorcentaje" msprop:Generator_TablePropName="IEPSPorcentaje" msprop:Generator_RowDeletingName="IEPSPorcentajeRowDeleting" msprop:Generator_RowChangingName="IEPSPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IEPSPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IEPSPorcentajeRowDeleted" msprop:Generator_UserTableName="IEPSPorcentaje" msprop:Generator_RowChangedName="IEPSPorcentajeRowChanged" msprop:Generator_RowEvArgName="IEPSPorcentajeRowChangeEvent" msprop:Generator_RowClassName="IEPSPorcentajeRow">
+        <xs:element name="IEPSPorcentaje" msprop:Generator_TableClassName="IEPSPorcentajeDataTable" msprop:Generator_TableVarName="tableIEPSPorcentaje" msprop:Generator_RowChangedName="IEPSPorcentajeRowChanged" msprop:Generator_TablePropName="IEPSPorcentaje" msprop:Generator_RowDeletingName="IEPSPorcentajeRowDeleting" msprop:Generator_RowChangingName="IEPSPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IEPSPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IEPSPorcentajeRowDeleted" msprop:Generator_RowClassName="IEPSPorcentajeRow" msprop:Generator_UserTableName="IEPSPorcentaje" msprop:Generator_RowEvArgName="IEPSPorcentajeRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="PorcentajeIEPS" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIEPS" msprop:Generator_ColumnPropNameInRow="PorcentajeIEPS" msprop:Generator_ColumnPropNameInTable="PorcentajeIEPSColumn" msprop:Generator_UserColumnName="PorcentajeIEPS" type="xs:string" minOccurs="0" />
@@ -310,7 +311,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="IVAPorcentaje" msprop:Generator_TableClassName="IVAPorcentajeDataTable" msprop:Generator_TableVarName="tableIVAPorcentaje" msprop:Generator_TablePropName="IVAPorcentaje" msprop:Generator_RowDeletingName="IVAPorcentajeRowDeleting" msprop:Generator_RowChangingName="IVAPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IVAPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IVAPorcentajeRowDeleted" msprop:Generator_UserTableName="IVAPorcentaje" msprop:Generator_RowChangedName="IVAPorcentajeRowChanged" msprop:Generator_RowEvArgName="IVAPorcentajeRowChangeEvent" msprop:Generator_RowClassName="IVAPorcentajeRow">
+        <xs:element name="IVAPorcentaje" msprop:Generator_TableClassName="IVAPorcentajeDataTable" msprop:Generator_TableVarName="tableIVAPorcentaje" msprop:Generator_RowChangedName="IVAPorcentajeRowChanged" msprop:Generator_TablePropName="IVAPorcentaje" msprop:Generator_RowDeletingName="IVAPorcentajeRowDeleting" msprop:Generator_RowChangingName="IVAPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IVAPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IVAPorcentajeRowDeleted" msprop:Generator_RowClassName="IVAPorcentajeRow" msprop:Generator_UserTableName="IVAPorcentaje" msprop:Generator_RowEvArgName="IVAPorcentajeRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />

Bancos/FluctuacionCambiaria.aspx

@@ -155,8 +155,7 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
-    <br />
+      
-    <br />
     <asp:UpdatePanel ID="UpTabs" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <ajax:TabContainer runat="server" ID="T">
@@ -219,11 +218,8 @@
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
-                        <br />
+                        <br /> 
-
+                        <div class="row"> 
-
-                        <div class="row">
-                             
                             <div class="col-md-5 form-group form-md-line-input input-iconright">
                                 <asp:TextBox ID="TxtConceptoCompras" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control  marginFixRow" Width="96%"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RFVTxtConceptoCompras" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCompras"
@@ -245,11 +241,9 @@
                                 <asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" Visible="false" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
                                 <asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" />
                                 <asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresRemove_Click" class="btn btn-primary" /></div>
-
+                         </div> 
-                        </div>
-                         
                         <br />
-                        <asp:GridView ID="GvCompras" Width="99%" runat="server" AutoGenerateColumns="False"
+                        <asp:GridView ID="GvProveedores" Width="99%" runat="server" AutoGenerateColumns="False"
                             DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria,CveIE"
                             EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
@@ -266,6 +260,108 @@
                         <%--<asp:Label ID="LblTotalCompras" runat="server" Text=""></asp:Label>--%>
                     </ContentTemplate>
                 </ajax:TabPanel>
+                <ajax:TabPanel runat="server" ID="TabComprasAnt" HeaderText="Proveedores Ant">
+                    <ContentTemplate>
+                        <asp:UpdatePanel ID="UpdatePanel1" UpdateMode="Conditional" runat="server" Visible="False">
+                            <ContentTemplate>
+                                <div id="Div1" visible="true" class="row" runat="server">
+                                    <div class="col-md-3 col-sm-6 col-xs-12">
+                                        <div class="widget-thumb text-uppercase  bordered">
+                                            <h4 class="widget-thumb-heading">PÉRDIDA</h4>
+                                            <div class="widget-thumb-wrap">
+                                                <i class="widget-thumb-icon bg-red fa fa-money"></i>
+                                                <div class="widget-thumb-body">
+                                                    <span class="widget-thumb-subtitle">MXN</span>
+                                                    <span class="widget-thumb-body-stat">
+                                                        <asp:Literal ID="Literal1" Text="" runat="server" />
+                                                    </span>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3 col-sm-6 col-xs-12">
+                                        <div class="widget-thumb text-uppercase  bordered">
+                                            <h4 class="widget-thumb-heading">GANANCIA</h4>
+                                            <div class="widget-thumb-wrap">
+                                                <i class="widget-thumb-icon bg-green fa fa-money"></i>
+                                                <div class="widget-thumb-body">
+                                                    <div class="row">
+                                                        <div class="col-md-6">
+                                                            <span class="widget-thumb-subtitle">MXN</span>
+                                                            <span class="widget-thumb-body-stat">
+                                                                <asp:Literal ID="Literal2" Text="" runat="server" />
+                                                            </span>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3 col-sm-6 col-xs-12">
+                                        <div class="widget-thumb text-uppercase  bordered">
+                                            <h4 class="widget-thumb-heading">
+                                                <asp:Label ID="Label3" runat="server" Text=""></asp:Label></h4>
+                                            <div class="widget-thumb-wrap">
+                                                <i id="I1" runat="server" class=""></i>
+                                                <div class="widget-thumb-body">
+                                                    <div class="row">
+                                                        <div class="col-md-6">
+                                                            <span class="widget-thumb-subtitle">MXN</span>
+                                                            <span class="widget-thumb-body-stat">
+                                                                <asp:Literal ID="Literal3" Text="" runat="server" />
+                                                            </span>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                        <br /> 
+                        <div class="row"> 
+                            <div class="col-md-5 form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtConceptoComprasAnt" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control  marginFixRow" Width="96%"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RFVTxtConceptoComprasAnt" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoComprasAnt"
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarComprasAnt"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtConceptoComprasAnt.ClientID.ToString()%>">Concepto:</label>
+                                <i></i>
+                            </div>
+
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
+                                <asp:DropDownList ID="DdlSubProyectoComprasAnt" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
+                                </asp:DropDownList>
+                                <label for="<%= DdlSubProyectoComprasAnt.ClientID.ToString()%>">
+                                    <asp:Label runat="server" ID="LblSubProyectoComprasAnt"></asp:Label></label>
+                                <asp:RequiredFieldValidator ID="RFVDdlSubProyectoComprasAnt" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoComprasAnt" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo  es necesario, por favor ingréselo." ValidationGroup="GrpGuardarComprasAnt"></asp:RequiredFieldValidator>
+                                <i></i>
+                            </div>
+
+                            <div class="col-md-2" style="text-align: right!important">
+                                <asp:Button Text="Generar Proveedores Ant" runat="server" ID="BtnGeneraComprasAnt" Visible="false" OnClick="BtnGeneraComprasAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarComprasAnt" />
+                                <asp:HiddenField ID="HdnProveedorAntCvePrePoliza" runat="server" />
+                                <asp:Button ID="BtnProveedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresAntRemove_Click" class="btn btn-primary" /></div>
+                         </div> 
+                        <br />
+                        <asp:GridView ID="GvProveedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria,CveIE"
+                            EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
+                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
+                            <Columns>
+                                <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank"  DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
+                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
+                                <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Saldo USD" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fluctuación Pesos" DataField="FluctuacionTotal" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Perdida o Ganancia" DataField="PerdidaGanancia" ItemStyle-Width="100"  />
+                            </Columns>
+                        </asp:GridView>
+                        <%--<asp:Label ID="LblTotalCompras" runat="server" Text=""></asp:Label>--%>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+                
                 <ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Clientes">
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UpIndicadoresVentas" UpdateMode="Conditional" runat="server" Visible="false">
@@ -349,7 +445,7 @@
                                 <i></i>
                             </div> 
 
-                            <div class="col-md-6" style="text-align: right!important">
+                            <div class="col-md-3" style="text-align: right!important">
                                 <asp:Button Text="Generar Ventas" runat="server" ID="BtnGeneraVentas" Visible="false" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentas" />
                                 <asp:HiddenField ID="HdnClienteCvePrePoliza" runat="server" />
                                 <asp:Button ID="BtnClientesRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesRemove_Click" class="btn btn-primary" /></div>
@@ -360,7 +456,7 @@
 
                         <asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False"
                             DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
-                            ToolTip="Listado de Cuentas Bancarias" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
+                            ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
                                 <asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" />
@@ -376,109 +472,122 @@
                         <asp:Label ID="LblTotalVentas" runat="server" Text=""></asp:Label>
                     </ContentTemplate>
                 </ajax:TabPanel>
-                <ajax:TabPanel runat="server" ID="TabCuentasBancarias" HeaderText="Cuentas Bancarias">
+                 <ajax:TabPanel runat="server" ID="TabVentasAnt" HeaderText="Clientes Ant">
-                    <ContentTemplate> 
-                        <br />
-                        <div class="row"> 
-
-                            <div class="col-md-5 form-group form-md-line-input input-iconright">
-                                <asp:TextBox ID="TxtConceptoBancos" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
-                                <asp:RequiredFieldValidator ID="RFVTxtConceptoBancos" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoBancos"
-                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarBancos"></asp:RequiredFieldValidator>
-                                <label for="<%= TxtConceptoBancos.ClientID.ToString()%>">Concepto:</label>
-                                <i></i>
-                            </div>
-
-                            <div class="col-md-2 form-group form-md-line-input input-iconright">
-                                <asp:DropDownList ID="DdlSubproyectoBancos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
-                                </asp:DropDownList>
-                                <label for="<%= DdlSubproyectoBancos.ClientID.ToString()%>">
-                                    <asp:Label runat="server" ID="LblSubProyectoBancos"></asp:Label>
-                                </label>
-                                <asp:RequiredFieldValidator ID="RFVDdlSubproyectoBancos" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubproyectoBancos" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarBancos"></asp:RequiredFieldValidator>
-                                <i></i>
-                            </div> 
-                            <div class="col-md-6" style="text-align: right!important">
-                                <asp:Button Text="Generar Bancos" runat="server" ID="BtnGeneraBancos" OnClick="BtnGeneraBancos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarBancos" />
-                            </div>
-
-                        </div> 
-
-                        <br />
-                        <asp:GridView ID="GvCuentas" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="IdCtaAfectable,IdCtaContable,IdCtaContableComplementaria,TipoCambio,Fluctuacion,
-                            Banco,NumCuenta,CveCuentaComplementaria,Saldo"
-                            EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip="Listado de Cuentas Bancarias"
-                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
-                            <Columns>
-                                <asp:TemplateField ItemStyle-Width="50">
-                                    <ItemTemplate>
-                                        <asp:CheckBox ID="ChkGenerarBancos" runat="server" />
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:BoundField HeaderText="Banco" DataField="Banco" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
-                                <asp:BoundField HeaderText="# Cuenta" DataField="NumCuenta" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
-                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
-                            </Columns>
-                        </asp:GridView>
-                        <asp:Label ID="LblTotalBancos" runat="server" Text=""></asp:Label>
-                    </ContentTemplate>
-                </ajax:TabPanel>
-                <ajax:TabPanel runat="server" ID="TabDeudores" HeaderText="Deudores">
                     <ContentTemplate>
-                         
+                        <asp:UpdatePanel ID="UpdatePanel2" UpdateMode="Conditional" runat="server" Visible="false">
+                            <ContentTemplate>
+                                <div id="Div2" visible="true" class="row" runat="server">
+                                    <div class="col-md-3 col-sm-6 col-xs-12">
+                                        <div class="widget-thumb text-uppercase  bordered">
+                                            <h4 class="widget-thumb-heading">PÉRDIDA</h4>
+                                            <div class="widget-thumb-wrap">
+                                                <i class="widget-thumb-icon bg-red fa fa-money"></i>
+                                                <div class="widget-thumb-body">
+                                                    <span class="widget-thumb-subtitle">MXN</span>
+                                                    <span class="widget-thumb-body-stat">
+                                                        <asp:Literal ID="Literal4" Text="" runat="server" />
+                                                    </span>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3 col-sm-6 col-xs-12">
+                                        <div class="widget-thumb text-uppercase  bordered">
+                                            <h4 class="widget-thumb-heading">GANANCIA</h4>
+                                            <div class="widget-thumb-wrap">
+                                                <i class="widget-thumb-icon bg-green fa fa-money"></i>
+                                                <div class="widget-thumb-body">
+                                                    <div class="row">
+                                                        <div class="col-md-6">
+                                                            <span class="widget-thumb-subtitle">MXN</span>
+                                                            <span class="widget-thumb-body-stat">
+                                                                <asp:Literal ID="Literal5" Text="" runat="server" />
+                                                            </span>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3 col-sm-6 col-xs-12">
+                                        <div class="widget-thumb text-uppercase  bordered">
+                                            <h4 class="widget-thumb-heading">
+                                                <asp:Label ID="Label5" runat="server" Text=""></asp:Label></h4>
+                                            
+                                            <div class="widget-thumb-wrap">
+                                                <i id="I2" runat="server" class=""></i>
+                                                <div class="widget-thumb-body">
+                                                    <div class="row">
+                                                        <div class="col-md-6">
+                                                            <span class="widget-thumb-subtitle">MXN</span>
+                                                            <span class="widget-thumb-body-stat">
+                                                                <asp:Literal ID="Literal6" Text="" runat="server" />
+                                                            </span>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>                                   
+                                </div>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+
+                        <br />
                         <div class="row">
 
                             <div class="col-md-5 form-group form-md-line-input input-iconright">
-                                <asp:TextBox ID="TxtConceptoDeudores" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
+                                <asp:TextBox ID="TxtConceptoVentasAnt" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
-                                <asp:RequiredFieldValidator ID="RFVTxtConceptoDeudores" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoDeudores"
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoVentasAnt"
-                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarDeudores"></asp:RequiredFieldValidator>
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarVentasAnt"></asp:RequiredFieldValidator>
-                                <label for="<%= TxtConceptoDeudores.ClientID.ToString()%>">Concepto:</label>
+                                <label for="<%= TxtConceptoVentasAnt.ClientID.ToString()%>">Concepto:</label>
                                 <i></i>
                             </div>
 
                             <div class="col-md-2 form-group form-md-line-input input-iconright">
-                                <asp:DropDownList ID="DdlSubProyectoDeudores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
+                                <asp:DropDownList ID="DdlsubProyectoVentasAnt" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
                                 </asp:DropDownList>
-                                <label for="<%= DdlSubProyectoDeudores.ClientID.ToString()%>">
+                                <label for="<%= DdlsubProyectoVentasAnt.ClientID.ToString()%>">
-                                    <asp:Label runat="server" ID="LblSubProyectoDeudores"></asp:Label>
+                                    <asp:Label runat="server" ID="LblSubProyectoVentasAnt"></asp:Label>
                                 </label>
-                                <asp:RequiredFieldValidator ID="RFVRFVDdlSubProyectoDeudores" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoDeudores" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarDeudores"></asp:RequiredFieldValidator>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlsubProyectoVentasAnt" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo  es necesario, por favor ingréselo." ValidationGroup="GrpGuardarVentasAnt"></asp:RequiredFieldValidator>
                                 <i></i>
                             </div> 
 
-                            <div class="col-md-6" style="text-align: right!important">
+                            <div class="col-md-3" style="text-align: right!important">
-                                <asp:Button Text="Generar Deudores" runat="server" ID="BtnGeneraDedudores" OnClick="BtnGeneraDedudores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarDeudores" />
+                                <asp:Button Text="Generar Clientes Anticipos" runat="server" ID="BtnClientesAnticipos" Visible="false" OnClick="BtnClientesAnticipos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentasAnt" />
-                            </div>
+                                <asp:HiddenField ID="HdnClienteAntCvePrePoliza" runat="server" />
-                        </div>
+                                <asp:Button ID="BtnClientesAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesAntRemove_Click" class="btn btn-primary" /></div>
 
-                        <br />
+                            </div>                           
+                          
+                        <br /> 
 
-
+                        <asp:GridView ID="GvClientesAnt" Width="99%" runat="server" AutoGenerateColumns="False"
-                        <asp:GridView ID="GvDeudores" Width="99%" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
-                            DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE"
+                            ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
-                            EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip="Listado de Cuentas Bancarias"
-                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
-                                <asp:BoundField HeaderText="Deudor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
+                                <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
-                                <asp:HyperLinkField HeaderText="Folio" DataTextField="Folio" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" ItemStyle-Width="150" ItemStyle-HorizontalAlign="Left" />
+                                <asp:HyperLinkField DataTextField="SerieFolio" HeaderText="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" />
-                                <asp:BoundField HeaderText="Importe" DataField="Importe" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField DataField="Diferencia" HeaderText="Diferencia TC" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N4}" />
-                                <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField DataField="FluctuacionPesos" HeaderText="Fluctuacion Pesos" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField DataField="PerdidaGanancia" HeaderText="Acción" ItemStyle-HorizontalAlign="Left" />
                             </Columns>
                         </asp:GridView>
-                        <asp:Label ID="LblTotalDeudores" runat="server" Text=""></asp:Label>
+                        <asp:Label ID="LblTotalVentasAnt" runat="server" Text=""></asp:Label>
                     </ContentTemplate>
                 </ajax:TabPanel>
-
+                
+             
                 <ajax:TabPanel runat="server" ID="TabAcreedores" HeaderText="Compras Acreedores">
 
                     <ContentTemplate>
-                        <br />
+                       
                         <div class="row">
 
                             <div class="col-md-5 form-group form-md-line-input input-iconright">
@@ -525,6 +634,106 @@
 
                     </ContentTemplate>
                 </ajax:TabPanel>
+                <ajax:TabPanel runat="server" ID="TabAcreedoresAnticipos" HeaderText="Acreedores Ant"> 
+                    <ContentTemplate>
+                      
+                        <div class="row">
+
+                            <div class="col-md-5 form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtConceptoAcreedoresAnt" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RFVConceptoAcreedoresAnt" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoAcreedoresAnt"
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedoresAnt"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtConceptoAcreedoresAnt.ClientID.ToString()%>">Concepto:</label>
+                                <i></i>
+                            </div>
+
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
+                                <asp:DropDownList ID="DdlSubProyectoAcreeedoresAnt" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
+                                </asp:DropDownList>
+                                <label for="<%= DdlSubProyectoAcreeedoresAnt.ClientID.ToString()%>">
+                                    <asp:Label runat="server" ID="LblSubProyectoAcreedoresAnt"></asp:Label>
+                                </label>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoAcreeedoresAnt" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedoresAnt"></asp:RequiredFieldValidator>
+                                <i></i>
+                            </div> 
+                            <div class="col-md-3" style="text-align: right!important">
+                                <asp:Button Text="Generar Acreedores Ant" runat="server" ID="BtnGeneraAcreedoresAnt" Visible="false" OnClick="BtnGeneraAcreedoresAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedoresAnt" />
+                                <asp:HiddenField ID="HdnAcreedorAntCvePrePoliza" runat="server" />
+                                <asp:Button ID="BtnAcreedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresAntRemove_Click" class="btn btn-primary" />
+                            </div>
+
+                        </div>
+                        
+                        <br /> 
+
+                        <asp:GridView ID="GvAcreedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="CveCompra,CveProveedor,TipoCambio,Fluctuacion,SerieFolio,IdCtaContComplementaria,CveIE"
+                            EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
+                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
+                            <Columns>
+                                <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
+                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Saldo USD" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fluctuación Pesos" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField DataField="PerdidaGanancia" HeaderText="Acción" ItemStyle-HorizontalAlign="Left" />
+                            </Columns>
+                        </asp:GridView>                      
+                        <asp:Label ID="LblTotalAcreedoresAnt" runat="server" Text=""></asp:Label>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+               
+                   <ajax:TabPanel runat="server" ID="TabCuentasBancarias" HeaderText="Bancos">
+                    <ContentTemplate> 
+                        <br />
+                        <div class="row"> 
+
+                            <div class="col-md-5 form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtConceptoBancos" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RFVTxtConceptoBancos" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoBancos"
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarBancos"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtConceptoBancos.ClientID.ToString()%>">Concepto:</label>
+                                <i></i>
+                            </div>
+
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
+                                <asp:DropDownList ID="DdlSubproyectoBancos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
+                                </asp:DropDownList>
+                                <label for="<%= DdlSubproyectoBancos.ClientID.ToString()%>">
+                                    <asp:Label runat="server" ID="LblSubProyectoBancos"></asp:Label>
+                                </label>
+                                <asp:RequiredFieldValidator ID="RFVDdlSubproyectoBancos" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubproyectoBancos" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarBancos"></asp:RequiredFieldValidator>
+                                <i></i>
+                            </div> 
+                            <div class="col-md-6" style="text-align: right!important">
+                                <asp:Button Text="Generar Bancos" runat="server" ID="BtnGeneraBancos" OnClick="BtnGeneraBancos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarBancos" />
+                            </div>
+
+                        </div> 
+
+                        <br />
+                        <asp:GridView ID="GvCuentas" Width="99%" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="IdCtaAfectable,IdCtaContable,IdCtaContableComplementaria,TipoCambio,Fluctuacion,
+                            Banco,NumCuenta,CveCuentaComplementaria,Saldo"
+                            EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip=""
+                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
+                            <Columns>
+                                <asp:TemplateField ItemStyle-Width="50">
+                                    <ItemTemplate>
+                                        <asp:CheckBox ID="ChkGenerarBancos" runat="server" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:BoundField HeaderText="Banco" DataField="Banco" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="# Cuenta" DataField="NumCuenta" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                            </Columns>
+                        </asp:GridView>
+                        <asp:Label ID="LblTotalBancos" runat="server" Text=""></asp:Label>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+             
                 <ajax:TabPanel runat="server" ID="TabFilial" HeaderText="Filial">
                     <ContentTemplate>
 
@@ -561,7 +770,7 @@
 
                         <asp:GridView ID="GvFiliales" Width="99%" runat="server" AutoGenerateColumns="False"
                             DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE,Folio"
-                            EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip="Listado de Cuentas Bancarias"
+                            EmptyDataText="No se Encontraron" ToolTip=""
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:BoundField HeaderText="Acreedor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
@@ -575,6 +784,54 @@
                         <asp:Label ID="Label1" runat="server" Text=""></asp:Label>
                     </ContentTemplate>
                 </ajax:TabPanel>
+            
+               <ajax:TabPanel runat="server" ID="TabDeudores" HeaderText="Deudores">
+                    <ContentTemplate>
+                         
+                        <div class="row">
+
+                            <div class="col-md-5 form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtConceptoDeudores" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RFVTxtConceptoDeudores" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoDeudores"
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarDeudores"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtConceptoDeudores.ClientID.ToString()%>">Concepto:</label>
+                                <i></i>
+                            </div>
+
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
+                                <asp:DropDownList ID="DdlSubProyectoDeudores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic  marginFixRow" Width="90%">
+                                </asp:DropDownList>
+                                <label for="<%= DdlSubProyectoDeudores.ClientID.ToString()%>">
+                                    <asp:Label runat="server" ID="LblSubProyectoDeudores"></asp:Label>
+                                </label>
+                                <asp:RequiredFieldValidator ID="RFVRFVDdlSubProyectoDeudores" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoDeudores" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarDeudores"></asp:RequiredFieldValidator>
+                                <i></i>
+                            </div> 
+
+                            <div class="col-md-6" style="text-align: right!important">
+                                <asp:Button Text="Generar Deudores" runat="server" ID="BtnGeneraDedudores" OnClick="BtnGeneraDedudores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarDeudores" />
+                            </div>
+                        </div>
+
+                        <br /> 
+                        <asp:GridView ID="GvDeudores" Width="99%" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="IdCtaAfectable,TipoCambio,Fluctuacion,RazonSocial,CveIE"
+                            EmptyDataText="No se Encontraron" ToolTip=""
+                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
+                            <Columns>
+                                <asp:BoundField HeaderText="Deudor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
+                                <asp:HyperLinkField HeaderText="Folio" DataTextField="Folio" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" ItemStyle-Width="150" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Importe" DataField="Importe" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                            </Columns>
+                        </asp:GridView>
+                        <asp:Label ID="LblTotalDeudores" runat="server" Text=""></asp:Label>
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
             </ajax:TabContainer>
         </ContentTemplate>
     </asp:UpdatePanel>

Bancos/FluctuacionCambiaria.aspx.vb

@@ -28,11 +28,14 @@ Partial Class Bancos_FluctuacionCambiaria
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaFechas()
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoComprasAnt, Nothing, LblSubProyectoComprasAnt, "")
+            CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas, "")
+            CargarCentrosDeCosto(Nothing, DdlsubProyectoVentasAnt, Nothing, LblSubProyectoVentasAnt, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreeedoresAnt, Nothing, LblSubProyectoAcreedoresAnt, "")
             CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyectoBancos, "")
-            CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas, "")
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "")
-            CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras, "")
-            CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "")
-            CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores, "")
             CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores, "")
 
             CargaUltimaFluctuacion()
@@ -62,14 +65,18 @@ Partial Class Bancos_FluctuacionCambiaria
 
     End Sub
 
-    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargaTipoCambio()
-        If T.ActiveTabIndex = 0 Then CargaDatosCompra()
+        If T.ActiveTabIndex = 0 Then CargaDatosProveedores()
-        If T.ActiveTabIndex = 1 Then CargaDatosVentas()
+        If T.ActiveTabIndex = 1 Then CargaDatosProveedoresAnticipos()
-        If T.ActiveTabIndex = 2 Then CargaDatosCuentas()
+        If T.ActiveTabIndex = 2 Then CargaDatosClientes()
-        If T.ActiveTabIndex = 3 Then CargaDatosDeudores()
+        If T.ActiveTabIndex = 3 Then CargaDatosClientesAnticipos()
-        If T.ActiveTabIndex = 4 Then CargaDatosAcreedores()
+        If T.ActiveTabIndex = 4 Then CargaDatosAcreedores()
-        If T.ActiveTabIndex = 5 Then CargaDatosFiliales()
+        If T.ActiveTabIndex = 5 Then CargaDatosAcreedoresAnticipos()
+        If T.ActiveTabIndex = 6 Then CargaDatosCuentas()
+
+        If T.ActiveTabIndex = 7 Then CargaDatosFiliales()
+        If T.ActiveTabIndex = 8 Then CargaDatosDeudores()
         UpTabs.Update()
     End Sub
 
@@ -84,21 +91,8 @@ Partial Class Bancos_FluctuacionCambiaria
         ObjGenerales.Dispose()
     End Sub
 
-    Private Sub CargaUltimaFluctuacion()
+    Private Sub CargaUltimaFluctuacion()
-        'Dim Obj As New ClsBancos
+
-        'If Obj.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
-        '    Dim dt As DataTable = Obj.DtResultados.FiltraParametros("TipoFluctuacion = 1", "Fecha DESC")
-        '    If dt.Rows.Count > 0 Then
-        '        LtlUltimaFluctuacion.Text = String.Format("Ultima Fluctuación : {0}", dt.Rows(0)("Fecha").ToString.ToDate.ToShortDateString)
-        '        'si la ultima fluctuacion es mayor o igual  al fin de mes anterior, entonces pon la fecha actual
-        '        If dt.Rows(0)("Fecha").ToString.ToDate >= Now.AddMonths(-1).LastDayOfMonth Then
-        '            TxtFecha.Text = Now.ToShortDateString
-        '        Else
-        '            TxtFecha.Text = Now.AddMonths(-1).LastDayOfMonth.ToShortDateString()
-        '        End If
-        '    End If
-        'End If
-        'Obj.Dispose()
 
         Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
 
@@ -111,24 +105,23 @@ Partial Class Bancos_FluctuacionCambiaria
             Else
                 DdlMes.SelectedValueExist(Now.AddMonths(-1).Month)
                 DdlAnio.SelectedValueExist(Now.AddMonths(-1).Year)
-                'TxtFecha.Text = Now.AddMonths(-1).LastDayOfMonth.ToShortDateString()
             End If
         End If
 
         CargaTipoCambio()
     End Sub
 
-    Private Sub CargaDatosCompra()
+    Private Sub CargaDatosProveedores()
-        Dim ObjBancos As New ClsBancos
+        Dim ObjBancos As New ClsBancos
-        'LblTotalCompras.Text = "0.00"
+
         If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 1, UsuarioActual.CveEmpresa) Then
-            GvCompras.DataSource = ObjBancos.DtResultados
+            GvProveedores.DataSource = ObjBancos.DtResultados
             'LblTotalCompras.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-            Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0 ")
+            Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0 ")
-            Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0 ")
+            Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0 ")
 
             Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion").Abs
-            Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion")
+            Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion").Abs
 
             Dim Final As Double = GanaciaAux - PerdidaAux
             HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
@@ -138,6 +131,44 @@ Partial Class Bancos_FluctuacionCambiaria
 
             IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
 
+            LtIndicador_ExistenciaPerdida.Text = PerdidaAux.ToString.FormatoNumero
+            LtIndicador_ValorPesosGanancia.Text = GanaciaAux.ToString.FormatoNumero
+            LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
+            LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida")
+
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+        Else
+            GvProveedores.DataSource = Nothing
+            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+        End If
+        ObjBancos.Dispose()
+        GvProveedores.DataBind()
+        UpIndicadores.Visible = True
+        If GvProveedores.Rows.Count > 0 Then
+            GvProveedores.Rows(GvProveedores.Rows.Count - 1).CssClass = "SubTotales2"
+        End If
+    End Sub
+
+    Private Sub CargaDatosProveedoresAnticipos()
+        Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 2, UsuarioActual.CveEmpresa) Then
+            GvProveedoresAnt.DataSource = ObjBancos.DtResultados
+            'LblTotalCompras.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0 ")
+            Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0 ")
+
+            Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion").Abs
+            Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion")
+
+            Dim Final As Double = GanaciaAux - PerdidaAux
+            HdnProveedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            BtnProveedoresAntRemove.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraComprasAnt.Visible = Not HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
+
+            IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
+
             LtIndicador_ExistenciaPerdida.Text = PerdidaAux.ToString.FormatoNumero
             LtIndicador_ValorPesosGanancia.Text = GanaciaAux.ToString.FormatoNumero
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
@@ -145,28 +176,26 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
-            GvCompras.DataSource = Nothing
+            GvProveedoresAnt.DataSource = Nothing
             Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
-        GvCompras.DataBind()
+        GvProveedoresAnt.DataBind()
-        UpIndicadores.Visible = True
+        UpIndicadores.Visible = True
-        If GvCompras.Rows.Count > 0 Then
+
-            GvCompras.Rows(GvCompras.Rows.Count - 1).CssClass = "SubTotales2"
-        End If
     End Sub
 
-    Private Sub CargaDatosVentas()
+    Private Sub CargaDatosClientes()
         Dim ObjBancos As New ClsBancos
         LblTotalVentas.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 2, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 3, UsuarioActual.CveEmpresa) Then
             GvVentas.DataSource = ObjBancos.DtResultados
 
-            Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0")
+            Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0")
-            Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0")
+            Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0")
 
-            Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion < 0").Abs
+            Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion > 0").Abs
-            Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion > 0")
+            Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion < 0").Abs
 
             Dim Final As Double = GanaciaAux - PerdidaAux
             HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
@@ -190,12 +219,84 @@ Partial Class Bancos_FluctuacionCambiaria
         End If
         ObjBancos.Dispose()
         GvVentas.DataBind()
+    End Sub
+
+    Private Sub CargaDatosClientesAnticipos()
+        Dim ObjBancos As New ClsBancos
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 4, UsuarioActual.CveEmpresa) Then
+            GvClientesAnt.DataSource = ObjBancos.DtResultados
+
+            Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0")
+            Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0")
+
+            Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion < 0").Abs
+            Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion > 0")
+
+            Dim Final As Double = GanaciaAux - PerdidaAux
+            HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            BtnClientesAntRemove.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0
+            BtnClientesAnticipos.Visible = Not HdnClienteAntCvePrePoliza.Value.ToEntero > 0
+
+            'IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
+
+            'LtIndicador_PerdidasVentas.Text = PerdidaAux.ToString.FormatoNumero
+            'LtIndicador_GanaciaVentas.Text = GanaciaAux.ToString.FormatoNumero
+            'LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero
+            'LblVentasPerdidaGanancia.Text = If(Final < 0, "Pérdida", "Ganancia")
+
+            LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+
+            UpIndicadoresVentas.Visible = True
+        Else
+            GvClientesAnt.DataSource = Nothing
+            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+        End If
+        ObjBancos.Dispose()
+        GvClientesAnt.DataBind()
+    End Sub
+
+
+    Private Sub CargaDatosAcreedores()
+        Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 5, UsuarioActual.CveEmpresa) Then
+
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0
+            GvAcreedores.DataSource = ObjBancos.DtResultados
+            LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+        Else
+            GvAcreedoresAnt.DataSource = Nothing
+            Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
+        End If
+        ObjBancos.Dispose()
+        GvAcreedores.DataBind()
     End Sub
 
+    Private Sub CargaDatosAcreedoresAnticipos()
+        Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 6, UsuarioActual.CveEmpresa) Then
+            HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
+            GvAcreedoresAnt.DataSource = ObjBancos.DtResultados
+            LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+        Else
+            GvAcreedoresAnt.DataSource = Nothing
+            Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
+        End If
+        ObjBancos.Dispose()
+        GvAcreedoresAnt.DataBind()
+    End Sub
+
     Private Sub CargaDatosCuentas()
         Dim ObjBancos As New ClsBancos
         LblTotalBancos.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 4, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then
             Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy
             Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
             Dim TotAcumulado As Decimal = 0
@@ -237,7 +338,7 @@ Partial Class Bancos_FluctuacionCambiaria
         End If
         ObjBancos.Dispose()
         GvCuentas.DataBind()
-    End Sub
+    End Sub
 
     Private Sub CargaDatosDeudores()
         Dim ObjBancos As New ClsBancos
@@ -253,24 +354,6 @@ Partial Class Bancos_FluctuacionCambiaria
         GvDeudores.DataBind()
     End Sub
 
-    Private Sub CargaDatosAcreedores()
-        Dim ObjBancos As New ClsBancos
-        LblTotalAcreedores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 6, UsuarioActual.CveEmpresa) Then
-            GvAcreedores.DataSource = ObjBancos.DtResultados
-            LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-            HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
-            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
-            BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
-            BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0
-
-        Else
-            GvAcreedores.DataSource = Nothing
-            Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
-        End If
-        ObjBancos.Dispose()
-        GvAcreedores.DataBind()
-    End Sub
 
     Private Sub CargaDatosFiliales()
         Dim ObjBancos As New ClsBancos
@@ -315,7 +398,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
 
         Total = LblTotal.ToDecimal
-        If Total > 0 Then
+        If Total < 0 Then
             CveConceptoContable = 64
             idCta = IdCtaGanancia
             TipoMovto = True
@@ -327,7 +410,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
 
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Compras", CveConceptoContable, "Fluctuación Compras", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoCompras.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Proveedores Anticipos", CveConceptoContable, "Fluctuación Proveedores Anticipos", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoCompras.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
@@ -338,13 +421,13 @@ Partial Class Bancos_FluctuacionCambiaria
 
         If Not ErrorRegistrar Then
             'saco las cuentas de pérdida y ganancia
-            For Each gvr As GridViewRow In GvCompras.Rows
+            For Each gvr As GridViewRow In GvProveedores.Rows
                 Total = gvr.DataKey("Fluctuacion").ToDecimal
                 'si es pérdida o ganancia 
                 IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
 
                 'movimiento de complementaria
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
@@ -362,7 +445,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Not ErrorRegistrar Then
             Conta.Commit()
             BtnGeneraCompras.Visible = False
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
             Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -370,6 +453,86 @@ Partial Class Bancos_FluctuacionCambiaria
         Conta.Dispose()
     End Sub
 
+
+    Protected Sub BtnGeneraComprasAnt_Click(sender As Object, e As EventArgs)
+        Dim Total As Decimal = 0
+        Dim Conta As New ClsContabilidad
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoComprasAnt.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+        Dim idCta As Integer = 0
+
+        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
+        Dim idCtaPerdida, IdCtaGanancia As Integer
+
+        Dim TipoMovto As Boolean = False
+        Dim CveConceptoContable As Integer = 0
+        Dim IdCtaComplementaria As Integer = 0
+
+        Dim ErrorRegistrar As Boolean = False
+
+        CveCuentaPerdida = 0 '55379
+        CveCuentaGanancia = 0 ' 55382
+        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
+        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
+        Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
+
+        Total = LblTotal.ToDecimal
+        If Total > 0 Then
+            CveConceptoContable = 64
+            idCta = IdCtaGanancia
+            TipoMovto = True
+        Else
+            CveConceptoContable = 65
+            idCta = idCtaPerdida
+            TipoMovto = False
+        End If
+
+        Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
+
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Compras Anticipos", CveConceptoContable, "Fluctuación Proveedores Anticipos", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoComprasAnt.SelectedValue.ToEntero) Then
+            ErrorRegistrar = True
+        End If
+
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
+
+        If Not ErrorRegistrar Then
+            'saco las cuentas de pérdida y ganancia
+            For Each gvr As GridViewRow In GvProveedoresAnt.Rows
+                Total = gvr.DataKey("Fluctuacion").ToDecimal
+                'si es pérdida o ganancia 
+                IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
+
+                'movimiento de complementaria
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                    ErrorRegistrar = True
+                    Exit For
+                End If
+
+                If Not Conta.UpdateTCValuacion(-1, gvr.DataKey("CveCompra").ToEntero, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
+                    ErrorRegistrar = True
+                    Exit For
+                End If
+            Next
+
+            Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, CveBitacora, UsuarioActual.CveEmpresa)
+
+        End If
+
+        If Not ErrorRegistrar Then
+            Conta.Commit()
+            BtnGeneraComprasAnt.Visible = False
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+        Else
+            Conta.RollBack()
+            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
+        End If
+        Conta.Dispose()
+    End Sub
+
 #End Region
 
 #Region "FLUCTUACION VENTAS"
@@ -397,7 +560,7 @@ Partial Class Bancos_FluctuacionCambiaria
         ''
 
         Total = LblTotalVentas.Text.ToDecimal
-        If Total > 0 Then
+        If Total < 0 Then
             CveConceptoContable = 64
             CveCuenta = CveCuentaGanancia
             TipoMovto = True
@@ -441,6 +604,103 @@ Partial Class Bancos_FluctuacionCambiaria
                 CveConconceptoCliente = 203
             End If
 
+            'movimiento de complementaria
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
+
+            If Not Conta.UpdateTCValuacion(gvr.DataKey("CveVenta").ToEntero, -1, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
+
+        Next
+
+        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 3, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+
+        If Not ErrorRegistrar Then
+            Conta.Commit()
+            BtnGeneraVentas.Visible = False
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+
+        Else
+            Conta.RollBack()
+            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
+        End If
+        Conta.Dispose()
+    End Sub
+
+
+
+    Protected Sub BtnClientesAnticipos_Click(sender As Object, e As EventArgs)
+        Dim Total As Decimal = 0
+
+        Dim idCta As Integer = 0
+        Dim CveCuenta As Integer = 0
+        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
+        Dim idCtaPerdida, IdCtaGanancia As Integer
+        Dim TipoMovto As Boolean = False
+        Dim CveConceptoContable As Integer = 0
+        Dim IdCtaComplementaria As Integer = 0
+        Dim ErrorRegistrar As Boolean = False
+
+        CveCuentaPerdida = 0 '55379
+        CveCuentaGanancia = 0 ' 55382
+        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
+        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
+        Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
+
+        Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
+        ''
+
+        Total = LblTotalVentasAnt.Text.ToDecimal
+        If Total < 0 Then
+            CveConceptoContable = 64
+            CveCuenta = CveCuentaGanancia
+            TipoMovto = True
+            idCta = IdCtaGanancia
+        Else
+            CveConceptoContable = 65
+            CveCuenta = CveCuentaPerdida
+            idCta = idCtaPerdida
+            TipoMovto = False
+        End If
+
+        If Total = 0 Then
+            Alert("El Importe tiene que ser diferente a cero", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
+        Dim Conta As New ClsContabilidad
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoVentasAnt.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentasAnt.SelectedValue.ToEntero) Then
+            ErrorRegistrar = True
+        End If
+
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 4, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
+
+        Dim CveConconceptoCliente As Integer = 203
+
+        'saco las cuentas de pérdida y ganancia
+        For Each gvr As GridViewRow In GvClientesAnt.Rows
+            Total = gvr.DataKey("Fluctuacion").ToDecimal
+
+            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
+
+            If (gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0) OrElse (gvr.DataKey("CveVenta").ToEntero > 0 AndAlso gvr.DataKey("TipoDocto") = "Ant") Then
+                CveConconceptoCliente = 226
+            Else
+                CveConconceptoCliente = 203
+            End If
+
             'movimiento de complementaria
             If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                 ErrorRegistrar = True
@@ -454,20 +714,178 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Next
 
-        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 4, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             ErrorRegistrar = True
         End If
 
         If Not ErrorRegistrar Then
             Conta.Commit()
-            BtnGeneraVentas.Visible = False
+            BtnClientesAnticipos.Visible = False
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
 
         Else
             Conta.RollBack()
             Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
         End If
+        Conta.Dispose()
+    End Sub
+
+#End Region
+
+
+#Region "FLUCTUACION ACREEDORES"
+
+    Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)
+        RegistraFluctuacionAcreedores()
+    End Sub
+
+    Private Sub RegistraFluctuacionAcreedores(Optional Anticipos As Boolean = False)
+        Dim Total As Decimal = 0
+        Dim Conta As New ClsContabilidad
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim idCta As Integer = 0
+        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
+        Dim idCtaPerdida, IdCtaGanancia As Integer
+        Dim TipoMovto As Boolean = False
+        Dim CveConceptoContable As Integer = 0
+        Dim CveCuentaComplementaria As Integer = 55206
+        Dim IdCtaComplementaria As Integer = 1081
+        Dim ErrorRegistrar As Boolean = False
+
+        CveCuentaPerdida = 0 '55379
+        CveCuentaGanancia = 0 ' 55382
+        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
+        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
+        Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias 
+
+        Total = LblTotalAcreedores.Text.ToDecimal
+        If Total < 0 Then
+            CveConceptoContable = 64
+            idCta = IdCtaGanancia
+            TipoMovto = True
+        Else
+            CveConceptoContable = 65
+            idCta = idCtaPerdida
+            TipoMovto = False
+        End If
+
+        Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
+
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
+            ErrorRegistrar = True
+        End If
+
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 5, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
+
+        'saco las cuentas de pérdida y ganancia
+        For Each gvr As GridViewRow In GvAcreedores.Rows
+            Total = gvr.DataKey("Fluctuacion").ToDecimal
+            'si es pérdida o ganancia 
+            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
+
+            'movimiento de complementaria
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
+
+            If Not Conta.UpdateTCValuacion(-1, gvr.DataKey("CveCompra").ToEntero, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
+        Next
+
+        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa)
+
+        If Not ErrorRegistrar Then
+            Conta.Commit()
+            BtnGeneraAcreedores.Visible = False
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+        Else
+            Conta.RollBack()
+            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
+        End If
         Conta.Dispose()
+        Banco.Dispose()
+    End Sub
+
+
+    Protected Sub BtnGeneraAcreedoresAnt_Click(sender As Object, e As EventArgs)
+        Dim Total As Decimal = 0
+        Dim Conta As New ClsContabilidad
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedoresAnt.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim idCta As Integer = 0
+        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
+        Dim idCtaPerdida, IdCtaGanancia As Integer
+        Dim TipoMovto As Boolean = False
+        Dim CveConceptoContable As Integer = 0
+        Dim CveCuentaComplementaria As Integer = 55206
+        Dim IdCtaComplementaria As Integer = 1081
+        Dim ErrorRegistrar As Boolean = False
+
+        CveCuentaPerdida = 0 '55379
+        CveCuentaGanancia = 0 ' 55382
+        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
+        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
+        Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias 
+
+        Total = LblTotalAcreedoresAnt.Text.ToDecimal
+        If Total > 0 Then
+            CveConceptoContable = 64
+            idCta = IdCtaGanancia
+            TipoMovto = True
+        Else
+            CveConceptoContable = 65
+            idCta = idCtaPerdida
+            TipoMovto = False
+        End If
+
+        Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
+
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores Anticipos ", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoAcreeedoresAnt.SelectedValue.ToEntero) Then
+            ErrorRegistrar = True
+        End If
+
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 6, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        If CveBitacora <= 0 Then
+            ErrorRegistrar = True
+        End If
+
+        'saco las cuentas de pérdida y ganancia
+        For Each gvr As GridViewRow In GvAcreedoresAnt.Rows
+            Total = gvr.DataKey("Fluctuacion").ToDecimal
+            'si es pérdida o ganancia 
+            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
+
+            'movimiento de complementaria
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
+
+            If Not Conta.UpdateTCValuacion(-1, gvr.DataKey("CveCompra").ToEntero, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
+        Next
+
+        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 6, CveBitacora, UsuarioActual.CveEmpresa)
+
+        If Not ErrorRegistrar Then
+            Conta.Commit()
+            BtnGeneraAcreedoresAnt.Visible = False
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+        Else
+            Conta.RollBack()
+            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
+        End If
+        Conta.Dispose()
+        Banco.Dispose()
     End Sub
 
 #End Region
@@ -493,7 +911,6 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-
         CveCuentaPerdida = 0 ' 55379
         CveCuentaGanancia = 0 ' 55382
         idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
@@ -553,7 +970,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
             Conta.Commit()
             ObjContPaq.Commit()
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
             CargaDatosCuentas()
         Else
             Conta.RollBack()
@@ -628,7 +1045,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         If Not ErrorRegistrar Then
             Conta.Commit()
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
         End If
@@ -721,7 +1138,7 @@ Partial Class Bancos_FluctuacionCambiaria
             'Fin autoconta 
             Conta.Commit()
 
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
             ObjContPaq.RollBack()
@@ -733,116 +1150,9 @@ Partial Class Bancos_FluctuacionCambiaria
 
 #End Region
 
-#Region "FLUCTUACION ACREEDORES"
-
-    Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)
-
-        Dim Total As Decimal = 0
-        Dim Conta As New ClsContabilidad
-        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-        Dim idCta As Integer = 0
-        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
-        Dim idCtaPerdida, IdCtaGanancia As Integer
-        Dim TipoMovto As Boolean = False
-        Dim CveConceptoContable As Integer = 0
-        Dim CveCuentaComplementaria As Integer = 55206
-        Dim IdCtaComplementaria As Integer = 1081
-        Dim ErrorRegistrar As Boolean = False
-
-        CveCuentaPerdida = 0 '55379
-        CveCuentaGanancia = 0 ' 55382
-        idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
-        IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
-        Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
-
-
-        Total = LblTotalAcreedores.Text.ToDecimal
-        If Total > 0 Then
-            CveConceptoContable = 64
-            idCta = IdCtaGanancia
-            TipoMovto = True
-        Else
-            CveConceptoContable = 65
-            idCta = idCtaPerdida
-            TipoMovto = False
-        End If
-
-        Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
-
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
-            ErrorRegistrar = True
-        End If
-
-        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 6, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-        If CveBitacora <= 0 Then
-            ErrorRegistrar = True
-        End If
-
-        'saco las cuentas de pérdida y ganancia
-        For Each gvr As GridViewRow In GvAcreedores.Rows
-            Total = gvr.DataKey("Fluctuacion").ToDecimal
-            'si es pérdida o ganancia 
-            IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
-
-            'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
-                ErrorRegistrar = True
-                Exit For
-            End If
-
-            If Not Conta.UpdateTCValuacion(-1, gvr.DataKey("CveCompra").ToEntero, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
-                ErrorRegistrar = True
-                Exit For
-            End If
-        Next
-
-        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 6, CveBitacora, UsuarioActual.CveEmpresa)
-
-        If Not ErrorRegistrar Then
-            Conta.Commit()
-            BtnGeneraAcreedores.Visible = False
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
-        Else
-            Conta.RollBack()
-            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
-        End If
-        Conta.Dispose()
-        Banco.Dispose()
-    End Sub
-
-#End Region
-     
 #Region "GRIDVIEWS"
 
-    Protected Sub GvCompras_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompras.RowDataBound
+
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            'TipoCambio = e.Row.DBCampo("TipoCambio").ToString.ToDouble
-            'e.Row.FCLabel("LbTipoCambioActual").Text = TipoCambioActual.ToString
-            'e.Row.FCLabel("LbTipoCambio").Text = If(TipoCambio > 0, TipoCambio.ToString, "No hay TipoCambio")
-            'e.Row.FCLabel("LbFluctuacion").Text = If(TipoCambio > 0, ((TipoCambio - TipoCambioActual) * e.Row.DBCampo("Saldo").ToString.ToDouble).ToString.FormatoNumero, "No aplica")
-            'If e.Row.FCLabel("LbFluctuacion").Text = "No aplica" Then
-            '    e.Row.BackColor = Drawing.Color.LightSalmon
-            'ElseIf e.Row.FCLabel("LbFluctuacion").Text.ToDouble < 0 Then
-            '    e.Row.BackColor = Drawing.Color.LightGoldenrodYellow
-            'End If
-
-            'e.Row.FCHyperLink("HLProveedor").NavigateUrl = String.Format("/Compras/Proveedores.aspx?CveProveedor={0}", e.Row.DBCampo("CveProveedor").ToString.ToEntero)
-
-            'If Not e.Row.DBCampo("IdCtaContProveedores").ToString.ToEntero > 0 Then
-            '    e.Row.FCHyperLink("HLProveedor").ForeColor = Drawing.Color.Red
-            'End If
-
-
-            'If e.Row.DBCampo("Fluctuacion").ToString.ToDouble < 0 Then
-            '    e.Row.BackColor = Drawing.Color.LightGoldenrodYellow
-            'End If
-            'If e.Row.DBCampo("SinTipoCambio").ToString.ToEntero > 0 Then
-            '    e.Row.BackColor = Drawing.Color.LightSalmon
-            'End If
-        End If
-    End Sub
-
     Protected Sub GvCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCuentas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             'TipoCambio = e.Row.DBCampo("TipoCambio").ToString.ToDouble
@@ -885,6 +1195,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
+            BtnProveedoresRemove.visible = False 
             Alert("Flucturación eliminada.")
         Else
             Banco.RollBack()
@@ -893,12 +1204,41 @@ Partial Class Bancos_FluctuacionCambiaria
 
     End Sub
 
+    Protected Sub BtnProveedoresAntRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorAntCvePrePoliza.Value.ToEntero, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
+            BtnProveedoresAntRemove.Visible = False
+            Alert("Flucturación eliminada.")
+        Else
+            Banco.RollBack()
+        End If
+        Banco.Dispose()
+    End Sub
+
     Protected Sub BtnClientesRemove_Click(sender As Object, e As EventArgs)
         Dim Banco As New ClsBancos
         Banco.IniciaTransacSQL()
 
-        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteCvePrePoliza.Value.ToEntero, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteCvePrePoliza.Value.ToEntero, 3, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
+            BtnClientesRemove.Visible = False
+            Alert("Flucturación eliminada.")
+        Else
+            Banco.RollBack()
+        End If
+        Banco.Dispose()
+    End Sub
+
+    Protected Sub BtnClientesAntRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteAntCvePrePoliza.Value.ToEntero, 4, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
+            BtnClientesAntRemove.Visible = False
             Alert("Flucturación eliminada.")
         Else
             Banco.RollBack()
@@ -910,12 +1250,30 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Banco As New ClsBancos
         Banco.IniciaTransacSQL()
 
-        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorCvePrePoliza.Value.ToEntero, 6, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorCvePrePoliza.Value.ToEntero, 5, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
             Banco.Commit()
+            BtnAcreedoresRemove.Visible = False
             Alert("Flucturación eliminada.")
         Else
             Banco.RollBack()
         End If
         Banco.Dispose()
     End Sub
+
+
+    Protected Sub BtnAcreedoresAntRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorAntCvePrePoliza.Value.ToEntero, 6, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
+            BtnAcreedoresAntRemove.Visible = False
+            Alert("Flucturación eliminada.")
+        Else
+            Banco.RollBack()
+        End If
+        Banco.Dispose()
+    End Sub
+
+
 End Class

Bancos/IE.aspx

@@ -1053,8 +1053,8 @@
                                 <i class="fa fa-commenting font-green"></i>
                                 <span class="caption-subject bold">Agregar</span>
                             </div>--%>
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="false" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
 
                         </div>
                     </div>

Bancos/IE.aspx.vb

@@ -5489,10 +5489,14 @@ Partial Class Bancos_IE
 
             Dim DescripcionAus As String = TxtDescripcion.Text
 
-            If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento:{DdlTipoTransaccion.SelectedItem.Text}")
+            If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento: {DdlTipoTransaccion.SelectedItem.Text}")
+
+            DescripcionAus = $"{DescripcionAus},  Fecha Documento: {TxtFechaDocumento.Text} , Observaciones: {TxtObservaciones.Text} . "
+
             If DdlCuenta.SelectedItem.Text <> "Seleccione" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Cuenta:{DdlCuenta.SelectedItem.Text}")
             If TxtFolio.Text <> "" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Número:{TxtFolio.Text}")
             If TxtImporte.Text <> "" AndAlso TxtImporte.Text <> "0" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Importe:{TxtImporte.Text}")
+
             If DdlCliente.Visible Then
                 DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlCliente.SelectedText}")
             ElseIf DdlProveedores.Visible Then

Bancos/PopIEVentas.aspx.vb

@@ -728,10 +728,6 @@ Partial Class Bancos_PopIEVentas
                 TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                 CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 140 Then 'codigo temporal. RMF permite cargar el corte 
-                    CveCorte = dr("CveCorte").ToString.ToEntero
-                End If
-
                 LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
 
                 'Configuración de Modalidad Update
@@ -745,8 +741,6 @@ Partial Class Bancos_PopIEVentas
                     End If
                 End If
 
-
-
                 MovimientoPagar = New IEMovimiento
                 MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
                 MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
@@ -788,6 +782,10 @@ Partial Class Bancos_PopIEVentas
                     CargaCorteCaja()
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'toma como proridad el que viene de 
+                    CveCorte = dr("CveCorte").ToString.ToEntero
+                End If
+
                 If RFCCliente.ToUpper <> "XAXX010101000" Then
                     Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
 

Bancos/RepComplementoPago.aspx

@@ -177,10 +177,10 @@
                         </ItemTemplate>
                         <ItemStyle Width="5%" />
                     </asp:TemplateField>
-                    <asp:TemplateField Visible="false">
+                    <asp:TemplateField Visible="true">
                         <HeaderTemplate>Cancelar SAT</HeaderTemplate>
                         <ItemTemplate>
-                            <asp:LinkButton ID="LnkCancelarFolioFiscal" OnClick="LnkCancelaFolioFiscal" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" Visible="false" />
+                            <asp:LinkButton ID="LnkCancelarFolioFiscal" OnClick="LnkCancelaFolioFiscal" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"  Visible="false" />
                         </ItemTemplate>
                         <ItemStyle Width="5%" />
                     </asp:TemplateField>
@@ -189,7 +189,94 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+    <div id="ModalDivMail" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
 
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Correo</h4>
+                </div>
+                <div class="modal-body">
+                    <asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <asp:HiddenField ID="HdnSerieFolioPago" runat="server" ClientIDMode="Static" Value="-1" />
+                            <div class="row">
+                                <div class="col-xs-4">Para:</div>
+                                <div class="col-xs-8">
+                                    <asp:TextBox ID="TxtParaMail" runat="server" Width="370px" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
+                                </div>
+                            </div>
+                            <div class="row">
+                                <div class="col-xs-4">
+                                    Con copia para:<br />
+                                    (Separar con: ;)
+                                </div>
+                                <div class="col-xs-8">
+                                    <asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
+                                </div>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnSendMail" Text="Enviar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GrpEnviarEmail" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
+
+
+     <div id="ModalCancelacion" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Cancelar</h4>
+                </div>
+                <div class="modal-body">
+                    <asp:UpdatePanel ID="UpModalCancelacion" runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                            
+                            <div class="row">
+
+                                <div class="col-xs-4">Motivo de Cancelación:</div>
+                                <div class="col-xs-8">
+                                    
+                                    <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Width="80%" >
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" InitialValue="-1" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="El campo <b>''Motivo de Cancelación''</b> es requerido por la aplicación." ValidationGroup="GrpCancelacion"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VceRfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+
+                            </div>
+                           
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnCancelarComplemento" Text="Cancelar Complemento" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GrpCancelacion" OnClick="BtnCancelarComplemento_Click"
+                                data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si"  />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cerar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
 
 
 

Bancos/RepComplementoPago.aspx.vb

@@ -6,14 +6,89 @@ Imports Extensiones
 Imports GemBox.Spreadsheet
 
 Partial Class Bancos_RepComplementoPago
-    Inherits ClsPaginas
+    Inherits ClsPaginas
-
+
-    Private Sub Bancos_RepComplementoPago_Load(sender As Object, e As EventArgs) Handles Me.Load
+
-        If Not Page.IsPostBack Then
+#Region "C A N C E L A C I O N  DE  C O M P L E M E N T O S"
+
+    Private Property Can_FolioFiscalCancelar As String
+        Get
+
+            If ViewState("Can_FolioFiscalCancelar") Is Nothing Then
+                ViewState("Can_FolioFiscalCancelar") = ""
+            End If
+
+            Return ViewState("Can_FolioFiscalCancelar").ToString
+
+        End Get
+        Set(value As String)
+            ViewState("Can_FolioFiscalCancelar") = value
+        End Set
+    End Property
+
+
+    Private Property Can_CveComplementoPagoCancelar As Integer
+        Get
+
+            If ViewState("Can_CveComplementoPagoCancelar") Is Nothing Then
+                ViewState("Can_CveComplementoPagoCancelar") = ""
+            End If
+
+            Return ViewState("Can_CveComplementoPagoCancelar").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("Can_CveComplementoPagoCancelar") = value
+        End Set
+    End Property
+
+    Private Property Can_CvePACCancelacion As Integer
+        Get
+
+            If ViewState("Can_CvePACCancelacion") Is Nothing Then
+                ViewState("Can_CvePACCancelacion") = ""
+            End If
+
+            Return ViewState("Can_CvePACCancelacion").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("Can_CvePACCancelacion") = value
+        End Set
+    End Property
+
+    Private Property Can_RFCReceptorCancelar As String
+        Get
+
+            If ViewState("Can_RFCReceptorCancelar") Is Nothing Then
+                ViewState("Can_RFCReceptorCancelar") = ""
+            End If
+
+            Return ViewState("Can_RFCReceptorCancelar").ToString
+
+        End Get
+        Set(value As String)
+            ViewState("Can_RFCReceptorCancelar") = value
+        End Set
+    End Property
+
+
+
+#End Region
+
+    Private Sub Bancos_RepComplementoPago_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+
             txtFechaI.Text = $"{New DateTime(Now.Year, Now.Month, 1).ToString("dd/MM/yyyy")}"
             txtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy")
             DdlCliente.setEsWebService(True)
 
+            DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion = 2 or CveSATMotivoCancelacion = 3 ")
+            DdlMotivoCancelacion.DataBind()
+            DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
             Dim objGral As New ClsGralFolios
             If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then
                 If objGral.DtResultados.Rows.Count > 0 Then
@@ -150,9 +225,9 @@ Partial Class Bancos_RepComplementoPago
                         e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString)))
                         e.Row.FCLinkButton("LnkSendMail").Visible = True
 
-                        'If DdlOpcion.SelectedValue.ToEntero = 2 Then
+                        If DdlOpcion.SelectedValue.ToEntero = 2 Then
-                        '    e.Row.FCLinkButton("LnkCancelarFolioFiscal").Visible = True
+                            e.Row.FCLinkButton("LnkCancelarFolioFiscal").Visible = True
-                        'End If
+                        End If
 
                     End If
 
@@ -326,53 +401,18 @@ Partial Class Bancos_RepComplementoPago
 
     Protected Sub LnkCancelaFolioFiscal(sender As Object, e As EventArgs)
 
-        Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
+
-        Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
+        Can_FolioFiscalCancelar = Gvr.DataKey("FolioFiscalComplemento").ToString
-        Dim SerieFolioPago As String = Gvr.DataKey("SerieFolioPago").ToString
+        Can_CveComplementoPagoCancelar = Gvr.DataKey("CveComplementoPago").ToEntero
-        Dim FolioFiscalCancelar As String = Gvr.DataKey("FolioFiscalComplemento").ToString
+        Can_CvePACCancelacion = UsuarioActual.Empresa.CvePAC
-        Dim CveComplementoPagoCancelar As Integer = Gvr.DataKey("CveComplementoPago").ToEntero
+        Can_RFCReceptorCancelar = Gvr.DataKey("RFC").ToString
-        Dim CvePACCancelacion As Integer = UsuarioActual.Empresa.CvePAC
+
-        Dim RFCReceptorCancelar As String = Gvr.DataKey("RFC").ToString
+        DdlMotivoCancelacion.SelectedValueExist(-1)
-
+
-        If FolioFiscalCancelar <> "" Then
+        RegistraScript("$('#ModalCancelacion').modal('show');")
-            Dim ObjCancelacion As New Timbrado
-            Dim ObjBanco As New ClsBancos
-
-            If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
-
-                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
-
-                    Alert("El complemento se cancelo correctamente.")
-                End If
-
-            Else
-
-                If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
-
-                    If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
-
-                        Alert("El complemento se cancelo correctamente.")
-                    End If
-                Else
-                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
-                End If
-
-            End If
-
-            ObjBanco.Dispose()
-
-            'Dim objBancos As New ClsBancos
-
-            'If objBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, CFDIRelacionado, True) Then
-            '    Alert($"Complemento {SerieFolioPago} cancelado correctamente.")
-            'Else
-            '    Alert($"Se presento un error al cancelar el complementob {SerieFolioPago}.", TipoMensaje.MsgError)
-            'End If
-
-            'objBancos.Dispose()
-        End If
 
+        UpModalCancelacion.Update()
 
     End Sub
 
@@ -417,8 +457,6 @@ Partial Class Bancos_RepComplementoPago
 
     End Sub
 
-
-
     Private Sub Imprimir(Optional reporte As String = "PDF")
         If GvD.Rows.Count > 0 Then
             Dim StrFiltro As New StringBuilder
@@ -482,7 +520,6 @@ Partial Class Bancos_RepComplementoPago
                 worksheet.Columns("E").Width = 6000
                 worksheet.Columns("F").Width = 6000
                 worksheet.Columns("G").Width = 4000
-                worksheet.Columns("H").Width = 12000
 
                 For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
 
@@ -532,8 +569,57 @@ Partial Class Bancos_RepComplementoPago
     End Sub
 
 
+    Protected Sub BtnCancelarComplemento_Click(sender As Object, e As EventArgs)
+
+
+        Dim CveMotivoCancelacion As Integer = DdlMotivoCancelacion.SelectedValue.ToEntero
+        Dim CveSATMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
+
+        If CveMotivoCancelacion <= 0 Or CveSATMotivoCancelacion <= 0 Then
+            Alert("Debe de elegir un motivo de cancelación.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
 
 
+        Dim ErrorProceso As Boolean = True
 
+        If Can_FolioFiscalCancelar <> "" Then
+            Dim ObjCancelacion As New Timbrado
+            Dim ObjBanco As New ClsBancos
+
+            If EstatusSATCancelado(Can_FolioFiscalCancelar, UsuarioActual.Empresa.RFC, Can_RFCReceptorCancelar) Then
+
+                If ObjBanco.UpdateComplementoPago(Can_CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, Can_CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+                    Alert("El complemento se cancelo correctamente.")
+                    ErrorProceso = False
+                End If
+
+            Else
+
+                If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, Can_FolioFiscalCancelar, 0, Can_RFCReceptorCancelar, UsuarioActual.Empresa.RFC, Can_CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+
+                    If ObjBanco.UpdateComplementoPago(Can_CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, Can_CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+                        Alert("El complemento se cancelo correctamente.")
+                        ErrorProceso = False
+                    End If
+
+                Else
+                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
+                    ErrorProceso = True
+                End If
+
+            End If
+
+            ObjBanco.Dispose()
+        Else
+            ErrorProceso = False
+        End If
+
+        If Not ErrorProceso Then
+            RegistraScript("$('#ModalCancelacion').modal('hide');")
+        End If
+
+
+    End Sub
 End Class

Bin/roslyn/Microsoft.CSharp.Core.targets

@@ -19,7 +19,7 @@
                  @(_DebugSymbolsIntermediatePath);
                  $(NonExistentFile);
                  @(CustomAdditionalCompileOutputs)"
-          Returns=""
+          Returns="@(CscCommandLineArgs)"
           DependsOnTargets="$(CoreCompileDependsOn)"
     >
     <!-- These two compiler warnings are raised when a reference is bound to a different version
@@ -73,6 +73,7 @@
           ApplicationConfiguration="$(AppConfigForCompiler)"
           BaseAddress="$(BaseAddress)"
           CheckForOverflowUnderflow="$(CheckForOverflowUnderflow)"
+          ChecksumAlgorithm="$(ChecksumAlgorithm)"
           CodeAnalysisRuleSet="$(ResolvedCodeAnalysisRuleSet)"
           CodePage="$(CodePage)"
           DebugType="$(DebugType)"
@@ -85,6 +86,7 @@
           ErrorEndLocation="$(ErrorEndLocation)"
           ErrorLog="$(ErrorLog)"
           ErrorReport="$(ErrorReport)"
+          Features="$(Features)"
           FileAlignment="$(FileAlignment)"
           GenerateFullPaths="$(GenerateFullPaths)"
           HighEntropyVA="$(HighEntropyVA)"
@@ -99,15 +101,20 @@
           NoStandardLib="$(NoCompilerStandardLib)"
           NoWin32Manifest="$(NoWin32Manifest)"
           Optimize="$(Optimize)"
+          Deterministic="$(Deterministic)"
+          PublicSign="$(PublicSign)"
           OutputAssembly="@(IntermediateAssembly)"
           PdbFile="$(PdbFile)"
           Platform="$(PlatformTarget)"
           Prefer32Bit="$(Prefer32Bit)"
           PreferredUILang="$(PreferredUILang)"
+          ProvideCommandLineArgs="$(ProvideCommandLineArgs)"
           References="@(ReferencePath)"
           ReportAnalyzer="$(ReportAnalyzer)"
           Resources="@(_CoreCompileResourceInputs);@(CompiledLicenseFile)"
           ResponseFiles="$(CompilerResponseFile)"
+          RuntimeMetadataVersion="$(RuntimeMetadataVersion)"
+          SkipCompilerExecution="$(SkipCompilerExecution)"
           Sources="@(Compile)"
           SubsystemVersion="$(SubsystemVersion)"
           TargetType="$(OutputType)"
@@ -124,7 +131,10 @@
           Win32Icon="$(ApplicationIcon)"
           Win32Manifest="$(Win32Manifest)"
           Win32Resource="$(Win32Resource)"
-              />
+          PathMap="$(PathMap)"
+          >
+      <Output TaskParameter="CommandLineArgs" ItemName="CscCommandLineArgs" />
+    </Csc>
 
     <ItemGroup>
       <_CoreCompileResourceInputs Remove="@(_CoreCompileResourceInputs)" />

Bin/roslyn/Microsoft.VisualBasic.Core.targets

@@ -19,7 +19,7 @@
                  @(_DebugSymbolsIntermediatePath);
                  $(NonExistentFile);
                  @(CustomAdditionalCompileOutputs)"
-          Returns=""
+          Returns="@(VbcCommandLineArgs)"
           DependsOnTargets="$(CoreCompileDependsOn)"
     >
     <PropertyGroup>
@@ -59,6 +59,7 @@
           AdditionalFiles="@(AdditionalFiles)"
           Analyzers="@(Analyzer)"
           BaseAddress="$(BaseAddress)"
+          ChecksumAlgorithm="$(ChecksumAlgorithm)"
           CodeAnalysisRuleSet="$(ResolvedCodeAnalysisRuleSet)"
           CodePage="$(CodePage)"
           DebugType="$(DebugType)"
@@ -70,6 +71,7 @@
           EnvironmentVariables="$(VbcEnvironment)"
           ErrorLog="$(ErrorLog)"
           ErrorReport="$(ErrorReport)"
+          Features="$(Features)"
           FileAlignment="$(FileAlignment)"
           GenerateDocumentation="$(GenerateDocumentation)"
           HighEntropyVA="$(HighEntropyVA)"
@@ -86,6 +88,8 @@
           NoWarnings="$(_NoWarnings)"
           NoWin32Manifest="$(NoWin32Manifest)"
           Optimize="$(Optimize)"
+          Deterministic="$(Deterministic)"
+          PublicSign="$(PublicSign)"
           OptionCompare="$(OptionCompare)"
           OptionExplicit="$(OptionExplicit)"
           OptionInfer="$(OptionInfer)"
@@ -96,13 +100,16 @@
           Platform="$(PlatformTarget)"
           Prefer32Bit="$(Prefer32Bit)"
           PreferredUILang="$(PreferredUILang)"
+          ProvideCommandLineArgs="$(ProvideCommandLineArgs)"
           References="@(ReferencePath)"
           RemoveIntegerChecks="$(RemoveIntegerChecks)"
           ReportAnalyzer="$(ReportAnalyzer)"
           Resources="@(_CoreCompileResourceInputs);@(CompiledLicenseFile)"
           ResponseFiles="$(CompilerResponseFile)"
           RootNamespace="$(RootNamespace)"
+          RuntimeMetadataVersion="$(RuntimeMetadataVersion)"
           SdkPath="$(FrameworkPathOverride)"
+          SkipCompilerExecution="$(SkipCompilerExecution)"
           Sources="@(Compile)"
           SubsystemVersion="$(SubsystemVersion)"
           TargetCompactFramework="$(TargetCompactFramework)"
@@ -122,8 +129,10 @@
           Win32Manifest="$(Win32Manifest)"
           Win32Resource="$(Win32Resource)"
           VBRuntime="$(VBRuntime)"
-          />
+          PathMap="$(PathMap)"
-
+          >
+      <Output TaskParameter="CommandLineArgs" ItemName="VbcCommandLineArgs" />
+    </Vbc>
     <ItemGroup>
       <_CoreCompileResourceInputs Remove="@(_CoreCompileResourceInputs)" />
     </ItemGroup>

Bin/roslyn/VBCSCompiler.exe.config

@@ -5,6 +5,28 @@
   <runtime>
     <gcServer enabled="true"/>
     <gcConcurrent enabled="false"/>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.CodeAnalysis" publicKeyToken="31bf3856ad364e35" culture="neutral" />
+        <bindingRedirect oldVersion="1.0.0.0-1.3.1.0" newVersion="1.3.1.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.CodeAnalysis.CSharp" publicKeyToken="31bf3856ad364e35" culture="neutral" />
+        <bindingRedirect oldVersion="1.0.0.0-1.3.1.0" newVersion="1.3.1.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.CodeAnalysis.VisualBasic" publicKeyToken="31bf3856ad364e35" culture="neutral" />
+        <bindingRedirect oldVersion="1.0.0.0-1.3.1.0" newVersion="1.3.1.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Collections.Immutable" culture="neutral" publicKeyToken="b03f5f7f11d50a3a" />
+        <bindingRedirect oldVersion="1.1.0.0-1.1.65535.65535" newVersion="1.1.37.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Reflection.Metadata" culture="neutral" publicKeyToken="b03f5f7f11d50a3a" />
+        <bindingRedirect oldVersion="1.0.0.0-1.1.65535.65535" newVersion="1.2.0.0" />
+      </dependentAssembly>
+    </assemblyBinding>
   </runtime>
   <appSettings>
     <!-- Number of seconds with no activity before the server times out and closes. 

CRM/CatEmpresasCRM.aspx.cs

@@ -185,7 +185,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
             Archivo file = TxtExcel.getfiles().Archivos[0];
             string Directorio = Server.MapPath("~") + file.path;
 
-            DataTable dt = ReadExcelFile(Directorio + file.filename, true);
+            DataTable dt = ModExtensiones.ReadExcelFile(Directorio + file.filename, true);
             DataRowCollection Rows = dt.Rows;
             ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
             RequestMedioCaptacion RequestMedioCaptacion = new RequestMedioCaptacion(UsuarioActual.CveEmpresa);
@@ -291,51 +291,51 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
 
     }
 
-    private DataTable ReadExcelFile(string flatFilePath, bool firstRowHasHeaders)
+    //private DataTable ReadExcelFile(string flatFilePath, bool firstRowHasHeaders)
-    {
+    //{
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet());
+    //    SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet());
-        ExcelFile excelFile = ExcelFile.Load(flatFilePath);
+    //    ExcelFile excelFile = ExcelFile.Load(flatFilePath);
 
-        int unnamed = 0;
+    //    int unnamed = 0;
-        int cols;
+    //    int cols;
-        string[] columns;
+    //    string[] columns;
-        int curRow = 0;
+    //    int curRow = 0;
-        int curCol = 0;
+    //    int curCol = 0;
-        DataTable dataTable = new DataTable();
+    //    DataTable dataTable = new DataTable();
-        ExcelWorksheet worksheet = excelFile.Worksheets[0];
+    //    ExcelWorksheet worksheet = excelFile.Worksheets[0];
 
-        for (cols = 0; cols <= worksheet.Rows[0].AllocatedCells.Count - 1; cols++)
+    //    for (cols = 0; cols <= worksheet.Rows[0].AllocatedCells.Count - 1; cols++)
-        {
+    //    {
-            if (firstRowHasHeaders)
+    //        if (firstRowHasHeaders)
-            {
+    //        {
-                if (worksheet.Rows[0].Cells[cols].Value != null)
+    //            if (worksheet.Rows[0].Cells[cols].Value != null)
-                    dataTable.Columns.Add(worksheet.Rows[0].Cells[cols].Value.ToString().Trim());
+    //                dataTable.Columns.Add(worksheet.Rows[0].Cells[cols].Value.ToString().Trim());
-                else
+    //            else
-                    dataTable.Columns.Add("Unnamed Column " + (System.Threading.Interlocked.Increment(ref unnamed)));
+    //                dataTable.Columns.Add("Unnamed Column " + (System.Threading.Interlocked.Increment(ref unnamed)));
 
-                curRow = 1;
+    //            curRow = 1;
-            }
+    //        }
-            else
+    //        else
-                dataTable.Columns.Add("Column " + (cols + 1));
+    //            dataTable.Columns.Add("Column " + (cols + 1));
-        }
+    //    }
 
-        while (curRow < worksheet.Rows.Count)
+    //    while (curRow < worksheet.Rows.Count)
-        {
+    //    {
-            columns = new string[cols - 1 + 1];
+    //        columns = new string[cols - 1 + 1];
 
-            for (curCol = 0; curCol <= cols - 1; curCol++)
+    //        for (curCol = 0; curCol <= cols - 1; curCol++)
-            {
+    //        {
-                if (worksheet.Rows[curRow].Cells[curCol].Value == null)
+    //            if (worksheet.Rows[curRow].Cells[curCol].Value == null)
-                    columns[curCol] = "";
+    //                columns[curCol] = "";
-                else
+    //            else
-                    columns[curCol] = worksheet.Rows[curRow].Cells[curCol].Value.ToString();
+    //                columns[curCol] = worksheet.Rows[curRow].Cells[curCol].Value.ToString();
-            }
+    //        }
 
-            dataTable.Rows.Add(columns);
+    //        dataTable.Rows.Add(columns);
-            curRow += 1;
+    //        curRow += 1;
-        }
+    //    }
 
-        return dataTable;
+    //    return dataTable;
-    }
+    //}
 
 }

Compras/Compras.aspx

@@ -3102,8 +3102,8 @@
                                 <i class="fa fa-commenting font-green"></i>
                                 <span class="caption-subject bold">Agregar</span>
                             </div>--%>
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="false" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink><br />
+                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink><br />
                             <asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
                             <UserControl:TareaNueva runat="server" ID="TareaNueva" />
 

Compras/Compras.aspx.vb

@@ -2194,7 +2194,7 @@ Partial Class Compras_Compras
             DdlRetISRConcepto.Items.Clear()
             DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
             DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
-            If UsuarioActual.CveEmpresa = 119 Then
+            If UsuarioActual.CveEmpresa.Contiene(119, 7, 11, 12, 122, 145) Then
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
             End If
         End If
@@ -6282,7 +6282,7 @@ Partial Class Compras_Compras
                                                                         Funcionalidad = 313
                                                                         ConceptoContable = 248
                                                                     ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
-                                                                        Funcionalidad = 578
+                                                                        Funcionalidad = 577
                                                                         ConceptoContable = 285
                                                                     End If
 
@@ -6917,7 +6917,7 @@ Partial Class Compras_Compras
                                                                                 End If
 
 
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=TotalRealDevolucion * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, TotalRealDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             Else
@@ -8460,7 +8460,7 @@ Partial Class Compras_Compras
 
 
                                     'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                    If UsuarioActual.CveEmpresa.Contiene(1, 119) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
                                         If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
                                             Dim CvePreComprobacion As Integer
                                             If ObjCompras.DtResultados.Rows.Count = 0 Then

Compras/PopUpVerFactura.aspx.vb

@@ -431,10 +431,10 @@ Partial Class PopUpVerFactura
 
 
         Dim bcode As New BarcodeLib.Barcode()
-        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
+        ' Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
         Dim barcodebyte As Byte()
         Using ms = New MemoryStream()
-            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+            ' img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
             barcodebyte = ms.ToArray()
         End Using
         rowqr("ImagenByte") = barcodebyte

Compras/Proveedores.aspx

@@ -3050,7 +3050,7 @@
                                 <i class="fa fa-commenting font-green"></i>
                                 <span class="caption-subject bold">Agregar</span>
                             </div>--%>
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
                             <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Visible="false" Style="cursor: pointer; text-decoration: none;" ToolTip="Agendar"><i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' ></i>  <span class="caption-subject bold font-green">Agendar</span></asp:HyperLink>
 
                         </div>

Contabilidad/FiltraPolizas.aspx

@@ -157,7 +157,9 @@
                         </asp:TemplateField>
                         <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left">
                             <ItemTemplate>
-                                <asp:HyperLink ID="Hpl" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("Id", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>' runat="server" Text='<%# Eval("Folio")%>'></asp:HyperLink>
+                                
+                                <asp:HyperLink ID="Hpl" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("Id", " ")%>' runat="server" Text='<%# Eval("Folio")%>'></asp:HyperLink>
+
                             </ItemTemplate>
                             <ItemStyle Width="50px"></ItemStyle>
                         </asp:TemplateField>

Contabilidad/FiltraPolizas.aspx.vb

@@ -15,6 +15,7 @@ Partial Class Contabilidad_FiltraPolizas
             ViewState("DtDatos") = value
         End Set
     End Property
+
     Public Property Tick As String
         Get
             Return CType(ViewState("Tick"), String)
@@ -23,20 +24,47 @@ Partial Class Contabilidad_FiltraPolizas
             ViewState("Tick") = value
         End Set
     End Property
+
+
+    Public Property ContabilidadSIG As Boolean
+        Get
+            If ViewState("ContabilidadSIG") Is Nothing Then
+                ViewState("ContabilidadSIG") = False
+            End If
+
+            Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("ContabilidadSIG") = value
+        End Set
+    End Property
+
 #End Region
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+
+
         If Not Page.IsPostBack Then
+
+
+            ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
+
+
             ViewState("Orden") = ""
             DdlPeriodo.SelectedValue = Now.Month.ToString
             TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
             TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
-            If UsuarioActual.Empresa.UsaContabilidad Then
+
+            If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
+
                 CargaSegmentoNeg()
                 CargaEjercicios()
-                CargaDatos()
+                'CargaDatos()
                 CargaGvBitacora()
+
             Else
                 Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
                 BtnConsultar.Enabled = False
@@ -55,50 +83,110 @@ Partial Class Contabilidad_FiltraPolizas
         End If
     End Sub
     Public Sub CargaDatos()
+
         Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
         Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+
-            DtDatos = ObjConta.DtResultados
+
-            Gv.DataSource = ObjConta.DtResultados
+
-            'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
+        If ContabilidadSIG Then
-            '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+
-            '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+            Dim ObjConta As New ClsContabilidad
-            'Else
+
-            '    ViewState("DTPolizas") = ObjConta.DtResultados
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
-            '    DtDatos = ObjConta.DtResultados
+                DtDatos = ObjConta.DtResultados
-            'End If
+                Gv.DataSource = ObjConta.DtResultados
+            Else
+                Gv.DataSource = Nothing
+            End If
+
+            ObjConta.Dispose()
+
+
+        Else
+
+            Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                DtDatos = ObjConta.DtResultados
+                Gv.DataSource = ObjConta.DtResultados
+                'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
+                '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+                '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+                'Else
+                '    ViewState("DTPolizas") = ObjConta.DtResultados
+                '    DtDatos = ObjConta.DtResultados
+                'End If
+            Else
+                Gv.DataSource = Nothing
+            End If
+
+            ObjConta.Dispose()
 
         End If
 
-        Gv.DataBind()
 
-        ObjConta.Dispose()
+
+        Gv.DataBind()
         UpDatos.Update()
     End Sub
 
     Private Sub CargaSegmentoNeg()
-        Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
+
-        If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
+        DdlSegmentoNeg.Items.Clear()
-            DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
+
-            DdlSegmentoNeg.DataBind()
+        If ContabilidadSIG Then
+            DdlSegmentoNeg.DataValueField = "CveSubProyecto"
+            DdlSegmentoNeg.DataTextField = "SubProyecto"
+            DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        Else
+            DdlSegmentoNeg.DataValueField = "Id"
+            DdlSegmentoNeg.DataTextField = "Nombre"
+
+            Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
+                DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
+            End If
+            ObjContPAQ.Dispose()
+
         End If
-        ObjContPAQ.Dispose()
+
+
+        DdlSegmentoNeg.DataBind()
         DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
     Private Sub CargaEjercicios()
-        Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ClsConta.GetEjercicios() Then
-            DdlEjercicio.DataSource = ClsConta.DtResultados
-        Else
-            DdlEjercicio.DataSource = Nothing
-        End If
-        ClsConta.Dispose()
-        DdlEjercicio.DataBind()
 
+        DdlEjercicio.Items.Clear()
+
+        If ContabilidadSIG Then
+
+            Dim ObjConta As New ClsContabilidad
+
+            If ObjConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+                DdlEjercicio.DataSource = ObjConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+            ObjConta.Dispose()
+
+        Else
+            Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ClsConta.GetEjercicios() Then
+                DdlEjercicio.DataSource = ClsConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+            ClsConta.Dispose()
+
+        End If
+
+
+        DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
+
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -526,12 +614,18 @@ Partial Class Contabilidad_FiltraPolizas
     End Function
 
     Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Gv.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
-            'If e.Row.DataKey("Comprobante").ToString <> "" AndAlso e.Row.DataKey("Comprobante").ToString IsNot Nothing Then
+
-            '    e.Row.FCCheckBox("ChkPoliza").Enabled = True
+            If ContabilidadSIG Then
-            'Else
+
-            '    e.Row.FCCheckBox("ChkPoliza").ToolTip = "No se tiene cargado comprobante de pago"
+                e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
-            'End If
+                e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
+
+            End If
+
+
+
         End If
     End Sub
 

Contabilidad/PolizasImpresion.aspx

@@ -73,7 +73,9 @@
                     <div class="col-md-2 ">
                         <asp:DropDownList ID="DdlUsuarioRegistro" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
                     </div>
-                    <label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">Segmento de Neg.:</label>
+                    <asp:Label runat="server" ID="LblSegmentoNegocio" class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">
+                        Segmento de Neg.:
+                    </asp:Label>
                     <div class="col-md-2 ">
                         <asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
                     </div>

Contabilidad/PolizasImpresion.aspx.vb

@@ -10,19 +10,173 @@ Partial Class Contabilidad_PolizasImpresion
     Inherits ClsPaginas
 
 
+
+    Public Property ContabilidadSIG As Boolean
+        Get
+            If ViewState("ContabilidadSIG") Is Nothing Then
+                ViewState("ContabilidadSIG") = False
+            End If
+
+            Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("ContabilidadSIG") = value
+        End Set
+    End Property
+
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
+
         If Not IsPostBack Then
+
+            ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
+
             TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
             TxtFechaFin.Text = Now.ToShortDateString
 
             DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
             DdlUsuarioRegistro.DataBind()
-            cargaddlpolizas()
+
-            CargaSegmentoNeg()
+
-            cargaCuentas()
+            If ContabilidadSIG Then
+                cargaddlpolizasSIG()
+                CargaSubProyectosSIG()
+                CargaCuentasSIG()
+
+                CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSegmentoNegocio)
+                LblSegmentoNegocio.Attributes.Add("title", LblSegmentoNegocio.Text)
+
+            Else
+                cargaddlpolizas()
+                CargaSegmentoNeg()
+                CargaCuentas()
+            End If
+
+
+
         End If
+
     End Sub
     Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
+
+        If ContabilidadSIG Then
+            ConsultaSIIG()
+        Else
+            ConsultaCONTPAQi()
+        End If
+
+    End Sub
+
+
+
+#Region "SIIG"
+
+    Private Sub ConsultaSIIG()
+
+        Dim foli As Integer = -1
+        Dim folf As Integer = -1
+        If Not FolioInicio.Text = "" Then
+            foli = FolioInicio.Text.ToEntero()
+        End If
+        If Not FolioFin.Text = "" Then
+            folf = FolioFin.Text.ToEntero()
+        End If
+
+        Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc"
+
+        If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then
+            ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
+        End If
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
+                                           FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSegmentoNeg.SelectedValue.ToEntero,
+                                           CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
+                                           CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
+            If ObjConta.DtResultados.Rows.Count < 10000 Then
+
+                If ObjConta.DtResultados.Rows.Count > 0 Then
+                    Dim dr As DataRow
+                    dr = ObjConta.DtResultados.Rows(0)
+                    Dim params As New List(Of ReportParameter)
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
+                    params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
+                    params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
+                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+                    'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
+                    'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
+                    params.Add(New ReportParameter("Numero", dr("Folio").ToString))
+                    params.Add(New ReportParameter("Moneda", ""))
+                    params.Add(New ReportParameter("CodigoPostal", ""))
+
+                    If UsuarioActual.CveEmpresa = 119 Then
+                        params.Add(New ReportParameter("UsuarioRegistro", dr("NombreUsuario").ToString))
+                    End If
+
+                    ImprimirPDF(ArchivoReporte, ObjConta.DtResultados, params)
+
+                Else
+                    Alert("Los Filtros Actuales no contienen datos")
+                End If
+
+            Else
+                Alert("Los Filtros Actuales contienen muchos datos")
+            End If
+        End If
+        ObjConta.Dispose()
+
+    End Sub
+
+
+
+    Private Sub cargaddlpolizasSIG()
+        Dim objcont As New ClsContabilidad
+        If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
+            ddlTipoPoliza.DataSource = objcont.DtResultados
+            ddlTipoPoliza.DataBind()
+            ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        End If
+        objcont.Dispose()
+        DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaSubProyectosSIG()
+
+        DdlSegmentoNeg.DataValueField = "CveSubProyecto"
+        DdlSegmentoNeg.DataTextField = "SubProyecto"
+
+        DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSegmentoNeg.DataBind()
+        DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
+    End Sub
+
+    Private Sub CargaCuentasSIG()
+
+        DdlCuenta.DataValueField = "CveCuenta"
+        DdlCuenta.DataTextField = "CtaCodigo"
+
+
+
+        Dim objconta As New ClsContabilidad
+        If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlCuenta.DataSource = objconta.DtResultados
+        End If
+        objconta.Dispose()
+        DdlCuenta.DataBind()
+
+        DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+
+
+#End Region
+
+#Region "CONTPAQi"
+    Private Sub ConsultaCONTPAQi()
         Dim foli As Integer = -1
         Dim folf As Integer = -1
         If Not FolioInicio.Text = "" Then
@@ -73,8 +227,8 @@ Partial Class Contabilidad_PolizasImpresion
             End If
         End If
         objcont.Dispose()
-
     End Sub
+
     Private Sub cargaddlpolizas()
         Dim objcont As New ClsContPAQi(UsuarioActual.Empresa)
         If objcont.GetTiposPoliza(-1, "-1") Then
@@ -119,5 +273,10 @@ Partial Class Contabilidad_PolizasImpresion
             DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
     End Sub
+#End Region
+
+
+
+
 
 End Class

Contabilidad/RegPoliza.aspx

@@ -56,24 +56,29 @@
     Pólizas
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <%--<asp:LinkButton ID="LBImprimir" OnClick="LBImprimir_Click" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>--%>
-        <asp:HyperLink ID="HLImprimir" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-print" style="color: #686868;"></i> Imprimir</asp:HyperLink>
-    </li>
-    <li>
-        <asp:LinkButton ID="LBDevIVA" OnClick="LBDevIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Agregar movtos de IVA</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="LBCauIVA" OnClick="LBCauIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Causaciones IVA</asp:LinkButton>
-    </li>
 
-    <li>
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >     
-        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Movimientos</asp:HyperLink>
+        <ContentTemplate>
-    </li>
+            <li>
+                <asp:HyperLink ID="HLImprimir" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-print" style="color: #686868;"></i> Imprimir</asp:HyperLink>
+            </li>
+            <li>
+                <asp:LinkButton ID="LBDevIVA" OnClick="LBDevIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Agregar movtos de IVA</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LBCauIVA" OnClick="LBCauIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Causaciones IVA</asp:LinkButton>
+            </li>
+
+            <li>
+                <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Movimientos</asp:HyperLink>
+            </li>
+        </ContentTemplate>
+   
+    </asp:UpdatePanel>
+
+
+
 
-    <li>
-        <asp:Button ID="Button1" runat="server" Text="Button" Visible="False" />
-    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 

Contabilidad/RegPoliza.aspx.vb

@@ -937,7 +937,7 @@ Partial Class RegPoliza
 
 
                 Dim dr As DataRow = DT.Rows(0)
-                HLImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}"))
+                HLImprimir.PostBackUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}"))
                 HLImprimir.Visible = True
 
                 TxtFechaPoliza.Text = dr("FechaPol").ToString.ToDate.ToShortDateString
@@ -1012,6 +1012,7 @@ Partial Class RegPoliza
         CargaGrid()
         upTitulos.Update()
         upDatos.Update()
+        UpAcciones.Update()
 
         If DT IsNot Nothing Then DT.Dispose()
     End Sub

Contabilidad/RegPrePolizaS.aspx

@@ -231,11 +231,7 @@
                             <label class="col-md-1">Contabilizada:</label>
                             <div class="col-md-2">
                                 <asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink>
-                            </div>
+                            </div>                             
-                            <label class="col-md-1">Folio:</label>
-                            <div class="col-md-1">
-                                <asp:Label ID="LblFolio" Font-Bold="true" Font-Size="Large" runat="server"></asp:Label>
-                            </div>
                         </div>
 
                         <div class="row" visible="false" runat="server" id="DivTipoGasto">
@@ -713,7 +709,7 @@
                         <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
                         <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                         <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
-                        <%--<asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />--%>
+                         <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" /> 
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>

Contabilidad/RepIVA.aspx

@@ -146,7 +146,7 @@
                                     <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                     <asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                     <asp:BoundField HeaderText="RetIVA Serv" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                                    <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />                                   
                                     <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                      
                                     <asp:TemplateField HeaderText="Fecha Pago">
@@ -232,6 +232,7 @@
 
                                 <asp:BoundField HeaderText="RetISR <br/> Honorario" HtmlEncode="False" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />                               
+                                <asp:BoundField HeaderText="RetISR <br/> Resico" HtmlEncode="False" DataField="RetISRResico" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="T.C.P." DataField="TipoCambioPago" DataFormatString="{0:##.####}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Total ME." DataField="TotalME" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -72,7 +72,7 @@ Partial Class Contabilidad2_CatContaEjercicios
         Dim ObjConta As New ClsContabilidad
         Dim errorString As String = ""
         If LbAgregar.Text = "Agregar" Then
-            If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
+            If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
                                               PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
                 errorString = "Error al agregar"
             End If

Contabilidad2/PolizasImpresion.aspx.vb

@@ -39,7 +39,7 @@ Partial Class Contabilidad2_PolizasImpresion
         End If
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
+        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
                                            FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
                                            CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
                                            CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then

Contratos/Contrato.aspx

@@ -2097,8 +2097,8 @@
                                 </div>
                                 <div class="actions">
                                     <div class="btn-group">
-                                        <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                                        <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                                        <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="true" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                                        <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i>Agendar" Visible="true" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
                                     </div>
                                 </div>
                             </div>

Contratos/ContratoObra.aspx

@@ -2251,8 +2251,8 @@
                                 </div>
                                 <div class="actions">
                                     <div class="btn-group">
-                                        <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                                        <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green'></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                                        <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="true" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                                        <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="true" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
                                     </div>
                                 </div>
                             </div>

Contratos/ContratoObraAutorizacion.aspx

@@ -160,8 +160,7 @@
                 <div class="col-md-12">
                     <div class="text-center">
 
-                        <asp:Button ID="BtnAutoriza" CssClass="btn btn-primary" runat="server" Text="Autorizar" Visible="false" OnClick="BtnAutoriza_Click" />
+                        <asp:Button ID="BtnAutoriza" CssClass="btn btn-primary" runat="server" Text="Autorizar" Visible="false" OnClick="BtnAutoriza_Click" />                        
-                        <asp:Button ID="BtnGuardarEstimacion" CssClass="btn btn-primary" runat="server" Text="Generar Estimacion" Visible="false" />
                         <asp:Button ID="BtnDescargarGenerado" CssClass="btn btn-primary" runat="server" Text="Descarga Generador" Visible="false" />
 
                     </div>

Contratos/ContratoObraAutorizacion.aspx.vb

@@ -221,11 +221,9 @@ Partial Class Contratos_ContratoObraAutorizacion
 
         If DTEstimaciones.Rows.Count > 0 Then
             GvEstimaciones.DataSource = DTEstimaciones
-            ' BtnGuardarEstimacion.Visible = True
             BtnAutoriza.Visible = True
         Else
             GvEstimaciones.DataSource = Nothing
-            BtnGuardarEstimacion.Visible = False
         End If
         GvEstimaciones.DataBind()
 
@@ -271,56 +269,6 @@ Partial Class Contratos_ContratoObraAutorizacion
 
     End Sub
 
-    Private Sub BtnGuardarEstimacion_Click(sender As Object, e As EventArgs) Handles BtnGuardarEstimacion.Click
-
-        CveEstimacionNueva = -1
-        NuemeroEstimacionNuevo = -1
-
-        Dim ObjContratos As New ClsContratos()
-        Dim ErrorProceso As Boolean = False
-
-        ObjContratos.IniciaTransacSQL()
-
-
-        If ObjContratos.AddContratosAvanceEstimacion(CveContratoEstimacion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-
-            CveEstimacionNueva = ObjContratos.CveEstimacionNueva
-            NuemeroEstimacionNuevo = ObjContratos.NumeroEstimacionNueva
-
-            For Each GvRow As GridViewRow In GvEstimaciones.Rows
-
-                If GvRow.DataKey("CveContratoAvance").ToEntero > 0 Then
-                    If Not ObjContratos.UpdateContratosAvanceEstimacion(GvRow.DataKey("CveContratoAvance").ToEntero, ObjContratos.CveEstimacionNueva, UsuarioActual.CveEmpresa) Then
-                        ErrorProceso = True
-                        Exit For
-                    End If
-                End If
-            Next
-
-        Else
-            ErrorProceso = True
-        End If
-
-        'AddContratosAvanceEstimacion
-        'UpdateContratosAvanceEstimacion
-
-
-
-        If Not ErrorProceso Then
-            ObjContratos.Commit()
-            Alert($"Estimación {NuemeroEstimacionNuevo} agregada correctamente.")
-
-            BtnGuardarEstimacion.Visible = False
-            BtnDescargarGenerado.Visible = True
-
-        Else
-            ObjContratos.RollBack()
-        End If
-
-        ObjContratos.Dispose()
-
-        UpEstimaciones.Update()
-    End Sub
 
     Private Sub BtnDescargarGenerado_Click(sender As Object, e As EventArgs) Handles BtnDescargarGenerado.Click
 

Documentacion/TableroMaterialidad.aspx

@@ -15,6 +15,18 @@
         .spanfoliofiscal {
             white-space: nowrap;
         }
+        th.Modulo5{
+            color:#fff;
+            background-color:darksalmon;
+        }
+        th.Modulo6{
+            color:#fff;
+            background-color:#67809f;
+        }
+        th.Modulo7{
+            color:#fff;
+            background-color:purple;
+        }
         th:not(.Modulo5) + th.Modulo5,
         th:not(.Modulo6) + th.Modulo6,
         th:not(.Modulo7) + th.Modulo7{

Inventarios/Apartados.aspx.vb

@@ -183,12 +183,7 @@ Partial Class Inventarios_Apartados
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
 
-
+        DdlVendedorDesapartado.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, Estatus:=-1)
-        Dim DTVendedores As New DataTable
-        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
-        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
-
-        DdlVendedorDesapartado.DataSource = DTVendedores
         DdlVendedorDesapartado.DataBind()
         DdlVendedorDesapartado.Items.Insert(0, New ListItem(" Todos ", "-1"))
 

Inventarios/CartaPorteManual.aspx

@@ -237,7 +237,7 @@
                                                 <label class="col-md-3">Configuración:</label>
                                                 <div class="col-md-9">
                                                     <%--<asp:DropDownList runat="server" ID="DropDownList1" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveActivoFijo" DataTextField="CodigoDescripcion"></asp:DropDownList>--%>
-                                                     <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte" Style="padding: 0px">                                
+                                                     <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="CveConfigAutoTransporte" Style="padding: 0px">                                
                                                      </asp:DropDownList>
                                                     <asp:RequiredFieldValidator ID="RfvDdlConfigAuto" runat="server" Enabled="false" ControlToValidate="DdlConfigAuto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Configuración Carta Porte''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCERfvDdlConfigAuto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlConfigAuto" Width="350px"></ajax:ValidatorCalloutExtender>

Inventarios/CartaPorteManual.aspx.vb

@@ -562,7 +562,7 @@ Partial Class Inventarios_CartaPorteManual
         Dim FechallegadaMM As DateTime = (FechaLlegada.ToString("dd/MM/yyyy") & " 23:59:59").ToDateTime
 
         Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero, CveDireccionOrigen, CveDireccionDestino, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, FechaSalida, FechallegadaMM, "T", "-1", "-1", FechaLlegada, 1, 1, TxtDistancia.Text.ToEntero,
-                                                                            ConfigCartaPorte:=DdlConfigAuto.SelectedValue, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
+                                                                            CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
 
         If CveEntregaAlmacen > 0 Then
 
@@ -1398,7 +1398,7 @@ Partial Class Inventarios_CartaPorteManual
             Using ObjInv As New ClsInventarios
 
                 If ObjInv.GetCamiones(DdlUnidadCamion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1) Then
-                    DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("ConfigCartaPorte"))
+                    DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("CveConfigAutoTransporte"))
                     DdlConfigAuto_SelectedIndexChanged(Nothing, Nothing)
                 End If
 
@@ -1454,11 +1454,11 @@ Partial Class Inventarios_CartaPorteManual
         DdlRemolque1.SelectedValueExist(-1)
         DdlRemolque2.SelectedValueExist(-1)
 
-        If DdlConfigAuto.SelectedIndex > 0 Then
+        If DdlConfigAuto.SelectedValue.ToEntero > 0 Then
 
             Using ObjGrales As New ClsGenerales
                 If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
-                    Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" ClaveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue}'")
+                    Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue}'")
 
 
                     If Remolque = "1" Then

Inventarios/CatUnidades.aspx

@@ -31,12 +31,12 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
                 EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Unidad" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Placa" DataField="Placa" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Config Carta Porte" DataField="ConfigCartaPorte" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Config Carta Porte" DataField="ClaveConfigAutoTransporte" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Tipo Permiso SCT" DataField="ClaveTipoPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Permiso SCT" DataField="NumPermisoSCT" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Aseguradora" DataField="NombreAseguradora" ItemStyle-HorizontalAlign="Left" />
@@ -124,7 +124,7 @@
 
 
                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DVConfigAuto">
-                            <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte" Style="padding: 0px">
+                            <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="CveConfigAutoTransporte" Style="padding: 0px">
                             </asp:DropDownList>
                             <label for="<%= DdlConfigAuto.ClientID.ToString()%>">Configuración Carta Porte:</label>
                             <asp:RequiredFieldValidator ID="RfvDdlConfigAuto" runat="server" ControlToValidate="DdlConfigAuto" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Configuración Carta Porte''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>

Inventarios/CatUnidades.aspx.vb

@@ -125,7 +125,7 @@ Partial Class Inventarios_CatUnidades
         TxtPlacaNuevo.Text = GvRow.DataKey("Placa")
         TxtEspecificacionNuevo.Text = GvRow.DataKey("Especificacion")
 
-        DdlConfigAuto.SelectedValueExist(GvRow.DataKey("ConfigCartaPorte"))
+        DdlConfigAuto.SelectedValueExist(GvRow.DataKey("CveConfigAutoTransporte"))
 
         TxtAnio.Text = GvRow.DataKey("Anio")
         DdlTipoPermisoSCT.SelectedValueExist(GvRow.DataKey("CveTipoPermisoSCT"))
@@ -197,14 +197,14 @@ Partial Class Inventarios_CatUnidades
         Using ObjInventarios As New ClsInventarios
 
             If CveCamion <= 0 Then
-                If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
+                If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
                                               TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text) Then
                     Alert("Unidad agregada correctamente")
                 Else
                     ErrorPrceso = True
                 End If
             Else
-                If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                  TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text) Then
                     Alert("Unidad actualizada correctamente")
                 Else

Inventarios/EntradasSalidas.aspx

@@ -813,8 +813,8 @@
                             </div>
                             <div class="actions">
                                 <div class="btn-group">
-                                    <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                                    <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                                    <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="false" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                                    <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
 
                                 </div>
                             </div>

Inventarios/EntradasSalidas.aspx.vb

@@ -1345,7 +1345,7 @@ Partial Class Inventarios_EntradasSalidas
             tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
         End If
 
-        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
             FechaCaducidadVal = MinFecha
             FechaCaducidad = MinFecha
             Lote = ""
@@ -2116,8 +2116,6 @@ Partial Class Inventarios_EntradasSalidas
             filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
         Else
 
-
-
             filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12, 135), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen)
 
         End If
@@ -2160,6 +2158,14 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34"))
         End If
 
+        ' RECEPCION USADOS
+        If CveTipoAlmacen = 22 Then
+            If DdlConcepto.Items.FindByValue("3") Is Nothing Then
+                DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Salida Almacen ", "3"))
+            End If
+
+        End If
+
         '[IPP]: PARCHE PARA JAM
         If UsuarioActual.CveEmpresa = 119 And CveTipoAlmacen.Contiene(4, 8, 16) Then
             If DdlConcepto.Items.FindByValue("2") Is Nothing Then
@@ -2212,20 +2218,14 @@ Partial Class Inventarios_EntradasSalidas
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35"))
 
             End If
-
-
-
         End If
 
-
         If UsuarioActual.CveUsuario.Contiene(2185, 100) Then
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
             DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
 
         End If
 
-
-
         DdlConcepto.SelectedValue = "-1"
         ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty)
 
@@ -4475,7 +4475,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                     AplicaLote = False
                     AplicaCaducidad = False
                 End If
@@ -4517,7 +4517,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                     AplicaLote = False
                     AplicaCaducidad = False
                 End If

Inventarios/EntregaAlmacen.aspx

@@ -345,8 +345,16 @@
                             <div class="portlet light xspadding bordered">
                                 <div class="portlet-title">
                                     <div class="caption font-green">
-                                        <i class="icon-pin font-green"></i>
+                                         
-                                        <span class="caption-subject bold uppercase">Ventas por surtir</span>
+                                                  <i class="icon-pin font-green"></i>
+                                                <span class="caption-subject bold uppercase">Ventas por surtir</span>
+                                             
+                                                 <code style="font-family: Menlo,Monaco,Consolas,'Courier New',monospace; font-size: 10px">
+                                                <asp:Literal Text="" runat="server" ID="LtActualizado" />
+                                            </code>
+                                              
+                                        
+                                            &nbsp
                                     </div>
                                     <div class="actions">
                                         <div class="btn-group">
@@ -355,10 +363,7 @@
                                     <div class="tools">
                                         <asp:Panel runat="server" DefaultButton="BtnConsultarPendientes">
 
-                                            <code>
+                                           
-                                                <asp:Literal Text="" runat="server" ID="LtActualizado" />
-                                            </code>
-                                            &nbsp
                                             <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 70px;" />
                                             <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                             &nbsp

Inventarios/EntregaAlmacen.aspx.vb

@@ -670,7 +670,7 @@ Partial Class Inventarios_EntregaAlmacen
                     If UsuarioActual.CveEmpresa = 119 Then
                         Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
 
-                        If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                        If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                             ValidaLoteCaducidad = True
                         Else
                             ValidaLoteCaducidad = False

Inventarios/EntregaAlmacenRuta.aspx

@@ -147,8 +147,8 @@
                                         </div>
                                     </div>              
                                     <div class="col-md-2 form-group form-md-line-input input-iconright" runat="server" id="DvCartaPorte2" visible="false">
-                                        <asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" Text="Carta Porte"  />
+                                        <asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" Text="Carta Porte" Checked="true"  />
-                                        <label for="<%= ChkEmitirCartaPorte.ClientID.ToString()%>"> Emitir:</label>
+                                        <label for="<%= ChkEmitirCartaPorte.ClientID.ToString()%>"></label>
                                          <i></i>
                                     </div>
                                     <div class="col-md-1" runat="server" id="DVDatosEntrega7">

Inventarios/InventarioFisico.aspx.vb

@@ -104,7 +104,7 @@ Partial Class Inventarios_InventarioFisico
         Dim Inventario As New ClsInventarios
         Dim dt As New DataTable
 
-        If Inventario.GetInventarioFisico(-1, CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero) Then
+        If Inventario.GetInventarioFisico(-1, CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
             dt = Inventario.DtResultados
         End If
         Inventario.Dispose()
@@ -823,7 +823,7 @@ Partial Class Inventarios_InventarioFisico
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
         Dim ObjInventario As New ClsInventarios
-        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue) Then
+        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue, UsuarioActual.CveUsuario) Then
             gvIF.DataSource = ObjInventario.DtResultados
             gvIF.DataBind()
             gvIF.Columns(1).HeaderText = LblSubProyecto.Text

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -99,7 +99,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
         Dim ObjInventario As New ClsInventarios
 
-        If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+        If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
             Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
             Select Case CveEstatus
                 Case "0" 'NUEVO

Inventarios/RecepcionAlmacen.aspx

@@ -409,7 +409,7 @@
                                             </div>
                                             <%--                                    <div class="actions">
                                         <div class="btn-group">
-                                            <asp:HyperLink ID="ImgAddDoc" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacoraDoc" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Documentos"></asp:HyperLink><br />
+                                            <asp:HyperLink ID="ImgAddDoc" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacoraDoc" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Documentos"></asp:HyperLink><br />
                                         </div>
                                     </div>--%>
                                         </div>
@@ -723,8 +723,8 @@
                     </div>
                     <div class="actions">
                         <div class="btn-group">
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ></i><span class='caption-subject bold'>Agregar</span>" Style="cursor: pointer;font-weight: 700 !important;" ToolTip="Observaciones"></asp:HyperLink><br />
-                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="false" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' ></i>Agendar" Visible="false" Style="cursor: pointer;font-weight: 700 !important;" ToolTip="Agendar"></asp:HyperLink>
 
                         </div>
                     </div>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -559,7 +559,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
             Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
             'RMF condición temporal
-            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                 ValidaLoteCaducidad = True
             Else
                 ValidaLoteCaducidad = False
@@ -841,10 +841,10 @@ Partial Class Inventarios_RecepcionAlmacen
 
             If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Fac"}) And e.Row.DBCampo("EstatusAlmacen").ToString.ToEntero = 0 Then
                 e.Row.FCLinkButton("BtnSurtir").CssClass = "btn btn-primary input-sm"
-                e.Row.FCLinkButton("BtnSurtir").Text = "<i class='fa fa-arrow-left' > Recibir</i>"
+                e.Row.FCLinkButton("BtnSurtir").Text = "<i class='fa fa-arrow-left'></i> Recibir"
             Else
                 e.Row.FCLinkButton("BtnSurtir").CssClass = "btn yellow-gold input-sm"
-                e.Row.FCLinkButton("BtnSurtir").Text = " Devolver <i class='fa fa-arrow-right' ></i>"
+                e.Row.FCLinkButton("BtnSurtir").Text = " Devolver <i class='fa fa-arrow-right'></i>"
             End If
 
             If UsuarioActual.TienePermisoProceso(201) Then
@@ -1773,6 +1773,8 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim DtSeriesNuevas As New DataTable
         DtSeriesNuevas.Columns.Add("Serie", GetType(String))
 
+        'If CvePSS > 0 And CvePSSerie = 0 Then CvePSSerie = CvePSS
+
         'PARA VALIDAR SI LA SERIE ES IGUAL AL CODIGO O CODIGOBARRAS
         Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltroPrimero("", "PS")
 
@@ -1812,48 +1814,52 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim Index = 0
 
         For Each Serie In SeriesArreglo
-            Dim Row = DtDatosDetalle.NewRow
+            If Serie <> "" Then
 
-            Index = Index + 1
-            If Index > LbCantidad.Text.ToEntero Then
-                Exit For
-            End If
 
-            'VALIDA QUE SIGA AGREGANDO
+                Dim Row = DtDatosDetalle.NewRow
-            If Not DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie)).Rows.Count < LbCantidad.Text.ToEntero Then
-                Exit For
-            End If
 
-            'VERIFICA EXISTENCIAS
+                Index = Index + 1
-            If TipoMovimiento > 1 Then
+                If Index > LbCantidad.Text.ToEntero Then
-                Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie)
+                    Exit For
-                If Existencia < 1 Then
-                    MensajeSinExistencias.Append($"Serie: <b>{Serie}</b>. <br/>")
-                    Continue For
                 End If
 
-                If TipoMovimiento = 2 Then
+                'VALIDA QUE SIGA AGREGANDO
-                    If DtExistencias.SUM("Existencia", $"Serie = '{Serie}'") = 0 Then
+                If Not DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie)).Rows.Count < LbCantidad.Text.ToEntero Then
+                    Exit For
+                End If
+
+                'VERIFICA EXISTENCIAS
+                If TipoMovimiento > 1 Then
+                    Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie)
+                    If Existencia < 1 Then
                         MensajeSinExistencias.Append($"Serie: <b>{Serie}</b>. <br/>")
                         Continue For
                     End If
+
+                    If TipoMovimiento = 2 Then
+                        If DtExistencias.SUM("Existencia", $"Serie = '{Serie}'") = 0 Then
+                            MensajeSinExistencias.Append($"Serie: <b>{Serie}</b>. <br/>")
+                            Continue For
+                        End If
+                    End If
                 End If
+
+                'Dim AplicaCaducidad = False
+                'If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0) IsNot Nothing Then
+                '    AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString = "True", True, False)
+                'End If
+
+                Row("ConsecId") = CveConsecSerie
+                Row("Consec") = DtDatosDetalle.Rows.Count + 1
+                Row("CvePS") = CvePSSerie
+                Row("CveUM") = CveUMSerie
+                Row("PU") = PUSerie
+                Row("Serie") = Serie
+                Row("FechaCaducidad") = MinFecha.ToShortDateString
+
+                DtDatosDetalle.Rows.Add(Row)
             End If
-
-            'Dim AplicaCaducidad = False
-            'If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0) IsNot Nothing Then
-            '    AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString = "True", True, False)
-            'End If
-
-            Row("ConsecId") = CveConsecSerie
-            Row("Consec") = DtDatosDetalle.Rows.Count + 1
-            Row("CvePS") = CvePSSerie
-            Row("CveUM") = CveUMSerie
-            Row("PU") = PUSerie
-            Row("Serie") = Serie
-            Row("FechaCaducidad") = MinFecha.ToShortDateString
-
-            DtDatosDetalle.Rows.Add(Row)
         Next
         ObjInventarios.Dispose()
 
@@ -4841,14 +4847,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 Alert("El nombre de la cuarta columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            'If Not dt.Columns(4).ColumnName = "Lote" Then
-            '    Alert("El nombre de la cuarta columna debe ser 'Lote'. Favor de corregirlo", TipoMensaje.MsgError)
-            '    Exit Sub
-            'End If
-            'If Not dt.Columns(5).ColumnName = "FechaCaducidad" Then
-            '    Alert("El nombre de la cuarta columna debe ser 'Fecha Caducidad'. Favor de corregirlo", TipoMensaje.MsgError)
-            '    Exit Sub
-            'End If
 
 
             dt.TableName = "Datos"
@@ -4871,12 +4869,15 @@ Partial Class Inventarios_RecepcionAlmacen
 
                                 Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
                                 Dim CveUnidadMedida As Integer = RowPS("CveUM").ToString().ToEntero()
+                                CvePSSerie = CveProducto
+                                CveConsecSerie = DtInv.FiltroPrimeroValor("Consec", "CvePS=" & CvePSSerie).ToEntero
 
                                 Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
                                 Dim Serie As String = RowExcel("Serie").ToString()
                                 Dim Lote As String = "" '= RowExcel("Lote").ToString()
                                 Dim FechaCaducidad As Date = MinFecha '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
                                 Dim Observaciones As String = "" '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString
+                                LbCantidad.Text = Cantidad.ToString
 
                                 Dim Valido As Boolean = True
 

Inventarios/RecepcionUsados.aspx

@@ -909,8 +909,8 @@
                             </div>
                             <div class="actions">
                                 <div class="btn-group">
-                                    <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' style='font-weight: 700 !important;' ><span class='caption-subject bold'>Agregar</span></i>" Style="cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                                    <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green'></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                                    <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' style='font-weight: 700 !important;' >Agendar</i>" Visible="false" Style="cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                                    <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
 
                                 </div>
                             </div>

Inventarios/RepAnomalias.aspx.vb

@@ -115,7 +115,7 @@ Partial Class Inventarios_RepAnomalias
             GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201)   'costo
         End If
 
-        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
+        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
             lbTitulo.Text = Inventario.InventarioFisico
             lbObservaciones.Text = Inventario.Observaciones
             lbSubProyecto.Text = Inventario.SubProyectoInventario
@@ -450,7 +450,7 @@ Partial Class Inventarios_RepAnomalias
         Dim dtS As DataTable = Nothing
         Dim dtF As DataTable = Nothing
 
-        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
+        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Titulo", Inventario.InventarioFisico))
             params.Add(New ReportParameter("Observaciones", Inventario.Observaciones))

Inventarios/RepApartados.aspx.vb

@@ -47,10 +47,7 @@ Partial Class Inventarios_RepApartados
 
         DdlClienteTraspasar.setEsWebService(True)
 
-        Dim DTVendedores As New DataTable
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, Estatus:=-1)
-        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
-        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
-        DdlVendedor.DataSource = DTVendedores
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))
 

Inventarios/RepEntregaAlmacenRuta.aspx

@@ -99,7 +99,7 @@
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
             <asp:GridView ID="GVDatos" runat="server" 
-                DataKeyNames="CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,ConfigCartaPorte,SerieFolio,DireccionOrigen,Direccion"
+                DataKeyNames="CveSubProyecto, CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,CveConfigAutoTransporte,SerieFolio,DireccionOrigen,Direccion"
                 AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
                 EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
                 <Columns>
@@ -118,8 +118,7 @@
                          <HeaderStyle HorizontalAlign="Left" />
                          <ItemStyle HorizontalAlign="Left" />
                     </asp:TemplateField>
-                    <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" >                                                        
+                    <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal">
-                    <ItemStyle HorizontalAlign="Left" Width="15%" />
                     </asp:BoundField>
                                                         
                     <asp:BoundField DataField="SerieFolio" HeaderText="Folio"  ItemStyle-HorizontalAlign="Left" >
@@ -165,7 +164,12 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="PDF">                       
                         <ItemTemplate> 
-                            <asp:HyperLink ID="HplPDF" Target="_blank" runat="server" ><i class='fa fa-file-pdf-o'></i></asp:HyperLink>                         
+                            <asp:HyperLink ID="HplPDF" Target="_blank" runat="server" ><i class='fa fa-file-pdf-o'></i></asp:HyperLink>                                                     
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center" Width="4%" />
+                    </asp:TemplateField>
+                       <asp:TemplateField HeaderText="XML">                       
+                        <ItemTemplate>                             
                             <asp:HyperLink ID="HplXML" Target="_blank" runat="server" ><i class='fa fa-file-code-o'></i></asp:HyperLink>
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Center" Width="4%" />
@@ -216,7 +220,7 @@
                             <label class="col-md-3">Configuración:</label>
                             <div class="col-md-9">
                                 <%--<asp:DropDownList runat="server" ID="DropDownList1" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveActivoFijo" DataTextField="CodigoDescripcion"></asp:DropDownList>--%>
-                                <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte" Style="padding: 0px">
+                                <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="CveConfigAutoTransporte" Style="padding: 0px">
                                 </asp:DropDownList>
                                 <asp:RequiredFieldValidator ID="RfvDdlConfigAuto" runat="server" Enabled="false" ControlToValidate="DdlConfigAuto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Configuración Carta Porte''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VCERfvDdlConfigAuto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlConfigAuto" Width="350px"></ajax:ValidatorCalloutExtender>

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -333,7 +333,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
     {
         ClsGenerales ObjGeneral = new ClsGenerales();
 
-        if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero()))
+        if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(),UsuarioActual.CveUsuario))
         {
             DTDatos = ObjGeneral.DtResultados;
             GVDatos.DataSource = DTDatos;
@@ -370,7 +370,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
         TxtFechaEntrega.Text = GvRow.DataKey("FechaEntrega").ToDate().ToString("dd/MM/yyyy");
         TxtFechaLlegada.Text = GvRow.DataKey("FechaLlegada").ToDate().ToString("dd/MM/yyyy");
         TxtDistancia.Text = GvRow.DataKey("Distancia");
-        DdlConfigAuto.SelectedValueExist(GvRow.DataKey("ConfigCartaPorte"));
+        DdlConfigAuto.SelectedValueExist(GvRow.DataKey("CveConfigAutoTransporte"));
         DdlConfigAuto_SelectedIndexChanged(null, null);
 
         if (GvRow.DataKey("CveCamionRemolque1").ToEntero() > 0)
@@ -393,17 +393,17 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
         ModalActualizaDirecciones( CveTimbre);
 
 
-        //if( CveDireccionOrigen > 0)
+        if (CveDireccionOrigen > 0)
-        //{
+        {
-        //    DVDireccionOrigen.Visible = true;
+            DVDireccionOrigen.Visible = true;
 
-        //    LnkDireccionOrigen.Text = GvRow.DataKey("DireccionOrigen") + " <i class='fa fa-search' aria-hidden='true'></i>";
+            LnkDireccionOrigen.Text = GvRow.DataKey("DireccionOrigen") + " <i class='fa fa-search' aria-hidden='true'></i>";
-        //}
+        }
-        //if (CveDireccionDestino > 0)
+        if (CveDireccionDestino > 0)
-        //{
+        {
-        //    DVDireccionDestino.Visible = true;
+            DVDireccionDestino.Visible = true;
-        //    LnkDireccionDestino.Text = GvRow.DataKey("Direccion") + " <i class='fa fa-search' aria-hidden='true'></i>";
+            LnkDireccionDestino.Text = GvRow.DataKey("Direccion") + " <i class='fa fa-search' aria-hidden='true'></i>";
-        //}
+        }
 
 
         UpModalEditarentrega.Update();
@@ -512,9 +512,12 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
         string RFCReceptor = GvRow.DataKey("RFCReceptor").ToString();
         string RFCEmisor = GvRow.DataKey("RFCEmisor").ToString();
         int  CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero();
+        int CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero();
+        int CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero();
 
         Timbrado ObjCancelacion = new Timbrado();
         ClsGenerales ObjGenerales = new ClsGenerales();
+        ObjGenerales.IniciaTransacSQL ();
 
         if (EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptor))
         {
@@ -528,22 +531,27 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
                 if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
                 {
-                    Alert("El complemento se cancelo correctamente.");
+                    //regenero el tmbre
+                      CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen :  CveEntregaAlmacen, AplicaCP:  true);
+
+                  
+
                     ProcesoOK = true;
                 } 
             }
-            else
-            {
-                Alert("Se presento un error al cancelar el Folio Fiscal", ModExtensiones.TipoMensaje.MsgAdvertencia);
-            }
         }
 
-        ObjGenerales.Dispose();
-
         if (ProcesoOK)
         {
-            CargaDatos();
+            ObjGenerales.Commit();
+            Alert("El complemento se cancelo correctamente.");
         }
+        else
+        {
+            ObjGenerales.RollBack();
+            Alert("Se presento un error al cancelar el Folio Fiscal", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
+        ObjGenerales.Dispose();
     }
 
 
@@ -578,8 +586,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
         ClsGenerales ObjGral = new ClsGenerales();
         if(!ObjGral.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen,-1,-1, DdlModalChofer.SelectedValue.ToEntero(), DdlModalCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,
-             TxtFechaLlegada.Text.ToDate(), CveCamionRemolque1: DdlRemolque1.SelectedValue.ToEntero(),  CveCamionRemolque2: DdlRemolque2.SelectedValue.ToEntero(), Distancia: TxtDistancia.Text.ToEntero(), 
+             TxtFechaLlegada.Text.ToDate(), CveCamionRemolque1: DdlRemolque1.SelectedValue.ToEntero(),  CveCamionRemolque2: DdlRemolque2.SelectedValue.ToEntero(), Distancia: TxtDistancia.Text.ToEntero(),
-             ConfigCartaPorte: DdlConfigAuto.SelectedValue))
+             CveConfigAutoTransporte: DdlConfigAuto.SelectedValue.ToEntero()))
         {
             ProcesoOK = false;
         }
@@ -622,11 +630,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
                 LnkTimbrar.Visible = true;
             }
 
-            if (e.Row.DataKey("TimbreTipoDocto") == "Man")
+            //if (e.Row.DataKey("TimbreTipoDocto") == "Man")
-            {
+            //{
-                e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true;
+            //    e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true;
-                e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true;
+            //    e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true;
-            }
+            //}
 
             if (e.Row.DataKey("Estatus").ToEntero() == 1)
             {
@@ -643,7 +651,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
                         e.Row.FCHyperLink("HplPDF").NavigateUrl =  "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
                 }
 
-                //string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, e.Row.DataKey("TimbreTipoDocto"), e.Row.DataKey("SerieFolio"));
+                string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, e.Row.DataKey("TimbreTipoDocto"), e.Row.DataKey("SerieFolio"));
 
                 //if (File.Exists(ArchivoXML))
                 //{
@@ -653,7 +661,9 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
             }
             else
             {
-                e.Row.Cells[11].Text = "";
+                //e.Row.Cells[11].Text = "";
+                e.Row.Cells[12].Text = "";
+                e.Row.Cells[13].Text = "";
             }
 
             if (e.Row.DataKey("Estatus").ToEntero() == 2)
@@ -725,7 +735,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
             {
                 if (ObjInv.GetCamiones(DdlModalCamion.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, 1))
                 {
-                    DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("ConfigCartaPorte"));
+                    DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("CveConfigAutoTransporte"));
                     DdlConfigAuto_SelectedIndexChanged(null, null);
                 }
             }
@@ -781,13 +791,13 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
         DdlRemolque1.SelectedValueExist(-1);
         DdlRemolque2.SelectedValueExist(-1);
 
-        if (DdlConfigAuto.SelectedIndex > 0)
+        if (DdlConfigAuto.SelectedValue.ToEntero() > 0)
         {
             using (ClsGenerales ObjGrales = new ClsGenerales())
             {
                 if (ObjGrales.GetCartaPorteConfigAutoTransportes())
                 {
-                    string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" ClaveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue}'");
+                    string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'");
 
 
                     if (Remolque == "1")

Inventarios/ResguardoMaterial.aspx.vb

@@ -1126,7 +1126,7 @@ Partial Class Inventarios_ResguardoMaterial
     Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
         Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
         'RMF condición temporal
-        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
             ValidaLoteCaducidad = True
         Else
             ValidaLoteCaducidad = False

Inventarios/TraspasoAlmacen.aspx

@@ -234,7 +234,7 @@
                                                 <label class="col-md-3">Configuración:</label>
                                                 <div class="col-md-9">
                                                     <%--<asp:DropDownList runat="server" ID="DropDownList1" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveActivoFijo" DataTextField="CodigoDescripcion"></asp:DropDownList>--%>
-                                                     <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte" Style="padding: 0px">                                
+                                                     <asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="true" OnSelectedIndexChanged="DdlConfigAuto_SelectedIndexChanged" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="CveConfigAutoTransporte" Style="padding: 0px">                                
                                                      </asp:DropDownList>
                                                     <asp:RequiredFieldValidator ID="RfvDdlConfigAuto" runat="server" Enabled="false" ControlToValidate="DdlConfigAuto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Configuración Carta Porte''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCERfvDdlConfigAuto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlConfigAuto" Width="350px"></ajax:ValidatorCalloutExtender>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -593,14 +593,14 @@ Partial Class Inventarios_TraspasoAlmacen
                 'codigo provisional.
                 Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
 
-                If DrPS("AplicaCaducidad").ToString = "True" AndAlso CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If DrPS("AplicaCaducidad").ToString = "True" AndAlso CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                     If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then
                         Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia)
                         Exit Sub
                     End If
                 End If
 
-                If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked And CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked And CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
 
                     Dim ObjInventarios As New ClsInventarios
                     If ObjInventarios.GetExistenciasCaducidad(CveProducto, DdlAlmacenOrigen.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue) Then
@@ -637,7 +637,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1")
                     tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha)
 
-                    If Not CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                    If Not CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                         tLote = "-1"
                         tCaducidad = MinFecha
                     End If
@@ -855,6 +855,16 @@ Partial Class Inventarios_TraspasoAlmacen
                 If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
                 Exit Sub
             End If
+
+            ''validaciones de carta porte en productos
+            If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
+                ' Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+                'If Not ValidaPSSAT(DrPS) Then
+                '    Exit Sub
+                'End If
+            End If
+
+
         End If
 
         Dim DrAlmO, DrAlmD As DataRow
@@ -1237,7 +1247,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime
 
                 Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimientoSalida, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
-                                                                                    ConfigCartaPorte:=DdlConfigAuto.SelectedValue, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
+                                                                                    CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
 
                 If CveEntregaAlmacen > 0 Then
                     CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
@@ -1729,6 +1739,7 @@ Partial Class Inventarios_TraspasoAlmacen
             DivTransitorio2.Visible = True
             If UsuarioActual.CveEmpresa.Contiene(119, 140) Then
                 ChkEmitirTimbrado.Checked = True
+                ChkEmitirCartaPorte.Checked = True
             End If
         Else
             RegistraScript(" $('#DivGastoIndirecto').hide(500);")
@@ -1736,6 +1747,7 @@ Partial Class Inventarios_TraspasoAlmacen
             DivTransitorio2.Visible = True
             DivEmitirTransitorio.Visible = False
             ChkEmitirTimbrado.Checked = False
+            ChkEmitirCartaPorte.Checked = True
         End If
         UpEmitirTransitorio.Update()
         CargaAlmacenDestino()
@@ -2163,7 +2175,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         Dim tSerie As String = gvr.FCTextBox("TxtSerie").Text 'gvr.DataKey("Serie").ToString
                         Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
 
-                        If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                        If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                             tLote = gvr.FCTextBox("TxtLote").Text
                             tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate
                         End If
@@ -3145,7 +3157,7 @@ Partial Class Inventarios_TraspasoAlmacen
     Protected Sub ChkEmitirTimbrado_CheckedChanged(sender As Object, e As EventArgs)
 
         If ChkEmitirTimbrado.Checked Then
-            ChkEmitirCartaPorte.Checked = False
+            ChkEmitirCartaPorte.Checked = True
             ChkEmitirCartaPorte.Visible = True
         Else
             ChkEmitirCartaPorte.Visible = False
@@ -3188,7 +3200,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Using ObjInv As New ClsInventarios
 
                 If ObjInv.GetCamiones(DdlUnidadCamion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1) Then
-                    DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("ConfigCartaPorte"))
+                    DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("CveConfigAutoTransporte"))
                     DdlConfigAuto_SelectedIndexChanged(Nothing, Nothing)
                 End If
 
@@ -3244,11 +3256,11 @@ Partial Class Inventarios_TraspasoAlmacen
         DdlRemolque1.SelectedValueExist(-1)
         DdlRemolque2.SelectedValueExist(-1)
 
-        If DdlConfigAuto.SelectedIndex > 0 Then
+        If DdlConfigAuto.SelectedValue.ToEntero > 0 Then
 
             Using ObjGrales As New ClsGenerales
                 If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
-                    Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" ClaveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue}'")
+                    Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
 
 
                     If Remolque = "1" Then

LogIn.aspx.vb

@@ -191,6 +191,7 @@ Partial Class LogIn
                 strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
             End If
             ReturnUrl = String.Format("{0}:{1}/{2}", strdomain, Request("port"), ReturnUrl)
+            'S ies angular retiro el https para que no marque error la pagina
             ReturnUrl = ReturnUrl.Replace("https", "http")
             ReturnUrl = ReturnUrl.Replace("HTTPS", "HTTP")
         End If

Metronic/fontawesome6/css/regular.css

@@ -0,0 +1,19 @@
+/*!
+ * Font Awesome Free 6.0.0 by @fontawesome - https://fontawesome.com
+ * License - https://fontawesome.com/license/free (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
+ * Copyright 2022 Fonticons, Inc.
+ */
+:root, :host {
+  --fa-font-regular: normal 400 1em/1 "Font Awesome 6 Free"; }
+
+@font-face {
+  font-family: 'Font Awesome 6 Free';
+  font-style: normal;
+  font-weight: 400;
+  font-display: block;
+  src: url("../webfonts/fa-regular-400.woff2") format("woff2"), url("../webfonts/fa-regular-400.ttf") format("truetype"); }
+
+.far,
+.fa-regular {
+  font-family: 'Font Awesome 6 Free';
+  font-weight: 400; }

Metronic/fontawesome6/css/regular.min.css

@@ -0,0 +1,6 @@
+/*!
+ * Font Awesome Free 6.0.0 by @fontawesome - https://fontawesome.com
+ * License - https://fontawesome.com/license/free (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
+ * Copyright 2022 Fonticons, Inc.
+ */
+:host,:root{--fa-font-regular:normal 400 1em/1 "Font Awesome 6 Free"}@font-face{font-family:"Font Awesome 6 Free";font-style:normal;font-weight:400;font-display:block;src:url(../webfonts/fa-regular-400.woff2) format("woff2"),url(../webfonts/fa-regular-400.ttf) format("truetype")}.fa-regular,.far{font-family:"Font Awesome 6 Free";font-weight:400}

Metronic/fontawesome6/css/solid.css

@@ -0,0 +1,19 @@
+/*!
+ * Font Awesome Free 6.0.0 by @fontawesome - https://fontawesome.com
+ * License - https://fontawesome.com/license/free (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
+ * Copyright 2022 Fonticons, Inc.
+ */
+:root, :host {
+  --fa-font-solid: normal 900 1em/1 "Font Awesome 6 Free"; }
+
+@font-face {
+  font-family: 'Font Awesome 6 Free';
+  font-style: normal;
+  font-weight: 900;
+  font-display: block;
+  src: url("../webfonts/fa-solid-900.woff2") format("woff2"), url("../webfonts/fa-solid-900.ttf") format("truetype"); }
+
+.fas,
+.fa-solid {
+  font-family: 'Font Awesome 6 Free';
+  font-weight: 900; }

Metronic/fontawesome6/css/solid.min.css

@@ -0,0 +1,6 @@
+/*!
+ * Font Awesome Free 6.0.0 by @fontawesome - https://fontawesome.com
+ * License - https://fontawesome.com/license/free (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
+ * Copyright 2022 Fonticons, Inc.
+ */
+:host,:root{--fa-font-solid:normal 900 1em/1 "Font Awesome 6 Free"}@font-face{font-family:"Font Awesome 6 Free";font-style:normal;font-weight:900;font-display:block;src:url(../webfonts/fa-solid-900.woff2) format("woff2"),url(../webfonts/fa-solid-900.ttf) format("truetype")}.fa-solid,.fas{font-family:"Font Awesome 6 Free";font-weight:900}

Metronic/fontawesome6/css/svg-with-js.css

@@ -0,0 +1,634 @@
+/*!
+ * Font Awesome Free 6.0.0 by @fontawesome - https://fontawesome.com
+ * License - https://fontawesome.com/license/free (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
+ * Copyright 2022 Fonticons, Inc.
+ */
+:root, :host {
+  --fa-font-solid: normal 900 1em/1 "Font Awesome 6 Solid";
+  --fa-font-regular: normal 400 1em/1 "Font Awesome 6 Regular";
+  --fa-font-light: normal 300 1em/1 "Font Awesome 6 Light";
+  --fa-font-thin: normal 100 1em/1 "Font Awesome 6 Thin";
+  --fa-font-duotone: normal 900 1em/1 "Font Awesome 6 Duotone";
+  --fa-font-brands: normal 400 1em/1 "Font Awesome 6 Brands"; }
+
+svg:not(:root).svg-inline--fa, svg:not(:host).svg-inline--fa {
+  overflow: visible;
+  box-sizing: content-box; }
+
+.svg-inline--fa {
+  display: var(--fa-display, inline-block);
+  height: 1em;
+  overflow: visible;
+  vertical-align: -.125em; }
+  .svg-inline--fa.fa-2xs {
+    vertical-align: 0.1em; }
+  .svg-inline--fa.fa-xs {
+    vertical-align: 0em; }
+  .svg-inline--fa.fa-sm {
+    vertical-align: -0.07143em; }
+  .svg-inline--fa.fa-lg {
+    vertical-align: -0.2em; }
+  .svg-inline--fa.fa-xl {
+    vertical-align: -0.25em; }
+  .svg-inline--fa.fa-2xl {
+    vertical-align: -0.3125em; }
+  .svg-inline--fa.fa-pull-left {
+    margin-right: var(--fa-pull-margin, 0.3em);
+    width: auto; }
+  .svg-inline--fa.fa-pull-right {
+    margin-left: var(--fa-pull-margin, 0.3em);
+    width: auto; }
+  .svg-inline--fa.fa-li {
+    width: var(--fa-li-width, 2em);
+    top: 0.25em; }
+  .svg-inline--fa.fa-fw {
+    width: var(--fa-fw-width, 1.25em); }
+
+.fa-layers svg.svg-inline--fa {
+  bottom: 0;
+  left: 0;
+  margin: auto;
+  position: absolute;
+  right: 0;
+  top: 0; }
+
+.fa-layers-text, .fa-layers-counter {
+  display: inline-block;
+  position: absolute;
+  text-align: center; }
+
+.fa-layers {
+  display: inline-block;
+  height: 1em;
+  position: relative;
+  text-align: center;
+  vertical-align: -.125em;
+  width: 1em; }
+  .fa-layers svg.svg-inline--fa {
+    -webkit-transform-origin: center center;
+            transform-origin: center center; }
+
+.fa-layers-text {
+  left: 50%;
+  top: 50%;
+  -webkit-transform: translate(-50%, -50%);
+          transform: translate(-50%, -50%);
+  -webkit-transform-origin: center center;
+          transform-origin: center center; }
+
+.fa-layers-counter {
+  background-color: var(--fa-counter-background-color, #ff253a);
+  border-radius: var(--fa-counter-border-radius, 1em);
+  box-sizing: border-box;
+  color: var(--fa-inverse, #fff);
+  line-height: var(--fa-counter-line-height, 1);
+  max-width: var(--fa-counter-max-width, 5em);
+  min-width: var(--fa-counter-min-width, 1.5em);
+  overflow: hidden;
+  padding: var(--fa-counter-padding, 0.25em 0.5em);
+  right: var(--fa-right, 0);
+  text-overflow: ellipsis;
+  top: var(--fa-top, 0);
+  -webkit-transform: scale(var(--fa-counter-scale, 0.25));
+          transform: scale(var(--fa-counter-scale, 0.25));
+  -webkit-transform-origin: top right;
+          transform-origin: top right; }
+
+.fa-layers-bottom-right {
+  bottom: var(--fa-bottom, 0);
+  right: var(--fa-right, 0);
+  top: auto;
+  -webkit-transform: scale(var(--fa-layers-scale, 0.25));
+          transform: scale(var(--fa-layers-scale, 0.25));
+  -webkit-transform-origin: bottom right;
+          transform-origin: bottom right; }
+
+.fa-layers-bottom-left {
+  bottom: var(--fa-bottom, 0);
+  left: var(--fa-left, 0);
+  right: auto;
+  top: auto;
+  -webkit-transform: scale(var(--fa-layers-scale, 0.25));
+          transform: scale(var(--fa-layers-scale, 0.25));
+  -webkit-transform-origin: bottom left;
+          transform-origin: bottom left; }
+
+.fa-layers-top-right {
+  top: var(--fa-top, 0);
+  right: var(--fa-right, 0);
+  -webkit-transform: scale(var(--fa-layers-scale, 0.25));
+          transform: scale(var(--fa-layers-scale, 0.25));
+  -webkit-transform-origin: top right;
+          transform-origin: top right; }
+
+.fa-layers-top-left {
+  left: var(--fa-left, 0);
+  right: auto;
+  top: var(--fa-top, 0);
+  -webkit-transform: scale(var(--fa-layers-scale, 0.25));
+          transform: scale(var(--fa-layers-scale, 0.25));
+  -webkit-transform-origin: top left;
+          transform-origin: top left; }
+
+.fa-1x {
+  font-size: 1em; }
+
+.fa-2x {
+  font-size: 2em; }
+
+.fa-3x {
+  font-size: 3em; }
+
+.fa-4x {
+  font-size: 4em; }
+
+.fa-5x {
+  font-size: 5em; }
+
+.fa-6x {
+  font-size: 6em; }
+
+.fa-7x {
+  font-size: 7em; }
+
+.fa-8x {
+  font-size: 8em; }
+
+.fa-9x {
+  font-size: 9em; }
+
+.fa-10x {
+  font-size: 10em; }
+
+.fa-2xs {
+  font-size: 0.625em;
+  line-height: 0.1em;
+  vertical-align: 0.225em; }
+
+.fa-xs {
+  font-size: 0.75em;
+  line-height: 0.08333em;
+  vertical-align: 0.125em; }
+
+.fa-sm {
+  font-size: 0.875em;
+  line-height: 0.07143em;
+  vertical-align: 0.05357em; }
+
+.fa-lg {
+  font-size: 1.25em;
+  line-height: 0.05em;
+  vertical-align: -0.075em; }
+
+.fa-xl {
+  font-size: 1.5em;
+  line-height: 0.04167em;
+  vertical-align: -0.125em; }
+
+.fa-2xl {
+  font-size: 2em;
+  line-height: 0.03125em;
+  vertical-align: -0.1875em; }
+
+.fa-fw {
+  text-align: center;
+  width: 1.25em; }
+
+.fa-ul {
+  list-style-type: none;
+  margin-left: var(--fa-li-margin, 2.5em);
+  padding-left: 0; }
+  .fa-ul > li {
+    position: relative; }
+
+.fa-li {
+  left: calc(var(--fa-li-width, 2em) * -1);
+  position: absolute;
+  text-align: center;
+  width: var(--fa-li-width, 2em);
+  line-height: inherit; }
+
+.fa-border {
+  border-color: var(--fa-border-color, #eee);
+  border-radius: var(--fa-border-radius, 0.1em);
+  border-style: var(--fa-border-style, solid);
+  border-width: var(--fa-border-width, 0.08em);
+  padding: var(--fa-border-padding, 0.2em 0.25em 0.15em); }
+
+.fa-pull-left {
+  float: left;
+  margin-right: var(--fa-pull-margin, 0.3em); }
+
+.fa-pull-right {
+  float: right;
+  margin-left: var(--fa-pull-margin, 0.3em); }
+
+.fa-beat {
+  -webkit-animation-name: fa-beat;
+          animation-name: fa-beat;
+  -webkit-animation-delay: var(--fa-animation-delay, 0);
+          animation-delay: var(--fa-animation-delay, 0);
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 1s);
+          animation-duration: var(--fa-animation-duration, 1s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, ease-in-out);
+          animation-timing-function: var(--fa-animation-timing, ease-in-out); }
+
+.fa-bounce {
+  -webkit-animation-name: fa-bounce;
+          animation-name: fa-bounce;
+  -webkit-animation-delay: var(--fa-animation-delay, 0);
+          animation-delay: var(--fa-animation-delay, 0);
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 1s);
+          animation-duration: var(--fa-animation-duration, 1s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, cubic-bezier(0.28, 0.84, 0.42, 1));
+          animation-timing-function: var(--fa-animation-timing, cubic-bezier(0.28, 0.84, 0.42, 1)); }
+
+.fa-fade {
+  -webkit-animation-name: fa-fade;
+          animation-name: fa-fade;
+  -webkit-animation-delay: var(--fa-animation-delay, 0);
+          animation-delay: var(--fa-animation-delay, 0);
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 1s);
+          animation-duration: var(--fa-animation-duration, 1s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, cubic-bezier(0.4, 0, 0.6, 1));
+          animation-timing-function: var(--fa-animation-timing, cubic-bezier(0.4, 0, 0.6, 1)); }
+
+.fa-beat-fade {
+  -webkit-animation-name: fa-beat-fade;
+          animation-name: fa-beat-fade;
+  -webkit-animation-delay: var(--fa-animation-delay, 0);
+          animation-delay: var(--fa-animation-delay, 0);
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 1s);
+          animation-duration: var(--fa-animation-duration, 1s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, cubic-bezier(0.4, 0, 0.6, 1));
+          animation-timing-function: var(--fa-animation-timing, cubic-bezier(0.4, 0, 0.6, 1)); }
+
+.fa-flip {
+  -webkit-animation-name: fa-flip;
+          animation-name: fa-flip;
+  -webkit-animation-delay: var(--fa-animation-delay, 0);
+          animation-delay: var(--fa-animation-delay, 0);
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 1s);
+          animation-duration: var(--fa-animation-duration, 1s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, ease-in-out);
+          animation-timing-function: var(--fa-animation-timing, ease-in-out); }
+
+.fa-shake {
+  -webkit-animation-name: fa-shake;
+          animation-name: fa-shake;
+  -webkit-animation-delay: var(--fa-animation-delay, 0);
+          animation-delay: var(--fa-animation-delay, 0);
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 1s);
+          animation-duration: var(--fa-animation-duration, 1s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, linear);
+          animation-timing-function: var(--fa-animation-timing, linear); }
+
+.fa-spin {
+  -webkit-animation-name: fa-spin;
+          animation-name: fa-spin;
+  -webkit-animation-delay: var(--fa-animation-delay, 0);
+          animation-delay: var(--fa-animation-delay, 0);
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 2s);
+          animation-duration: var(--fa-animation-duration, 2s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, linear);
+          animation-timing-function: var(--fa-animation-timing, linear); }
+
+.fa-spin-reverse {
+  --fa-animation-direction: reverse; }
+
+.fa-pulse,
+.fa-spin-pulse {
+  -webkit-animation-name: fa-spin;
+          animation-name: fa-spin;
+  -webkit-animation-direction: var(--fa-animation-direction, normal);
+          animation-direction: var(--fa-animation-direction, normal);
+  -webkit-animation-duration: var(--fa-animation-duration, 1s);
+          animation-duration: var(--fa-animation-duration, 1s);
+  -webkit-animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+          animation-iteration-count: var(--fa-animation-iteration-count, infinite);
+  -webkit-animation-timing-function: var(--fa-animation-timing, steps(8));
+          animation-timing-function: var(--fa-animation-timing, steps(8)); }
+
+@media (prefers-reduced-motion: reduce) {
+  .fa-beat,
+  .fa-bounce,
+  .fa-fade,
+  .fa-beat-fade,
+  .fa-flip,
+  .fa-pulse,
+  .fa-shake,
+  .fa-spin,
+  .fa-spin-pulse {
+    -webkit-animation-delay: -1ms;
+            animation-delay: -1ms;
+    -webkit-animation-duration: 1ms;
+            animation-duration: 1ms;
+    -webkit-animation-iteration-count: 1;
+            animation-iteration-count: 1;
+    transition-delay: 0s;
+    transition-duration: 0s; } }
+
+@-webkit-keyframes fa-beat {
+  0%, 90% {
+    -webkit-transform: scale(1);
+            transform: scale(1); }
+  45% {
+    -webkit-transform: scale(var(--fa-beat-scale, 1.25));
+            transform: scale(var(--fa-beat-scale, 1.25)); } }
+
+@keyframes fa-beat {
+  0%, 90% {
+    -webkit-transform: scale(1);
+            transform: scale(1); }
+  45% {
+    -webkit-transform: scale(var(--fa-beat-scale, 1.25));
+            transform: scale(var(--fa-beat-scale, 1.25)); } }
+
+@-webkit-keyframes fa-bounce {
+  0% {
+    -webkit-transform: scale(1, 1) translateY(0);
+            transform: scale(1, 1) translateY(0); }
+  10% {
+    -webkit-transform: scale(var(--fa-bounce-start-scale-x, 1.1), var(--fa-bounce-start-scale-y, 0.9)) translateY(0);
+            transform: scale(var(--fa-bounce-start-scale-x, 1.1), var(--fa-bounce-start-scale-y, 0.9)) translateY(0); }
+  30% {
+    -webkit-transform: scale(var(--fa-bounce-jump-scale-x, 0.9), var(--fa-bounce-jump-scale-y, 1.1)) translateY(var(--fa-bounce-height, -0.5em));
+            transform: scale(var(--fa-bounce-jump-scale-x, 0.9), var(--fa-bounce-jump-scale-y, 1.1)) translateY(var(--fa-bounce-height, -0.5em)); }
+  50% {
+    -webkit-transform: scale(var(--fa-bounce-land-scale-x, 1.05), var(--fa-bounce-land-scale-y, 0.95)) translateY(0);
+            transform: scale(var(--fa-bounce-land-scale-x, 1.05), var(--fa-bounce-land-scale-y, 0.95)) translateY(0); }
+  57% {
+    -webkit-transform: scale(1, 1) translateY(var(--fa-bounce-rebound, -0.125em));
+            transform: scale(1, 1) translateY(var(--fa-bounce-rebound, -0.125em)); }
+  64% {
+    -webkit-transform: scale(1, 1) translateY(0);
+            transform: scale(1, 1) translateY(0); }
+  100% {
+    -webkit-transform: scale(1, 1) translateY(0);
+            transform: scale(1, 1) translateY(0); } }
+
+@keyframes fa-bounce {
+  0% {
+    -webkit-transform: scale(1, 1) translateY(0);
+            transform: scale(1, 1) translateY(0); }
+  10% {
+    -webkit-transform: scale(var(--fa-bounce-start-scale-x, 1.1), var(--fa-bounce-start-scale-y, 0.9)) translateY(0);
+            transform: scale(var(--fa-bounce-start-scale-x, 1.1), var(--fa-bounce-start-scale-y, 0.9)) translateY(0); }
+  30% {
+    -webkit-transform: scale(var(--fa-bounce-jump-scale-x, 0.9), var(--fa-bounce-jump-scale-y, 1.1)) translateY(var(--fa-bounce-height, -0.5em));
+            transform: scale(var(--fa-bounce-jump-scale-x, 0.9), var(--fa-bounce-jump-scale-y, 1.1)) translateY(var(--fa-bounce-height, -0.5em)); }
+  50% {
+    -webkit-transform: scale(var(--fa-bounce-land-scale-x, 1.05), var(--fa-bounce-land-scale-y, 0.95)) translateY(0);
+            transform: scale(var(--fa-bounce-land-scale-x, 1.05), var(--fa-bounce-land-scale-y, 0.95)) translateY(0); }
+  57% {
+    -webkit-transform: scale(1, 1) translateY(var(--fa-bounce-rebound, -0.125em));
+            transform: scale(1, 1) translateY(var(--fa-bounce-rebound, -0.125em)); }
+  64% {
+    -webkit-transform: scale(1, 1) translateY(0);
+            transform: scale(1, 1) translateY(0); }
+  100% {
+    -webkit-transform: scale(1, 1) translateY(0);
+            transform: scale(1, 1) translateY(0); } }
+
+@-webkit-keyframes fa-fade {
+  50% {
+    opacity: var(--fa-fade-opacity, 0.4); } }
+
+@keyframes fa-fade {
+  50% {
+    opacity: var(--fa-fade-opacity, 0.4); } }
+
+@-webkit-keyframes fa-beat-fade {
+  0%, 100% {
+    opacity: var(--fa-beat-fade-opacity, 0.4);
+    -webkit-transform: scale(1);
+            transform: scale(1); }
+  50% {
+    opacity: 1;
+    -webkit-transform: scale(var(--fa-beat-fade-scale, 1.125));
+            transform: scale(var(--fa-beat-fade-scale, 1.125)); } }
+
+@keyframes fa-beat-fade {
+  0%, 100% {
+    opacity: var(--fa-beat-fade-opacity, 0.4);
+    -webkit-transform: scale(1);
+            transform: scale(1); }
+  50% {
+    opacity: 1;
+    -webkit-transform: scale(var(--fa-beat-fade-scale, 1.125));
+            transform: scale(var(--fa-beat-fade-scale, 1.125)); } }
+
+@-webkit-keyframes fa-flip {
+  50% {
+    -webkit-transform: rotate3d(var(--fa-flip-x, 0), var(--fa-flip-y, 1), var(--fa-flip-z, 0), var(--fa-flip-angle, -180deg));
+            transform: rotate3d(var(--fa-flip-x, 0), var(--fa-flip-y, 1), var(--fa-flip-z, 0), var(--fa-flip-angle, -180deg)); } }
+
+@keyframes fa-flip {
+  50% {
+    -webkit-transform: rotate3d(var(--fa-flip-x, 0), var(--fa-flip-y, 1), var(--fa-flip-z, 0), var(--fa-flip-angle, -180deg));
+            transform: rotate3d(var(--fa-flip-x, 0), var(--fa-flip-y, 1), var(--fa-flip-z, 0), var(--fa-flip-angle, -180deg)); } }
+
+@-webkit-keyframes fa-shake {
+  0% {
+    -webkit-transform: rotate(-15deg);
+            transform: rotate(-15deg); }
+  4% {
+    -webkit-transform: rotate(15deg);
+            transform: rotate(15deg); }
+  8%, 24% {
+    -webkit-transform: rotate(-18deg);
+            transform: rotate(-18deg); }
+  12%, 28% {
+    -webkit-transform: rotate(18deg);
+            transform: rotate(18deg); }
+  16% {
+    -webkit-transform: rotate(-22deg);
+            transform: rotate(-22deg); }
+  20% {
+    -webkit-transform: rotate(22deg);
+            transform: rotate(22deg); }
+  32% {
+    -webkit-transform: rotate(-12deg);
+            transform: rotate(-12deg); }
+  36% {
+    -webkit-transform: rotate(12deg);
+            transform: rotate(12deg); }
+  40%, 100% {
+    -webkit-transform: rotate(0deg);
+            transform: rotate(0deg); } }
+
+@keyframes fa-shake {
+  0% {
+    -webkit-transform: rotate(-15deg);
+            transform: rotate(-15deg); }
+  4% {
+    -webkit-transform: rotate(15deg);
+            transform: rotate(15deg); }
+  8%, 24% {
+    -webkit-transform: rotate(-18deg);
+            transform: rotate(-18deg); }
+  12%, 28% {
+    -webkit-transform: rotate(18deg);
+            transform: rotate(18deg); }
+  16% {
+    -webkit-transform: rotate(-22deg);
+            transform: rotate(-22deg); }
+  20% {
+    -webkit-transform: rotate(22deg);
+            transform: rotate(22deg); }
+  32% {
+    -webkit-transform: rotate(-12deg);
+            transform: rotate(-12deg); }
+  36% {
+    -webkit-transform: rotate(12deg);
+            transform: rotate(12deg); }
+  40%, 100% {
+    -webkit-transform: rotate(0deg);
+            transform: rotate(0deg); } }
+
+@-webkit-keyframes fa-spin {
+  0% {
+    -webkit-transform: rotate(0deg);
+            transform: rotate(0deg); }
+  100% {
+    -webkit-transform: rotate(360deg);
+            transform: rotate(360deg); } }
+
+@keyframes fa-spin {
+  0% {
+    -webkit-transform: rotate(0deg);
+            transform: rotate(0deg); }
+  100% {
+    -webkit-transform: rotate(360deg);
+            transform: rotate(360deg); } }
+
+.fa-rotate-90 {
+  -webkit-transform: rotate(90deg);
+          transform: rotate(90deg); }
+
+.fa-rotate-180 {
+  -webkit-transform: rotate(180deg);
+          transform: rotate(180deg); }
+
+.fa-rotate-270 {
+  -webkit-transform: rotate(270deg);
+          transform: rotate(270deg); }
+
+.fa-flip-horizontal {
+  -webkit-transform: scale(-1, 1);
+          transform: scale(-1, 1); }
+
+.fa-flip-vertical {
+  -webkit-transform: scale(1, -1);
+          transform: scale(1, -1); }
+
+.fa-flip-both,
+.fa-flip-horizontal.fa-flip-vertical {
+  -webkit-transform: scale(-1, -1);
+          transform: scale(-1, -1); }
+
+.fa-rotate-by {
+  -webkit-transform: rotate(var(--fa-rotate-angle, none));
+          transform: rotate(var(--fa-rotate-angle, none)); }
+
+.fa-stack {
+  display: inline-block;
+  vertical-align: middle;
+  height: 2em;
+  position: relative;
+  width: 2.5em; }
+
+.fa-stack-1x,
+.fa-stack-2x {
+  bottom: 0;
+  left: 0;
+  margin: auto;
+  position: absolute;
+  right: 0;
+  top: 0;
+  z-index: var(--fa-stack-z-index, auto); }
+
+.svg-inline--fa.fa-stack-1x {
+  height: 1em;
+  width: 1.25em; }
+
+.svg-inline--fa.fa-stack-2x {
+  height: 2em;
+  width: 2.5em; }
+
+.fa-inverse {
+  color: var(--fa-inverse, #fff); }
+
+.sr-only,
+.fa-sr-only {
+  position: absolute;
+  width: 1px;
+  height: 1px;
+  padding: 0;
+  margin: -1px;
+  overflow: hidden;
+  clip: rect(0, 0, 0, 0);
+  white-space: nowrap;
+  border-width: 0; }
+
+.sr-only-focusable:not(:focus),
+.fa-sr-only-focusable:not(:focus) {
+  position: absolute;
+  width: 1px;
+  height: 1px;
+  padding: 0;
+  margin: -1px;
+  overflow: hidden;
+  clip: rect(0, 0, 0, 0);
+  white-space: nowrap;
+  border-width: 0; }
+
+.svg-inline--fa .fa-primary {
+  fill: var(--fa-primary-color, currentColor);
+  opacity: var(--fa-primary-opacity, 1); }
+
+.svg-inline--fa .fa-secondary {
+  fill: var(--fa-secondary-color, currentColor);
+  opacity: var(--fa-secondary-opacity, 0.4); }
+
+.svg-inline--fa.fa-swap-opacity .fa-primary {
+  opacity: var(--fa-secondary-opacity, 0.4); }
+
+.svg-inline--fa.fa-swap-opacity .fa-secondary {
+  opacity: var(--fa-primary-opacity, 1); }
+
+.svg-inline--fa mask .fa-primary,
+.svg-inline--fa mask .fa-secondary {
+  fill: black; }
+
+.fad.fa-inverse,
+.fa-duotone.fa-inverse {
+  color: var(--fa-inverse, #fff); }

Metronic/fontawesome6/css/v4-font-face.css

@@ -0,0 +1,26 @@
+/*!
+ * Font Awesome Free 6.0.0 by @fontawesome - https://fontawesome.com
+ * License - https://fontawesome.com/license/free (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
+ * Copyright 2022 Fonticons, Inc.
+ */
+@font-face {
+  font-family: "FontAwesome";
+  font-display: block;
+  src: url("../webfonts/fa-solid-900.woff2") format("woff2"), url("../webfonts/fa-solid-900.ttf") format("truetype"); }
+
+@font-face {
+  font-family: "FontAwesome";
+  font-display: block;
+  src: url("../webfonts/fa-brands-400.woff2") format("woff2"), url("../webfonts/fa-brands-400.ttf") format("truetype"); }
+
+@font-face {
+  font-family: "FontAwesome";
+  font-display: block;
+  src: url("../webfonts/fa-regular-400.woff2") format("woff2"), url("../webfonts/fa-regular-400.ttf") format("truetype");
+  unicode-range: U+F003,U+F006,U+F014,U+F016-F017,U+F01A-F01B,U+F01D,U+F022,U+F03E,U+F044,U+F046,U+F05C-F05D,U+F06E,U+F070,U+F087-F088,U+F08A,U+F094,U+F096-F097,U+F09D,U+F0A0,U+F0A2,U+F0A4-F0A7,U+F0C5,U+F0C7,U+F0E5-F0E6,U+F0EB,U+F0F6-F0F8,U+F10C,U+F114-F115,U+F118-F11A,U+F11C-F11D,U+F133,U+F147,U+F14E,U+F150-F152,U+F185-F186,U+F18E,U+F190-F192,U+F196,U+F1C1-F1C9,U+F1D9,U+F1DB,U+F1E3,U+F1EA,U+F1F7,U+F1F9,U+F20A,U+F247-F248,U+F24A,U+F24D,U+F255-F25B,U+F25D,U+F271-F274,U+F278,U+F27B,U+F28C,U+F28E,U+F29C,U+F2B5,U+F2B7,U+F2BA,U+F2BC,U+F2BE,U+F2C0-F2C1,U+F2C3,U+F2D0,U+F2D2,U+F2D4,U+F2DC; }
+
+@font-face {
+  font-family: "FontAwesome";
+  font-display: block;
+  src: url("../webfonts/fa-v4compatibility.woff2") format("woff2"), url("../webfonts/fa-v4compatibility.ttf") format("truetype");
+  unicode-range: U+F041,U+F047,U+F065-F066,U+F07D-F07E,U+F080,U+F08B,U+F08E,U+F090,U+F09A,U+F0AC,U+F0AE,U+F0B2,U+F0D0,U+F0D6,U+F0E4,U+F0EC,U+F10A-F10B,U+F123,U+F13E,U+F148-F149,U+F14C,U+F156,U+F15E,U+F160-F161,U+F163,U+F175-F178,U+F195,U+F1F8,U+F219,U+F250,U+F252,U+F27A; }

Metronic/fontawesome6/css/v4-font-face.min.css

@@ -0,0 +1,6 @@
+/*!
+ * Font Awesome Free 6.0.0 by @fontawesome - https://fontawesome.com
+ * License - https://fontawesome.com/license/free (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
+ * Copyright 2022 Fonticons, Inc.
+ */
+@font-face{font-family:"FontAwesome";font-display:block;src:url(../webfonts/fa-solid-900.woff2) format("woff2"),url(../webfonts/fa-solid-900.ttf) format("truetype")}@font-face{font-family:"FontAwesome";font-display:block;src:url(../webfonts/fa-brands-400.woff2) format("woff2"),url(../webfonts/fa-brands-400.ttf) format("truetype")}@font-face{font-family:"FontAwesome";font-display:block;src:url(../webfonts/fa-regular-400.woff2) format("woff2"),url(../webfonts/fa-regular-400.ttf) format("truetype");unicode-range:u+f003,u+f006,u+f014,u+f016-f017,u+f01a-f01b,u+f01d,u+f022,u+f03e,u+f044,u+f046,u+f05c-f05d,u+f06e,u+f070,u+f087-f088,u+f08a,u+f094,u+f096-f097,u+f09d,u+f0a0,u+f0a2,u+f0a4-f0a7,u+f0c5,u+f0c7,u+f0e5-f0e6,u+f0eb,u+f0f6-f0f8,u+f10c,u+f114-f115,u+f118-f11a,u+f11c-f11d,u+f133,u+f147,u+f14e,u+f150-f152,u+f185-f186,u+f18e,u+f190-f192,u+f196,u+f1c1-f1c9,u+f1d9,u+f1db,u+f1e3,u+f1ea,u+f1f7,u+f1f9,u+f20a,u+f247-f248,u+f24a,u+f24d,u+f255-f25b,u+f25d,u+f271-f274,u+f278,u+f27b,u+f28c,u+f28e,u+f29c,u+f2b5,u+f2b7,u+f2ba,u+f2bc,u+f2be,u+f2c0-f2c1,u+f2c3,u+f2d0,u+f2d2,u+f2d4,u+f2dc}@font-face{font-family:"FontAwesome";font-display:block;src:url(../webfonts/fa-v4compatibility.woff2) format("woff2"),url(../webfonts/fa-v4compatibility.ttf) format("truetype");unicode-range:u+f041,u+f047,u+f065-f066,u+f07d-f07e,u+f080,u+f08b,u+f08e,u+f090,u+f09a,u+f0ac,u+f0ae,u+f0b2,u+f0d0,u+f0d6,u+f0e4,u+f0ec,u+f10a-f10b,u+f123,u+f13e,u+f148-f149,u+f14c,u+f156,u+f15e,u+f160-f161,u+f163,u+f175-f178,u+f195,u+f1f8,u+f219,u+f250,u+f252,u+f27a}