Gestão de Pessoas - Manual do Usuário > Customizações > Funções > WEnviarPDFNavegador

WEnviarPDFNavegador

O objetivo desta função é permitir a visualização de arquivos PDF na web.

Sintaxe: WEnviarPDFNavegador(Alfa xArqPDF, Alfa End xRetorno);

Parâmetros:

Nome	Tipo	Descrição
xArqPDF	Alfa	Conteúdo da base de dados onde está gravado o arquivo PDF. Essa informação pode ser recuperada usando a função de programador SQL_RetornarBlob.
xRetorno	Alfa	Conteúdo que deve ser atribuído a variável de sistema Web_HTML, para que o PDF seja visualizado no browser.

Exemplo:

Definir alfa xCursor;

Definir alfa xNomArq;

Definir alfa xBlob;

Definir alfa xRetorno;

Definir alfa HTML;

WCheckValInteger ("NUMEMP", "Empresa", xNumEmp, "N", 9999);

WCheckValInteger ("TIPCOL", "Tipo", xTipCol, "N", 9);

WCheckValInteger ("NUMCAD", "Cadastro", xNumCad, "N", 999999999);

WCheckValInteger ("SEQANO", "SeqAno", xSeqAno, "N", 99);

WCheckValInteger ("SEQARQ", "Arquivo", xSeqArq, "N", 99);

SQL_Criar(xCursor);

SQL_DefinirComando(xCursor, "SELECT AnoArq FROM R038ARQ WHERE NUMEMP = :NumEmp AND TIPCOL = :TipCol AND NUMCAD = :NumCad AND SEQANO = :SeqAno AND SEQARQ = :SeqArq");

SQL_DefinirInteiro(xCursor, "NumEmp", xNumEmp);

SQL_DefinirInteiro(xCursor, "TipCol", xTipCol);

SQL_DefinirInteiro(xCursor, "NumCad", xNumCad);

SQL_DefinirInteiro(xCursor, "SeqAno", xSeqAno);

SQL_DefinirInteiro(xCursor, "SeqArq", xSeqArq);

SQL_AbrirCursor(xCursor);

Enquanto (SQL_EOF(xCursor) = 0)

{

SQL_RetornarBlob(xCursor, "AnoArq", xBlob);

SQL_Proximo(xCursor);

WEnviarPDFNavegador(xBlob, xRetorno);

HTML = xRetorno;

}

SQL_FecharCursor(xCursor);

SQL_Destruir(xCursor);

Web_HTML = HTML;

Utilização: Regra por Processo - Sistemas WEB.

Disponível para os módulos: Todos os módulos.