ACBRFramework - ECF USB

[andresantana]

Ola a todos, antes de falar sobre a minha duvida gostaria de dar os parabens pelo projeto, excelente estou portando toda a minha aplicação em VB.net para utilizar o ACBr Framework.

1 - Gostaria de saber como posso colaborar / ajudar no projeto?

2 - Hoje o framework funciona com ECF utilizando USB?

Grande abraço a tds

Andre Santana

[Rafael Dias]

Boa tarde,

respondendo suas peguntas.

1 - você pode ajudar baixando o source e testando, ou alterando algo e postando aqui para que possamos analisar.

2 - Sim, como o ACBrFramework é um interop dos componentes ACBr ele funciona exatamente como o mesmo.

[andresantana]

Ola, boa tarde.

Obrigado pela ajuda.

Por favor, como faço para imprimir o relatório de "Parametros de Configuração" do PAF no ACBr Framework, existe alguma função?

Grande abraço.

[Rafael Dias]

Boa tarde.

Abaixo segue um codigo de exemplo de como fazer o relatorio.

Onde esta SoftwareHouse sobustitua pelos dados da empresa.

ACBrECF acbrECF = new ACBrECF();

ACBrAAC acbrAAC = new ACBrAAC();


acbrECF.AAC = acbrAAC;


//Dados da software house

acbrEcf.AAC.IdentPaf.Empresa.RazaoSocial = SoftwareHouse.Name;

acbrEcf.AAC.IdentPaf.Empresa.CNPJ = SoftwareHouse.CNPJ;

acbrEcf.AAC.IdentPaf.Empresa.IE = SoftwareHouse.IE;

acbrEcf.AAC.IdentPaf.Empresa.IM = SoftwareHouse.IM;


acbrEcf.AAC.IdentPaf.Empresa.Email = SoftwareHouse.Email;

acbrEcf.AAC.IdentPaf.Empresa.Endereco = SoftwareHouse.Endereco;

acbrEcf.AAC.IdentPaf.Empresa.Cep = SoftwareHouse.CEP;

acbrEcf.AAC.IdentPaf.Empresa.Cidade = SoftwareHouse.Cidade;

acbrEcf.AAC.IdentPaf.Empresa.Contato = SoftwareHouse.Contato;

acbrEcf.AAC.IdentPaf.Empresa.Endereco = SoftwareHouse.Endereco;

acbrEcf.AAC.IdentPaf.Empresa.Uf = SoftwareHouse.UF;

acbrEcf.AAC.IdentPaf.Empresa.Telefone = SoftwareHouse.Telefone;

//Dados do aplicativo

acbrEcf.AAC.IdentPaf.Paf.BancoDeDadosAplicativo = SoftwareHouse.BancoDeDados;

acbrEcf.AAC.IdentPaf.Paf.MD5Aplicativo = SoftwareHouse.MD5Aplicativo;

acbrEcf.AAC.IdentPaf.Paf.NomeAplicativo = SoftwareHouse.NomeAplicativo;

acbrEcf.AAC.IdentPaf.Paf.PrincipalExeAplicativo = SoftwareHouse.PrincipalExeAplicativo;

acbrEcf.AAC.IdentPaf.Paf.SistemaOperacionalAplicativo = SoftwareHouse.SistemaOperacionalAplicativo;

acbrEcf.AAC.IdentPaf.Paf.VersaoAplicativo = SoftwareHouse.VersaoAplicativo;


//Dados de funcionalidade

acbrEcf.AAC.IdentPaf.Paf.TipoDesenvolvimento = ACBrPAFTipoDesenvolvimento.Comercial;

acbrEcf.AAC.IdentPaf.Paf.TipoFuncionamento = ACBrPAFTipoFuncionamento.EmRede;

acbrEcf.AAC.IdentPaf.Paf.TipoIntegracao = ACBrPAFTipoIntegracao.Ambos;


//Dados de não concomitância

acbrEcf.AAC.IdentPaf.Paf.RealizaDAVConfAnexoII = true;

acbrEcf.AAC.IdentPaf.Paf.RealizaDAVECF = true;

acbrEcf.AAC.IdentPaf.Paf.RealizaDAVNaoFiscal = true;

acbrEcf.AAC.IdentPaf.Paf.RealizaDAVOS = true;

acbrEcf.AAC.IdentPaf.Paf.RealizaLancamentoMesa = true;

acbrEcf.AAC.IdentPaf.Paf.RealizaPreVenda = true;


//Dados de aplicações especiais

acbrEcf.AAC.IdentPaf.Paf.UsaImpressoraNaoFiscal = false;

acbrEcf.AAC.IdentPaf.Paf.IndiceTecnicoProducao = true;

acbrEcf.AAC.IdentPaf.Paf.BarSimiliarBalanca = true;

acbrEcf.AAC.IdentPaf.Paf.BarSimiliarECFComum = true;

acbrEcf.AAC.IdentPaf.Paf.BarSimiliarECFRestaurante = true;

acbrEcf.AAC.IdentPaf.Paf.DAVDiscrFormula = true;


//Dados critério por uf

acbrEcf.AAC.IdentPaf.Paf.TotalizaValoresLista = false;

acbrEcf.AAC.IdentPaf.Paf.TransPreVenda = false;

acbrEcf.AAC.IdentPaf.Paf.TransDAV = false;

acbrEcf.AAC.IdentPaf.Paf.RecompoeGT = true;

acbrEcf.AAC.IdentPaf.Paf.EmitePED = true;

acbrEcf.AAC.IdentPaf.Paf.CupomMania = false;

acbrEcf.AAC.IdentPaf.Paf.MinasLegal = false;


acbrECF.PafMF_RelIdentificacaoPafECF(acbrEcf.AAC.IdentPaf, 0);

Att.

Rafael Dias.

[andresantana]

Ola meu caro, fiz conforme vc postou mas o relatório saiu como no anexo.

Abaixo segue o código

grd abs

  If cmECF.Ativo Then

                cmECF.Desativar()

            End If


            cmAAC = New ACBrAAC

            cmECF.AAC = cmAAC


            '** DADOS SOFTWARE HOUSE **

            cmECF.AAC.IdentPaf.Empresa.RazaoSocial = xmlECF.Tables("tbPAF").Rows(0).Item("pafRazaoSocial")

            cmECF.AAC.IdentPaf.Empresa.CNPJ = xmlECF.Tables("tbPAF").Rows(0).Item("pafCNPJ")

            cmECF.AAC.IdentPaf.Empresa.IE = xmlECF.Tables("tbPAF").Rows(0).Item("pafIE")

            cmECF.AAC.IdentPaf.Empresa.IM = xmlECF.Tables("tbPAF").Rows(0).Item("pafIM")

            cmECF.AAC.IdentPaf.Empresa.Cep = xmlECF.Tables("tbPAF").Rows(0).Item("pafCEP")

            cmECF.AAC.IdentPaf.Empresa.Endereco = String.Format("{0},{1}", xmlECF.Tables("tbPAF").Rows(0).Item("pafLogradouro"), xmlECF.Tables("tbPAF").Rows(0).Item("pafNumero"))

            cmECF.AAC.IdentPaf.Empresa.Cidade = xmlECF.Tables("tbPAF").Rows(0).Item("pafCidade")

            cmECF.AAC.IdentPaf.Empresa.Uf = xmlECF.Tables("tbPAF").Rows(0).Item("pafUF")

            cmECF.AAC.IdentPaf.Empresa.Contato = xmlECF.Tables("tbPAF").Rows(0).Item("pafContato")

            cmECF.AAC.IdentPaf.Empresa.Telefone = xmlECF.Tables("tbPAF").Rows(0).Item("pafTelefone")

            cmECF.AAC.IdentPaf.Empresa.Email = xmlECF.Tables("tbPAF").Rows(0).Item("pafEmail")


            '** DADOS APLICATIVO **

            cmECF.AAC.IdentPaf.NumeroLaudo = xmlECF.Tables("tbPAF").Rows(0).Item("pafLaudo")

            cmECF.AAC.IdentPaf.Paf.BancoDeDadosAplicativo = "MS ACCESS"

            cmECF.AAC.IdentPaf.Paf.LinguagemAplicativo = "VB.NET"

            cmECF.AAC.IdentPaf.Paf.MD5Aplicativo = xmlECF.Tables("tbPAF").Rows(0).Item("pafMD5")

            cmECF.AAC.IdentPaf.Paf.NomeAplicativo = xmlECF.Tables("tbPAF").Rows(0).Item("pafSistema")

            cmECF.AAC.IdentPaf.Paf.PrincipalExeAplicativo = xmlECF.Tables("tbPAF").Rows(0).Item("pafExecutavel")

            cmECF.AAC.IdentPaf.Paf.SistemaOperacionalAplicativo = My.Computer.Info.OSFullName

            cmECF.AAC.IdentPaf.Paf.VersaoAplicativo = xmlECF.Tables("tbPAF").Rows(0).Item("pafVersao")

            cmECF.AAC.IdentPaf.VersaoER = "01.12"

            cmECF.AAC.NomeArquivoAuxiliar = String.Format("{0}\cmPOS.paf", My.Application.Info.DirectoryPath)

            cmECF.AAC.Chave = keyCrypto


            '** DADOS FUNCIONALIDADE **

            cmECF.AAC.IdentPaf.Paf.TipoDesenvolvimento = ACBrPAFTipoDesenvolvimento.Comercial

            cmECF.AAC.IdentPaf.Paf.TipoFuncionamento = ACBrPAFTipoFuncionamento.StandAlone

            cmECF.AAC.IdentPaf.Paf.TipoIntegracao = ACBrPAFTipoIntegracao.NaoIntegra


            '** DADOS NAO CONCOMITANCIA **

            cmECF.AAC.IdentPaf.Paf.RealizaDAVConfAnexoII = False

            cmECF.AAC.IdentPaf.Paf.RealizaDAVECF = False

            cmECF.AAC.IdentPaf.Paf.RealizaDAVNaoFiscal = False

            cmECF.AAC.IdentPaf.Paf.RealizaDAVOS = False

            cmECF.AAC.IdentPaf.Paf.RealizaLancamentoMesa = False

            cmECF.AAC.IdentPaf.Paf.RealizaPreVenda = True


            '** DADOS APLICACOES ESPECIAIS **

            cmECF.AAC.IdentPaf.Paf.UsaImpressoraNaoFiscal = False

            cmECF.AAC.IdentPaf.Paf.IndiceTecnicoProducao = True

            cmECF.AAC.IdentPaf.Paf.BarSimiliarBalanca = True

            cmECF.AAC.IdentPaf.Paf.BarSimiliarECFComum = True

            cmECF.AAC.IdentPaf.Paf.BarSimiliarECFRestaurante = True

            cmECF.AAC.IdentPaf.Paf.DAVDiscrFormula = True


            '** DADOS CRITERIOS UF **

            cmECF.AAC.IdentPaf.Paf.TotalizaValoresLista = False

            cmECF.AAC.IdentPaf.Paf.TransPreVenda = True

            cmECF.AAC.IdentPaf.Paf.TransDAV = False

            cmECF.AAC.IdentPaf.Paf.RecompoeGT = False

            cmECF.AAC.IdentPaf.Paf.EmitePED = True

            cmECF.AAC.IdentPaf.Paf.CupomMania = True

            cmECF.AAC.IdentPaf.Paf.MinasLegal = False


            Dim pafECF As New ACBrAACECF

            cmECF.AAC.IdentPaf.ECFsAutorizados.Clear()

            pafECF.CNI = xmlECF.Tables("tbECF").Rows(0).Item("ecfCNIEE")

            pafECF.CRO = xmlECF.Tables("tbECF").Rows(0).Item("ecfCRO")

            pafECF.NumeroSerie = fcnDecrypt(xmlECF.Tables("tbECF").Rows(0).Item("ecfNumeroSerie"))

            pafECF.ValorGT = fcnDecrypt(xmlECF.Tables("tbECF").Rows(0).Item("ecfGT"))

            cmECF.AAC.IdentPaf.ECFsAutorizados.[New](pafECF)


            cmECF.AAC.SalvarArquivo()

            cmECF.Ativar()


            cmECF.PafMF_RelIdentificacaoPafECF(cmECF.AAC.IdentPaf, 0)

[Rafael Batiati]

Oi André, bom dia.

Ao que parece, o relatório impresso está correto, é esse mesmo.

O quê exatamente você esperava imprimir?

Talvez o Regys possa nos ajudar: Existe outro relatório disponível no ACBr?

Abs!

[andresantana]

Ola, bom dia

Seria o relatório de Parametros de Configuração.

Em anexo tem um modelo.

grd abs

[Rafael Dias]

entendi agora, eu confundi os relatorios, este não tem implementado ainda, mas ja estou no processo de implementação.

na parte da tarde devo fazer um commit dela.

[andresantana]

OK, meu caro.

Sem problemas vou adiantando outros funções do PAF e depois volto nesse relatório.

Brigadão pela ajuda, grd abs

[Rafael Dias]

Foi feito o commit com a nova implementação.

Preencha da mesma forma q anterior e faça a chamada da função como no codigo abaixo.

acbrECF.PafMF_RelParametrosConfiguracao(acbrAAC.IdentPaf.Paf, 0);

[Régys Silveira]

O Rafael ta sempre em cima do lance, bom trabalho.

[Rafael Dias]

Obrigado.

Estamos aqui para ajudar, se estiver dentro do alcance, senão estiver tentamos alcançar xD.

[andresantana]

Ola, com isso eu devo baixar pelo SVN essa atualização?

[Rafael Dias]

sim vc precisa baixar a versão mais atual no svn.

[andresantana]

Por favor, mas uma duvida, alem do arquivo MFD tem como gerar o TDM tb?

Pessoal muito obrigado pela ajuda.

grd abs

[Rafael Dias]

Novamente peço desculpas esta função tbm não esta implementada ainda.

Vou tentar estar implementando hoje a noite e posto algo se tiver terminado.

[Rafael Dias]

Boa noite

andre eu implementei o metodo, você deve atualizar seu ACBrFramework pelo svn, abaixo segue um exemplo de uso.

acbrECF.ArquivoMFD_DLL(DateTime.Now, DateTime.Now, "C:\arquivomfd.txt", ACBrECFFinalizaArqMFD.finTDM, ACBrECFTipoDocumento.docTodos);

Obs.: Não tive tempo para fazer teste se apresentar algum erro post aqui.

Att.

Rafael Dias.

[andresantana]

Ola Rafael, bom dia

Pode deixar vou fazer os testes hj e qualquer problema aviso a vcs.

Grande abraço,

[andresantana]

Ola Rafael, testei o relatorio e vi um problema fiz a alteração no fonte do Framework, mas não sei como atualizar o SVN.

Na chamado do relatorio estava chamado a função

int ret = ACBrECFInterop.ECF_PafMF_RelIdentificacaoPafECF(this.Handle, identificacaoPAF.Handle, indiceRelatorio);

Fiz a alteração para chamar a função

int ret = ACBrECFInterop.ECF_PafMF_RelParametrosConfiguracao(this.Handle, infoPAF.Handle, indiceRelatorio)

e funcionou sem problemas

Grande abraço

[Rafael Dias]

Corrigido e enviado para o svn.

[andresantana]

Ola a todos, boa tarde.

Arquivo TDM gerado com sucesso.

Grd abs e fiquem com DEUS.

[Rafael Dias]

Boa tarde.

Obrigado por informar, se precisar estamos ai.