ricardomendes

desculpe a pergunta...mas vc chegou a programar o evento correpondente no componente acbr? se não me engano isso é tratado direto no componente

Parabens Moacir. Anexe as units alteradas aqui mesmo no forum compactadas que o pessoal utiliza um programa para verificar as suas modificações e depois sobre para todos os outros usuário.

Bom dia Não sei se vai ajudar essa informação....mas tivemos problemas aqui na geração dos arquivos do santander justamente com essa parte de layout de boleto e arquivo... O fato é que hj possuem tres layouts diferentes para o santander... Santander - Banespa (Codigo do Banco = 33); Santander - Real (Codigo do Banco = 356); Santander - Santader (Codigo do Banco = 353); É interessante verificar qual é o layout a ser adotado em cada cliente... Não é uma ajuda, mas talvez sirva..

Obrigado novamente Italo. Agora vou correr atras é de pq da os erros de instalação para os dois componentes... tanto o Cte quanto o Danfe... Os demais instalei normalmente...so esses dois que estão me dando trabalho.... Mas isso é assunto para outro topico...

Desculpe o erro nos componentes.... mas é que a nomeclatura é bem semelhante... ACBrCTeDacteFRpkg - Esse é para fast report? Mensagem Original -> No que diz respeito a NFe existe um pacote de instalação do DANFe para o Fortes Reports chamado: ACBrNFeDanfeFRpkg ACBrNFeDanfeFRpkg - Esse é para Fortes report? Eu tentei novamente instalar os componentes, mas da erro de vclimg e se removo e mando compilar da erro nos frx14... Obrigado pela resposta Italo. PS.: Utilizo D7

Bom dia a Todos. Gostaria apenas de tirar uma duvida....desculpe se postei em lugar errado. Eu atualizo sempre o acbr e a minha duvida é a seguinte... Não consigo instalar os componentes do CTe e NFe para Fortes, ja o Boleto para Fortes instala sem problemas. Ja pesquisei no forum e não consegui entender porque os dois componentes eu não consigo. Imagino que as diretivas de compilações estão diferentes entres os 3 componentes. Não estou critiando quem fez, mas sim a minha dificuldade de saber como proceder para instala-los da mesma forma. Obrigado

Blz Fernando... Essa parte não é facil mesmo...burocracia é o que mais temos que enfrentar. Mas vamos vendo conforme surgir novidades vamos nos informando pelo forum. PS.. Eu e o Fernando não somos parentes...kkkk

Eu andei vendo o seguinte, como eu tenho certificado de alguns clientes quando eu acessei o link tive acesso normalmente... Acho que se fosse virar um componente o acesso seria baseado ao da NFe que precisa ter um certificado... Desculpe se estiver errado.

Fernando, o que eu te falei foi o seguinte http://www.consultacpf.com/ nesses site vc tem como fazer a integração que vc falou ..mas usando consultas ao banco de dados da serasa. Eu ja fiz isso em outra empresa que trabalhei e funcionava perfeitamente...digitava o cpf ou cnpj e o sistema preenchia os dados disponiveis... Mas agora sobre essa parte da receita eu vou analisar ainda...

Isso funciona se vc tiver um convenio com o pessoal do serasa express....ou cheque express tbem... O funcionamento é como se fosse a nfe vc passa os parametros de consulta, usuario e senha e ele te traz uma lista dos dados consultados..

Hilan, aqui eu fiz a instalação normalmente... Vc ja tentou instalar o componente pelo group de projetos que tem nele... nesse arquivo BuildWithNFe2.bpg vc tem toda a sequencia.... ai é so compilar tudo e depois vir instalando apenas o que é preciso...

Vc vai ter que instalar o componente AcbrEAD tbem para instalação antes de instalar eles

Bom dia Thiago, Favor disponibilizar as suas alterações zipadas aqui no forum, que a Juliana verifica se da para incorporar essas atualizações ao componente, assim todos podem ter as atualizações.

Tive problemas em alguns cliente de MG para transmitir via scan. Ai procurando no forum encontrei isso. "Apos um tempo procurandno aqui descobri que tem que mudar nas configurações do componente também e não apenas na nota. Código: ACBrNFe1.Configuracoes.Geral.FormaEmissao := Ide.tpEmis;" Depois que corrigi isso e mandei transmitir....demorou um pouco mais foi transmitido em modo SCAN normalmente. Talvez ajude.

Não sei se ajuda. Mas vou passar exatamente o que eu fiz no meu PDV. procedure Tfrm_ConfigPDV.proListarECFBanco(pMarca, pModelo: string); var Query : TIBQuery; begin Query := TIBQuery.Create(nil); Query.Database := Dados.IBDatabase; Query.Close; Query.SQL.Text := 'select i.codigo_ecf, i.tipo_ecf, i.versao_sb, i.mfd, i.marca_ecf, i.modelo_ecf '+#13#10+ 'from identifica_ecf i '+#13#10+ 'where upper(i.marca_ecf) = upper(:marca) and upper(i.modelo_ecf) = upper(:modelo) '; Query.ParamByName('marca').Value := AnsiUpperCase(trim(fncRetornarPrimeiroEspaco(pMarca))); Query.ParamByName('modelo').Value := AnsiUpperCase(trim(pModelo)); Query.Prepare; Query.Open; if not(Query.IsEmpty) then begin cdsListaECF.EmptyDataSet; while not(Query.Eof) do begin cdsListaECF.Append; cdsListaECFCodNacional.AsString := Query.fIELDByName('codigo_ecf').AsString; cdsListaECFTipoECF.AsString := Query.fIELDByName('tipo_ecf').AsString; cdsListaECFModelo.AsString := Query.fIELDByName('modelo_ecf').AsString; cdsListaECFMarca.AsString := Query.fIELDByName('marca_ecf').AsString; cdsListaECFMFD.AsString := ifthen((Query.fIELDByName('mfd').AsString='0'), 'NÃO', 'SIM'); cdsListaECFVersaoSB.AsString := Query.fIELDByName('versao_sb').AsString; cdsListaECF.Post; Query.Next; end; pnlListaECF.BringToFront; pnlListaECF.Visible := true; cdsListaECF.First; gdLista.SetFocus; end else begin Mensagem('Não foi encontrado ECF com a MARCA e MODELO informado.'+#13#10+ 'Será aberto a listagem contendo as ECF pela MARCA apenas.', 'I'); Query.Close; Query.SQL.Text := 'select i.codigo_ecf, i.tipo_ecf, i.versao_sb, i.mfd, i.marca_ecf, i.modelo_ecf '+#13#10+ 'from identifica_ecf i '+#13#10+ 'where upper(i.marca_ecf) containing upper(:marca)'; Query.ParamByName('marca').Value := AnsiUpperCase(trim(fncRetornarPrimeiroEspaco(pMarca))); Query.Prepare; Query.Open; if not(Query.IsEmpty) then begin cdsListaECF.EmptyDataSet; while not(Query.Eof) do begin cdsListaECF.Append; cdsListaECFCodNacional.AsString := Query.fIELDByName('codigo_ecf').AsString; cdsListaECFTipoECF.AsString := Query.fIELDByName('tipo_ecf').AsString; cdsListaECFModelo.AsString := Query.fIELDByName('modelo_ecf').AsString; cdsListaECFMarca.AsString := Query.fIELDByName('marca_ecf').AsString; cdsListaECFMFD.AsString := ifthen((Query.fIELDByName('mfd').AsString='0'), 'NÃO', 'SIM'); cdsListaECFVersaoSB.AsString := Query.fIELDByName('versao_sb').AsString; cdsListaECF.Post; Query.Next; end; pnlListaECF.BringToFront; pnlListaECF.Visible := true; cdsListaECF.First; gdLista.SetFocus; end else begin Query.Close; Query.SQL.Text := 'select i.codigo_ecf, i.tipo_ecf, i.versao_sb, i.mfd, i.marca_ecf, i.modelo_ecf '+#13#10+ 'from identifica_ecf i '+#13#10+ 'order by i.marca_ecf, i.modelo_ecf'; Query.Prepare; Query.Open; if not(Query.IsEmpty) then begin cdsListaECF.EmptyDataSet; while not(Query.Eof) do begin cdsListaECF.Append; cdsListaECFCodNacional.AsString := Query.fIELDByName('codigo_ecf').AsString; cdsListaECFTipoECF.AsString := Query.fIELDByName('tipo_ecf').AsString; cdsListaECFModelo.AsString := Query.fIELDByName('modelo_ecf').AsString; cdsListaECFMarca.AsString := Query.fIELDByName('marca_ecf').AsString; cdsListaECFMFD.AsString := ifthen((Query.fIELDByName('mfd').AsString='0'), 'NÃO', 'SIM'); cdsListaECFVersaoSB.AsString := Query.fIELDByName('versao_sb').AsString; cdsListaECF.Post; Query.Next; end; pnlListaECF.BringToFront; pnlListaECF.Visible := true; cdsListaECF.First; gdLista.SetFocus; end else begin Mensagem('Não foi encontrado ECF cadastrado.', 'W'); pnlListaECF.Visible := false; pnlListaECF.SendToBack; exit; end; end; end; FreeAndNil(Query); end; arquivos em anexo TabelaECF.rar

Extamente isso que está ocorrendo, na integração ele espera as sequencias em minusculo. Pois em upper case ele desconhece, conforme a imagem demonstra. So que isso só está ocorrendo para txt de SS

pag 141 do manual 4.01 coluna Pai N10g N10h e de qq forma o emissor paulista nao importou por nao encontrar a tag conteudo da linha 14 N10G|0|500||13.00|2.21 o arquivo txt é o correto mas na linha 14 mudei p/ N10G nota-se q nas demais linhas esta correto N10g pag 141 manual # ID Campo 245.47 N10g ICMSSN500 em anexo as imagens 002223_1000_001_18_11_2010-NFe.txt

Bom dia a todos. Conforme foi me reportado, foi encontrado erro em dois lugares na geração do txt para NFe 2.0 para empresa do regime Super Simples. Espero que ajude ao grupo . unit pcnLayoutTXT; function CarregarLayoutTXT(const versao: string): AnsiString; linha 202 LoadLayout(' N10c|Orig¨|CSOSN¨|pCredSN¨|vCredICMSSN¨'); LoadLayout(' N10d|Orig¨|CSOSN¨'); LoadLayout(' N10e|Orig¨|CSOSN¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨|pCredSN¨|vCredICMSSN¨'); LoadLayout(' N10f|Orig¨|CSOSN¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨'); LoadLayout(' N10g|Orig¨|CSOSN¨|modBCST¨|vBCSTRet¨|vICMSSTRet¨'); LoadLayout(' N10h|Orig¨|CSOSN¨|modBC¨|vBC¨|pRedBC¨|pICMS¨|vICMS¨|modBCST¨|pMVAST¨|pRedBCST¨|vBCST¨|pICMSST¨|vICMSST¨|pCredSN¨|vCredICMSSN¨'); as tags estão com codigo alfa exemplo qdo na real usam o como a funcao procedure LoadLayout(s: string); begin Layout := Layout + UpperCase(s + #10 + #13); end; retorna td upper... nao tem como usar as tags com letra minusculas ex: N10g unit pcnGerador; linha 763 for i := 0 to FLayoutArquivoTXT.Count - 1 do if pos('<' + ID + '>', UpperCase(FLayoutArquivoTXT.Strings)) > 0 then FArquivoFormatoTXT := FArquivoFormatoTXT + FLayoutArquivoTXT.Strings + #13; FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10C', 'N10c', []); FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10D', 'N10d', []); FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10E', 'N10e', []); FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10F', 'N10f', []); FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10G', 'N10g', []); FArquivoFormatoTXT := StringReplace(FArquivoFormatoTXT, 'N10H', 'N10h', []); inclui as conversões substituindo as strings so nao sei se realmente no xml esta correto a nomenclatura - 0 500 42.00 7.14

Boa Tarde Allan Vc pode compactar suas units alteradas e postar no forum O pessoal logo faz um merge e sobi as alterações se as mesmas não tiverem nenhum erro de hierarquia.

Interessante o seu metodo de centralização... Quem sabe numa proxima versão eu tbem passe a centralizar assim.. Dessa maneira é possivel travar melhor as opções dentro do PDV... Obrigado Daniel

Realmente é complicado isso. Esse povo que defini esses testes e roteiros...acho que eles nunca mexeram na ECF. Pois tem cada teste absurdo e redundantes Daniel poderia dar um detalhe sobre como vc fez essa parte de centralização dos metodos do acbr. Agradeço a opnião de todos...

Boa Tarde a todos. Gostaria de verificar como os colegas estão tratando a parte de guardar todos os tipos de documentos impressos na ECF. Pois nos testes do roteiro de homologação esses documentos devem ser registrados no banco. Eu criei um função que faz o insert dos documentos tipo venda e comprovantes não fiscais...até achei que estava funcionando. Mas quando fui cadastrar uma aliquota e uma forma de pagamento não consegui gravar a impressão desses documentos como não fiscais. Outra coisa é se preciso gravar também as leituras X e reduções Z Fico no aguardo.

Boa Noite Giuliano Vc pode postar aqui mesmo no topico a unit alterada que o Daniel ou o pessoal que tem autorização para subir essas alterações já o fazem assim que possivel.

Boa Tarde Eu faço da seguinte maneira. ACBrECF.IdentificaConsumidor(RDocumento, RNome, REndereco+','+RNumero+','+RComplemento); ACBrECF.AbreCupom(); isso toda vez que abro o cupom...e não tenho esse problema mensionado.

Exatamente isso.... O PDV deve seguir o barco mesmo sem conexão com o servidor. Até ai está tranquilo, o PDV trabalha com banco local... O problema é realmente essa parte de replicação de dados... Mas vou dar mais uma pesquisada, eu achei alguns programas de replicação, mas acho que vou acabar fazendo a integração via arquivo txt mesmo, para que se eu precisar integrar com outros ERP fique viavel. Obrigado pela ajuda Elton...