Como criar .TXT com 28 digitos

[Gilberto M Silva]

Olá pessoal,
estou implementando meu sistema para homologar o PAF-ECF, estou fazendo o relatório "Movimento por ECF" que será gerando em um arquivo TXT no seguite formato: CCCCCCNNNNNNNNNNNNNNDDMMAAAA.TXT, onde, CCCCCC=Cod. Nacional de identificação do ECF, NNNNNNNNNNNNNN=últimos 14 digitos do nº de série do ECF e DDMMAAAA=data da geração do arquivo. Eu posso fazer isso no Clipper?? como faço?? :%

[Clipper]

Prezado Gilberto

Basta você usar a LFNLIB para tal. Essa lib tem todos os recursos necessários para se trabalhar com nomes longos.

Veja abaixo alguns exemplos :

Código: Selecionar todos

NOMECURTO="LISTA.TXT"
NOMELONGO="LISTA DE COMPRAS PARA O MES DE JANEIRO DE 2012.TXT"
LF_FRENAME(NOMECURTO,NOMELONGO)

Código: Selecionar todos

NOMEANTIGO="Relatorio de Vendas no Mes de Agosto.txt"
NOMENOVO="Relatorio de Vendas no Mes de Agosto de 2011.doc"
LF_FRENAME(NOMEANTIGO,NOMENOVO)

Baixe a LFNLIB no link abaixo :
http://www.engwall.com/download/lfnlib/lfnlib.zip

Você precisará também da NANFORUM LIB. Baixe no link abaixo :
http://www.the-oasis.net/files/library/nflib305.zip

Para mais detalhes visite :
http://www.engwall.com/clipper/lfnlib.htm

Até logo.

Marcelo

[Gilberto M Silva]

Funcionou legal, só que o nome do arquivo tem que ser composto por variáveis:
ex:
crio o arquivo movECF.txt
set print to movECF.txt

transformando o arquivo:
nomecurto:=movECF.txt

o novo nome tem quer da seguinte forma:
CCCCCCNNNNNNNNNNNNNNDDMMAAAA.TXT
CC:=V_CNIE (variavel com o Codigo Nacional de Identificação do ECF)
NN:=V_NSER (variavel com os 14 ultimos digitos do nº de serie do ECF)
DD:=date() (data atual).
como faço para montar esse novo nome??
novonome:=CC+NN+DD+.txt
LF_FreName(nomecurto,novonome) ,, fiz assim mais não deu certo.

Att.
Gilberto

[ANDRIL]

Gilberto, se não conseguir com a LFN.LIB, tente usar uma utilitário que permite copiar, renomear usando nomes longos, esta na seção download, https://pctoledo.org/forum/fileba ... t=c&page=1
Inclusive, tem um exemplo de uso. Quando precisei usei e resolveu o problema de nome longos.

Abraços.

[Gilberto M Silva]

Vleu, com a ajuda do Marcelo e uma fuçada aqui no forum achei um post do Pablo e resolvi da seguinte forma:
toda vez que emito a Redução Z crio um TXT com o nome do arquivo do Movimento por ECF na forma: CCCCCCNNNNNNNNNNNNNNDDMMAAAA sendo que o CCCCCC estraio do BD o Ns e a data extraio do ECF acrecento ".TXT" depois leio a linha no TXT com a funcão
VAR:=MEMOREAD() // Para ler o arquivo e atribuir a uma variável
salvo no DB uso a lfn.lib para mudar o nome do arquivo e pronto.

Vleu galera :-Y

[lucimauro]

Gilberto como voce esta fazendo a comunicacao com ECF para o PAF porque tambem como iniciando agora sabe
podemos trocar ideas.juntando vamos conseguir.

[Gilberto M Silva]

Lucimauro, o que você quer saber? o meu sistema estou fazendo para rodar com impressora Daruma, aqui na minha região os meus clientes utilizam só a Daruma, post suas duvidas no que'u poder ajudar estou a disposição, estou trabalhando para no proximo mês homologar meu sistema, próxima semana começarei a implementar o TEF, e seja o que Deus quiser.
Att. Gilberto

[lucimauro]

Gilberto tenho algumas duvidas.

1. Voce fez mesmo em clipper ou migrou para o (x)harbour?

2. Voce esta usando o acbrmonitor para se comunicar com a ECF ou das dll mesmo da daruma?

3. Como voce faz ou ta fazendo para assinar os arquivos ?

4. Como voce ta fazendo a questa da transicao das informacoes pra seu retarguarda?

5. queria que voce me dessa uma explicadao melhor sobre DAVE ou ORCAMENTOS dentro do sistema?


Sei que sao muitas perguntas,mais se puder me ajudar agradeço.

Abraco.
Lucimauro.

[Gilberto M Silva]

1. Voce fez mesmo em clipper ou migrou para o (x)harbour?

2. Voce esta usando o acbrmonitor para se comunicar com a ECF ou das dll mesmo da daruma?

3. Como voce faz ou ta fazendo para assinar os arquivos ?

4. Como voce ta fazendo a questa da transicao das informacoes pra seu retarguarda?

5. queria que voce me dessa uma explicadao melhor sobre DAVE ou ORCAMENTOS dentro do sistema?

1. estou fazendo em clipper mesmo

2. estou usando DLL da Daruma DarumaFramework_DLL com o observer 2.1.3

3. crei minha assinatura no puttygen e assino os arquivos assim: ex:

Código: Selecionar todos

CAMINHO:="C:\SISTEMAS\ce\MOVIMECF.TXT" &&ande esta o arquivo que quero assinar
ASSINKEY:="C:\DARUMA\ASSINA.KEY" &&onde esta o arquivo com a minha assinatura
VAR_BUFFER_COMANDO := "2042;"+caminho+";"+assinkey+";" &&comando da Dll para assinar o arquivo
COMUNICA_COM_ECF(VAR_BUFFER_COMANDO) &&Executa comando
MENSAGE('Arquivo Gravado no diretório <c:\sistemas\ce\MOVIMECF.TXT>.')

4. Olha essa informação é de acordo com o PAF, no meu sistema eu coloquei 2 opções em rede ou não quando for em rede como a exigencia do PAF é só na emissão de cupom o sistema funcionar independente de rede, faz a venda como se fosse local, ao final da venda checa a rede, se tiver envia os dados para da baixa no estoque e zera o arquivo se não vai acumulando até a rede esta disponivel, e o operador do caixa fica periodicamente puxando a tabela de estoque para atualizar no PDV

5. no meu sistema não trabalho com DAV nem pre-venda, a venda é feita na hora, talvez implemente o DAV mais não agora, a maioria dos meus clientes é mercearia, bodega, os outros não trabalha com orçamento nem pre-venda.

lucimauro, em que cidade vc tá vc já desenvolve para impressora fiscal?? quais marcas? eu estou implementado o meu para trabalhar exclusivamente com a Daruma, pois meus clientes são todos impressora Daruma.
Att. Gilberto

[lucimauro]

Obrigado gilberto por responder.

Na verdadde sou do ceara cidade sobral e estou desenvolvendo para duruma F600, mais tambem quero fazer para bematech, ja que tenho mais clientes para esse dois modelos.!

[Gilberto M Silva]

Lucimauro,
na medida que vc for implementando seu sistema na duvida post que no que podermos lhe ajudar, ajudaremos.