agp.ds
Membros-
Posts
132 -
Joined
-
Last visited
-
Days Won
2
Everything posted by agp.ds
-
Olá, se é que entendi, para imprimir retangulo eu faço assim: #include "FiveWin.ch" //-> FUNÇÃO PARA IMPRIMIR RETANGULO ** FUNCTION RETANGULO(LIX,CIX,FONTEX) SAIDA:BOX(LIX*FONTEX:nHeight,CIX*FONTEX:nWidth,(LIX*FONTEX:nHeight)+40,(CIX*FONTEX:nWidth)+40,,) RETURN NIL //-> FIM DO RETANGULO ///************************************************************************ FUNCTION IMP_RET() DEFINE FONT NORMAL NAME "ARIAL" SIZE 7,21 PRINT SAIDA NAME "<< RETANGULOS >>"PREVIEW public nRowstep:=saida:nVertRes() / 67 public nColstep:=saida:nHorzRes() / 120 FinPag:=saida:nVertRes() PAGE F_LINHA:=2 IMPRIMA(F_LINHA,2,"Impressão de retangulos **",NORMAL) F_LINHA:=F_LINHA+2 RETANGULO(F_LINHA,05,NORMAL) // ret 01 RETANGULO(F_LINHA,30,NORMAL) // ret 02 RETANGULO(F_LINHA,50,NORMAL) // ret 03 RETANGULO(F_LINHA,70,NORMAL) // ret 04 IMPRIMA(F_LINHA,11,("OPÇÃO 01"),NORMAL) IMPRIMA(F_LINHA,36,("OPÇÃO 02"),NORMAL) IMPRIMA(F_LINHA,56,("OPÇÃO 03"),NORMAL) IMPRIMA(F_LINHA,76,("OPÇAO 04"),NORMAL) ENDPAGE ENDPRINT NORMAL:End() RETURN NIL Agnaldo
-
obrigado Alessandro, vou testar Agnaldo
-
desculpe a ignorancia mas onde mudo isto? agnaldo@infogui.com.br Clipper ® 5.3b (Rev. 338) & Blinker 7.0 & FWH 2.3c - October 2002 Agnaldo
-
Pessoal estou tentado compilar co o Xharbour mas estou tendo o seguinte erro abaixo seria a versão do FW minha??? xHarbour Compiler build 0.99.70 (SimpLex) Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'TSTOK.PRG'... FIVEWIN.CH(193) Error F0023 Unknown result marker in #directive agnaldo@infogui.com.br Clipper ® 5.3b (Rev. 338) & Blinker 7.0 & FWH 2.3c - October 2002 Agnaldo
-
Pessoal estou tentado compilar co o Xharbour mas estou tendo o seguinte erro abaixo seria a versão do FW minha??? xHarbour Compiler build 0.99.70 (SimpLex) Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'TSTOK.PRG'... FIVEWIN.CH(193) Error F0023 Unknown result marker in #directive agnaldo@infogui.com.br Clipper ® 5.3b (Rev. 338) & Blinker 7.0 & FWH 2.3c - October 2002 Agnaldo
-
Desde ja agradeço a ajuda de todos... bem pretendo usar o xHarbour + Bcc 5.5.1 + Fivewin, se possivel. quanto a instrução function nomeprograma() devo colocar em todos os meus PRGs é istto? Agnaldo Agnaldo
-
Desde ja agradeço a ajuda de todos... bem pretendo usar o xHarbour + Bcc 5.5.1 + Fivewin, se possivel. quanto a instrução function nomeprograma() devo colocar em todos os meus PRGs é istto? Agnaldo Agnaldo
-
Desde ja agradeço a ajuda de todos... bem pretendo usar o xHarbour + Bcc 5.5.1 + Fivewin, se possivel. quanto a instrução function nomeprograma() devo colocar em todos os meus PRGs é istto? Agnaldo
-
Boa tarde a todos... gostaria de saber mais informações de como faço pra migrar minha aplicação para o xharbour uma vez que ja tenho instalado e configurado o Bcc55. Bem minha duvida é se posso usar meus PGRs ou tenho que refaze-los, e para gerar o exe uso o blinker mesmo ou outro, enfim minhas duvidas são muitas... se puderem me ajudarem agradeço pois fiquei muito interessado no assunto. Agnaldo
-
Boa tarde a todos... gostaria de saber mais informações de como faço pra migrar minha aplicação para o xharbour uma vez que ja tenho instalado e configurado o Bcc55. Bem minha duvida é se posso usar meus PGRs ou tenho que refaze-los, e para gerar o exe uso o blinker mesmo ou outro, enfim minhas duvidas são muitas... se puderem me ajudarem agradeço pois fiquei muito interessado no assunto. Agnaldo
-
Valeu amigo vou testar... Abraços Agnaldo
-
Ola, pessoal. Gostaria de saber se este menu funciona em FW for Clipper... Desde já agradeço Agnaldo
-
Ola, pessoal. Gostaria de saber se este menu funciona em FW for Clipper... Desde já agradeço Agnaldo
-
Caro Amigo, ai vai o endereço de email. Muito obrigado... agnaldo@infogui.com.br Agnaldo
-
Caro Amigo, ai vai o endereço de email. Muito obrigado... agnaldo@infogui.com.br Agnaldo
-
Caro Amigo, ai vai o endereço de email. Muito obrigado... agnaldo@infogui.com.br Agnaldo
-
Alguém pode me ajudar, onde posso encontrar o DBU com fontes. É que a versão que tenho (executável) só aceita o ano com 2 dÃgitos e geralmente 2006 vira 1906. Isso quando tenho que fazer ajustes no arquivo dbf manualmente. Agnaldo
-
Alguém pode me ajudar, onde posso encontrar o DBU com fontes. É que a versão que tenho (executável) só aceita o ano com 2 dÃgitos e geralmente 2006 vira 1906. Isso quando tenho que fazer ajustes no arquivo dbf manualmente. Agnaldo
-
Alguém pode me ajudar, onde posso encontrar o DBU com fontes. É que a versão que tenho (executável) só aceita o ano com 2 dÃgitos e geralmente 2006 vira 1906. Isso quando tenho que fazer ajustes no arquivo dbf manualmente. Agnaldo
-
alguém pode me dizer como faço pra adiquirir uma versão recente do produto, consegui comprar o Xharbour mas minha versão ainda é 16 bits, se alguém me ajudar agradeço. Abraços Agnaldo
-
Boa tarde a todos... Alguém ja testou o FW nessa plataforma dotnet, uma vez que o software foi desenvolvido para win32? Agnaldo
-
Boa tarde a todos... Alguém tem essa lib. para me enviar ou onde posso encontrar? Valeu... infogui@brturbo.com.br Agnaldo
-
Valeu amigo um grande abraço... Agnaldo Agnaldo
-
Bom dia kapiaba... Voce pode me informar onde e como posso comprar as cersões mais recentes do FW, BLINKER, WORKSHOP etc... Pois uso versões muito antigas da época de 1996, fiquei muito tempo sem programar quase sete anos estou com meus conhecimentos um tanto enferrujados, gostaria de entender melhor o HARBOUR também... Um abraço, Agnaldo. infogui@brturbo.com.br Agnaldo
-
Caro Carlos segue uma rotina de mala-direta à clientes espero ter ajudado. Obs: foi desenvolda em ca-clipper fo fw. até mais, Agnaldo. /* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ A G N A L D O P A N O S S O ---------------ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ³ ³ Sistema..: DS_COM ³± ³ Data.....: 18/06/03 ³± ³ Autor....: Nucleo de Desenvolvimento de sistemas ³± ³ Modulo...: ETI_CLI - Emissao de etiquetas para clientes ³± ³ Alteracao: 28/04/04 ³± ³ ³± ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± */ #INCLUDE 'FIVEWIN.CH' LOCAL PROC_01, XFOLHA, XCODI_INI:=xCliIni, XCODI_FIN:=xCliFim, OCODI_INI, OCODI_FIN, OTIPO, TIPO:=1, XGRUPO:=0 PUBLIC X_DTACERTO, SAIDA, LINHA:=1, FNTARIAL, FONTGI, F_LINHA:=0 DEFINE DIALOG PROC_01 FROM 5,05 TO 17,75 TITLE OemToAnsi("EmissÆo de Mala-Direta para Clientes") @ 0.5,1 SAY OemToAnsi("Classe: ") OF PROC_01 @ 0.5,8 GET XGRUPO PICT "99999" OF PROC_01 @ 1.5,1 SAY OemToAnsi("C¢digo inicial: ") OF PROC_01 @ 1.5,8 GET OCODI_INI VAR XCODI_INI PICT "99999" OF PROC_01 VALID VERCLI(XCODI_INI,PROC_01,OCODI_INI,3,25) @ 2.5,1 SAY OemToAnsi("C¢digo final: ") OF PROC_01 @ 2.5,8 GET OCODI_FIN VAR XCODI_FIN PICT "99999" OF PROC_01 VALID VERCLI(XCODI_FIN,PROC_01,OCODI_FIN,5,25) @ 6,06 BUTTON "&Ok" OF PROC_01 ; ACTION MSGRUN("Aguarde, processando...",TITULO, { | PROC_01 | CURSORWAIT(), EMIT_CLI(XGRUPO,XCODI_INI, XCODI_FIN) } , PROC_01:End()); SIZE 55, 12 @ 6,16 BUTTON "&Cancelar" OF PROC_01 ; ACTION (PROC_01:End()); SIZE 55, 12 ACTIVATE DIALOG PROC_01 CENTERED RETURN NIL *========================================================================== FUNCTION EMIT_CLI(XGRUPO,XCODI_INI, XCODI_FIN) LOCAL PAGINA:=1 LOCAL QTDE, TOT_QTDE, TOT_PACI, XODO_NOME DECLARE XMAL_CODI[2], XMAL_NOME[2], XMAL_ENDE[2], XMAL_BAIR[2], XMAL_CIDA[2] DECLARE XMAL_ESTA[2], XMAL_CEPX[2], XMAL_OBSX[2] IF (OPEN_CLI())=.F. && Sele 13 RETURN(.F.) ENDIF SET ORDER TO 1 SET FILTER TO CL->CL_CODI >= XCODI_INI .AND. CL->CL_CODI <= XCODI_FIN .AND. CL_GRUPO=XGRUPO DO WHILE .T. IF !FLOCK() INKEY(0.2) LOOP ENDIF EXIT ENDDO DEFINE FONT FNTARIAL NAME "arial" SIZE 20,30 && 15,25 PRINT SAIDA PREVIEW public nRowstep:=saida:nVertRes() / 67 public nColstep:=saida:nHorzRes() / 120 FinPag:=saida:nVertRes() PAGE F_LINHA:=1 F_ETIQU:=0 GO TOP DO WHILE .NOT. EOF() XMAL_CODI[1]:=CL->CL_CODI XMAL_NOME[1]:=CL->CL_NOME * XMAL_OBSX[1]:=CL->CL_OBSX XMAL_ENDE[1]:=CL->CL_ENDE XMAL_BAIR[1]:=CL->CL_BAIR XMAL_CIDA[1]:=CL->CL_CIDA XMAL_ESTA[1]:=CL->CL_ESTA XMAL_CEPX[1]:=CL->CL_CEPX SKIP XMAL_CODI[2]:=CL->CL_CODI XMAL_NOME[2]:=CL->CL_NOME * XMAL_OBSX[2]:=CL->CL_OBSX XMAL_ENDE[2]:=CL->CL_ENDE XMAL_BAIR[2]:=CL->CL_BAIR XMAL_CIDA[2]:=CL->CL_CIDA XMAL_ESTA[2]:=CL->CL_ESTA XMAL_CEPX[2]:=CL->CL_CEPX IMPRIMAX(F_LINHA,6,XMAL_NOME[1],FNTARIAL) IMPRIMAX(F_LINHA,50,STR(XMAL_CODI[1]),FNTARIAL) IMPRIMAX(F_LINHA,60,XMAL_NOME[2],FNTARIAL) IMPRIMAX(F_LINHA,105,STR(XMAL_CODI[2]),FNTARIAL) F_LINHA:=F_LINHA+1 IMPRIMAX(F_LINHA,6,XMAL_ENDE[1],FNTARIAL) IMPRIMAX(F_LINHA,60,XMAL_ENDE[2],FNTARIAL) F_LINHA:=F_LINHA+1 IMPRIMAX(F_LINHA,6,XMAL_BAIR[1],FNTARIAL) IMPRIMAX(F_LINHA,60,XMAL_BAIR[2],FNTARIAL) F_LINHA:=F_LINHA+1 IMPRIMAX(F_LINHA,06,XMAL_CIDA[1],FNTARIAL) IMPRIMAX(F_LINHA,38,XMAL_ESTA[1],FNTARIAL) IMPRIMAX(F_LINHA,43,XMAL_CEPX[1],FNTARIAL) IMPRIMAX(F_LINHA,60,XMAL_CIDA[2],FNTARIAL) IMPRIMAX(F_LINHA,89,XMAL_ESTA[2],FNTARIAL) IMPRIMAX(F_LINHA,94,XMAL_CEPX[2],FNTARIAL) F_ETIQU:=F_ETIQU+2 F_LINHA:=F_LINHA+3 IF F_ETIQU = 22 SAIDA:EndPage() SAIDA:StartPage() F_ETIQU:=0 F_LINHA:=1 ENDIF SKIP ENDDO ENDPAGE ENDPRINT FNTARIAL:End() CLOSE DATA RETURN NIL Agnaldo