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

App_Code/ClsContabilidad.vb

@@ -4062,6 +4062,29 @@ Public Class ClsContabilidad
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Sis_InconsistenciasGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener inconsistencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetPolizasDescuadre(Optional Ejercicio As Integer = -1, Optional Periodo As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Sis_PolizasConDescuadreGet")
+
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
 
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsInventarios.vb

@@ -5176,7 +5176,7 @@ Public Class ClsInventarios
 
 #Region "INVENTARIOS - REPORTE DE MOVIMIENTOS DE PROVEEDOR"
 
-    Public Function GetRepMovimientosProveedor(CveEmpresa As Integer, CveConcepto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date) As Boolean
+    Public Function GetRepMovimientosProveedor(CveEmpresa As Integer, CveConcepto As Integer, CveProveedor As Integer, CvePS As Integer, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, FechaI As Date, FechaF As Date) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ProductosProveedor")
 
@@ -5184,6 +5184,9 @@ Public Class ClsInventarios
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen
+            .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
         End With

App_Code/Timbrado.vb

@@ -3479,9 +3479,17 @@ Public Class Timbrado
 
                         Try
                             Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                            Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+                            'Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-                            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB)
+                            'CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB)
-                            CBB = Nothing
+                            'CBB = Nothing
+
+                            Dim qrCode As New GoFac.QrCode()
+                            'String cadenaqrCode = qrCode.GenerarCadenaQrCode(txtXml.Text) 
+
+                            Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=ELleDg==")
+                            File.WriteAllBytes(RutaCBB, bCBB)
+                            bCBB = Nothing
+
                         Catch ex As Exception
                             OnError("Ocurrió un error al generar el QR", ex)
                         End Try

Compras/Compras.aspx.vb

@@ -20229,6 +20229,8 @@ Partial Class Compras_Compras
         If FleteImportacionOpcion > 0 Then RblFleteImportacionOpcion.SelectedValue = FleteImportacionOpcion.ToString
         RegistraScript("$('#ModalFletesImportaciones').modal()")
         UpModalFletesImportaciones.Update()
+
+
     End Sub
     Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs)
         CambiaTipo()

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1963,10 +1963,10 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         RowIndex = GvRow.RowIndex
 
-        If GvRow.FCTextBox("TxtAbono").Text = "" Then
+        If GvRow.FCTextBox("TxtAbono").Visible Then
-            CargaTipoTransaccion("Ing")
-        Else
             CargaTipoTransaccion("Egs")
+        Else
+            CargaTipoTransaccion("Ing")
         End If
 
         Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero

Contabilidad/RepPolizasCuadre.aspx

@@ -15,19 +15,44 @@
     <div class="portlet solid  grey-cascade portlet-filter">
         <div class="portlet-title portlet-filterT smalltitle">
             <div class="tools">
-                <%--<asp:Button ID="BtnConsultar" Text="Consultar" CssClass="btn btn-default" runat="server" />--%>
+                <asp:Button ID="BtnConsultar" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" runat="server" Visible="false" />
             </div>
             <div class="titlefiltros  caption">
-                <%--<div class="row">
+
-                    <label class="col-md-1 " style="width: 80px;">Ejercicio:</label>
+                <div class="row" runat="server" visible ="false"  id="DvRowFiltrosContanSig1" > 
-                    <div class="col-md-2">
+
-                    </div>
+                       <label class="col-md-1 truncate" style="width: 90px;">Ejercicio:</label>
-                </div>--%>
+                            <div class="col-md-2" style="width: 125px;">
+                                <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 truncate" style="width: 90px;">Periodo:</label>
+                            <div class="col-md-2" style="width: 130px;">
+                                <asp:DropDownList ID="DdlPeriodo" runat="server" Width="100px" CssClass="select2me">
+                                    <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                    <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
+                                    <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                    <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                    <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                    <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                    <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                    <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                                    <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                </div>
+
+              
             </div>
         </div>
     </div>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+
             <asp:GridView ID="GvDatos" CssClass="table table-advance table-striped table-hover Widthall" runat="server" AutoGenerateColumns="False" GridLines="None" >
                 <Columns>
                      <asp:TemplateField HeaderText="Ejercicio">
@@ -57,6 +82,42 @@
                      </asp:TemplateField>
                 </Columns>
             </asp:GridView>
+
+
+<%--            FechaMovto	Mensaje	CveIE	CveCompra	CveVenta	CvePrePoliza	FolioPoliza--%>
+
+
+            <asp:GridView ID="GvDatosSIG" CssClass="table table-advance table-striped table-hover Widthall" runat="server" AutoGenerateColumns="False" GridLines="None" Visible="false" >
+                <Columns>
+
+                     <asp:TemplateField HeaderText="Fecha">
+                         <ItemTemplate>
+                            <asp:Literal ID="LtEjercicio" runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
+                        </ItemTemplate>
+                     </asp:TemplateField>
+
+                    <asp:TemplateField HeaderText="Folio">
+                         <ItemTemplate>                           
+
+                             <asp:HyperLink  CssClass="Texto" runat="server" 
+                                 Text='<%# If(Not IsDBNull(Eval("FolioPoliza")), Eval("FolioPoliza"), "ND") %>'
+                                 NavigateUrl='<%#  String.Concat("~/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza=", Eval("CvePrePoliza"))   %>'
+                                 target="_blank" >
+                             </asp:HyperLink>                             
+
+                        </ItemTemplate>
+                     </asp:TemplateField>
+
+                    <asp:TemplateField HeaderText="Concepto">
+                         <ItemTemplate>
+                            <asp:Literal ID="LtlMensaje" runat="server" Text='<%# Eval("Concepto")%>'></asp:Literal>
+                        </ItemTemplate>
+                     </asp:TemplateField>
+                    
+                </Columns>
+            </asp:GridView>
+
+
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Contabilidad/RepPolizasCuadre.aspx.vb

@@ -4,12 +4,21 @@ Option Strict On
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+
 Partial Class Contabilidad_RepPolizasCuadre
     Inherits ClsPaginas
 
     Private Sub Contabilidad_RepPolizasCuadre_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            CargaGrid()
+
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                CargaEjercicios()
+                MuestraControlesContabilidadSIG()
+                CargaDatosContabilidaSIG()
+            Else
+                CargaGrid()
+            End If
+
         End If
     End Sub
 
@@ -25,6 +34,7 @@ Partial Class Contabilidad_RepPolizasCuadre
         UpDatos.Update()
     End Sub
 
+
     Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim Liga1 As String = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", e.Row.DBCampo("IdPoliza"))
@@ -32,4 +42,72 @@ Partial Class Contabilidad_RepPolizasCuadre
 
         End If
     End Sub
+
+
+#Region " C O N T A B L I D A D  S I G"
+    Private Sub MuestraControlesContabilidadSIG()
+
+        GvDatos.Visible = False
+
+        GvDatosSIG.Visible = True
+
+        BtnConsultar.Visible = True
+        DvRowFiltrosContanSig1.Visible = True
+
+    End Sub
+
+    Private Sub CargaDatosContabilidaSIG()
+
+
+        Dim ObjP As New ClsContabilidad
+
+        If ObjP.GetPolizasDescuadre(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+
+            If ObjP.DtResultados.Rows.Count > 0 Then
+                GvDatosSIG.DataSource = ObjP.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+            Else
+                GvDatosSIG.DataSource = Nothing
+            End If
+        Else
+            GvDatosSIG.DataSource = Nothing
+        End If
+
+        ObjP.Dispose()
+
+        GvDatosSIG.DataBind()
+        UpDatos.Update()
+
+
+
+    End Sub
+
+
+    Private Sub CargaEjercicios()
+
+        Dim Clsconta As New ClsContabilidad
+        If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DdlEjercicio.DataSource = Clsconta.DtResultados
+        Else
+            DdlEjercicio.DataSource = Nothing
+        End If
+        Clsconta.Dispose()
+
+        DdlEjercicio.DataBind()
+        DdlEjercicio.SelectedValue = Now.Year.ToString
+
+        DdlPeriodo.SelectedValue = Now.Month.ToString
+
+    End Sub
+
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatosContabilidaSIG()
+    End Sub
+
+
+#End Region
+
+
+
+
 End Class

CxC/RepCxC.aspx.vb

@@ -105,7 +105,7 @@ Partial Class RepCxC
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
             CargaDatos()
-            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then ChkAnticipos.visible = True
+            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
             ActivaEnviarEstadoCuenta()
             If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
             CreaDataTableColor()
@@ -380,55 +380,57 @@ Partial Class RepCxC
                 If e.Row.DBCampo("CveCliente").ToString.ToEntero > 0 Then
                     e.Row.FCLiteral("LtlGrupo").Text = $"<a  href='/Ventas/Clientes.aspx?CveCliente={e.Row.DBCampo("CveCliente")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
                 End If
-            End If
+            End If
+
+            Dim AplicaAnticipos As Integer = If(ChkAnticipos.Checked, 1, 0)
 
-            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}",
+            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente{26}",
+            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente{26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
-            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&EstatusCliente={26}",
+            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
 
             e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot
 

CxC/RepCxCDetalle.aspx

@@ -312,6 +312,10 @@
                             </asp:DropDownList>
                         </div>
 
+                        <div class="col-md-2">
+                            <asp:CheckBox ID="ChkAnticipos" runat="server" Text="Incluye Anticipos" TextAlign="Left" Checked="true" Visible="false" />
+                           </div>
+
                       </div>
 
                    
@@ -324,11 +328,11 @@
     <asp:UpdatePanel ID="UpCobranza" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
             <div class="row">
-                <div class="col-md-6">
+                <div class="col-md-12" style="text-align:right">
-                    <div class="text-left">
+                    
                         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                         <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>
+                    
                 </div>
                 <div class="col-md-offset-8" style="width: 300px;">
                     <div class="portlet light bordered xspadding" id="DivCobranza" runat="server" visible="false">

CxC/RepCxCDetalle.aspx.vb

@@ -348,6 +348,11 @@ Partial Class RepCxCDetalle
 
         DdlSubProyecto.SelectedValueExist(CveSubProyecto)
 
+
+        If Request("AplicaAnticiposPagados") IsNot Nothing Then
+            ChkAnticipos.Checked = If(Request("AplicaAnticiposPagados").ToEntero = 1, True, False)
+        End If
+
         DdlClienteClasificacion.SelectedValueExist(CveClienteClasificacion)
         CargaClientes()
         If CveCliente > 0 Then
@@ -410,7 +415,7 @@ Partial Class RepCxCDetalle
             DdlClientesWS.Attributes.Add("style", "!important width: 100%;")
         End If
 
-
+        If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
     End Sub
     Private Function CargaDatos() As DataTable
         Dim dt As DataTable = Nothing
@@ -427,6 +432,7 @@ Partial Class RepCxCDetalle
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
         FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
         FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1")
+
         'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero
         Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
         If ObjMovtos.GetCxCDetalle(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero,
@@ -435,7 +441,7 @@ Partial Class RepCxCDetalle
                                    RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF,
                                    FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero,
                                    CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
-                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero) Then
+                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0)) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             dt = ObjMovtos.DtResultados

Inventarios/RepMovimientosProveedor.aspx

@@ -31,11 +31,8 @@
                     <div class="titlefiltros  caption">
                         <div class="row">
                             <label class="col-md-1 ">Proveedor:</label>
-                            <div class="col-md-3">
+                            <div class="col-md-3"> 
-                                <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+                                <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
-                                </asp:DropDownList>
-                                <asp:RequiredFieldValidator ID="RFVProveedor" runat="server" ControlToValidate="DdlProveedor" Display="None" InitialValue="-1" ErrorMessage="El campo <b>''Proveedor''</b> es requerido por la aplicación, por favor seleccione uno." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCEProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedor" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                             <label class="col-md-1 ">Fecha Inicial:</label>
                             <div class="col-md-1">
@@ -72,11 +69,25 @@
                 </div>
                 <div class="portlet-body" style="display:none">
                     <div class="row">
+                        <label class="col-md-1 truncate">P. S.</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+                        </div>
                         <label class="col-md-1 ">Concepto:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlConcepto" runat="server" AppendDataBoundItems="true" DataTextField="Concepto" DataValueField="CveConcepto" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
                             </asp:DropDownList>
                         </div>
+                        <label class="col-md-1 ">Origen:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlAlmacenOrigen" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+                            </asp:DropDownList>
+                        </div>
+                         <label class="col-md-1 ">Destino:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlAlmacenDestino" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

Inventarios/RepMovimientosProveedor.aspx.cs

@@ -38,19 +38,39 @@ public partial class Inventarios_RepMovimientosProveedor : ClsPaginas
 
     public void CargaCombos()
     {
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+        //DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
-        DdlProveedor.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        //DdlProveedor.Items.Insert(0, new ListItem("Seleccione", "-1"));
-        DdlProveedor.DataBind();
+        //DdlProveedor.DataBind();
+        DdlProveedor.setEsWebService(true);
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores");
+        DdlProveedor.SelectedText = "Todos";
+        DdlProveedor.SelectedValue = "-1";
+
 
         DdlConcepto.DataSource = GlobalDTInvConceptos;
         DdlConcepto.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlConcepto.DataBind();
+
+        DdlAlmacenOrigen.DataSource = get_GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+                DdlAlmacenOrigen.DataBind();
+        DdlAlmacenOrigen.Items.Insert(0, new ListItem("Todos", "-1")); 
+
+        DdlAlmacenDestino.DataSource = get_GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+        DdlAlmacenDestino.DataBind();
+        DdlAlmacenDestino.Items.Insert(0, new ListItem("Todos", "-1"));
+
+        DdlPS.setEsWebService(true);
+        DdlPS.SelectedText = "Todos";
+        DdlPS.SelectedValue = "-1";
     }
 
     public void CargaDatos()
     {
+        int CvePS = DdlPS.SelectedValue.ToEntero();
         ClsInventarios ObjInv = new ClsInventarios();
-        if (ObjInv.GetRepMovimientosProveedor(UsuarioActual.CveEmpresa, DdlConcepto.SelectedValue.ToEntero(), DdlProveedor.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate()))
+        if (ObjInv.GetRepMovimientosProveedor(UsuarioActual.CveEmpresa, DdlConcepto.SelectedValue.ToEntero(), DdlProveedor.SelectedValue.ToEntero(),
+                CvePS, DdlAlmacenOrigen.SelectedValue.ToEntero(), DdlAlmacenDestino.SelectedValue.ToEntero(),
+                txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate()))
         {
             DtDatos = ObjInv.DtResultados;
             GvDatos.DataSource = DtDatos;
@@ -74,7 +94,7 @@ public partial class Inventarios_RepMovimientosProveedor : ClsPaginas
             String FechaI;
             if (txtFechaI.Text == "" || txtFechaI.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = $"&emsp;<b>Fecha Inicial:</b> {txtFechaI.Text}"; }
             String Proveedor;
-            if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; }
+            if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}"; } else { Proveedor = ""; }
             String Concepto;
             if (DdlConcepto.SelectedValue != "-1") { Concepto = $"&emsp;<b>Concepto:</b> {DdlConcepto.SelectedItem.Text}"; } else { Concepto = ""; }
             System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));

Inventarios/ResguardoMaterial.aspx

@@ -493,13 +493,13 @@
                                 <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%"  Visible="false"/>
                                 <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
-                                        <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server" Visible="false"></asp:TextBox>
+                                        <asp:TextBox ID="TxtLote" Width="85px" class="form-control input-sm" Text='<%# Eval("Lote") %>' runat="server" Visible="false"></asp:TextBox>
                                 </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
                                     <ItemTemplate>
                                         <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                            <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server" Visible="false"></asp:TextBox>
+                                            <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm ADSMaskDate"  Text='<%# Eval("FechaCaducidad") %>' Style="width: 80px" runat="server" Visible="false"></asp:TextBox>
                                             <span class="input-group-btn ">
                                                 <asp:LinkButton runat="server" ID="LnkCaducidad" class="btn default" Visible="false"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
                                             </span>

Inventarios/ResguardoMaterial.aspx.vb

@@ -986,7 +986,7 @@ Partial Class Inventarios_ResguardoMaterial
                             Cont = 0
                             Importe = ObjInventario.DtResultados.SUMD("Total").RoundAD
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                Dim CveSeccionAlmacen As Integer = DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
+                                Dim CveSeccionAlmacen As Integer = -1 'DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
                                 Dim Lote As String = "-1"
                                 Dim FechaCaducidad As Date = MinFecha
                                 If DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString <> "" Then Lote = DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString
@@ -1013,6 +1013,7 @@ Partial Class Inventarios_ResguardoMaterial
         End If
 
         If Not TieneError Then
+            ObjInventario.Commit()
             Dim Msg As New StringBuilder
             If Concepto = 23 Then
                 'FolioEntrada
@@ -1035,7 +1036,6 @@ Partial Class Inventarios_ResguardoMaterial
                 DdlSubProyecto.SelectedValueExist("-1")
             End If
 
-            ObjInventario.Commit()
 
             If Concepto = 23 Then
                 LimpiarMovimiento()

Site.master

@@ -257,6 +257,15 @@
                                             Buscar Acercamientos
                                         </a>
                                     </li>
+
+                                     <li id="TdBuscaActivoFijo" runat="server" visible="False">
+                                        <a onclick="javascript:AbrirVentana('/AF/PopUpBuscarAF.aspx',800,600,'N');">
+                                            <i class="fa fa-building"></i>
+                                            Buscar Activo Fijo
+                                        </a>
+                                    </li>
+
+
                                 </ul>
                             </li>
                             <li class="dropdown dropdown-user">

Site.master.vb

@@ -276,6 +276,9 @@ Partial Class Site
         'BUSCAR ACERCAMIENTO CRM'
         If UsuarioActual.TienePermisoProceso(251) Then TdCRMAcercamientos.Visible = True
 
+        'Busca Activo Fijo
+        If UsuarioActual.TienePermisoPagina(62) Then TdBuscaActivoFijo.Visible = True
+
     End Sub
 
     Protected Sub CerrarSesion_Click(sender As Object, e As EventArgs) Handles BtnCerrarSesion.ServerClick

Ventas/ClientesAbonar.aspx

@@ -199,6 +199,19 @@
                                     <asp:CheckBox ID="ChkLiquidacion" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
                                 </div>
 
+                            </div>
+                            <div class="row" id="divAnticipo" runat="server" visible="false"  >
+                                <div class="col-md-2" >Anticipo:</div>
+                                <div class="col-md-3">
+                                    <asp:TextBox ID="TxtAnticipo" runat="server"  Width ="100px" ClientIDMode="Static" />
+                                </div>
+
+
+                                 <div class="col-md-2"   runat="server" id="Div3" visible="false">Liquidación:</div>
+                                <div class="col-md-3"  runat="server" id="Div4" visible="false">
+                                    <asp:CheckBox ID="CheckBox2" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
+                                </div>
+
                             </div>
 
                             <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
@@ -239,37 +252,35 @@
     <br />
     <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <table class="Widthall">
+            <table class="Widthall" >
                 <tr>
                     <td style="text-align: right; width: 20%">
                         <asp:CheckBox Text=" Seguir Registrando Pagos" ID="ChkSeguirRegistrando" CssClass="md-checksd" runat="server" />
                     </td>
-                    <td style="text-align: left; width: 12%">
+                    <td style="text-align: left; width: 16%">
                         <asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
                         <br />
                         <asp:Label ID="LblValidaCeuntaTipoTransaccion" runat="server" Visible="false" ForeColor="Red"></asp:Label>
                     </td>
-                    <td style="text-align: left; width: 30%">
+                    <td style="text-align: left; ">
                         <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" class="btn btn-primary" />
                     </td>
+                    <td style="text-align: right; width: 18%">
+                            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvCxC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 125px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvCxC.ClientID) %>" style="margin-top: -3px; margin-right: 20px" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+        
+                    </td>
                 </tr>
             </table>
         </ContentTemplate>
     </asp:UpdatePanel>
-    <br />
+  
-
-    <div class="row">
-        <div class="Widthall" style="text-align: right!important; margin-top: 20px!important; margin-bottom: 2px!important">
-            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvCxC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvCxC.ClientID) %>" style="margin-top: -3px; margin-right: 20px" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-        </div>
-    </div>
 
     <asp:UpdatePanel ID="UPVentas" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Cobrar Pendientes"
                 DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion,Descuento,ClaveMetodoPagoSAT"
-                CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
+                CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None" HeaderStyle-CssClass="ADtr">
                 <Columns>
                     
                     <%--0--%>
@@ -338,7 +349,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--9--%>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center"  ItemStyle-width="35px">
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Center"  ItemStyle-width="25px">
                         <HeaderTemplate></HeaderTemplate>
                         <ItemTemplate>
                             <asp:HyperLink ID="LtlMoneda" runat="server" Text='<%# Eval("TMoneda", "{0}") %>' Style="text-decoration: none" Enabled="false" ForeColor="#333333"></asp:HyperLink>&nbsp;
@@ -399,55 +410,56 @@
                        <%--17--%>
                     <asp:TemplateField Visible="false">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol1" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol1" Width="55px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--18--%>
                      <asp:TemplateField Visible="false">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol2" Width="50px" runat="server"  Style="text-align: right;" ></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol2" Width="55px" runat="server"  Style="text-align: right;" ></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--19--%>
                      <asp:TemplateField Visible="false">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol3" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol3" Width="55px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--20--%>
                      <asp:TemplateField Visible="false">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol4" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol4" Width="55px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--21--%>
                      <asp:TemplateField Visible="false">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol5" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol5" Width="55px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--22--%>
                      <asp:TemplateField Visible="false">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol6" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol6" Width="55px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--23--%>
                      <asp:TemplateField Visible="false">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol7" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol7" Width="55px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--24--%>
                       <asp:TemplateField Visible="false" HeaderText="Total Gastos">
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtLiqCol8" Width="50px" runat="server"  Style="text-align: right;" onkeypress="return  disablekeys();"></asp:TextBox>
+                            <asp:TextBox ID="TxtLiqCol8" Width="55px" runat="server"  Style="text-align: right;" onkeypress="return  disablekeys();"></asp:TextBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--25--%>
-                    <asp:TemplateField Visible="false" HeaderText="Anticipo">
+                    <asp:TemplateField Visible="false" HeaderText="Anticipo" ItemStyle-Width="120px">
                         <ItemTemplate>
                             <asp:TextBox ID="TxtAmort" Width="50px" runat="server"  Style="text-align: right;"  ></asp:TextBox>
+                            <asp:DropDownList ID="DdlAnti" runat="server" Width="40px"  DataTextField="RazonSocial" DataValueField="CveIE"></asp:DropDownList>
                         </ItemTemplate>
                     </asp:TemplateField>
 
@@ -616,21 +628,14 @@
             } else {
                 txt.value = "";
 
-                let ClsSelLiquidacionVenta = ".ClsSelLiquidacionVenta" + CveVenta;
+                let ClsSelLiqVenta = ".ClsSelLiqVenta" + CveVenta;
-                let ClsSelLiquidacionVentaTotal = ".ClsSelLiquidacionVentaTotal" + CveVenta;
+                let ClsSelLiqVentaTotal = ".ClsSelLiqVentaTotal" + CveVenta;
 
-                $(ClsSelLiquidacionVenta).val('');
+                $(ClsSelLiqVenta).val('');
-                $(ClsSelLiquidacionVentaTotal).val('');
+                $(ClsSelLiqVentaTotal).val('');                
-                
 
             }
-            //if (typeof t2 === "undefined") {
+          
-
-            //} else {
-
-            //}
-
-
             if (chkPesosBancos) {
                 CambiaPesosDolares()
             } else if (chkDolaresBancos) {
@@ -654,6 +659,7 @@
             var div = document.getElementById("DivTC")
 
             let totalLiquidacion = 0.0;
+            let totalAnti = 0.0;
 
             if ($get('TxtTC') != null) {
                 tc = ToDouble($get('TxtTC').value);
@@ -709,21 +715,29 @@
             }
             $get('TxtObservaciones').value = $get('HdnObs').value + ' Ventas: ' + Ventas;
 
+            $(".ClsSelLiq").each(function () {
 
-
+                totalLiquidacion = totalLiquidacion + ToDouble($(this).val());
-            
+               
-            $(".ClsSelLiquidacion").each(function () {
-
-                let valorString = $(this).val();
-                valorString = valorString.replace(/,/g, '');
-
-                if (valorString.trim().length > 0) {
-                    totalLiquidacion = totalLiquidacion + parseFloat(valorString);
-                }
-
             });
 
+            $(".ClsSelLiqAnt").each(function () {
 
+                totalAnti = totalAnti + ToDouble($(this).val());
+               
+            });
+                      
+            totalLiquidacion = totalLiquidacion + totalAnti;
+
+            if ($get('TxtAnticipo') != null) {
+               
+                if ($get('TxtAnticipo').value == '') {
+                    $get('TxtAnticipo').value = 0.00
+                }
+                else {
+                    Importe = Importe + ToDouble($get('TxtAnticipo').value);
+                }
+            }
 
             if ($get('TxtOtrosImportes') != null) {
                 if (pagoMultiple != 0) {
@@ -737,11 +751,10 @@
                 else {
                     return Importe + parseFloat(Comision) - totalLiquidacion;
                 }
-
             }
             else {
                 return Importe - totalLiquidacion
-            }
+            }            
         }
 
         function FnCambia(chk, txt, saldo, op, pagoMultiple, monedaPago) {
@@ -912,34 +925,35 @@
                 $get("BtnCambiaTipoMoneda").click();
                 TipoCambioActual = TipoCambioTxt;
             }
-        }
+        } 
 
+        function SumaLiq(txt, CveVenta, pagoMultiple, monedaPago) {
 
+            let ClsSelLiqVenta = ".ClsSelLiqVenta" + CveVenta;
+            let ClsSelLiqVentaTotal = ".ClsSelLiqVentaTotal" + CveVenta;
+            let ClsSelLiqAnticipo = ".ClsSelLiqAnt" + CveVenta;
 
-        function SumaLiquidacion(txt, CveVenta, pagoMultiple, monedaPago) {
-
-            let ClsSelLiquidacionVenta = ".ClsSelLiquidacionVenta" + CveVenta;
-            let ClsSelLiquidacionVentaTotal = ".ClsSelLiquidacionVentaTotal" + CveVenta;
             let Total = 0.0;
+            let Anticipos = 0.0;
 
+            $( ClsSelLiqVenta).each(function () {
 
-            $( ClsSelLiquidacionVenta).each(function () {
+                Total = Total + ToDouble($(this).val());   
-
-                let valorString = $(this).val();
-                valorString = valorString.replace(/,/g, '');
-                
-                if (valorString.trim().length > 0) {
-                    Total = Total + parseFloat(valorString);
-                }                
 
             });
+            $(ClsSelLiqAnticipo).each(function () {
 
-            $(ClsSelLiquidacionVentaTotal).each(function () {
+                Anticipos = Anticipos + ToDouble($(this).val());
+               
+            });
+           
+            Total = Total + Anticipos;
+
+            $(ClsSelLiqVentaTotal).each(function () {
                 $(this).val(Total);
                 FormatoMoneda2($(this));
             });
-
+                       
-           
             FormatoMoneda(txt);
 
             var Suma = SumaValores(pagoMultiple, monedaPago);

Ventas/Ventas.aspx.vb

@@ -22334,6 +22334,7 @@ Partial Class Ventas
         DivNombreCliente.Visible = False
         DivTipoPersona.Visible = False
         DivDireccionCliente.Visible = False
+
         DivNumeroCPCliente.Visible = False
         DivColoniaTelefonoCliente.Visible = False
         DivCiudadLocalidadCliente.Visible = False
@@ -34349,5 +34350,21 @@ Partial Class Ventas
     End Sub
 #End Region
 
+
+    Protected Sub RdTipoPersona_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DVRegimenSociedad.Visible = False
+        DivRazonSocial2.Attributes.Add("class", "col-md-12")
+
+        If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+
+            DivRazonSocial2.Attributes.Add("class", "col-md-8")
+            DVRegimenSociedad.Visible = True
+
+        End If
+
+        UpAgregarCliente.Update()
+    End Sub
+
 End Class