Nada mais fofo que ver um caozinho bem limpinho passar na rua com um laco nas madeixas.Pois e, entao vou mostrar alguns liiiindos que eu morro de vontade de comprar pra Nina.NatalVamos la ! Tem para todas as datas comemorativas ... aaaaaain sao muito fofinhos.PascoaAno novo CarnavalAgora vou mostrar pra voces o que eu mesma fiz. KKKKKKKK meu namorado ainda nao conhece essa minha abilidade, e uma surpresa pra ele, porque nos AMAMOS a Nina e adoramos ve-la LIIIIINDA, ai eu vou fazer um tanto e mostrar a ele que foi eu quem fiz. que lindo ne ? Olhem so :)E meu primeiro lacinho, nao ficou MARAVILHOSO , mais eu vou melhorar e depois eu coloco passo a passo aqui pra voces. Nao e dificil, porque eu aprendi na primeira vez que tentei, o chato e achar aqueles elasticos pequenininhos, porque so tem em grande quantidade. Eu tive que comprar 100 elasticos e queria apenas 6 KKKKKKK mais o bom e que nao e caro e da pra fazer um TANTAO. rsrs.Assim que eu fazer mais, coloco aqui pra vcs verem. Beijos da Kaka e da Nina =) Browse - Filtrar RegistrosBRW1.SetFilter('(mat:FichaTecnica_mat=1)')thiswindow.reset(true) Essa rotina ira fazer com que nao quebre palavras!Loc:Transfere_Obs !Essa rotina ira fazer com que nao quebre palavras !loc:Texto string 2000 !loc:contador long !loc:inicial long !loc:final long !loc:transfere_obs => Grupo => com ! wobs dim[6] Tamanno 80 loc:Texto=Loc:Transfere_Obs Loc:Transfere_Obs='' loc:contador=0 LOOP IF loc:Texto<>'' Loc:Inicio=1;loc:Final=80;loc:contador+=1 IF loc:contador>6 BREAK ELSE LOOP if (SUB(loc:Texto,loc:Final,1)<>'' AND SUB(loc:Texto,loc:Final+1,1)='') OR (SUB(loc:Texto,loc:Final,1)='') WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final))) loc:Texto=sub(loc:Texto,loc:Final+1,20000) BREAK ELSE LOC:FINAL-=1 IF LOC:FINAL<1 p=""> LOC:INICIO=LOC:INICIO+loc:Final WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final))) LOC:FINAL=80 BREAK END END END END ELSE BREAK END END!Loc:Transfere_Obs http://clarionlive.wikispaces.com/Knowledgebase Icones Livreshttp://www.aha-soft.com/free-icons/ Instalar IqXmlSe ja instalou desconsidere essa etapa.Para instalar entre no sitehttp://www.paresi.net/clarion/e baixe a versao para 6.0 Clarion / C#http://clarionlive.wikispaces.com/Creating+a+COM+control+in+VS2012+for+use+in+CLarion+-+Mark+Sarsonhttp://screencast.com/t/Dr78q2RGuqdXhttp://clarionlive.wikispaces.com/Knowledgebase Queue - ListBoxNo 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) Palmitec - colocado 12 itens materiais Ler xml Nfe1. CRIAR UMA WINDOW VAZIA2. Crie uma Variavel Chamada Loc:NomeXml3. Coloque para digitar essa variavel e agora, coloque um botao para importar xml4. para facilitar coloque no lado do nome, DosFileLookup para buscar o arquivo xml ou digite manualmente 5. comandos dentro do botao importa xml Abrir o arquivo na memoria ========================== x#=xml:loadfromfile(Loc:NomeXml_SERVICO,false) ! Esse comando le o arquivo selecionado if x#=0 ! caso de 0 e porque ele achou o arquivo message('agora vamos comecar a ler os campos do xml') ELSE message('nao Existe Xml') END6. CRIAR UMA VARIAVEL CHAMADA LOC:RETORNO CSTRING(@S80) x#=xml:loadfromfile(Loc:NomeXml_SERVICO,false) ! Esse comando le o arquivo selecionado if x#=0 ! caso de 0 e porque ele achou o arquivo xml:gototop() ! inicio xml if not xml:FindNextNode('ide') ! procura tag ide if not xml:FindNextNode('cUF') ! procura tag cUF if ~xml:readCurrentData(loc:retorno) ! achou message(loc:retorno) ! esse e o campo cUf e so colocar onde voce quizer ... ! esses campos irao pegar os campos normais ELSE message('nao Existe Xml') END 43 00001988 5101 Venda de producao do estabelecimento 07 pis 7. pegar campos dos produtos REFNum1 TERMOSTATO 39199000 5101 UN 10.0000 10.00000000 100.00 UN 10.0000 10.00000000 1 Dentro