Private Sub GerarRPS() Dim x As Integer = 0 Try txtLog.Clear() x = Convert.ToInt32(txtnNFSe.Text) Dim go As Boolean = False Dim str As String = String.Empty ' Gera RPS Dim ide As String(), tomador As String(), servico As String() ide = New String(7) {} tomador = New String(11) {} servico = New String(19) {} ' Dados de identificação do RPS ide(0) = txtnNFSe.Text '<Numero> Número do RPS ide(1) = "A" '<Serie> Número de série do RPS ide(2) = "RPS-M" '<Tipo> Layout 2 (BH) = Código de tipo de RPS: 1 - RPS; 2 – Nota Fiscal Conjugada (Mista); 3 – Cupom. Layout 1 (SP) = RPS; RPS-M - NF Conjugada (Mista); RPS-C - Cupom. ide(3) = DateTime.Now.ToString("yyyy-MM-dd") '+"T" + DateTime.Now.ToString("hh:mm:ss"); //<DataEmissao> Data de Emissão do Documento ide(4) = "1" '<NaturezaOperacao> Código de natureza da operação: 1 – Tributação no município; 2 - Tributação fora do município; 3 - Isenção; 4 - Imune; 5 –Exigibilidade suspensa por decisão judicial; 6 – Exigibilidade suspensa por procedimento administrativo. ide(5) = "6" '<RegimeEspecialTributacao> Código de identificação do regime especial de tributação: 1 – Microempresa municipal; 2 - Estimativa; 3 – Sociedade de profissionais; 4 – Cooperativa. ide(6) = "1" '<OptanteSimplesNacional> Identificação de Sim/Não: 1 - Sim; 2 – Não. ide(7) = "2" '<IncentivadorCultural> Identificação de Sim/Não: 1 - Sim; 2 – Não. ' Conjunto de dados e valores que compõe o documento fiscal servico(0) = "1000,00" '<ValorServicos> servico(1) = "10,00" '<ValorDeducoes> servico(2) = "10,00" '<ValorPis> servico(3) = "10,00" '<ValorCofins> servico(4) = "10,00" '<ValorInss> servico(5) = "10,00" '<ValorIr> servico(6) = "10,00" '<ValorCsll> servico(7) = "1" '<IssRetido> servico(8) = "10,00" '<ValorIss> servico(9) = "10,00" '<OutrasRetencoes> servico(10) = "0.05" '<Aliquota> servico(11) = "10,00" '<DescontoIncondicionado> servico(12) = "10,00" '<DescontoCondicionado> servico(13) = "17.02" '<ItemListaServico> servico(14) = "8219-9/9900"; '<CNAE> servico(15) = "821999900" '<CodigoTributacaoMunicipio> servico(16) = "SERVIÇO DE MONITORAMENTO DE DADOS" '<Discriminacao> servico(17) = "3106200" '<CodigoMunicipio> servico(18) = "T" '<TributacaoRPS> ' Dados do tomador de serviço tomador(0) = "11143662000137" '<Cnpj> ou <Cpf> tomador(1) = "2463040011" '<InscricaoMunicipal> tomador(2) = "RAZAO DE TESTE ASS COMPONENTES" '<RazaoSocial> tomador(3) = "DE SAO PAULO" '<Endereco> tomador(4) = "123" '<Numero> tomador(5) = "TESTE COMPL" '<Complemento> tomador(6) = "CENTRO" '<Bairro> tomador(7) = "3106200" '<CodigoMunicipio> tomador(8) = "MG" '<Uf> tomador(9) = "30170011" '<Cep> tomador(10) = "teste@ass.com" '<EmailTomador> tomador(11) = "R" '<TipoLogradouro> Dim path As String = Application.StartupPath + "\nfse\rps\" Dim nfse As New asscshnfse.asscshnfse() txtLog.Text += "Método: nfse.GeraRPS" & vbCr & vbLf Dim nRPS As String = nfse.GeraRPS(ide, tomador, servico) txtLog.Text += "#RETORNO: " & nRPS & vbCr & vbLf & vbCr & vbLf Application.DoEvents() If File.Exists(path & "RPS-" & nRPS & ".xml") Then go = True Else txtLog.Text += "***ATENÇÃO***" & vbCr & vbLf & "Arquivo RPS não localizado." End If Finally x += 1 txtnNFSe.Text = x.ToString() End Try End Sub