Página 1 de 1
Estudando velho DBase ... e aplicando ao Harbour ...
Enviado: 25 Ago 2021 21:27
por arcanjoebc
Depois de muito tempo, resolvi voltar a programar como nos tempos do MS-DOS. Adquiri um livro no site do EstanteVirtual e estou construindo um pequeno sistema comercial "às antigas" ... porém o conhecimento que tenho é apenas de DBase e, muita coisa eu já nem lembrava mais. Agora, me deparei com um erro na compilação do mesmo, aparecendo a seguinte mensagem:
- user@pc-positivo:/media/user/SAMSUNG/Livro$ hbmk2 -hbexe -ldflag=-no-pie menu.prg
Harbour 3.2.0dev (r1610041322)
Copyright (c) 1999-2016, http://harbour-project.org/
Compiling 'menu.prg'...
Compiling 'inicio.prg'...
Cannot open INSIG.prg, assumed external
Compiling 'menu1.prg'...
Compiling 'menu2.prg'...
Compiling 'menu3.prg'...
Compiling 'menuproc.prg'...
Compiling 'menu11.prg'...
Compiling 'menu12.prg'...
Compiling 'menu13.prg'...
Compiling 'menu14.prg'...
Compiling 'menu15x.prg'...
Compiling 'menu2p.prg'...
Compiling 'menu23.prg'...
Compiling 'menu24.prg'...
Compiling 'inicio3.prg'...
Compiling 'menu31.prg'...
Compiling 'menu32.prg'...
Compiling 'menu33.prg'...
Compiling 'menu34.prg'...
Compiling 'menu35.prg'...
Compiling 'menu36.prg'...
Compiling 'menu1s.prg'...
Compiling 'menu3s.prg'...
Compiling 'menu351.prg'...
menu351.prg(28) Error E0030 Syntax error "syntax error at 'QTPEDIDA'"
menu351.prg(45) Error E0030 Syntax error "syntax error at 'NORDCOMP'"
Compiling 'menu352.prg'...
Compiling 'menu353.prg'...
Compiling 'menu354.prg'...
Compiling 'menu361.prg'...
Compiling 'menu362.prg'...
Compiling 'menu35p.prg'...
Compiling 'menu361a.prg'...
Compiling 'menu361b.prg'...
Compiling 'menu361c.prg'...
2 errors
No code generated.
hbmk2: Erro: Executando o compilador Harbour (interno): 1
(/usr/bin/harbour) -n2 menu.prg -o/tmp/hbmk_tfwdqr.dir/ -i/usr/include/harbour
user@pc-positivo:/media/user/SAMSUNG/Livro$
Segundo me consta, a sintaxe está errada, porém, analisando o código, não vi tal erro!!!! O que pode estar acontecendo? Estou usando o Lubuntu 18.04 64 bits como sistema operacional e, como a listagem diz, o Haarbour 3.2dev ... aguardo futuro contato e, desde já, agradeço as respostas!
Estudando velho DBase ... e aplicando ao Harbour ...
Enviado: 25 Ago 2021 21:54
por Itamar M. Lins Jr.
Olá!
Bem vindo.
Mostre as linhas dos dois erros. Pelo menos 3 linhas de cada.
menu351.prg(28) Error E0030 Syntax error "syntax error at 'QTPEDIDA'" 27,28,29
menu351.prg(45) Error E0030 Syntax error "syntax error at 'NORDCOMP'" 44,45,46
Saudações,
Itamar M. Lins Jr.
Estudando velho DBase ... e aplicando ao Harbour ...
Enviado: 25 Ago 2021 23:59
por alxsts
Olá!
Um dos colegas aqui do fórum,
Vlademiro Landim Jr, publicou um livro que, creio eu, pode te ajudar:
INTRODUÇÃO A PROGRAMAÇÃO USANDO A LINGUAGEM HARBOUR
Estudando velho DBase ... e aplicando ao Harbour ...
Enviado: 26 Ago 2021 21:09
por arcanjoebc
%Eu li esse e-book, mas precisava de algo mais específico, que falasse de Sistemas Comerciais para PC, então comprei um livro bem baratinho, no EstanteVirtual, chamado, "dbase III Plus, Aplicões Comerciais", de autoria de Robert A. Byers. Muita coisa nele é similar ao que aprendi nos 1900 e antigamente, o que ajuda a recapitular ... pretendia fazer os exemplos e, depois, compilar no Harbour. Até agora estava dando certo, 98% de compatibilidade e com pequenas modificações. Mas neste caso não tem sentido ... Abre o DBF, o campo existe e o compilador diz que dois campos estão com erro de sintaxe ... eu não me lebro muito do comando SUM ... TO ..., por isso resolvi perguntar. Vou colocar o código abaixo para que vejam:
Código: Selecionar todos
*-----------------------------------------------------------*
* PROGRAMA : menu351.prg *
* DATA : 16/08/2021 *
* FINALIDADE : PROCURAR NO INVENTARIO *
*-----------------------------------------------------------------*
PROCEDURE menu351
clear
? "Procurando no Inventario quais livros precisam ser comprados"
select LIVROPED
set relation to
select INVENTAR
set relation to ISBN into LIVROPED
set filter to QTESTQ + LIVROPED->QTPEDIDA < ESTQMIN
go top
if eof()
? "Nao ha livros para comprar"
wait
else
? "Processando Ordens de Compra"
endif
MNORDCMP = CONTROLE->NORDCOMP
do while .not. eof()
MCODFORN = CODFORN
do while INVENTAR->CODFORN = MCODFORN .and. .not. eof()
select LIVROPED
sum QTPEDIDA while INVENTAR->ISBN = ISBN to QTLVRPED
if QTLVRPED + INVENTAR->QTESTQ < INVENTAR->ESTQMIN
append blank
replace ISBN with INVENTAR->ISBN,;
DATPEDIDO with date(),;
QTPEDIDA with INVENTAR->QTPEDIDA
replace CUSTO with INVENTAR->CUSTO,;
NORDCOMP with CONTROLE->NORDCOMP,;
CODFORN with INVENTAR->CODFORN
do while QTLVRPED + QTPEDIDA < INVENTAR->ESTQMIN
replace QTPEDIDA with QTPEDIDA+INVENTAR->QTPEDIDA
enddo
endif
select INVENTAR
skip
enddo
select CONTROLE
replace NORDCOMP with NORDCOMP + 1 with date()
select INVENTAR
enddo
set filter to
set relation to CODFORN into FORNECED
select LIVROPED
set relation to ISBN into INVENTAR
if MNORDCMP # CONTROLE->NORDCOMP
do menu352 with 1, CDATA,BAR
endif
RETURN
Aguardo alguma instruçãoi futura, tudo de bom a todos!
Estudando velho DBase ... e aplicando ao Harbour ...
Enviado: 26 Ago 2021 22:15
por alxsts
Olá!
arcanjoebc escreveu:eu não me lebro muito do comando SUM ... TO ..., por isso resolvi perguntar
Veja:
SUM
Sum numeric expressions and assign results to variables
------------------------------------------------------------------------------
Syntax
SUM <nExp list> TO <idVar list>
[<scope>] [WHILE <lCondition>] [FOR <lCondition>]
Arguments
<nExp list> is the list of numeric values to sum for each record
processed.
TO <idVar list> identifies the receiving variables to be assigned
assign the results of the sum. Variables that either do not exist or
are not visible are created as private variables. <idVar list> must
contain the same number of elements as <nExp list>.
<scope> is the portion of the current database file to SUM. The
default scope is ALL records.
WHILE <lCondition> specifies the set of records meeting the
condition from the current record until the condition fails.
FOR <lCondition> specifies the conditional set of records to SUM
within the given scope.
Description
SUM is a database command that totals a series of numeric expressions
for a range of records in the current work area and assigns the results
to a series of variables. The variables specified in <idVar list> can
be field, local, private, public, or static.
Note that the <nExp list> is required and not optional as it is in other
dialects.
Examples
. This example illustrates the use of SUM:
LOCAL nTotalPrice, nTotalAmount
USE Sales NEW
SUM Price * .10, Amount TO nTotalPrice, nTotalAmount
//
? nTotalPrice // Result: 151515.00
? nTotalAmount // Result: 150675.00
Troque
Por
Esta linha (44) também está com erro (tem 2 WITH):
Para referências sobre comandos e funções, acesse este link que contém o
CA-Clipper 5.3 - Guide To CA-Clipper
Estudando velho DBase ... e aplicando ao Harbour ...
Enviado: 27 Ago 2021 11:43
por JoséQuintas
E esta parte que não acusou erro... tá esquisita
Código: Selecionar todos
do while QTLVRPED + QTPEDIDA < INVENTAR->ESTQMIN
replace QTPEDIDA with QTPEDIDA+INVENTAR->QTPEDIDA
enddo
Estudando velho DBase ... e aplicando ao Harbour ...
Enviado: 01 Nov 2024 10:18
por alxsts
Olá!
Apenas atualizando o link para download do livro, pois aquele postado acima está quebrado:
Download:
INTRODUÇÃO A PROGRAMAÇÃO USANDO A LINGUAGEM HARBOUR