win_api_dialog.select_printer
ERROR: Failed to open file: ifrun60_dump_3348
win_api_dialog.select_printer
ERROR: Failed to open file: ifrun60_dump_3348
DECLARE
Print_Name Varchar2(100);
Port_name Varchar2(100);
PL_ID PARAMLIST;
BEGIN
-- cria lista de parâmetros vazia
PL_ID := Get_Parameter_List('tmpdata');
If Not Id_Null(Pl_Id) Then
Destroy_Parameter_List( Pl_Id );
End If;
Pl_Id := Create_Parameter_List('tmpdata');
-- adiciona os parametros
Add_Parameter(Pl_Id, 'PARAMFORM' , Text_Parameter, 'NO');
Add_Parameter(Pl_Id, 'DESTYPE' , Text_Parameter, 'PREVIEW');
Add_Parameter(Pl_Id, 'ORIENTATION', Text_Parameter, 'PORTRAIT');
Add_Parameter(Pl_Id, 'SEU_PARAMETRO', Text_Parameter, sysdate);
-- Destino pode ser FILE, PREVIEW ou PRINTER
-- Orientacao pode ser PORTRAIT LANDSCAPE
Win_Api_Dialog.Select_Printer( Print_Name, Port_Name );
Add_Parameter(Pl_Id, 'DESNAME', Text_Parameter, PRINT_NAME||','||PORT_NAME);
Run_Product(Reports, 'c:\seu_report', aSynchronous, Runtime, Filesystem, Pl_Id, Null);
End;
declare
impressora varchar2(100);
porta varchar2(100);
begin
win_api_dialog.select_printer(impressora,porta,false);
:impressora := impressora;
end ;
Você sabe se existe o arquivo d2kwut60.dll na mesma pasta do d2kwut60.pll?SPECIALIZED disse:
Pessoal, estou tentando trazer as impressoras instaladas em um campo List_item, a principio tive um problema que o membro do fórum, Toad, me ajudou, porém agora está dando o erro "ORA-06508: could not find program unit being called"
O Forms é simples, atachei a biblioteca D2KWUTIL.PLL, criei um campo char de 100 e um botão com uma trigger com o seguinte comando:
Caso alguém queira seguir os passos para debugar, terá que setar a chave do forms. É só entrar no DOS e digitar:declare impressora varchar2(100); porta varchar2(100); begin win_api_dialog.select_printer(impressora,porta,false); :impressora := impressora; EXCEPTION WHEN OTHERS THEN MESSAGE('ERRO: '||SQLERRM) ;PAUSE; end ;
Gratoset FORMS60_TRACE_PATH=c:\temp
Usuários navegando neste fórum: Nenhum usuário registrado e 12 visitantes