Queue - ListBox

Queue - ListBox

No clarion8,nao achei o listbox queue entao copio colo e altero o que desejo

              LIST,AT(11,54,561,207),USE(DeletaitensQueue),VSCROLL,FORMAT('12L(2)|M~Ite' & |
                'n~L(1)@n_03@'),FROM(DupQueue),#FIELDS(Dupq:Sequencia,Dupq:Cod,Dupq:EmitDest, |
                Dupq:Titulo,Dupq:Data_Emissao_DATE,Dupq:Data_Vencimento_DATE,Dupq:Data_Pagamento_DATE, |
                Dupq:Valor_Titulo_Receber,Dupq:Valor_Titulo_Pagar,Dupq:DiferencaValor),#ORIG(?List1), |
                #ORDINAL(358)

Queue

Queue

         sort(RazaoQueue,+RaqQ:Conta,+RaqQ:Descricao,+RaqQ:DtDocumento_DATE,+RaqQ:Sequencia,+RaqQ:Sequencia1)
         loop contador#=1 to records(RazaoQueue)
         get(RazaoQueue,contador#)
end

Queue - Mostrar conteudo Queue

Queue - Mostrar conteudo Queue

Selecionar Registro Queue

Selecionar Registro Queue

Clarion - Queue - Pegar Campos (13 05 09)

LOOP
Campo# += 1
Nome" = WHO(ListQueue,Campo#)
if Nome" = '' then
Campo# -= 1
BREAK
END
END

message(Campo#)

Queue - Copiar em memoria

Queue - Copiar em memoria

loop a# = 1 to record(cola) by 1
bet(Cola,q#)
end

get(cola,campo) !Busca um resitro
add(cola)
put(cola)
delete(cola)