Error code: 0x800200009

Discussão em 'Progress 4GL' iniciado por rafaelpozzato, Junho 19, 2012.

Página 1 de 2
  1. rafaelpozzato

    rafaelpozzato Sem Pontuação

    Alguem pode me ajudar, este erro ocorre quando o programa tenta executar o excel que esta gerando com um parametro que segue abaixo:
    parameter --> chExcelApplication:chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 18)):MergeCells = 1.

    Ocorreu erro durante acesso a componente da propriedade/metodo:
    cells.
    Exceção.
    Error code: 0x800200009 C:\Windows\system32\p48077_teste pedido.ped
    (5890)


    me ajudem???
    rafaelpozzato, Junho 19, 2012
    #1
  2. baltazar

    baltazar Membro Participativo

    Experimente com 'true'.

    Código:
    chFolha:Range("B1:E1"):MergeCells = true.
    baltazar, Junho 20, 2012
    #2
  3. rafaelpozzato

    rafaelpozzato Sem Pontuação

    Ok assim funciona, o meu problema, é como estou trabalhando com varios registros, sem saber o nº de registros, apenas sei onde deveri mesclar, como faço isso, pois assim ainda não funciona.

    Grato Baltazar pela ajuda.
    rafaelpozzato, Junho 20, 2012
    #3
  4. eriutoncharles

    eriutoncharles Membro Participativo

    chExcelApplication:chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 18)):MergeCells = true.
    eriutoncharles, Junho 20, 2012
    #4
  5. baltazar

    baltazar Membro Participativo

    O que contém estes 2 campos?

    col-aux e row-aux

    Pode ter que ser algo assim!

    Já confirmou o que está nessas 2 variaveis?

    Código:
    chExcelApplication:chWorkSheet:Range( chr(col-aux + 1) + ":" + string(row-aux + 18)):MergeCells = true.
    baltazar, Junho 20, 2012
    #5
  6. rafaelpozzato

    rafaelpozzato Sem Pontuação

    estas variaveis eu criei para o loop nos registros da temp-table, são auxiliares, dis que dado x ficara na col-aux=1 e row-aux=1 e os próximos registros abaixo sucessivamente, certo!!!

    [prog=]def var col-aux as int initial 65 no-undo.
    def var row-aux as int initial 1 no-undo.
    def var i as int.

    for each tmp-ped-qt no-lock:

    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 1 )) :value = "R$ 1,00".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 2 )) :value = "R$ 1,50".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 3 )) :value = "R$ 1,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 4 )) :value = "R$ 2,49".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 5 )) :value = "R$ 2,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 6 )) :value = "R$ 3,49".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 7 )) :value = "R$ 3,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 8 )) :value = "R$ 4,49".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 9 )) :value = "R$ 4,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 10 )):value = "R$ 5,49".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 11 )):value = "R$ 5,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 12 )):value = "R$ 6,49".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 13 )):value = "R$ 6,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 14 )):value = "R$ 7,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 15 )):value = "R$ 8,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 16 )):value = "R$ 9,99".
    assign chWorkSheet:Range( chr(col-aux + i * 3 ) + string(row-aux + 17 )):value = string(tmp-ped-qt.qt-ped-extra-qtd).



    assign chWorkSheet:Range( chr(col-aux ) + string(row-aux)) :value = string(tmp-ped-qt.nm-cli).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 1)) :value = string(tmp-ped-qt.qt-ped1).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 2)) :value = string(tmp-ped-qt.qt-ped2).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 3)) :value = string(tmp-ped-qt.qt-ped3) .
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 4)) :value = string(tmp-ped-qt.qt-ped4) .
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 5)) :value = string(tmp-ped-qt.qt-ped5) .
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 6)) :value = string(tmp-ped-qt.qt-ped6) .
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 7)) :value = string(tmp-ped-qt.qt-ped7) .
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 8)) :value = string(tmp-ped-qt.qt-ped8) .
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 9)) :value = string(tmp-ped-qt.qt-ped9) .
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 10)):value = string(tmp-ped-qt.qt-ped10).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 11)):value = string(tmp-ped-qt.qt-ped11).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 12)):value = string(tmp-ped-qt.qt-ped12).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 13)):value = string(tmp-ped-qt.qt-ped13).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 14)):value = string(tmp-ped-qt.qt-ped14).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 15)):value = string(tmp-ped-qt.qt-ped15).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 16)):value = string(tmp-ped-qt.qt-ped16).
    assign chWorkSheet:Range( chr(col-aux + 1) + string(row-aux + 17)):value = string(tmp-ped-qt.qt-ped-extra-vlr).
    assign chWorkSheet:Range( chr(col-aux + 0) + string(row-aux + 18)):value = string(tmp-ped-qt.dt-vis).
    assign chWorkSheet:Range( chr(col-aux + 0) + string(row-aux + 19)):value = string(tmp-ped-qt.dt-ret).

    if col-aux = 74 then /* DETERMINA A QUANTIDADE DE IMPRESSÕES EM TELA POR LINHA QUE SERA REALIZADO: EX: 71 = 3 */
    do:
    row-aux = row-aux + 22.
    col-aux = 65.
    end.
    else
    do:
    col-aux = col-aux + 3.

    end.[/prog]
    rafaelpozzato, Junho 20, 2012
    #6
Página 1 de 2

Compartilhe esta Página