out boolean OUT_Active;
default form to 'PM_Transaction_Inquiry';
default window to 'PM_Transaction_Inquiry_Scroll';

OUT_Active = false;

if substring('TRX Source',1,5) = getmsg(POP_PREFIX_RECVG) or
	substring('TRX Source',1,5) = getmsg(POP_PREFIX_POIVC) then
	if ask("Would you like to display Payables Transaction Zoom or originating source Transaction zoom",
				"&Payables","&Originating","") = ASKBUTTON1 then
		OUT_Active = true;

		call PM_Zoom_To_Entry_Form,		{Euro}
				'Document Type', 'Voucher Number',
				""{'TRX Source'}, UNKNOWN_VALUE, '(L) Origin',
				'Currency View' of window PM_Transaction_Inquiry, WINID_PM_PMTRXINQUIRY;

	end if;
end if;