comando durante vcod=recno()
comando durante vcod=strzero(vcod, 14)
comando durante vrs=pad(cp_nome,45)
comando durante vfan=pad(cp_fantasi,10)

comando durante vcnpj=cp_cgc
comando durante vcnpj=strtran(vcnpj, "/", "")
comando durante vcnpj=strtran(vcnpj, ".", "")
comando durante vcnpj=strtran(vcnpj, "-", "")
comando durante vcnpj=strtran(vcnpj, " ", "")
comando durante vcnpj=padl( alltrim(vcnpj), 14, "0")

comando durante vinsc=cp_insc_es
comando durante vinsc=strtran(vinsc, "/", "")
comando durante vinsc=strtran(vinsc, ".", "")
comando durante vinsc=strtran(vinsc, "-", "")
comando durante vinsc=strtran(vinsc, " ", "")
comando durante vinsc=padl( alltrim(vinsc), 20, "0")

comando durante vuf=pad(cp_uf,2)

d[vcod][vrs][vfan][vcnpj][vinsc][vuf] 