joaolenosi

Talvez, mas eu debugei todo o código e quando chegou nesse trecho de código vi, que ele estava acrescentando um 0 antes do CNPJ.

Boa tarde, fui processar um arquivo de retorno do banco Santander e ao processar recebi a seguinte mensagem: Debugando o código vi que ao executar esta rotina: procedure TACBrCedente.SetCNPJCPF ( const AValue: String ) ; var ACbrValidador: TACBrValidador; aux : String; begin if trim(AValue) = '' then begin fCNPJCPF:= AValue; exit; end; if fCNPJCPF = AValue then exit; ACbrValidador := TACBrValidador.Create(Self); try with ACbrValidador do begin if TipoInscricao = pFisica then TipoDocto := docCPF else TipoDocto := docCNPJ; IgnorarChar := './-'; RaiseExcept := True; Documento := AValue; Validar; // Dispara Exception se Documento estiver errado fCNPJCPF := Formatar; end; finally ACbrValidador.Free; end; end; A const AValue que estar sendo passada por parâmetro, tá vindo com um 0 antes do CNPJ o que acaba resultando em um CNPJ de tamanho 15. Para contornar o problema tive que deixar a função da seguinte forma: procedure TACBrCedente.SetCNPJCPF ( const AValue: String ) ; var ACbrValidador: TACBrValidador; aux : String; begin if trim(AValue) = '' then begin fCNPJCPF:= AValue; exit; end; if fCNPJCPF = AValue then exit; ACbrValidador := TACBrValidador.Create(Self); try with ACbrValidador do begin if TipoInscricao = pFisica then TipoDocto := docCPF else TipoDocto := docCNPJ; //Verifica se o cpnj estar com o tamanho errado e copia somente a parte correta. if Length(AValue) = 15 then aux := copy(AValue,2,Length(AValue)); IgnorarChar := './-'; RaiseExcept := True; if aux <> '' then Documento := aux else Documento := AValue; Validar; // Dispara Exception se Documento estiver errado fCNPJCPF := Formatar; end; finally ACbrValidador.Free; end; end;

De nada, valeu!

Pronto, anexei somente os arquivos alterados e a unit que criei! Segue os fontes e os schemas por anexo. ACBrNFSe.rar Tinus.rar

Para ter acesso ao ACBr monitor você não precisa assinar o SAC, o SAC é um serviço diferenciado que ajuda a dar continuidade ao projeto ACBr, além de oferece inúmeras vantagens para quem assina, como por exemplo: forum privado, respostas em 24 horas. Segue o link do ACBr:

Bom dia, Italo! O espaço para upload é limitado: Por isso eu fiz upload no Mega!

O QuickReport 3 não é possível exportar para PDF, somente as versões 4 e 5. Porém nada impede de você instalar o componente ExportReport em conjunto com o QR para realizar tal ato. Att,

Certo, vamos lá, as units alteradas para contemplar esse novo provedor foram: Segue os fontes alterados junto com o schemas e os exemplos. Fontes: https://mega.co.nz/#!pBN3mIYS!1ZsACc07c3hh8tRtYcYYgXCQfUQlQytcsaAhJLgOtQ4 Exemplos: https://mega.co.nz/#!pBN3mIYS!1ZsACc07c3hh8tRtYcYYgXCQfUQlQytcsaAhJLgOtQ4 PS. Dentro da pasta schemas tem umas pasta chamada Tinus que é justamente o schemas utilizado.

Bom dia, implementei um provedor Tinus para gerar o RPS para Prefeitura de Mossoró/RN. O mesmo já foi homologado. Vocês poderiam subir para o SVN?

Certo, agora o problema é que eu não sei qual o nome do package da versão do QP 3.6.2

Não entendi muito bem, poderia explicar como realizar esse procedimento?

Lunar Tecnologia Mossoró/RN Utilizamos todos os componentes do ACBr

Bom dia, gostaria de saber como instalar os componentes novos do ACBr com a versão do QuickReport 3.6.2? Vi que quase todos os packages que fazem uso do QP, requerem o QP 5, QR5RunD7.dcp. Já tentei remover ele do pacote e da um build para vê se o package identificava a versão do QP instalado na minha máquina, mas nada adiantou.

Ok, vou ver se consigo atualizar o sistema completo. Muito obrigado. Só mais uma dúvida, tem como usar o quickreport 3.6.2 nos novos componentes? Porque quase todos os pacotes do quick, faz uso do QR5RunD7.dcp

Resolve na gambiarra, coloca dentro do try rs. try except end;

Não fazia tanto tempo assim não, eu atualizei ano passado lá pelo mês de Outubro e Novembro. Mas enfim essas informações que eu passei procedem? Sabe como ficaria essa linha de código? Ainda tô vendo o que mudou.

Eu tenho os seguintes bancos homologados: Todas com alterações que não possui no acbr, se quiser eu posto.

Pesquisei em todo fonte sobre: cceRetorno E não achou nada!

Bom dia, atualizei os componentes do ACBr, porem quando fui compilar o meu sistema vi que o componente ACBrNFe1 realizou algumas alterações no código. Como por exemplo nas versões anteriores essa linha abaixo funcionava; ShowMessage( 'Retorno: '+IntToStr(FrmMenu.NFe1.WebServices.CartaCorrecao.cceRetorno.RetEvento.items[0].RetInfEvento.cstat)+ #13+ Vi que unit ACBrNFe1WebServices tá comentado a linha da de CartaCorreção. Agora o acesso está sendo feito da seguinte forma: ACBrNFe1.CartaCorrecao Minha dúvida é, como ficaria essa primeira linha de código que postei.

Aqui está o ambiente de teste:

Boa tarde, Italo! Configurei sim, criei uma pasta(Mossoro) com os seguintes componentes: E adicionei Mossoró ao Combobox da aplicação e setei o schemas para essa pasta.

Bom dia! Estou tentando gerar um LoteRps para cidade de Mossoró/RN, porem ao executar esta função: if FProvedorClass.GetValidarLote then begin if not(NotaUtil.Valida(FDadosMsg, FMsg, FConfiguracoes.Geral.PathSchemas, FConfiguracoes.WebServices.URL, FConfiguracoes.WebServices.ServicoEnviar, FConfiguracoes.WebServices.Prefixo4)) then raise Exception.Create('Falha na validação do Lote ' + TNFSeGerarLoteRps(Self).NumeroLote + sLineBreak + FMsg); end; estou recebendo a mensagem de erro: Então eu abri a unity e o mesmo processo que foi feito com a cidade de Jabotão, eu fiz com a de Mossoró. function CodCidadeToProvedor(const ACodigo: Integer): string; var Provedor: String; begin Provedor := 'Nenhum'; case ACodigo of // Devemos informar aqui a lista de cidades que utilizam a versão 1 // do layout da ABRASF mas ainda não possui um Web Service, ou seja, // devemos apenas gerar o XML do RPS para ser lido pelo site da prefeitura 2607901,//Jaboatão dos Guararapes/PE 2408003 //Mossoro/RN : Provedor := 'ABRASFv1'; E na unit ACBrProvedorABRASFv1: eu fiz uma pequena alteração: function TProvedorABRASFv1.GetConfigSchema(ACodCidade: Integer): TConfigSchema; var ConfigSchema: TConfigSchema; begin if (ACodCidade = 2408003) then begin ConfigSchema.VersaoCabecalho := '1.00'; ConfigSchema.VersaoDados := '1.00'; ConfigSchema.VersaoXML := '1'; ConfigSchema.NameSpaceXML := 'http://www.tinus.com.br'; ConfigSchema.Cabecalho := 'nfsetinus.xsd'; ConfigSchema.ServicoEnviar := 'nfsetinus.xsd'; ConfigSchema.ServicoConSit := 'nfsetinus.xsd'; ConfigSchema.ServicoConLot := 'nfsetinus.xsd'; ConfigSchema.ServicoConRps := 'nfsetinus.xsd'; ConfigSchema.ServicoConNfse := 'nfsetinus.xsd'; ConfigSchema.ServicoCancelar := 'nfsetinus.xsd'; ConfigSchema.ServicoGerar := 'nfsetinus.xsd'; ConfigSchema.ServicoEnviarSincrono := 'nfsetinus.xsd'; ConfigSchema.ServicoSubstituir := 'nfsetinus.xsd'; ConfigSchema.DefTipos := ''; end else begin ConfigSchema.VersaoCabecalho := '1.00'; ConfigSchema.VersaoDados := '1.00'; ConfigSchema.VersaoXML := '1'; ConfigSchema.NameSpaceXML := 'http://www.abrasf.org.br/ABRASF/arquivos/'; ConfigSchema.Cabecalho := 'nfse.xsd'; ConfigSchema.ServicoEnviar := 'nfse.xsd'; ConfigSchema.ServicoConSit := 'nfse.xsd'; ConfigSchema.ServicoConLot := 'nfse.xsd'; ConfigSchema.ServicoConRps := 'nfse.xsd'; ConfigSchema.ServicoConNfse := 'nfse.xsd'; ConfigSchema.ServicoCancelar := 'nfse.xsd'; ConfigSchema.ServicoGerar := 'nfse.xsd'; ConfigSchema.ServicoEnviarSincrono := 'nfse.xsd'; ConfigSchema.ServicoSubstituir := 'nfse.xsd'; ConfigSchema.DefTipos := ''; end; Result := ConfigSchema; end; Existe mais alguma unit que precisa ser modificada para que eu possa gerar o LoteRPS xml versão 1? Segue por anexo um LoteRps da Cidade de Mossoró e o schemas utilizado. nfsetinus.rar xmlEXEMPLO_RPSEF-comassinatura-1.rar

Só uma última dúvida, o quickreport de vocês é pago? Quanto pagaram?

Pronto, problema resolvido. A máquina do cliente estava com defeito na entrada serial, foi comprado um conversor usb e tudo voltou a funcionar.

Consegui resolver \o Vou desinstalar tudo novamente para ter certeza do procedimento. Vou deixar registrado aqui para caso alguém um dia passe por esse problema. Realizei os seguintes procedimentos, removi alguns caminhos que estava adicionado ao libray path por default. O meu library path ficou da seguinte forma: Acredito que algum caminho que tinha antes estava apontando para o Quickreport antigo, só não sei exatamente qual.