syspel

Tenho uma variavel de memoria que contem um relatorio com 3 paginas, gostaria de saber como que eu faço para gravar essa variavel dentro de um arquivo com as 3 paginas. Eu usei o memowhit e ele só grava a Ultima Pagina como fazer para gravar as 3 paginas? FW 2.7 BCC 55 AGRADEÇO DESDE JA! LUIZ...id='Comic Sans MS'>

Olá Acabei de converter um programa de fivewin para xharb! Com a class TDOSPRN. Quando vo imprimir qualquer um dos relatórios eles não imprime. Agora quando imprimo um relatório especifico, ai imprime e logo depois de imprimir o resto dos relatórios imprime normalmente. Como resolver isso?

Olá Acabei de converter um programa de fivewin para xharb! Com a class TDOSPRN. Quando vo imprimir qualquer um dos relatórios eles não imprime. Agora quando imprimo um relatório especifico, ai imprime e logo depois de imprimir o resto dos relatórios imprime normalmente. Como resolver isso?

Entendi! Alguém tem um exemplo de como ficaria? Pra min poder ter uma noção!

Precisaria de algo que eu não precisa-se informa no arquivo fonte. Pois tenho vários clientes. Precisaria de um cod padrão, que o programa sonsinho reconhece-se ou algo desse tipo.

Ola TEM UM RELATORIO E GOSTARIA QUE O MEU PROGRAMA IMPRIMISSE ELE DIRETO DA REDE. ALGUEM TEM ALGUMA SOLUÇÃO?

Ola TEM UM RELATORIO E GOSTARIA QUE O MEU PROGRAMA IMPRIMISSE ELE DIRETO DA REDE. ALGUEM TEM ALGUMA SOLUÇÃO?

entao o primeiro relatorio faz normal, so que ele precisa fazer o primeiro logo apos o segundo e assim por diante ! e isso não esta ocorrendo. sera que tem como eu usar uma função ou um loop, alguma coisa assim ????

Deu CertO ! ObrigadO

O prg é enorme Então to colocando só o começo pr vc ver se tah certo ! #Include 'Fivewin.ch' function proginic() *********************************** * * * Ativa a Empresa * * * *********************************** Static fis1,ver,ofont,ofont1,ofont2,ofont3,overx,vcod,oano Static bt1,bt2,bt3,bt4,bt5,bt6,bt7,bt8,bt9,bt10,bt11,bt12 // Variaveis dos botoes do meses Static li,ometer,xzz // Variaveis da Reorganizacao static ofontb Function ativ_fiscal Local cr1,cr2,cr3,cr4,cr5,cr6,cr7,cr8 Public vano,codemp,mascara,gmes,xano,varcod,ARQ,ARQ1,ARQ2,ARQ3,ARQ4,ARQ5,ARQ6 Public ARQ7,ARQ8,ARQ9,ARQ10,ARQ11,ARQ12,ARQ13,ARQ14,ARQ15,ARQ16,ARQ17,ARQ18 Public mcaixa set talk off set epoch to 1990 set date brit set delete on set century on set 3dlook on SetHandleCount(255) arq13=" " arq17=" " gmes='01' vcod = 0 Li := 0 mcaixa=space(04) mascara=space(15) Close databases set exclusive on set decimal to 4 set fixed off if ! file ("Cadastro.dbf") cadstru() endif if ! file ("Cadastro.efi") use Cadastro.dbf Index on cadastro->codigo to Cadastro.EFI index on cadastro->nome to Nome.efi Close databases endif

Ico Fiz a alteração e mesmo assim continua dando erro.

Ola Esses prg ja estao dentro do lnk e do bat, e mesmo assim continua dando esse erro! Como posso resolver? Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland intrela1.c: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_INDEFS' referenced from C:\FISCAL\PROGINIC.OBJ Error: Unresolved external '_HB_FUN_JOINTEXTO' referenced from C:\FISCAL\FIS002.OBJ Error: Unresolved external '_HB_FUN_LIV_MOD53A' referenced from C:\FISCAL\MOD53.OBJ

Ola Esses prg ja estao dentro do lnk e do bat, e mesmo assim continua dando esse erro! Como posso resolver? Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland intrela1.c: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_INDEFS' referenced from C:\FISCAL\PROGINIC.OBJ Error: Unresolved external '_HB_FUN_JOINTEXTO' referenced from C:\FISCAL\FIS002.OBJ Error: Unresolved external '_HB_FUN_LIV_MOD53A' referenced from C:\FISCAL\MOD53.OBJ

função que imprime #include "FiveWin.ch" Function imprelat() local ofont1 Public lcancela:=.f.,oWnd Public oPrn,oFont,oDlg,nOpcao,lImp:=.f., xcol:=.f. Public oDlgImp,oBtncancel,vi:=.f. Define Dialog oDlg Title "Modo de Impressão" From 10,10 to 20.4,43.1 COLOR 'B/W' ; style 5 @ 1,0.5 Radio nOpcao Prompt " Monitor"," Impressora"," Modo Gráfico" Of oDlg size 53,12 color 'b/w' @ 2,7 checkbox xcol prompt "132 Coluna" Of oDlg size 70,10 color 'b/w' @ 49,7 Btnbmp size 40,13 FILENAME "bto4.bmp" of odlg action (lImp:=.t.,oDlg:End()) @ 49,70 Btnbmp size 40,13 FILENAME "cancela.bmp" of odlg action (lImp:=.f.,oDlg:End()) Activate dialog odlg on paint wndboxraised(odlg:hdc,4,4,127,258) centered if ! lImp odlg:end() Return Nil endif DO CASE // Preview em modo grafico Case nOpcao=1 PRINT oPrn NAME "Visualizacao de Impressao" Preview vi:=.t. // Impressao em Modo texto Case nOpcao=2 if xcol=.F. oPrn := tDosPrn():New() oPrn:lCompress:=.T. //modo expandido vi:=.f. else oPrn := tDosPrn():New() oPrn:lCompress:=.F. //modo comprimido oprn:charsay(0,0,chr(18)+' ') endif // Impressao em Modo grafico com opção de selecionar impressora Case nOpcao=3 PRINT oPrn NAME "Visualizacao de Impressao" FROM USER EndCase O5() return nil FUNCTION O5 IF Empty(oPrn:hdc) MsgStop( "Impressora com Problema !!!",'Aviso') lImp:=.f. CLOSE DATABASES return NIL ELSE Define Dialog oDlgImp Title "Aguarde.. Imprimindo" From 5,5 to 18.0,35 color 'b/w' ; @ 5,19.5 Btnbmp size 82,75 FILENAME "stop.bmp" of odlgimp action ccamcel() Activate Dialog oDlgImp NOMODAL CENTER ENDIF return NIL Function ccamcel lcancela:=.t. msgalert("Relatório abortado","Aviso") return .t.

Não entendi Estou querendo fazer o programa em xharbour no modo gráfico (windows)!

Ahhh tah éh o cansaço ! rs Issso mesmo... estamos mudando todo o programa de fivewin para XHARBOUR.

Jah toh no msn !

Acabei de manda por e-mail ! =]

Ainda esta dando erro !!! vo te manda um arquivo pr vc dah uma olhada . por msn ! vlw

Ola Desculpa ae não responder antes ! entao ai esta o prg static jng01,b7,b8,b9,b10,bot1,bot2,bot3,asom,aget,mod1,mod2 Function gerak Local ofont,ofont1,ofont2,oc Local icon1 declare dmss[20] Close databases Set talk off Set delete on set exclusive off Public oPrn,oDlg,nOpcao:=1,lImp:=.f. Public oDlgImp,lSpool:=.F. Public cPort:='LPT1',cFile:='TEST.PRN' Public cTitulo:='PREVIEW' Public lModal:=.t.,sigla oPrn:=TDosPrn():New(cfile) oprn:say(0,0,chr(27)+'@') select 0 if net_use("fpemp000",.f.,5) set index to empfp000 else msgstop("Arquivo bloqueado por outro terminal",'Aviso') close databases return endif unlock all asom=0 rem1=2 rem2=2 rem3=2 rem4=2 rem5=2 cod1=space(3) emp1=space(40) cod2=space(3) emp2=space(40) Select fpemp000 go bott cod2=strzero(fpemp000->cod_emp,3) emp2=fpemp000->nome_emp Select fpemp000 go top cod1=strzero(fpemp000->cod_emp,3) emp1=fpemp000->nome_emp Select fpemp000 go top aget:=array(5) define font ofont1 name "fixedsys" size 8,13 define font ofont name "arial" size 6,14 define font ofont2 name "fixedsys" size 14,16 Define dialog jng01 from 01,7 to 28.5,70 title 'Geracao Filas Syspel ' color 'b/w' ; style 5 @ 0.8,0.7 to 4.7,35.1 of jng01 color 'rg/rg' @ 0.6,01 say 'Geracao de Filas ' of jng01 size 70,12 color 'r+/w' font ofont @ 1.9,1 say "Folha.Mensal" of jng01 size 50,12 font ofont COLOR 'w+/rg' @ 3.4,2.5 RADIO aget[1] var REM1 PROMPT "Sim","NÆo" of jng01 size 40,12 color 'b/rg'valid verifkra1() @ 1.9,11 say "Holeritte" of jng01 size 50,12 font ofont COLOR 'w+/rg' @ 3.4,9.2 RADIO aget[2] var REM2 PROMPT "Sim","NÆo" of jng01 size 40,12 color 'b/rg' valid verifkra2() @ 1.9,19 say "GPS" of jng01 size 50,12 font ofont COLOR 'w+/rg' @ 3.4,15.5 RADIO aget[3] var REM3 PROMPT "Sim","NÆo" of jng01 size 40,12 color 'b/rg' valid verifkra3() @ 1.9,26 say "SEFIP" of jng01 size 40,12 font ofont COLOR 'w+/rg' @ 3.4,21.5 RADIO aget[4] var REM4 PROMPT "Sim","NÆo" of jng01 size 40,12 color 'b/rg' valid verifkra4() @ 1.9,33 say "CAGED" of jng01 size 40,12 font ofont COLOR 'w+/rg' @ 3.4,28.1 RADIO aget[5] var REM5 PROMPT "Sim","NÆo" of jng01 size 40,12 color 'b/rg' valid verifkra5() mod1:="Essa funcao serve para gerar relatorio e Arquivos de todas as empresas. "+; "Para que vc obtenha um maior sucesso na geração de arquivos e Relatorio "+; "Fa‡a a digitação e o calculo normalmente, e logo depois faca a fila "+; "Obs:Para que o programa gere a fila com sucesso, Gere um arquivo por vez!" @ 5.8,3.6 get mod2 var mod1 memo size 198,41 of jng01 font ofont color 'r/w*' @ 8.5,1.3 say 'Inf.Codigo Inicial_:' of jng01 size 90,12 font ofont1 color 'b/w' @ 9.5,1.3 say 'Inf.Codigo Final___:' of jng01 size 90,12 font ofont1 color 'b/w' @ 9.8,11.5 get b7 var cod1 pict '999' of jng01 size 17,12 font ofont valid ntemp1() @ 9.8,13.8 get b8 var emp1 pict 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX' of jng01 size 130,12 font ofont @ 10.9,11.5 get b9 var cod2 pict '999' of jng01 size 17,12 font ofont valid ntemp2() @ 10.9,13.8 get b10 var emp2 pict 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX' of jng01 size 130,12 font ofont @ 11.4,3.2 METER oMeter VAR asom TOTAL 70 of jng01 size 195,10 b8:disable() b10:disable() mod2:disable() b8:refresh() b10:refresh() @ 173,76 Btnbmp bot2 size 40,12 noborder FILENAME "bto4.bmp" of jng01 action fila01() @ 173,127 Btnbmp bot3 size 40,12 noborder FILENAME "Cancela.bmp" of jng01 action jng01:end() Activate dialog jng01 on paint wndboxraised(jng01:hdc,139,4,385,489) centered return nil function ntemp1 if ! empty(cod1) select fpemp000 seek cod1 if ! found() msgalert('Empresa não foi Cadastrada',"Aviso") return .f. endif emp1=fpemp000->nome_emp b8:refresh() endif return .t. function ntemp2 if ! empty(cod2) select fpemp000 seek cod2 if ! found() msgalert('Empresa não foi Cadastrada',"Aviso") return .f. endif emp2=fpemp000->nome_emp b10:refresh() endif return .t. function verifkra1() if rem1=1 rem2=2 rem3=2 rem4=2 rem5=2 aget[2]:refresh() aget[3]:refresh() aget[4]:refresh() aget[5]:refresh() endif return .t. function verifkra2 if rem2=1 rem1=2 rem3=2 rem4=2 rem5=2 endif aget[1]:refresh() aget[3]:refresh() aget[4]:refresh() aget[5]:refresh() //fila_agaprint() //&&fphofi4a.prg RETURN .T. function verifkra3 if rem3=1 rem1=2 rem2=2 rem4=2 rem5=2 endif aget[1]:refresh() aget[2]:refresh() aget[4]:refresh() aget[5]:refresh() RETURN .T. FUNCTION verifkra4 if rem4=1 rem1=2 rem2=2 rem3=2 rem5=2 endif aget[1]:refresh() aget[2]:refresh() aget[3]:refresh() aget[5]:refresh() RETURN .T. function verifkra5 if rem5=1 rem1=2 rem2=2 rem3=2 rem4=2 endif aget[1]:refresh() aget[2]:refresh() aget[3]:refresh() aget[4]:refresh() return .t. Function fila01 select fpemp000 // relatorio de folha mensal seek val(cod1) A=1 Do While ! eof() .and. fpemp000->cod_emp <= val(cod2) dmss[A]=strzero(fpemp000->cod_emp,3) a=a+1 Select fpemp000 skip unlock all if a > 20 exit endif enddo x=1 Do While ! eof() Close databases if dmss[x]<>' ' sigla:=dmss[x] ? sigla select 0 if net_use("Recib&sigla",.f.,5) set index to recfp&sigla go top else msgalert("Arquivo Bloqueado por Outro Terminal","Aviso") close databases return endif select 0 if net_use("Fecha&sigla",.f.,5) set index to feche&sigla go top else msgalert("Arquivo Bloqueado por Outro Terminal","Aviso") close databases return endif select 0 if net_use("FPfun&sigla",.f.,5) set index to funfp&sigla go top else msgalert("Arquivo Bloqueado por Outro Terminal","Aviso") close databases return endif select 0 if net_use("FPeve000",.f.,5) set index to evefp000 go top else msgalert("Arquivo Bloqueado por Outro Terminal","Aviso") close databases return endif set exclusive on select 0 if net_use("Recbs&sigla",.t.,5) set index to recbs&sigla,eecss&sigla zap else msgalert("Arquivo Bloqueado por Outro Terminal","Aviso") close databases return endif select 0 if net_use("Emiss&sigla",.t.,5) set index to Emiss&sigla zap else msgalert("Arquivo Bloqueado por Outro Terminal","Aviso") close databases return endif set exclusive off select 0 if net_use("fptab000",.f.,5) set index to fptab000 seek cat else msgalert("Arquivo Bloqueado por outro Terminal","Aviso") close databases return endif select 0 if net_use("fpemp000",.f.,5) set index to empfp000 seek val(sigla) else msgalert("Arquivo Bloqueado por Outro Terminal","Aviso") close databases return endif do while dmss[x]=sigla if rem1=1 .and. ! empty(sigla) // funccao altfila01() //fpfila11.prg endif enddo Endif x=x+1 ? dmss[x] ? sigla if x=20 exit endif enddo close databases jng01:end() return nil

Olá estou mudando um programa de fivewin para xHARBOUR ao compilar da o seguinte erro !!! xHarbour Compiler build 0.99.61 (SimpLex) Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'trafa3.prg'... 100 Lines 133, Functions/Procedures 2 Generating C source output to 'trafa3.c'... Done. Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland Error E2194: Could not find file 'fiscal.c' Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland proginic.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 proginic.c 113: Undefined symbol 'NULL' Error E2141 proginic.c 113: Declaration syntax error Error E2190 proginic.c 113: Unexpected } Error E2190 proginic.c 113: Unexpected } Error E2040 proginic.c 113: Declaration terminated incorrectly Error E2190 proginic.c 381: Unexpected } Error E2190 proginic.c 381: Unexpected } Error E2109 proginic.c 381: Not an allowed type in function hb_vm_SymbolInit_PROGINIC *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland alplan.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 alplan.c 59: Undefined symbol 'NULL' Error E2141 alplan.c 59: Declaration syntax error Error E2190 alplan.c 59: Unexpected } Error E2190 alplan.c 59: Unexpected } Error E2040 alplan.c 59: Declaration terminated incorrectly Error E2190 alplan.c 148: Unexpected } Error E2190 alplan.c 148: Unexpected } Error E2109 alplan.c 148: Not an allowed type in function hb_vm_SymbolInit_ALPLAN *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland cadastr3.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 cadastr3.c 64: Undefined symbol 'NULL' Error E2141 cadastr3.c 64: Declaration syntax error Error E2190 cadastr3.c 64: Unexpected } Error E2190 cadastr3.c 64: Unexpected } Error E2040 cadastr3.c 64: Declaration terminated incorrectly Error E2190 cadastr3.c 126: Unexpected } Error E2190 cadastr3.c 126: Unexpected } Error E2109 cadastr3.c 126: Not an allowed type in function hb_vm_SymbolInit_CADASTR3 *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland cadastr5.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 cadastr5.c 65: Undefined symbol 'NULL' Error E2141 cadastr5.c 65: Declaration syntax error Error E2190 cadastr5.c 65: Unexpected } Error E2190 cadastr5.c 65: Unexpected } Error E2040 cadastr5.c 65: Declaration terminated incorrectly Error E2190 cadastr5.c 127: Unexpected } Error E2190 cadastr5.c 127: Unexpected } Error E2109 cadastr5.c 127: Not an allowed type in function hb_vm_SymbolInit_CADASTR5 *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland cadastr7.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 cadastr7.c 73: Undefined symbol 'NULL' Error E2141 cadastr7.c 73: Declaration syntax error Error E2190 cadastr7.c 73: Unexpected } Error E2190 cadastr7.c 73: Unexpected } Error E2040 cadastr7.c 73: Declaration terminated incorrectly Error E2190 cadastr7.c 255: Unexpected } Error E2190 cadastr7.c 255: Unexpected } Error E2109 cadastr7.c 255: Not an allowed type in function hb_vm_SymbolInit_CADASTR7 e o erro continua ... como posso resolver ???

Olá estou mudando um programa de fivewin para xHARBOUR ao compilar da o seguinte erro !!! xHarbour Compiler build 0.99.61 (SimpLex) Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'trafa3.prg'... 100 Lines 133, Functions/Procedures 2 Generating C source output to 'trafa3.c'... Done. Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland Error E2194: Could not find file 'fiscal.c' Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland proginic.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 proginic.c 113: Undefined symbol 'NULL' Error E2141 proginic.c 113: Declaration syntax error Error E2190 proginic.c 113: Unexpected } Error E2190 proginic.c 113: Unexpected } Error E2040 proginic.c 113: Declaration terminated incorrectly Error E2190 proginic.c 381: Unexpected } Error E2190 proginic.c 381: Unexpected } Error E2109 proginic.c 381: Not an allowed type in function hb_vm_SymbolInit_PROGINIC *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland alplan.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 alplan.c 59: Undefined symbol 'NULL' Error E2141 alplan.c 59: Declaration syntax error Error E2190 alplan.c 59: Unexpected } Error E2190 alplan.c 59: Unexpected } Error E2040 alplan.c 59: Declaration terminated incorrectly Error E2190 alplan.c 148: Unexpected } Error E2190 alplan.c 148: Unexpected } Error E2109 alplan.c 148: Not an allowed type in function hb_vm_SymbolInit_ALPLAN *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland cadastr3.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 cadastr3.c 64: Undefined symbol 'NULL' Error E2141 cadastr3.c 64: Declaration syntax error Error E2190 cadastr3.c 64: Unexpected } Error E2190 cadastr3.c 64: Unexpected } Error E2040 cadastr3.c 64: Declaration terminated incorrectly Error E2190 cadastr3.c 126: Unexpected } Error E2190 cadastr3.c 126: Unexpected } Error E2109 cadastr3.c 126: Not an allowed type in function hb_vm_SymbolInit_CADASTR3 *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland cadastr5.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 cadastr5.c 65: Undefined symbol 'NULL' Error E2141 cadastr5.c 65: Declaration syntax error Error E2190 cadastr5.c 65: Unexpected } Error E2190 cadastr5.c 65: Unexpected } Error E2040 cadastr5.c 65: Declaration terminated incorrectly Error E2190 cadastr5.c 127: Unexpected } Error E2190 cadastr5.c 127: Unexpected } Error E2109 cadastr5.c 127: Not an allowed type in function hb_vm_SymbolInit_CADASTR5 *** 16 errors in Compile *** Borland C++ 5.5 for Win32 Copyright © 1993, 2000 Borland cadastr7.c: Error E2209 C:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg.h' Error E2209 C:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.h' Error E2209 C:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib.h' Error E2209 C:\xharbour\include\hbdefs.h 61: Unable to open include file 'string.h' Error E2209 C:\xharbour\include\hbsetup.h 61: Unable to open include file 'limits.h' Error E2188 C:\xharbour\include\hbdefs.h 411: Expression syntax Error E2257 C:\xharbour\include\hbdefs.h 436: , expected Error E2139 C:\xharbour\include\hbvmpub.h 227: Declaration missing ; Error E2451 cadastr7.c 73: Undefined symbol 'NULL' Error E2141 cadastr7.c 73: Declaration syntax error Error E2190 cadastr7.c 73: Unexpected } Error E2190 cadastr7.c 73: Unexpected } Error E2040 cadastr7.c 73: Declaration terminated incorrectly Error E2190 cadastr7.c 255: Unexpected } Error E2190 cadastr7.c 255: Unexpected } Error E2109 cadastr7.c 255: Not an allowed type in function hb_vm_SymbolInit_CADASTR7 e o erro continua ... como posso resolver ???

Ola tenho um arquvo chamadO fpfun001.dbf,fpfun002.dbf fpfun003.dbf,fpfun004.dbf,fpfun005.dbf,fpfun006.dbf Estou querendo fazer o relatorio do arquivo 1 logo depois o 2 e assim por diante. quando terminar de fazer o relatorio quero jogar ele dentro do txtprev com a tdosprn relatorio dos ! consigo fazer o tdosprn do primeiro arquivo, jah dos outro ele naum executa o relatorio, ele não executa a abertura do 2° arquivo, eu estou usando uma macro. como consigo resolver isso ?

Ola tenho um arquvo chamadO fpfun001.dbf,fpfun002.dbf fpfun003.dbf,fpfun004.dbf,fpfun005.dbf,fpfun006.dbf Estou querendo fazer o relatorio do arquivo 1 logo depois o 2 e assim por diante. quando terminar de fazer o relatorio quero jogar ele dentro do txtprev com a tdosprn relatorio dos ! consigo fazer o tdosprn do primeiro arquivo, jah dos outro ele naum executa o relatorio, ele não executa a abertura do 2° arquivo, eu estou usando uma macro. como consigo resolver isso ?

Estou usando Clipper fivewin 2.7 A maquina que estou usando é um celeron 2.1 Tem 252 de memória, HD 40. A primeira vez que compila e linka o programa funciona a 2° vez tanbem. A 3° vez o programa trava, não da nenhuma mensagem de erro.