diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 2908f46f6..ae28bb9d7 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1021,7 +1021,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
                         'Registra movimieno bancario
-                        If gvr.DataKey("CveConceptoContable") = "30" AndAlso Importe <> 0 Then
+                        If gvr.DataKey("CveConceptoContable") = "30" AndAlso (Importe <> 0 OrElse DdlPlantilla.SelectedValue = "53") Then
                             Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
                             If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)