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

App_Code/ClsContabilidad.vb

@@ -889,6 +889,7 @@ Public Class ClsContabilidad
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CvePrePolizaOriginal", SqlDbType.Int).Value = CvePrePolizaOriginal
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
             .Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovimiento
             .Add("@Importe", SqlDbType.Money).Value = If(CveConceptoContable = 30, Importe, Math.Round(Importe, 2))
             .Add("@ImporteMX", SqlDbType.Money).Value = Math.Round(ImporteMX, 2)
@@ -896,7 +897,6 @@ Public Class ClsContabilidad
             .Add("@TC", SqlDbType.Decimal).Value = TipoCambio
             .Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago
             .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
-            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
             .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
             .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
             .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
@@ -938,9 +938,15 @@ Public Class ClsContabilidad
         Catch ex1 As SqlException
             If ex1.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
+                Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
+            End If '
         Catch ex As Exception
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

App_Code/ClsMovimientos.vb

@@ -1438,7 +1438,8 @@ Public Class ClsMovimientos
                                        Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                                        Optional CveBanco As Integer = -1, Optional CveCuenta As Integer = -1,
                                        Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
-                                       Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha) As Boolean
+                                       Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
+                                       Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRecuperacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -1464,7 +1465,10 @@ Public Class ClsMovimientos
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
 
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
-            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+
+            .Add("@FechaRegistroIEI", SqlDbType.Date).Value = FechaRegistroIEI.ToShortDateString
+            .Add("@FechaRegistroIEF", SqlDbType.Date).Value = FechaRegistroIEF.ToShortDateString
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1518,7 +1522,8 @@ Public Class ClsMovimientos
                                  Optional CveCuenta As Integer = -1, Optional Grupo As String = "-1",
                                  Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
                                  Optional CveMoneda As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional Tipo As Integer = -1,
-                                 Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing) As Boolean
+                                 Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing,
+                                 Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1549,9 +1554,10 @@ Public Class ClsMovimientos
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
 
-
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
-            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+            .Add("@FechaRegistroIEI", SqlDbType.Date).Value = FechaRegistroIEI.ToShortDateString
+            .Add("@FechaRegistroIEF", SqlDbType.Date).Value = FechaRegistroIEF.ToShortDateString
 
         End With
 

App_Code/ClsVentas.vb

@@ -4703,6 +4703,21 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+
+    Public Function GetVentasNoEnviadas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_VentasNoEnviadas")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas no enviadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean

Bancos/DepositosCaja.aspx

@@ -194,7 +194,7 @@
                 <div class="col-md-1" runat="server" id="Div1" style ="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox"/>
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none">
+                <div class="col-md-11 rowcheckCampos" id="DivDescuento" style="display: none">
                     
                     <div class="col-md-1" style="padding-right: 130px;">
                         <label for="TxtDescuento">Importe:</label>
@@ -208,11 +208,16 @@
                         </asp:DropDownList>
                     </div>
               
-                    <div class="col-md-1">
+                    <div class="col-md-2">
                         <label>Clasificación:</label>
                         <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                         </asp:DropDownList>
                     </div>
+                    <div class="col-md-1">
+                        <label>Emp:</label>
+                        <asp:DropDownList  ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
+                        </asp:DropDownList>
+                    </div>
                 </div>
                 
             </div>
@@ -415,7 +420,7 @@
                 var txtdescuento = ToDouble($('#C_TxtDescuento').val());
                 if (txtdescuento != 0) {
                     var DescuentoNegativa = 0;
-                    if (txtdescuento < 0) {
+                    if (txtdescuento > 0) {
                         DescuentoNegativa = txtdescuento * -1;
                     }
                     if (DescuentoNegativa > saldo) {
@@ -507,14 +512,11 @@
         function txtSumaDescuento(txt) {
             var comision2 = ToDouble($('#C_TxtDescuento').val());
             var comisionNegativa = 0;
-            if (comision2 < 0) {
+            if (comision2 > ValorTotalSeleccionado) {
-                comisionNegativa = comision2 * -1;
-            }
-            if (comisionNegativa > ValorTotalSeleccionado) {
                 $('#C_TxtDescuento').val(descuento)
-                alert("No es posible poner un descuento superior a lo seleccionado")
+                alert("No es posible poner un IVA superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + comision2 + comision - IVA - ComisionIntermediario;
+                saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 descuento = ToDouble($('#C_TxtDescuento').val())
             }
@@ -528,7 +530,7 @@
                 $('#C_TxtIVA').val(IVA)
                 alert("No es posible poner un IVA superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + descuento + comision - comision2 - ComisionIntermediario;
+                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - ComisionIntermediario;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 IVA = ToDouble($('#C_TxtIVA').val())
             }
@@ -541,7 +543,7 @@
                 $('#C_TxtComisionIntermediario').val(ComisionIntermediario)
                 alert("No es posible poner un importe superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + descuento + comision - comision2 - IVA;
+                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - IVA;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 ComisionIntermediario = ToDouble($('#C_TxtComisionIntermediario').val())
             }

Bancos/DepositosCaja.aspx.vb

@@ -63,6 +63,9 @@ Partial Class Bancos_DepositosCaja
         DdlClasificacionDescuento.DataBind()
         DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlPersonal.DataBind()
+
         'intermediario
         DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343))
         DdlProveedorIntermediario.DataBind()
@@ -119,7 +122,7 @@ Partial Class Bancos_DepositosCaja
 
         TotalImportePrePoliza = TotalImporte
         If Comision <> 0 Then
-            TotalImporte = TotalImporte + Comision + Descuento
+            TotalImporte = TotalImporte + Comision
             'Comision = -(Comision) ' se inverte el valor, va cargada
             'Descuento = -(Descuento) ' se inverte el valor, va cargada
             If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -128,6 +131,15 @@ Partial Class Bancos_DepositosCaja
             End If
         End If
 
+        If Descuento <> 0 Then
+            TotalImporte = TotalImporte - Descuento
+            'Descuento = -(Descuento) ' se inverte el valor, va cargada
+            If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
+                Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
         If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
             TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
         End If
@@ -230,7 +242,7 @@ Partial Class Bancos_DepositosCaja
                 CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
                 CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then
                     OcurrioError = True
                 End If
             End If
@@ -263,7 +275,7 @@ Partial Class Bancos_DepositosCaja
                 CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
                     OcurrioError = True
                     Exit For
                 End If

Bancos/ProveedoresAbonar.aspx.vb

@@ -1743,11 +1743,9 @@ Partial Class Bancos_ProveedoresAbonar
 
                                                         Dim ImporteNOIVA As Decimal = gvr.DataKey("IVAPorPagarNoDeducible").ToDecimal * PorcentajePago
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, CveSubProyecto:=CveSubProyecto, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                             Exit For
-
-
                                                         End If
                                                     End If
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -1180,7 +1180,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'"
                         If actualizar Then
                             contador = contador + 1
-                            If Not ObjContabilidad.UpdatePrepolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
+                            If Not ObjContabilidad.UpdatePrePolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
                                                                CtaContable, TipoMovto, ImporteMN, CveTipoGasto:=CveTipoGastonew, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 OcurrioError = True
                                 Exit For

Contabilidad/RegPrePolizaS.aspx

@@ -709,7 +709,7 @@
                                 <div class="row">
                                     <div class="col-xs-2" style="text-align: left">Concepto:</div>
                                     <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px" AutoPostBack="true">
+                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me"  Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
                                         </asp:DropDownList>
                                         <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList>
                                         <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList>
@@ -726,7 +726,7 @@
                                         Cuenta:
                                     </div>
                                     <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlCtaContableE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
+                                        <asp:DropDownList ID="DdlCtaContableE" runat="server"  Width="405px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
                                     </div>
                                 </div>
                                 <br />

Contabilidad/RegPrePolizaS.aspx.vb

@@ -912,11 +912,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                             idCuentaContabilizacion = 0
                         End If
                         If Importe > 0 Then
-                            Dim tCveCuenta As Integer = -1
+                            Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
 
-                            If gvr.datakey("CveConcepto") = "299" Then
+                            'If gvr.datakey("CveConcepto") = "299" Then
-                                tCveCuenta = gvr.datakey("CveCuenta").toentero
+                            '    tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
-                            End If
+                            'End If
 
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
@@ -1247,7 +1247,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If DtMovimientos Is Nothing Then CreaDT()
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1328,7 +1328,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Rows.Count > 0 Then
                 Dim dr As DataRow = Rows(0)
-                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1342,19 +1342,21 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
-
+                dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
+                dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
+
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
-
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
+
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
-
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
+
                 If TxtCargoE.Text <> "" Then
                     dr("Cargo") = TxtCargoE.Text.ToDouble
                     dr("Abono") = "".ToDouble
@@ -1449,7 +1451,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCtaContable.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("Concepto") = TxtDescripcion.Text
@@ -1937,31 +1939,42 @@ Partial Class ContabilidadC_RegPrePolizaS
             Try
 
 
-                For Each Row As DataRow In dt.Rows
+                For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows
 
                     Dim NombreCuenta As String = Row("NombreCuenta").ToString
                     Dim Cuenta As String = Row("Cuenta").ToString
                     Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString
 
-                    Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
+                    Dim CveSubProyecto As Integer = -1
                     Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
-                    Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
+                    Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
                     Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
                     Dim CveClasificacion As Integer = -1
+                    Dim CveCuenta As Integer = -1
+                    Dim ObjConta2 As New ClsContabilidad
+                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString, 1, UsuarioActual.CveEmpresa) Then
+                        CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
+                    End If
+                    ObjConta2.Dispose()
                     'sino viene  el cveconcepto, busca por le nombre del concepto
-                    If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoAdministrativo"))).ToEntero
+                    If CveConceptoContable = 0 Then
+                        Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
+                        DtMovimientos.Clear()
+                        Exit For
+                    End If
+
+                    If Row("SubProyecto").ToString <> "" Then
+                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))) 'Row("CveSubProyecto").ToString.ToEntero
+                    End If
 
                     If CveConceptoContable = 69 Then
                         CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero
                     End If
 
-                    If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero
-
                     Dim dr As DataRow = DtMovimientos.NewRow
                     Dim CodigoCuenta As String = ""
 
-                    dr("IdCuenta") = IdCtaContable
+                    dr("CodigoCuenta") = NombreCuenta 'Cuenta & "<br>" & NombreCuenta
-                    dr("CodigoCuenta") = Cuenta & "<br>" & NombreCuenta
                     dr("Cuenta") = ConceptoAdministrativo
                     dr("Referencia") = Row("Referencia").ToString
                     dr("Concepto") = Row("Concepto").ToString
@@ -1969,10 +1982,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("EsComodin") = 0
                     dr("CveConcepto") = CveConceptoContable
                     dr("CveConceptoContable") = CveConceptoContable
-                    dr("ConceptoContable") = ""
+                    dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
                     dr("Cargo") = Row("Cargo").ToString.ToDecimal
                     dr("Abono") = Row("Abono").ToString.ToDecimal
-                    dr("Descripcion") = ""
+                    dr("Descripcion") = Row("Concepto").ToString
                     dr("CveSubProyecto") = CveSubProyecto
                     dr("CveProveedor") = -1
                     dr("CveCompra") = -1
@@ -1980,6 +1993,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("CveClasificacion") = CveClasificacion
                     dr("CveCliente") = -1
                     dr("CveVenta") = -1
+                    dr("CveCuenta") = CveCuenta
 
                     TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
                     TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero

General/SaldosIniciales.aspx.vb

@@ -1227,7 +1227,7 @@ Partial Class General_SaldosIniciales
 
                 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
                     Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
-                    Dim TipoDocto As String = Row("Tipo Documento").ToString
+                    Dim TipoDocto As String = Row("Tipo Documento").ToString.Trim
                     Dim RFC As String = Row("RFC").ToString.Trim
                     Dim Serie As String = Row("Serie").ToString
                     Dim Folio As Integer = Row("Folio").ToString.ToEntero

Inicio.aspx

@@ -1255,6 +1255,47 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+        <div id="DvCorreoSinEnviar" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H2" runat="server">Ventas sin correo enviado</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-6">
+                                <label># No Enviadas: </label>    
+                                <asp:Label runat="server" ID="lblVentasSinEnviar" Text="0" Font-Bold="true"></asp:Label>
+                            </div>
+
+                            <div class="col-md-6" style="text-align: right">
+                            <input type="text" id="TxtBusquedaVenta" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaVenta','{0}')", GvVentasEmail.ClientID) %>" style="display: inline-block; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCentroCosto','{0}')", GvVentasEmail.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            </div>
+                        </div>
+                        <asp:GridView ID="GvVentasEmail" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-heighterror="800" EmptyDataText="No se encontraron registros">
+                            <Columns>
+                                <asp:HyperLinkField HeaderText="Serie-Folio" ItemStyle-Width="15%" DataNavigateUrlFields="CveVenta" DataTextField="SerieFolio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" Target="_blank" />
+                                <asp:BoundField DataField="Fecha" ItemStyle-Width="15%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}"/>                                
+                                
+                                <asp:BoundField DataField="NombreComercial" ItemStyle-Width="60%" HeaderText="Nombre"  ItemStyle-HorizontalAlign="left" />
+
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+                    <div class="modal-footer">
+                        <button data-dismiss="modal" class="btn btn-default">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
 

Inicio.aspx.vb

@@ -192,6 +192,9 @@ Partial Class Inicio
                 RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas")
             End If
 
+            'Ventas sin correo enviado
+            If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas()
+
             If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE()
             If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
 
@@ -301,6 +304,20 @@ Partial Class Inicio
         GvNoTimbradasCentroCosto.DataBind()
     End Sub
 
+    Private Sub MuestraVentasNoEnviadas()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetVentasNoEnviadas(UsuarioActual.CveEmpresa) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                lblVentasSinEnviar.Text = ObjVentas.DtResultados.Rows.Count
+                GvVentasEmail.DataSource = ObjVentas.DtResultados
+
+                RegistraScript("$('#DvCorreoSinEnviar').modal('show');", "showmodal2Incons")
+            End If
+        End If
+        ObjVentas.Dispose()
+        GvVentasEmail.DataBind()
+    End Sub
+
     Private Sub CargaSubProyectos()
         DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubproyectos.DataBind()

Ventas/RepRecuperacion.aspx

@@ -209,6 +209,36 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
+                            <div class="col-md-1 truncate">F. Registro IE 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;">
+                                    <asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioRegistroIEI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaRegistroIEI" runat="server" TargetControlID="TxtFechaRegistroIEI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtFechaRegistroIEI" PopupButtonID="imgCalendarioRegistroIEI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" 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="cvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" 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="vcoFfvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate">F. Registro IE 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;">
+                                    <asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioRegistroIEF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaRegistroIEF" runat="server" TargetControlID="TxtFechaRegistroIEF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtFechaRegistroIEF" PopupButtonID="imgCalendarioRegistroIEF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" 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="cvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" 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="vcoFfvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
                     </div>
                 </div>
             </div>

Ventas/RepRecuperacion.aspx.vb

@@ -129,13 +129,16 @@ Partial Class Ventas_RepRecuperacion
         End If
 
         Dim FechaAplicadoI As Date = If(IsDate(TxtFechaAplicadoI.Text), TxtFechaAplicadoI.Text.ToDate, MinFecha)
-        Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
+        Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
+
+        Dim FechaRegistroIEI As Date = If(IsDate(TxtFechaRegistroIEI.Text), TxtFechaRegistroIEI.Text.ToDate, MinFecha)
+        Dim FechaRegistroIEF As Date = If(IsDate(TxtFechaRegistroIEF.Text), TxtFechaRegistroIEF.Text.ToDate, MaxFecha)
 
 
         If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                                         "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero,
                                         EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF) Then
+                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF) Then
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
         Else
@@ -158,12 +161,14 @@ Partial Class Ventas_RepRecuperacion
     Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim Css As String = "Texto"
-            Dim FechaI, FechaF, FechaAplicadoI, FechaAplicadoF As String
+            Dim FechaI, FechaF, FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF As String
             Dim CveClienteSucursal As Integer = -1
             FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
             FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
             FechaAplicadoI = If(IsDate(TxtFechaAplicadoI.Text.Trim()), TxtFechaAplicadoI.Text.Trim(), MinFecha.ToShortDateString.ToString)
-            FechaAplicadoF = If(IsDate(TxtFechaAplicadoF.Text.Trim()), TxtFechaAplicadoF.Text.Trim(), MaxFecha.ToShortDateString.ToString)
+            FechaAplicadoF = If(IsDate(TxtFechaAplicadoF.Text.Trim()), TxtFechaAplicadoF.Text.Trim(), MaxFecha.ToShortDateString.ToString)
+            FechaRegistroIEI = If(IsDate(TxtFechaRegistroIEI.Text.Trim()), TxtFechaRegistroIEI.Text.Trim(), MaxFecha.ToShortDateString.ToString)
+            FechaRegistroIEF = If(IsDate(TxtFechaRegistroIEF.Text.Trim()), TxtFechaRegistroIEF.Text.Trim(), MaxFecha.ToShortDateString.ToString)
             If e.Row.DBCampo("Orden") = "" Then
                 e.Row.CssClass = "Totales"
             End If
@@ -175,15 +180,15 @@ Partial Class Ventas_RepRecuperacion
                 End If
             End If
 
-            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}",
+            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}",
                                               DdlGrupo.SelectedValue, 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"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF)
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF)
 
             e.Row.FCHyperLink("HplPagado").NavigateUrl = Liga4
 
-            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}",
+            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}",
                                               DdlGrupo.SelectedValue, 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"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF)
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF)
 
             e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
 

Ventas/RepRecuperacionDetalle.aspx

@@ -216,7 +216,39 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                    </div>
+                        </div>
+                            <div class="row">
+                                <div class="col-md-1 truncate">F. Registro IE 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;">
+                                        <asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendarioRegistroIEI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaRegistroIEI" runat="server" TargetControlID="TxtFechaRegistroIEI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtFechaRegistroIEI" PopupButtonID="imgCalendarioRegistroIEI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" 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="cvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" 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="vcoFfvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                                <div class="col-md-1 truncate">F. Registro IE 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-left: 0px !important;">
+                                        <asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendarioRegistroIEF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaRegistroIEF" runat="server" TargetControlID="TxtFechaRegistroIEF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtFechaRegistroIEF" PopupButtonID="imgCalendarioRegistroIEF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" 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="cvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" 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="vcoFfvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
                 </div>
             </div>
         </ContentTemplate>

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -85,7 +85,7 @@ Partial Class Ventas_RepRecuperacionDetalle
     Private Sub CargaCombos()
         Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto,
          CveEstatus, CveResponsable, CveAgrupador, CveBanco, CveCuenta, CveClienteSucursal, CveMoneda, CveClienteClasificacion As Integer
-        Dim FechaI, FechaF, TipoDocto, TipoCambio, FechaAplicadoI, FechaAplicadoF As String
+        Dim FechaI, FechaF, TipoDocto, TipoCambio, FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF As String
 
         'Carga Clientes
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
@@ -147,14 +147,24 @@ Partial Class Ventas_RepRecuperacionDetalle
         End If
 
         FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing, Request("FechaAplicadoI").ToString, "-1").ToString
-        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing, Request("FechaAplicadoF").ToString, "-1").ToString
+        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing, Request("FechaAplicadoF").ToString, "-1").ToString
+
+        FechaRegistroIEI = If(Request("FechaRegistroIEI") IsNot Nothing, Request("FechaRegistroIEI").ToString, "-1").ToString
+        FechaRegistroIEF = If(Request("FechaRegistroIEF") IsNot Nothing, Request("FechaRegistroIEF").ToString, "-1").ToString
+
         If FechaAplicadoF <> "-1" Then
             TxtFechaAplicadoF.Text = FechaAplicadoF
         End If
         If FechaAplicadoI <> "-1" Then
             TxtFechaAplicadoI.Text = FechaAplicadoI
+        End If
+
+        If FechaRegistroIEF <> "-1" Then
+            TxtFechaRegistroIEF.Text = FechaRegistroIEF
+        End If
+        If FechaRegistroIEI <> "-1" Then
+            TxtFechaRegistroIEI.Text = FechaRegistroIEI
         End If
-
 
         TipoDocto = IfNull(Request("TipoDocto"), "-1").ToString
         CveClienteSucursal = IfNull(Request("CveClienteSucursal"), "-1").ToString.ToEntero
@@ -239,7 +249,7 @@ Partial Class Ventas_RepRecuperacionDetalle
                                    Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
                                    DdlTipoDocto.SelectedValue, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo,
                                    TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, Tipo:=Tipo,
-                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=TxtFechaAplicadoI.Text.ToDate, FechaAplicadoF:=TxtFechaAplicadoF.Text.ToDate) Then
+                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=TxtFechaAplicadoI.Text.ToDate, FechaAplicadoF:=TxtFechaAplicadoF.Text.ToDate, FechaRegistroIEI:=TxtFechaRegistroIEI.Text.ToDate, FechaRegistroIEF:=TxtFechaRegistroIEF.Text.ToDate) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados