TRAZENDO O ZERO DO CNPJ
eu tenho o campo cnpj na minha tabela. ele do tipo numeric com tamanho de 15 e 0 de casas decimais.
e o q acontece: se eu digito esse cnpj direto na tabela 04664203000133, o banco grava sem o zero (0) ficando assim 4664203000133. tá aàblz. afinal o campo é numerico.
só q quando eu trago eu faço a seguinte formatação: ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = format(dCNPJ, "@@.@@@.@@@/@@@@-@@")
só q nesse caso eu preciso colocar um zero sempre antes do numero quando esse cnpj tiver um tamanho de 13. aàeu coloco o zero antes.
como faer isso?
e o q acontece: se eu digito esse cnpj direto na tabela 04664203000133, o banco grava sem o zero (0) ficando assim 4664203000133. tá aàblz. afinal o campo é numerico.
só q quando eu trago eu faço a seguinte formatação: ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = format(dCNPJ, "@@.@@@.@@@/@@@@-@@")
só q nesse caso eu preciso colocar um zero sempre antes do numero quando esse cnpj tiver um tamanho de 13. aàeu coloco o zero antes.
como faer isso?
nao seria format(CPJ, "00.000.000/0000-00") ????
eu já arrumei fiz isso:
ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = right(String(18, "0") & Replace(format(dCNPJ, g_sMascara_CNPJ), " ", ""), 18)
ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = right(String(18, "0") & Replace(format(dCNPJ, g_sMascara_CNPJ), " ", ""), 18)
Tópico encerrado , respostas não são mais permitidas