Painel de líderes

Valeu Juliana

Boa tarde. Se você deseja informar instruções especificas deve sempre começar pela instrução 1, pois em vários casos a instrução 2 dependem da primeira. Att.

Boa Tarde, tenta carregando os arquivos xml do cfe novamente. exemplo: //.xml normal do cfe ACBrSAT.CFe.LoadFromFile(vArquivo); //..xml do cancelamento do cfe quando for imprimir o cancelado ACBrSAT.CFeCanc.LoadFromFile(vArquivo); ACBrSAT.CFe.GerarXML(True); ACBrSAT.ImprimirExtrato;

oi. bom dia. Sobre a atualização que vai ter no mês que vem quanto ao ICMS, visto neste site: http://www.jornalcontabil.com.br/?p=9339, o componente do ACBRNFE já vai validar direto se todas as alíquotas são as mesmas ou é preciso que façamos esta validação no momento de salvarmos, antes de enviar a nota? Desde já agradeço.

Muito obrigado, Juliana!

Bom dia, Muito obrigado pela colaboração, ainda hoje vou enviar para o repositório.

Boa noite. Alteração disponível no svn, alterado também a leitura do campo DataLancamento. Att.

Boa noite Fábio, Pelo arquivo de pedido de cancelamento notei que esta faltando os dados do emitente. Sendo assim, o problema é que os dados do Emitente não foram configurados no componente. Favor olhar no programa exemplo como realizar essa configuração, são 6 propriedades. Procure por: .Emitente

Boa noite Gabriel, Peça a esse contator de historias que lhe mostre a Nota Técnica sobre o DistribuicaoDFe para o CT-e.

Diminua o tamanho da fonte que vai ficar dentro e aparecer totalmente o texto!

De fato... Eu estava errado. O IBX só tem compatibilidade integral até a versão 1.x do firebird. Após somente usos bastante comuns continuam a funcionar (WEB). Nos sistemas no qual trabalho não uso UTF-8 nativamente no BD e por isto continuo a usar os componentes sem qualquer problema, alias, estão muito "melhores" que os antigos o que me passou uma ilusão de "compatibilidade". Resumindo "funciona bem" ou "não funciona" depende do uso. Os projetos aqui na empresa estão indo para web (exceto o paf x sat) por isto não me preocuparei em migração a não ser que isto seja completamente necessário.

Tudo bem Italo? Consegui fazer já fazer consulta através de outro método: ConsultarNFSeporRps. var vNotaNFse : TNFSe; begin ... vNotaNFse := ACBrNFSe.NotasFiscais.Add.NFSe; { #### Dados NFSe #### } vNotaNFse.Numero := sNumeroNFSe; vNotaNFse.SeriePrestacao := sSerieNFse; vNotaNFse.IdentificacaoRps.Serie := sSerieNFse; vNotaNFse.IdentificacaoRps.Numero := sId_NFSe; vNotaNFse.IdentificacaoRps.Tipo := trRPS; { #### Dados Prestador #### } vNotaNFse.PrestadorServico.IdentificacaoPrestador.Cnpj := FPrestador_CNPJ; vNotaNFse.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal := FPrestador_IM; vNotaNFse.PrestadorServico.Endereco.CodigoMunicipio := FPrestador_CodCidade; { #### Consultar #### } Result := ACBrNFSe.ConsultarNFSeporRps(sId_NFSe, sSerieNFse, TipoRPSToStr(trRPS)) .... Acredito que agora ficou 100% Caçador, servidor Publica para mim, (Envio, Busca, e Cancelamento) Muito Obrigado! Att

Giquieu, bom dia! Agradeço o material que disponibilizou, foi de grande ajuda. Na primeira página do tutorial identifiquei meu erro. No programa de teste executei uma instrução SELECT e tive o descuido de já em seguida executar o ZConn.StartTransaction. Depois de corrigido, os testes de integridade funcionaram 100% tanto com instrução DML direta, quanto com o uso dos componentes. Muito obrigado. Juliomar, obrigado também.

Bom dia! sugestão adicionado aos fontes! favor testar! Obrigado!

Italo, obrigada mais uma vez pela sua ajuda! Estava faltando eu alimentar o componente com as informações: ACBrNFSe1.Configuracoes.Geral.Emitente.CNPJ := NotaFiscal.FieldByName('OUT_EMI_CNPJCPF').AsString; ACBrNFSe1.Configuracoes.Geral.Emitente.InscMun := NotaFiscal.FieldByName('OUT_EMI_IM').AsString; ACBrNFSe1.Configuracoes.Geral.Emitente.RazSocial := NotaFiscal.FieldByName('OUT_EMI_RAZAOSOCIAL').AsString; Agora está enviando normalmente, só estou ajustando as demais ações... Muito obrigada mesmo!

Muito obrigado pela ajuda...após registrar as DLLs aparentemente o problema não voltou a ocorrer. Caso apareçam problemas reportarei.

Você pode fazer alterações sem problema desde que não mude o número de versão do teu software, se era 1.0 e virou 2.0 eles pedem que faça uma nova homologação TEF, se for 1.1 continua valendo a antiga desde que você não adicione funcionalidades TEF que não homologou.

Pessoal, A Bematech respondeu o e-mail e consegui resolver o problema. Acredito que a solução ideal seria criar uma propriedade no componente TACBrNFeDANFeESCPOS para informar o padrão de QRCode deve ser impresso (já que no ESC/POS não tem um comando padronizado para imprimir QRCode, cada fabricante está fazendo do seu jeito). Como não sou expert em criação de componentes, reutilizei uma propriedade do componente que na minha análise (rápida) não está sendo utilizado: Impressora Se o campo estiver vazio, o componente vai considerar que a impressora ligada é uma Epson (set de comandos default), se o campo estiver preenchido com a string "Bematech" (acredito que seria mais interessante algum tipo de record: tQRCodeBematech, tQRCodeDaruma, etc.) o componente vai enviar o set de comandos do QRCode no padrão Bematech. Na segunda-feira devo receber uma Daruma DR700 que compramos para NFCe, vou fazer os testes, e se necessitar de ajustes irei fazer e disponibilizar nesse mesmo tópico. Para que a impressão seja feita corretamente é necessário configurar o set de comandos "ESC/POS" via aplicativo da Bematech (Bematech User Software). procedure TACBrNFeDANFeESCPOS.GerarRodape(CortaPapel: Boolean = True; Cancelamento: Boolean = False); var qrcode : string; cCaracter:AnsiString; i, cTam1, cTam2:Integer; begin FBuffer.Add(cCmdFonteNormal+'------------------------------------------------'); FLinhaCmd := cCmdAlinhadoCentro+'Consulta via leitor de QR Code'; FBuffer.Add(FLinhaCmd); FBuffer.Add(' '); qrcode := NotaUtil.GetURLQRCode( FpNFe.ide.cUF, FpNFe.ide.tpAmb, FpNFe.infNFe.ID, DFeUtil.SeSenao(FpNFe.Dest.idEstrangeiro <> '',FpNFe.Dest.idEstrangeiro, FpNFe.Dest.CNPJCPF), FpNFe.ide.dEmi, FpNFe.Total.ICMSTot.vNF, FpNFe.Total.ICMSTot.vICMS, FpNFe.signature.DigestValue , TACBrNFe( ACBrNFe ).Configuracoes.Geral.IdToken, TACBrNFe( ACBrNFe ).Configuracoes.Geral.Token); //bematech if (FImpressora = 'Bematech') then begin //formato Bematech (http://partners.bematech.com.br/2014/09/imprimindo-qrcode-na-impressora-mp-4200-th/) //OBS: para que o QRCode seja impresso na Bematech é necessário instalar o firmware 1.6 ou superior (http://partners.bematech.com.br/2013/03/edicao-139-mp-4200-th-com-qr-code/) // essa implementação utiliza o set de comandos ESC/POS. Para habilitar na impressora utilize o aplicativo "Bematech User Software", e na aba "Configurações Adicionais" selecione // o tipo de comando "Esc/POS" for i := 1 to length(qrcode) do begin cCaracter := cCaracter + Chr(Ord(qrcode[i])); end; if (length(qrcode) > 255) then begin cTam1 := length(qrcode) mod 255; cTam2 := length(qrcode) div 255; end else begin cTam1 := length(qrcode); cTam2 := 0; end; FLinhaCmd := #27 + #97 + #1 + //esse código faz a centralização #29 + #107 + #81 + //esse é o do qr code #3 + #8 + //aqui é o tamanho do QRCode #8 + #1 + //dimensão (8) Chr(cTam1) + //resto da divisão correspondente ao tamanho do texto / 255 Chr(cTam2) + //divisão correspondente ao tamanho do texto cCaracter; //aqui começa o texto end else if (FImpressora = 'Daruma') then begin end else //default (Epson ESC/POS) begin //formato Epson ESC/POS FLinhaCmd := chr(29)+'(k'+chr(4)+chr(0)+'1A2'+chr(0)+ chr(29)+'(k'+chr(3)+chr(0)+'1C'+chr(4)+ chr(29)+'(k'+chr(3)+chr(0)+'1E0'+ chr(29)+'(k'+Int2TB(length(qrcode)+3)+'1P0'+qrcode+ chr(29)+'(k'+chr(3)+chr(0)+'1Q0'; end; FBuffer.Add(FLinhaCmd); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(cCmdFontePequena+('Protocolo de Autorização:'+Trim(FpNFe.procNFe.nProt)+' '+DFeUtil.SeSenao(FpNFe.procNFe.dhRecbto<>0,DateTimeToStr(FpNFe.procNFe.dhRecbto),''))+cCmdFonteNormal); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); FBuffer.Add(''); if CortaPapel then FBuffer.Add(cCmdCortaPapel); end; Acredito que o componente está ignorando algumas propriedades, como NumCopias, pois sempre sai 2 vias mesmo quando configurado para 1 (tentei com ViaConsumidor False mas o mesmo comportamento ocorre). Vou analisar com mais calma o código pra ver se acho onde está enviando essa segunda cópia.