Private Sub cmdGeraRPS_Click(Index As Integer) 'DEFINIÇÃO DAS VARIAVEIS Dim nRPS As Long nRPS = InputBox("No RPS", "Numero de RPS", 1) 'IDENTIFICACAO Dim ide() As String ReDim Preserve ide(8) ide(0) = nRPS '<Numero> Número do RPS ide(1) = "A" '<Serie> Número de série do RPS ide(2) = "1" '<Tipo> Código de tipo de RPS: 1 - RPS; 2 – Nota Fiscal Conjugada (Mista); 3 – Cupom. ide(3) = "2011-04-08T16:44:55" '<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. 'SERVICO Dim servico() As String ReDim Preserve servico(18) 'aqui pode ser feito um loop ou um next servico(0) = "1000,00" 'valor servicos servico(1) = "10,00" 'valor deducoes servico(2) = "10,00" 'valor pis servico(3) = "10,00" 'valor cofins servico(4) = "10,00" 'valor inss servico(5) = "10,00" 'valor ir servico(6) = "10,00" 'valor csll servico(7) = "1" 'iss retido servico(8) = "10,00" 'valor iss servico(9) = "10,00" 'outras retenções servico(10) = "0.05" 'aliquota servico(11) = "10,00" 'desconto incondicionado servico(12) = "10,00" 'desconto condicionado servico(13) = "17.02" 'item lista serviço servico(14) = "" 'cnae servico(15) = "821999900" 'codigo tributacao municipio servico(16) = "SERVICO DE MONITORAMENTO DE DADOS" 'descriminação serviço servico(17) = "3106200" 'CodigoMunicipio 'TOMADOR DO SERVIÇO Dim tomador() As String ReDim Preserve tomador(10) tomador(0) = "11143662000137" 'CNPJ OU CPF tomador(1) = "2463040011" 'Insc. Municipal tomador(2) = "RAZAO DE TESTE ASS COMPONENTES" 'razao social tomador(3) = "DE SAO PAULO" 'endereço tomador(4) = "123" 'numero tomador(5) = "TESTE COMPL" 'complemento tomador(6) = "CENTRO" 'bairro tomador(7) = "3106200" 'codigo municipio tomador(8) = "MG" 'UF tomador(9) = "30170011" 'CEP 'CHAMA A FUNCAO DA OCX Dim pathRet As String pathRet = RPS1.GeraRPS(ide, servico, tomador) 'VERIFICAÇÃO SE O XML FOI GERADO, PARA ENTAO UTILIZAR DEMAIS PROCEDIMENTOS, ASSINATURA, VALIDAÇÃO ETC... 'If Dir(criar_xml) <> Empty Then ' MsgBox "Criado o XML: " + pathRet, vbInformation 'End If txtStatus.Text = "(1) Gerar RPS:" + vbCrLf + pathRet + vbCrLf 'Unload Me End Sub