daniel_halon

Ricardo, funciono nota mil, valeu mesmo pela dica mais que dica foi solução, se me permites abusar dos teus conhecimentos, gostaria de poder comprender mais a macro para poder usar mais pra frente, qual e função na linha de comando o TGET()? mais uma vez, 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.

Tudo bom Ricardo? Testei a linha e da o seguinte erro: Error occurred at: 23/03/2008, 21:03:29 Error description: Error BASE/1449 Erro de sintaxe: & Args: [ 1] = C ReDefine( 2001, { | u | If( PCount()==0, a_dados[2][ 1,1], a_dados[2][ 1,1]:= u ) }, oAbt,, "@K@!",,,,,,, .F.,,, .F., .F.,,,,) 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, vou fazer um teste, comprendi algo mais sobre o exemplo, se apertar prendo o grito, 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.

Luiz, estou me esforçando para ver a imagem linda mas não consigo, dizem que o amor e cego... Agora fora de brincadeira, na verdade estou tentado capturar a tela do meu prog para postar aqui, e t/ao complicado assim? 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.

A respeito de como inserir uma imagem, sabes como? tentei capturar a tela com Print Screen para inserir com Ctl-V mas nada acontece. 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.

Olá Ricardo, tentei analizar a linha da macro, porem ficou confusa para mim, poderias descreverla para mim? Acho que estas certo, dentro do For todos os item pegam o mesmo valor, o extranho e que estou passando meu codigo do clipper compilado com xHarbour para o FW, e no clipper funciona ok, vou postar o for next do sistema feito em clipper // // itens // for m_cont := 1 to len(a_dados[2]) m_macro1 := 'a_dados[2]['+alltrim(str(m_cont))+',1]' @09+m_cont, 03 get a_dados[2][m_cont,1] picture '@K@!' valid cod_manager( lComple, nValor, a_dados, @a_reserva ) @09+m_cont, 44 get a_dados[2][m_cont,2] picture '@Z 999' when !empty(&m_macro1) valid can_manager( lComple, nValor, a_dados, @a_reserva, row()-9 ) next id=code>id=code>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.

Olá pessoal, como de costume prendendo o grito, estou com o seguinte problema: tenho uma entrada de dados em um sistema de tele-entrega que aceita até 13 items, tudo esta dentro de um for-next, quando digito qualquer valor no get do código ou da quantidade, os outros gets pegam o mesmo valor quando dou enter , vou postar a tela para comprenderem melhor, ahi vai o fonte aadd( a_dados, {space(9), space(4),space(30),space(50),; //fone-ramal-nome-endereco space(25),'',0,space(2),space(1), 0,; //bairro-memo-Ult_pedido-Ult.Demora space(14), space(44), space(3), space(46),; space(1), 0, 0, space(4), space(19), space(5),; // 1...Dados do cliente space(4), space(8), space(30), space(15), 0,; space(2), space(2), space(4), space(15),; 0, .f., space(14),space(3),space(10),space(15), space(7),.f.} ) aadd(a_dados,{}) for m_cont := 1 to 14 aadd(a_dados[2],{space(5),0,0,space(30),space(8),space(14)}) // 2...Itens de venda next aadd(a_dados,{0,0,0,space(50)}) // 3...Desconto aadd(a_dados,{space(24),space(24),space(5),space(24) }) // 4...Observacoes aadd(a_dados,{space(2),space(10),.f.}) // 5...Forma pgto aadd(a_dados,{0,0,0,0,0}) //Gets aadd( oDatos, {space(9), space(4),space(30),space(50),; //fone-ramal-nome-endereco space(25),'',0,space(2),space(1), 0,; //bairro-memo-Ult_pedido-Ult.Demora space(14), space(44), space(3), space(46),; space(1), 0, 0, space(4), space(19), space(5),; // 1...Dados do cliente space(4), space(8), space(30), space(15), 0,; space(2), space(2), space(4), space(15),; 0, .f., space(14),space(3),space(10),space(15), space(7),.f.} ) aadd(oDatos,{}) for Get_cont := 1 to 14 aadd(oDatos[2],{space(5),0,0,space(30),space(8),space(14)}) // 2...Itens de venda next aadd(oDatos,{0,0,0,space(50)}) // 3...Desconto aadd(oDatos,{space(24),space(24),space(5),space(24) }) // 4...Observacoes aadd(oDatos,{space(2),space(10),.f.}) // 5...Forma pgto aadd(oDatos,{0,0,0,0,0}) DEFINE BRUSH oBrush COLOR CLR_VERDE2 //nRGB( 0, 128, 128 ) // cor verde no fundo //DEFINE FONT O_TEXTO NAME "ARIAL" SIZE 09,16 BOLD DEFINE FONT O_TEXTO_NORMAL NAME "MS SANS SERIF" SIZE 06,-06 DEFINE FONT O_TEXTO_MEDIO NAME "MS SANS SERIF" SIZE 9,16 Bold DEFINE FONT O_TEXTO_GRANDE NAME "ARIAL" SIZE 12,28 BOLD DEFINE FONT O_TEXTO_ARIAL NAME "MS SANS SERIF" SIZE 06,10 BOLD DEFINE DIALOG oAbt RESOURCE "PEDIDOS" 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 Prompt Data ID 101 OF oAbt FONT O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTurno Prompt Turno ID 102 OF oAbt font o_texto_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oPre VAR D_Pre ID 1021 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oAcumulado VAR a_dados[1,30] ID 1008 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oUlt_dem VAR Ult_dem ID 1010 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTotal_text PROMPT "Total" ID 1022 OF oAbt font O_TEXTO_GRANDE 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,3] VAR A_DADOS[1,03] ID 1002 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Nome REDEFINE GET oDatos[1,4] VAR A_DADOS[1,04] ID 1003 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Endereco REDEFINE GET oDatos[1,5] VAR A_DADOS[1,05] ID 1004 OF oABT FONT o_TEXTO_ARIAL; VALID Check_bairro() COLOR CLR_PRETO, CLR_GETS UPDATE REDEFINE GET oDatos[1,2] VAR A_DADOS[1,02] ID 1005 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Ramal REDEFINE GET oDatos[1,12] VAR A_DADOS[1,12] ID 1006 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Obs endereco REDEFINE GET oDatos[1,14] VAR A_DADOS[1,14] ID 1007 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Obs endereco ID_CODIGO := 2000 ID_CANTIDAD:= 5000 oCodigo := array(13) oQuanti := array(13) ***** Aqui neste For - Next esta o meu problema ******* for m_cont := 1 to len(a_Dados[2])-1 m_macro1 := 'a_dados[2]['+alltrim(str(m_cont))+',1]' ID_CODIGO ++ ID_CANTIDAD++ REDEFINE GET oDatos[2][m_cont,1] VAR a_dados[2][m_cont,1] ID ID_Codigo OF oAbt picture '@K@!' // valid cod_manager( lComple, nValor, a_dados, @a_reserva ) REDEFINE GET oDatos[2][m_cont,2] VAR a_dados[2][m_cont,2] ID ID_CANTIDAD OF oAbt picture '@Z 999' //when !empty(&m_macro1) // valid can_manager( lComple, nValor, a_dados, @a_reserva, row()-9 ) msginfo(a_dados[2][m_cont,1]) 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>Tentei capturar a tela com Print Screen mas não conseguí, alguem sabe como? 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. Editado por - daniel_halon on 22/03/2008 23:01:54 Editado por - daniel_halon on 22/03/2008 23:02:28 Editado por - daniel_halon on 22/03/2008 23:04:48

Olá pessoal, como de costume prendendo o grito, estou com o seguinte problema: tenho uma entrada de dados em um sistema de tele-entrega que aceita até 13 items, tudo esta dentro de um for-next, quando digito qualquer valor no get do código ou da quantidade, os outros gets pegam o mesmo valor quando dou enter , vou postar a tela para comprenderem melhor, ahi vai o fonte aadd( a_dados, {space(9), space(4),space(30),space(50),; //fone-ramal-nome-endereco space(25),'',0,space(2),space(1), 0,; //bairro-memo-Ult_pedido-Ult.Demora space(14), space(44), space(3), space(46),; space(1), 0, 0, space(4), space(19), space(5),; // 1...Dados do cliente space(4), space(8), space(30), space(15), 0,; space(2), space(2), space(4), space(15),; 0, .f., space(14),space(3),space(10),space(15), space(7),.f.} ) aadd(a_dados,{}) for m_cont := 1 to 14 aadd(a_dados[2],{space(5),0,0,space(30),space(8),space(14)}) // 2...Itens de venda next aadd(a_dados,{0,0,0,space(50)}) // 3...Desconto aadd(a_dados,{space(24),space(24),space(5),space(24) }) // 4...Observacoes aadd(a_dados,{space(2),space(10),.f.}) // 5...Forma pgto aadd(a_dados,{0,0,0,0,0}) //Gets aadd( oDatos, {space(9), space(4),space(30),space(50),; //fone-ramal-nome-endereco space(25),'',0,space(2),space(1), 0,; //bairro-memo-Ult_pedido-Ult.Demora space(14), space(44), space(3), space(46),; space(1), 0, 0, space(4), space(19), space(5),; // 1...Dados do cliente space(4), space(8), space(30), space(15), 0,; space(2), space(2), space(4), space(15),; 0, .f., space(14),space(3),space(10),space(15), space(7),.f.} ) aadd(oDatos,{}) for Get_cont := 1 to 14 aadd(oDatos[2],{space(5),0,0,space(30),space(8),space(14)}) // 2...Itens de venda next aadd(oDatos,{0,0,0,space(50)}) // 3...Desconto aadd(oDatos,{space(24),space(24),space(5),space(24) }) // 4...Observacoes aadd(oDatos,{space(2),space(10),.f.}) // 5...Forma pgto aadd(oDatos,{0,0,0,0,0}) DEFINE BRUSH oBrush COLOR CLR_VERDE2 //nRGB( 0, 128, 128 ) // cor verde no fundo //DEFINE FONT O_TEXTO NAME "ARIAL" SIZE 09,16 BOLD DEFINE FONT O_TEXTO_NORMAL NAME "MS SANS SERIF" SIZE 06,-06 DEFINE FONT O_TEXTO_MEDIO NAME "MS SANS SERIF" SIZE 9,16 Bold DEFINE FONT O_TEXTO_GRANDE NAME "ARIAL" SIZE 12,28 BOLD DEFINE FONT O_TEXTO_ARIAL NAME "MS SANS SERIF" SIZE 06,10 BOLD DEFINE DIALOG oAbt RESOURCE "PEDIDOS" 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 Prompt Data ID 101 OF oAbt FONT O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTurno Prompt Turno ID 102 OF oAbt font o_texto_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oPre VAR D_Pre ID 1021 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oAcumulado VAR a_dados[1,30] ID 1008 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oUlt_dem VAR Ult_dem ID 1010 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTotal_text PROMPT "Total" ID 1022 OF oAbt font O_TEXTO_GRANDE 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,3] VAR A_DADOS[1,03] ID 1002 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Nome REDEFINE GET oDatos[1,4] VAR A_DADOS[1,04] ID 1003 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Endereco REDEFINE GET oDatos[1,5] VAR A_DADOS[1,05] ID 1004 OF oABT FONT o_TEXTO_ARIAL; VALID Check_bairro() COLOR CLR_PRETO, CLR_GETS UPDATE REDEFINE GET oDatos[1,2] VAR A_DADOS[1,02] ID 1005 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Ramal REDEFINE GET oDatos[1,12] VAR A_DADOS[1,12] ID 1006 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Obs endereco REDEFINE GET oDatos[1,14] VAR A_DADOS[1,14] ID 1007 OF oABT FONT o_TEXTO_ARIAL; COLOR CLR_PRETO, CLR_GETS UPDATE //Obs endereco ID_CODIGO := 2000 ID_CANTIDAD:= 5000 oCodigo := array(13) oQuanti := array(13) ***** Aqui neste For - Next esta o meu problema ******* for m_cont := 1 to len(a_Dados[2])-1 m_macro1 := 'a_dados[2]['+alltrim(str(m_cont))+',1]' ID_CODIGO ++ ID_CANTIDAD++ REDEFINE GET oDatos[2][m_cont,1] VAR a_dados[2][m_cont,1] ID ID_Codigo OF oAbt picture '@K@!' // valid cod_manager( lComple, nValor, a_dados, @a_reserva ) REDEFINE GET oDatos[2][m_cont,2] VAR a_dados[2][m_cont,2] ID ID_CANTIDAD OF oAbt picture '@Z 999' //when !empty(&m_macro1) // valid can_manager( lComple, nValor, a_dados, @a_reserva, row()-9 ) msginfo(a_dados[2][m_cont,1]) 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>Tentei capturar a tela com Print Screen mas não conseguí, alguem sabe como? 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. Editado por - daniel_halon on 22/03/2008 23:01:54 Editado por - daniel_halon on 22/03/2008 23:02:28 Editado por - daniel_halon on 22/03/2008 23:04:48

Holá Kapiaba, podes mandar por e-mail para mim?, ficou tri-legal, até parece ser feito por alguem que sabe um poquinho, rsrsrsr Obrg, 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.

STATIC FUNCTION APAGA() IF NETUSE("CALEN","LENCA",.T.,10)****Aqui não esta em uso? FERASE("LENCA.CDX") id=code>id=code>Eu acho que a DBF esta aberta 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 Kapiaba, não tinha nem passado pela minha cabeça, são mais de 60 variaveis, assim fica muito mais facil. Meu problema não foi nao enxergar o cara que estava sentado no burro, o problema mesmo foi não enxergar o burro. vou aplicar teu conselho, obrigado, na medida que apareçam os problemas, voy prender um grito por ahi. 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 ficou assim, dem uma olhada para vers se estou certo REDEFINE SAY oData Prompt Data ID 101 OF oAbt FONT O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTurno Prompt Turno ID 102 OF oAbt font o_texto_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oPre VAR Pre ID 4003 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oAcumulado VAR a_dados[1,30] ID 3001 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE GET oFone 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) COLOR CLR_AZULXP, CLR_GETS REDEFINE GET oNome VAR A_DADOS[1,3] ID 1002 OF oABT FONT o_TEXTO_ARIAL COLOR CLR_PRETO, CLR_GETS UPDATE REDEFINE GET oEnde VAR A_DADOS[1,4] ID 1003 OF oABT FONT o_TEXTO_ARIAL COLOR CLR_PRETO, CLR_GETS UPDATE REDEFINE GET oBairro VAR A_DADOS[1,5] ID 1005 OF oABT FONT o_TEXTO_ARIAL COLOR CLR_PRETO, CLR_GETS UPDATE REDEFINE GET oObsEnde VAR A_DADOS[1,12] ID 1004 OF oABT FONT o_TEXTO_ARIAL COLOR CLR_PRETO, CLR_GETS UPDATE REDEFINE BTNBMP RESOURCE "BAR_OK" ID 5000 TOP OF oAbt ; TOOLTIP "Confirma"//; // ACTION (oDlgBairro:End()) NOBORDER REDEFINE BTNBMP RESOURCE "BAR_EXCLUIR2" ID 6000 TOP OF oAbt ; TOOLTIP "Cancelar"; ACTION (lSalir:=.T., oAbt:End()) CANCEL //NOBORDER oFone:cToolTip := "Digite o Telefone" Activate DIALOG oAbt VALID (lSalir) Return NIL /////////////////////////////////////////////////////////////////////////////// // check_cliente() // /////////////////////////////////////////////////////////////////////////////// function check_cliente(lComple, p_comple, a_dados, oABT) Local m_key Local n_largo DEFINE FONT O_TEXTO_NORMAL NAME "MS SANS SERIF" SIZE 06,-06 DEFINE FONT O_TEXTO_MEDIO NAME "MS SANS SERIF" SIZE 9,16 Bold DEFINE FONT O_TEXTO_GRANDE NAME "ARIAL" SIZE 12,28 BOLD //////////////////////////////////// // a_dados // // 1 - dados do cliente // // 1 - telefone x09 // // 2 - ramal(em desuso) x04 // // 3 - nome x30 // // 4 - endereco x50 // //////////////////////////////////// IF empty(a_dados[1,1]) .or. alltrim(a_dados[1,1]) == '-' msginfo('Fone vazio') oFone:setfocus() return .f. ENDIF IF empty(lComple) lComple := FALSE ENDIF // // ZERA OS VALORES // a_dados[ 6, 4 ] := 0 a_dados[ 1, 7 ] := ctod( '' ) select tele0010 dbsetorder(1) m_key := a_dados[1,1] + a_dados[1,2] IF dbseek( m_key ) IF lComple == FALSE // Se nao e complemento... a_dados[1,03] := a_nome__10 // nome a_dados[1,04] := a_ende__10 // endereco a_dados[1,05] := a_bairro10 // bairro a_dados[1,10] := a_conta_10 // numero de conta convenio a_dados[1,18] := a_nramal10 // nro do ramal a_dados[1,29] := a_conve_10 // empresa do convenio a_dados[1,30] := a_acumu_10 ENDIF a_dados[1,06] := a_obs___10 // info (memo) a_dados[1,07] := a_ultnum10 // ultimo pedido //a_dados[1,08] := a_guia__10 // guia a_dados[1,30] := a_acumu_10 // valor acumulado promocao a_dados[6,04] := a_cred__10 // valor do credito a_dados[3,01] := a_desc__10 // valor do desconto a_dados[1,11] := a_cpfcgc10 // cgc/cpf a_dados[1,18] := a_nramal10 // Nro ramal a_dados[1,12] := a_obsend10 // obs.endereco //a_dados[1,13] := a_banco_10 // banco a_dados[1,14] := a_obscli10 // preferencias do cliente a_dados[1,23] := a_email_10 // e-mail // oFone:Disable() ELSE a_dados[1,03] := "" // nome a_dados[1,04] := "" // endereco a_dados[1,05] := "" // BAIRRO a_dados[1,12] := "" // oBS endereco a_dados[1,30] := "" // Acumulado na promoçao ENDIF // Msginfo(a_dados[1,3]) oNome:Refresh() oEnde:Refresh() oBairro:Refresh() oObsEnde:Refresh() oAcumulado:Refresh Return .t. id=code>id=code>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 amigos, o caminho das pedras não e o mais bonito, mas que fica gravado fica mesmo 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.

Olá amigos, como sempre pedindo um s.o.s Estou iniciando com REDEFINE SAY E GET, porem tenho alguns problemas básicos que não conseguí solucionar com os samples, vai ahi os fontes DEFINE FONT O_TEXTO_NORMAL NAME "MS SANS SERIF" SIZE 06,-06 DEFINE FONT O_TEXTO_MEDIO NAME "MS SANS SERIF" SIZE 9,16 Bold DEFINE FONT O_TEXTO_GRANDE NAME "ARIAL" SIZE 12,28 BOLD DEFINE DIALOG oAbt RESOURCE "PEDIDOS" FONT O_FONTE NORMAL //Informações varias REDEFINE SAY oData Prompt Data ID 101 OF oAbt FONT O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTurno Prompt Turno ID 102 OF oAbt font o_texto_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oPre VAR Pre ID 4003 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS //// Estes REDEFINES funcionam OK REDEFINE GET oFone 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) UPDATE COLOR CLR_AZULXP, CLR_GETS ***Neste redefine get entro com o telefone e com a função CHECK_CLIENTE faço o seek mais abaixo... REDEFINE BTNBMP RESOURCE "BAR_OK" ID 5000 TOP OF oAbt ; TOOLTIP "Confirma"//; // ACTION (oDlgBairro:End()) NOBORDER REDEFINE BTNBMP RESOURCE "BAR_EXCLUIR2" ID 6000 TOP OF oAbt ; TOOLTIP "Cancelar"; ACTION (lSalir:=.T., oAbt:End()) CANCEL //NOBORDER oFone:cToolTip := "Digite o Telefone" Activate DIALOG oAbt VALID (lSalir) Return NIL /////////////////////////////////////////////////////////////////////////////// // check_cliente() // /////////////////////////////////////////////////////////////////////////////// function check_cliente(lComple, p_comple, a_dados, oABT) Local m_key Local n_largo DEFINE FONT O_TEXTO_NORMAL NAME "MS SANS SERIF" SIZE 06,-06 DEFINE FONT O_TEXTO_MEDIO NAME "MS SANS SERIF" SIZE 9,16 Bold DEFINE FONT O_TEXTO_GRANDE NAME "ARIAL" SIZE 12,28 BOLD //////////////////////////////////// // a_dados // // 1 - dados do cliente // // 1 - telefone x09 // // 2 - ramal(em desuso) x04 // // 3 - nome x30 // // 4 - endereco x50 // // 5 - bairro x25 // // 6 - info (memo) xxx // //////////////////////////////////// IF empty(a_dados[1,1]) .or. alltrim(a_dados[1,1]) == '-' msginfo('Fone vazio') oFone:setfocus() return .f. ENDIF IF empty(lComple) lComple := FALSE ENDIF // // ZERA OS VALORES // a_dados[ 6, 4 ] := 0 a_dados[ 1, 7 ] := ctod( '' ) select tele0010 dbsetorder(1) m_key := a_dados[1,1] + a_dados[1,2] IF dbseek( m_key, .F. ) IF lComple == FALSE // Se nao e complemento... a_dados[1,03] := a_nome__10 // nome a_dados[1,04] := a_ende__10 // endereco a_dados[1,05] := a_bairro10 // bairro a_dados[1,10] := a_conta_10 // numero de conta convenio a_dados[1,18] := a_nramal10 // nro do ramal a_dados[1,29] := a_conve_10 // empresa do convenio ENDIF oFone:Disable() ENDIF Msginfo(a_dados[1,3]) //aqui verifico se realmente esta o nome no array REDEFINE SAY oNome PROMPT A_DADOS[1,3] ID 1002 OF oABT FONT o_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS UPDATE id=code>id=code>Este ultimo REDEFINE SAY deveria apresentar o nome do cliente na tela, porem nada acontece, so fica piscando o cursor. O que estou fazendo de 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.

Olá amigos, como sempre pedindo um s.o.s Estou iniciando com REDEFINE SAY E GET, porem tenho alguns problemas básicos que não conseguí solucionar com os samples, vai ahi os fontes DEFINE FONT O_TEXTO_NORMAL NAME "MS SANS SERIF" SIZE 06,-06 DEFINE FONT O_TEXTO_MEDIO NAME "MS SANS SERIF" SIZE 9,16 Bold DEFINE FONT O_TEXTO_GRANDE NAME "ARIAL" SIZE 12,28 BOLD DEFINE DIALOG oAbt RESOURCE "PEDIDOS" FONT O_FONTE NORMAL //Informações varias REDEFINE SAY oData Prompt Data ID 101 OF oAbt FONT O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oTurno Prompt Turno ID 102 OF oAbt font o_texto_MEDIO COLOR CLR_PRETO, CLR_GETS REDEFINE SAY oPre VAR Pre ID 4003 OF oAbt font O_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS //// Estes REDEFINES funcionam OK REDEFINE GET oFone 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) UPDATE COLOR CLR_AZULXP, CLR_GETS ***Neste redefine get entro com o telefone e com a função CHECK_CLIENTE faço o seek mais abaixo... REDEFINE BTNBMP RESOURCE "BAR_OK" ID 5000 TOP OF oAbt ; TOOLTIP "Confirma"//; // ACTION (oDlgBairro:End()) NOBORDER REDEFINE BTNBMP RESOURCE "BAR_EXCLUIR2" ID 6000 TOP OF oAbt ; TOOLTIP "Cancelar"; ACTION (lSalir:=.T., oAbt:End()) CANCEL //NOBORDER oFone:cToolTip := "Digite o Telefone" Activate DIALOG oAbt VALID (lSalir) Return NIL /////////////////////////////////////////////////////////////////////////////// // check_cliente() // /////////////////////////////////////////////////////////////////////////////// function check_cliente(lComple, p_comple, a_dados, oABT) Local m_key Local n_largo DEFINE FONT O_TEXTO_NORMAL NAME "MS SANS SERIF" SIZE 06,-06 DEFINE FONT O_TEXTO_MEDIO NAME "MS SANS SERIF" SIZE 9,16 Bold DEFINE FONT O_TEXTO_GRANDE NAME "ARIAL" SIZE 12,28 BOLD //////////////////////////////////// // a_dados // // 1 - dados do cliente // // 1 - telefone x09 // // 2 - ramal(em desuso) x04 // // 3 - nome x30 // // 4 - endereco x50 // // 5 - bairro x25 // // 6 - info (memo) xxx // //////////////////////////////////// IF empty(a_dados[1,1]) .or. alltrim(a_dados[1,1]) == '-' msginfo('Fone vazio') oFone:setfocus() return .f. ENDIF IF empty(lComple) lComple := FALSE ENDIF // // ZERA OS VALORES // a_dados[ 6, 4 ] := 0 a_dados[ 1, 7 ] := ctod( '' ) select tele0010 dbsetorder(1) m_key := a_dados[1,1] + a_dados[1,2] IF dbseek( m_key, .F. ) IF lComple == FALSE // Se nao e complemento... a_dados[1,03] := a_nome__10 // nome a_dados[1,04] := a_ende__10 // endereco a_dados[1,05] := a_bairro10 // bairro a_dados[1,10] := a_conta_10 // numero de conta convenio a_dados[1,18] := a_nramal10 // nro do ramal a_dados[1,29] := a_conve_10 // empresa do convenio ENDIF oFone:Disable() ENDIF Msginfo(a_dados[1,3]) //aqui verifico se realmente esta o nome no array REDEFINE SAY oNome PROMPT A_DADOS[1,3] ID 1002 OF oABT FONT o_TEXTO_MEDIO COLOR CLR_PRETO, CLR_GETS UPDATE id=code>id=code>Este ultimo REDEFINE SAY deveria apresentar o nome do cliente na tela, porem nada acontece, so fica piscando o cursor. O que estou fazendo de 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 Ale, era iso ahi, vivendo e aprendendo tche, faz uma semana que estou queimando os neuronios (so restou 1). 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.

Obrigado pessoal pelas respostas. Estou trabalhando com Button nativo window main Ale, o tamanho dos Bmp e 32x32, o resto esta tudo igual aos exemplos de vcs, porem o prompt cai bem no meio do buttom, outra coisa que não entendo e o 2007 do exemplo que colocaste, deve-se colocar na declaração ? Estou tentando colar a imagem que capturei com Print Sreen e não consigo, algem sabe como fazer isto? 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. Editado por - daniel_halon on 19/02/2008 19:40:07 Editado por - daniel_halon on 19/02/2008 19:52:25 Editado por - daniel_halon on 19/02/2008 19:56:17

Ficou complicado de entender, vai ahi... DEFINE BUTTON OF oBar RESOURCE "BAIRROS32" , Prompt "Bairros" ACTION Lista_bairros(); TOOLTIP "Pesquisa Bairros"; NOBORDER id=code>id=code>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á amigos, preciso de ajuda, alguem pode me orientar como fazer para que o prompt do botton fique abaixo do BMP e não no meio?, vai o exemplo... DEFINE WINDOW oWnd ; TITLE "Pizzaria PortoBakers"; FROM 1, 5 TO 20, 70; MENU MenuMain(oWnd) ; ICON oIcon; BRUSH oBrush; DEFINE BUTTONBAR oBar 3D SIZE 70,60 OF oWnd DEFINE BUTTON OF oBar RESOURCE "BAR_grupo" ACTION Ped_Inc(.f.) ; TOOLTIP "InclusÒo de Pedidos"; NOBORDER DEFINE BUTTON OF oBar RESOURCE "BAR_CLIENTE" ACTION Ped_Inc(.f.); TOOLTIP "Pesquisa em Tela Fornecedores"; NOBORDER DEFINE BUTTON OF oBar RESOURCE "BAIRROS32" , prompt "Bairros" ACTION Lista_bairros(); TOOLTIP "Pesquisa Bairros"; NOBORDER DEFINE BUTTON OF oBar RESOURCE "BAR_PRODUTO" ACTION Ped_Inc(.f.) ; TOOLTIP "Pesquisa em Tela Produtos"; NOBORDER GROUP DEFINE BUTTON OF oBar RESOURCE "BAR_ORCAMENTO" Action Ped_Inc(.f.) ; TOOLTIP "Sistema de Vendas"; NOBORDER * DEFINE BUTTON OF oBar RESOURCE "BAR_ATENCAO" ACTION Informe() ; * TOOLTIP OemToAnsi( "Informação Sobre o Sistema" ) ; * NOBORDER GROUP DEFINE BUTTON OF oBar RESOURCE "BAR_CALCU" ACTION WinExec("Calc.exe"); TOOLTIP "Calculadora do Sistema"+ CRLF+; "Acione Tambem Pela Tecla F9"; NOBORDER GROUP id=code>id=code> 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á amigos, preciso de ajuda, alguem pode me orientar como fazer para que o prompt do botton fique abaixo do BMP e não no meio?, vai o exemplo... DEFINE WINDOW oWnd ; TITLE "Pizzaria PortoBakers"; FROM 1, 5 TO 20, 70; MENU MenuMain(oWnd) ; ICON oIcon; BRUSH oBrush; DEFINE BUTTONBAR oBar 3D SIZE 70,60 OF oWnd DEFINE BUTTON OF oBar RESOURCE "BAR_grupo" ACTION Ped_Inc(.f.) ; TOOLTIP "InclusÒo de Pedidos"; NOBORDER DEFINE BUTTON OF oBar RESOURCE "BAR_CLIENTE" ACTION Ped_Inc(.f.); TOOLTIP "Pesquisa em Tela Fornecedores"; NOBORDER DEFINE BUTTON OF oBar RESOURCE "BAIRROS32" , prompt "Bairros" ACTION Lista_bairros(); TOOLTIP "Pesquisa Bairros"; NOBORDER DEFINE BUTTON OF oBar RESOURCE "BAR_PRODUTO" ACTION Ped_Inc(.f.) ; TOOLTIP "Pesquisa em Tela Produtos"; NOBORDER GROUP DEFINE BUTTON OF oBar RESOURCE "BAR_ORCAMENTO" Action Ped_Inc(.f.) ; TOOLTIP "Sistema de Vendas"; NOBORDER * DEFINE BUTTON OF oBar RESOURCE "BAR_ATENCAO" ACTION Informe() ; * TOOLTIP OemToAnsi( "Informação Sobre o Sistema" ) ; * NOBORDER GROUP DEFINE BUTTON OF oBar RESOURCE "BAR_CALCU" ACTION WinExec("Calc.exe"); TOOLTIP "Calculadora do Sistema"+ CRLF+; "Acione Tambem Pela Tecla F9"; NOBORDER GROUP id=code>id=code> 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.

Grandes gestos como este, fazem desta comunidade a melhor do mundo e com certeza muita gente vai agradecer. Eu estou na fila. Obrigado. Posso baixar contigo e colocar no meu site para que todos que desejarem fazam download. Daniel daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles - workshop. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Valeu Aferra daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles - workshop. A vida esta feita de pequenos momentos de felicidade, o resto e pura luta.

Viol, e isso mesmo que acontece, eu peguei a dll que o ico me enviou e fiz a mesma coisa, e um pouco difícil definir o qual o problema, se copio dentro da dll só um bitmap e após salvo, tudo funciona ok quando insiro varios item tanto bmp como dialog, da esse mesmo erro que tu mencionaste. abraços, Daniel daniel_halon@portobakers.com.br FiveWin xHarbour 0.99.71 Pelles - workshop

Alguem pode me orientar aonde colocar as informações em MEU PERFIL para aparecerem no rodape?

Antes de nada quero agradecer as boas vindas, e a rapidez das respostas. Estou usando FW 2.7 xHarbour 0.99.71 e tentando usar workshop 4.5, peguei a dll do fw "screen32.dll" e fiz uma cópia ficou sistema.dll, copiei de outra dll alguns bitmap e um dialog, após salvei o projecto e quando abri o executável apareceu o seguinte erro O aplicativo ou dll sistema.dll não é uma imagem válida para o windows. Compare com o disco de instalação Porém se troco a dll funciona ok