Paulo,
Vou tentar recompilar, na mesma máquina que deu esta msg, o estranho é que ano passado rodava...
Também vou dar uma configurada na máquina que uso atualmente, pra rodar o clipper, XP PRO SP2, 2G, Dual Core
Na instalação do Clipper53 na máquina não gerou os sub-diretórios OBJ e PLL, pode ficar assim, ou crio as pastas e pego os .OBJ e .PLL que ficaram no c:clipper5 e transfiro para elas ?
Veja o script do programa.
***********
* GERATXT.PRG
* Gera o arquivo Texto dos lançamentos a serem lidos pelo CONTMATIC
* JLF - 31/05/2007
***********
* GeraTxt()
***********
#include "box.ch"
#include "inkey.ch"
#include "setcurs.ch"
#include "sos.ch"
FUNCTION GeraTxt()
SET SCOREBOARD OFF
SET DATE BRIT
SET CENTURY ON
SET CONFIRM ON
SET WRAP ON
USE impcont
INDEX ON C06 TO dat1
SET INDEX TO dat1
PRIVATE ficMsg, fidDmsl,fidDms2
@ 04,01 CLEAR TO 21,78
@ 23,01 CLEAR TO 23,63
@ 05,31 SAY "Gravar listagem dos Lancamentos"
GO TOP
IF EOF()
@ 23,01 CLEAR TO 23,78
@ 23,10 SAY "Operacao cancelada, pois nao ha registros no banco de dados"
TONE(300,0.02)
TONE(500,0.02)
CLEAR TYPEAHEAD
INKEY(0)
RETURN NIL
ENDIF
**************************************************************
* Seleciona o periodo
*
ficMsg:=SPACE(2)
fidDms1:=CTOD(SPACE(8))
fidDms2:=CTOD(SPACE(8))
cJan:=SAVESCREEN(10,10,16,70)
SETCOLOR("w+/gr")
@ 10,10,16,70 BOX B_DOUBLE+SPACE(1)
@ 12,10 SAY JSD_ESQUERDA
@ 12,70 SAY JSD_DIREITA
@ 12,11,12,69 BOX B_SINGLE
@ 11,28 SAY "Parametros de Selecao"
@ 14,18 SAY "Data dos Lancamentos:"+SPACE(12)+"a"
@ 14,40 GET fidDms1
@ 14,53 GET fidDms2 VALID (fidDms2>=fidDms1)
CLEAR TYPEAHEAD
SETCURSOR(SC_NORMAL)
READ
SETCURSOR(SC_NONE)
ficMsg:=ALLTRIM(ficMsg)
IF LASTKEY()<>K_ESC
DO CASE
CASE !EMPTY(ficMsg) .AND. !EMPTY(fidDms1) .AND. !EMPTY(fidDms2)
SET FILTER TO ficMsg $ codmsg .AND. C06 >= fidDms1 .AND. C06 <= fidDms2
CASE !EMPTY(ficMsg) .AND. EMPTY(fidDns1) .and. EMPTY(fidDms2)
SET FILTER TO ficMsg $ codmsg
CASE EMPTY(ficMsg) .AND. !EMPTY(fidDms1) .AND. !EMPTY(fidDms2)
SET FILTER TO C06 >= fidDms1 .AND. C06 <= fidDms2
OTHERWISE
SET FILTER TO
ENDCASE
GO TOP
ENDIF
SETCOLOR("w+/2>g")
RESTSCREEN(10,10,16,70,cJan)
********************************************************************
IF LASTKEY()=K_ESC
RETURN NIL
ENDIF
IF EOF()
@ 23,01 CLEAR TO 23,78
@ 23,05 SAY "Selecao liberada, pois nao existe registro que satisfaca esta selecao"
TONE(300,0.02)
TONE(500,0.02)
CLEAR TYPEAHEAD
INKEY(0)
SET FILTER TO
GO TOP
ENDIF
@ 23,01 CLEAR TO 23,78
@ 23,64 SAY "[ESC] Abandona"
SETCOLOR("w+/gr")
@ 10,18,14,61 BOX B_DOUBLE+SPACE(1)
@ 12,20 SAY "Confirma a geracao do arquivo ? [ENTER]"
DO WHILE .T.
CLEAR TYPEAHEAD
INKEY(0)
DO CASE
CASE LASTKEY() =K_ENTER
SETCOLOR("w+/bg")
@ 23,01 CLEAR TO 23,78
SETCOLOR("w+/gr")
@ 12,19 CLEAR TO 12,60
@ 12,34 SAY "Gerando..."
SET CONSOLE OFF
SET PRINT ON
**************************************************************
* Cria o arquivo em formato TXT
*-----
fidDms3:=DTOC(C06)
vMes :=SUBSTR(fidDms3,4,2)
*-----
vEmp :="FI004004."
Set Date Brit
private hArquivo,;
arq :=STUFF(vEmp,10,0,vMes)
hArquivo := fCreate(arq,0)
If hArquivo = -1
Alert('Erro na criacao do arquivo')
Return NIL
Endif
SET DEVICE TO PRINTER
SET PRINT TO &arq
* --- Inicio da pagina
cLinha := 0
DO WHILE !EOF()
* --- Linhas de detalhe do relatorio
@ cLinha,000 SAY c01
@ cLinha,005 SAY c02
@ cLinha,023 SAY c03
@ cLinha,041 SAY c04
@ cLinha,046 SAY strzero(c05*100,12,0)
@ cLinha,058 SAY C06
@ cLinha,068 SAY c07
@ cLinha,074 SAY c08
@ cLinha,180 SAY c09
@ cLinha,215 SAY c10
@ cLinha,217 SAY c11
@ cLinha,237 SAY c12
@ cLinha,257 SAY c13
@ cLinha,277 SAY strzero(c14*100,15,0)
@ cLinha,292 SAY c15
@ cLinha,312 SAY strzero(c16*100,15,0)
cLinha = cLinha + 1
SKIP
ENDDO
* ------------ final --------------------
fClose(hArquivo)
SET PRINTER OFF
SET CONSOLE ON
EXIT
CASE LASTKEY()=K_ESC
EXIT
OTHERWISE
TONE(300,0.02)
TONE(500,0.02)
ENDCASE
ENDDO
SET FILTER TO
GO TOP
SETCOLOR("w+/bg")
RETURN NIL