NFSe Cianorte - Elotech

[Zottis]

Pessoal, boa tarde.

Estou implementando a nota de Cianorte no Modelo ACBRNFSeX seguindo o exemplo do componente e

depois de apanhar a semana inteira,

cheguei neste impasse:

No Sistema, estou colocando apenas 1 serviço, sem lista

então na quantidade coloquei "1" chumbado e coloco no valor Unitário o valor total da nota.

Estou recebendo esse retorno

S10 - Valores de dedução não conferem. <- (Deduções Zeradas no sistema)
S23 - Valor total não corresponde a soma dos itens. <-  Coloquei o valor Total da Nota
E287 - País da prestação do serviço indevido <- Não sei onde seria este erro pois coloquei 1058 em todos os Lugares que tem CodigoPais
X202 - Lista de NFSe não encontrada! (ListaNfse) <- Não sei o Que é pois fiz igual ao exemplo ( with Servico.ItemServico.New do...)

 

Alguém saberia como Resolver.
 

Editado Sexta as 19:34 por Zottis

[Italo Giurizzato Junior]

Bom dia @Zottis,

Vou fazer alguns ajustes no componente e enviar para o SVN, lhe aviso quando estiver pronto.

Criada a TK-5964  para realizar os ajustes.

[Italo Giurizzato Junior]

Boa tarde @Zottis,

Fiz um ajuste nos fontes e no programa exemplo.

No que se refere a Dedução vemos no programa exemplo:

          // Informações referente a Dedução do Provedor EloTech
          DadosDeducao.TipoDeducao := tdNenhum;
          DadosDeducao.CpfCnpj := '';
          DadosDeducao.NumeroNotaFiscalReferencia := '';
          DadosDeducao.ValorTotalNotaFiscal := 0;
          DadosDeducao.PercentualADeduzir := 0;
          DadosDeducao.ValorADeduzir := 0;

No que se refere ao total da nota que não bate com a somatória dos itens vai precisar do XML para analise.

Com relação ao código do pais, por ser Brasil, experimente informar o valor zero, pois acredito que só deve ser informado se for diferente de Brasil.

Por fim o ultimo erro na verdade não é um erro e sim um aviso lhe informando que por conta do seu RPS ter sido rejeitado o webservice não retornou o XML da nota.

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

[Zottis]

Obnrigado Italo, vou atualizar e posto o resultado.

[Zottis]

Oi Italo, fiz a instalação do ACBR do zero
e coloquei o Código que mencionou no meu código.
mas só resolveu a questão do Pais que conforme orientou, coloquei como zero.
os erros agora são estes.

S10 - Valores de dedução não conferem. - 
S23 - Valor total não corresponde a soma dos itens. - 
X202 - Lista de NFSe não encontrada! (ListaNfse) - 

 

O XML está em anexo com os valores

3524092154358700015556000000000000057-rps - Copia.xml

[Italo Giurizzato Junior]

Bom dia @Zottis,

Notei que no seu XML o valor de RetidoCpp é 1.

Inclua a linha abaixo na rotina que alimenta o componente:

        Servico.Valores.RetidoCpp := snNao;

Desta forma ele vai gerar com o valor 2.

Vamos ver se isso resolve o problema.

[Zottis]

Deu Certo Italo,
Só não estou conseguindo pegar o Numero do protocolo.
Coloquei uma variável para pegar em Todos os Lugares do ChecarResposta que tem Protocolo no retorno e nenhum que passou estava setado.

 

[Italo Giurizzato Junior]

Bom dia @Zottis,

Chegou a fazer um teste com o programa exemplo?

O Numero do protocolo é obtido no retorno do Emitir.

[Zottis]

Pelo programa exemplo, não fiz, mas copiei toda a lógica do Programa exemplo para o meu sistema, senão teria que fazer duas vezes,
ou seja, coloquei igual ao Exemplo e fui alimentando com os dados do meu sistema.
ele passa pelos métodos do ChecarResposta, mas o Protocolo sempre está vazio. 

voParams := configuraComponenteNfsex(viParams);
        if noEmpty(gItem('DS_ERRO', voParams))then begin
           mensagem(gItem('DS_ERRO', voParams));
          exit;
        end;

        vDsErro := '';
        alimentarComponente(viParams);
        if vDsErro <> '' then
          begin
            Result := pItem('DS_ERRO', vDsErro + '->(NFSe.geraNfse)', Result);
            exit;
          end;

        {
           O método Emitir possui os seguintes parâmetros:
           aNumLote (String)
           aModEnvio [meAutomatico, meLoteAssincrono, meLoteSincrono, meUnitario, meTeste]
           aImprimir (Boolean) Valor Padrão = True, portanto imprime o DANFSE
        }
        NfseX.Emitir(vNrLote);

        vDsErro := '';
        ChecarResposta(tmRecepcionar); <= Aqui também é exatamente igual ao programa exemplo
        if noEmpty(vDsErro)then begin
           Result := pItem('DS_ERRO', vDsErro, Result);
          exit;
        end;

Editado Há 21 horas por Zottis

[Italo Giurizzato Junior]

Boa tarde @Zottis,

Então faça um teste usando o programa exemplo.

[Zottis]

Boa tarde.
Fiz pelo Exemplo e também não veio o Protocolo