[RESOLVIDO] Dúvida em Programa de exportação DDKGUI

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rudy, Junho 28, 2011.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Rudy

    Rudy Membro Participativo

    Estou construindo um programa de exportação utilizando o ddkgui e o manual de padrões Programação EMS 2.0, consegui criar um programa e executá-lo, mas não consegui entender a aba LAYOUT.
    Segundo o manual esta aba é obrigatório para o programa de exportação, mas não consigo edita-la e a saída do meu log esta vindo vázia.
    Alguém pode me dizer para que serve a aba LAYOUT em um programa de exportação e como fazer meu log ser escrito.

    Segue abaixo meu export-rp.p
    Código:
    /* include de controle de versão */
    {include/i-prgvrs.i SP0014RP 1.00.00.000}
    /* préprocessador para ativar ou não a saída para RTF */
    /* &GLOBAL-DEFINE RTF YES */
    /* préprocessador para setar o tamanho da página */
    /* &SCOPED-DEFINE pagesize 42 */
    
    /* 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
        FIELD c-ini-empresa    AS INTEGER
        FIELD c-fim-empresa    AS INTEGER
        FIELD c-ini-estab      AS INTEGER 
        FIELD c-fim-estab      AS INTEGER.
    
    
    DEFINE TEMP-TABLE tt-raw-digita NO-UNDO
        FIELD raw-digita AS RAW.
    
    /* recebimento de parâmetros */
    DEFINE INPUT PARAMETER raw-param AS RAW NO-UNDO.
    DEFINE INPUT PARAMETER TABLE FOR tt-raw-digita.
    
    CREATE tt-param.
    RAW-TRANSFER raw-param TO tt-param.
    
    /* include padrão para variáveis de relatório */
    {include/i-rpvar.i}
    
    /* definição de variáveis */
    DEFINE STREAM s-exp.
    DEFINE VARIABLE h-acomp AS HANDLE 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 = "Teste" 
           c-sistema = 'Teste' 
           c-titulo-relat = "Listagem de Erros da Exportação".
    
    VIEW STREAM str-rp FRAME f-cabec. 
    VIEW STREAM str-rp FRAME f-rodape.
    
    /* executando de forma persistente o utilitário de acompanhamento */
    RUN utp/ut-acomp.p PERSISTENT SET h-acomp.
    {utp/ut-liter.i Exportando *}
    
    RUN pi-inicializar IN h-acomp (INPUT RETURN-VALUE).
    
    /* define a saída para o arquivo de saída informando na página de parâmetros */
    OUTPUT THROUGH STREAM s-exp FROM VALUE(tt-param.arq-entrada).
    /* bloco principal do programa */
    FOR EACH funcionario ON STOP UNDO, LEAVE: 
        RUN pi-acompanhar IN h-acomp (INPUT STRING(funcionario.cdn_funcionario)). 
        PUT STREAM s-exp UNFORMATTED 
            STRING(funcionario.cdn_funcionario, "99999")
            STRING(funcionario.nom_pessoa_fisic,"x(40)")
            SKIP.
    END.
    
    OUTPUT STREAM s-exp CLOSE.
    
    /*fechamento do output do log */
    {include/i-rpclo.i &STREAM="stream str-rp"}
    
    RUN pi-finalizar IN h-acomp.
    
    RETURN "OK":U.
    
  2. LFBuozi

    LFBuozi Membro Participativo

    Cara, aqui você uma uma stream:
    OUTPUT THROUGH STREAM s-exp FROM VALUE(tt-param.arq-entrada).

    Aqui usa outra:
    {include/i-rpclo.i &STREAM="stream str-rp"}
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página