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. |
<div class="Code"><p>Definir alfa xCursor;</p><p>Definir alfa xNomArq;</p><p>Definir alfa xBlob;</p><p>Definir alfa xRetorno;</p><p>Definir alfa HTML;</p><p></p><p>WCheckValInteger ("NUMEMP", "Empresa", xNumEmp, "N", 9999);</p><p>WCheckValInteger ("TIPCOL", "Tipo", xTipCol, "N", 9);</p><p>WCheckValInteger ("NUMCAD", "Cadastro", xNumCad, "N", 999999999);</p><p>WCheckValInteger ("SEQANO", "SeqAno", xSeqAno, "N", 99);</p><p>WCheckValInteger ("SEQARQ", "Arquivo", xSeqArq, "N", 99);</p><p></p><p>SQL_Criar(xCursor);</p><p>SQL_DefinirComando(xCursor, "SELECT AnoArq FROM R038ARQ WHERE NUMEMP = :NumEmp AND TIPCOL = :TipCol AND NUMCAD = :NumCad AND SEQANO = :SeqAno AND SEQARQ = :SeqArq");</p><p>SQL_DefinirInteiro(xCursor, "NumEmp", xNumEmp);</p><p>SQL_DefinirInteiro(xCursor, "TipCol", xTipCol);</p><p>SQL_DefinirInteiro(xCursor, "NumCad", xNumCad);</p><p>SQL_DefinirInteiro(xCursor, "SeqAno", xSeqAno);</p><p>SQL_DefinirInteiro(xCursor, "SeqArq", xSeqArq);</p><p>SQL_AbrirCursor(xCursor);</p><p></p><p>Enquanto (SQL_EOF(xCursor) = 0)</p><p>{</p><p> SQL_RetornarBlob(xCursor, "AnoArq", xBlob);</p><p> SQL_Proximo(xCursor);</p><p> WEnviarPDFNavegador(xBlob, xRetorno);</p><p> HTML = xRetorno;</p><p>}</p><p>SQL_FecharCursor(xCursor);</p><p>SQL_Destruir(xCursor);</p><p></p><p>Web_HTML = HTML;</p></div>
Utilização: Regra por Processo - Sistemas WEB.
Disponível para os módulos: Todos os módulos.
English
Español
