Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

neibres

PHC - Inserir/Criar novas referencias a partir de um ficheiro .dbf

Mensagens Recomendadas

neibres

Boa Noite

Tenho uma tecla do utilizador que actualiza o epv1 e epv2 a partir do ficheiro real.dbf:

if file('c:\real.dbf') then
use c:\real.dbf
select real
scan

cod='"Update st set epv1='+alltrim(str(real.epv1))+'.'+substr(alltrim(str(real.epv1-int(real.epv1),8,2)),3,2)+' where ref='+"'"+rtrim(real.ref)+"'"+'"'
cod1='"Update st set epv2='+alltrim(str(real.epv2))+'.'+substr(alltrim(str(real.epv2-int(real.epv2),8,2)),3,2)+' where ref='+"'"+rtrim(real.ref)+"'"+'"'


u_sqlexec(&cod)
u_sqlexec(&cod1)

endscan
else
messagebox('Ficheiro C:\REAL.DBF não foi encontrado!',16,'Obrigado')
endif
select st

Preciso de saber que linhas tenho que alterar e se é possível inserir novas referencias com os campos ( ref, design, epv1, epv2 e familia ) a partir do ficheiro.

Caso a referencia já exista o "programa passa a frente"?

Cumprimentos, Rui

Editado por apocsantos
geshi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.