diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx
index aac7ecfc0..fb07433fd 100644
--- a/Bancos/PagoAcreedor.aspx
+++ b/Bancos/PagoAcreedor.aspx
@@ -244,8 +244,22 @@
                                             <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="500" CssClass="form-control input-sm" Rows="3" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
                                             <asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
                                         </div>
-                                        <div class="col-md-2 input-icon">
-                                            <asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                        <div class="col-md-4 input-icon">
+                                            <div>
+                                                <div class="row">
+                                                    <asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                </div>
+                                                 <div class="row">
+                                                        <div class="col-md-3 input-icon">SubProyecto
+                                                 </div>
+
+                                                  <div class="col-md-3">
+                                                    <asp:DropDownList runat="server" ID="DdlSubProyectoPago" DataTextField="SubProyecto" DataValueField="CveSubProyecto"  Width="150px" CssClass="select2me" ></asp:DropDownList>
+                                                     <asp:RequiredFieldValidator ID="RFVSubProyectoPago" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectoPago" Display="None" ErrorMessage="El campo <b>'' SubProyecto''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyectoPago" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                  </div> 
+                                                </div>
+                                            </div> 
                                         </div>
                                     </div>
                                     <div class="row" runat="server" id="rowComisiones" visible="false">
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index 9ec719505..6f19726c0 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -140,14 +140,19 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
 
         DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
 
+        DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyectoPago.DataBind();
+
+        DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
 
     }
 
     #region"INFORMACION GENERAL"
     protected void CargaTipoTransaccion()
     {
-        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'");
-        DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'");
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1");
+        DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ");
 
         DdlTipoTransaccion.DataBind();
         DdlTipoTransanccionPrestamo.DataBind();
@@ -448,7 +453,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                                 }
                                 ImporteMN = Importe;
 
-                                if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
+                                if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
                                 {
                                     MsgError = "No se pudo insertar concepto de diferencia cambiaria";
                                 }
@@ -509,11 +514,11 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                         decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria);
                         if (Dif < 0)
                         {
-                            tCveConceptoOtIngresos = 211; TipoMovtoOt = false;
+                            tCveConceptoOtIngresos = 65; TipoMovtoOt = false;
                         }
                         else
                         {
-                            tCveConceptoOtIngresos = 78; TipoMovtoOt = true;
+                            tCveConceptoOtIngresos = 64; TipoMovtoOt = true;
                         }
                                           
                         if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))