:Global.Mode := 'ADD';

:DCTYPE := 'DCS';
:DcName := 'DC SUBCONTRACT';

:AnnexMain.Periodid:=:Global.Periodid;
:AnnexMain.Unitid  :=:Global.Unitid;



Declare

Slno  Number(4);


Begin
     
Message(' UID '||:Global.Unitid||' PID '||:Global.Periodid);
     Select Doc_type,Doc_Date,Serial_Number INto :Dtype,:DocDt,Slno From Lastdocs 
                  Where Substr(doc_Type,2,3)='116'
                    and Periodid = :AnnexMain.Periodid
                    and UNitid   = :ANnexMain.Unitid;


     :AnnexMain.Documentno     :=  :Dtype||Lpad(To_Char(Slno+1),4,'0');
     :AnnexMain.Documentdate   :=  :Docdt;
  -- Set_item_property('Annexmain.DOcumentno', 'ENABLE',Property_False);
  Go_Item('AnnexMain.DocumentDate');

Exception
When NO_data_found Then
Message( 'Last document Pickup Failure ! Please check Unitid & Period Id ');
Raise form_trigger_failure;
End;

Go_Block('AnnexMain');
Go_Item('AnnexMain.DocumentDate');