Digito Sistemas

Bom Dia, Já descobri obrigado. Na uses eu inclui: blcksock

Ao tentar usar o comando citado acima o Delphi me retorna a mensagem: Undeclared identifier 'LT_TLSv1_2' line ... Devo declarar alguma coisa no delphi?

Valeu erra Isso mesmo. Fiz alguma adaptações e deu certo.

Estou com um probleminha na importação de uma tabela no excel. Ela contem um quadro de horário de funcionário. Data Ent. 1 Saí. 1 Ent. 2 Saí. 2 01/04/18 - dom Folga Folga Folga Folga 02/04/18 - seg 06:00* 11:00* 12:00* 14:20* 03/04/18 - ter 06:00* 11:00* 12:00* 14:20* 04/04/18 - qua 06:00* 10:41 12:00* 14:20* 05/04/18 - qui 06:00 11:03 12:01 14:21 06/04/18 - sex 06:00 11:00 12:00 14:20 Estou fazendo assim: Dia := StrToDate(Copy(vData,1,8)); Entrada_m:= Planilha.Cells[WLinha,Coluna+1]; Saida_m := Planilha.Cells[WLinha,Coluna+2]; Entrada_t:= Planilha.Cells[WLinha,Coluna+3]; Saida_t := Planilha.Cells[WLinha,Coluna+4]; O Resultado das variáveis estão vindo assim: Ex: Entrada_m = '0,25' Saida_m = '0,500694444444444' Entrada_T = '0,46044' Saida_T = '0,597916666666667' Como Resolver para me trazer as horas corretas? Desde já agradeço.

Blz, Vou testar e posto resultado.

Bom Dia, estou com problemas na transmissão de notas. Quando consulta o status do sefaz me retorna esta mensagem: Quando minha opção da internet está marcado: SSL 3 e TSL 1.2 ERRO NFCe: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Erro Interno: 0 Erro HTTP: 12157 Erro no suporte a canais seguros - URL:https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2 No minha opções da internet está marcado assim: SSL 2 TSL 1.0 -- AS VEZES CONECTA MAS TENHO QUE TENTAR UMAS 3 VEZES ERRO NFCe: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Erro Interno: 0 Erro HTTP: 0 O sistema não pode encontrar o arquivo especificado. - URL:https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2 Me desculpe os moderadores, porque eu já havia feito a pergunta, mas em outra área do forum. (em banco de dados) Sempre digo aos meus clientes que é problema na sefaz (ontem um cliente perdeu quase 20minutos tentando). Desde já agradeço.

Bom Dia, estou com problemas na transmissão de notas. Quando consulta o status do sefaz me retorna esta mensagem: Quando minha opção da internet está marcado: SSL 3 e TSL 1.2 ERRO NFCe: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Erro Interno: 0 Erro HTTP: 12157 Erro no suporte a canais seguros - URL:https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2 No minha opções da internet está marcado assim: SSL 2 TSL 1.0 -- AS VEZES CONECTA MAS TENHO QUE TENTAR UMAS 3 VEZES ERRO NFCe: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Erro Interno: 0 Erro HTTP: 0 O sistema não pode encontrar o arquivo especificado. - URL:https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2

Bom dia! Sei que o tópico é muito antigo. Pesquisando achei este tópico, a solução para o meu problema não foi a mesma que mencionada aqui. Percebi que, no meu caso, eu não estava passando o ENDEREÇO DO TEF (o ip) adequadamente, por isso dava erro ao abrir o TEF. Resolvi responder, pq pode ser que alguém esteja com o mesmo problema. Fui...

Quando faço a primeira venda dá erro na Sefaz (mas a nota e validada), pra resolver o problema eu peço para consultar o status do serviço e funciona beleza. Mas, a primeira consulta que faço no status do serviço, também dá erro. para resolver este problema eu faço assim TaOnline := False; tentativas := 0; Repeat try if dm.NFCe.WebServices.StatusServico.Executar then TaOnline := True else Begin If Pergunta( 'Status NFCe : ' + dm.NFCe.WebServices.StatusServico.Msg + '(' + IntToStr( dm.NFCe.WebServices.StatusServico.cStat ) + ')'+#13+ 'Deu certo a verificação do status da WebServce?', 'Status WebService') Then TaOnline := True Else Tentativas:=99; End; except on E: Exception do begin Inc(Tentativas); if Tentativas > 2 then Begin If Not Pergunta( 'WebService da NFCe está off-line'#13'Vamos tentar novamente?', 'Status WebService') Then Tentativas:=99; end; end; end; until TaOnline or (Tentativas = 99); O erro que aparece na primeira consulta: Conteúdo da primeira consulta: '<?xml version="1.0" encoding="UTF-8"?><soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Header><nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><cUF>52</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></soap12:Header><soap12:Body><nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><tpAmb>2</tpAmb><cUF>52</cUF><xServ>STATUS</xServ></consStatServ></nfeDadosMsg></soap12:Body></soap12:Envelope>' Erro: 'O sistema não pode encontrar o arquivo especificado. - URL:https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2' Na Segunda tentativa geralmente dá certo. '<?xml version="1.0" encoding="UTF-8"?><soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Header><nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><cUF>52</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></soap12:Header><soap12:Body><nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><tpAmb>2</tpAmb><cUF>52</cUF><xServ>STATUS</xServ></consStatServ></nfeDadosMsg></soap12:Body></soap12:Envelope>' aURL = 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl'

Sim, mas gostaria de saber como resolver quando isso ocorrer. Porque tem outro componente que utilizo que me retorna o erro 539 Rejeição: Duplicidade de NF-e, com diferença na Chave de Acesso [99999999999999999999999999999999999999999] Assim eu consigo, pegar a diferença e gravar no meu banco de dados.

Mais uma coisinha, Como vocês estão tratando quando dá NFCe em Duplicidade?

Já ia me esquecendo. Só um detalhe que está me intrigando. Quando faço a primeira venda dá erro na Sefaz (mas a nota e validada), pra resolver o problema eu peço para consultar o status do serviço e funciona beleza. Mas, a primeira consulta que faço no status do serviço, também dá erro. para resolver este problema eu faço assim TaOnline := False; tentativas := 0; Repeat try if dm.NFCe.WebServices.StatusServico.Executar then TaOnline := True else Begin If Pergunta( 'Status NFCe : ' + dm.NFCe.WebServices.StatusServico.Msg + '(' + IntToStr( dm.NFCe.WebServices.StatusServico.cStat ) + ')'+#13+ 'Deu certo a verificação do status da WebServce?', 'Status WebService') Then TaOnline := True Else Tentativas:=99; End; except on E: Exception do begin Inc(Tentativas); if Tentativas > 2 then Begin If Not Pergunta( 'WebService da NFCe está off-line'#13'Vamos tentar novamente?', 'Status WebService') Then Tentativas:=99; end; end; end; until TaOnline or (Tentativas = 99); O erro que aparece na primeira consulta: Conteúdo da primeira consulta: '<?xml version="1.0" encoding="UTF-8"?><soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Header><nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><cUF>52</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></soap12:Header><soap12:Body><nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><tpAmb>2</tpAmb><cUF>52</cUF><xServ>STATUS</xServ></consStatServ></nfeDadosMsg></soap12:Body></soap12:Envelope>' Erro: 'O sistema não pode encontrar o arquivo especificado. - URL:https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2' Na Segunda tentativa geralmente dá certo. '<?xml version="1.0" encoding="UTF-8"?><soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Header><nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><cUF>52</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></soap12:Header><soap12:Body><nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"><consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><tpAmb>2</tpAmb><cUF>52</cUF><xServ>STATUS</xServ></consStatServ></nfeDadosMsg></soap12:Body></soap12:Envelope>' aURL = 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl'

Bom Dia, Depois de muita luta, consegui resolver meu problema. Obrigado a todos pela disponibilidade.

Obrigado pelo feedback, Não obtive o resultado esperado. Contratei um Freelancer, para deixar funcionando, e compilado no meu computador. Ele só passou os fontes. Me enrolou, enrolou até que desisti dele.

Obrigado Daniel, Mas realmente não consegui. Tentei copiar a libeay32.pas da pasta do ACBr\Fontes\ACBrOpenSSL e substituir a minha, mas também não deu. Então eu fiz igual ao que nosso amigo nildglan e deu certo. Comentei as linhas que estavam com erro.

Bom Dia, Contratei um rapaz para me ajudar no meu Frente de Caixa e ele me deixou na mão. E agora estou meio perdido. Tenho algumas dúvidas. 1) Tenho que usar o mesmo processo do cupom fiscal? (Sei que não precisa) Mas, usando o Posprinter, ACBRECF, fica me pedindo pra imprimir redução Z. 2) Havia feito, as funções AbrirCupom, RegistrarItemECF, FechaCupom e estava funcionando beleza, imprimia o DANFE no FASTReport, isso para pagamento em Dinheiro. Quando precisei usar o TEF (Venda com Cartão) ai deu pau. Tive que incluir AbrirCupom, RegistrarItemECF, FechaCupom e ai veio outro problema. Ao fechar o cupom, não estou conseguindo imprimir DANFE no FastReport Consigo fazer o preview dele, mas não sai na impressora. Quais são estes procedimentos? Quais componentes tenho que usar? 3) Estou usando atualmente o componente ACBrNFeDANFeESCPOS1, ACBrPosPrinter1, ACBrAAC1, ACBrNFeDANFEFR1, ACBrNFe1 e ACBrECF e nas propriedades do ECF: AAC = ACBrAAC1 ECFVirtual = ACBrVirtual1 Porta = \\dirceu\epson Modelo = ecfNaoFiscal Desde já agradeço.

Bom Dia, Fiz atualização do ACBr e fui fazer a instalação e está com erro na compilação do pacote ACBr_DFeComum.dpk. Já desinstalei, recompilei e não consigo resolver este problema. Estou instalando no Xe6 Copyright (c) 1983,2014 Embarcadero Technologies, Inc. C:\ACBr\trunk2\Fontes\ACBrDFe\ACBrDFeOpenSSL.pas(175) Error: E2003 Undeclared identifier: 'X509_digest' C:\ACBr\trunk2\Fontes\ACBrDFe\ACBrDFeOpenSSL.pas(301) Error: E2003 Undeclared identifier: 'X509_NAME_print_ex' C:\ACBr\trunk2\Fontes\ACBrDFe\ACBrDFeOpenSSL.pas(302) Error: E2003 Undeclared identifier: 'XN_FLAG_SEP_CPLUS_SPC' C:\ACBr\trunk2\Fontes\ACBrDFe\ACBrDFeOpenSSL.pas(302) Error: E2003 Undeclared identifier: 'XN_FLAG_SEP_MASK' C:\ACBr\trunk2\Fontes\ACBrDFe\ACBrDFeSSL.pas(2494) Fatal: F2063 Could not compile used unit 'ACBrDFeOpenSSL.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Já instalei o CAPICOM novamente: Já fiz a limpeza do ACBr usando o apagarAcbr.bat Tentei não instalando o ACBr_DFeComum.dpk ele compila, mas dá erro no meu Delphi quando vou compilar. Desde já agradeço

Boa Noite, Estou com problemas ao adicionar o componente. Só que o erro é trava meu Delphi: Mesmo eu escolhendo um Form novo ele trava.

Pessoal, Qual o procedimento que devo adotar quando uma NFe não consta na Base do Portal da Fazenda, mas no meu estado ela está lá bonitinha? As vezes isso acontece, mas com alguns dias eu consigo consultar no AN mas tenho uma nota que foi impressa no dia 01/09/2017 e foi consultar hoje 27/09 e ainda não consta. A Nota esta autorizada.

Veja como são as coisas, descobre o problema de não estar vindo o retorno em XML. Na linha: IdHTTP.Request.ContentType := 'Application/xml'; Eu deveria ter colocado tudo em minusculo: IdHTTP.Request.ContentType := 'application/xml'; Pode um trem desse? Obrigado a todos pela colaboração.

Obrigado pela ajuda gente, tô quase chegando lá: Ainda não consegui pegar o arquivo XML mas consegui tirar a mensagem de Unsupported Operation no retorno do arquivo. Consegui fazendo assim: acrescentei uma variável retorno tipo TStringTream procedure TForm1.Button1Click(Sender: TObject); Var Response: TStringStream; XArquivo : TMemoryStream; Retorno : TStringStream; begin Response := TStringStream.Create(''); Retorno := TStringStream.Create(''); XArquivo := TMemoryStream.Create; idHTTP.OnAuthorization := IdHTTPAuthorization; IdHTTP.Request.ContentType := 'Application/xml'; //Certo IdHTTP.Request.ContentEncoding := 'raw'; //Certo IdHTTP.Request.Accept := 'Application/xml'; IdHTTP.Response.CharSet := 'UTF-8'; IdHTTP.post('https://scbcertificacao.ancine.gov.br/scb/v1.0/', XArquivo, Retorno); reResp.Text := UTF8Encode(Retorno.DataString); end; Ainda preciso de retorno em xml!!!

Não deu certo. dá seguinte erro: Mais alguém?

Na resposta do Webservice tem a opção de enviar arquivo xml ou json. Optei por enviar o arquivo xml. IdHTTP.Request.ContentType := 'Application/xml'; IdHTTP.Request.ContentEncoding := 'raw'; Mas quando vem o retorno para mim, está vindo em Json Como faço para trocar para xml? Desde já agradeço. Boa Noite, ressuscitando este tópico tópico porque até hoje não consegui resolver e meu prazo termina sexta-feira. Estou enviando o meu arquivo XML. Consegui ajustar meu arquivo para transmissão. Quando envio o arquivo XML para utilizando o POSTMAN (sugerido pelo colega Carlosmarian) tenho o retorno bunitin conforme manual técnico. Veja retorno abaixo pelo postman, <?xml version="1.0" encoding="UTF8" standalone="yes"?> <statusRelatorioBilheteria> <registroANCINEExibidor>14813</registroANCINEExibidor> <registroANCINESala>5002408</registroANCINESala> <diaCinematografico>2017-03-18</diaCinematografico> <numeroProtocolo>5002408.1.18032017.013</numeroProtocolo> <statusProtocolo>A</statusProtocolo> <mensagens/> </statusRelatorioBilheteria> Quando envio pelo meu programa, e não tem nenhum erro no arquivo xml esta aparecendo a mensagem: UNSUPPORTED OPERATION. Quando dá erro no arquivo XML o retorno vem no formato jason. Pergunta: 1) Que mensagem é essa meus colegas? 2) Como faço para o retorno vir em XML? Desde já agradeço

Na resposta do Webservice tem a opção de enviar arquivo xml ou json. Optei por enviar o arquivo xml. IdHTTP.Request.ContentType := 'Application/xml'; IdHTTP.Request.ContentEncoding := 'raw'; Mas quando vem o retorno para mim, está vindo em Json Como faço para trocar para xml? Desde já agradeço.

Beleza, Eu já consegui passar a autorização. Agora não estou conseguindo pegar o retorno. Utilizei o complemento do Google Postman e nele me dá o arquivo retorno.No caso do meu codigo + xml está me devolvendo o código 422, tanto no Postman quando no meu código, Como faço para visualizar o retorno? É algum componente?Meu codigo: Var Response: TStringStream; XArquivo : TMemoryStream; begin Response := TStringStream.Create(''); XArquivo := TMemoryStream.Create; Try XArquivo.LoadFromFile('d:\sistema\arquivo.xml'); IdHTTP.Request.CustomHeaders.Clear; IdHTTP.Request.Clear; IdHTTP.ConnectTimeout := 30000; idHTTP.OnAuthorization := IdHTTPAuthorization; IdHTTP.Request.ContentType := 'Application/xml'; IdHTTP.Request.ContentEncoding := 'raw'; IdHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; IdHTTP.Request.CustomHeaders.AddValue('Authorization', 'kkkkcccccjjj99959dijjttllt86m0'); Try IdHTTP.Post('http://servidor.com.br', XArquivo, Response); reResp.Text := Response.DataString; except on E: Exception do Begin IdHTTP.Disconnect; if pos('400',E.Message) > 0 then ShowMessage('400 – Requisição ruim: A requisição não pôde ser interpretada pelo servidor em razão de erros de formato/sintaxe.') Else if pos('401',E.Message) > 0 then ShowMessage('401 – Não autorizado:'#13#13'A requisição requer autenticação por parte do cliente e as informações de'#13'autenticação não foram localizadas ou não são válidas.') Else if pos('405',E.Message) > 0 then ShowMessage('405 – Método não permitido:'#13'O método HTTP utilizado não é permitido para o recurso identificado na URL') Else if pos('422',E.Message) > 0 then ShowMessage('422 – Entidade não processável:'#13'O servidor reconhece que as informações estão na sintaxe correta, mas seu conteúdo está semanticamente incorreto.') Else if pos('11001',E.Message) > 0 then ShowMessage('11001 – Sem conexão com a Internet') Else ShowMessage(e.message); end; end; finally Response.Free(); Arquivo.Free(); end;