Agnaldo Prates

Bom dia. Embora o questionamento esteja muito vago, é possível deduzir que você deseja pegar a descrição do tipo de ocorrência, se for isso basta criar uma função para retornar o dado desejado. Exemplo: Quando desejo saber qual é código de retorno no arquivo, criei a seguinte função: function TForm1.RetOcorrencia(CodOcorrencia : TACBrTipoOcorrencia) :String; begin case CodOcorrencia of (...) toRetornoLiquidado : Result :='06'; (...) end; end; Na leitura: strCodRetorno := RetOcorrencia(Aboleto1.ListadeBoletos.OcorrenciaOriginal.Tipo); Não há nenhuma dificuldade.

Bom dia. Para certificados A1, utilize libOpenSSL no lugar de libCapicom. ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec;

Bom dia. Infelizmente esta questão de "discriminar" os serviços ainda vai render muito pois são mais de 5.570 municípios no Brasil. Pela tela parece com a impressão do provedor Fiorilli, por qui também sai desta forma, ou seja, no ambiente do sistema de arrecadação do município sai os serviços separado, já nos nossos sistemas não. Mas isso tem uma explicação. O arquivo nfse.xsd Abrasf, que no caso varias empresas desenvolvedoras de sistemas de arrecadação utiliza, é totalmente deficiente neste sentido, ou seja, utiliza apenas temListaServico previsto na LC 116/2003, esqueceram que em uma mesma nota fiscal poderia haver vários serviços com códigos diversos, afinal, na lista da lei existem inúmeros. Quanto ao ACBrNFSe, está correto em relação aquilo que é disponibilizado pelos provedores. Imagino entretanto que poderá a Abrasf em um futuro próximo rever esta questão.

O cadastro do cliente deve ser um apenas, pois o CNPJ não muda, exceto para filiais. O que deve ser diferenciado na NFe é, quando for para consumo o CFOP é um, para revenda outra. Não há necessidade aparente para dois cadastros.

Talvez seja mesmo algo relacionado com SO. É importante que esteja mesmo atualizado, caso o erro persista haverá outro caminho a ser seguido.

Não vai dar certo.

Bom dia. Certamente não era o erro substancial. Estive olhando a estrutura do teu xml e ele fica bem diferente dos xml que tenho aqui. Depois de assinado, é mudado algo neste xml? Tente reproduzir esse erro no ACBrNFeDemo. Talvez os endereços não estejam corretos também.

Veja se o aplicativo está sendo executado como Administrador. Se estiver em modo de compatibilidade pode ocorrer isso ai.

http 403 significa erro de proibição. O certificado digital está instalado? Tentou consultar uma NFe no site da receita e tentou baixar o XML?

<detPag> <tPag>01</tPag> // Dinheiro <vPag>130.00</vPag> </detPag> <fat> <nFat>PV-000000378</nFat> // Grupo de duplicata / Fatura. <vOrig>135.00</vOrig> <vDesc>5.00</vDesc> <vLiq>130.00</vLiq> Sugiro que confira isso.

O arquivo ACBrNFeServicos.ini da sua aplicação é o mesmo do ACBrNFeDemo?

Valide seu xml para encontrar o que está acontecendo. A SEFAZ do RS dispõe de um: https://www.sefaz.rs.gov.br/nfe/nfe-val.aspx

No manual de cobrança do Itaú tem.

Você informou um pagamento com duplicata parece que falta informar o grupo de duplicatas.

- Quando a emissão dos boletos é realizada pelo Banco, a impressão ocorre no processo auto-envelopavel, com entrega efetuada pelo correio, sem comprovante de recebimento pelo Pagador - Quando a emissão dos boletos é realizada pelo próprio cliente, basta apenas enviar o arquivo remessa para o Banco efetuar o registro dos títulos Fonte: https://banco.bradesco/portal/PDF/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo/cobranca/4008-524-0121-08-layout-cobranca-versao-portuguesSS28785.pdf

Ressalte-se porém que esta operação serve para ler o arquivo, o que deve analisada a unit posteriormente.

Talvez esteja na configuração. Veja o tipo de boleto: if CarteiraEnvio = tceCedente then TipoBoleto := '2' else if CarteiraEnvio = tceBanco then TipoBoleto := '1'; if NossoNumero = EmptyStr then DigitoNossoNumero := '0'; AcbrBancoBradesco,.pas, linha 256.

Altere na Unit AcbrBancoSicred.pas a partir da linha 984. de case StrToInt( CodMotivo ) of Para case StrToInt( OnlyNumber( CodMotivo) ) of Onde houver na função CodMotivoRejeicaoToDescricao, c400: begin Ai vai ler o arquivo.

É importante ter cuidado com arredondamentos. Em 2015, o STJ julgou procedente uma ação da Fazenda Pública de MG contra uma indústria de cosméticos justamente pela questão do arredondamento na base de cálculo do imposto. A RFB ao publicar o MOC já prevê que arredondamentos são permitidos, desde que não configure sonegação fiscal.

Use a função RoundABNT da unit ACBrUtil. ValorTotal := RoundABNT( (Quantidade * ValorUnitario ),2); Isso var lhe poupar muita dor de cabeça.

Nesta listagem ai está faltando a unit pcnGerador.pas, está nela a classe TGeradorOpcoes com a variável QuebraLinha. TGeradorOpcoes = class(TPersistent) private FDecimalChar: Char; FSomenteValidar: Boolean; FIdentarXML: Boolean; FRetirarEspacos: Boolean; FRetirarAcentos: Boolean; FNivelIdentacao: Integer; FTamanhoIdentacao: Integer; FSuprimirDecimais: Boolean; FTagVaziaNoFormatoResumido: Boolean; FFormatoAlerta: string; FQuebraLinha: String; public constructor Create; Recomendo você fazer u backup desta pasta atual e baixar novamente todo o ACBr.

Var fArqRemessa : String; begin fArqRemessa := FormatDateTime('DDMM',Date)+IntToStr ( nCodSequenciaArquivo ) +'.rem'; depois AcBrBoleto1.NomeArqRemessa := fArqRemessa; ... Eu faço desta forma em virtude de poder haver várias remessas durante o dia no mesmo mês e nunca tive problemas.

Teus Schemas estão atualizados? Falta assinatura neste XML.

Depois de instalado, abra em seu Delphi o ACBrBoletoFCFortesFt, ignore todas as mensagens, abra uma linha em branco ao final e salve. Dê um build no seu projeto.