CNPJ FORMATADO
Senhores,
Faço exportação de alguns campos de uma tabela para um arquivo txt.
Só que não consigo exportar um determinado campo "CGC"
no formato 99.999.999/9999-99
Só consigo exportar assim: 99999999999999
A linha abaixo mostra o momento que estou tratando esse campo:
Arquivo.sRegistro = Arquivo.sRegistro & Format(rec!CgcCli, "##.###.###/####-##")
O que pode estar errado?
Faço exportação de alguns campos de uma tabela para um arquivo txt.
Só que não consigo exportar um determinado campo "CGC"
no formato 99.999.999/9999-99
Só consigo exportar assim: 99999999999999
A linha abaixo mostra o momento que estou tratando esse campo:
Arquivo.sRegistro = Arquivo.sRegistro & Format(rec!CgcCli, "##.###.###/####-##")
O que pode estar errado?
como esta sendo gravado no banco de dados? vc grava junto a máscara do cgc?
no banco de dados está assim: 99999999999999
Então quando quero que grave no arquivo txt quero que fique assim:
99.999.999/9999-99
E não estou coseguindo fazer
Então quando quero que grave no arquivo txt quero que fique assim:
99.999.999/9999-99
E não estou coseguindo fazer
vc já tentou..
Open tal e tal..
Print #1,Format(rec!CgcCli, "##.###.###/####-##")
Close #1
Open tal e tal..
Print #1,Format(rec!CgcCli, "##.###.###/####-##")
Close #1
Não entendi bem, mas se quiser deixar apenas os números, é só usar o replace:
Qualquer dúvida poste...flw
Arquivo.sRegistro = Arquivo.sRegistro & Replace(Replace(Replace(rec!CgcCli, ".", ""), "/", ""), "-", "")
Qualquer dúvida poste...flw
se o print que o Dekinho falou não der certo..tente assim:
vCgc = mid(vCgc,1,2) & "." & mid(vCgc,3,3) & "." & mid(vCgc,6,3) & "/" & & mid(vCgc,9,4) & "-" & mid(vCgc,13,2)
Print #1,Format(rec!CgcCli, "@@.@@@.@@@/@@@-@@")
Mas pera aÃ, vc quer tirar os pontos, barra e traço ou colocá-los?
Tópico encerrado , respostas não são mais permitidas