oziel Posted October 5, 2010 Report Share Posted October 5, 2010 Caros . Hoje estou com um problema pois preciso gerar arquivos de do Sintegra desde 2007 de uma empresa, tenho o programa mais a empresa já fechou. Neste sistema não gera o reg. 74. Preciso de uma dica sobre a transformação de valores numéricos em strings de caracteres. Ex. 12,53 (dbf n 12,2)em um campo 000000001253 (doze posições) para q quando for gravado em arq. txt preencha o campo corretamente. Obrigdo. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 Quote Link to comment Share on other sites More sharing options...
oziel Posted October 5, 2010 Author Report Share Posted October 5, 2010 Caros . Hoje estou com um problema pois preciso gerar arquivos de do Sintegra desde 2007 de uma empresa, tenho o programa mais a empresa já fechou. Neste sistema não gera o reg. 74. Preciso de uma dica sobre a transformação de valores numéricos em strings de caracteres. Ex. 12,53 (dbf n 12,2)em um campo 000000001253 (doze posições) para q quando for gravado em arq. txt preencha o campo corretamente. Obrigdo. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted October 6, 2010 Report Share Posted October 6, 2010 ai vai um exemplo entre tantos.... claro que da pra fazer tudo nume só linha.. só detalhei pra exempleficar... vValor1:= transf(12.53,"@E 9999999999.99") vValor1:= subs(vvalor1,1,10)+subs(vvalor1,12,2) vValor1:= strzero(val(vvalor1),12) ?vValor1 vitor s.b.c. Quote Link to comment Share on other sites More sharing options...
oziel Posted October 6, 2010 Author Report Share Posted October 6, 2010 Obrigdo... Até breve... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 Quote Link to comment Share on other sites More sharing options...
luiz53 Posted October 6, 2010 Report Share Posted October 6, 2010 valor1 := strzero((12.53*100),12) ? valor1 Messager luizantoniooliveira@hotmail.com Skype luizantoniooliveira Xhb 1.0 / FW 9.07 / WorkShop / HbMake / Xmate / Clipper 5.3b / Blinker 5.1 / LLibg www.omega-store.com.br Quote Link to comment Share on other sites More sharing options...
Anthony Ormond Posted October 7, 2010 Report Share Posted October 7, 2010 Se eu entendi bem o que vc precisa... segue uma dica //-- 16 - quantidade de digitos no layout - considerando que a variavel pnValorProd tem 2 decimais nCont:= 16 -len(alltrim(strtran(strtran(str(pnValorProd),"."),","))) //-- Acrescenta os zeros a esquerda cValorProd := replicate("0",nCont) + alltrim(strtran(strtran(str(pnValorProd),"."),",")) Editado por - aormond on 07/10/2010 08:33:32 Quote Link to comment Share on other sites More sharing options...
oziel Posted October 7, 2010 Author Report Share Posted October 7, 2010 Obrigado. - Luiz53 - Aormond - Vitor. Problema Resolvido. Todas as dicas foram válidas. Já fiz o programa em Clipper 5 por enquanto. Mas, o objetivo foi alcançado. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.