ou assim..

Valeu meu amigo.... E se quiser inserir a imagem da minha tela aqui ??? É assim...

Amigos...Como faço pra inserir a tela (imagem) no tópico ? Quero mostrar a cara da minha tela, como fazer ?

Amigos.....boa tarde! Como voltei a gatinhar no FW,...ajudem-me. Como colocar um Botão de: [OK] para imprimir e ai ele se direciona para uma certa funçao..ou o simbolo da impressora [sAIR] ele abandona a rotina...ou o simbolo da Portinha berta. Vejam abaixa, minha "OBRA-PRIMA" rsrsrsrsrsrs #include "FiveWin.ch" static oW Caixa() Return ******************************************************* Function Caixa() Static oDlg Local Vend_o Local Vend_c:=" " Local Func_o Local Func_c:=" " Local Tipo_o Local Tipo_L Local Semana_o Local Semana_L Local oSay1 Local oSay2 Local oDia Local oMes Local o_Dia:=Strzero(Day (date()),2,0) Local o_Mes:=Strzero(Month(date()),2,0) Use Tb_Regi Vend_List:={} Do While ! eof() aadd(Vend_List,Cdregi+"-"+Nmregi) skip Enddo Use Use Tb_Func Func_List:={} Do While ! eof() if alltrim(dsfunc)=="REP.COMERCIAL" .and. empty(dtdemis) aadd(Func_List,Cdfunci+"-"+Nmfunci) endif skip Enddo Use Define dialog oDlg Title "ELDC TELEFONICA Roteiro de Visitas" from 00,00 to 20,78 @ 01,05 Say "Regiao" @ 02,05 ComboBox Vend_o Var Vend_c Of oDlg Prompts Vend_List size 120,80 @ 03,05 Say "Representante" @ 04,05 ComboBox Func_o Var Func_c Of oDlg Prompts Func_List size 120,80 @ 05,05 Say "Clientes" @ 07,05 Radio Tipo_O Var Tipo_L of oDlg Prompt "PDVs Ativos","PDVs Inativos","PDVs (todos)" @ 01,30 Say "Visita" @ 01,30 Radio Semana_O Var Semana_L of oDlg Prompt "SEG","TER","QUA","QUI","SEX","SAB" @ 07,30 Say oSay1 Var "Dia" Of oDlg @ 07,33 Say oSay2 Var "Mes" Of oDlg @ 09,23 Get oDia Var o_Dia Of oDlg Size 11,10 @ 09,25 Get oMes Var o_Mes Of oDlg Size 11,10 ***************************************** * * eu quero +- por aki colocar 2 botoes. * * [ OK ] para imprimir, ou bitmap * (simbolo) da impressora * * e que v pra function Imprimir() * * [ Sair ] Sair , ou bitmap * * (simbolo) de saida(porta aberta sei l * * * ************************ Activate Dialog oDlg center return nil ********************************************************** * Function Imprime() * . * . * Return nil *

Amigos.....boa tarde! Como voltei a gatinhar no FW,...ajudem-me. Como colocar um Botão de: [OK] para imprimir e ai ele se direciona para uma certa funçao..ou o simbolo da impressora [sAIR] ele abandona a rotina...ou o simbolo da Portinha berta. Vejam abaixa, minha "OBRA-PRIMA" rsrsrsrsrsrs #include "FiveWin.ch" static oW Caixa() Return ******************************************************* Function Caixa() Static oDlg Local Vend_o Local Vend_c:=" " Local Func_o Local Func_c:=" " Local Tipo_o Local Tipo_L Local Semana_o Local Semana_L Local oSay1 Local oSay2 Local oDia Local oMes Local o_Dia:=Strzero(Day (date()),2,0) Local o_Mes:=Strzero(Month(date()),2,0) Use Tb_Regi Vend_List:={} Do While ! eof() aadd(Vend_List,Cdregi+"-"+Nmregi) skip Enddo Use Use Tb_Func Func_List:={} Do While ! eof() if alltrim(dsfunc)=="REP.COMERCIAL" .and. empty(dtdemis) aadd(Func_List,Cdfunci+"-"+Nmfunci) endif skip Enddo Use Define dialog oDlg Title "ELDC TELEFONICA Roteiro de Visitas" from 00,00 to 20,78 @ 01,05 Say "Regiao" @ 02,05 ComboBox Vend_o Var Vend_c Of oDlg Prompts Vend_List size 120,80 @ 03,05 Say "Representante" @ 04,05 ComboBox Func_o Var Func_c Of oDlg Prompts Func_List size 120,80 @ 05,05 Say "Clientes" @ 07,05 Radio Tipo_O Var Tipo_L of oDlg Prompt "PDVs Ativos","PDVs Inativos","PDVs (todos)" @ 01,30 Say "Visita" @ 01,30 Radio Semana_O Var Semana_L of oDlg Prompt "SEG","TER","QUA","QUI","SEX","SAB" @ 07,30 Say oSay1 Var "Dia" Of oDlg @ 07,33 Say oSay2 Var "Mes" Of oDlg @ 09,23 Get oDia Var o_Dia Of oDlg Size 11,10 @ 09,25 Get oMes Var o_Mes Of oDlg Size 11,10 ***************************************** * * eu quero +- por aki colocar 2 botoes. * * [ OK ] para imprimir, ou bitmap * (simbolo) da impressora * * e que v pra function Imprimir() * * [ Sair ] Sair , ou bitmap * * (simbolo) de saida(porta aberta sei l * * * ************************ Activate Dialog oDlg center return nil ********************************************************** * Function Imprime() * . * . * Return nil *

Amigos.....boa tarde! Como voltei a gatinhar no FW,...ajudem-me. Como colocar um Botão de: [OK] para imprimir e ai ele se direciona para uma certa funçao..ou o simbolo da impressora [sAIR] ele abandona a rotina...ou o simbolo da Portinha berta. Vejam abaixa, minha "OBRA-PRIMA" rsrsrsrsrsrs #include "FiveWin.ch" static oW Caixa() Return ******************************************************* Function Caixa() Static oDlg Local Vend_o Local Vend_c:=" " Local Func_o Local Func_c:=" " Local Tipo_o Local Tipo_L Local Semana_o Local Semana_L Local oSay1 Local oSay2 Local oDia Local oMes Local o_Dia:=Strzero(Day (date()),2,0) Local o_Mes:=Strzero(Month(date()),2,0) Use Tb_Regi Vend_List:={} Do While ! eof() aadd(Vend_List,Cdregi+"-"+Nmregi) skip Enddo Use Use Tb_Func Func_List:={} Do While ! eof() if alltrim(dsfunc)=="REP.COMERCIAL" .and. empty(dtdemis) aadd(Func_List,Cdfunci+"-"+Nmfunci) endif skip Enddo Use Define dialog oDlg Title "ELDC TELEFONICA Roteiro de Visitas" from 00,00 to 20,78 @ 01,05 Say "Regiao" @ 02,05 ComboBox Vend_o Var Vend_c Of oDlg Prompts Vend_List size 120,80 @ 03,05 Say "Representante" @ 04,05 ComboBox Func_o Var Func_c Of oDlg Prompts Func_List size 120,80 @ 05,05 Say "Clientes" @ 07,05 Radio Tipo_O Var Tipo_L of oDlg Prompt "PDVs Ativos","PDVs Inativos","PDVs (todos)" @ 01,30 Say "Visita" @ 01,30 Radio Semana_O Var Semana_L of oDlg Prompt "SEG","TER","QUA","QUI","SEX","SAB" @ 07,30 Say oSay1 Var "Dia" Of oDlg @ 07,33 Say oSay2 Var "Mes" Of oDlg @ 09,23 Get oDia Var o_Dia Of oDlg Size 11,10 @ 09,25 Get oMes Var o_Mes Of oDlg Size 11,10 ***************************************** * * eu quero +- por aki colocar 2 botoes. * * [ OK ] para imprimir, ou bitmap * (simbolo) da impressora * * e que v pra function Imprimir() * * [ Sair ] Sair , ou bitmap * * (simbolo) de saida(porta aberta sei l * * * ************************ Activate Dialog oDlg center return nil ********************************************************** * Function Imprime() * . * . * Return nil *

Vilian e a todos os amigos deste Forum...BOM DIA E BOM COMEÇO DE SEMANA.... Obrigado pelo esclarecimento. FWAbraço

...ouvindo umas conversas é uma versão generica do Delphi, base pascal (free-pascal). Você pode pegar um projeto no Delphi e compilar nele. É Multi-Plataforma, o mesmo software pode rodar com Linux, Windows, OS/2, Mac.... É um projeto novo, ainda não 100% confiável. PS.NÃO SOU DELPHEIRO..SOU CLIPPEIRO..SÓ FIZ UM COMENTARIO. ANTES DE ABRIREM CAÇA AO MEU PESCOÇO. FwAbraço

Ops.....isso que chupar cana e assoviar...e ainda atende o telefone..... Desculpem-me www.lazarus.freepascal.org

Amigos. Boa Tarde. Dêm uma olhada nisso... www.freepascoal.lazaruz.org

Amigos. Boa Tarde. Dêm uma olhada nisso... www.freepascoal.lazaruz.org

Amigos. Boa Tarde. Dêm uma olhada nisso... www.freepascoal.lazaruz.org

Deixa eu meter o nariz na conversa.... Amigos. Realemente o Palm Pocket Pc é baseado em tecnologia Windows, agora, revista Info da semana passada (se não me falhe a memoria), os Palm´s O.S, agora pertencem a uma empresa Japonesa ou Chinesa (sei lá) e que agora sairão como Linux e que o O Palm Zire 22 não será mais fabricado. Prá Palm, programação, sei que tem um Software paracido com o Delphi chamado Pocket Studio. Caso eu esteja engando em algo, favor me corrijam!!! FWAbraços!!!

Amigos deste Forum. Bom Dia! Me enviaram por email e gostaria de conpartilhar com todos... Palavrinha do Médico Vocês sabiam que, qualquer pessoa que sofra de paralisia, câncer, lepra, AIDS e uma série de outras doenças incapacitantes seja total ou parcialmente, têm direitos a isenções de impostos, taxas, desconto no preço para compra de carros adaptados, passe livre em metrô e transporte coletivo, remédios gratuitos, etc.? Pois eles têm. Entre os direitos que podem ser requeridos estão: Aposentadoria integral (mesmo sem contar com o tempo necessário de contribuição ao INSS); Isenções de IR; CPMF; Contribuição Previdenciária; etc. ·. Se houver deficiência física: isenção de IPI; ICMS; IOF e IPVA (Isenção vitalícia de IPVA) "na compra de carro especial, ou adaptado". O preço do carro, nesses casos, cai em 30%. (trinta por cento); Direito ao saque total de FGTS e fundos PIS ou PASEP; Direito da quitação de valor financiado (Anterior à doença, é claro) para compra de imóvel; Atendimento médico domiciliar; Remédios gratuitos; etc. Para maiores detalhes, procurem o livro: "Câncer - Direito e Cidadaniaâ€, da advogada Antonieta Barbosa, publicado pela Editora ARX. O livro contém todas as informações sobre todas as doenças que são beneficiadas por leis que nós desconhecemos que não são divulgadas, além dos procedimentos que devem ser adotados para receber tais benefícios. Caso vocês conheçam alguém que tenha câncer e esteja em fase de tratamento, forneçam o número de telefone do "Hospital Santana", em Mogi das Cruzes: 4727 - 6043 A pessoa interessada deve ligar antes e saber se o Hospital Santana tem ou não em estoque, remédio utilizado. Caso eles tenham o remédio necessário O FORNECIMENTO É GRÃTIS. DIVULGUEM !!!! "Nós nos transformamos naquilo que praticamos com freqüênciaâ€. A perfeição, portanto, não é um ato isolado. “É um hábitoâ€. -Aristóteles E' IMPORTANTE DARMOS DIVULGAÇÃO DOS DIREITOS QUE TEMOS NESTE PAIS, AINDA MAIS PARA PESSOAS QUE REALMENTE NECESSITAM! DIVULGUEM VOCÊ PODE ESTAR AJUDANDO UMA PESSOA QUE NECESSITA AJUDA, SEM SAIR DE CASA.

Amigos deste Forum. Bom Dia! Me enviaram por email e gostaria de conpartilhar com todos... Palavrinha do Médico Vocês sabiam que, qualquer pessoa que sofra de paralisia, câncer, lepra, AIDS e uma série de outras doenças incapacitantes seja total ou parcialmente, têm direitos a isenções de impostos, taxas, desconto no preço para compra de carros adaptados, passe livre em metrô e transporte coletivo, remédios gratuitos, etc.? Pois eles têm. Entre os direitos que podem ser requeridos estão: Aposentadoria integral (mesmo sem contar com o tempo necessário de contribuição ao INSS); Isenções de IR; CPMF; Contribuição Previdenciária; etc. ·. Se houver deficiência física: isenção de IPI; ICMS; IOF e IPVA (Isenção vitalícia de IPVA) "na compra de carro especial, ou adaptado". O preço do carro, nesses casos, cai em 30%. (trinta por cento); Direito ao saque total de FGTS e fundos PIS ou PASEP; Direito da quitação de valor financiado (Anterior à doença, é claro) para compra de imóvel; Atendimento médico domiciliar; Remédios gratuitos; etc. Para maiores detalhes, procurem o livro: "Câncer - Direito e Cidadaniaâ€, da advogada Antonieta Barbosa, publicado pela Editora ARX. O livro contém todas as informações sobre todas as doenças que são beneficiadas por leis que nós desconhecemos que não são divulgadas, além dos procedimentos que devem ser adotados para receber tais benefícios. Caso vocês conheçam alguém que tenha câncer e esteja em fase de tratamento, forneçam o número de telefone do "Hospital Santana", em Mogi das Cruzes: 4727 - 6043 A pessoa interessada deve ligar antes e saber se o Hospital Santana tem ou não em estoque, remédio utilizado. Caso eles tenham o remédio necessário O FORNECIMENTO É GRÃTIS. DIVULGUEM !!!! "Nós nos transformamos naquilo que praticamos com freqüênciaâ€. A perfeição, portanto, não é um ato isolado. “É um hábitoâ€. -Aristóteles E' IMPORTANTE DARMOS DIVULGAÇÃO DOS DIREITOS QUE TEMOS NESTE PAIS, AINDA MAIS PARA PESSOAS QUE REALMENTE NECESSITAM! DIVULGUEM VOCÊ PODE ESTAR AJUDANDO UMA PESSOA QUE NECESSITA AJUDA, SEM SAIR DE CASA.

Amigos deste Forum. Bom Dia! Me enviaram por email e gostaria de conpartilhar com todos... Palavrinha do Médico Vocês sabiam que, qualquer pessoa que sofra de paralisia, câncer, lepra, AIDS e uma série de outras doenças incapacitantes seja total ou parcialmente, têm direitos a isenções de impostos, taxas, desconto no preço para compra de carros adaptados, passe livre em metrô e transporte coletivo, remédios gratuitos, etc.? Pois eles têm. Entre os direitos que podem ser requeridos estão: Aposentadoria integral (mesmo sem contar com o tempo necessário de contribuição ao INSS); Isenções de IR; CPMF; Contribuição Previdenciária; etc. ·. Se houver deficiência física: isenção de IPI; ICMS; IOF e IPVA (Isenção vitalícia de IPVA) "na compra de carro especial, ou adaptado". O preço do carro, nesses casos, cai em 30%. (trinta por cento); Direito ao saque total de FGTS e fundos PIS ou PASEP; Direito da quitação de valor financiado (Anterior à doença, é claro) para compra de imóvel; Atendimento médico domiciliar; Remédios gratuitos; etc. Para maiores detalhes, procurem o livro: "Câncer - Direito e Cidadaniaâ€, da advogada Antonieta Barbosa, publicado pela Editora ARX. O livro contém todas as informações sobre todas as doenças que são beneficiadas por leis que nós desconhecemos que não são divulgadas, além dos procedimentos que devem ser adotados para receber tais benefícios. Caso vocês conheçam alguém que tenha câncer e esteja em fase de tratamento, forneçam o número de telefone do "Hospital Santana", em Mogi das Cruzes: 4727 - 6043 A pessoa interessada deve ligar antes e saber se o Hospital Santana tem ou não em estoque, remédio utilizado. Caso eles tenham o remédio necessário O FORNECIMENTO É GRÃTIS. DIVULGUEM !!!! "Nós nos transformamos naquilo que praticamos com freqüênciaâ€. A perfeição, portanto, não é um ato isolado. “É um hábitoâ€. -Aristóteles E' IMPORTANTE DARMOS DIVULGAÇÃO DOS DIREITOS QUE TEMOS NESTE PAIS, AINDA MAIS PARA PESSOAS QUE REALMENTE NECESSITAM! DIVULGUEM VOCÊ PODE ESTAR AJUDANDO UMA PESSOA QUE NECESSITA AJUDA, SEM SAIR DE CASA.

Bom Dia Amigos.... Eu gero normalmente como um TXT, só que entre os campos coloco CHR(9)

Cris..... Você realmente é porreta....Um FWAbraço.

Amigos deste Forum..Boa tarde! Alguem por ai tem algum manual/tutorial/apostilal de DOT.NET ? Se tiver......mande-me por favor....gil_haf@ig.com.br FWAbracos

Amigos deste Forum..Boa tarde! Alguem por ai tem algum manual/tutorial/apostilal de DOT.NET ? Se tiver......mande-me por favor....gil_haf@ig.com.br FWAbracos

Amigos deste Forum..Boa tarde! Alguem por ai tem algum manual/tutorial/apostilal de DOT.NET ? Se tiver......mande-me por favor....gil_haf@ig.com.br FWAbracos

E' POR ISSO QUE ESTE FORUM E' PORRETA ! VALEU !! citação:Ja mandei para o seu e-mail! Marcelo Gomes elitenet@terra.com.br Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE id=quote>id=quote>

Amigos, UUUUFAAAAA...a tal reuniao foi transferida para amanha as 14:00hs, caso alguem ainda possa me ajudar, eu ficarei muito agradecido. FWAbracos.

Amigos deste Forum..Bom Dia! Por favor, alguem tem por ai um simples programinha que cadastre por exemplo CODIGO, NOME, FONE ou um sistema simples feito em JAVA. Bem, eu nao programo em JAVA e como estou tentando convencer a minha empresa a migrar para o FiveWin, mais como tudo nao e' perfeito, tenho um outro programador tentando fazer-nos ir pro JAVA. Amigos, um sistema em JAVA so' para eu apresentar em uma reauniao HOJE AS 14:00 !!!! HELP ! HELP !! Caso alguem tenha da pra mandar por email >> gil_haf@itelefonica.com.br FWAbracos!!

Amigos deste Forum..Bom Dia! Por favor, alguem tem por ai um simples programinha que cadastre por exemplo CODIGO, NOME, FONE ou um sistema simples feito em JAVA. Bem, eu nao programo em JAVA e como estou tentando convencer a minha empresa a migrar para o FiveWin, mais como tudo nao e' perfeito, tenho um outro programador tentando fazer-nos ir pro JAVA. Amigos, um sistema em JAVA so' para eu apresentar em uma reauniao HOJE AS 14:00 !!!! HELP ! HELP !! Caso alguem tenha da pra mandar por email >> gil_haf@itelefonica.com.br FWAbracos!!