Duvida FOR EACH falhando dentro de UPC na bodi159com

é porque vc deve estar criando algum registro ou fazendo EXCLUSIVE-LOCK fora da transação

na verdade quando vc movimenta os registros, o progress se força a limpar o buffer pra proxima leitura, dai atualiza a base, mas carrega o BI e AI, pra fazer undo se for preciso.

Quando tem uma transação dentro de outra dá essa mensagem, eu tenho disso aqui, mas não tem como, as vezes tem que conviver com isso.

Não é muito bem isso não.

Quando se faz alguma interação com o banco de dados de escrita ou até mesmo um lock de registro, o bloco inteiro se transforma numa transação.

tipo:

Código:

DO:

  CREATE MinhaTabela.
  ASSIGN MinhaTabela.Codigo = 1.

  TMaior:
  DO TRANS:
         RUN API.p.
  END.

END.

ou ainda:

Código:

DO:

  FIND FIRST MinhaTabela EXCLUSIVE-LOCK NO-ERROR.

  TMaior:
  DO TRANS:
         RUN API.p.
  END.

END.

Ambos vão dar warning de transação já aberta.

O correto é só fazer LOCK de registro, criação e alteração dentro do DO TRANS, fora dele só NO-LOCK, e nunca usar shared-lock (quando se coloca isso na query ou não coloca nada de LOCK, pois é usado de modo implícito como no FIND FIRST MinhaTabela NO-ERROR).

Lembrando que o DO END mostrados no código podem ser de um evento CHOOSE um botão, mas o mesmo vale procedures, funções e tudo mais.