[RESOLVIDO] DOS SILENT

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Janeiro 19, 2012.

Status do Tópico:
Não esta aberto para novas mensagens.
Página 1 de 2
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Galera tenho o seguinte trecho de codigo, preicso gerar alguns arquivos PDF, só que depois que dou o DOS SILENT, e programa fica esperando eu fechar o PDF aberto para gerar o proximo, como faço para que gere todos sem o usuario precisar fechar os anteriores?

    Código:
        FOR EACH pedido-compr WHERE pedido-compr.num-pedido >= 1 AND
                                pedido-compr.num-pedido <= 5:
        ASSIGN chWorkbook = chExcel:Workbooks:ADD(c-modelo). 
        chExcel:Sheets("Geral"):SELECT.
        chExcel:VISIBLE = NO.
        ASSIGN c-arquivo = "d:\modelos\pedido-compra-" + STRING(pedido-compr.num-pedido) + ".pdf".
        

        ASSIGN i-linha = 3
               chExcel:Range("A" + STRING(i-linha)):VALUE = pedido-compr.num-pedido
               i-linha = 4
               chExcel:Range("A" + STRING(i-linha)):VALUE = pedido-compr.data-pedido.
        
        chExcel:ActiveWorkbook:SAVEas(c-arquivo,57,,,NO,NO,NO).
        chWorkbook:CLOSE(NO).
        DOS SILENT value(c-arquivo) NO-WAIT.
    END.
    Rogerio, Janeiro 19, 2012
    #1
  2. hpfaff

    hpfaff Membro Participativo

    Rogério, boa tarde..

    Não precisa executar o DOS SILENT... vc já está com o excel aberto.

    Basta setar chExcel:VISIBLE = YES.
    Um abraço
    hpfaff, Janeiro 20, 2012
    #2
  3. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Então mas eu estou salvando o arquivo como PDF, para que não haja alteração, por isso tenho que abrir o arquivo saldo com o DOS SILENT.... ou alguem tem alguma outra maneira?
    Rogerio, Janeiro 20, 2012
    #3
  4. juliano

    juliano Sem Pontuação

    Se voce usa o EMS pode fazer assim,

    /*declarar no inico do programa*/
    def var h-prog as handle no-undo.
    run utp/ut-utils.p persistent set h-prog.

    /*depois voce chama o programa e o arquivo passando parametro*/
    run Execute in h-prog(input "notepad.exe", input "c:\tmp\carga.txt").
    juliano, Janeiro 23, 2012
    #4
  5. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    ou use OS-COMMAND NO-WAIT VALUE(c-arquivo).
    Rodrigo Rossetto, Janeiro 23, 2012
    #5
  6. LFBuozi

    LFBuozi Membro Participativo

    Sempre uso:
    Código:
    dos silent start value (c-arquivo)
    LFBuozi, Janeiro 25, 2012
    #6
Página 1 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página