Duvida Procedure Editor

Pessoal no Editor Progress quando faço a pesquisa de uma palavra , e teclando F9 após a ultima ou quando não encontrado a palavra , o sistema é derrubado com o seguinte erro:

OpenEdge Graphical Client parou de funcionar

Um problema fez com que o programa parasse de funcionar corretamente. Feche o programa.
-> Fechar o programa
-> Depurar o programa

O que precisa ser feito ?
Att.

olá Valdir.

eu tinha estes travamentos constantemente. só resolveu depois que coloquei o "procedure editor" e o "app builder" para rodar fora do datasul.

criei uma atalho com a ajuda do pessoal da lista e mudou da água para o vinho.
t+

Boa Tarde, @pizzaia vc tem esse atalho ou exemplo como criar ?

Att.

foi criado um .BAT para chamar o AppBuilder em ambiente de teste com o seguinte conteudo:

Código:

@start /realtime C:\DATASUL\OE10\bin\prowin32.exe -basekey "ini" -ininame "\\ip-servidor\erp\scripts-porta\datasul-progress.ini" -pf "\\ip-servidor\erp\scripts-porta\datasul.pf" -p "\\ip-servidor\erp\scripts-porta\datasul-configxml-aliasApp.p"

fizemos algumas alterações no ....\scripts-porta\datasul-configxml-aliasApp.p que foi copiado do ....\scripts-porta\datasul-configxml-alias.p

Código:

DEFINE VARIABLE c-file AS CHARACTER  NO-UNDO.
DEFINE VARIABLE c-linha AS character format "x(50)" NO-UNDO.
DEFINE STREAM s-entrada.

CREATE ALIAS mgesp  FOR DATABASE emscustom     NO-ERROR.
CREATE ALIAS ems2custom FOR DATABASE emscustom NO-ERROR.

CREATE ALIAS mgadm   FOR DATABASE ems2corp NO-ERROR.
CREATE ALIAS mginv   FOR DATABASE ems2corp NO-ERROR.
CREATE ALIAS mgrac   FOR DATABASE ems2corp NO-ERROR.
CREATE ALIAS mgven   FOR DATABASE ems2corp NO-ERROR.

CREATE ALIAS mgdis   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgcld   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgcex   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgind   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgmfg   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgmnt   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgmrp   FOR DATABASE ems2unit NO-ERROR.
/* CREATE ALIAS mgscm   FOR DATABASE ems2unit NO-ERROR. */
CREATE ALIAS mgtmp   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgaps   FOR DATABASE ems2unit NO-ERROR.
CREATE ALIAS mgfis   FOR DATABASE ems2unit NO-ERROR.

CREATE ALIAS movadm  FOR DATABASE mov2corp NO-ERROR.
CREATE ALIAS movrac  FOR DATABASE mov2corp NO-ERROR.

CREATE ALIAS movdis  FOR DATABASE mov2unit NO-ERROR.
CREATE ALIAS movind  FOR DATABASE mov2unit NO-ERROR.
CREATE ALIAS movmfg  FOR DATABASE mov2unit NO-ERROR.
CREATE ALIAS movfis  FOR DATABASE mov2unit NO-ERROR.
CREATE ALIAS movmnt  FOR DATABASE mov2unit NO-ERROR.
CREATE ALIAS wmovdis FOR DATABASE mov2unit NO-ERROR.

create alias emsfin    for database ems5cad no-error.
create alias emsedi    for database ems5cad no-error.
create alias emsven    for database ems5cad no-error.
create alias emsuni    for database ems5cad no-error.
create alias emsbas    for database ems5cad no-error.
create alias movfin    for database ems5mov no-error.

CREATE ALIAS dthrgst FOR DATABASE hcm NO-ERROR.
CREATE ALIAS dthrpmg FOR DATABASE hcm NO-ERROR.
CREATE ALIAS dthrpyc FOR DATABASE hcm NO-ERROR.
CREATE ALIAS dthrtma FOR DATABASE hcm NO-ERROR.

CREATE ALIAS srmovben FOR DATABASE srcadger NO-ERROR.
CREATE ALIAS srmovcon FOR DATABASE srcadger NO-ERROR.
CREATE ALIAS srmovfi1 FOR DATABASE srcadger NO-ERROR.
CREATE ALIAS srweb FOR DATABASE srcadger NO-ERROR.


    DEF TEMP-TABLE tt-erro-logon NO-UNDO
        FIELD cod-erro          AS INT
        FIELD desc-erro         AS CHAR FORMAT 'x(256)':u
        FIELD desc-arq          AS CHAR .

    DEFINE STREAM arquivoent .

/* ler usuário e senha de arquivo TXT para não precisar ficar informando....
modelo do TXT C:\DATASUL\LOGIN.INI:
[LOGON]
usuario
senha

*/
procedure ler-usuario:
    define input-output parameter p-usuario as character no-undo.
    define input-output parameter p-senha as character no-undo.

    DEFINE VARIABLE linha AS CHARACTER NO-UNDO .
    DEFINE VARIABLE contador AS INTEGER NO-UNDO.
    INPUT STREAM arquivoent FROM  C:\DATASUL\LOGON.INI .

    ASSIGN contador = 0 .
    REPEAT:
          import STREAM arquivoent UNFORMATTED linha .
          ASSIGN contador = contador + 1 .
          IF contador > 3 THEN LEAVE .

          if contador = 2 then
              assign p-usuario = trim(linha).
          if contador = 3 then
              assign p-senha = trim(linha).

    END.
    INPUT STREAM arquivoent CLOSE .
end.

procedure alterar-propath:
    define input parameter pPropath as character  no-undo.

    DEFINE VARIABLE cKeyValue AS CHARACTER NO-UNDO.

    /*run limparCache.     */
   
    get-key-value section 'Startup' key pPropath value cKeyValue.

    PROPATH = cKeyValue.

    /*
    ASSIGN
        EDITOR-LOG:SCREEN-VALUE IN FRAME FRAME-B = REPLACE(PROPATH, ',', CHR(13) + CHR(10))
        c-Win:TITLE  = 'CompilaWin PROPATH=' + pPropath
        v-propath = pPropath.
   */
   /* RETURN "".*/   /* Function return value. */

end.

procedure login:

    /* Acima fica o padrÆo do alias.p ...*/
    def var c-usuario as char format "x(12)" no-undo initial "super".
    def var c-senha   as char format "x(32)" no-undo.

    /*update c-usuario
           c-senha.          */
    assign c-usuario = 'super'
        c-senha = 'senha-do-super-base-desenvolvimento'.

    run ler-usuario(input-output c-usuario
                    , input-output c-senha) .

    RUN btb/btapi910za.p (
        c-usuario,
        c-senha,
        OUTPUT TABLE tt-erro-logon).

    FIND FIRST tt-erro-logon NO-ERROR.
    IF AVAIL tt-erro-logon THEN DO:
        MESSAGE tt-erro-logon.desc-erro
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    else do:
        run alterar-propath('PROPATH_DDK'). /* <==== olhar propath customizado */
        run _ab.r   . /* <=== chamado do appBuilder */
    end.

end. /**/

/* alterar descrição da empresa, para ter certeza que está na base teste */
for each mguni.empresa.
    if index(empresa.razao-social,"TESTE") = 0
    then assign empresa.razao-social = "**TESTE**" + empresa.razao-social.
end.

for EACH emsfnd.fnd_empres.
    if index(fnd_empres.des_razao_social,"TESTE") = 0
    then assign fnd_empres.des_razao_social = "**TESTE**" + fnd_empres.des_razao_social.
end.

/* validar que o client do progress está com o service pack correto */
ASSIGN c-file = "C:\DATASUL\OE10\version"
       c-linha = "1".

INPUT STREAM s-entrada FROM VALUE(c-file).
IMPORT STREAM s-entrada UNFORMATTED c-linha.

if index(c-linha, "10.2B08") <> 0 then do:
   /* run men/men906za.p.   */
    run login.
end.
else do:
    message " VersÆo Cliente Progress deverÿ ser a 10.2B08. \\ip-servidor\erp\scripts-porta\datasul-configxml-alias.p ! " view-as alert-box info buttons ok.
end.


quit.

dentro do datasul-progress.ini informe o propath para desenvolvimento:
PROPATH_DDK=informe o seu propath usado quando irá carregar o ambiente de desenvolvimento. pode colocar em baixo da linha normal do propath.


até +

Muito Obrigado @pizzaia , depois farei o teste
Boas Festas !

Abraços