Re: [delphi-br] NFS-e de Curitiba

Marlon Tiedt Sat, 24 Apr 2010 08:21:09 -0700

Os valores são somente de testes.
[]s

Marlon


procedure TForm1.Button1Click(Sender: TObject);
var
   Envio : nfseSoap;
   Retorno : EnviarLoteRpsResposta;
   Lote : EnviarLoteRpsEnvio;
   ListaRps : ArrayOfRps;
   Data : TXSDateTime;

begin
   Envio := GetnfseSoap;

   Retorno := EnviarLoteRpsResposta.Create;
   Lote := EnviarLoteRpsEnvio.Create;

   Lote.LoteRps := tcLoteRps.Create;
   Lote.Signature := SignatureType.Create;

   Lote.LoteRps.NumeroLote := 0;
   Lote.LoteRps.Cnpj := '000';
   Lote.LoteRps.QuantidadeRps := 1;

   SetLength(ListaRps, 1);
   ListaRps[0] := Rps.Create;
   ListaRps[0].InfRps := tcInfRps.Create;
   ListaRps[0].Signature := SignatureType.Create;
   ListaRps[0].InfRps.IdentificacaoRps := tcIdentificacaoRps.Create;


   ListaRps[0].InfRps.IdentificacaoRps.Numero := 1;
   ListaRps[0].InfRps.IdentificacaoRps.Serie := 'F';
   ListaRps[0].InfRps.IdentificacaoRps.Tipo := 1;

   Data.AsDateTime := Now();
   ListaRps[0].InfRps.DataEmissao := Data;
   ListaRps[0].InfRps.NaturezaOperacao := 1;
   ListaRps[0].InfRps.RegimeEspecialTributacao := 1;
   ListaRps[0].InfRps.OptanteSimplesNacional := 2;
   ListaRps[0].InfRps.IncentivadorCultural := 2;
   ListaRps[0].InfRps.Status := 1;

   ListaRps[0].InfRps.Servico := tcDadosServico.Create;
   ListaRps[0].InfRps.Servico.Valores := tcValores.Create;

   ListaRps[0].InfRps.Servico.Valores.ValorServicos := fnValor('1000');
   ListaRps[0].InfRps.Servico.Valores.ValorDeducoes := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.ValorPis := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.ValorCofins := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.ValorInss := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.ValorIr := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.ValorCsll := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.IssRetido := 2;
   ListaRps[0].InfRps.Servico.Valores.ValorIss := fnValor('50');
   ListaRps[0].InfRps.Servico.Valores.ValorIssRetido := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.OutrasRetencoes := fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.BaseCalculo := fnValor('1000');
   ListaRps[0].InfRps.Servico.Valores.Aliquota := fnValor('5');
   ListaRps[0].InfRps.Servico.Valores.ValorLiquidoNfse := fnValor('950');
   ListaRps[0].InfRps.Servico.Valores.DescontoIncondicionado :=
fnValor('0');
   ListaRps[0].InfRps.Servico.Valores.DescontoCondicionado := fnValor('0');

   ListaRps[0].InfRps.Servico.ItemListaServico := '0107';
   ListaRps[0].InfRps.Servico.Discriminacao := 'Teste de envio de lote de
RPS';
   ListaRps[0].InfRps.Servico.CodigoMunicipio := 1;

   ListaRps[0].InfRps.Prestador := tcIdentificacaoPrestador.Create;

   ListaRps[0].InfRps.Prestador.Cnpj := '000';
   ListaRps[0].InfRps.Prestador.InscricaoMunicipal := '000';

   ListaRps[0].InfRps.Tomador := tcDadosTomador.Create;
   ListaRps[0].InfRps.Tomador.IdentificacaoTomador :=
tcIdentificacaoTomador.Create;
   ListaRps[0].InfRps.Tomador.IdentificacaoTomador.CpfCnpj :=
tcCpfCnpj.Create;

   ListaRps[0].InfRps.Tomador.IdentificacaoTomador.CpfCnpj.Cpf :=
'035.954.159-30';
   ListaRps[0].InfRps.Tomador.RazaoSocial := 'Tomador de Serviços';

   ListaRps[0].InfRps.Tomador.Endereco := tcEndereco.Create;

   ListaRps[0].InfRps.Tomador.Endereco.Endereco := 'Rua sem nome';
   ListaRps[0].InfRps.Tomador.Endereco.Numero := '1';
   ListaRps[0].InfRps.Tomador.Endereco.Complemento := 'Apt. 1';
   ListaRps[0].InfRps.Tomador.Endereco.Bairro := 'Centro';
   ListaRps[0].InfRps.Tomador.Endereco.Uf := 'PR';
   ListaRps[0].InfRps.Tomador.Endereco.Cep := 0;

   ListaRps[0].InfRps.Tomador.Contato := tcContato.Create;

   ListaRps[0].InfRps.Tomador.Contato.Telefone := '00';
   ListaRps[0].InfRps.Tomador.Contato.Email := 'marlon.ti...@gmail.com';

   Lote.LoteRps.ListaRps := ListaRps;
   Retorno := Envio.RecepcionarLoteRps(Lote);
end;

Em 23 de abril de 2010 23:26, Rubem Nascimento da Rocha <
djpardalro...@hotmail.com> escreveu:

>
>
>
> Poste o código completo da sua implementação pra que alguém na lista possa
> avaliar.
>
> Sds.
>
> To: automacaoto...@yahoogrupos.com.br<AutomacaoTotal%40yahoogrupos.com.br>;
> delphi-bol...@yahoogrupos.com.br <delphi-boleto%40yahoogrupos.com.br>;
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>;
> delphi-to...@yahoogrupos.com.br <delphi-total%40yahoogrupos.com.br>;
> delphitodel...@yahoogrupos.com.br <DelphiToDelphi%40yahoogrupos.com.br>;
> dtdel...@yahoogrupos.com.br <DTDelphi%40yahoogrupos.com.br>;
> lista-del...@yahoogrupos.com.br <lista-delphi%40yahoogrupos.com.br>
> From: mtsys.lis...@gmail.com <mtsys.listas%40gmail.com>
> Date: Fri, 23 Apr 2010 20:57:16 -0300
> Subject: [delphi-br] NFS-e de Curitiba
>
>
> Olá pessoal, alguém aqui já desenvolveu a NFS-e para o municipio de
> Curitiba.
>
> Importe o WSDL do site corretamente, colquei no Delphi, ele compila mas
> quando mando enviar usando o comado
> "Retorno := Envio.RecepcionarLoteRps(Lote);" dá erro de acesso de memória.
>
> Pq será?
>
> []s
>
> Marlon
>
>
> __________________________________________________________
> O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui para ler
> as dicas.
> http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


[As partes desta mensagem que não continham texto foram removidas]



------------------------------------

-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    delphi-br-unsubscr...@yahoogrupos.com.br

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Re: [delphi-br] NFS-e de Curitiba

Responder a