andresantana

Ola a todos, boa tarde. Arquivo TDM gerado com sucesso. Grd abs e fiquem com DEUS.

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

Ola Rafael, bom dia Pode deixar vou fazer os testes hj e qualquer problema aviso a vcs. Grande abraço,

Por favor, mas uma duvida, alem do arquivo MFD tem como gerar o TDM tb? Pessoal muito obrigado pela ajuda. grd abs

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

OK, meu caro. Sem problemas vou adiantando outros funções do PAF e depois volto nesse relatório. Brigadão pela ajuda, grd abs

Ola, bom dia Seria o relatório de Parametros de Configuração. Em anexo tem um modelo. grd abs

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)

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.

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