PC Toledo

Código: Selecionar todos

Static Procedure fRemessa()
   Local cXml:= cRetorno:= [], oNfseSP:= SefazClass():New(), cCertificado:= CapicomEscolheCertificado(), cAmbiente:= 2 // homologação

   cXml+= [<Cabecalho Versao="1" xmlns="">]
     cXml+= [<CPFCNPJRemetente>]
       cXml+= [<CNPJ>10229311000180</CNPJ>]
     cXml+= [</CPFCNPJRemetente>]
   cXml+= [</Cabecalho>]

   cXml+= [<RPS xmlns="">]
**** calcular
     cXml+= [<Assinatura>d8Pg/jdA7t5tSaB8Il1d/CMiLGgfFAXzTL9o5stv6TNbhm9I94DIo0/ocqJpGx0KzoEeIQz4RSn99pWX4fiW/aETlNT3u5woqCAyL6U2hSyl/eQfWRYrqFu2zcdc4rsAG/wJbDjNO8y0Pz9b6rlTwkIJ+kMdLo+EWXMnB744olYE721g2O9CmUTvjtBgCfVUgvuN1MGjgzpgyussCOSkLpGbrqtM5+pYMXZsTaEVIIck1baDkoRpLmZ5Y/mcn1/Om1fMyhJVUAkgI5xBrORuotIP7e3+HLJnKgzQQPWCtLyEEyAqUk9Gq64wMayITua5FodaJsX+Eic/ie3kS5m50Q==</Assinatura>]
     cXml+= [<ChaveRPS>]
       cXml+= [<InscricaoPrestador>37925504</InscricaoPrestador>]
       cXml+= [<SerieRPS>A</SerieRPS>]
       cXml+= [<NumeroRPS>853</NumeroRPS>]
     cXml+= [</ChaveRPS>]

     cXml+= [<TipoRPS>RPS</TipoRPS>]
     cXml+= [<DataEmissao>] + DateXml(Date()) + [</DataEmissao>]
     cXml+= [<StatusRPS>N</StatusRPS>]
     cXml+= [<TributacaoRPS>T</TributacaoRPS>]
     cXml+= [<ValorServicos>100</ValorServicos>]
     cXml+= [<ValorDeducoes>0</ValorDeducoes>]
     cXml+= [<ValorPIS>0</ValorPIS>]
     cXml+= [<ValorCOFINS>0</ValorCOFINS>]
     cXml+= [<ValorINSS>0</ValorINSS>]
     cXml+= [<ValorIR>0</ValorIR>]
     cXml+= [<ValorCSLL>0</ValorCSLL>]
     cXml+= [<CodigoServico>2919</CodigoServico>]
     cXml+= [<AliquotaServicos>0</AliquotaServicos>]
     cXml+= [<ISSRetido>false</ISSRetido>]

     cXml+= [<CPFCNPJTomador>]
       cXml+= [<CNPJ>39732100000148</CNPJ>]
     cXml+= [</CPFCNPJTomador>]
     cXml+= [<RazaoSocialTomador>SABOR CHURRASCO LTDA</RazaoSocialTomador>]
     cXml+= [<EnderecoTomador>]
       cXml+= [<TipoLogradouro>Rua</TipoLogradouro>]
       cXml+= [<Logradouro>PROF ENEAS DE SIQUEIRA NETO</Logradouro>]
       cXml+= [<NumeroEndereco>465</NumeroEndereco>]
       cXml+= [<ComplementoEndereco></ComplementoEndereco>]
       cXml+= [<Bairro>JARDIM DAS IMBUIAS</Bairro>]
       cXml+= [<Cidade>3550308</Cidade>]
       cXml+= [<UF>SP</UF>]
       cXml+= [<CEP>04829300</CEP>]
     cXml+= [</EnderecoTomador>]

     cXml+= [<EmailTomador>malcarli@life.com.br</EmailTomador>]
     cXml+= [<Discriminacao>(001409) TAXA DE SERVICO MENSAL - Codigo do cliente 001 | Vencimento 10/10/2022</Discriminacao>]
   cXml+= [</RPS>]


   cRetorno:= oNfseSP:EnvioLoteRPS(cXml, cCertificado, cAmbiente)
   MsgInfo(cRetorno)
   hb_MemoWrit([Retorno.xml], cRetorno)
Return (Nil)

Código: Selecionar todos

METHOD Setup( cCertificado, cAmbiente, nWsServico ) CLASS SefazClass

   LOCAL nPos, aSoapList := { ;
      { WS_CANCELAMENTONFE,  "CancelamentoNFe", "http://www.prefeitura.sp.gov.br/nfe/ws/cancelamentoNFe", "https://nfe.prefeitura.sp.gov.br/ws/lotenfe.asmx" }, ;
      { WS_ENVIOLOTERPS,     "EnvioLoteRPS",    "http://www.prefeitura.sp.gov.br/nfe/ws/envioLoteRPS", "https://nfe.prefeitura.sp.gov.br/ws/lotenfe.asmx" } }