local

App_Code/CalendarEvent.vb

@@ -27,4 +27,6 @@ Public Class CalendarEvent
     Public Property Prospecto As String
     Public Property CveTipoEvento As Integer
     Public Property Importe As Double
+    Public Property EmpresaCRM As String
+
 End Class

Ashx/CargaEventos.ashx

@@ -50,6 +50,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
     Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date) As Boolean
         Dim ObjEventos As New ClsOIEventos
         Dim ErrorEventos = False
+        Dim CveEmpresaCRM As Integer = 0
         If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuario, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF) Then
 
             If ObjEventos.DtResultados.Rows.Count > 0 Then
@@ -76,6 +77,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
                         cevent.Prospecto = dr("Prospecto").ToString
                         cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
+                        cevent.EmpresaCRM = dr("EmpresaCRM").ToString
 
                         '11/05/2018 - Evento Gasto Recurrente
                         cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero

Bancos/DepositosCaja.aspx

@@ -140,7 +140,7 @@
                         <HeaderTemplate>
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:CheckBox ID="ChkFactura" OnCheckedChanged="ChkFactura_Click" runat="server" Checked="false" Enabled="True" AutoPostBack="True"/>
+                            <asp:CheckBox ID="ChkFactura" runat="server"/>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Factura">
@@ -200,5 +200,23 @@
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript" language="javascript">
+
+        function FnSuma(chk, cantidad) {
+            debugger;
+            var saldo = ToDouble($('#C_lblValorTotal').text());
+            debugger;
+            if (chk.checked == false) {
+                cantidad = cantidad * -1;
+                debugger;
+            }
+            saldo = saldo + cantidad;
+            debugger;
+            $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+            debugger;
+            }
+    </script>
+
+
 </asp:Content>
 

Bancos/DepositosCaja.aspx.vb

@@ -178,7 +178,14 @@ Partial Class Bancos_DepositosCaja
     End Sub
 
     Public Sub ChkFactura_Click(sender As Object, e As EventArgs)
-        ObtenerTotalImporta()
+        'ObtenerTotalImporta()
     End Sub
 
+    Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
+        End If
+    End Sub
+
+
 End Class

Bancos/IE.aspx

@@ -170,6 +170,8 @@
                                     <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                 </div>
                             </div>

Bancos/IE.aspx.vb

@@ -6674,4 +6674,7 @@ Partial Class Bancos_IE
         UpEliminarCotizacion.Update()
 
     End Sub
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+    End Sub
 End Class

Bancos/PopIECompras.aspx

@@ -528,6 +528,8 @@
                                                     <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                                 </div>
                                             </div>

Bancos/PopIECompras.aspx.vb

@@ -1660,8 +1660,9 @@ Partial Class Bancos_PopIECompras
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
                                                             CveCuenta = CveCuentaComplementaria
-                                                            If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
+                                                            If ImporteMovimiento <> 0 Then
-                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
+                                                                Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioCompra - ImporteMovimiento).RoundSQL
+                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMN, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
                                                                     MsgError = "No se pudo insertar la póliza"
                                                                 End If
                                                             End If
@@ -3644,4 +3645,9 @@ Partial Class Bancos_PopIECompras
         UpGuardar.Update()
     End Sub
 
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+    End Sub
+
+
 End Class

Bancos/PopIEVentas.aspx

@@ -450,6 +450,8 @@
                                                     <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                                 </div>
                                             </div>

Bancos/PopIEVentas.aspx.vb

@@ -687,11 +687,9 @@ Partial Class Bancos_PopIEVentas
                 'JJMQ:20190606 Se cancela código de validacion ante el SAT por lentitud en el servicio.
                 'Sustituir la línea anterior por todo lo siguiente hasta donde termina el end if para que valide de nueva cuenta
                 'Dim Validada As Boolean = False
-                If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then
+                If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then
-
+
-
+
-
-
                     Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("ClienteRFC").ToString, dr("Total").ToString.ToDecimal)
 
                     If Valida.EsValida > 0 Then
@@ -3662,9 +3660,12 @@ Partial Class Bancos_PopIEVentas
         ObjBancos.Dispose()
         ' Next
         Return Retorno.ToString
-    End Function
+    End Function
-
+
 #End Region
-
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+    End Sub
+
+
 End Class

Bancos/ProveedoresAbonar.aspx

@@ -120,6 +120,9 @@
                                 <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="MEVCalendario" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+
                             </div>
                         </div>
                         <div class="row">

Bancos/ProveedoresAbonar.aspx.vb

@@ -3388,6 +3388,10 @@ Partial Class Bancos_ProveedoresAbonar
 
 #End Region
 
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+    End Sub
+
 
 End Class
 

Compras/Compras.aspx.vb

@@ -1355,7 +1355,7 @@ Partial Class Compras_Compras
                     GvInv.Visible = True
                     CargaProveedor(-1, RFC)
 
-                    If Not DdlTipoComprobante.SelectedValue = "NC" Then
+                    If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
                         If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
                             If TmpDT.MAX("CvePS").ToEntero > 0 Then
                                 BtnGuardar.Enabled = False
@@ -4060,13 +4060,15 @@ Partial Class Compras_Compras
         '    DtNoEncontrados.Dispose()
         'End If
 
-        'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
+        'Verifica funcionalidad 128 "Require orden de compra para factura de compra"
 
-        If UsuarioActual.Empresa.Funcionalidad(128) <> "" Then
+        If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-            If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
+            If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
-                If Not CompraEstaVinculadaOC Then
+                If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
-                    Alert("Debe de vincular una orden de compra para registrar la factura")
+                    If Not CompraEstaVinculadaOC Then
-                    Exit Sub
+                        Alert("Debe de vincular una orden de compra para registrar la factura")
+                        Exit Sub
+                    End If
                 End If
             End If
         End If
@@ -5107,7 +5109,7 @@ Partial Class Compras_Compras
                                                                             Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
                                                                             AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
                                                                             CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
-                                                                            RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
+                                                                            RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
                                                                             IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
                                                                             IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
                                                                             CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then
@@ -18043,14 +18045,12 @@ Partial Class Compras_Compras
 
                     UpIVA.Update()
 
-                    If DdlClasificacion.SelectedIndex = 0 Then
+                    If PS("CveClasificacion").ToString IsNot Nothing Then
-                        If PS("CveClasificacion").ToString IsNot Nothing Then
+                        DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
-                            DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
+                    Else
-                        Else
+                        Alert("El Productos/Servicio no tiene asignada una Clasificación.")
-                            Alert("El Productos/Servicio no tiene asignada una Clasificación.")
                         End If
 
-                    End If
                     UPPUM.Update()
                     UpPSS.Update()
                 End If

Compras/ReembolsosComprobaciones.aspx

@@ -204,6 +204,8 @@
                                         <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                         <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                     </div>
                                 </div>

Compras/ReembolsosComprobaciones.aspx.vb

@@ -2061,5 +2061,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
 #End Region
 
-
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+    End Sub
 End Class

Contabilidad2/CatCuentas.aspx.vb

@@ -372,10 +372,9 @@ Partial Class Contabilidad2_CatCuentas
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-<<<<<<< HEAD
+
         Dim ObjConta2 As ClsContPAQi
-=======
+
->>>>>>> ee1135d888f76469fa6e3e68f0b6393f8450045a
 
         Dim CuentaEfectivo As Integer = 0
         Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
@@ -460,10 +459,11 @@ Partial Class Contabilidad2_CatCuentas
 
                     Alert("La cuenta se guardo correctamente")
                 End If
+            End If
+        End If
+        ObjConta.Dispose()
 
-                ObjConta.Dispose()
+            If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
-
-                If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
 
 
     End Sub

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -31,7 +31,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Private Sub CargaDatosModal()
-
         DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
         DdlConceptoNomina.DataBind()
         Dim ObjConta As New ClsContabilidad
@@ -76,7 +75,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
         DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
         DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
-        DdlConceptoNomina.SelectedValue = GvRow.DataKey("CveConceptoNomina").ToEntero
+        DdlConceptoNomina.SelectedValueexist(GvRow.DataKey("CveConceptoNomina").ToEntero)
         DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
         DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
         DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero

Contabilidad2/RepAnexoCatalogo.aspx

@@ -96,24 +96,22 @@
                             Tipo Movto:
                         </li>
                         <li>
-                             
                             <asp:DropDownList CssClass="form-control input-sm" ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4">
                                 <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
                                 <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
                                 <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>                       
-                          
                         </li>
                          <li>
-                            <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
+                            SubProyecto:
-                            <div class="col-md-2">
+                        </li>
-                                <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
+                         <li>
-                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
-                                </asp:DropDownList>
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </div>
+                            </asp:DropDownList>
-                            </li>
+                         </li>
                             <li runat="server" id="tdTipoReporte" visible="true">Tipo:
                             </li>
                            
@@ -124,8 +122,7 @@
                                     <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
                                 </asp:DropDownList>
                             </li>
-                            <li>Tipo de Cuentas:
+                            
-                            </li>
                             <li>
                                 <asp:DropDownList Visible="false" CssClass="form-control input-sm" Width="150px" ID="DdlTipoCuentas" ClientIDMode="Static" runat="server" DataTextField="Nombre" DataValueField="CveCuenta" TabIndex="4" AutoPostBack="true">
                                 </asp:DropDownList>

Empresas/153/Formatos/Cotizacion.rdlc

@@ -1718,7 +1718,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>7.65106cm</Top>
+            <Top>8.44481cm</Top>
             <Left>0.19009cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -1791,7 +1791,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Top>7.84713cm</Top>
+            <Top>8.64088cm</Top>
             <Left>0.24983cm</Left>
             <Height>2.44366cm</Height>
             <Width>14.88133cm</Width>
@@ -1821,7 +1821,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>10.47425cm</Top>
+            <Top>11.268cm</Top>
             <Left>0.19009cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -1988,7 +1988,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
-            <Top>7.84713cm</Top>
+            <Top>8.64088cm</Top>
             <Left>15.30755cm</Left>
             <Height>0.48004cm</Height>
             <Width>5.71104cm</Width>
@@ -1999,14 +1999,44 @@
               </Border>
             </Style>
           </Tablix>
+          <Textbox Name="Textbox14">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>REVISAR BIEN EL PRODUCTO, UNA VEZ ENTREGADO EL MATERIAL NO SE ACEPTAN DEVOLUCIONES.</Value>
+                    <Style />
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox3</rd:DefaultName>
+            <Top>7.68286cm</Top>
+            <Left>0.28014cm</Left>
+            <Height>0.6cm</Height>
+            <Width>20.74095cm</Width>
+            <ZIndex>18</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
-        <Height>10.69327cm</Height>
+        <Height>11.48171cm</Height>
         <Style />
       </Body>
       <Width>21.16666cm</Width>
       <Page>
         <PageFooter>
-          <Height>0.77793cm</Height>
+          <Height>1.41293cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>

General/SaldosIniciales.aspx.vb

@@ -1045,22 +1045,22 @@ Partial Class General_SaldosIniciales
 
 
                     Dim Vendedor As String = Row("Vendedor").ToString
-                    Dim Clasificacion As String = Row("Clasificación").ToString
+                    Dim Clasificacion As String = Row("ClasificacionCliente").ToString
                     Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
 
                     Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
                     Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
-                    Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString.ToUpper = "SI", True, False)
+                    Dim EsDistribuidor As Boolean = If(dt.Columns.Contains("Es distribuidor"), If(Row("Es distribuidor").ToString.ToUpper = "SI", True, False), False)
-                    Dim CargoUsado As Boolean = If(Row("Cargo Usados").ToString.ToUpper = "SI", True, False)
+                    Dim CargoUsado As Boolean = If(dt.Columns.Contains("Cargo Usados"), If(Row("Cargo Usados").ToString.ToUpper = "SI", True, False), False)
-                    Dim BonificacionUsado As Boolean = If(Row("EmitirBon Usado").ToString.ToUpper = "SI", True, False)
+                    Dim BonificacionUsado As Boolean = If(dt.Columns.Contains("EmitirBon Usado"), If(Row("EmitirBon Usado").ToString.ToUpper = "SI", True, False), False)
 
                     Dim LimiteCredito As Decimal = Row("Limite Credito").ToString.ToDecimal
                     Dim CobranzaCorreo As String = Row("CorreoPagos").ToString
                     Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
 
-                    Dim DìaVisita As String = Row("Dia Pago").ToString
+                    Dim DìaVisita As String = If(dt.Columns.Contains("Dia Pago"), Row("Dia Pago").ToString, "")
-                    Dim DiasPagoEspecifico As String = Row("Dìa Visita").ToString
+                    Dim DiasPagoEspecifico As String = If(dt.Columns.Contains("Dìa Visita"), Row("Dìa Visita").ToString, "")
-                    Dim CobranzaContacto As String = Row("Encargado Pago").ToString
+                    Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pagoa"), Row("Encargado Pago").ToString, "")
                     Dim CobranzaTelefono As String = Row("Celular Contacto").ToString.Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
                     Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}'", Row("UsoCFDI").ToString)).ToEntero)
                     '  CobranzaContacto = Regex.Replace(CobranzaContacto, "[^0-9]", "")
@@ -1076,7 +1076,7 @@ Partial Class General_SaldosIniciales
                         CobranzaTelefono = ""
                     End If
 
-                    Dim FormaPago As String = Row("Forma Pago").ToString
+                    Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString, "")
                     Dim CveFormaPago33 As Integer = 99
 
                     Select Case FormaPago
@@ -1169,7 +1169,7 @@ Partial Class General_SaldosIniciales
                         '    Exit For
                         'End If
                     Else
-                        Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format("NombreEstado ='{0}'", Estado)).ToEntero
+                        Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado  ='{0}'", Estado.ToUpper)).ToEntero
 
                         If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString, "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
                                    "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,

Inicio.aspx

@@ -308,7 +308,11 @@
                                                     </div>
 
                                                     <div class="modal-body">
-
+                                                        <div class="row">
+                                                            <div class="col-md-12" style="text-align: center;">
+                                                                <asp:Label ID="LblEmpresaCRM" runat="server" Text=""  style="font-size: 16px; display: none; text-align: center;"></asp:Label>
+                                                            </div>
+                                                        </div>
                                                         <div class="row">
                                                             <div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
                                                                 <asp:DropDownList ID="DdlAgedaTipo" ClientIDMode="Static" Width="100%" DataTextField="AgendaTipo" DataValueField="CveAgendaTipo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
@@ -1453,7 +1457,6 @@
             $("#TxtFrecuencia").val('');
 
             $("#TxtAsuntoAgenda").val(event.title);
-
             //SE MUESTRA EL TEXTO HTML EN EL DIV DE LA DESCRIPCION SIN PERMITIR EDITAR,
             //SE ASIGNA -1 EN EL TEXBOX PARA QUE NO REALICE CAMBIOS EN BD
             $("#DivDescripcionUpdate").html(event.description);
@@ -1517,9 +1520,16 @@
             //LLAMA EL INDEXCHANGED DEL RADIOBUTTONLIST DE LOS TIPOS DE RECURRENCIA
             $("#BtnActualizaAdd").click();
 
-        }
+            //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM
+            if (event.EmpresaCRM != "") {
+                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "")
+                $("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM);
+            } else {
+                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none")
+            }
 
-        function RadionButtonSelectedValueSet(name, SelectdValue) {
+        }
+       function RadionButtonSelectedValueSet(name, SelectdValue) {
             $('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true);
         }
 

Inicio.aspx.vb

@@ -769,6 +769,7 @@ Partial Class Inicio
         CheckDiasSemana.ClearSelection()
         RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
         TxtFrecuencia.Text = "1"
+        LblEmpresaCRM.Text = ""
     End Sub
 
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)

Inventarios/EntregaAlmacen.aspx.vb

@@ -966,7 +966,8 @@ Partial Class Inventarios_EntregaAlmacen
                 If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
                     e.Row.FCTextBox("TxtCaducidad").Visible = True
                     e.Row.FCLinkButton("LnkCaducidad").Visible = True
-                    e.Row.FCTextBox("TxtCaducidad").readonly = True
+                    'e.Row.FCTextBox("TxtCaducidad").readonly = True
+                    e.Row.FCTextBox("TxtCaducidad").enabled = True
                 Else
                     e.Row.FCTextBox("TxtCaducidad").Visible = False
                     e.Row.FCLinkButton("LnkCaducidad").Visible = False
@@ -974,7 +975,8 @@ Partial Class Inventarios_EntregaAlmacen
 
                 If CBool(e.Row.DBCampo("AplicaLote")) Then
                     e.Row.FCTextBox("TxtLote").Visible = True
-                    e.Row.FCTextBox("TxtLote").readonly = True
+                    ' e.Row.FCTextBox("TxtLote").readonly = True
+                    e.Row.FCTextBox("TxtLote").enabled = True
                 Else
                     e.Row.FCTextBox("TxtLote").Visible = False
                 End If
@@ -1743,8 +1745,8 @@ Partial Class Inventarios_EntregaAlmacen
         If ObjInventario.EntregaAlmacenGet(CveVentaSurtir) Then
             DtDatosVenta = ObjInventario.DtResultados
         End If
-        Dim CantidadGV = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
+        Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-        If CantidadGV <> DtDatosVenta.SUM("CantidadF").ToDecimal Then
+        If CantidadGV <> DtDatosVenta.SUMD("CantidadF") Then
             ObjInventario.RollBack()
             ObjInventario.Dispose()
             ObjConta.Dispose()

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -551,7 +551,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim DtDatos As New DataTable
         Dim ObjInventario As New ClsInventarios()
         If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue, Agrupar:=Agrupar) Then
-            DtDatos = ObjInventario.DtResultados.Copy
+            DtDatos = ObjInventario.DtResultados.FiltraParametros("CveInventarioFisico > 0 ").Copy
         End If
         ObjInventario.Dispose()
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -541,7 +541,7 @@ Partial Class Inventarios_RecepcionAlmacen
         If UsuarioActual.CveSubProyecto = 8804 Then 'AGS
             StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,12,15")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         Else
-            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,6,14")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
+            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,14")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         End If
 
         If CveTipoCompra = 10 Then
@@ -558,9 +558,18 @@ Partial Class Inventarios_RecepcionAlmacen
         UpGenerales.Update()
     End Sub
 
-    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
+    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
         If DdlAlmacen.SelectedValue <> "-1" Then
 
+            Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
+            'RMF condición temporal
+            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                ValidaLoteCaducidad = True
+            Else
+                ValidaLoteCaducidad = False
+            End If
+
+
             CargaGVInv()
             'For Each Gvr As GridViewRow In GvInv.Rows
             '    If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then
@@ -1020,9 +1029,6 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
 
                     CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
-                    If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto = 10276 Then
-                        ValidaLoteCaducidad = True
-                    End If
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
 
@@ -4111,6 +4117,8 @@ Partial Class Inventarios_RecepcionAlmacen
                 TipoCambio = 0
                 TipoMovimiento = 1
 
+
+
                 If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     DtDatosDetalle = Nothing
                     CreaDtDetalle()
@@ -4150,7 +4158,6 @@ Partial Class Inventarios_RecepcionAlmacen
                         UpDocumentos.Update()
                     End If
 
-
                     CargaGVInv()
 
                 Else

Inventarios/ResguardoMaterial.aspx

@@ -491,8 +491,25 @@
                                 <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
                                 <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%"  Visible="false"/>
-                                <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="20%"  Visible="false"/>
+                                <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
-                                <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" ItemStyle-Width="20%"  Visible="false"/>
+                                <ItemTemplate>
+                                        <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" 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>
+                                            <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>
+                                            <ajax:MaskedEditExtender ID="MEECaducidad" runat="server" TargetControlID="TxtCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CECaducidad" TargetControlID="TxtCaducidad" PopupButtonID="LnkCaducidad" PopupPosition="BottomLeft" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                            <asp:RequiredFieldValidator ID="RFVCaducidad" runat="server" ControlToValidate="TxtCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Caducidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCECaducidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaducidad"></ajax:ValidatorCalloutExtender>
+                                        </div>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Sección" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">                                    
                                     <ItemTemplate>
                                          <asp:DropDownlist ID="DdlSeccionAlmacen" runat="server" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="form-control input-sm select2me" />

Inventarios/ResguardoMaterial.aspx.vb

@@ -83,6 +83,15 @@ Partial Class Inventarios_ResguardoMaterial
         End Set
     End Property
 
+    Private Property ValidaLoteCaducidad As Boolean
+        Get
+            Return CType(ViewState("ValidaLoteCaducidad"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("ValidaLoteCaducidad") = value
+        End Set
+    End Property
+
 
     Private Property CantidadTotal As Decimal
         Get
@@ -502,41 +511,6 @@ Partial Class Inventarios_ResguardoMaterial
         End If
 
 
-        'ThSerie.Visible = False
-        'TrSerie.Visible = False
-        'TxtnSerie.Visible = False
-        'GvM.Columns(5).Visible = False
-        'GvM.Columns(4).Visible = False
-
-        'Dim Contador As Integer = 0
-        'Dim UltimoRenglon As Integer = DtMovimientos.Rows.Count - 1
-        'Dim MostrarSerie As Boolean = False
-        'Dim MostrarSeccion As Boolean = False
-        'While Contador <= UltimoRenglon And (Not MostrarSerie And Not MostrarSeccion)
-        '    Dim Dr As DataRow = DtMovimientos.Rows(Contador)
-        '    MostrarSerie = If(Not MostrarSerie, Dr("Serie").ToString <> "", True)
-        '    MostrarSeccion = If(Not MostrarSerie, Dr("SeccionAlmacen").ToString <> "", True)
-        '    Contador += 1
-        'End While
-
-        'ThSerie.Visible = MostrarSerie
-        'TrSerie.Visible = MostrarSerie
-        'GvM.Columns(5).Visible = MostrarSerie
-
-        'GvM.Columns(4).Visible = MostrarSeccion
-
-        'For Each Dr As DataRow In DtMovimientos.Rows
-        '    If Dr("Serie").ToString <> "" Then
-        '        ThSerie.Visible = True
-        '        TrSerie.Visible = True
-        '        GvM.Columns(5).Visible = True
-        '        Exit For
-        '    End If
-        '    If Dr("SeccionAlmacen").ToString <> "" Then
-        '        GvM.Columns(4).Visible = True
-        '    End If
-        'Next
-
         GvM.DataSource = DtMovimientos
         GvM.DataBind()
     End Sub
@@ -608,6 +582,23 @@ Partial Class Inventarios_ResguardoMaterial
                 dtt.Dispose()
             End If
 
+            If (ValidaLoteCaducidad) OrElse (UsuarioActual.CveEmpresa <> 119) Then
+                If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
+                    e.Row.FCTextBox("TxtCaducidad").Visible = True
+                    e.Row.FCLinkButton("LnkCaducidad").Visible = True
+                Else
+                    e.Row.FCTextBox("TxtCaducidad").Visible = False
+                    e.Row.FCLinkButton("LnkCaducidad").Visible = False
+                End If
+
+                If CBool(e.Row.DBCampo("AplicaLote")) Then
+                    e.Row.FCTextBox("TxtLote").Visible = True
+                Else
+                    e.Row.FCTextBox("TxtLote").Visible = False
+                End If
+
+            End If
+
         End If
     End Sub
 
@@ -689,8 +680,8 @@ Partial Class Inventarios_ResguardoMaterial
     Private Sub CargaGvMLiberacion()
 
         GvMLiberacion.Columns(5).Visible = DtMovimientosLiberacion.MAX("Serie").ToString <> ""
-        GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("Lote").ToString <> ""
+        GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("AplicaLote").ToString = "True"
-        GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("FechaCaducidad").ToString.ToDate > MinFecha
+        GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("AplicaCaducidad").ToString = "True" ' .ToDate > MinFecha
         GvMLiberacion.Columns(8).Visible = DtMovimientosLiberacion.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 Or DtMovimientosLiberacion.MAX("AplicaSeccion") = "True"
 
 
@@ -896,6 +887,8 @@ Partial Class Inventarios_ResguardoMaterial
                 CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat3")
                 FolioSalida = ObjInventario.Folio
                 Dim DiccionarioSecciones As New HybridDictionary
+                Dim DiccionarioLote As New HybridDictionary
+                Dim DiccionarioCaducidad As New HybridDictionary
 
                 If CveMovimientoSalida <= 0 Then
                     TieneError = True
@@ -906,12 +899,19 @@ Partial Class Inventarios_ResguardoMaterial
                 Dim Cont As Integer = 0
                 For Each Gvr As GridViewRow In GvMLiberacion.Rows
                     If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Observaciones:=Gvr.DataKey("Observaciones").ToString) Then
+                        Dim Lote As String = "-1"
+                        Dim FechaCaducidad As Date = MinFecha
+                        If Gvr.datakey("Lote") <> "" Then Lote = Gvr.datakey("Lote")
+                        If Gvr.datakey("FechaCaducidad").todate > MinFecha Then FechaCaducidad = Gvr.datakey("FechaCaducidad").todate
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Gvr.DataKey("Observaciones").ToString, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").toentero) Then
                             MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                             TieneError = True
                             Exit For
                         Else
                             DiccionarioSecciones.Add(ObjInventario.CveMovimientoDetalle, Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue)
+                            DiccionarioLote.Add(ObjInventario.CveMovimientoDetalle, Gvr.FCTextBox("TxtLote").Text)
+                            DiccionarioCaducidad.Add(ObjInventario.CveMovimientoDetalle, Gvr.FCTextBox("TxtCaducidad").Text.todate)
                         End If
                     End If
                     Cont += 1
@@ -932,7 +932,11 @@ Partial Class Inventarios_ResguardoMaterial
                             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
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
+                                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
+                                If DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.todate > MinFecha Then FechaCaducidad = DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.todate
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
@@ -1099,6 +1103,14 @@ Partial Class Inventarios_ResguardoMaterial
     End Sub
 
     Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
+        Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
+        'RMF condición temporal
+        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+            ValidaLoteCaducidad = True
+        Else
+            ValidaLoteCaducidad = False
+        End If
+
         CargaResguardos()
     End Sub
 End Class

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1992,7 +1992,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         End If
                         'MOV, Alm, Transito
                         If gvr.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero > 0 Then
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=gvr.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=gvr.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos de salida"
                                 Exit For

Nomina/Nomina2.aspx.cs

@@ -3681,7 +3681,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                                 cellx = new GemBox.Document.Tables.TableCell(document); rowx.Cells.Add(cellx);
                                 cellx.CellFormat.PreferredWidth = new GemBox.Document.Tables.TableWidth(11, GemBox.Document.Tables.TableWidthUnit.Percentage);
-                                paragraphh = new GemBox.Document.Paragraph(document, string.Format("${0:N2}", dtempleados.SUM("Total"))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right;
+                                paragraphh = new GemBox.Document.Paragraph(document, string.Format("${0:N2}", dtempleados.SUM("Total","CvePersonal > 0"))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right;
+
                                 paragraphh.ParagraphFormat.Style = styilostrong;
 
                             }

Ventas/ClientesAbonar.aspx

@@ -138,8 +138,7 @@
                                     <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                     <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" MaximumValue="01/12/2999" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
-
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>

Ventas/ClientesAbonar.aspx.vb

@@ -934,7 +934,7 @@ Partial Class Ventas_ClientesAbonar
                                                 CveCuenta = If(EsAnticipoEspecial, -1, CveCuentaComplementaria)
                                                 If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                     importeMX = ImporteMovimiento
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa = 119, 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa = 119, 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then
                                                         MsgError = "No se pudo insertar la póliza"
                                                     End If
                                                 End If
@@ -1380,7 +1380,7 @@ Partial Class Ventas_ClientesAbonar
                                                     Diferencia -= (((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetIVA
                                                     Diferencia -= (((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetISR
                                                     Diferencia -= (((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IEPS
-                                                    Diferencia = Math.Round(Diferencia, 2)
+                                                    Diferencia = Diferencia.RoundSQL
                                                 End If
 
                                                 ImporteMovimiento = Math.Abs(Diferencia)
@@ -2720,7 +2720,7 @@ Partial Class Ventas_ClientesAbonar
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                         'complementaria
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, gr.DataKey("SerieFolio").ToString, 207, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContComplementaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, (Saldo * TCVenta) - Saldo), ImporteME:=Saldo, CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, gr.DataKey("SerieFolio").ToString, 207, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContComplementaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, (Saldo * TCVenta) - Saldo).RoundSQL, ImporteME:=Saldo, CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
 
@@ -3176,4 +3176,8 @@ Partial Class Ventas_ClientesAbonar
         CargaDatos(CveMoneda)
 
     End Sub
+
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+    End Sub
 End Class

Ventas/RepRecuperacion.aspx

@@ -179,7 +179,7 @@
                             </asp:DropDownList>
                         </div>
 
-                            <div class="col-md-1 truncate">Fecha Aplicado Inicio: </div>
+                            <div class="col-md-1 truncate">F. Conciliado 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="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -194,7 +194,7 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            <div class="col-md-1 truncate">Fecha Aplicado Fin: </div>
+                            <div class="col-md-1 truncate">F. Conciliado 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="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>