English
Español
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.
English
Español
