fernando garoso

Opa, bom dia @Italo Giurizzato Junior Entendi, mas fiz a mudança //if FormatoDiscriminacao <> fdNenhum then ConsolidarVariosItensServicosEmUmSo; e // Consolida todos os itens da lista. case FormatoDiscriminacao of fdNenhum: begin end; fdTabulado: NFSe.Servico.Discriminacao := '{' + xDiscriminacao + '}'; fdJson: NFSe.Servico.Discriminacao := '[' + xDiscriminacao + ']'; else NFSe.Servico.Discriminacao := xDiscriminacao; end; e ficou certinho na impressão pelo site da prefeitura, mas vou ver essa opção também, muito obrigado

Olá, boa tarde. Estou fazendo testes com o provider que utiliza o padrão ABRASF v1 e quando utilizo a propriedade FormatoDiscriminacao = fdNenhum ele não gera os valores e a discriminação no xml fica correto: <nfse:Valores> <nfse:ValorServicos>0.00</nfse:ValorServicos> <nfse:IssRetido>2</nfse:IssRetido> </nfse:Valores> <nfse:Discriminacao>MINHA DISCRIMINACAO</nfse:Discriminacao> Quando utilizo em outro formato, como fdConsolidado ele gera correto os valores mas a discriminação não fica como o texto que atribui e sim concatena os itens da nota <nfse:Valores> <nfse:ValorServicos>1118.00</nfse:ValorServicos> <nfse:IssRetido>2</nfse:IssRetido> <nfse:ValorIss>36.80</nfse:ValorIss> <nfse:BaseCalculo>1118.00</nfse:BaseCalculo> <nfse:Aliquota>3.2918</nfse:Aliquota> </nfse:Valores> <nfse:Discriminacao>;ITEM 1;ITEM 2;ITEM3</nfse:Discriminacao> No código fonte ele passa pelas units: ACBrNFSeXGravarXml_ABRASFv1 linha 239 if FormatoDiscriminacao <> fdNenhum then ConsolidarVariosItensServicosEmUmSo; ACBrNFSeXGravarXml linha 239 procedure TNFSeWClass.ConsolidarVariosItensServicosEmUmSo;

Tenho mais de um Delphi, então, eu continuei mexendo e adicionei a unit MidaLib no ACBrNFSeXDANFSeFR e funcionou, teria alguma outra forma de contornar? Valeu @Juliomar Marchetti

Olá @Juliomar Marchetti, bom dia! Voltei a testar o ACBR no Delphi 10.4, e está tudo atualizado, usando o FastReports 2025 (última versão da minha licença que continua ativa). Estou testando o Projeto ACBrNFSeX_Exemplo e quando adiciono o componente ACBrNFSeXDANFSeFR me deparo com o erro abaixo: Access violation at address 5139E427 in module 'dsnap270.bpl'. Read of address 00000000. Desta vez tentei criar a classe na mão XDANFSe := TACBrNFSeXDANFSeFR.Create( Self ); quando ele chegava na linha 465 da unit ACBrNFSeXDANFSeFR ele apresentava erro ao executar (fui debugando), na linha contém o código cdsIdentificacao.CreateDataSet Então declarei a unit MidasLib no Frm_ACBrNFSeX e criou sem erro. Refiz até o registro da DLL do midas, fechei e abri a IDE, mas não consigo usar o componente clicando na palheta da IDE e colocando no formulário pois o erro do Access violation persiste. Tem alguma idéia ou algum tópico por aqui, pois já procurei e não encontrei. Valeu!

Valeu Juliomar, estou testando aqui para ver o que acontece. Outra coisa que notei foi no exemplo: ACBr\Source\Exemplos\ACBrDFe\ACBrNFSeX\Delphi\Frm_ACBrNFSeX na linha 4764 - CodigoMunicipio := StrToIntDef(edtCodCidade.Text, -1); teria que ser 0 ao invés de -1 pois em ACBrNFSeXConfiguracoes a procedure TGeralConfNFSe.SetCodigoMunicipio executa o LerParamsMunicipio quando <> 0, daí apresenta erro esse.

Boa noite Juliomar, muito obrigado pelo retorno. Então, tenho a versão 11 e 2007, todas PRO, no instalador do ACBR as marquei, pode haver problema de incompatibilidade? Como tenho a versão PRO não tem a unit dsnap, dentro do dpk ACBr_NFSeXDANFSeFR ela aparece.

Olá pessoal, primeiro contato com o ACBR e estou fazendo um teste do ACBrNFSeX, ao adicionar o componente TACBrNFSeXDANFSeFR exibe o erro de Access violation 'dsnap270.bpl' Ao abrir o source do pacote tem a linha com o requires do "dsnap". Ambiente: Delphi 10.4 Pro Update 2 / ACBR rev 30598