User Function NextNum()

Local cNum := ''

​

cNum := NextNumero("SC7",1,"C7_NUM",.F., "000007")  

DbSelectArea("SC7")DbSetOrder(1)

If ( !dbSeek( xFilial("SC7")+cNum ))    

  Reclock("SC7", .T.)   

    SC7->C7_FILIAL  := xFilial("SC7")   

    SC7->C7_NUM     := cNum 

    SC7->C7_TIPO    := 1    

    SC7->C7_ITEM    := "001"    

    SC7->C7_PRODUTO := "PRODUTO 1"

    SC7->C7_UM      := "UN"

    SC7->C7_QUANT   := 1    

    SC7->C7_PRECO   := 30

    SC7->C7_TOTAL   := 30   

    SC7->C7_QTSEGUM := 0    

    SC7->C7_IPI     := 0    

    SC7->C7_DATPRF  := ddatabase    

    SC7->C7_EMISSAO := ddatabase

    SC7->C7_LOCAL   := "N"

    SC7->C7_FORNECE := "000001"

    SC7->C7_LOJA    := "01"

    SC7->C7_COND    := "001"    

    SC7->( MsUnlock() )

   EndIf

  Return