Danfe Fortes Report - Goiânia

[tonygyn]

Bom dia;

 

Senhores estou gerando a NFSe para Goiânia, fui informado que o XML de Retorno possui somente informação do tomador de serviço, somente CNPJ e Código do município.

Sendo assim quando peço a impressão do Danfe dados do prestador de serviço e tomador estão em branco.

 

Imaginei que preenchendo os valores mesmo após a geração do danfe poderia imprimir, porém mesmo assim não consigo preencher os dados para que saia no danfe.

ACBrNFSe.Gerar(NotaServico.Codigo);

setTomador();
ACBrNFSe1.NotasFiscais.Imprimir();

procedure TFox00291.setTomador();
var
  UtilNFsSped:TUtilNFeSped;
begin
  try
      UtilNFsSped:= TUtilNFeSped.create(self);
      with ACBrNFSe1.NotasFiscais.Items[0].NFSe do
      begin
        with Tomador do
        begin
          RazaoSocial := NotaServico.FkCliente.RazaoSocial.asValue;
          with Endereco do
          begin
            Endereco        := NotaServico.FkCliente.Endereco.asValue;
            Numero          := NotaServico.FkCliente.Numero.AsValue;
            Complemento     := NotaServico.FkCliente.Complemento.AsValue;
            Bairro          := NotaServico.FkCliente.Bairro.AsValue;
            UF              := NotaServico.FkCliente.FkMunicipio.IBGEUF.AsValue;
            CEP             := UtilNFsSped.tiraMaskCep( NotaServico.FkCliente.Cep.AsValue);
          end;
          with Contato do
          begin
            Contato.Telefone := NotaServico.FkCliente.Fone.AsValue;
            Contato.Email    := NotaServico.FkCliente.Email.AsValue;
          end;
        end;
        OutrasInformacoes := StringReplace(OutrasInformacoes, '-',#13+#10, [rfReplaceAll]);
      end;
  finally
    FreeAndNil(UtilNFsSped);
  end;
end;

Mesmo passando os dados o Danfe sai em branco.

 

Alguém pode me ajudar...?

 

[Dangelo2010]

  ACBrNFSe.DANFSe.T_InscEstadual        := RxNotaFiscalINSC_ESTADUAL.AsString;
  ACBrNFSe.DANFSe.T_InscMunicipal       := RxNotaFiscalINSC_MUNICIPAL.AsString;
  ACBrNFSe.DANFSe.T_Fone                := RxNotaFiscalFONE_1.AsString;
  ACBrNFSe.DANFSe.T_Email               := RxNotaFiscalEMAIL.AsString;
  ACBrNFSe.DANFSe.T_Endereco            := RxNotaFiscalENDERECO.AsString;
  ACBrNFSe.DANFSe.T_Complemento         := RxNotaFiscalCOMPLEMENTO.AsString;

  ACBrNFSe.DANFSe.Usuario               := Modulo.RecNomeUsr;
  ACBrNFSe.DANFSe.ExpandirLogoMarca     := True;
  ACBrNFSe.DANFSe.Prefeitura            := ModuloPesqServico.IBQParametroServicoPREFEITURA.AsString + ';' + 'AIDF: ' + ModuloPesqServico.IBQParametroServicoAIDF.AsString;
  ACBrNFSe.DANFSe.Logo                  := ModuloPesqServico.IBQParametroServicoLOGO_PREFEITURA.AsString;
  ACBrNFSe.DANFSe.PrestLogo             := ModuloPesqServico.IBQParametroServicoLOGO_PRESTADOR.AsString;
  ACBrNFSe.DANFSe.NumCopias             := 1;
  ACBrNFSe.DANFSe.RazaoSocial           := Modulo.RecNomeEmp;
  ACBrNFSe.DANFSe.Endereco              := Modulo.RecEmpEndereco + ', ' + Modulo.RecEmpNumero + ' - ' + Modulo.RecEmpBairro + ' - CEP: ' + Modulo.RecEmpCep;
  ACBrNFSe.DANFSe.Complemento           := Modulo.RecEmpComplemento;
  ACBrNFSe.DANFSe.Email                 := Modulo.RecEmpEMail;
  ACBrNFSe.DANFSe.Fone                  := Modulo.RecEmpDDD + Modulo.RecEmpFone1;
  ACBrNFSe.DANFSe.InscMunicipal         := Modulo.RecEmpInscMunic;
  ACBrNFSe.DANFSe.Municipio             := Modulo.RecEmpMunic;
  ACBrNFSe.DANFSe.EMail_Prestador       := Modulo.RecEmpEMail;
  ACBrNFSe.DANFSe.UF                    := Modulo.RecEmpUF;
  ACBrNFSe.DANFSe.Atividade             := ModuloPesqServico.IBQParametroServicoCOD_ATIV_MUN.AsString;
  ACBrNFSe.DANFSe.OutrasInformacaoesImp := RxNotaFiscalOBS_1.AsString       + ';' +
                                           RxNotaFiscalOBS_2.AsString       + ';' +
                                           RxNotaFiscalOBS_EXTRA_1.AsString + ';' +
                                           RxNotaFiscalOBS_EXTRA_2.AsString;