1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Dica ENCODE duplicando chave

Discussão em 'Progress 4GL' iniciado por af.dums, Julho 22, 2019.

  1. af.dums

    af.dums Membro Ativo

    Olá.
    Sabia que o ENCODE duplicava a chave, mas não sabia que era algo "comum", faz um tempo estamos gerando PDF utilizando a PDF_INC para um cliente (geração de pedidos de compra), por algum motivo a PDF_INC não está deletando um arquivo temporário que gera durante o processo, ai a PDF_INC escreve com APPEND este arquivo, como o ENCODE duplica a chave, acaba escrevendo um PDF "em cima" do outro, fica todo confusa a leitura, não corrompe o arquivo mas é como se tivesse 2 textos escritos um em cima do outro.
    Para resolver vou alterar a forma da criação desse arquivo dentro da PDF_INC, caso alguém esteja com um problema semelhante esta pode ser a causa.
    Segue o código de 2 arquivos que acabaram sendo gerados com o mesmo nome no ENCODE:

    Código:
    DEF VAR dt-aux     AS DATE NO-UNDO.
    DEF VAR i-tempo    AS INT  NO-UNDO.
    DEF VAR c-arquivo  AS CHAR NO-UNDO.
    DEF VAR c-encode-1 AS CHAR NO-UNDO.
    DEF VAR c-encode-2 AS CHAR NO-UNDO.
    ASSIGN dt-aux = TODAY - 1.
    ASSIGN i-tempo = (16 * 60 * 60) + (11 * 60) + 36.
    ASSIGN c-arquivo = "U:\spoolrpw\PedidosImpressos\gildor\101-479196.pdf".
    ASSIGN c-encode-1 = ENCODE(STRING(dt-aux) + STRING(i-tempo) + c-arquivo).
    ASSIGN dt-aux = TODAY - 1.
    ASSIGN i-tempo = (17 * 60 * 60) + (9 * 60) + 56.
    ASSIGN c-arquivo = "U:\spoolrpw\PedidosImpressos\gildor\101-479203.pdf".
    ASSIGN c-encode-2 = ENCODE(STRING(dt-aux) + STRING(i-tempo) + c-arquivo).
    MESSAGE c-encode-1 SKIP
            c-encode-2 SKIP
            c-encode-1 = c-encode-2
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
       
    
  2. jsilva

    jsilva Sem Pontuação

    Simulei aqui mas nao duplicou

Compartilhe esta Página