azilves

Ale SB Show de Bola o exemplo postado em dicas, faz exatamente o que eu preciso, só que eu não consigo compilar a lib com o meu FW 7.04. Tem solução ? Abraços Alexandre Zilves Editado por - azilves on 05/01/2009 18:27:32

Apoiado ! Vc tem toda razao de se proteger ! Daqui a pouco não temos mais forum, não tem mais virtual objects, e como ficaremos ? Grande Abraço ! Alexandre Zilves FWH 7.04 + xHb 0.9971 + Vlib + SqlLib + WS

Meus Amigos ! Quero desejar de todo o coração que este natal recheie o coração de todos com muita paz, conforto e solidariedade. Desejo também muita paz e saúde a todos e aos seus familiares e que o Ano que chega, traga muita prosperidade a todos. Grande Abraço Alexandre Zilves

Ae pessoal, pretendo estar presente nesta reunião, vou fazer de tudo para ir. Cheguei ontem de Sampa, mas para rever os amigos vale muito voltar. Abraços a todos. Pelo que vejo, só eu do Rj devo estar presente. Alexandre Zilves

Aí Galera, eu comecei com um TK82, passei por TK85, TK 95 que já tinha o teclado como as máquinas de escrever (sem a membrana de borracha), passei por um MC1000 da CCE e depois passei para os MSX TRS-80, TK2000... Tudo puro Basic. Depois comecei a estudar Basic e Cobol via CP/M no CP500 da prológica. Aí passei a trabalhar com Cobol da Edisa em um super-micro da Edisa com 60 terminais burros, (este precisava de Aquário gelado = Geladeira) e aí sim vieram os PC/XT, depois os PC/AT, depois as BBS e enfim os dias de hj. Hj qq um tira onda na internet, quero ver fazer isso com o que nós tínhamos a uns 15 anos atrás. Video Game era o ATARI não o PS3, rs... É verdade estamos envelhecendo....mas produzindo... Grande Abraço a todos... Alexandre Zilves Rio de Janeiro - RJ

Já marcaram a data e a hora ? Alexandre Zilves

Muito bom é pouco. Dê uma olhada no site e baixe ele para instalar, na seção Dicas aqui do site tem um ou dois exmplos meus. Qualquer dúvida é só falar. Abraço Alexandre Zilves azilves@hotmail.com

Salve a todos, Vi recentemente acontecer o problema em um cliente, mas tenho cliente que usa wireless e não tem este problema. A única desconfiança que tive foi quanto a interferência na rede por aparelhos Nextel, pois quando um era acionado a rede caia e o sistema travava. Resolvi colocando cabos na rede. A base deste cliente não tinha mais de 300 clientes cadastrados. é uma instalação nova e eles estavam começando a cadastrar. Não é o problema do tráfogo, pois lá só tem o servidor e duas estações, e efetuando dbappend() e dbcommit(). Abraços a todos. Alexandre Zilves

Procure por exemplos do RMCHART que é free ! E muito bom para gráficos e em janela. Abraços Alexandre Zilves

Vlw Evandro é isso aí ! Vamos tomar Sampa de Assalto ! Mas acho que o Local tá complicado, já falei, se quiserem arrumo aki no RJ ! Abraços Alexandre Zilves Rio de Janeiro

Ihhhhh Rapaziada, a Zica do Zeca pegou ! Abraços a todos Vamos para o encontro genérico então, mas podia ter pelo menos um papo durante o dia, depois vamos às Brejas.... Abraço a Todos Eu Vou Alexandre Zilves Editado por - azilves on 16/10/2008 23:24:20 Editado por - azilves on 16/10/2008 23:25:00

GALERA, ACHO QUE PODEMOS IR NOS ARRUMANDO DE UMA MANEIRA QUE NÃO ATRAPALHE A ORGANIZAÇÃO. PODEMOS ARRUMAR UM LOCAL DE BACKUP QUE FICARIA RESERVADO, ALGO SIMPLES, ATÉ UM SALÃO DE FESTAS DE CONDOMÃNIO, OU ALGO PARECIDO PARA PODERMOS FAZER UMA ESPÉCIE DE WORKSHOP, ONDE CADA UM FALA UM ASSUNTO QUE POSSA AJUDAR A ALGUÉM. cASO O ENCONTRO NÃO VENHA A ACONTECER, FAREMOS DESTA MANEIRA E DEPOIS SAÃMOS PARA AS BREJAS E TUDO MAIS. ESTOU VENDO QUE O CUSTO É O MAIOR PROBLEMA, MAS O QUE NÓS QUEREMOS É FALAR DE FW E CONFRATERNIZAR, ISSO PODE ACONTECER EU UM LOCAL SIMPLES. ABRAÇO A TODOS PS. Jà FALEI QUE SE QUISEREM PODEMOS TRANSFERIR O ENCONTRO PARA FEVEREIRO NO SÃBADO DE CARNAVAL...OU DE FRENTE PARA UMA PRAIA. QUE TAL ? ALEXANDRE ZILVES RIO DE JANEIRO - RJ

E aí rapaziada ! Tudo mais ou menos ? Ahhh Sexto Encontro de Fivewiners, Como eu queria ir num encontro deste !!!!!! Acho que botaram Zica no noss sexto encontro !!!!! kkkkkkkkkkkkkkkk..... Abraço a Todos ! Alexandre Zilves

Ae Galera, Vai rolar ou não vai este encontro ? Qualquer coisa transferimos aqui para o RJ e fevereiro, sábado de carnaval ? POde ser ? É só falar ! Abraço a todos ! Alexandre Zilves

Obrigado pela ajuda Kapi e Alex, Como eu nunca tinha feito uma tela com dois grupos de radio eu não sabia que era necessário definir no WS os primeiros de cada grupo como GROUP, o Kleyber, matou a charada. Mais uma vez obrigado pela atenção. Alexandre

Salve a Todos ! Meus amigos estou com um problema visual em uma tela que possui dois grupos de radios, nesta tela eu tenho que definir a forma de saída dos meus boletos e o layouts deles. Só que eu defino a saída, mas quando vou definir o layout, a opção marcada no primeiro grupo desaparece. Alguém sabe me dizer o que pode ser ? Segue o fonte da tela. DEFINE DIALOG oDLGREL RESOURCE "CONFREL314" TITLE cTL_PROG BRUSH xFUNDO() TRANSPARENT Redefine VGet oCONTA Var nCONTA Id 100 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" Redefine VGet oNUMINI Var cNUMINI Id 110 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999999" Redefine VGet oNUMFIM Var cNUMFIM Id 120 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999999" Redefine VGet oSERIE Var cSERIE Id 130 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "!!!" oCONTA:bRCLICKED := {|| nCONTA := PROCCCORR(), oCONTA:REFRESH() } Redefine VGet oMSG01 Var nMSG01 Id 132 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" Redefine VGet oMSG02 Var nMSG02 Id 134 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" Redefine VGet oMSG03 Var nMSG03 Id 136 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" REDEFINE RADIO oTPEMIS ; VAR nTPEMIS ; ID 140,145,148,149 ; OF oDLGREL REDEFINE RADIO oTIPOBOL ; VAR nTIPOBOL ; ID 310,320,330,340,350,360 ; OF oDLGREL Redefine BtnBmp Id 910 Of oDLGREL FILE "IMAGENS\CONFIRMA.BMP" NO BORDER TOOLTIP "Confirma" ; ACTION (GERACBEM(STRZERO(cNUMINI,6),STRZERO(cNUMFIM,6),cSERIE,STRZERO(nCONTA,3)),oDLGREL:END()); WHEN !EMPTY(cNUMINI) .AND. !EMPTY(cNUMFIM) .AND. !EMPTY(cSERIE) Redefine BtnBmp Id 920 Of oDLGREL FILE "IMAGENS\CANCELA.BMP" NO BORDER TOOLTIP "Cancela" ; ACTION oDLGREL:END() Redefine BtnBmp Id 930 Of oDLGREL FILE "IMAGENS\CONFIG.BMP" NO BORDER TOOLTIP "Configura Email" ; ACTION CONFIGEMAIL() ACTIVATE DIALOG oDLGREL CENTERED Abraço a todos Alexandre Zilves fw 7.04 + HB 0.99.71 + vLib Editado por - azilves on 30/09/2008 02:18:08

Salve a Todos ! Meus amigos estou com um problema visual em uma tela que possui dois grupos de radios, nesta tela eu tenho que definir a forma de saída dos meus boletos e o layouts deles. Só que eu defino a saída, mas quando vou definir o layout, a opção marcada no primeiro grupo desaparece. Alguém sabe me dizer o que pode ser ? Segue o fonte da tela. DEFINE DIALOG oDLGREL RESOURCE "CONFREL314" TITLE cTL_PROG BRUSH xFUNDO() TRANSPARENT Redefine VGet oCONTA Var nCONTA Id 100 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" Redefine VGet oNUMINI Var cNUMINI Id 110 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999999" Redefine VGet oNUMFIM Var cNUMFIM Id 120 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999999" Redefine VGet oSERIE Var cSERIE Id 130 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "!!!" oCONTA:bRCLICKED := {|| nCONTA := PROCCCORR(), oCONTA:REFRESH() } Redefine VGet oMSG01 Var nMSG01 Id 132 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" Redefine VGet oMSG02 Var nMSG02 Id 134 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" Redefine VGet oMSG03 Var nMSG03 Id 136 OF oDLGREL Color {nRgb(000,000,000),nRgb(255,255,255)},{nRgb(255,255,255),nRgb(174,193,228),nRgb(097,174,250),nRgb(255,255,255)} Round PICTURE "999" REDEFINE RADIO oTPEMIS ; VAR nTPEMIS ; ID 140,145,148,149 ; OF oDLGREL REDEFINE RADIO oTIPOBOL ; VAR nTIPOBOL ; ID 310,320,330,340,350,360 ; OF oDLGREL Redefine BtnBmp Id 910 Of oDLGREL FILE "IMAGENS\CONFIRMA.BMP" NO BORDER TOOLTIP "Confirma" ; ACTION (GERACBEM(STRZERO(cNUMINI,6),STRZERO(cNUMFIM,6),cSERIE,STRZERO(nCONTA,3)),oDLGREL:END()); WHEN !EMPTY(cNUMINI) .AND. !EMPTY(cNUMFIM) .AND. !EMPTY(cSERIE) Redefine BtnBmp Id 920 Of oDLGREL FILE "IMAGENS\CANCELA.BMP" NO BORDER TOOLTIP "Cancela" ; ACTION oDLGREL:END() Redefine BtnBmp Id 930 Of oDLGREL FILE "IMAGENS\CONFIG.BMP" NO BORDER TOOLTIP "Configura Email" ; ACTION CONFIGEMAIL() ACTIVATE DIALOG oDLGREL CENTERED Abraço a todos Alexandre Zilves fw 7.04 + HB 0.99.71 + vLib Editado por - azilves on 30/09/2008 02:18:08

Salve Jef2_tim, Eu utilizo no meu sistema um esquema onde tenho um cadastro de usuários é um cadastro das permissões onde na construção no meu menu eu utilizo uma função para verificar se o usuário tem a permição para a tela referida. Você tem duas opções para as telas que ele não tem acesso, a primeira é não mostrar ela no menu e a segunda é mostrala "apagada" no menu, eu utilizo a segunda forma. Seguem dois exemplos, um de cada forma. Primeira, inibindo a tela no menu. if acesso("tela") menuitem... endif Segunda Forma, mostrando a opção mas apagada no menu. MenuAddItem( , , , , , , , , , , , ) coloque a função em Lactive. Espero ter ajudado.

È verdade, o encontro do ano passado foi muito bom, mas só a oportunidade de reunir o pessoal todo e com isto podermos trocar idéias e experiências, já é uma grande coisa. Alexandre Zilves

Olá Pessoal ! Salve a Todos, Se me permitem...Acho que este debate não vai levar a nada, temos que olhar para frente e discutir coisas que vão fazer crescer o FW que é uma ferramenta maravilhosa e que pode ser comparada com qualquer linguagem do mercado. Eu mesmo já participei de dois desafios com amigos onde desenvolvemos a mesma coisa e eu fui mais rápido e melhor do que os dois, então... E olha que ainda escrevi fiz a tela em rc e nção usei o WS, foi na base do editor mesmo. Posso concluir que atalhos assim como algumas funções são de grande valia e nos poupa tempo, mas nada como vc ter na mão dominado aquilo que vc faz. O qual a diferença entre uma máquina de escrever e um computador na mão de um analfabeto ? Então pessoal, vamos para frente, uso o FW desde a versão 1.9.1 onde podia optar em usar ele, ou Delphi, ou VB, e até hj posso dizer que fiz a melhor escolha. Já usei o MySql pelos exemplos do Fw e funcionam sem problema nenhum. Bom, quanto às atualizações do Fw e das outras ferramentas, acredito que se pudesse sair uma versão a cada 10 dias seria ótimo para quem usar a ferramenta, claro que o tempo de suporte podia ser dobrado para 6 meses após uma atualização. Mas acredito que se todos trabalhassem com a forma de cobrança de um contrato de manutenção que tivesse um preço justo, porque são muitas ferramentas...talvez fosse uma saída para que tivéssemos tudo sempre atualizado. Abraço a Todos Alexandre Zilves

Fala ae Xará, Cara, fix a minha rotina tirando a sua como exemplo, mas o que está acontecendo é o seguinte: Quando eu mando gerar o arquivo com um título apenas a rotina executa sem erro, mas gera o arquivo com 0 bytes e quando eu mando gerar com 10 títulos ele apresenta erro na linha do oCBX:GravaArquivoRemessa() Não consigo encontrar onde pode estar o erro, segue a minha rotina para uma possível avaliação. *-----------------------------------------------* FUNCTION GERAREM(cNUMINI,cNUMFIM,cSERIE,cCONTA) *-----------------------------------------------* LOCAL cIniFile := GetWinDir()+"\SACI.ini" LOCAL cDIR, cARQ, cALIAS, nARQNIND, nAUX LOCAL lGEROU := .F. cDIR := GETPVPROFSTRING("EMPRESA"+xEMPR(),"DIRDB2","",cINIFILE) cARQ := cDIR + "DSAC1B7" cALIAS := "DB7" nARQNIND := 5 ABRE(cALIAS,cARQ,nARQNIND) cDIR := GETPVPROFSTRING("EMPRESA"+xEMPR(),"DIRDB2","",cINIFILE) cARQ := cDIR + "DSAC1A1" cALIAS := "DA1" nARQNIND := 1 ABRE(cALIAS,cARQ,nARQNIND) IF TD3->(!DBSEEK(cCONTA)) MSGSTOP("Conta Corrente não encontrada !","Atenção") DBCLOSEALL() RETURN(NIL) ENDIF TRAVAREG("TD3",.T.) if !file( TD3->TD3_ARQLIC ) msgalert( 'Arquivo de licença não existe', 'Atenção' ) endif oCBX := TOleAuto():New('CobreBemX.ContaCorrente') // Monta arquivo de licença de teste para banco 001 carteira 18 oCBX:ArquivoLicenca := TD3->TD3_ARQLIC if !empty( alltrim( oCbx:UltimaMensagemErro() ) ) Msgalert( oCbx:UltimaMensagemErro(), 'Problema!' ) endif // Monta arquivo de Remessa oCBX:ArquivoRemessa:Diretorio := GETPVPROFSTRING("EMPRESA"+xEMPR(),"DIRBCO","C:\",cINIFILE) oCBX:ArquivoRemessa:Arquivo := "RM" + STRZERO(MONTH(DATE()),2) + STRZERO(DAY(DATE()),2) + "01" + ".TXT" oCBX:ArquivoRemessa:Layout := TD3->TD3_TPREME if !empty( alltrim( oCbx:UltimaMensagemErro() ) ) Msgalert( oCbx:UltimaMensagemErro(), 'Problema!' ) endif //oCBX:PadroesBoleto:IdentificacaoCedente := "ROCHA & FILHOS LTDA - Rua Alcino Rocha, S/N - Centro - Sangão - SC - CEP 88717-000" oCBX:PadroesBoleto:InstrucoesCaixa := "" // Monta dados da conta corrente oCBX:CodigoAgencia := STRZERO(VAL(TD3->TD3_AGENC),4) oCBX:NumeroContaCorrente := STRZERO(VAL(TD3->TD3_CCORR),7) oCBX:CodigoCedente := STRZERO(VAL(ALLTRIM(TD3->TD3_CODCLI)+TD3->TD3_DVCLI),9) oCBX:InicioNossoNumero := 1 oCBX:FimNossoNumero := 9999999 oCBX:OutroDadoConfiguracao1 := "N" oCBX:OutroDadoConfiguracao2 := "N" if !empty( alltrim( oCbx:UltimaMensagemErro() ) ) Msgalert( oCbx:UltimaMensagemErro(), 'Problema!' ) endif DB7->(DBSEEK(cSERIE+cNUMINI,.T.)) DO WHILE DB7->DB7_PREFIX = cSERIE .AND. DB7->DB7_NUMERO <= cNUMFIM .AND. DB7->(!EOF()) DA1->(DBSEEK(DB7->DB7_CLI+DB7->DB7_LOJAC)) * //Atualiza status do boleto no banco de dados oBoleto := oCBX:DocumentosCobranca:Add() if !empty( alltrim( oCbx:UltimaMensagemErro() ) ) Msgalert( oCbx:UltimaMensagemErro(), 'Problema!' ) endif // Monta dados do sacado oBoleto:NomeSacado := DA1->DA1_RAZAO oBoleto:CPFSacado := DA1->DA1_CGC oBoleto:EnderecoSacado := DA1->DA1_ENDER oBoleto:BairroSacado := DA1->DA1_BAIRRO oBoleto:CidadeSacado := DA1->DA1_MUNIC oBoleto:EstadoSacado := DA1->DA1_UF oBoleto:CEPSacado := DA1->DA1_CEP if !empty( alltrim( oCbx:UltimaMensagemErro() ) ) Msgalert( oCbx:UltimaMensagemErro(), 'Problema!' ) endif SET CENTURY ON // Monta dados do documento de cobrança oBoleto:DataDocumento := DTOC(DB7->DB7_DTEMIS) oBoleto:DataProcessamento := DTOC(DB7->DB7_DTEMIS) oBoleto:DataVencimento := DTOC(DB7->DB7_DTVENC) oBoleto:NumeroDocumento := DB7->DB7_NUMERO oBoleto:ValorDocumento := DB7->DB7_VALOR oBoleto:PercentualJurosDiaAtraso := 2 oBoleto:PercentualMultaAtraso := 0.33 oBoleto:TipoDocumentoCobranca := "RC" oBoleto:BancoEmiteBoleto := .T. oBoleto:NaoGerarMensagemJuros := .F. oBoleto:NaoGerarMensagemMulta := .F. oBoleto:NaoGerarMensagemProtesto := .F. oBoleto:CalculaDacNossoNumero := .T. oBoleto:DiasProtesto := TD3->TD3_DIASPR oBoleto:NossoNumero := DB7->DB7_NOSNUM SET CENTURY OFF if !empty( alltrim( oCbx:UltimaMensagemErro() ) ) Msgalert( oCbx:UltimaMensagemErro(), 'Problema!' ) endif DB7->(DBSKIP()) ENDDO oCBX:GravaArquivoRemessa() * oCBX:END() if !empty( alltrim( oCbx:UltimaMensagemErro() ) ) Msgalert( oCbx:UltimaMensagemErro(), 'Problema!' ) endif MSGSTOP("PROCESSO TERMINADO !") RETURN NIL Alexandre Zilves FW 7.04 + xHB 0.9971 + vLIB + SqlLib + WS Rio de Janeiro Editado por - azilves on 28/07/2008 19:12:35

Fala ae, Quanto a isto estou com vc e nãoa bro !!! Mas uma coisa temos que agradecer ao MUMPS, enqanto existir programadores de MUMPS por aí, fazendo soluções em MS-DOS, será fácis colocarmos as nossas soluções em FW. Cara eu uso o FW desde 1995 na versão 1.91, se alguém falar mal eu até brigo. I LOVE FIVEWIN FOREVER. A base MUMPS é de um cliente que eu queria importar direto os dados. Em novembro estaremos lá novamente. Abraço

Fala Sir John Kapi, Você já foi mais objetivo nas ajudas, rs Já tinha feito estas buscas e até contactei um cara que diz que converte para txt, mas o que eu queria mesmo era saber como eu mesmo posso converter. Vlw pela ajuda, mas tu já foi melhor nisso heim, rs Grande abraço

Caros amigos, Esta semana me deparei com um dinossauro rodando em um cliente, e preciso matá-lo. Estou implantando o sistema, mas o cliente quer que eu converta a base de dados deles para aproveitar o histórico dos clientes, pois o sistema só exporta o cadastro de clientes. A questão é que este sistema roda em modo DOS e foi desenvolvido em MUMPS, alguém sabe como posso abrir estes arquivos ? Preciso muito disto e com uma certa urgência. Obrigado a todos Alexandre Zilves FW 7.04 + xHB 0.9971 + vLib + Sqllib

Caros amigos, Esta semana me deparei com um dinossauro rodando em um cliente, e preciso matá-lo. Estou implantando o sistema, mas o cliente quer que eu converta a base de dados deles para aproveitar o histórico dos clientes, pois o sistema só exporta o cadastro de clientes. A questão é que este sistema roda em modo DOS e foi desenvolvido em MUMPS, alguém sabe como posso abrir estes arquivos ? Preciso muito disto e com uma certa urgência. Obrigado a todos Alexandre Zilves FW 7.04 + xHB 0.9971 + vLib + Sqllib