clientes. reseteo usados

Ventas/ClientesAbonar.aspx.vb

@@ -608,7 +608,8 @@ Partial Class Ventas_ClientesAbonar
             e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda))
 
             If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
-                If e.Row.DBCampo("TipoDocto") = "Rem" Then
+                'si es remisión y factura no timbrada
+                If e.Row.DBCampo("TipoDocto") = "Rem" OrElse (e.Row.DBCampo("TipoDocto") = "Ing" AndAlso e.Row.DBCampo("FolioFiscal") = "") Then
                     e.Row.FCCheckBox("Chk").Visible = False ' que no se pueda pagar si es remisión
                     e.Row.Cells(0).ToolTip = "El documento es remisión y no se puede realizar el pago"
                 End If