composoft

@Daniel Simoes Token registro de terminal ULTIMA etapa na homologação do sitef, estou colocando o valor que estão me pedindo porem so dá "token inválido" tem alguma ideia vou te manda as imagens. Com fundo preto como o componente envia, fundo claro como era pra ir. Seq 18 da homologação registrar uma tls

@Daniel Simoes Ignore a ultima mensagem a opção "Confirmar Transação Automaticamente" estava desmarcada só isso . Resolvido!!!!!

@Daniel Simoes Depois de trocar as pastas funcionou!! Porem na hora da homologação não sei o que mudou mas todas minhas vendas TEF são executadas mas no relatório do Sitef sai Pendente e depois Cancelada/PDV, usei o Demo do ACBRApi e finalizou corretamente. sabe me dizer se teve alguma mudança que pode me ajudar nisso?

Exclui a pasta Acbr e fiz uma nova instalação vou testar agora, uma outra duvida o arquivo gerado pelo acbr tef em questão que mostra o parâmetro 4 consigo fazer um teste e analisar o arquivo, porque quando abro com bloco de notas ele vem criptografado parece. O arquivo em questão é o DMP que fica na pasta c:/Sitef Em tempo.... Já vi que não da pra ler o arquivo, só me resta testar enviar para o Sitef e aguardar resposta, amanha atualizo o tópico.

@Daniel Simoes Sem sucesso continua aparecendo a opção, pelo que entendi eles so querem que eu tire essa opção '4' onde na imagem acima aparece o cnpj da ACBR, tem como não aparecer ela? seria alguma tag que preenchi? não achei nada no demo.

Eu fiz antes de enviar. Mas vou fazer de novo e vou reinstalar o acbr.

Daniel estou não. Mas eu vi todos os vídeos tentei estudar o máximo possível. Mas tem algumas coisas que ainda não domino. Eles me responderam aqui vou colocar abaixo. “*Eider Júnior*: Veio dessa forma, tem esse =4= que está vindo, é para enviar somente o =1= e =2= e está vindo também um colchete adicional no final.”

Fiz a atualização e encaminhei para o Sitef agorinha, só esperando a resposta deles. Só aguardando!

Boa tarde a todos estou homologando o tefApi no Sitef e me pediram essa alteração: Exemplo na imagem abaixo eles corrigiram em vermelho, como altero isso? Ou é alguma configuração que eu não fiz?

Boa tarde voce baixou o certificado direto da conta da gerencianet? Verifique se o caminho dele fica correto no edit, pelo que vi esta em uma unidade "x:".

Resolvido era apenas isso! Muito obrigado.

O demo funciona legal, clientid, secretid tudo certo, mas como agora tem um campo partner-token eu nao consigo achar onde colocar ja tentei varios lugares. não achei essa procedure quandotransmitirhttp procurei na fonte do acbrpix em todos os .pas. Achei essa propriedade no AcbrPixCD : property QuandoTransmitirHttp: TACBrQuandoTransmitirHttp read fQuandoTransmitirHttp write fQuandoTransmitirHttp; mas não achei o momento que ela é usada, ctrl + click nada acontece; Ja olhei no demo onde é atribuido o clientid mas quem esta apanhando sou eu... Desculpa a insistencia.

Sim eu vi mas nao tem um campo "partner-token" estou procurando dentro do fonte do acbr mas não achei.

A tag em questão é um header, partner-token. Só que nao achei em lugar nenhum na fonte do acbr.

Ola a todos, fiz uma parceria com a Gerencianet e para identificar o sistema ele geram um tokem, so que no ACBR não ha esse lugar pra configurar, como colocar ele dentro do componente?

Sim ja fiz isso ele omiti a informacão "lote processado", "lote recebido" mas a informação "Autorizado o uso da NF-e" continua aparecendo.

Alguem sabe como "omitir" ou não aparecer a mensagem de NFE ou Nfce autorizada, depois que ela é autorizada, pra evitar que o cliente dê esse ultimo "enter" para terminar.

Boa noite pessoal, estive investigando no google mas é muito pobre de material sobre SNGPC estou com o problema do membro renan acima diz que meu arquivo contem caracteres inválidos, já tentei de tudo e o incrível é que se eu upar pelo site da anvisa funciona ok, testei o código do jair molina acima e deu o mesmo erro vou anexar o xml e o zip além de postar o código que estou usando se alguém tiver uma luz eu agradeço demais. procedure TfrmSNGPC2.btnEnviarClick(Sender: TObject); var arr : TByteDynArray; xml : TXMLDocument; msg : IXMLMensagemSNGPCType; ws : sngpcSoap; HashIdentificacao : String; Retorno : String; Stream : TStringStream; afile: file of byte; buffer: TByteArr; // array of byte; i: Integer; Arq : TFileStream; aArray : TByteDynArray; x : string; teste : AnsiString; begin if MessageDlg('Deseja Enviar Arquivo ['+Arquivo+'] Para SNGPC ?', mtWarning, [mbYes, mbNo], 0) <> mrYes then abort; // xml := TXmlDocument.Create(nil); xml.Active := False; xml.FileName := ''; // // Transmissao do Arquivo para Anvisa // if rgMetodo.ItemIndex = 0 then begin ArquivoZip := ChangeFileExt(Arquivo,'.ZIP'); AbZipper1.FileName := ArquivoZip; AbZipper1.AddFiles(Arquivo,0); AbZipper1.Save; AbZipper1.CloseArchive; // AssignFile(afile, ArquivoZip); Reset(afile); SetLength(buffer, FileSize(afile)); For i := 1 to FileSize(afile) do Read(afile, buffer[i - 1]); CloseFile(afile); end; // // // if rgMetodo.ItemIndex = 1 then begin tsqZip1.ZipFileName := ChangeFileExt(Arquivo,'.ZIP'); tsqZip1.FilesToZip.Add(Arquivo); tsqZip1.Execute; end; // xml.LoadFromFile(Arquivo); // if cbhomologacao.Checked then begin HTTPRIO1.URL := 'http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx'; HTTPRIO1.WSDLLocation := 'http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx?wsdl'; end else begin HTTPRIO1.URL := 'http://sngpc.anvisa.gov.br/webservice/sngpc.asmx'; HTTPRIO1.WSDLLocation := 'http://sngpc.anvisa.gov.br/webservice/sngpc.asmx?wsdl'; end; HTTPRIO1.Service := 'sngpc'; HTTPRIO1.Port := 'sngpcSoap'; // ws := HTTPRIO1 as sngpcSoap; // Retorno := ws.ValidarUsuario(cxDBTextEdit1.Text, cxDBTextEdit2.Text); Memo1.Lines.Add('Validação: '+retorno); // if Retorno = 'Ok' then begin // HashIdentificacao:= MD5Print(MD5String(xml.XML.text)); // Memo1.Lines.Add(DateTimeToStr(now)); Memo1.Lines.Add('===Envio==='); memo1.lines.Add('Hash: '+HashIdentificacao); memo1.Lines.Add('Arquivo: '+ArquivoZip); // // showmessage(xml.XML.Text); // if rgMetodo.ItemIndex = 0 then Retorno := ws.EnviaArquivoSNGPC(cxDBTextEdit1.Text, cxDBTextEdit2.Text, CopyByteArray(buffer), HashIdentificacao); if rgMetodo.ItemIndex = 1 then Retorno := ws.EnviaArquivoSNGPC(cxDBTextEdit1.Text, cxDBTextEdit2.Text, FIleToByteArray(ArquivoZip), HashIdentificacao); Memo1.Lines.Add('Envio: '+retorno); // // 1234567890123456789012345678 // if copy(Retorno,1,28) = 'Arquivo recebido com sucesso' then Memo1.Lines.Add('Arquivo '+ArquivoZip+' Enviado Com Sucesso') else Memo1.Lines.Add('Falha no Envio do Arquivo '+ArquivoZip); // end else begin Memo1.Lines.Add('Falha no Envio do Arquivo '+Arquivo); end; // Memo1.Lines.Add(''); // Arquivo := ''; edtArquivo.Text := Arquivo; // Fim da Rotina de Transmicao end; SNGPCInventario10062013.XML SNGPCInventario10062013.ZIP SNGPCInventario10062013.XML SNGPCInventario10062013.ZIP