[RESOLVIDO] Include para Geração de Relatório

Discussão em 'EMS , HCM e Totvs 11' iniciado por Daniel Carvalho, Janeiro 12, 2015.

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

    Daniel Carvalho Sem Pontuação

    Senhores, muito boa tarde!

    É meu primeiro POST no 4Each, caso eu esteja em um local incorreto me corrijam.

    Seguinte... estou criando um relatório e resolvi utilizar a include include/i-rptrm.i do DDK para geração e não indicar o Output, a lógica da geração não está incorreta, foi revisada e tudo mais... porém ao ser gerado o relatório sou informado que não há um editor padrão para o formato, neste caso um .csv, e subsequentemente solicita que os parâmetros sejam informados diretamente no Datasul.

    Vocês já utilizaram este include e ele é mais bem utilizado que de fato utilizar o método tradicional?
    Desde já obrigado!
    Daniel Carvalho, Janeiro 12, 2015
    #1
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Veja se isso te ajuda a entender o caso ...

    Código:
    /**************************************************************************
**
** I-RPTRM - Realiza o destino de impressÆo Terminal
**
***************************************************************************/
DEF VAR cEditor     AS CHAR.
DEF VAR vLog        AS LOGICAL.
DEF VAR vLogNotepad AS LOGICAL INITIAL YES. /* pdf */


/*Alterado 15/02/2005 - tech1007 - Alterado teste para que nÆo seja aberto o arquivo
  LST quando for gerado o arquivo RTF*/
IF tt-param.destino = 3 THEN DO:
     /* RTF */
     &IF "{&RTF}":U = "YES":U &THEN
     IF tt-param.l-habilitaRTF = YES THEN
         ASSIGN vLogNotepad = NO.
     &endif
    
     &IF "{&PDF}" = "YES" &THEN /*tech868*/
     IF usePDF() THEN
         ASSIGN vLogNotepad = NO.
     &endif
    
     IF vLogNotepad = YES THEN DO:
         GET-KEY-VALUE SECTION "Datasul_EMS2":U KEY "Show-Report-Program":U VALUE cEditor.

         IF  SEARCH(cEditor) = ? THEN DO:
             ASSIGN  cEditor = OS-GETENV("windir") + "~\notepad.exe"
                     vLog    = YES.
             IF  SEARCH(cEditor) = ? THEN DO:
                 ASSIGN  cEditor = OS-GETENV("windir") + "~\write.exe".
                 IF  SEARCH(cEditor) = ? THEN DO:
                     RUN utp/ut-msgs.p (INPUT "show",
                                        INPUT 27576,
                                        INPUT tt-param.arquivo).
                     ASSIGN  vLog    = NO.
                 END.
             END.
         END.

         RUN winexec (INPUT cEditor + CHR(32) + tt-param.arquivo, INPUT 1).
     END.
       
     &IF "{&PDF}" = "YES" &THEN /*tech868*/
     /*tech1478 abre acrobat reader pro cara visualizar o arquivo */
         IF usePDF() THEN DO:
             RUN pi_call_adobe IN h_pdf_controller (INPUT tt-param.arquivo).
         END.
     &endif
   
END.


/* Alterado 25/05/2005 - tech14207 - Alterado para corrigir o erro 142 gerado quando se utiliza a op‡Æo RTF com o cursor no editor
do browser br-digita*/

IF tt-param.destino = 3 THEN DO:
   {&OPEN-QUERY-{&BROWSE-NAME}}
END.

/*Fim alteracao 15/02/2005*/
/* i-rptrm */
    bootstrapmaster, Janeiro 13, 2015
    #2
  3. Daniel Carvalho

    Daniel Carvalho Sem Pontuação

    Legal, ajudou muito! Obrigado!
    Daniel Carvalho, Janeiro 13, 2015
    #3
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página