Implementamos a Prefeitura do Município de Serra-ES ao projeto NFSe.

Siga os passos abaixo para, facilmente, emitir uma NFS-e.

1 – Configuração inicial

Baixe o pacote recebido (.rar) e insira a chave de parâmetros que acompanha o pacote (.reg) no regedit e ajuste os parâmetros manualemnte, com os dados do prestador e informe Layout=24.

2 – Geração de NFS-e

Você receberá no pacote, o fonte do Aplicativo de Testes. Inicialmente – antes de implementar em seu software – sugerimos que faça uma emissão de NFS-e direto do aplicativo de testes recebido. Para isto, é preciso acessar o fonte e atualizar algumas informações.

Acesse o fonte na linguagem escolhida e preencha as informações da NFS-e a ser emitida nas variáveis correspondentes, conforme exemplo abaixo:

Compile o projeto e execute a aplicação. Acione a função “Gerar RPS”, através do botão correspondente. Veja abaixo:

Neste momento, será gerado o arquivo XML assinado, nos padrões exigido pelo manual. A execução do retorno acima é gerado a partir desta linha de código:

C#:

string pathLote = nfse.GeraLoteRps(ide, tomador, servico);

VB6:

Dim NFSe As asscshnfse.nfsedll
Set NFSe = New asscshnfse.nfsedll

txtStatus.Text = txtStatus.Text + "Gerar RPS:" + vbCrLf + NFSe.GeraLoteRpsStr(concatena(ide, servico, tomador)) + vbCrLf + vbCrLf
txtStatus.SelStart = Len(txtStatus.Text)

Delphi:

ret := GeraLoteRps(tIde,tServico, tTomador);

3 – Transmissão

Para transmitir uma NFS-e, você deverá acionar o botão “Recepção Lote”. Localize o path do XML retornado no passo anterior. O código para esta etapa segue abaixo:

Neste momento, será gerado o arquivo XML assinado, nos padrões exigido pelo manual. A execução do retorno acima é gerado a partir desta linha de código:

C#:

string pathLote = nfse.GeraLoteRps(ide, tomador, servico);

VB6:

Dim NFSe As asscshnfse.nfsedll
Set NFSe = New asscshnfse.nfsedll

txtStatus.Text = txtStatus.Text + "Gerar RPS:" + vbCrLf + NFSe.GeraLoteRpsStr(concatena(ide, servico, tomador)) + vbCrLf + vbCrLf
txtStatus.SelStart = Len(txtStatus.Text)

Delphi:

ret := GeraLoteRps(tIde,tServico, tTomador);

Se tudo certo, receberá o retorno, conforme abaixo em destaque azul:

4 – Consulta Lote RPS

Para consultar o lote-RPS, copie a chave de retorno e acione o botão “Consulta Lote RPS” e coloque a chave copiada.

Neste momento será gerado o XML da Nota Fiscal de Serviço Eletrônica:

Exemplos em código:

C#:

asscshnfse.nfsedll nfse = new asscshnfse.nfsedll();
string tmp = nfse.WsConsultaLoteRps(txtProtRps.Text);

VB6:

Dim NFSe As asscshnfse.nfsedll
Set NFSe = New asscshnfse.nfsedll
Dim ret As String
ret = NFSe.WsRecepcaoLoteRps(arquivo)

Delphi:

Memo3.Text := WsConsultaLoteRps(nLoteProt);

5 – Imprimir

Agora basta imprimir no passo seguinte “Imprimir NFSe”. Aperte o botão que corresponde a função imprimir:

Se for bem sucedido o resultado será como o exemplo abaixo:

Exemplos em código:

C#:

asscshnfse.nfsedll nfse = new asscshnfse.nfsedll();
nfse.Imprime(txtPahtImp.Text, "c:\\teste.pdf", 3, "");

VB6:

Dialog1.Filter = "xml|*.xml"
Dialog1.ShowOpen

Dim arquivo As String
arquivo = Dialog1.FileName

Delphi:

TfrmPrincipal.btnImprimeDanfeClick(Sender: TObject);

6 – Cancelamento

Para a etapa de cancelamento, no botão “Cancelamento” e informe o número da nota informado na consulta:

Seguindo o cancelamento, após o “OK”, o software retornará uma mensagem referente a nota, por exemplo: Cancelamento homologado 2024-05-13T14:08:04

Exemplos em código:

C#:

asscshnfse.nfsedll nfse = new asscshnfse.nfsedll();
tmp = nfse.WsCancelarNfse(txtCanNProt.Text, txtCodCanc.Text);

VB6:

Dim NFSe As asscshnfse.nfsedll
Set NFSe = New asscshnfse.nfsedll

Delphi:

Memo2.Text := WsCancelarNFse(nNFse, codCancelamento);

O projeto encontra-se disponível nas linguagens Delphi, C#, VB6 e VB.Net. Ambos disponibilizamos com fontes do Aplicativo de Testes para que o desenvolvedor possa tomar como base na implementação na automação.

---

Nos procure para qualquer informação adicional em um dos canais de atendimento disponível em nosso site.

chat | helpdesk | e-mail | whatsapp

Equipe ASX COMPONENTES