Aumentar nº de agentes v. 10.1A

Sim!

Então, o erro está em usar campos da tabela pedidos sem estar posicionado em um registro.

Bom dia Jaison, como faço para alterar isto?

Você precisa usar find, get ou for para localizar registo da tabela pedidos.

Bom dia Jaison, eu reparei que outros programas também estão causando o travamento. Eu devo usar o find depois do for each? Eu reparei tbm que apresenta o código 91 tbm. Se vc puder me ajudar em onde colocar este get ou find eu agradeço.
<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.

IF NOT AVAIL Pedido THEN DO:
MESSAGE
"==========================" SKIP
"PEDIDO NAO DISPONIVEL" SKIP
"==========================" SKIP.
END.
ELSE DO:
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.
END.
END.
END.
</script>

Infelizmente não há mágica, precisa revisar os programas envolvidos, entender a necessidade e para isso preciso de tempo.
Estou no skype caso queira conversar.

Atenciosamente,
Jaison