diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index b29e7d852..1ea810334 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4889,6 +4889,8 @@ Namespace Modelos
                             CveEstatus = 12
                         Case "Com"
                             CveEstatus = 9
+                        Case "Ped", "DPe"
+                            CveEstatus = 14
                     End Select
 
                     If CveEstatus.Contiene(4, 5) Then