Alexandre A. C. Marques

Bom dia Ítalo, Concordo com vc... poderiam seguir um único padrão, acontece a mesma coisa com os Boletos Bancários, apesar de ter o padrão CNAB, cada banco faz do seu jeito só para complicar. Eu não tenho conhecimento do código fonte do ACBRNFSe e de como fazer isso. Estou tentando ajudar colhendo os dados necessários. Se conseguir algo eu Agradeço muito, já que tem dias que o provedor SIMPLISS fica uma beleza de lento gerando o lote RPS, as vezes o retorno do processamento vem depois de 2 dias, Abraço!

Segue o Modelo de Exemplo que o Suporte SIMPLISS me enviou 4c3268766257557663326c305a584d7663326c746347787063334d7561334e35637935755a585175596e4976643256694c32686c6248426b5a584e724c3246755a5868766379396863473975644746745a573530627938794e7a67784d546c664d4335346257773d.

Ítalo, Acabei de falar com o Suporte SIMPLISS. Tem as duas formas de fazer, ou substituir ou Gerar uma nova nota sem substituir a existente pelo método Gerar (GerarNfse no caso deles). Segue o layout em anexo. Esse método está na página 47 do layout manual_webservice_nfse.pdf. Eles vão me enviar um modelo por email e te envio. manual_webservice_nfse.pdf schema_xsd.zip

Entendi... na verdade me passaram que seria uma emissão de uma nova nota por esse método e não substituição de uma existente. Vou entrar em contato com eles novamente para verificar essa informação certinho e te falo.

Bom dia Ítalo, O Pessoal do Provedor SIMPLISS disse que esse método Gerar está pronto para uso. Será que ele é possível ser desenvolvido no ACBRNFS-e?

Boa tarde Ítalo! Fiz um teste aqui usando o Método Gerar tanto pelo Demo e pelo meu Sistema aqui e deu a mensagem em anexo. Segue o arquivo xml também, não gerou nada nele, e na mensagem que aparenta ser ele que está fora da estrutura. 1-ger-nfse.xml

Bom dia Ítalo! Vou fazer uma atualização aqui do ACBRNFSe, verificar o método Gerar e te falo.

Bom dia Ítalo! Já faz um tempo que não nos falamos, mas tem alguma novidade sobre o Método Gerarnfse no Provedor SIMPLISS? É que por esses dias alguns clientes meus aqui pararam de usar o ACBRNFS-e por conta de estar demorando muito para gerar a nota pelo Arquivo RPS. Alexandre.

Ok, Fico no Aguardo!

Bom dia Ítalo! Já está pronto ou tem alguma previsão sobre o Método Gerarnfse no SIMPLISS? Alexandre.

Boa tarde Italo! Alguma novidade sobre a implementação do método Gerar para o provedor SIMPLISS? Alexandre.

ok... Fico no Aguardo. Muito Obrigado!!!

Bom dia Italo! É uma satisfação ajudar. Sobre o arquivo que está fora da estrutura na hora de "Gerar e Enviar um RPS" pelo ACBRNFSe com a função "ACBrNFSe1.Gerar(StrToInt(vNumRPS));" onde a estrutura correta que o suporte SIMPLISS me enviou é: GerarNfse.xml, também já foi corrigido e já está no SVN? Alexandre.

Boa Noite Italo! Já foi enviado, segue novo anexo. Att., Alexandre. SimplISS.INI

ok... fico no aguardo da correção da geração do arquivo com a estrutura correta pelo metodo Gerarnfse no ACBRNFSe para poder testar e gerar a nota no SIMPLISS.

Não sei como enciar para o SVN, estou enviando por aqui. Segue o arquivo SimplISS.INI e o link do Web Service do SIMPLISS para ver todos os metodos existente http://issprudente.sp.gov.br/ws_nfse/nfseservice.svc?wsdl

Boa tarde! O Método Gerarnfse no SIMPLISS está disponível porém ao tentar usá-lo no ACBRNFSe diz que está fora da estrutura. Entrei em contato com o suporte SIMPLISS e realmente a estrutura é outra, me disseram que para esse método o arquivo é esse: GerarNfse.xml. Para poder ter esse retorno de mensagem fiz alterações no arquivo SimplISS.INI, segue em negrito as alterações abaixo: [SoapAction] Recepcionar=http://www.sistema.com.br/Sistema.Ws.Nfse/INfseService/RecepcionarLoteRps ConsSit=http://www.sistema.com.br/Sistema.Ws.Nfse/INfseService/ConsultarSituacaoLoteRps ConsLote=http://www.sistema.com.br/Sistema.Ws.Nfse/INfseService/ConsultarLoteRps ConsNFSeRps=http://www.sistema.com.br/Sistema.Ws.Nfse/INfseService/ConsultarNfsePorRps ConsNFSe=http://www.sistema.com.br/Sistema.Ws.Nfse/INfseService/ConsultarNfse Cancelar=http://www.sistema.com.br/Sistema.Ws.Nfse/INfseService/CancelarNfse Gerar=http://www.sistema.com.br/Sistema.Ws.Nfse/INfseService/GerarNfse RecSincrono= Substituir= [Gerar] IncluiEncodingCab=0 IncluiEncodingDados=0 Texto1=<?xml version="1.0" encoding="UTF-8"?> Texto2=<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> Texto3=<s:Body> Texto4=<GerarNfse xmlns="http://www.sistema.com.br/Sistema.Ws.Nfse"> Texto5=%DadosMsg% Texto6=<pParam>%SenhaMsg%</pParam> Texto7=</GerarNfse> Texto8=</s:Body> Texto9=</s:Envelope> Att., Alexandre.

Compreendido, Obrigado Daniel !

Regys, consegui compreender o que está acontecendo. Como havia dito está cancelando normalmente. Não sei se vc já percebeu isso ao executar pelo Delphi, mas o problema que eu estava encontrando que as vezes pode ser algo ajustável é que executando pelo Delphi, ao chamar a função "ACBrSAT1.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text );" estava aparecendo essas mensagens que aparentemente são de erros que informei no último post, achando que era algum tipo de problema, com isso eu clicava no F9 umas 4 vezes para poder sair dessas mensagens por isso não passava mais pelas outras linhas de comando no debug. Grato pela atenção.

aqui eu envio o cancelamento já com o xml de cancelamento gerado enviando cancelamento1.bmp nisso ele efetua a função normalmente "ACBrSAT1.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text );" note que eu fiz até uma alteração pra ver se com o try ele também passa pelo restante do código, mas nem assim ele passa. enviando cancelamento2.bmp logo após ao executar essa função ocorre essas mensagem (só quando esta debugando). Que sempre ocorreu mesmo antes da atualização. por fim sem passar pelo restante do código ele para aqui. depois disso ele não passa pelo restante do código. O interessante que ele só para pelo "showmessage" depois me dando o codigo de retorno.

Obrigado pela atenção Régys. é que ao chegar nesse comando "f_datamodule.ACBrSAT.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text );" ele sai fora da procedure não passando pelo restante do código, ou seja, já não segue a sequencia que é if f_datamodule.ACBrSAT.Resposta.codigoDeRetorno = 7000 then begin.......... e essa parte não tem "try", com isso não consigo nem obter a resposta, e antes da atualização do trunk2 que efetuei semana passada e ontém estava normal. Aparentemente por eu não ter mexido no meu delphi XE e apenas ter atualizado o trunk2, imagino que teve alguma alteração no ACBrSAT que está fazendo isso. espero que consiga compreender. segue parte do código abaixo: f_datamodule.ACBrSAT.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text ); if f_datamodule.ACBrSAT.Resposta.codigoDeRetorno = 7000 then begin try F_DataModule.IBT_CMSIS.InTransaction; Q_Auxiliar.Close; Q_Auxiliar.SQL.Clear; Q_Auxiliar.SQL.Add('update vendas set'+ ' ven_nomearqcfesatcanc =:ven_nomearqcfesatcanc, ven_caminhoarqxmlcanc =:ven_caminhoarqxmlcanc,'+ ' ven_geradaenviada =:ven_geradaenviada'+ ' where ven_nomearqcfesatenv =:ven_nomearqcfesatenv'); Q_Auxiliar.ParamByName('ven_nomearqcfesatenv').Text:= ultvendacfe; Q_Auxiliar.ParamByName('ven_nomearqcfesatcanc').Text:= f_datamodule.ACBrSAT.CFeCanc.infCFe.ID; Q_Auxiliar.ParamByName('ven_caminhoarqxmlcanc').Text:= f_datamodule.ACBrSAT.cfe.NomeArquivo; //f_datamodule.ACBrSAT.ConfigArquivos.PastaCFeCancelamento; Q_Auxiliar.ParamByName('ven_geradaenviada').Text:= 'C'; Q_Auxiliar.ExecSQL; F_DataModule.IBT_CMSIS.CommitRetaining; Application.MessageBox('Cancelamento Efetuado!!!','OK',mb_Ok+MB_ICONINFORMATION+MB_SYSTEMMODAL); b_retorna.SetFocus; except on Exc: Exception do begin F_DataModule.IBT_CMSIS.RollbackRetaining; Screen.Cursor:=crArrow; str:= 'Cód. Retorno: '+inttostr(f_datamodule.ACBrSAT.Resposta.codigoDeRetorno)+', '+MensagemCodigoRetorno(f_datamodule.ACBrSAT.Resposta.codigoDeRetorno); str:= str+'. Por Medidas de Segurança não foi Efetuada a Gravação. Venda Cancelada mas não Gravados na Banco de Dados. Por Favor entrar em Contato com o Suporte URGENTE!!!'; Application.MessageBox(pwidechar(str+#13+' Erro: '+exc.message),'ERRO',MB_OK+MB_ICONERROR+MB_SYSTEMMODAL); exit; end; end;

aparentemente está correto o cancelamento até mesmo no log do ACBrSAT, efetuando o cancelamento tanto usando o emulador quanto o modem SAT do Cliente com o exemplo do ACBrSAT. o detalhe que mudou depois da atualização do trunk2 é que debugando ao chegar no comando "ACBrSAT1.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text );" ele mesmo dentro de um try não passa pelo restante(except) das linhas de comandos pulando direto para o final(end;) da Procedure. Fazendo com que eu não consiga gravar o cancelamento no meu banco de dados. Efetuando um debug no envio do cancelamento da pra verificar o que ocorre acima. A não ser que seja algo no meu Delphi, mas funcionava normal antes da atualização do trunk2. Segue o Log do emulador SAT e o log do ACBrSAT. SAT.LOG ACBrSAT.log

no exemplo do ACBRSAT ao clicar para enviar o cancelamento (já com o xml do cancelamento carregado) ele chega até a funcão "ACBrSAT1.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text );", nessa função ele gera o cancelamento, porém ocorre alguma inconsistência ou erro causando a finalização do envio do cancelamento, não passando pelo restante dessa procedure, ou seja, mesmo debugando não chega a passar por aqui "if ACBrSAT1.Resposta.codigoDeRetorno = 7000 then begin LoadXML( ACBrSAT1.CFeCanc.AsXMLString, mRecebido ); PageControl1.ActivePage := tsRecebido; end;" que fica logo após. Detalhe, antes de atualizar o trunk2, funcionava normalmente.

Boa tarde! O Cancelamento do SAT no próprio exemplo do ACBR no trunk2 antes de eu Atualiza-lo funcionava corretamente. Agora está com um erro, porém cancela normalmente. Fiz uma alteração para poder cancelar sem problemas. Segue exemplo alterado: PageControl1.ActivePage := tsLog; if mCancelamentoEnviar.Lines.Count < 1 then begin ACBrSAT1.CancelarUltimaVenda; mCancelamentoEnviar.Lines.Text := ACBrSAT1.CFeCanc.GerarXML(True); end else begin if edChaveCancelamento.Text = '' then begin ACBrSAT1.CFeCanc.AsXMLString := mCancelamentoEnviar.Lines.Text; edChaveCancelamento.Text := ACBrSAT1.CFeCanc.infCFe.chCanc; end; aqui coloquei um try com finally para poder obter a resposta, pois ao dar o erro na função "cancelaultimavenda" ele nao passa nem pelo except do try nao passando pela função try ACBrSAT1.CancelarUltimaVenda( edChaveCancelamento.Text, mCancelamentoEnviar.Lines.Text ); finally showmessage(inttostr(ACBrSAT1.Resposta.codigoDeRetorno)); if ACBrSAT1.Resposta.codigoDeRetorno = 7000 then begin LoadXML( ACBrSAT1.CFeCanc.AsXMLString, mRecebido ); PageControl1.ActivePage := tsRecebido; end; end; end ; if ACBrSAT1.Resposta.codigoDeRetorno = 7000 then begin LoadXML( ACBrSAT1.CFeCanc.AsXMLString, mRecebido ); PageControl1.ActivePage := tsRecebido; end; Att., Alexandre.

Bom dia Murilox1! Tem que executar como administrador para funcionar. Abre o Delphi como Administrador ou executa o executavel como administrador. Espero ter ajudado. Abraço!