Painel de líderes

Olá boa tarde! Tudo certo? Alterei a procedure:TForm6.btnRegistrosPAFClick(Sender: TObject); Primeira linha alterei o layout para lpPAFECF. Na parte da geração do registro H2 o campo TITULO: alterei o primeiro parâmetro da function GerarDados('S', 7) para GerarDados('I',7) levando em conta que o campo é integer. A unit alterada em anexo. uFormPrincipal.pas

Parece ser bem claro a mensagem, "Rejeição: Emitente não autorizado para uso do SAT", Já solicitou o credenciamento do contribuinte, seu cliente, como emissor de SAT. Eu costumo deixar isto a cargo do Contador do mesmo.

Exemplo: Recentemente foi publicada a versão 1.10 da NT 2020.005, a qual trouxe uma mudança que pode impactar diretamente a emissão da NFCe em seus clientes, trata-se da restrição do uso da emissão em modo assíncrono quando o lote contém apenas uma NFCe. Para o ambiente de homologação, esta validação e consequente rejeição da NFCe já está em vigor desde 01/07/2021 e entrará em produção em 01/09/2021. De acordo com o texto da NT será retornada a seguinte rejeição Porém em relatos no fórum também houver a seguinte rejeição devido a falha nos retornos das SEFAZ Para evitar esta rejeição, é muito simples, basta sua aplicação deverá passar a realizar o envio da NFCe (quando enviar um único documento) em modo síncrono. Exemplo utilizando o componente ACBrNFe //---------------------- Exemplo Componente ACBrNFe ------------------------------------// { O método Enviar possui 4 parametros a saber: ALote = se refere ao numero do lote de notas que esta sendo enviado Imprimir = defini se o DANFE vai ser impresso automaticamente (True = Padrão) ou não (False) Sincrono = defini se o envio vai ser no modo sincrono (True) ou assincrono (False = Padrão) <------ AQUI ------ Zipado = defini se o Xml vai ser enviado zipado (True) ou não (False = Padrão) Sincrono só pode ser True se o envio é unitario, ou seja, é enviado uma nota por vez. Muito usado para o envio da NFC-e, quanto a NF-e não são todas as UF que aceitam esse modo de envio. Zipado não são todas as UF que aceitam que o Xml seja enviado zipado. } if ACBrNFe1.NotasFiscais.Count > 1 then ACBrNFe1.Enviar(nLote) // Envia o lote contendo mais de 1 nota no modo assincrono else ACBrNFe1.Enviar(nLote, True, True) // Envia o lote contendo apenas 1 nota no modo sincrono Exemplo utilizando a biblioteca ACBrLib //-------------------------------- Exemplo ACBrLib C# --------------------------------------// Parâmetros: ALote - Numero do Lote a ser enviado AImprimir - Se True imprime o DANFe caso o NF-e for autorizado ASincrono - Se True imprime o envia em modo sincrono // <------------ AQUI -------------- AZipado - Se True imprime o envia o arquivo zipado sResposta - Usado pelo retorno, contem as informações retornadas pela consulta. esTamanho - Usado pelo retorno, contem o tamanho da string (sResposta). ACBrNFe.LimparLista(); // Também pode ser enviado o conteudo do ini. ACBrNFe.CarregarINI("c:\nfce.ini"); // Caso use xml, também pode ser enviado o conteudo do xml. //ACBrNFe.CarregarXML("c:\35XXXXXXXXXXXXXXXX550010000000050000000058-nfe.xml"); ACBrNFe.Enviar(aLote: 1, imprimir: false, sincrono: true, zipado: false); Manual ACBrLib: https://acbr.sourceforge.io/ACBrLib/NFE_Enviar.html Exemplo utilizando o ACBrMonitorPlus //-------------------------------- Exemplo ACBrMonitorPLUS --------------------------------------// Parâmetros: cArqXML - Caminho do arquivo XML a ser enviado. nLote - Número do Lote bAssina - Coloque 0 se não quiser que o componente assine o arquivo. - Parâmetro Opcional nImprime - Coloque 1 se quiser que o DANFe seja impresso logo após a autorização - Parâmetro Opcional cImpressora - Informe o nome da impressora - Parâmetro Opcional bSincrono- Coloque 1 para indicar modo síncrono e 0 para modo assíncrono. // <---------- AQUI ----------- bValidaXML- Coloque 1 para Validar e 0 para não Validar. - Parâmetro Opcional bGerarNovoXML- Coloque 1 para Gerar um novo XML para envio e 0 para não Gerar. - Parâmetro Opcional NFE.ENVIARNFE("c:\35XXXXXXXXXXXXXXXX550010000000050000000058-nfe.xml",1,1,0,,1) Manual ACBrMonitorPLUS: https://acbr.sourceforge.io/ACBrMonitor/NFEEnviarNFe.html

Agradeço o material e vou usa-lo para futuras pesquisas mas não vi particularidade em relação a esse código de protesto na unicred ou qualquer outro cedente. Até então eu não tive esse problema pois os outros clientes no qual homologuei a Unicred protestavam. Esse como não protesta teve essa situação pois a função DefineTipoDiasProtesto nunca retorna '3' pois no tipo enumerado TACBrTipoDiasIntrucao só existe diCorridos e diUteis {TipoDiasIntrucao} TACBrTipoDiasIntrucao = (diCorridos, diUteis); function TACBrBancoClass.DefineTipoDiasProtesto(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin case TipoDiasProtesto of diCorridos : Result := '1'; diUteis : Result := '2'; else Result := '3'; end; end; end; Então aí que eu vi o correto me parecia ser a chamada em DefineCodigoProtesto ao invés de DefineTipoDiasProtesto para atribuir a variável ACodProtesto Att Adriano

@Daniel Simoes Era problema com as dlls msm. Substitui pelas da pasta acbr e foi. Só tem essa questão de não compilar de primeira o AcbrComum precisando ter que trocar o .otares por .dres, do mais tudo certo. Muito obrigado novamente! att, Wilson

Esta certo. Obrigado. Pode finalizar o topico.

Boa tarde. Adicionado ao backlog. Att.

Rapaz, sabe que é pode ser isso msm, formatei o note e copiei o backup dos projetos, dlls, etc, mas não atualizei com as dlls da pasta do ACBr. Assim que chegar em casa faço isso e reporto aqui, mas é certeza que é falta de dll. Nem lembrei disso

tem uma propriedade de escala no componente confere isso

Logo vou postar um vídeo ensinando a instalar no Delphi CE o ACBr manualmente

Somente com um Gerador de Relatórios Como o Fortes que seria mais fácil, ou utilizando a "Vcl.Printers" presente no Delphi.

Bom dia Juliana, muito obrigado pelo retorno. Ficarei no aguardo

Boa noite @Rafael Dias, como estou fazendo mudanças para o PostegreSQL, acabei sem perceber testando as Libs em uma versão desatualizada dos meus Fontes... hoje que percebi meu erro peço mil desculpas, não existe o problema por mim relatado equivocadamente.

Novos ajustes foram feitos nos módulos. pcesConversaoeSocial.pas pcesS1010.pas

Boa tarde, Não está atualizado não, vou atualizar então para ver se está tudo certo. Desde já obrigado.

O valor do ICMS-ST precisa ser acrescentado ao total da nota fiscal.

Estes post's resolveram o problema para mim, Android 11 com Delphi 10.4.2.... atualizando o sdk https://en.delphipraxis.net/topic/4655-android-11-support-in-1042/ e configurando o delphi https://en.delphipraxis.net/topic/4794-sdk-version-in-androidmanifest-file-and-rad-studio/

Boa tarde, Favor anexar os XMLs gerados.

Informações extraídas do manual: O arquivo remessa deverá ter a seguinte formatação de nome para upload com sucesso no Internet Banking PJ CI400_001_???????.rem CI400  Cobrança Inter 001  Versão do layout ???????  Número sequencial de remessa (o mesmo número inserido no campo 111 a 117 do header do arquivo remesssa) .rem – Extensão do arquivo remessa Manual CNAB400 Inter.pdf