Search the Community

bom tarde pessoal gostaria de compilar leto com xharTESTE1.PRGbour e um pequeno exemplo obrigado carlos syspel SACFWH.LNK

Documentos disponíveis em Docs (Recursos) Efetue upload de mais documentos, manuais de equipamentos, tutorias...

Boa tarde. Precisei criar uma lib esses dias, e fui fazendo um apanhado de informações para aprender como fazer. Então venho postar aqui o script final que fiz, apenas a título de informação para alguém que venha a buscar pelo google essa informação, rs. fivewin 8.01 xharbour 1.10 bcc 5.5.1 set var_file_lib=\users\eco\minhalib.lib DEL %var_file_lib% set var_harbour=\xharbour-1.10.00\bin\harbour.exe set var_bcc32=\BCC55\Bin\bcc32.exe set var_tlib=\BCC55\Bin\tlib.exe set var_include=C:\BCC55\include;C:\FWH\include;C:\xharbour-1.10.00\include set var_dir_lib=\BCC55\Lib;\xharbour-1.10.00\lib set var_FON=\USERS\PASTA_DE_PROGRAMAS set var_OBJ=\USERS\PASTA_DE_PROGRAMAS\PRJ\OBJ set var_programa=meuprograma SET var_ext=PRG @%var_harbour% %var_FON%\%var_programa%.%var_ext% /N /M /I%var_include% /O%var_OBJ%\ SET var_ext=C @%var_bcc32% -W -DHB_STATISTICS_OFF -DHB_OS_WIN_32 -O2 -OS -d -L%eco_dir_lib% -c -I%var_include% -n%var_OBJ% %var_OBJ%\%var_programa%.%var_ext% SET var_ext=OBJ @%var_tlib% "%var_file_lib%" /0 /P32768 +"%var_OBJ%\%var_programa%.%var_ext%"

http://www.xharbour.org/index.asp?page=download/windows/required_win abs.

Senhores, boa noite Alguem já passou por problemas na criação de indices via SQLRDD ODBC ? a maioria está criando sem problemas, e funcionando perfeitamente , mas exatamente este não vai nem com reza braba. fornecli char(8) numdoc numeric(6,0) serie char(2) index on fornecli + str(numdoc,6,0) + serie to &warq1. eval cp_idxA('6/6') uso dbf2sql xHarbour1.2.3 + BCC582 + SQLRDD ( SQLSERVER )

Caros amigos , boa tarde ! Estive verificando no forum , alguma solução relacionada a compilação xHarbour em modo console, consigo normalmente em FWH15.02 +SQLRDD+xHarbour 1.2.3 + BCC582. Só que tenho fontes que necessitam ser compilados em modo Console+xHarbour123+SQLRDD. e não vai de jeito nenhum, vejo que alguns dos amigos conseguiram fazer essa proeza pelo xDev. to tentando , mas aparece a tela com o prompt no canto superior esquerdo da tela e mais nada. alguma luz. xHarbour 1.2.3 + BCC582 + xDev. v 0.70

Compilando com o novo xHarbour(20170101) para BCC72 e FWHX16.12, pense no foguete!! http://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542 Nesta versão, está previsto o uso de TLS com CDO, ainda não testei, quem puder testar, se funcionar, poste um \samples porfa. Many thanks mister Enrico Maria Giordano. Abs

Boa tarde, pessoal. Trabalho com sistema desenvolvido em FiveWin/Clipper ( com xHarbour ) e base de dados em MySql. O sistema é desktop e o banco de dados está Local. Estou precisando hospedar o BD na Nuvem e fazer meu sistema comunicar com essa base. Alguém sabe me dizer se existe a possibilidade de um sistema desktop desenvolvido em FiveWin/Clipper ( com xHarbour ) acessar informações (CRUD) de uma base de dados em Mysql que está na nuvem? Desde já obrigado.

bom dia pessoal estou com um erro assim,crie um funcao para ver uma data quando eu coloco dentro do sistema a funcao executa perfeita,mas na ora de sai eu clico no butom cancela ai da esse erro Application =========== Path and name: C:\new\fpm.exe (32 bits) Size: 9,232,896 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903) FiveWin Version: FWHX 14.04 Windows version: 5.1, Build 2600 Service Pack 3 Time from start: 0 hours 0 mins 27 secs Error occurred at: 13/07/2016, 10:22:55 Error description: Error BASE/1081 Erro nos parƒmetros: + Args: [ 1] = C fpa001 [ 2] = N 1 Stack Calls =========== Called from: fpaltrec.prg => ALT_EVENT( 38 ) Called from: fpmenu.prg => (b)FPM02( 175 ) Called from: btnbmp.prg => TBTNBMP:CLICK( 464 ) Called from: btnbmp.prg => TBTNBMP:LBUTTONUP( 660 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 ) Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1417 ) Called from: window.prg => _FWH( 3236 ) Called from: => WINRUN( 0 ) Called from: window.prg => TWINDOW:ACTIVATE( 1003 ) Called from: fpmenu.prg => FPM02( 215 ) System ====== CPU type: Intel® Core2 Duo CPU E7300 @ 2.66GHz 2666 Mhz Hardware memory: 2038 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 8 1 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202 2 , C:\WINDOWS\system32\SHELL32.dll 3 , C:\WINDOWS\system32\SHLWAPI.dll 4 , C:\new\fpm.exe 5 , C:\new\freeimage.dll 6 M, C:\WINDOWS\system32\msctfime.ime 7 MCI command handling window, C:\WINDOWS\system32\WINMM.DLL 8 TF_FloatingLangBar_WndTitle, Variables in use ================ Procedure Type Value ========================== ALT_EVENT Local 1: U Local 2: C "fpa001" Local 3: N 1 Local 4: U Local 5: L .F. (b)FPM02 Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 31 Param 2: N 39 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 2031655 Local 1: O Class: TBTNBMP Local 2: U TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 2031655 Local 1: O Class: TBTNBMP _FWH Param 1: N 2031655 Param 2: N 514 Param 3: N 0 Param 4: N 2031655 Param 5: N 7 Local 1: O Class: TBTNBMP WINRUN Param 1: N 655602 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: U Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: U Param 18: U Param 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U FPM02 Local 1: U Local 2: O Class: TICON Local 3: U Local 4: U Local 5: O Class: TCURSOR Local 6: U Local 7: U Local 8: O Class: TBRUSH Linked RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TBRUSH 6 TCURSOR 7 TWINDOW 8 TCONTROL 9 TICON 10 TFONT 11 TMENU 12 TMENUITEM 13 TBAR 14 TRECT 15 TBTNBMP 16 TBITMAP 17 TIMAGE 18 TMSGBAR 19 TMSGITEM 20 TTIMER 21 TSTRUCT 22 TDIALOG 23 TSAY 24 TGET 25 GET 26 TWBROWSE 27 TSCROLLBAR 28 TREG32 Memory Analysis =============== 2159 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes ai eu tira a funcao e funciona normal corretamente esta e funcao que eu criei function vfvencida ** avisa se o funcionario tem ferias a vencer ** ** select &arq1 data1=ctod(" / / ") data2=ctod(" / / ") data3=ctod(" / / ") data4=ctod(" / / ") este=0 vano=0 tano=0 vano=year(mdata) - year(&arq1->dt_admiss) tano=(vano-&arq1->ferias) if vano<=0 .and. ! year(mdata)=year(&arq1->dt_admiss) data1=mdata data2=mdata + 365 este=9 tano=0 endif if tano=0 .and. year(mdata)=year(&arq1->dt_admiss) data1=mdata data2=mdata + 365 este=9 tano=0 endif if tano > 0 cha1= tano * 365 data3=mdata - cha1 data1=data3 data2=data3 + 365 endif if este=9 tano=1 endif For x=1 to tano sz=dtoc(&arq1->dt_admiss) sa=substr(sz,1,6) az=strzero(year(data1),4) ax=strzero(year(data2),4) xx=sa+subs(az,3,2) aa=sa+subs(ax,3,2) // xss=ctod(aa)+365 // xss=xss-30 vdata1=ctod(xx) vdata2=ctod(aa)-1 data1= data2 data2= data2 + 365 Next FCheca:=ctod(" / / ") fcheca:=vdata2 if year(Fcheca)=year(mdata) if month(Fcheca)=month(mdata) msgstop("As ferias deste Funcionario"+chr(13)+; "Vence este mes "+dtoc(Fcheca),"Aviso") endif endif ********************************************************** select &arq5 return .t. deste ja obrigado carlos fwh 14.04 xharbour 1.2.3 dbf ,xdev

Demo: https://www.dropbox.com/s/7lgvuu5lkqkv76q/ribbon.rar?dl=0 Compativel com qualquer versao do fivewin.

Boa tarde, Estou em busca de trabalhos freelancer, se alguém precisa de algum tipo de rotina, ou qualquer trabalho voltado a programação web/desktop estou a disposição. E-mail/Skype: suporte@lailton.com.br Obrigado.

Boa tarde amigos! Quero implementar o FastReport para gerar relatórios. Aguém teria um exemplo simples de como utilizar o FastReport com xHarbour para impressão de um array? Obrigado!

Estou precisando redimencionar o tamanho de imagens (BMP,JPG), bem parecido com o redimencionar do PAINT. Alguma ideia. Tem que ser via sistema. "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida."