vagner

Olá, Simples, pois qndo vc cola alguma coisa, vai para a área de transferência do windows, onde é transformado para string Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Servulo, Isso mesmo, somente destaco nas informações adicionais a base de calculo e o valor do icms Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Mais novidades, https://www.fazenda.sp.gov.br/nfe/ Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Se for pra valer eu tô dentro. Se for para dar em nada, vou continuar sozinho. Conheça o http://www.arsoft-ap.com.br id=quote>id=quote>Oi, Que tal esperarmos a 1ª reunião ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Eu achei que o VALTOPRG fica difícil a visualização. preferi usar o browse mesmo. FUNCTION MOSTRACAMPO(OCONTROLE) SELE 50 DBSETORDER(2) DBSEEK(STR(OCONTROLE,11)) ORDSCOPE(0,STR(OCONTROLE,11)) ORDSCOPE(1,STR(OCONTROLE,11)) ARQNFECP->(DBGOTOP()) AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ALLTRIM(ARQNFECP->DESCRICAO),ARQNFECP->CONTABIL,ALLTRIM(ARQNFECP->CUSTO),ALLTRIM(ARQNFECP->HISTORICO)}) ARQNFECP->(DBSKIP()) ENDDO DEFINE DIALOG oDLG FROM 1, 1 TO 300, 1100 ; TITLE "Visualizar Produto-Apropriação Contábil"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL oDLG: LHELPICON := .F. // TIRA A ? DA JANELA oDLG:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } @ 01.0,01.0 BROWSE oBrowse OF oDLG SIZE 500,100 oBrowse:SetArray(aARRAY) ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 01 SIZE 300 PICT "@!" CENTER HEADER "DESCRIÇÃO" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 02 SIZE 100 PICT "@!" CENTER HEADER "CONTA CONTABIL" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 03 SIZE 300 PICT "@!" CENTER HEADER "SETOR" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 04 SIZE 300 PICT "@!" CENTER HEADER "HISTORICO" ************************************************** @120,10 SBUTTON oBtn; SIZE 40, 15 PIXELS OF oDLG; PROMPT "&OK" RESOURCE "CANCELA"; ACTION (SAIDLG:=.T.,TPIMPRES:END()); COLORS XPAZUL,BRANCO; TEXT POSITION ON_RIGHT XP ACTIVATE DIALOG oDLG CENTER RETURN(.T.) id=code>id=code>Obrigado a todos pela ajuda Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 id=quote>id=quote>Olá, Qual o motivo de se usar o array ? Já está Scopado, pq não usar diretamente o arquivo no browse ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Parece que o Nome SoftCoop, está vago Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Mesmo, não sendo minha área, eu sempre quis fazer isso, inclusive o primeiro encontro de fw, foi justamente para juntar o pessoal, e tentarmos algo assim, muitos aqui lembram, outros nem tanto assim, mas de qualquer forma, ME INCLUAM NESSA Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Saiu numa edição do Financial Times (maior jornal sobre economia do mundo). Uma jovem mulher escreveu um email para o jornal pedindo dicas sobre "como arranjar um marido rico". Contudo, mais inacreditável que o "pedido" da garota, foi a resposta do editor do jornal que, muito inspirado, respondeu à mensagem, de forma muito bem fundamentada. Sensacional!! E-mail da garota: "Sou uma garota linda (maravilhosamente linda) de 25 anos. Sou bem articulada e tenho classe. Estou querendo me casar com alguém que ganhe no mínimo meio milhão de dólares por ano. Tem algum homem que ganhe 500 mil ou mais neste jornal, ou alguma mulher casada com alguém que ganhe isso e que possa me dar algumas dicas? Já namorei homens que ganham por volta de 200 a 250 mil, mas não consigo passar disso. E 250 mil por ano não vão me fazer morar em Central Park West. Conheço uma mulher (da minha aula de ioga) que casou com um banqueiro e vive em Tribeca! E ela não é tão bonita quanto eu, nem é inteligente. Então, o que ela fez que eu não fiz? Qual a estratégia correta? Como eu chego ao nível dela? (Raphaella S.)" ________________________________ Resposta do editor do jornal: "Li sua consulta com grande interesse, pensei cuidadosamente no seu caso e fiz uma análise da situação. Primeiramente, eu ganho mais de 500 mil por ano. Portanto, não estou tomando o seu tempo a toa... Isto posto, considero os fatos da seguinte forma: Visto da perspectiva de um homem como eu (que tenho os requisitos que você procura), o que você oferece � � simplesmente um péssimo negócio. Eis o porquê: deixando as firulas de lado, o que você sugere é uma negociação simples, proposta clara, sem entrelinhas : Você entra com sua beleza física e eu entro com o dinheiro. Mas tem um problema. Com toda certeza, com o tempo a sua beleza vai diminuir e um dia acabar, ao contrário do meu dinheiro que, com o tempo, continuará aumentando. Assim, em termos econômicos, você é um ativo sofrendo depreciação e eu sou um ativo rendendo dividendos. E você não somente sofre depreciação, mas sofre uma depreciação progressiva, ou seja, sempre aumenta! Explicando, você tem 25 anos hoje e deve continuar linda pelos próximos 5 ou 10 anos, mas sempre um pouco menos a cada ano. E no futuro, quando você se comparar com uma foto de hoje, verá que virou um caco. Isto é, hoje você está em 'alta', na época ideal de ser vendida , mas não de ser comprada. Usando o linguajar de Wall Street , quem a tiver hoje deve mantê-la como 'trading position' (posição para comercializar) e não como 'buy and hold' (compre e retenha), que é para o que você se oferece... Portanto, ainda em termos comerciais, casar (que é um 'buy and hold') com você não é um bom negócio a médio/longo prazo! Mas alugá-la, sim! Assim, em termos sociais, um negócio razoável a se cogitar é namorar. Cogitar... Mas, já cogitando, e para certificar-me do quão 'articulada, com classe e maravilhosamente linda' seja você, eu, na condição de provável futuro locatário dessa 'máquina', quero tão somente o que é de praxe: Fazer um 'test drive' antes de fechar o negócio...podemos marcar?" (Philip Stephens, associate editor of the Financial Times - USA)" OBS.: Não é a toa que o cara ganha mais de US$ 500.000 por ano Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação: citação: citação:Uma idéia que dei alguns dias foi em criar uma cooperavativa entre empresas que não teriam conflito entre elas e montar um sistema único, imagine a produtividade e qualidade deste produto, com várias pessoas trabalhando neste mesmo produto e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com id=quote>id=quote>Isso é uma coisa que eu propus no 1º encontro do FW Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez" id=quote>id=quote>E eu me lembro disso... Pessoal, é o seguinte: vou tentar (mais uma vez) levantar a cabeça e procurar novos horizontes. Vendo a idéia do Vagner/Gilmer, me ocorreu o seguinte: abrir a cooperativa, termos um sistema (alguém poderia disponibilizar um, ou eu mesmo faria isso) para que todos tivessem acesso e fossem melhorando, onde todos os cooperados tivessem acesso a essas melhorias e assim tivéssemos um software bom para todos. Claro que uma cooperativa tem custos e esse custos devem ser rateados entre todos, assim como os lucros também. O que acham? Kleyber Derick xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB (98) 8162-1301 / (98) 3217-8162 Visite São Luís - MA A Ilha dos Amores id=quote>id=quote>Olhe seu e-mail do hotmail Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Uma idéia que dei alguns dias foi em criar uma cooperavativa entre empresas que não teriam conflito entre elas e montar um sistema único, imagine a produtividade e qualidade deste produto, com várias pessoas trabalhando neste mesmo produto e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com id=quote>id=quote>Isso é uma coisa que eu propus no 1º encontro do FW Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Fala Meu Irmão, Que papo é esse ? , vc vai deixar uma coisinha te desanimar ? Olha, não seria a ideia de mudar o rumo dos seus clientes ? ou seja partir para outro ramo de cliente que não lhe dê tanta dor de cabeça ? Grande Abraço, e espero lhe ver muito aqui ainda por mais 26 anos Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá nVlr := 97.9056 nVlr := (Int(nVlr*100)/100) Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:kkkkkkkkkk, você tem um fonte mais atual? Este tá faltando muita coisa. Não sei se esta versão funciona com o FWH 2.7 Tá dificil ler seu código, mas entendi +- 24% kkkkkkkkk Abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Olá, Não sei se vc viu em PegaUrls(), vc pode mudar e adicionar o que vc quer que traga da página da internet Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Vc chegou a "ler" o prg ? É uma classe oSintegra := Sintegra():New(cUF) - Onde cUF = estado de consulta ex.: "SP" aRetorno := oSintegra:Consulta() If Len(aRetorno) > 0 MsgInfo("Consulta Executada com sucesso !","AVISO DE ALERTA") MsgArray(aRetorno) EndIf id=code>id=code>Vc só passa o Estado, aí qndo manda rodar o método consulta, ele abre a tela para vc informar o cnpj e o captcha, depois ele retorna um arrey se conseguiu pegar os dados Não esquenta, pode perguntar a vontade, um dia vc irá conseguir "ler", meus prgs Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Sim está. Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Kapiaba e ICO concordo com vcs, foi um pequeno relaxo de minha parte, pois sempre faço backup sim, tipo se não conseguisse recuperar iria perder neste caso serviço de apenas uma semana referente a cosntrução de telas... Obs: Kapiaba legal seu programinha em BAT qdo tempo que não via isto, simples e eficiente, vou adotar ele aqui... Obrigado Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 id=quote>id=quote>Olá, Já usou o DropBox ? http://db.tt/BA51xhGe Depois basta criar o bat XCopy \Zimaq\*.Prg /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \Zimaq\*.Bat /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \Zimaq\*.Lnk /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \Zimaq\*.Res /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \Zimaq\*.Bmp /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \Zimaq\*.Jpg /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \VLibLib\*.Prg /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \VLibLib\*.C /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \VLibLib\*.Bat /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq XCopy \VLibLib\*.Lnk /S /D /E /Y C:\Users\VAGNER.ZIMAQ\Dropbox\Zimaq Isso faz com que só copie os que realmente foram alterados Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Provavelmente ele trabalhe em twips, como o windows, vc pode pegar o screen calipers, muito bom para conversões e medidas de tela Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Veja o DbfCombo (se não me engano é isso ), ficaria mais fácil para vc ao invés de criar um array gigantesco Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Fiquem atento : https://www.fazenda.sp.gov.br/nfe/ Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, http://www.nfe.fazenda.gov.br/portal/informe.aspx?ehCTG=false#98 Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Isso e´fácil não está pegando a VLib, está pegando a printer do fw Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Pessoal estou usando esse comando para get ficarem escuro e esta aperecendo essa tela de erro alguemm sabe o que pode ser Application =========== Path and name: D:\BASE\SISMET\MET_FWH.EXE (32 bits) Size: 3,371,520 bytes Time from start: 0 horas 0 mins 15 secs Error occurred at: 28/03/2012, 16:41:40 Error description: Error BASE/1005 Message not found: VOTGET:_LDISCOLORS Stack Calls =========== Called from VOTGET:ERROR(175) Called from (b)HBOBJECT(105) Called from VOTGET:MSGNOTFOUND(0) Called from VOTGET:_LDISCOLORS(167) Called from PMETREP0(218) Called from (b)BUILDMENU(252) Called from TMENU:COMMAND(0) Called from TWINDOW:COMMAND(931) Called from TMDIFRAME:COMMAND(0) Called from TMDIFRAME:HANDLEEVENT(0) Called from _FWH(3124) Called from WINRUN(0) Called from TMDIFRAME:ACTIVATE(880) Called from MAIN(216) FW24 + xharbour email :edutraini@uol.com.br id=quote>id=quote>Olá, Vc está usando a classe do Gilmer, creio que nessa classe, não exista o lDiscolors Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Olá Vagner, No harbour tem o adordd. Exemplo de uso: #include "adordd.ch" REQUEST ADORDD function Main() USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ; FROM "www.freesql.org" USER "myuser" PASSWORD "mypass" Browse() USE return nil Abraços, Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour id=quote>id=quote>Blz Rossine ? Qual a lib para incluir com essa AdoRdd ? Eu coloquei a UsrRdd a UsrRddMt e fica reclamando o AdoRdd Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Vagner, você já testou o SQLRDD?? se não me engano, ele faz isso e muito mais q vc. quer. Existe uma versão DEMO do SQLRDD Extreme ? Sim! Basta acessar o nosso web site e baixar: http://www.xharbour.com.br/downloads.html Marcelo Lombardo Abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Oi, Vc já tentou rodar os demos ? Eu não consegui nenhum, compilou, mas aparece uma tela qndo vc escolhe o banco, ela fecha Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Então. Como não quero fazer pesquisa incremental em cima de Array por causa que o ascan, é extremamente lento em relação ao DbSeek, estou testando pegar do sql e jogar para um DBF temporário em memória, que é extemamente rápido ainda mais com índices em memória . Ou Seja, NÃO vou deixar meus DBF´s por nada ou até aparecer algo mais rápido (KKKKKKKKKK) Bom, agora que já consegui essa parte, vem o restante Depois que eu dei um select no arquivo, existe algum comando que eu crie um txt direto, ou preciso realmente ir registro por registro gravando a linha ? Algo como no DBF copy to sdf por exemplo, mas se não tiver algo assim, fazer o que né ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"