Código Identificação Nacional ECF

[lucasbelkys]

O AcbrECF possui função que retorne o código nacional do ecf conectado ao componente ?

Se não, eu pretendo implementar isso para contribuir com o projeto. Isso é muito útil na geração do arquivo "movimento por ecf" após a Redução Z.

Lucas Belkys

[Daniel Simoes]

O componente ACBrCNIEE é capaz de efetuar Download do site do fisco (de MG) e criar uma lista de Objetos com todos os modelos Existentes... (Veja o Demo dele)

Mas cruzar isso com as informações de Modelo e Versão em String, disponível no ACBrECF é algo bem mais difícil e propenso a erros...

[lucasbelkys]

eu lembro desse componente - sem querer pleitear mérito, pois ele é todo teu - você iniciou o desenvolvimento dele na época a partir de uma conversa nossa em algum fórum.

eu acho seguro implementar isso no AcbrECF, pois esse componente já retorna fabricante, modelo e versão do SB. Podendo se criar uma função do tipo AcbrECF.CNIEE. onde haverá na unit um "array const" com essas informações definidas.

o inconveniente que vejo é a atualização das informações qnd lançarem novos ECF's ou novas versões de SB (software básico).

iai? o que vc acha?

Lucas Belkys

[Daniel Simoes]

Acho que é possível de implementar nos ECFs mais utilizados... os próprios fabricantes tem uma relação que pode ser usada... O problema é que a tabela do fisco não segue um padrão...

Vc encontrará FS600, FS-700, por exemplo... nem sempre é igual a informação lida pelo ACBrECF...

[Régys Silveira]

Você tentou usar o método ACBrCNIEE.BuscarECF(AMarca, AModelo, AVersaoSB): TACBrCNIEERegistro, eu uso e funciona perfeitamente para a maioria das impressoras.

var

  ECF: TACBrCNIEERegistro;

  Marca, Modelo, Firmware: String;

begin

    Marca    := Trim(dtmPDV.ECF.ModeloStr);

    Modelo   := Trim(dtmPDV.ECF.SubModeloECF);

    Firmware := Trim(dtmPDV.ECF.NumVersao);


    ECF := ACBrCNIEE1.BuscarECF(Marca, Modelo, Firmware);

    if ECF  nil then

    begin

      edtCodigoECF.Text :=

        Format('%s%s%s', [ECF.CodMarca, ECF.CodModelo, ECF.CodVersao]);

    end;

end;

[/code]

[lucasbelkys]

Tentei instalar no meu delphi 7, mas não consigo encontrar esse componente nas pastas do ACBR no meu PC. Fiz o update do SVN agora e nada, onde estaria Daniel ?

[Régys Silveira]

Ele está no pacote ACBrTCP, instalou esse pacote?