Campos em branco no PDF Nota de serviço

[marcelo.hgv]

Estou tentando visualizar o PDF de uma nota de serviço porem alguns campos não estão aparecendo. Como é o caso do Municipio da Prestação de Serviço, Discriminação dos serviços e QR, a principio estes campos que dei falta.

Segue em anexo XML e PDF gerados.

4321091234718500019456000000000000160-nfse.xml 4321091234718500019456000000000000160-nfse.pdf

[Italo Giurizzato Junior]

Bom dia Marcelo,

Favor atualizar os fontes e faça novos testes.

[Mauricio Andrade]

Marcelo,

Tenho o mesmo problema na prefeitura de Goiania, o XML não vem com todas as informação da Nota, eu alimento estas informações pegando do banco (sistema) antes de gerar o PDF.

Exemplo: Dados do Contribuinte (Empresa).

Abs

            if (sprovedor='goiania') or (sprovedor='issDSF') then
                begin
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.CodigoMunicipio := sCod_Munic_Emp;

                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj := SoNumeros(qryEmpresa.FieldByName('cnpj_cpf').AsString);
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal := SoNumeros(qryEmpresa.FieldByName('inscricao_municipal').AsString);
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.RazaoSocial := qryEmpresa.FieldByName('razao_social').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.NomeFantasia := qryEmpresa.FieldByName('apelido').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Endereco := qryEmpresa.FieldByName('endereco').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Numero := qryEmpresa.FieldByName('numero').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Complemento := qryEmpresa.FieldByName('complemento').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.Bairro := qryEmpresa.FieldByName('bairro').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CEP := qryEmpresa.FieldByName('cep').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.xMunicipio := qryEmpresa.FieldByName('municipio').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.UF := qryEmpresa.FieldByName('estado').AsString;

                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Contato.Telefone := qryEmpresa.FieldByName('tel').AsString;
                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Contato.Email := qryEmpresa.FieldByName('email').AsString;

                    rTl_Iss := 0;
                    if ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.Aliquota<>0 then
                        begin
                            rTl_Iss := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorServicos *
                            (ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.Aliquota/100);
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorIss := rTl_Iss;
                        end;

                    if (ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.IssRetido=stRetencao) then
                        begin
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorIssRetido     := rTl_Iss;

                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorLiquidoNfse   :=
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorServicos -
                            (rTl_Iss+
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorPis+
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorCofins+
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorIr+
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Valores.ValorCsll);
                        end;

                    if sprovedor='issDSF' then
                        begin
                            qryLer.Sql.Text := 'select PP.*,P.cod_serv_fed,P.cod_serv_mun,cod_cnae'+
                            ' from digim'+sUSUARIO_PADRAO+'.pedidos_produtos PP'+
                            ' left join digig'+sUSUARIO_PADRAO+'.prod_win P on P.cod_empresa="'+sEMPRESA+'"'+
                            ' and P.cod_produto=PP.cod_produto'+
                            ' where PP.id_pedido="'+qryPedidos.FieldByName('id_ped').AsString+'"'+
                            ' order by PP.id';
                            qryLer.Open;
                            qryLer.First;

                            sDesc_Serv := TrocaCaracter(qryLer.FieldByName('desc_produto').AsString,#13,sQuebra);
                            ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Discriminacao := sDesc_Serv;
                        end;
                end;

[marcelo.hgv]

Boa tarde. Obrigado pela colaboração de todos.

Vou fazer os testes.

[marcelo.hgv]

Boa tarde.

Somente para reportar que agora funcionou perfeitamente.

Muito obrigado.

[Italo Giurizzato Junior]

Boa tarde Marcelo,

Funcionou com a atualização dos fontes ou com a dica do Mauricio?

[marcelo.hgv]

Fiz a atualização dos fontes e funcionou dai não testei o exemplo dele.

 

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.