sig_gilberto

Amigos deste Forum..Bom Dia! Por favor,dêem uma olhadela neste pequeno código : #include "FiveWin.ch" Static Dlg Cad_Cliente() Return nil //-------------------------------------// Function Cad_Cliente() Use Tb_Clie Index Tb_Clie WCdClien=space(06) WTpClien=space(01) WNumCnpj=space(14) WNumIest=space(15) WDsRazSo=space(40) Define Icon Wicon File "c:\fwh25\icons\people2.ico" Define Dialog Dlg Title "SIST:001 - Cadastro de Clientes" From 06,02 to 35,99 Icon Wicon @ 1 , 2 SAY "Código" @ 1 , 6 GET WCdClien Pict "@K999999" && Valid Teste_Vazio(WCdClien)=.f. @ 2 , 2 SAY "Tipo" @ 2.2, 6 GET WTPClien Pict "!" @ 3 , 2 SAY "Cnpj/Cpf" @ 3.3,6 GET WNumCnpj Pict "@K99999999999999" @ 4 , 2 SAY "I.Est/Rg" @ 4.6,6 GET WNumIest Pict "@K999999999999999" @ 5 ,2 SAY "Razão Social" @ 5.6,6 GET WDsRazSo Pict "@K!" @ 11 , 2 BUTTON "&OK" OF Dlg SIZE 50,12 ACTION Gravar() @ 11 ,12 BUTTON "&Cancelar" OF Dlg SIZE 50,12 ACTION Dlg:End() ACTIVATE DIALOG Dlg valid msgyesno("Deseja Sair ?",b_usuario) return nil //-------------------------------------------------------------------// Static Function Gravar() MsgRun("Aguarde...Atualizando Dados") Seek WCdclien If ! Found() Append Blank Endif Repl CdClien with WCdClien Repl TpClien with WTpClien Repl NumCnpj with WNumCnpj Repl NumIest with WNumIest Repl DsRazso with WDsRazSo return nil //***********************************************// Estou já olhei os exemplos do Forum e tambem as pastas de meu micro(FW) e não encontrei, a resposta pra minha simples questão : 1º - Como Verificar se o Código do Cliente já existe para não incluí-lo novamente ? 2º - Caso ele exista... como editá-lo (trazer os valores dos campos parta as variáveis) ? 3º - Como zerar (apagar) os valores dos campos e voltar o foco para o 1º campo(cdclien) após pressionar ou mesmo o ? 4º Alguém tem alguma ídeia de como melhorar esta telinha ? 5º Alguém pode ajudar ? Um FWAbraço a Todos !!! "Nada é o que parece ser."

Amigos deste Forum..Bom Dia! Por favor,dêem uma olhadela neste pequeno código : #include "FiveWin.ch" Static Dlg Cad_Cliente() Return nil //-------------------------------------// Function Cad_Cliente() Use Tb_Clie Index Tb_Clie WCdClien=space(06) WTpClien=space(01) WNumCnpj=space(14) WNumIest=space(15) WDsRazSo=space(40) Define Icon Wicon File "c:\fwh25\icons\people2.ico" Define Dialog Dlg Title "SIST:001 - Cadastro de Clientes" From 06,02 to 35,99 Icon Wicon @ 1 , 2 SAY "Código" @ 1 , 6 GET WCdClien Pict "@K999999" && Valid Teste_Vazio(WCdClien)=.f. @ 2 , 2 SAY "Tipo" @ 2.2, 6 GET WTPClien Pict "!" @ 3 , 2 SAY "Cnpj/Cpf" @ 3.3,6 GET WNumCnpj Pict "@K99999999999999" @ 4 , 2 SAY "I.Est/Rg" @ 4.6,6 GET WNumIest Pict "@K999999999999999" @ 5 ,2 SAY "Razão Social" @ 5.6,6 GET WDsRazSo Pict "@K!" @ 11 , 2 BUTTON "&OK" OF Dlg SIZE 50,12 ACTION Gravar() @ 11 ,12 BUTTON "&Cancelar" OF Dlg SIZE 50,12 ACTION Dlg:End() ACTIVATE DIALOG Dlg valid msgyesno("Deseja Sair ?",b_usuario) return nil //-------------------------------------------------------------------// Static Function Gravar() MsgRun("Aguarde...Atualizando Dados") Seek WCdclien If ! Found() Append Blank Endif Repl CdClien with WCdClien Repl TpClien with WTpClien Repl NumCnpj with WNumCnpj Repl NumIest with WNumIest Repl DsRazso with WDsRazSo return nil //***********************************************// Estou já olhei os exemplos do Forum e tambem as pastas de meu micro(FW) e não encontrei, a resposta pra minha simples questão : 1º - Como Verificar se o Código do Cliente já existe para não incluí-lo novamente ? 2º - Caso ele exista... como editá-lo (trazer os valores dos campos parta as variáveis) ? 3º - Como zerar (apagar) os valores dos campos e voltar o foco para o 1º campo(cdclien) após pressionar ou mesmo o ? 4º Alguém tem alguma ídeia de como melhorar esta telinha ? 5º Alguém pode ajudar ? Um FWAbraço a Todos !!! "Nada é o que parece ser."

Amigos...boa tarde... aproveitando o gancho...ao sair assim, clicando no X da janela/dialog, como ficam as tabelas, ou seja, os DBFs...eles se fecham automaticamente ? FWAbracos "Nada é o que parece ser."

Senhores....esqueçam..eu errei pois não estava informando o caminho/path o BCC compilador...coisas de novato!! rsrs!! FWAbraços "Nada é o que parece ser."

Bom Dia Amigos deste Forum !!!! Ta a maior chuvona aqui em Suzano-SP.. Existe algum motivo básico para que o xDev não gere o executável ? Até aparece aquela janelinha mostrando que o arquivo esta sendo compilado e que esta gerando o EXE..não dá nenhum erro..tudo bunitinho...mais o executável..não é gerado. FWabraços "Nada é o que parece ser."

Bom Dia Amigos deste Forum !!!! Ta a maior chuvona aqui em Suzano-SP.. Existe algum motivo básico para que o xDev não gere o executável ? Até aparece aquela janelinha mostrando que o arquivo esta sendo compilado e que esta gerando o EXE..não dá nenhum erro..tudo bunitinho...mais o executável..não é gerado. FWabraços "Nada é o que parece ser."

Bom Dia Amigos deste Forum !!!! Ta a maior chuvona aqui em Suzano-SP.. Existe algum motivo básico para que o xDev não gere o executável ? Até aparece aquela janelinha mostrando que o arquivo esta sendo compilado e que esta gerando o EXE..não dá nenhum erro..tudo bunitinho...mais o executável..não é gerado. FWabraços "Nada é o que parece ser."

Mauricio..mais um membro do maior forum de FW. Va la' em seu cadastro e coloque a sua assinatura, com as versoes que vc usa.. Eh pessoal...eh o Fivewin crescendo ainda mais. FWAbracos a TODOS OS AMIGOS. "Nada é o que parece ser."

Para os amigos de Curitiba e regiao http://www.bematech.com.br/marketing/emkt/arquivos/bsp/formulario.html FwAbracos "Nada é o que parece ser."

Para os amigos de Curitiba e regiao http://www.bematech.com.br/marketing/emkt/arquivos/bsp/formulario.html FwAbracos "Nada é o que parece ser."

Para os amigos de Curitiba e regiao http://www.bematech.com.br/marketing/emkt/arquivos/bsp/formulario.html FwAbracos "Nada é o que parece ser."

...So pra subir o topico!!!! Que legal ! Que pena que moro em Mogi das Cruzes FWAbracos "Nada é o que parece ser."

Amigos deste Forum..Bom Dia. A algum tempo, recebi um email oferecendo notebook a preço de banana...agora recebi de novo. Olhem só o email que recebi: Bom dia, Trata-se de Notebooks Acer Travelmate, pelo preço de 600 reais a unidade. Possuo somente uma carga de poucas unidades, no momento. O envio da mercadoria é grátis para qualquer lugar do país, bastando pagar a quantia de 600 reais. Todos os Notebooks estão novos, na caixa original. As informações sobre configuração dos Notebooks encontram-se no site: ( http://br.geocities.com/notebooks888/Acer.doc). O preço baixo da mercadoria, é devido a estes Notebooks terem sido adquiridos na facilidade, no Super Porto de Rio Grande. Estou localizado na cidade de Porto Alegre/RS, e trago estes Notebooks diretamente do meu fornecedor em Rio Grande. Caso esteja interessado na compra, no momento, o pagamento deverá ser enviado por carta registrada ou sedex dos Correios ao endereço que fornecerei. Não trabalho com Sedex a cobrar, devido ao registro da mercadoria. Não negocio pessoalmente ou por telefone, pelo alto risco da mercadoria ilegal ser apreendida, inclusive já tive problemas anteriores quanto a isto. O prazo de entrega da mercadoria para você é de 2 dias, podendo ser menor, dependendo da região do país em que você se encontra. Caso esteja interessado na compra, me envie um e-mail, que lhe repasso os dados para efetuar o pagamento. Atenciosamente, Abelardo Andrade ..è golpe não é ?!? FwAbrços "Nada é o que parece ser."

Amigos deste Forum..Bom Dia. A algum tempo, recebi um email oferecendo notebook a preço de banana...agora recebi de novo. Olhem só o email que recebi: Bom dia, Trata-se de Notebooks Acer Travelmate, pelo preço de 600 reais a unidade. Possuo somente uma carga de poucas unidades, no momento. O envio da mercadoria é grátis para qualquer lugar do país, bastando pagar a quantia de 600 reais. Todos os Notebooks estão novos, na caixa original. As informações sobre configuração dos Notebooks encontram-se no site: ( http://br.geocities.com/notebooks888/Acer.doc). O preço baixo da mercadoria, é devido a estes Notebooks terem sido adquiridos na facilidade, no Super Porto de Rio Grande. Estou localizado na cidade de Porto Alegre/RS, e trago estes Notebooks diretamente do meu fornecedor em Rio Grande. Caso esteja interessado na compra, no momento, o pagamento deverá ser enviado por carta registrada ou sedex dos Correios ao endereço que fornecerei. Não trabalho com Sedex a cobrar, devido ao registro da mercadoria. Não negocio pessoalmente ou por telefone, pelo alto risco da mercadoria ilegal ser apreendida, inclusive já tive problemas anteriores quanto a isto. O prazo de entrega da mercadoria para você é de 2 dias, podendo ser menor, dependendo da região do país em que você se encontra. Caso esteja interessado na compra, me envie um e-mail, que lhe repasso os dados para efetuar o pagamento. Atenciosamente, Abelardo Andrade ..è golpe não é ?!? FwAbrços "Nada é o que parece ser."

Amigos deste Forum..Bom Dia. A algum tempo, recebi um email oferecendo notebook a preço de banana...agora recebi de novo. Olhem só o email que recebi: Bom dia, Trata-se de Notebooks Acer Travelmate, pelo preço de 600 reais a unidade. Possuo somente uma carga de poucas unidades, no momento. O envio da mercadoria é grátis para qualquer lugar do país, bastando pagar a quantia de 600 reais. Todos os Notebooks estão novos, na caixa original. As informações sobre configuração dos Notebooks encontram-se no site: ( http://br.geocities.com/notebooks888/Acer.doc). O preço baixo da mercadoria, é devido a estes Notebooks terem sido adquiridos na facilidade, no Super Porto de Rio Grande. Estou localizado na cidade de Porto Alegre/RS, e trago estes Notebooks diretamente do meu fornecedor em Rio Grande. Caso esteja interessado na compra, no momento, o pagamento deverá ser enviado por carta registrada ou sedex dos Correios ao endereço que fornecerei. Não trabalho com Sedex a cobrar, devido ao registro da mercadoria. Não negocio pessoalmente ou por telefone, pelo alto risco da mercadoria ilegal ser apreendida, inclusive já tive problemas anteriores quanto a isto. O prazo de entrega da mercadoria para você é de 2 dias, podendo ser menor, dependendo da região do país em que você se encontra. Caso esteja interessado na compra, me envie um e-mail, que lhe repasso os dados para efetuar o pagamento. Atenciosamente, Abelardo Andrade ..è golpe não é ?!? FwAbrços "Nada é o que parece ser."

1x0.......é.... "Nada é o que parece ser."

Obrigadu pela dica... FWAbraços "Nada é o que parece ser."

Pessoal..fiz alguns teste e ACHO que é no Blinker que se dá solução a isso..agora caso alguem saiba..me ajudadem por favor ..! FWAbraços "Nada é o que parece ser."

Amigos deste forum...Boa tarde...! A velocidade de chamada de um programa, pode ter variação conforme vc usa ou passa os parâmetros do compilador ou o Blinker ? Vejam bem...uma pequena rotina, chamada através de um icone(atalho) no WinXP esta levando quase 5 segundos para aparecer na tela, ou mesmo chamada diretamente atraves do prompt do DOS (C:\).. Por que isso acontece ? FwAbraços "Nada é o que parece ser."

Amigos deste forum...Boa tarde...! A velocidade de chamada de um programa, pode ter variação conforme vc usa ou passa os parâmetros do compilador ou o Blinker ? Vejam bem...uma pequena rotina, chamada através de um icone(atalho) no WinXP esta levando quase 5 segundos para aparecer na tela, ou mesmo chamada diretamente atraves do prompt do DOS (C:\).. Por que isso acontece ? FwAbraços "Nada é o que parece ser."

Amigos deste forum...Boa tarde...! A velocidade de chamada de um programa, pode ter variação conforme vc usa ou passa os parâmetros do compilador ou o Blinker ? Vejam bem...uma pequena rotina, chamada através de um icone(atalho) no WinXP esta levando quase 5 segundos para aparecer na tela, ou mesmo chamada diretamente atraves do prompt do DOS (C:\).. Por que isso acontece ? FwAbraços "Nada é o que parece ser."

sabe que eu não havia reparado..(rsrsrsrs) FWAbraçõs "Nada é o que parece ser."

"Nada é o que parece ser."

"Nada é o que parece ser."

"Nada é o que parece ser."