jfaguiar

Problema resolvido Obrigado.

Olá Ribeiro. Sem qerer abusar, vc não poderia dar um exemplosinho? De qq forma agradeço sua cooperação!

Olá pessoal. Em uma ListBox como no exemplo abaixo é possível tomar uma decisão conforme uma tecla pressionada como se fazia nas velhas e boas DbEdits() do Clipper ? Muito obrigado REDEFINE LISTBOX oLbx ; FIELDS cli->codigo,cli->nome ; SIZES 56, 320 ; HEADERS "CÓDIGO", "NOME DO CLIENTE" ; ID 101 OF oDlg

Olá pessoal. Em uma ListBox como no exemplo abaixo é possível tomar uma decisão conforme uma tecla pressionada como se fazia nas velhas e boas DbEdits() do Clipper ? Muito obrigado REDEFINE LISTBOX oLbx ; FIELDS cli->codigo,cli->nome ; SIZES 56, 320 ; HEADERS "CÓDIGO", "NOME DO CLIENTE" ; ID 101 OF oDlg

Olá Alessandro. Segue abaixo o inicio do código: Se eu tirar o comando PREVIEW imprime normal Grato amigo PRINT oPrn NAME "LAN€AMENTOS "+aOpcoes[vOpFilt]+" NO PERIODO "+Dtoc(dDatai)+" A "+Dtoc(dDataf) PREVIEW nTam := 18 nTamRel := 136 nTamPag := 70 // DO WHILE .T. DEFINE FONT oFont NAME "ARIAL" SIZE nTam,-10 OF oPrn oPrn:SetFont(oFont) nLen := oPrn:GetTextWidth("B",oPrn:oFont) IF oPrn:nHorzRes()/nLen < nTamRel nTam-= 0.05 oFont:End() ELSE EXIT ENDIF ENDDO // IF empty( oPrn:hDC ) MsgStop( "Impressora não pronta!" ) RETURN nil ENDIF // SELECT TMPCREC GO TOP // nTOTVENC :=nOSCVEN := 0 DO WHILE !EOF() PAGE ...

Olá amigos Converti alguns relatórios de Clipper 5.2e para Harbour 7.01, mas dar o seguinte erro quando uso a clausula PREVIEW: Error base 1004 - Message not found TPRINTER:CARGO Se alguém tiver uma solução ficarei muito grato. Muito Obrigado.

Olá amigos Converti alguns relatórios de Clipper 5.2e para Harbour 7.01, mas dar o seguinte erro quando uso a clausula PREVIEW: Error base 1004 - Message not found TPRINTER:CARGO Se alguém tiver uma solução ficarei muito grato. Muito Obrigado.

Problema solucionado com sucesso. Conforme a variável que está em foco, ao press. f3 o sistema abre a tabela correspondente e uma LISTBOX para visualização e pesquisa pelo nome ou pelo código! Vou melhorar o rotina para que em um único código, sem os CASES da vida, o sistema faça a mesma caisa. Muito obrigado aos que me ajudaram. Se alguém precisar da rotina me contacte que eu mando.

Olá meus caros. O que devo fazer para as acentuações sairem corretamente na tela. Ainda vou ficar bom disso! Grato

Olá meus caros. O que devo fazer para as acentuações sairem corretamente na tela. Ainda vou ficar bom disso! Grato

Problema resolvido Obrigado pessoal

Olá pessoal. Tô com um probleminha quando executo o programa nos RADIOS abaixo: Quando seleciono um, desmarca o outro. Alguém pode me dizer o que eu estou fazendo errando? Obrigado amigos. ... DEFINE DIALOG oDlg RESOURCE "FINR110" OF oWnd oDlg:Cargo := .F. REDEFINE RADIO oRad VAR vOpFilt ID 101,102,103 OF oDlg REDEFINE RADIO oRadd VAR VOPCDEST ID 112,113,114,115 OF oDlg REDEFINE GET dDatai ID 104 OF oDlg PICTURE "99/99/99" VALID .NOT. Empty(dDatai) ...

Olá pessoal. Tô com um probleminha quando executo o programa nos RADIOS abaixo: Quando seleciono um, desmarca o outro. Alguém pode me dizer o que eu estou fazendo errando? Obrigado amigos. ... DEFINE DIALOG oDlg RESOURCE "FINR110" OF oWnd oDlg:Cargo := .F. REDEFINE RADIO oRad VAR vOpFilt ID 101,102,103 OF oDlg REDEFINE RADIO oRadd VAR VOPCDEST ID 112,113,114,115 OF oDlg REDEFINE GET dDatai ID 104 OF oDlg PICTURE "99/99/99" VALID .NOT. Empty(dDatai) ...

Olá meus caros. Existe algum problema em rodar meus dbfs/cdx em um sistema em clipper 5.2 e Blinker 6.0 e em um sistema que tô fazendo em Harbour 7.02? E quanto a instalação do ADS, tenho que instlar em todas a maquinas? Quanto ao número de maquinas o ADS local suporta ser acessado com quantas maquinas? Quem poder me responder agradeço. Sou novo aqui no FWH, clipeiro de carteirinha. Só tenho a agradecer pela grande atenção dispensada por vocês. Muito obrigado!

Olá meus caros. Existe algum problema em rodar meus dbfs/cdx em um sistema em clipper 5.2 e Blinker 6.0 e em um sistema que tô fazendo em Harbour 7.02? E quanto a instalação do ADS, tenho que instlar em todas a maquinas? Quanto ao número de maquinas o ADS local suporta ser acessado com quantas maquinas? Quem poder me responder agradeço. Sou novo aqui no FWH, clipeiro de carteirinha. Só tenho a agradecer pela grande atenção dispensada por vocês. Muito obrigado!

Olá Kapiaba. Vc é rápido como um raio! rsrs Eu uso o Fivewin for Harbour 7.01 vr. de abril/2007. Obrigado.

Olá amigos Estou tentado criar uma rotina de pesquisa que execute uma determinada ação conforme a variável em foco. Tô tentando este código, mas acredito que não enviei algum parâmetro. Dar o seguinte erro em helpger() qdo executo: Error BASE/1004 No exported method: HWND Qq ajuda será bem vinda. Grato João // ... // Meu programa princial DEFINE DIALOG oDlg RESOURCE "FINR110" OF oWnd oDlg:Cargo := .F. REDEFINE RADIO oRad VAR vOpFilt ID 101,102,103 OF oDlg REDEFINE GET dDatai ID 104 OF oDlg PICTURE "99/99/99" REDEFINE GET dDataf ID 105 OF oDlg PICTURE "99/99/99" REDEFINE GET VCDCCT ID 108 OF oDlg PICTURE "9" REDEFINE GET VCDCOBR ID 109 OF oDlg PICTURE "99" REDEFINE GET VCDBANC ID 110 OF oDlg PICTURE "9999" REDEFINE GET VCDCLI ID 111 OF oDlg PICTURE "999999" // REDEFINE BUTTON ID 106 OF oDlg ACTION ( oDlg:Cargo := .T., oDlg:End() ) REDEFINE BUTTON ID 107 OF oDlg ACTION ( oDlg:End() ) SETKEY(VK_F3,{||HelpGer( oDlg )}) ACTIVATE DIALOG oDlg CENTERED // ... ***************************************************** PROCEDURE HelpGer( oDlg ) // Minha rotina de pesquisa oCtl :=oDlg:oCtlFocus() DO CASE CASE (oCtl:hWnd = VCDCLI:hWnd) MsgAlert("To no codigo do cliente") CASE (oCtl:hWnd = VCDBANC:hWnd) MsgAlert("To no codigo do banco") ENDCASE // ... RETURN **********************************************

Olá amigos Estou tentado criar uma rotina de pesquisa que execute uma determinada ação conforme a variável em foco. Tô tentando este código, mas acredito que não enviei algum parâmetro. Dar o seguinte erro em helpger() qdo executo: Error BASE/1004 No exported method: HWND Qq ajuda será bem vinda. Grato João // ... // Meu programa princial DEFINE DIALOG oDlg RESOURCE "FINR110" OF oWnd oDlg:Cargo := .F. REDEFINE RADIO oRad VAR vOpFilt ID 101,102,103 OF oDlg REDEFINE GET dDatai ID 104 OF oDlg PICTURE "99/99/99" REDEFINE GET dDataf ID 105 OF oDlg PICTURE "99/99/99" REDEFINE GET VCDCCT ID 108 OF oDlg PICTURE "9" REDEFINE GET VCDCOBR ID 109 OF oDlg PICTURE "99" REDEFINE GET VCDBANC ID 110 OF oDlg PICTURE "9999" REDEFINE GET VCDCLI ID 111 OF oDlg PICTURE "999999" // REDEFINE BUTTON ID 106 OF oDlg ACTION ( oDlg:Cargo := .T., oDlg:End() ) REDEFINE BUTTON ID 107 OF oDlg ACTION ( oDlg:End() ) SETKEY(VK_F3,{||HelpGer( oDlg )}) ACTIVATE DIALOG oDlg CENTERED // ... ***************************************************** PROCEDURE HelpGer( oDlg ) // Minha rotina de pesquisa oCtl :=oDlg:oCtlFocus() DO CASE CASE (oCtl:hWnd = VCDCLI:hWnd) MsgAlert("To no codigo do cliente") CASE (oCtl:hWnd = VCDBANC:hWnd) MsgAlert("To no codigo do banco") ENDCASE // ... RETURN **********************************************

Olá Paulo. O amigãp dar só mais uma forcinha, tô quase conseguindo. Fiz o exemplo q vc me mandou, mas acredito que não enviei algum parâmetro. Dar o seguinte erro em helpger() qdo executo: Error BASE/1004 No exported method: HWND // ... // Meu programa princial DEFINE DIALOG oDlg RESOURCE "FINR110" OF oWnd oDlg:Cargo := .F. REDEFINE RADIO oRad VAR vOpFilt ID 101,102,103 OF oDlg REDEFINE GET dDatai ID 104 OF oDlg PICTURE "99/99/99" REDEFINE GET dDataf ID 105 OF oDlg PICTURE "99/99/99" REDEFINE GET VCDCCT ID 108 OF oDlg PICTURE "9" REDEFINE GET VCDCOBR ID 109 OF oDlg PICTURE "99" REDEFINE GET VCDBANC ID 110 OF oDlg PICTURE "9999" REDEFINE GET VCDCLI ID 111 OF oDlg PICTURE "999999" // REDEFINE BUTTON ID 106 OF oDlg ACTION ( oDlg:Cargo := .T., oDlg:End() ) REDEFINE BUTTON ID 107 OF oDlg ACTION ( oDlg:End() ) SETKEY(VK_F3,{||HelpGer( oDlg )}) ACTIVATE DIALOG oDlg CENTERED // ... ***************************************************** PROCEDURE HelpGer( oDlg ) // Minha rotina de pesquisa oCtl :=oDlg:oCtlFocus() DO CASE CASE (oCtl:hWnd = VCDCLI:hWnd) MsgAlert("To no codigo do cliente") CASE (oCtl:hWnd = VCDBANC:hWnd) MsgAlert("To no codigo do banco") ENDCASE // ... RETURN **********************************************

Olá pessoal. Tô convertendo meus códigos para o harbour e me deparei com um problema na funcação READVAR() do Clipper5.2. Essa função retorna o nome da variável que está sendo editada no momento, veja bem, O NOME e não o conteúdo, muito utilizada em helps/pesquisa de tabelas invocada por um F1, F2 etc. Nos foruns já postados não consegui uma solução adequada. Por acaso, se isto não for possível em harbour, não seria possivel através de uma sub-rotina invocada por f3, por exemplo, se obter o número do ID que esta em foco? Isto resolveria meu problema, pois eu poderia atribuir sempre para o código do cliente o ID 103, codido do vendedor, ID 104 e assim por diante. Desde já agradeço que puder me ajudar Harbraço. Editado por - jfaguiar on 20/06/2007 17:05:00

Olá pessoal. Tô convertendo meus códigos para o harbour e me deparei com um problema na funcação READVAR() do Clipper5.2. Essa função retorna o nome da variável que está sendo editada no momento, veja bem, O NOME e não o conteúdo, muito utilizada em helps/pesquisa de tabelas invocada por um F1, F2 etc. Nos foruns já postados não consegui uma solução adequada. Por acaso, se isto não for possível em harbour, não seria possivel através de uma sub-rotina invocada por f3, por exemplo, se obter o número do ID que esta em foco? Isto resolveria meu problema, pois eu poderia atribuir sempre para o código do cliente o ID 103, codido do vendedor, ID 104 e assim por diante. Desde já agradeço que puder me ajudar Harbraço. Editado por - jfaguiar on 20/06/2007 17:05:00

Problema resolvido amigos. Foi só uma cabacisse minha. Obrigado.

Olá Alessandro. Para solucionar o problema estou fazendo a indexação num executavel a parte do sistema. Parou de dar o erro. Vc deve tá se perguntando mas como... É que meu sistema é executado a partir de um .bat com uma linha após a chamada do .exe q verifica se o exe criou um .bat a ser executado. Neste bat criado pelo sistema eu executo o INDEXARQ.EXE e volto novamente para o sistema. Muito obigado pela força pessoal.

Olá pessoal. Tô com um probleminha para abrir meus arquivos ques estão no meu servidor em H:\SISCOM\ARQBHCDX. Nota o mapeamento da rede ja está feito como h: Tentei usar SET DEFAULT TO H:\SISCOM\ARQBHCDX mas nao funcionou. Dar o erro abaixo: Se alguém puder me ajudar, agradeço. abço. Path and name: C:\FWH\SCR.exe (32 bits) Size: 1,212,416 bytes Time from start: 0 hours 0 mins 5 secs Error occurred at: 14/06/07, 17:14:11 Error description: Error ADSCDX/5004 Open error: CLIENTES Stack Calls =========== Called from: => DBUSEAREA(0) Called from: funcoes.prg => USE_ARQ(11) Called from: scr110.prg => SCR110(12) Called from: scr.prg => (b)MAIN(36) Called from: => TMENU:COMMAND(0) Called from: => TWINDOW:COMMAND(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: => TWINDOW:ACTIVATE(0) Called from: scr.prg => MAIN(107)

Olá pessoal. Tô com um probleminha para abrir meus arquivos ques estão no meu servidor em H:\SISCOM\ARQBHCDX. Nota o mapeamento da rede ja está feito como h: Tentei usar SET DEFAULT TO H:\SISCOM\ARQBHCDX mas nao funcionou. Dar o erro abaixo: Se alguém puder me ajudar, agradeço. abço. Path and name: C:\FWH\SCR.exe (32 bits) Size: 1,212,416 bytes Time from start: 0 hours 0 mins 5 secs Error occurred at: 14/06/07, 17:14:11 Error description: Error ADSCDX/5004 Open error: CLIENTES Stack Calls =========== Called from: => DBUSEAREA(0) Called from: funcoes.prg => USE_ARQ(11) Called from: scr110.prg => SCR110(12) Called from: scr.prg => (b)MAIN(36) Called from: => TMENU:COMMAND(0) Called from: => TWINDOW:COMMAND(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: => TWINDOW:ACTIVATE(0) Called from: scr.prg => MAIN(107)