marcos

Olá Pessoal, Estou rodando uma aplicação FW no Windows 2000. Quando executo o sistema, o arquivo "BWCCPTB.DLL" é requerido. Alguém possui este arquivo Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Tambem desejo um feliz dia da informatica a todos Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

c:\fwxx\source\classes veja o conteudo de get.prg Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Carlos, Existe uma forma para fazer isso da seguinte forma: Geralmente os cabeçalhos vem com ID -1 para todos. Voce pode altera-los para um de sua preferencia e depois referencia-los com say em seu programa. (como vc faz c/ o get) Exemplo: REDEFINE SAY oSay PROMPT "Texto..." ID 110 of oDlg FONT oF COLOR "GR+" O seu cabeçalho assumirá a cor "gr+", mas vc pode usar outras cores, conjunto de cores, RGB, nRGB, etc. Espero ter ajudado Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Pessoal, Gostaria de desejar a todos os papais deste fórum, um feliz dia dos pais. Nossos filhos serão nossos representantes amanhã, por isso ser pai é um grande privilégio. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Senhores, Tenho uma experiência razoável em Delphi e VB e também um conhecimento a nível intermediário em C++. Desenvolvi alguns sistemas com estas ferramentas e trabalhava usando VB com Oracle. O grande problema é que pra tudo isso funcionar, eu precisa investir pesado em estrutura ( equipamentos, rede, etc ). Para uma empresa de pequeno para médio porte, muitas vezes, isso não é viável. Qual a solução ? R: Fivewin Quando fiz meu primeiro investimento em FW, eu comprei a versão 2.2. Achei muito interessante, a ponto de adquirir o upgrade para 2.4. Utilizo meus sistemas rodando em Novell e vai que é uma beleza. O Fivewin funciona perfeitamente em redes com arquiteturas leves, vale a pena. Mas acredito que, muitas vezes, a gente precisa ser 'aventureiro' com responsabilidade. Visto que se não tentarmos jamais saberemos se é bom. Não adianta teoria, só aprendemos quando fazemos. Vou utilizar uma frase do meu amigo João: "I love Fivewin". O grande trunfo do FW é essa interação de usuários que ele possui, um ajudando o outro. Aprendi muito através deste fórum, e desde já gostaria de agradecer a todos aqueles que tem me ajudado. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Outra, onde tem o manual com os comandos {..}? Um abraço, Alexandre Pereira id=quote>id=quote>Olá Alexandre, Você pode baixar o manual no site: www.rpvreport.com //Seção: Downloads No final da página: Rpv Printing system ( Report Viewer e Print Server ) PDF Manual. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Olá Mario, seja bem vindo não entendi o que você está querendo fazer. Por favor, detalhe mais. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Olá Elias, Eu li o manual do Rpv e fiz alguns testes, compilei o exemplo para clipper/harbour e C++. Achei interessante. Só resta saber quando da instalação de um sistema no cliente, se o rpv terá que ser instalado na máquina do cliente, ou se apenas um driver, ou coisa assim. Mas é muito bom. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Ola gilmer, eu estou baixando se quiser depois envio para voce Elias Abrão Júnior Indaiatuba - SP http://www.eajunior.hpg.com.br eajunior@ubbi.com.br id=quote>id=quote>Elias, por gentileza, envie para mim também. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Marcos, vc recebeu o arquivo ? Qualquer coisa entre em contato ! Até marcioe@uai.com.br marcioe@ligbr.com.br id=quote>id=quote>Olá Marcio, Sim, recebi o arquivo, compilei os arquivos e gerei o executável sem problemas. Realmente, o problema que está acontecendo é com a versão do FW, pois neste sistema são utilizadas 2 libs 'btnget' e 'ctl3d' que são incompatíveis com a versão que você está usando. Mas mesmo assim, estou devolvendo os arquivos pra você, por e-mail, já com o executável do sistema. Crie uma nova pasta, descompacte este arquivo nela, e mande rodar o executavel. Pelo menos, você vai poder ver como este sistema funciona pode ir abrindo os prgs e conferindo com o modo em execução. Desculpe não ter ajudado mais Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Ainda etá com erros Vejam 236K available Compiling MDIMENU.PRG MDIMENU.PRG(735) Error C2042 Invalid lvalue MDIMENU.PRG(735) Warning C1004 Ambiguous reference, assuming memvar: 'TOOLTIP' MDIMENU.PRG(735) Error C2042 Invalid lvalue MDIMENU.PRG(735) Warning C1004 Ambiguous reference, assuming memvar: 'BITMAP' 2 errors 2 warnings No code generated marcioe@uai.com.br marcioe@ligbr.com.br id=quote>id=quote>Marcio, mande este programa por e-mail para eu dar uma olhada. Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Em tempo: Não sou como você ainda João, Expert. Mas já estou me virando. Grande abraço Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Marcos... O FIVEWIN é mesmo apaixonante né? Olha a hora que você tá indo dormir Homem... Tenha calma... Descanse! Abraços. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br id=quote>id=quote>Quando faço alguma coisa vou até o fim, não existem limites, nem o tempo. Não posso ter medo do Fivewin, é ele quem precisa me respeitar. Por isso quero dominá-lo. (he he he he ) Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Estimados Amigos Baixei um exemplo do Joao Santos, mas quando tento compilar e gerar o exe dá o erro abaixo Compiling WBANKS.PRG WBANKS.PRG(48) Error C2005 Statement not recognized, match failed at: '_3DLOOK' O que devo fazer Sou Iniciante em fivewim Obrigad marcioe@uai.com.br marcioe@ligbr.com.br id=quote>id=quote>Marcio, onde está '_3DLOOK' coloque apenas '3DLOOK' tire o underline. Isso às vezes é alguma diretiva que foi criada, mas que não está no programa. por exemplo: #Define _3DLOOK 3DLOOK SET _3DLOOK ON ------------------- Edite programa WBANKS.PRG e altere _3DLOOK para 3DLOOK Ficaria mais ou menos assim: SET 3DLOOK ON ------------------- Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Carlos, a pasta samples, que contém os prg's exemplos, é comum às versões do FW. Geralmente muda apenas o subdiretório por exemplo: FW24\SAMPLES, FW22\SAMPLES, FW20\SAMPLES, e assim por diante. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Eu sei Marcos, eu tava te zoando, preste atenção na minha resposta: o meu diz: e e no seu diz: entende? Não são iguais... Era só uma brincadeirinha, para você postar o código para o Carlos, pois acho que ele não entendeu ou não baixou MDIMENU.PRG. Obrigado! Abraços. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br id=quote>id=quote>Realmente, não são iguais (heheheheheh) Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Olá, Amigos Como proceder para evitar que a mesma tela seja aberta mais de 1 vez na mesma estação. Exemplo: Abri para cadastrar um cliente. Caso tente abrir a mesma novamente. Enviar uma mensagem avisando. Atenciosamente, Carlos Eduardo - Rio de Janeiro id=quote>id=quote>Carlos, verifique FW\SAMPLES o programa TOPAPP.PRG Você pode usar a função FindWindow() Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Olá, Marcos O formulário esta fechando, mas existe um folder que fica na tela em branco(Tela que recebe o folder). Como faço para fecha-la junto com o formulário ? Atenciosamente, Carlos Eduardo - Rio de Janeiro id=quote>id=quote>Olá Carlos, Qual formulário você quer fechar ? Faça o seguinte: poste o código, assim fica mais fácil para nós analisarmos. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Esta rotina também pode ser encontrada junto com o fivewin no programa "Accounting". Abraços Marcos - S.B.Campo - SP Tem certeza? Poste aqui! he he he he he! João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br id=quote>id=quote>** ******************************************************* ** ------------------------------------------------------- ** VENTANAS DE INFORMACION Y COMUNICACION CON EL USUARIO ** ------------------------------------------------------- ** ******************************************************* FUNCTION Confirma(Mensa) local oDlg, oBrush, oSi, oNo, oTmr, Sw := 0 local Respu := .F. DEFINE BRUSH oBrush STYLE NULL DEFINE DIALOG oDlg ; FROM 2, 2 TO 20, 60 ; BRUSH oBrush ; STYLE WS_POPUP @ 3,7 BITMAP oSi RESOURCE "SI1" NOBORDER SIZE 16, 16 OF oDlg ON CLICK (Respu:=.T., oDlg:End()) @ 3,12 BITMAP oNo RESOURCE "NO1" NOBORDER SIZE 16, 16 OF oDlg ON CLICK (Respu:=.F., oDlg:End()) ACTIVATE DIALOG oDlg CENTERED ; ON PAINT ShowPregunta (oDlg, Mensa); ON INIT (SetKey (13, { || Respu := .T., oDlg:End() }),; SetKey (32, { || Respu := .T., oDlg:End() }),; SetKey (27, { || Respu := .F., oDlg:End() }),; oTmr := TTimer():New( 200,{|| Sw++ ,; IF (Sw == 0,; (oSi:SetBMP("SI0"),; oNo:SetBMP("NO0")),; IF (Sw == 1,; (oSi:SetBMP("SI1"),; oNo:SetBMP("NO1")),; IF (Sw == 2,; (oSi:SetBMP("SI2"),; oNo:SetBMP("NO2")),; IF (Sw == 3,; (oSi:SetBMP("SI3"),; oNo:SetBMP("NO3")),; IF (Sw == 4,; (oSi:SetBMP("SI4"),; oNo:SetBMP("NO4")),; IF (Sw == 5,; (oSi:SetBMP("SI5"),; oNo:SetBMP("NO5")),; IF (Sw == 6,; (oSi:SetBMP("SI6"),; oNo:SetBMP("NO6")),; IF (Sw == 7,; (oSi:SetBMP("SI7"),; oNo:SetBMP("NO7")),; IF (Sw == 8,; (oSi:SetBMP("SI8"),; oNo:SetBMP("NO8")),; (oSi:SetBMP("SI9"),; oNo:SetBMP("NO9"), Sw := -1) ))))))))) } ),; oTmr:Activate() ) RELEASE OBJETS oTmr, oSI, oNO SET KEY 13 TO SET KEY 32 TO SET KEY 27 TO RETURN Respu STATIC FUNCTION ShowPregunta( oDlg, Mensa) local oBmp2, oBmp1, oFont, Linea, ContLin, oBmp local Respuesta := .F. Mensa := OemToAnsi (Mensa) DEFINE BITMAP oBmp1 RESOURCE "VentanaMSG1" DEFINE BITMAP oBmp2 RESOURCE "VentanaMSG2" DEFINE FONT oFont NAME "Ms Serif" SIZE 0, 16 PalBmpDraw( oDlg:hDC, 0, 0, oBmp2:hBitmap, 0, 0, 0, SRCPAINT ) PalBmpDraw( oDlg:hDC, 0, 0, oBmp1:hBitmap, 0, 0, 0, SRCAND ) oBmp := TBitmap():New( 2, 2.5,,, "Question",, .T., oDlg,,, .F., .F.,,, .F.,, .F., ) ContLin := 1 DO WHILE !Empty (Linea := MemoLine (Mensa, 38, ContLin,,.T.)) oDlg:Say( .2 + ContLin , 13, Linea,RGB(255,255,0),RGB(128,128,128), oFont ) ContLin ++ ENDDO RETURN NIL //-------------------------------------------------------------------- João, este programa está em C:\FW24\SAMPLES\ACCOUNT com o nome EJEMCONT.PRG Abraços ( he he he he ) Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Amigos, vocês estão todos corretos, mas o que o Carlos quer, é minha saida de tela, é que ele tem duas bitmaps assim: - Que ficam 'girando' na tela até que ele confirme uma das duas entende. Para entender o que ele quer, baixem nas dicas PROGRAMA AVANÇADO EXECUTAVEL e executem e saim do menu principal. Abraços. Se não for isso Carlos por favor me corrija. Obrigado! João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br id=quote>id=quote>Esta rotina também pode ser encontrada junto com o fivewin no programa "Accounting". Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Caros colegas, Preciso chamar uma função para habilitar/desabilitar controles em uma caixa de diálogo. Exemplo: se seleciono um ítem em uma combobox ou em um rádio button ou se ativo um check box, gostaria de ativar ou desativar um determinado controle, como por exemplo um get. Alguem conhece algum exemplo de caixa de diálogo assim para me indicar? Obrigado. JNildo id=quote>id=quote>Olá JNildo, Você pode fazer isso ativando a propriedade somente leitura do get: oGet:lReadOnly := .T. // somente leitura oGet:lReadOnly := .F. // escrita normal Você pode incluir nas ações do combobox, checkbox, etc. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Olá, Como você está iniciando agora na minha opinial você dever optar pelo FW for Harbour...como o código fonte é o mesmo você estará desenvolvendo em um ambiente 32bits, pois comprar o for Clipper pra depois comprar o for Harbour acredito não ser viável pelo seu preço. Não desmerecendo o Clipper, pois tenho alguns sistemas rodando em 16bits, pois na época que adquiri vinha as duas versões. Andei reparando também que a maiorias das alterações no último Build do FiveWin estavam voltadas para a versão Harbour. Acredito que o 16bits está com os dias contados (minha opinião...) Márcio id=quote>id=quote>Olá Marcio, realmente em 32 bits é melhor. Mas existem alguns problemas, por exemplo: Se você tem vários sistemas (módulos separados) que utilizam uma mesma base de dados, por exemplo: CLIENTE.DBF Suponhamos que o seu sistema de estoque utiliza, seu contas a pagar utiliza, seu faturamento utiliza, seu sistema de vendas utiliza, e assim por diante. Você terá que converter todos os sistemas simultaneamente para 32 bits. Já em Clipper for FW, você não precisa fazer isto, pode fazer aos poucos e compartilhar a mesma base de dados. Ou seja, você consegue utilizar um sistema em clipper puro acessando e atualizando "clientes" e ao mesmo tempo um sistema em FW fazendo a mesma coisa. Se você trabalha com uma base de dados utilizando um sistema 32 bits, quando você efetuar alguma atualização nesta base em 16 bits ocorrerá problemas no arquivo. Pode ocorrer erros também, se você tentar acessar uma base de dados 16 bits com um sistema 32 bits. Acredito ser isto muito subjetivo, depende das circunstâncias. No meu caso, como tinha muitos módulos para converter para FW, optei pelo FW for Clipper. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

citação:Em seu aplicativo video.exe existe uma operação que quando o usuário se utiliza do botão (X) do formulário querendo fechar o aplicativo você chama sua mensagem de encerramento. Estou querendo aplicar este conceito no meu sistema, seria possível mandar esta instrução para mim. id=quote>id=quote>Olá Carlos, Não sei se entendi direito, mas você pode fazer assim: DEFINE WINDOW oWnd ... (...) // suas linhas de comando ACTIVATE WINDOW oWnd MAXIMIZED VALID AClose() // AClose() Função de fechamento. (...) // Fechamento STATIC FUNCTION AClose() SndPlaySound( "Lembrete.wav" ) RETURN( MsgYesNo( "Deseja Encerrar o Sistema ?", "Sair" ) ) // Fim Desta forma você pode inserir a funcao AClose() na opção de menu, como 'Sair do Sistema', e desta forma, quando você pressionar o botão 'X' o sistema acessará a função AClose(). Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br

Concordo com o Elias, escolha primeiro o FW for Clipper, é mais fácil de converter os programas. Depois, conforme a experiência que você vai adquirindo com o FW pode escolher você mesmo por qual optar. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br