replace DocNumber with str(year(date()),4) + "-"; + padl(SerialNumber("Sequence_1"), 6, "0")Where SerialNumber() is the function that looks in your sequence tables. This function might look like this:
********************************************************************** FUNCTION SERIALNUMBER(tnSequence) * Conseguir número secuencial. Usado para generar claves primarias. local lnSelect lnSelect = select() if used("serialnumber") select serialnumber else select 0 use serialnumber endif set order to "sequence" seek padr(tnSequence, len(sequence)) if not found() append blank replace sequence with tnSequence, nextnum with 1 endif local lnReturnValue if lock() lnReturnValue = nextnum replace nextnum with nextnum + 1 else lnReturnValue = -1 endif select (lnSelect) unlock return lnReturnValue>hi,
local lnYear, lnDocNumber lnYear = 2004 lnDocNumber = 73 && might be the result of some user input set order to DocNumber if not seek(str(lnYear, 4) + "-" + padl(lnDocNumber, 6, "0") MessageBox("This document doesn't exist.") endif