ACBRFramework - ECF USB

andresantana · 14 Outubro, 2012

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 · 15 Outubro, 2012

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 · 17 Outubro, 2012

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 · 17 Outubro, 2012

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 · 18 Outubro, 2012

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 · 18 Outubro, 2012

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 · 18 Outubro, 2012

Ola, bom dia

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

Em anexo tem um modelo.

grd abs

Rafael Dias · 18 Outubro, 2012

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 · 18 Outubro, 2012

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 · 18 Outubro, 2012

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 · 18 Outubro, 2012

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

Rafael Dias · 18 Outubro, 2012

Obrigado.

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

andresantana · 18 Outubro, 2012

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

Rafael Dias · 18 Outubro, 2012

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

andresantana · 18 Outubro, 2012

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

Pessoal muito obrigado pela ajuda.

grd abs

Rafael Dias · 18 Outubro, 2012

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 · 19 Outubro, 2012

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 · 19 Outubro, 2012

Ola Rafael, bom dia

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

Grande abraço,

andresantana · 19 Outubro, 2012

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 · 19 Outubro, 2012

Corrigido e enviado para o svn.

andresantana · 19 Outubro, 2012

Ola a todos, boa tarde.

Arquivo TDM gerado com sucesso.

Grd abs e fiquem com DEUS.

Rafael Dias · 19 Outubro, 2012

Boa tarde.

Obrigado por informar, se precisar estamos ai.

Entrar

Sobre nós...

ACBRFramework - ECF USB

Recommended Posts

andresantana

Rafael Dias

andresantana

Rafael Dias

andresantana

Rafael Batiati

andresantana

Rafael Dias

andresantana

Rafael Dias

Régys Silveira

Rafael Dias

andresantana

Rafael Dias

andresantana

Rafael Dias

Rafael Dias

andresantana

andresantana

Rafael Dias

andresantana

Rafael Dias

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante