Aumentar nº de agentes v. 10.1A

@antenor os erros apontados são muito pouco para travar agentes, etc e tal, acredito que deveremos ter outros problemas, mas já é um ponto a ser resolvido...

Eu não consigo ver erro, vc pode me dizer se tem alguma sugestão de erro, mesmo pq não tem 990 linhas. Se puder me ajudar eu agradeço.

Veja o comentário do Agnaldo.

Eu tenho uma busca grande dentro daquele código. Se alguém puder me ajudar neste aspecto eu agradeço. o interessante é que eu fiz este código há mais de dois anos e só agora passei a ter problemas. Vai o trecho da busca:

<script language="SpeedScript">
DEFINE VARIABLE cWhere AS CHAR NO-UNDO.
DEFINE VARIABLE hQuery AS HANDLE NO-UNDO.
DEFINE QUERY dQuery FOR Pedido scrolling.
DEF VAR iCont AS INT NO-UNDO.

hQuery = QUERY dQuery:HANDLE.
ASSIGN cWhere = ""
cWhere = IF GET-VALUE("ug") <> "" THEN cWhere + " Pedido.UG_Codug = '" + GET-VALUE("ug") + "' AND" ELSE ""
cWhere = IF GET-VALUE("cat") <> "" THEN cWhere + " Pedido.Cat_Cat BEGINS '" + GET-VALUE("cat") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("pi") <> "" THEN cWhere + " Pedido.Proj_PI BEGINS '" + GET-VALUE("pi") + "' AND" ELSE cWhere
/*cWhere = IF GET-VALUE("despesa") <> "" THEN cWhere + " Pedido.Proj_PI MATCHES '" + "*" + (GET-VALUE("despesa")) + "' AND" ELSE cWhere (só final do PI)*/
cWhere = IF GET-VALUE("despesa") <> "" THEN cWhere + " Pedido.Proj_PI MATCHES '" + "*" + (GET-VALUE("despesa")) + "*" + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("fonte") <> "" THEN cWhere + " Pedido.Fon_Cod BEGINS '" + GET-VALUE("fonte") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("vinc") <> "" THEN cWhere + " Pedido.Vinc_Cod = '" + GET-VALUE("vinc") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("ptres") <> "" THEN cWhere + " Pedido.proj_ptres BEGINS '" + GET-VALUE("ptres") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("tc") <> "" THEN cWhere + " Pedido.Nr_Transf = '" + GET-VALUE("tc") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("flag") <> "" THEN cWhere + " Pedido.Ped_flag_ped BEGINS '" + GET-VALUE("flag") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("origem")<> "" THEN cWhere + " Pedido.Ped_OP_Destaque BEGINS '" + GET-VALUE("origem") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("os") <> "" THEN cWhere + " PedidS_Cod = '" + GET-VALUE("os") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("data") <> "" THEN cWhere + " Pedido.Ped_dat_lib >= '" + GET-VALUE("data") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("data2") <> "" THEN cWhere + " Pedido.Ped_dat_lib <= '" + GET-VALUE("data2") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("data3") <> "" THEN cWhere + " Pedido.Ped_data >= '" + GET-VALUE("data3") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("data4") <> "" THEN cWhere + " Pedido.Ped_data <= '" + GET-VALUE("data4") + "' AND" ELSE cWhere
cWhere = IF GET-VALUE("ano") <> "" THEN cWhere + " Pedido.Ped_Ano = '" + GET-VALUE("ano") + "' AND" ELSE cWhere
cWhere = IF cWhere <> "" THEN "WHERE " + RIGHT-TRIM(cWhere,"AND") ELSE "".
IF cWhere <> "" THEN do:
IF hQuery:QUERY-PREPARE("FOR EACH Pedido NO-LOCK " + cWhere) THEN
hQuery:QUERY-OPEN().
def var somatorio as decimal .
def var somatorio0 as decimal .
def var recolhido as decimal.
def var liquido as decimal.
def var rec_val as decimal.
REPEAT:
hQuery:GET-NEXT().
IF NOT AVAIL Pedido THEN
LEAVE.
ASSIGN iCont = iCont + 1.
</script>

Somente com este trecho é difícil apontar algo, mas onde está o buffer da pedidos para a instrução ASSIGN cWhere = "" com Pedido.UG_Codu ?

eu não sei como usar buffer neste caso. Vc tem algum exemplo. Desde já agradeço.