LucaCampos

Boa tarde, Por gentileza testar com essa modificação. ACBrCTeDACTEFR.pas

Boa tarde, por gentileza encerrar o tópico. O Problema foi resolvido nesse commit. 25/03/2026 -- ACBrDCeDeclaracoes -- [*] Alteração visando Checar o CNPJ do Certificado com o CNPJ de quem realmente esta emitindo o DC-e. Por: Italo Giurizzato Junior

Boa tarde, Alguém com o mesmo problema? Valeu.

Deu bom passando no grupo do Total. Obrigado!!!

Nesse caso tem informações de IBSCBS. Se não preenche retorna esse erro, caso tenha o preenchimento retorna que não é esperado. Nota Técnica 2025.001 - RTC v1.13.

No CT-e Simplificado gera a tag. Porém, não estou conseguindo aprovar em (Homologação) 1871 - Element '{http://www.portalfiscal.inf.br/cte}vTotDFe': This element is not expected.

Boa tarde, @Italo Giurizzato Junior. Atualizei os Schemas e o ACBrCTe. Me deu a seguinte falha, --> 1871 - Element '{http://www.portalfiscal.inf.br/cte}vTotDFe': This element is not expected.

ACBrDCeDeclaracoes.pas

procedure TDFeSSL.ValidarCNPJCertificado(CNPJDocumento: String); var ErroCNPJ, CNPJCertificado: String; begin CNPJDocumento := OnlyNumber(CNPJDocumento); if (CNPJDocumento = '') or // Informou vazio (Length(CNPJDocumento) <> 14) then // Não é CNPJ exit; CNPJCertificado := OnlyNumber(CertCNPJ); // Lendo CNPJ do Certificado... if (CNPJCertificado = '') or // Não foi capaz de ler CNPJ do Certificado (Senha, NumSerie, Path... há algo errado na configuração) (Length(CNPJCertificado) <> 14) then // Não é CNPJ (estranho.. pode ser um eCPF) exit; ErroCNPJ := ValidarCNPJ(CNPJDocumento); if (ErroCNPJ <> '') then raise EACBrDFeException.CreateDef('Erro CNPJ Documento: '+ErroCNPJ); { Deve verificar somente os 8 primeiros digitos, para evitar problemas quando a filial estiver utilizando o certificado da matriz } if (Copy(CNPJDocumento, 1, 8) <> Copy(CNPJCertificado, 1, 8)) then raise EACBrDFeException.Create('O CNPJ do Documento é diferente do CNPJ do Certificado Digital' ); end; Boa tarde, tudo bem? A regra estava impedindo de aprovar o DCe com um cnpj diferente no emitente do certificado digital. if (Copy(CNPJDocumento, 1, <> Copy(CNPJCertificado, 1, 8)) then raise EACBrDFeException.Create('O CNPJ do Documento é diferente do CNPJ do Certificado Digital' );

Obrigado amigo. vou tentar Deus abençoe.

Boa tarde, estou com uma dúvida de preenchimento no CT-e IBSCBS. Efetuei varias alterações no preenchimento, mas não consegui achar uma solução. Se alguém puder me ajudar, obrigado. <vTotTrib>27.45</vTotTrib> <IBSCBS> <CST>000</CST> <cClassTrib>000001</cClassTrib> <gIBSCBS> <vBC>8.50</vBC> <gIBSUF> <pIBSUF>0.0588</pIBSUF> <gDevTrib> <vDevTrib>15.00</vDevTrib> </gDevTrib> <vIBSUF>0.49</vIBSUF> </gIBSUF> <gIBSMun> <pIBSMun>0.0588</pIBSMun> <gDevTrib> <vDevTrib>15.00</vDevTrib> </gDevTrib> <vIBSMun>0.49</vIBSMun> </gIBSMun> <vIBS>0.98</vIBS> <gCBS> <pCBS>8.4000</pCBS> <vCBS>8.40</vCBS> </gCBS> <gTribRegular> <CSTReg>000</CSTReg> <cClassTribReg>000001</cClassTribReg> <pAliqEfetRegIBSUF>0.0000</pAliqEfetRegIBSUF> <vTribRegIBSUF>0.00</vTribRegIBSUF> <pAliqEfetRegIBSMun>0.0000</pAliqEfetRegIBSMun> <vTribRegIBSMun>0.00</vTribRegIBSMun> <pAliqEfetRegCBS>0.0000</pAliqEfetRegCBS> <vTribRegCBS>0.00</vTribRegCBS> </gTribRegular> </gIBSCBS> </IBSCBS> <vTotDFe>100.00</vTotDFe>

Boas tarde. Alguém com o mesmo problema?

Boa tarde, recebi o novo layout da linha digital do sicoob que precisa ser atualizado. Atualmente está da seguinte forma. ACBrBancoSicoob.pas Layout CNAB240 - Multiplos Contratos (1).xls

Boa tarde. Me ocorreu o mesmo problema.

Boa tarde. é valida essa alteração para sair o Total a Receber da DACTe. Incluir o fCTe.det[i].vRec ao invés de 0. procedure TACBrCTeDACTEFR.CarregaComponentesPrestacao; var i, j: Integer; begin with cdsComponentesPrestacao do begin if FCTe.ide.tpCTe in [tcCTeSimp, tcSubstCTeSimpl] then begin for i := 0 to (fCTe.det.Count - 1) do begin for j := 0 to (fCTe.det[i].Comp.Count - 1) do begin Append; FieldByName('Nome').AsString := fCTe.det[i].comp[j].xNome; FieldByName('Valor').AsFloat := fCTe.det[i].comp[j].vComp; FieldByName('TotalServico').AsFloat := fCTe.total.vTPrest; ---> FieldByName('TotalReceber').AsFloat := fCTe.det[i].vRec; Post; end; end;