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.