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)
