jGuto

Bom dia, não está não, quando eu marco essa opção me retorna "URL não definida para: TNFSeConsultarLoteRPS" A unica opção de consulta que o provedor tem é ConsultarNFSePorRps - Provedor 4R

Boa tarde Italo, mudei recentemente meu modulo de emissão de NFSe para o trunk2 e estou com alguns problemas. Usando o método Gerar, o componente se atualiza com os dados da NFSe emitida(numero, código de verificação, etc), já no EnviarSincrono, essa mesma atualização não ocorre. Quando o provedor tem as duas opções utilizo a Gerar sem problemas, mas estou com um provedor(4R) que só consigo usar o EnviarSincrono. Preciso fazer algo pra atualizar o componente? Percebi também que no EnviarSincrono não salva o xml de retorno na pasta corretamente, somente o RPS fica salvo na pasta de Recibos, mas na de notas não fica nada..

Bom dia Italo, no caso da Fiorilli, ela pede que em homologação seja informado o cnpj citado pelo Alex Pereira E no caso da 4R, deve ser informado o CNPJ da empresa para que estamos homologando( dificilmente o cliente vai nos emprestar o seu certificado para que possamos usar)

Ok, aguardarei..

Boa tarde Italo, o código que eu postei é do acbr mesmo, função TDFeCapicom.Assinar da unit ACBrDFeCapicom, eu estou utilizando o EnviarSincrono..

Agora na hora de enviar dá o seguinte erro não creio que seja cadeia, pois um exe na versão anterior(antes de eu migrar pro trunk2) funciona normalmente..

Segue anexo o xml presente no AXML, percebi que está faltando uma ultima tag, a </GerarNfseEnvio> após a tag </Rps>, por isso que não consegue carregar o arquivo no xmldoc rps.xml

Bom dia Italo, atualizei meus fontes para o trunk2 e estou tendo problemas com esse mesmo pedaço de código na NFSe // Carregando o AXml em XMLDOC // if (not xmldoc.loadXML(AXml)) then raise EACBrDFeException.Create('Não foi possível carregar o arquivo: ' + AXml); Tanto na minha aplicação como no demo_ACBrNFSe está acontecendo o mesmo erro, algo errado que eu possa estar fazendo? utilizo o provedor fiorilli..

Estou com o mesmo problema, como resolver?

Bom dia, em contato com o suporte da Fiorilli, fui informado que na tag CodigoMunicipio do xml de cancelamento, devo informar o código do município onde o serviço foi prestado, e não o código do município do prestador do serviço, a seguinte alteração resolveu o problema.. Antes procedure TWebServicesBase.DoNFSeCancelarNFSe; {...} begin {...} if (TNFSeCancelarNfse(Self).FCodigoMunicipio = '') then begin if (FProvedor = proISSNet) and (FConfiguracoes.WebServices.AmbienteCodigo = 2) then TNFSeCancelarNfse(Self).FCodigoMunicipio := '999' else TNFSeCancelarNfse(Self).FCodigoMunicipio := TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; end; end; {...} end; Correção procedure TWebServicesBase.DoNFSeCancelarNFSe; {...} begin {...} if (TNFSeCancelarNfse(Self).FCodigoMunicipio = '') then begin if (FProvedor = proISSNet) and (FConfiguracoes.WebServices.AmbienteCodigo = 2) then TNFSeCancelarNfse(Self).FCodigoMunicipio := '999' else begin if FProvedor = proFiorilli then TNFSeCancelarNfse(Self).FCodigoMunicipio := TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.Servico.CodigoMunicipio else TNFSeCancelarNfse(Self).FCodigoMunicipio := TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; end; end; {...} end;

Boa tarde Italo, desde já obrigado.

Bom dia, tenho um cliente que utiliza Alíquota zerada, porém ao informar 0 na tag, o provedor acusa erro de que o valor da alíquota deve estar entre 2 e 5%. Em contato com a Fiorilli, fui informado que neste caso eu não posso enviar a tag Aliquota no xml, pois sem a tag não existe essa verificação. Então fiz a seguinte alteração e deu certo.. procedure TNFSeW.GerarServicoValores_V2; begin Gerador.wGrupoNFSe('Servico'); {...} case FProvedor of proFiorilli, proTecnos, proProdata: Gerador.wCampoNFSe(tcDe2, '#25', 'Aliquota', 01, 05, 1, NFSe.Servico.Valores.Aliquota, ''); end; {...} Gerador.wGrupoNFSe('/Servico'); end; Para procedure TNFSeW.GerarServicoValores_V2; begin Gerador.wGrupoNFSe('Servico'); {...} case FProvedor of proFiorilli: begin if NFSe.Servico.Valores.Aliquota > 0 then Gerador.wCampoNFSe(tcDe2, '#25', 'Aliquota', 01, 05, 1, NFSe.Servico.Valores.Aliquota, ''); end; proTecnos, proProdata: Gerador.wCampoNFSe(tcDe2, '#25', 'Aliquota', 01, 05, 1, NFSe.Servico.Valores.Aliquota, ''); end; {...} Gerador.wGrupoNFSe('/Servico'); end;

Bom dia, o danfse(Fast) está imprimindo o município de incidência erroneamente, está sempre buscando o código do município onde o serviço foi prestado, e não aonde incidira o imposto. Achei este comentario no fonte, só que ao contrario do que diz no mesmo, retorna sim o valor do respectivo campo, segue também o anexo do xml(provedor fiorilli) procedure TdmACBrNFSeFR.CarregaParametros; {...} begin with cdsParametros do begin {...} with FNFSe.Servico do begin {...} FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(StrToIntDef(CodigoMunicipio,0)); // MunicipioIncidencia // removido pois sempre vem em branco.. (Oneide) end; {...} end; end; Correção: FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade( MunicipioIncidencia); Xml 5964-nfse.xml

Fiz as seguintes alterações para resolver meu problema procedure TdmACBrNFSeFR.CarregaServicos; var i: Integer; dValorNota: Double; begin with cdsServicos do begin Close; CreateDataSet; Append; with FNFSe.Servico do begin FieldByName('ItemListaServico').AsString := ItemListaServico; FieldByName('xItemListaServico').AsString := xItemListaServico; FieldByName('CodigoCnae').AsString := CodigoCnae; FieldByName('CodigoTributacaoMunicipio').AsString := CodigoTributacaoMunicipio; FieldByName('Discriminacao').AsString := StringReplace(Discriminacao, TACBrNFSe(DANFSeClassOwner.ACBrNFSe).Configuracoes.WebServices.QuebradeLinha, #13, [rfReplaceAll, rfIgnoreCase]); FieldByName('CodigoPais').AsString := IntToStr(CodigoPais); FieldByName('NumeroProcesso').AsString := NumeroProcesso; FieldByName('Descricao').AsString := Descricao; with Valores do begin FieldByName('ValorServicos').AsFloat := ValorServicos; FieldByName('ValorDeducoes').AsFloat := ValorDeducoes; FieldByName('ValorPis').AsFloat := ValorPis; FieldByName('ValorCofins').AsFloat := ValorCofins; FieldByName('ValorInss').AsFloat := ValorInss; FieldByName('ValorIr').AsFloat := ValorIr; FieldByName('ValorCsll').AsFloat := ValorCsll; // FieldByName('IssRetido').AsString := DFeUtil.SeSenao(IssRetido = stRetencao,'0', DFeUtil.SeSenao(IssRetido = stNormal,'2','3')); // FieldByName('ValorIss').AsFloat := ValorIss; // FieldByName('ValorIssRetido').AsFloat := ValorIssRetido; if IssRetido = stNormal then begin FieldByName('ValorIss').AsFloat := FNFSe.ValoresNfse.ValorIss; FieldByName('ValorIssRetido').AsFloat := 0; end else begin FieldByName('ValorIss').AsFloat := 0; FieldByName('ValorIssRetido').AsFloat := FNFSe.ValoresNfse.ValorIss; end; FieldByName('OutrasRetencoes').AsFloat := OutrasRetencoes; FieldByName('BaseCalculo').AsFloat := FNFSe.ValoresNfse.BaseCalculo; FieldByName('Aliquota').AsFloat := FNFSe.ValoresNfse.Aliquota; FieldByName('ValorLiquidoNfse').AsFloat := FNFSe.ValoresNfse.ValorLiquidoNfse; FieldByName('DescontoCondicionado').AsFloat := DescontoCondicionado; FieldByName('DescontoIncondicionado').AsFloat := DescontoIncondicionado; end; end; Post; end; end;

Bom dia, estou com o mesmo problema, pelo que eu percebi, na alimentação do retorno está procurando o campo ValorIssRetido, porém o valor do Iss Retido vem no campo ValorISS, a unica coisa que muda é a tag IssRetido. No manual da ABRASF nem tem essa tag ValorIssRetido

Consegui resolver o problema, no meu caso foi só mudar as seguintes propriedades do danfse.fr3 EndlessHeight = False; PaperSize = A4;

Bom dia, estou com o mesmo problema usando FastReports, se mando imprimir uma nota fiscal eletrônica, imprime normalmente, porém uma Nota Fiscal de Serviço não imprime. A impressora é uma Brothers duplex, vou ver com o cliente o modelo certinho. Outras documentos também imprimem normalmente..

Ok, obrigado.

Boa tarde Italo, a propriedade AcbrNFSe.Configurações.webservices.QuebraDeLinhas está como readOnly, não consigo altera-la para um valor diferente do ";" se eu estiver em propriedade errada me corrija por favor.

Boa tarde, resolve sim, segue anexo ACBrNFSeDANFSeFRDM.pas

Obrigado Italo

Bom dia, agora que achei a referida propriedade, estava procurando no componente danfse. FieldByName('Discriminacao').AsString := StringReplace(Discriminacao, TACBrNFSe(DANFSeClassOwner.ACBrNFSe).Configuracoes.WebServices.QuebradeLinha, #13, [rfReplaceAll, rfIgnoreCase]);

Não tem como subir essa correção??

olá, estou utilizando o provedor fiorilli e fiz a mudança acima indicada de trocar o ";" pelo "\s\n", só que no danfe do fastreports, ele imprime esses caracteres, pois continua verificando a quebra por ";". Então fiz o seguinte, onde //procedure TdmACBrNFSeFR.CarregaServicos; Unit ACBrNFSeDANFSeFRDM FieldByName('Discriminacao').AsString := StringReplace(Discriminacao,';', #13, [rfReplaceAll]); troquei por //procedure TdmACBrNFSeFR.CarregaServicos; Unit ACBrNFSeDANFSeFRDM FieldByName('Discriminacao').AsString := StringReplace(StringReplace(Discriminacao, '\s\n', ';', [rfReplaceAll]), ';', #13, [rfReplaceAll]); Isso resolveu meu problema.

Fora esse pequeno manual, não achei nada a respeito desse eTransparencia