Problema con codigo

[scooby151]

Buen dia


Les escribo porque tengo un problema con una forma y no se como resolverlo, ya estuve haciendo las pruebas necesarias pero no se que sea. Cuando ejecuto el script en el toad me funciona bien, pero al momento de ejecutarlo en el forms builder me presenta el siguiente error.




Las propiedades del campo en la forma son:



Al momento de asignar 2 variables automaticamente me genera el error, lo comentarie para que me funcionara lo que ya esta, el codigo que esta dentro del script es el siguiente:

Código:

DECLARE
	
	vfecha date;
	vfecha_ini date;
	vfecha_fin date;
	vsaldo number(16,2);

BEGIN
	
  	SELECT MAX(FECHA) INTO vfecha
		FROM THINVBODS;

	  SELECT SALDOFIN INTO vsaldo
	    FROM TBCIERREMES
	    WHERE TO_DATE((SUBSTR(FECHAFIN,1,10)),'dd/mm/rrrr')= TO_DATE((SUBSTR(vfecha,1,10)),'dd/mm/rrrr');
   

	  :global.saldo:=vsaldo;
	  
	     
	insert into thinvbods (fecha, tbcodprod, conster, costoprom, tbbodvirt, cantidad, tdinvbods_codigo)
       select sysdate,tdsumis_tbprod_cod codprod,tdsumis_conster conster,fbus_tdsumis (tdsumis_tbprod_cod,tdsumis_conster,'15','') costoprom,
              tdbvirts_cod codbodvir,cantidad,codigo codinvbod
         from tdinvbods;
         
         
   commit;
   
   
   pformsgbox('EL VALOR vfecha_ini es: '||to_date(vfecha_ini,'dd/mm/rrrr')||'. El valor vfecha_fin es:'||to_date(vfecha_fin,'dd/mm/rrrr')||'','STOOK'); --,'41219','40738'


   select last_day(add_months(sysdate,-1))+1, last_day(sysdate) into vfecha_ini, vfecha_fin
	 from dual;


   --pformsgbox('EL VALOR de vfecha_ini es: '||to_date(vfecha_ini,'dd/mm/rrrr')||'. ','STOOK'); --,'41219','40738'
   
   --pformsgbox('El valor de vfecha_fin es: '||to_date(vfecha_fin,'dd/mm/rrrr')||'.','STOOK'); 

   pformsgbox(error_code||' '||error_text||' '||DBMS_ERROR_CODE||' '||DBMS_ERROR_TEXT,'STOOK'); --,'41219','40738'


   :BNULO.FECHA_INI := to_char(to_date(vfecha_ini,'dd/mm/rrrr')); 
  
   pformsgbox(error_code||' '||error_text||' '||DBMS_ERROR_CODE||' '||DBMS_ERROR_TEXT,'STOOK'); --,'41219','40738'

  
   --:BNULO.FECHA_FIN := to_date(vfecha_fin,'dd/mm/rrrr');
   
   	 
   
END;

Entonces recurro a ustedes para que me ayuden estare revisando este post lo mas que pueda.

Gracias de antemano por su ayuda.


Scooby151