Erro de RAW-TRANSFER

Discussão em 'Progress 4GL' iniciado por valter, Agosto 24, 2010.

  1. valter

    valter Membro Participativo

    Bom dia a todos,

    Estou mais uma vez precisando da ajuda de vocês, fui fazer algumas modificações em um programa e apareceu uma mensagem de erro , analisei mas não consegui resolver, quando tento executar o programa aparece a tela de erro, segue anexo tela de erro.

    Desde já agradeço a colaboração de todos

    Arquivos Anexados:

    • erro.JPG
      erro.JPG
      Tamanho:
      19.4 KB
      Visitas:
      209
  2. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Caro Valter, por favor verifiqueas definições de suas tabelas que está tentando fazer o RAW-TRANSFER, com certeza elas estão difirentes.
  3. Rudy

    Rudy Membro Participativo

    Valter, você conseguiu resolver este problema?
    Estou com o mesmo problema, estou tentando fazer um programa de importação utilizando o DDK GUI e quando tento executar o programa, recebo a mesma mensagem de erro.

    Alguém poderia me ajudar ou me dizer como funciona o comando RAW-TRANSFER?

    Desde já agradeço.
  4. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Poste aqui os programas que possuem as definições da tabela que você está fazendo o RAW-TRANSFER.
  5. Rudy

    Rudy Membro Participativo

    Obrigado pela resposta Rogério, mas percebi que meu erro era que as tabelas estavam diferentes.

    Estou estudando um pouco de progress e data sul. Estou tentado fazer um programa de importação utilizando o DDK GUI, mas agora não consigo mostrar a tela de log. Quando executo o programa ele não apresenta mais problemas, mas no fim da execução, aparece um tela do bloco de notas em branco. Sera que você pode me ajudar com isso?


    Código:
    
    /* include de controle de versão */
    {include/i-prgvrs.i XX9999RP 1.00.00.000}
    /* definição das temp-tables para recebimento de parâmetros */
    DEFINE TEMP-TABLE tt-param
        FIELD destino AS INTEGER
        FIELD arq-destino AS CHAR
        FIELD arq-entrada AS CHAR
        FIELD todos AS INTEGER
        FIELD usuario AS CHAR
        FIELD data-exec AS DATE
        FIELD hora-exec AS INTEGER.
    
    DEF TEMP-TABLE tt-raw-digita
        FIELD raw-digita AS RAW.
    
    DEFINE TEMP-TABLE tt-historico NO-UNDO
        FIELD c-nit                      AS CHAR 
        FIELD c-cpf                      AS CHAR 
        FIELD c-nome                     AS CHAR 
        FIELD c-num_benefico             AS CHAR 
        FIELD c-data_nasc                AS CHAR
        FIELD c-especie                  AS CHAR
        FIELD c-situacao                 AS CHAR
        FIELD c-data_ent_requerimento    AS CHAR
        FIELD c-data_inicio              AS CHAR
        FIELD c-data_despacho            AS CHAR
        FIELD c-cid_inf_pela_emp         AS CHAR
        FIELD c-cid_inf_pelo_inss        AS CHAR
        FIELD c-data_realizacao_pericia  AS CHAR
        FIELD c-conclusao_pericia_medica AS CHAR 
        FIELD c-data_limit               AS CHAR
        FIELD c-data_indeferimento       AS CHAR
        FIELD c-data_cessacao            AS CHAR. 
    
    /* recebimento de parâmetros */
    DEF INPUT PARAMETER raw-param AS RAW NO-UNDO. 
    DEF INPUT PARAMETER TABLE FOR tt-raw-digita.
    
    CREATE tt-param.
        RAW-TRANSFER raw-param TO tt-param.
        /*     RAW-TRANSFER.raw-param to tt-param. */
    
    /* include padrão para variáveis para o log */
    {include/i-rpvar.i}
    
    /* definição de variáveis e streams */
    DEF STREAM s-imp. 
    DEF VAR h-acomp AS HANDLE NO-UNDO. 
    DEF VAR c-linha AS CHAR NO-UNDO. 
    DEF VAR i-cust AS INT NO-UNDO.
    /* definição de frames do log */
    
    /* include padrão para output de log */
    {include/i-rpout.i &STREAM="stream str-rp" &TOFILE=tt-param.arq-destino}
    
    /* include com a definição da frame de cabeçalho e rodapé */
    {include/i-rpcab.i &STREAM="str-rp"}.
    
    /* bloco principal do programa */
    ASSIGN c-programa = "XX0006RP"
           c-versao = "1.00"
           c-revisao = ".00.000"
           c-empresa = "Empresa Teste"
           c-sistema = 'Sports'
           c-titulo-relat = "Listagem de Erros da Importação de Clientes".
    
    VIEW STREAM str-rp FRAME f-cabec. 
    VIEW STREAM str-rp FRAME f-rodape.
    
    RUN utp/ut-acomp.p PERSISTENT SET h-acomp. 
    {utp/ut-liter.i Importando *}
    RUN pi-inicializar IN h-acomp (INPUT RETURN-VALUE).
    
    /* define o arquivo de entrada informando na página de parâmetros */
    /* INPUT STREAM s-imp FROM VALUE(tt-param.arq-entrada). */
    INPUT FROM VALUE(tt-param.arq-entrada) NO-ECHO.
    
    /* bloco principal do programa */
    REPEAT:
            CREATE tt-historico.
            IMPORT DELIMITER ";" tt-historico.
    END.
    INPUT CLOSE.
    
    FOR EACH tt-historico:
        MESSAGE tt-historico.c-cpf + ": " + tt-historico.c-nome
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    
    /* fechamento do output do log */
    {include/i-rpclo.i &STREAM="stream str-rp"}
    RUN pi-finalizar in h-acomp.
    RETURN "Ok":U.
    
  6. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Troque a linha de comando:

    MESSAGE tt-historico.c-cpf + ": " + tt-historico.c-nome
    VIEW-AS ALERT-BOX INFO BUTTONS OK.


    por


    PUT STREAM str-rp tt-historico.c-cpf + ": " + tt-historico.c-nome SKIP.

Compartilhe esta Página