[RESOLVIDO] Erro ao Gerar Nota Fiscal

Então, posso estar equivocado, mas aparenta nem chegar na efetivaNota (clientlog não mostra chamada para este cara e nem chamadas deste cara para outros). Parece que "morre" na localizaWtDocto.

Pergunta, o pedido que está vindo no rowid da tt-gera, está ok?

Onde coloquei pedido está ok, entenda-se ped-item está ok?

Estou embasando neste trecho do clilog

Código:

[17/05/31@10:37:53.715-0300] P-022416 T-021868 2 4GL 4GLTRACE   Run localizaWtDocto in dibo/bodi317sd.p "190481" [USER-INTERFACE-TRIGGER - E:\Datasul\Temp\p01876_esft0005.ab @ 5220]
[17/05/31@10:37:53.716-0300] P-022416 T-021868 3 4GL 4GLTRACE   Return from localizaWtDocto "yes" [dibo/bodi317sd.p]
[17/05/31@10:37:53.716-0300] P-022416 T-021868 1 4GL -- ** Registro Item do Pedido nao esta' disponivel. (91)
[17/05/31@10:37:53.716-0300] P-022416 T-021868 1 4GL -- ** ABL Debug-Alert Stack Trace **
[17/05/31@10:37:53.716-0300] P-022416 T-021868 1 4GL -- --> USER-INTERFACE-TRIGGER E:\Datasul\Temp\p01876_esft0005.ab (E:\Datasul\Temp\p01876_esft0005.ab) at line 5223
[17/05/31@10:39:21.313-0300] P-022416 T-021868 1 4GL -- Erro ao tentar colocar parametros no stack. (984)
[17/05/31@10:39:21.314-0300] P-022416 T-021868 1 4GL -- ** ABL Debug-Alert Stack Trace **
[17/05/31@10:39:21.314-0300] P-022416 T-021868 1 4GL -- --> USER-INTERFACE-TRIGGER E:\Datasul\Temp\p01876_esft0005.ab (E:\Datasul\Temp\p01876_esft0005.ab) at line 5223

Opa, agora, sim, hehehe

Essa rotina tu já usa ou está criando nova, se já usa, minha linha de raciocínio deve estar indo par ao lado errado... Talvez setar os campos como vazio/?/"" seja o caminho daí...

Então, pelo clientlog parece que ele passa um "ZERO" como nr-entrega para a busca da tabela ped-ent, mais ou menos assim:

Como você está carregando um pedido ele entende que deveria ter um ped-ent para este cara, e com zero ele não deve estar achando (ou acha mais de 1 e dá pau também).

Código:

find ped-ent
         where ped-ent.nome-abrev   = ped-venda.nome-abrev
         and   ped-ent.nr-pedcli    = ped-venda.nr-pedcli
         and   ped-ent.nr-sequencia = ped-item.nr-sequencia
         and   ped-ent.it-codigo    = ped-item.it-codigo
         and   ped-ent.cod-refer    = ped-item.cod-refer
         and   ped-ent.nr-entrega   = 0 exclusive-lock no-error.

Tenta rodar o código abaixo e vê o que teria nesse nr-entrega na sua base

Código:

for each ped-ent
         where ped-ent.nome-abrev   = ped-venda.nome-abrev
         and   ped-ent.nr-pedcli    = ped-venda.nr-pedcli
         and   ped-ent.nr-sequencia = ped-item.nr-sequencia
         and   ped-ent.it-codigo    = ped-item.it-codigo
         and   ped-ent.cod-refer    = ped-item.cod-refer no-lock:
   disp ped-ent.nr-entrega.
end.