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