Jump to content

dev botao

ACBRFramework - ECF USB


andresantana
  • Este tópico foi criado há 4260 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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)

post-3782-13548988222141.jpg

Link to comment
Share on other sites

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!

Rafael Batiati

ACBrFramework - Automação comercial para todos.

MultiClubes - Soluções para a área de clubes, parques, lazer e entretenimento.

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • Este tópico foi criado há 4260 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.