terça-feira, 17 de dezembro de 2013

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)