diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index de6cbefbb..9572faf35 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2045,7 +2045,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         Exit For
                     End If
 
-                    If CveConceptoContable = 30 Then
+                    If CveConceptoContable = 30 AndAlso Row("TipoTransferencia").ToString <> "" Then
 
                         Dim objconta3 As New ClsContabilidad
                         objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa)