PC Toledo

Ola Pessoal
Boa Noite

Estou com uma certa dificuldade para montar uma rotina, é o seguinte:

Tenho um Dbf, com os seguintes campos: Equipe:=Space(01), Turno:=Space(01), NrOser:=Space(10), pois bem, o cliente quer digitar apenas duas Ordem de serviços por equipe e por turno, ou seja:

Equipe = A
Turno = Manhã
Data 03-08-2007
Os: 00001

Equipe = A
Turno = Manhã
Data 03-08-2007
Os: 00002

Esta equipe A, nesta data, neste turno manhã, não pode mas ser digitado nada para ela.

Pergunta. Como posso bloquear a rotina para não permitir q o usuário digite outra Os no mesmo dia e turno, então seria duas os. por turno e equipe.

Se alguem puder me ajudar, eu agradeço desde já.
Grande abraço

Indexe por Equipe / Turno / Data.
E use o Seek com um contador:

Código: Selecionar todos

use arquivo
index on equipe+turno+dtos(data) to arquivo
set index to arquivo
Vequipe="A"
Vturno="M"
Vdata=ctod("03/08/2007")
conta=0
seek Vequipe+Vturno+dtos(Vdata)
do whil .t.
  if Vequipe=equipe .and. Vturno=turno .and. Vdata=data
     conta++
  else
     exit
  endi
  skip
endd
wait conta // veja a seguir

Se conta<2, então vc pode emitir outra OS para a equipe "A" + Turno "M". Se conta=2, não pode.

Valeu meu amigo Eolo

Já vou incrementar minha rotina, obrigado

Boa noite

Depois conte se deu certo.

PC Toledo

Num banco de dados só aceitar até dois lançamentos por turno

Num banco de dados só aceitar até dois lançamentos por turno