daniel_halon

Kapi, não deu pra entender nada!!! daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Olá pessoal, ja escutei muitas vezes sobre a VLIB do Vagner alguem poderia postar alguns exemplos inclusive visual desta lib?, e no caso de gostar, aonde aquirir? daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Olá pessoal, ja escutei muitas vezes sobre a VLIB do Vagner alguem poderia postar alguns exemplos inclusive visual desta lib?, e no caso de gostar, aonde aquirir? daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Olá Luiz, achei legal a BUTTONBAR com gradiente, ficou tri, da pra explicar como? assim a galera (inclusive eu) aprende um pouco das tuas telas daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Agora que todos sabem que tenho uma tele-entrega de pizzas, não adianta tentar, só entrego em Porto Alegre, por enquanto não chego em Recife, Corumba nem SP. Valeu pessoal daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Consegui, Obrigado a todos. Meu principal erro era que colocava assim: (img) http://www.portobakers.com.br/pedidos.JPG (/img) e devia estar tudo na mesma linha. Ricardo, o problema com o arquivo pedidos.JPG e que a extensão esta com letras maiúsculas. a final só pretendia mostrar para o Alceu, como tinha ficado a tela feita com o Pelles C, levou quase 1 dia, mas a meu criterio ficou bonita. daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Marcos, não é assim de barbada, mas eu tmb to lutando para poder inserir uma imagem, vamos aguardar o Ricardo ou mais alguem prestativo que nos de uma forçinha daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Ricardo, eu de novo, não estou conseguindo, fiz do seguinte jeito: Clico em INSERIR IMAGE mas não funciona daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Olá Ricardo, tudo bom?. Quer dizer que na verdade o que faço e un link para o site(neste caso o meu) onde hospedo a minha_tela.jpg, e iso ahi?, vou tentar, obrigado daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Olá pessoal, alguem pode me orientar como faço para postar um exemplo com uma imagem gravada em jpg ou outro formato aqui no forum? Obrigado, Daniel daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta. Editado por - daniel_halon on 21/04/2008 21:18:05

Olá pessoal, alguem pode me orientar como faço para postar um exemplo com uma imagem gravada em jpg ou outro formato aqui no forum? Obrigado, Daniel daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta. Editado por - daniel_halon on 21/04/2008 21:18:05

Vou postar alguns exemplos para que vejas as diferenças Este seria o modo tradicional que utilizamos em clipper puro function Main() local oDlg local dDay := "this is a test" // Date() local oGet DEFINE DIALOG oDlg TITLE "Just a get" @ 2, 2 SAY "Date:" OF oDlg @ 2, 6 GET oGet VAR dDay OF oDlg SIZE 40, 10 ; VALID Empty( dDay ) @ 5, 6 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End() @ 5, 12 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL ACTIVATE DIALOG oDlg CENTERED return nil id=code>id=code>Quando utilizamos as telas criadas com um editor de textos alem de ficar mais bonitas, não precisas definir @ Say 10,20 para a localização, já que cada campo de edição(get) ou amostragem(say) deve ser identificado com o numero correspondente a cada um, (ID 4001), vai um exemplo aqui DEFINE DIALOG oAbt RESOURCE "PEDIDOS2" FONT O_F_DLG //; //BRUSH oBrush //oAbt:nSTYLE:=nOR(DS_MODALFRAME,WS_POPUP,WS_VISIBLE,WS_DLGFRAME) //--> Tira a Barra de titulo da Dialog //oAbt:lTransparent:=.T. //Informações varias REDEFINE SAY oData VAR Data ID 101 OF oAbt FONT O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTurno VAR Turno ID 102 OF oAbt font o_texto_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE GET oDatos[1,1] Var a_Dados[1,1] ID 1001 OF oAbt picture '9999-9999'; FONT O_TEXTO_MEDIO VALID Check_cliente(lComple, P_COMPLE, a_dados, oABT, lSalir); COLOR CLR_AZULXP, CLR_GETS //Telefone REDEFINE GET oDatos[1,2] VAR A_DADOS[1,02] ID 1005 OF oABT Picture '9999'; FONT o_TEXTO_ARIAL COLOR CLR_PRETO, CLR_GETS UPDATE //Ramal REDEFINE GET oDatos[1,3] VAR A_DADOS[1,03] ID 1002 OF oABT Picture '@!'; FONT o_TEXTO_ARIAL COLOR CLR_PRETO, CLR_GETS UPDATE VALID !Empty(A_dados[1,3]) //Nome REDEFINE GET oDatos[1,4] VAR A_DADOS[1,04] ID 1003 OF oABT Picture '@!'; FONT o_TEXTO_ARIAL COLOR CLR_PRETO, CLR_GETS UPDATE VALID !Empty(A_dados[1,4]) //Endereco REDEFINE CHECKBOX oDatos[1,38] VAR a_dados[1,38] ID 1026 OF oAbt; ON CLICK(Check_Comple()) REDEFINE CHECKBOX oDatos[1,39] VAR a_dados[1,39] ID 1027 OF oAbt; ON CLICK(Check_Participa()) ID_CODIGO := 2000 ID_CANTIDAD:= 5000 for m_cont := 1 to len(a_Dados[2])-1 m_macro1 := 'a_dados[2]['+alltrim(str(m_cont))+',1]' ID_CODIGO ++ ID_CANTIDAD++ // chama a montagem dos gets MyGets( oDatos, m_cont, a_dados, id_codigo, oAbt, m_macro1 ) Next REDEFINE BTNBMP RESOURCE "BAR_OK" ID 10 TOP OF oAbt ; TOOLTIP "Confirma"//; // ACTION (oDlgBairro:End()) NOBORDER REDEFINE BTNBMP RESOURCE "BAR_EXCLUIR2" ID 20 TOP OF oAbt ; TOOLTIP "Cancelar"; ACTION (lSalir:=.T., oAbt:End()) CANCEL //NOBORDER oDatos[1,1]:cToolTip := "Digite o Telefone" Activate DIALOG oAbt //VALID (lSalir) Return NIL id=code>id=code>Cada vez que entras com dados em um GET ou CheckBox etc deves atualizar o objeto assim: oMeuObjeto:Refresh() Isto ira atualizar o objeto e tudo que esta dentro dele com a nova variável inserida, inclusive a apresentação na tela. Espero ter sido útil Daniel daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Alceu, eu tambem me considero um novato, porem podes ter certeza que este e o melhor forum que já conheci, todo vão dar uma forza para que teu caminho seja mais fácil, a primeira coisa a ser definida a meu criterio e a forma de trabalho, pelo menos assim foi comigo. se utilizas o tardicional @Say ou @ Get ou se crias as telas com um editor e utilizas REDEFINE Say REDEFINE Get etc... eu acho mais profisional trabalhar com REDEFINE, utilizo o pelles C, e o Ultra Edit como editor de textos, não utilizo nehuma IDE, tem muitos exemplos por ahi, se desejas posso postar algum do meu programa que estou migrando de clipper puro para FW. daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Vc já pensou em contratar un funcionário?, quem sabe ele faz tudo iso para vc. rsrsrsrs Fora de brincadeira, Vc pode optar pelo WorkShop ou Pelles C para criar as telas, icones, e bmp´s, agora criar seus prg... remanga a camisa e trabalha hehehehe, vc deve indicar se esta trabalhando com xHarbour ou só clipper e FW daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

E verdade Marllon, bem complicado, com certeza não tenho teus conhecimentos, mas resolveu meu problema de uma maneira aparentemente bem simples, não vou esquecer esta dica, obrigado por tudo. Daniel daniel_halon@portobakers.com.br - Porto Alegre - RS FWH 2.7 xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Holá Marllon, faz pouco tempo atras me deste uma ajuda e tanto com o problema que tinha com as variaveis dentro do FOR/NEXT, a principio queria agradecer porque resolví o problema com a tua dica, será que poderias me explicar porque fazendo essa chamada dentro do bucle FOR/NEXT resolveu o problema?, a outra dúvida que tenho e que sempre me dizeram que os REDEFINE deviam obrigatoriamente estar dentro da dialog e no teu exemplo eles são declarados em uma função fora da Dialog. Vou postar o exemplo que me indicaste. ID_CODIGO := 2000 ID_CANTIDAD:= 5000 for m_cont := 1 to len(a_Dados[2])-1 m_macro1 := 'a_dados[2]['+alltrim(str(m_cont))+',1]' ID_CODIGO ++ ID_CANTIDAD++ // chama a montagem dos gets MyGets( oDatos, m_cont, a_dados, id_codigo, oAbt, m_macro1 ) Next oDatos[1,1]:cToolTip := "Digite o Telefone" Activate DIALOG oAbt //VALID (lSalir) Return NIL ********************************************************************************* Static Function MyGets( oDatos, m_cont, a_dados, id_codigo, oAbt, m_macro1 ) Local lComple := .f. Local nValor := 0 REDEFINE GET oDatos[2][m_cont,1] VAR a_dados[2][m_cont,1] ID ID_Codigo OF oAbt FONT o_TEXTO_ARIAL picture '@K@!' valid cod_manager( lComple, nValor, a_dados, m_cont)//, @a_reserva ) REDEFINE GET oDatos[2][m_cont,2] VAR a_dados[2][m_cont,2] ID ID_CANTIDAD OF oAbt FONT o_TEXTO_ARIAL picture '@Z 999' oDatos[2][m_cont,1]:cToolTip := "Digite ? PARA VER OS CÓDIGOS" Return id=code>id=code>daniel_halon@portobakers.com.br Porto Alegre - RS FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta. Editado por - daniel_halon on 07/04/2008 20:57:56

Holá Marllon, faz pouco tempo atras me deste uma ajuda e tanto com o problema que tinha com as variaveis dentro do FOR/NEXT, a principio queria agradecer porque resolví o problema com a tua dica, será que poderias me explicar porque fazendo essa chamada dentro do bucle FOR/NEXT resolveu o problema?, a outra dúvida que tenho e que sempre me dizeram que os REDEFINE deviam obrigatoriamente estar dentro da dialog e no teu exemplo eles são declarados em uma função fora da Dialog. Vou postar o exemplo que me indicaste. ID_CODIGO := 2000 ID_CANTIDAD:= 5000 for m_cont := 1 to len(a_Dados[2])-1 m_macro1 := 'a_dados[2]['+alltrim(str(m_cont))+',1]' ID_CODIGO ++ ID_CANTIDAD++ // chama a montagem dos gets MyGets( oDatos, m_cont, a_dados, id_codigo, oAbt, m_macro1 ) Next oDatos[1,1]:cToolTip := "Digite o Telefone" Activate DIALOG oAbt //VALID (lSalir) Return NIL ********************************************************************************* Static Function MyGets( oDatos, m_cont, a_dados, id_codigo, oAbt, m_macro1 ) Local lComple := .f. Local nValor := 0 REDEFINE GET oDatos[2][m_cont,1] VAR a_dados[2][m_cont,1] ID ID_Codigo OF oAbt FONT o_TEXTO_ARIAL picture '@K@!' valid cod_manager( lComple, nValor, a_dados, m_cont)//, @a_reserva ) REDEFINE GET oDatos[2][m_cont,2] VAR a_dados[2][m_cont,2] ID ID_CANTIDAD OF oAbt FONT o_TEXTO_ARIAL picture '@Z 999' oDatos[2][m_cont,1]:cToolTip := "Digite ? PARA VER OS CÓDIGOS" Return id=code>id=code>daniel_halon@portobakers.com.br Porto Alegre - RS FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta. Editado por - daniel_halon on 07/04/2008 20:57:56

e sim ICO, ia dizer que ta bonitinha pra caramba, mas ahi tu vai ficar grandão demais rsrsrs, fora de brincadeira, gostei mesmo, podes postar? daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Holá Luiz, achei tri-legal a apresentação da lbx, seria muito pedir postar como fizeste para o degradee, obrogado Daniel daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Amigo, a pesar de não entender sobre o tema vou arriscar uma burrice, sei que tem 2 tipos de informação enviada pelas empresas de telefonia, DTMF E FSK, sera que tem algo a ver? daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Kapi, por lo que veo hablas y escribes bien en castellano, buenisimo! daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Bom dia Marllon, Estamos na mesma cidade, testei teu exemplo e funcionó perfeito, na função Mygets(), no final do Redefine fiz a chamada do Valid para verificar se o código do produto existe, a principio não funciono, o problema estava no m_cont (a_dados[2,m_cont,1)), solucionei assim, valid cod_manager( lComple, nValor, a_dados, @a_reserva, m_cont) enviando m_cont como variável, ahi funciono perfeito. Fiquei sem comprender o porque fazendo uma chamada a outra função resolveu o problema, eu achava que o Redefine tinha que estar obrigatoriamente dentro da Dialog. Vou testar tambem a dica do Delair para ver se funciona, desconhecia mesmo o fato de que mandar entre parentesis a variável enviava o valor da mesma e não a própia varial. Desde já agradeço a todos a ajuda recebida. Daniel daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Agora com tua explicação, abri o method do Tget e comprendi melhor, o lugar para enviar a informação estava certo, meu erro foi tentar chamar uma função com o Valid, em lugar de mandar um array, vou testar, desde já fico grato com a explicação, Um abraço, Daniel daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Ricardo, incomodando de novo, o Get funciona ok, porem não consigo chamar uma função com o Valid, estive dando uma pesquisada no Method Redefine para ver donde poderia colocar este parâmetro e fiz assim, mas não funciona, a ideia e que quando digito o código no primeiro Get, buscar na Function cod_manager na dbf, fiz asim: oDatos[2][m_cont,1] := &('TGet():ReDefine( '+str(ID_Codigo) +', { | u | If( PCount()==0, a_dados[2]['+str(m_cont)+',1], a_dados[2]['+str(m_cont)+',1]:= u ) }, oAbt,, "@K@!" ,valid cod_manager( lComple, nValor, a_dados, @a_reserva ),,,,,, .F.,,, .F., .F.,,,,)' ) id=code>id=code>o que esta errado? daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Valeu mais uma vez Ricardo, muito obrigado daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles C. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.