local

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 EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
-                If Not CompraEstaVinculadaOC Then
-                    Alert("Debe de vincular una orden de compra para registrar la factura")
-                    Exit Sub
+        If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+            If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
+                If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
+                    If Not CompraEstaVinculadaOC Then
+                        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
-                            DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
-                        Else
-                            Alert("El Productos/Servicio no tiene asignada una Clasificación.")
+                    If PS("CveClasificacion").ToString IsNot Nothing Then
+                        DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
+                    Else
+                        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