PC Toledo

Código: Selecionar todos

        vCodigo = 0   // inicializa a variável com ZERO
        SELECT CLIENTE // selectiona arquivo de dados
        SET ORDER TO 1
        go bottom  // vai para o final do arquivo
        vCODIGO = CODIGO + 1   // pega o último número + 1
        append blank
        replace CODIGO with vCODIGO,; // grava novo registro
                TIPPES with vTIPPES,;
        ...
        ...

Código: Selecionar todos

* PARA INCLUIR:
* cCodigo, cCodCli, cCodDoc, cPedido ...
cCodigo := GeraNum("I",SPACE(06))

* PARA EXCLUIR:
GeraNum("E",cCodigo)

Código: Selecionar todos

*** FUNCTION PARA GERAR NUMERO SEQUENCIAL ***
FUNCTION GeraNum(cVar,cNL)
*
LOCAL nArq, nNl, cNumLan := SPACE(06)
*
IF (VALTYPE(cVar) <> "C") .OR. (cVar == NIL)
   RETURN(cNumLan)
END
*
cVar := ALLTRIM(cVar)
*
IF (cVar <> "I") .AND. (cVar <> "E")
   RETURN(cNumLan)
END
IF (cVar == "E") .AND. ((VALTYPE(cNL) <> "C") .OR. (cNL == NIL))
   RETURN(cNumLan)
END
*
nArq := Arquivo("LANCAMENTO")
*
IF Abre_Dbf(aDbfNtx[nArq,01],aAlias[nArq],lMono,5)
   && Abre_Ntx(nArq)
ELSE
   SETCOLOR(cCor5)
   Mensagem("*** O "+aMsgArq[nArq,01]+" NAO ESTA DISPONIVEL ***")
   Retorno()
   RETURN(cNumLan)
END
*
IF     cVar = "I"  && Inclusao ...
   IF     LASTREC() = 0
      GOTO BOTTOM
      nNl     := 1
      cNumLan := STRZERO(nNl,6)
      APPEND BLANK
      REPLACE NUMLAN WITH CD(cNumLan)
   ELSEIF LASTREC() = 1
      GOTO 1
      nNl     := VAL(DC(NUMLAN))+1
      cNumLan := STRZERO(nNl,6)
      REPLACE NUMLAN WITH CD(cNumLan)
   ELSEIF LASTREC() >= 2
      GOTO 2
      nNl     := VAL(DC(NUMLAN))
      cNumLan := STRZERO(nNl,6)
      DELETE
      PACK
   END
ELSEIF cVar = "E"  && Exclusao ...
   GOTO BOTTOM
   APPEND BLANK
   REPLACE NUMLAN WITH CD(cNL)
END
COMMIT
CLOSE LANCAMENTO
RETURN(cNumLan)
***

Código: Selecionar todos

USE ARQUIVO.DBF
GOTO TOP
*
nN := 0
*
WHILE (.NOT. EOF())
   nN := nN + 1
   REPLACE NUMERO WITH nN
/*
   SE FOR ALFANUMERICO/CARACTERE (00000001),
   REPLACE NUMERO WITH STRZERO(nN,8) 
*/
   SKIP
END
*
QUIT
*

Código: Selecionar todos

REPLACE ALL NUMERO WITH RECNO()

Se o campo NUMERO for caractere então...

REPLACE ALL NUMERO WITH STRZERO(RECNO(),8) // Com zeros a esquerda
ou
REPLACE ALL NUMERO WITH STR(RECNO(),8) // Sem zeros a esquerda