[RESOLVIDO] conflito upc qo0310 x pd4000

Boa tarde, tenho uma upc que utiliza vários eventos diferentes do QO0310 para executar algumas rotinas, porém como o QO0310, usa a mesma tabela que o PD4000, quando os dois programas estão abertos ao mesmo tempo as vezes ocorre o seguinte erro: "** Registro Pedido de Venda não está disponível.(91)".

Na minha upc do que 0310 estou passando para include i-vartab a mesma tabela usada no pd4000 será que isso que isso esa ocasionando o problema ?

{include/i-vrtab.i ped-venda}


Segue abaixo um exemplo de evento

/* LIMPAR CAMPO DE DESCONTO INFORMADO PARA O ESTABELECIMENTO 3 */
IF p-ind-event = "AfterDisplayOrder" AND p-row-table = ? AND VALID-HANDLE(wh-fill-cod-estabel) THEN DO:

IF VALID-HANDLE(wh-fill-cod-estabel) THEN DO:
IF wh-fill-cod-estabel:SCREEN-VALUE = "3" THEN DO:
ASSIGN wh-fill-de-perc-desco1:SCREEN-VALUE = "".
END.

END.
END.


Agradeço se alguém puder ajudar !


Att,

Bom dia,

Coloque no seu IF .... AND p-wgh-object:file-name MATCHES "*qo0310*" ) para quando for o QO0310

Bom dia.

Tive problema semelhante pois eu quiz fazer uma mesma upc tanto para o qo0310 como para o pd4000. Já que são muito parecidos.
Resolvi da seguinte maneira:
1 - Não utilizei gr-ped-venda,gr-ped-item... em lugar algum pois o usuário pode estar com os dois programas (qo0310 e pd4000) abertos ao mesmo tempo e em qualquer momento um dos dois programas pode alterar as variáveis.
2 - Criei uma temp-table shared que contem as variáveis utilizadas na upc e a chave da temp-table é o handle de cada instancia dos programas sendo executados, ou seja, a upc guarda as variáveis de cada programa individualmente. Se você carregar o pd4000 10 vezes cada instancia têm o valor de suas variáveis separados. Toda vez que a upc é chamada posiciono o registro da temp-table pelo handle do programa que chamou a upc.

Julio.

Bom dia, parei de utilizar a variável gr-ped-venda conforme indicação do Julio, e resolveu o meu problema.

Muito Obrigado !

Sidnei.