Bom, nao entendo nada de harbour ou xharbour.
Tenho um prg em clipper summer que gostaria de converte-lo em harbour.
Esse prg tem base:dbf e indice:ntx, e gostaria de adapta-lo com base:dbf e indice:CDX.
Estrtura CDX:
produto.cdx
prodcod
proddescr
prodbarr
prodpreco
Segue codigo
Código: Selecionar todos
! cls
set exclusive off
set date british
set century on
use stkmaste
do while .t.
use basedados
if ! file ('codbarra.ntx')
set exclusive off
use stkmaste
index on cod_barra to codbarra
close
endif
vpreco1=0
set color to gr+/n
@ 00,00 clear to 09,79
@ 01,01 to 05,79 double
@ 06,01 to 24,79 double
@ 03,29 say 'TERMINAL DE CONSULTA'
@ 12,24 say 'Codigo de Barra'
@ 15,10 say 'Descricao'
@ 15,62 say 'Marca'
@ 19,29 say 'Preco R$:'
set color to
set color to w/n
vcod_barra=space(14)
vpreco1=0
vdescricao=space(50)
vmarca=space(9)
@ 12,40 get vcod_barra picture '99999999999999'
read
if lastkey () = 27
clear
quit
endif
set index to stkbarra
find (vcod_barra)
if eof ()
set color to w/n*
@ 09,27 say "Codigo Nao Encontrado..."
set color to
set color to r/n
@ 16,10 say "Descricao nao encontrada! "
@ 16,62 say "N/E "
@ 19,39 say " 0.00"
set color to
* inkey (0)
* inkey (4)
close
loop
set color to
endif
vdescricao=descricao
vmarca=marca
vpreco1=prvvmn_v
@ 16,10 say vdescricao picture "@!"
@ 16,62 say vmarca picture "@!"
@ 19,39 say vpreco1 picture"999,999.99"
* inkey(0)
vcod_barra=space(14)
close
@ 00,00 clear to 06,79
goto top
enddo
close all
return
