PC Toledo

Olá pessoal, bom dia e Feliz 2008 !!!, preciso gerar um arquivo nesse formato, alguem já teve a oportunidade ?, é para gerar o Leiaute do arquivo digital da Nota Fiscal, modelo 1 ou 1-A (a que se refere o artigo 2º, I, da Portaria CAT 102/2007).
Honório

Vixe! UTF-8? Tem isso também? Esse povo gosta de inventar. ))

De duas uma: ou o XHarbour tem algo pronto na sua biblioteca padrão (talvez até tenha numa biblioteca qualquer que manipule protocolos Internet: POP3, SMTP, HTTP, etc.) ou você terá de fazer. O bom é que, se você tiver de fazer, não é coisa difícil. Documentação tem de monte. Dá um certo trabalho, mas não é o fim do mundo.

) Boa noticia, o xHarbour 1.1.0 disponibilizou a conversão de texto "comum" para "UTF8", valeu.

Sortudo! Se livrou de uma.

Caro Hasa.
Meus aplicativos são na maioria em clipper, estou iniciando a migração para xHarbour. Entretanto não estou encontrando como gerar o arquivo em UTF-8 no clipper, poderia dar umas dicas como fazer no xHarbour ?
Acho que vou ter que partir para o xHarbour pra valer.
Obrigado.

)
Paulo no xHarbour 1.1.0 foi criada a função para converter texto puro para UTF8:

HB_StrToUTF8( cStr ) e HB_UTF8ToStr( cUtf8 )

Ex:

REQUEST HB_CODEPAGE_PTISO
REQUEST HB_CODEPAGE_PT850

Proc main()

local cStr, cAsc, cUtf8

HB_SETCODEPAGE( "PT850" )

cStr := "Isto é um teste de conversão."

cUtf8 := hb_strToUTF8( cStr )

cAsc := hb_UTF8ToStr( cUtf8 )

? cStr
? cUtf8
? cAsc

Sabe dizer se os fontes dessas funções vêm junto?

Não tenho certeza mas... se baixar os fontes do CVS do xHarbour creio que SIM ok.

Valeu Hasa. Obrigado pelas informações.
Quer dizer que no caso das NF's Mod.1 e 1A, gerando o arquivo texto e depois convertendo para UTF-8, fica no formato exigido pela Portaria ?
Se meus sistemas em clipper gerarem o arquivo texto, posso depois apenas converter por um aplicativo em xHarbour ?
Como já disse sou iniciante em xHarbour, por isso vou fazer alguns testes, se tiver problemas volto a pedir ajuda. Se tudo estiver caminhando bem, vou postando as notícias deste caso. Obrigado novamente.

Você pode sim passar para UTF-8 no xharbour porque o arquivo mesmo no clipper é 100% texto na geração ok

Obrigado pela informação.
Ainda não consegui fazer os testes. Falta tempo... Pra variar...
Farei uns testes de conversão e volto a postar.

Pessoal, a versão que tenho é a 1.0.0, que não tem a função citada pelo Hasa.
Onde baixo a versão 1.1.0 ?

A vs 1.1 é a versão do CVS. Disponível apenas para testes.

Aprenda a baixar os fontes do CVS aqui

Jânio

Baixe direto nesse link, se baixar do CVS terá que criar, aqui está prontinho para usar ok:

http://www.hmgextended.com/files/xHARBO ... cc-5-5.exe

:xau

Valeu mesmo Hasa.
Já estava há horas baixando o compilador para o xHarbour.
Com este link, já baixei e testei a conversão. Parece que está tudo OK.
Agora vou para um teste mais real.
Obrigado.