[quimeras]

Tampoco conocemos el sistema de base de datos que utilizas, sflexas.
Por ejemplo, en Firebird/Interbase sería muy facil de hacer dentro de un procedimiento almacenado:

 	 if (Importe >=0) then begin
 		Debe = Importe;
 		Haber = 0;
 	 end
 	 if (Importe < 0) then begin
 		Debe = 0;
 		Haber = 0 - Importe;
 	 end