Digito Sistemas

31 Maio, 2018

Bom Dia,

Já descobri obrigado.

Na uses eu inclui: blcksock

29 Maio, 2018

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?

26 Maio, 2018

Valeu erra Isso mesmo.

Fiz alguma adaptações e deu certo.

26 Maio, 2018

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.

24 Maio, 2018

Blz,

Vou testar e posto resultado.

24 Maio, 2018

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.

23 Maio, 2018

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

20 Janeiro, 2018

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...

4 Janeiro, 2018

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'

4 Janeiro, 2018

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.

4 Janeiro, 2018

Mais uma coisinha,

Como vocês estão tratando quando dá NFCe em Duplicidade?

2 Janeiro, 2018

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'

2 Janeiro, 2018

Bom Dia,

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

29 Dezembro, 2017

8 horas atrás, Digito Sistemas disse:

Contratei um rapaz para me ajudar no meu Frente de Caixa e ele me deixou na mão. E agora estou meio perdido.

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.

29 Dezembro, 2017

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.

29 Dezembro, 2017

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.

21 Dezembro, 2017

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

20 Dezembro, 2017

Boa Noite,

Estou com problemas ao adicionar o componente.

Só que o erro é trava meu Delphi:

Mesmo eu escolhendo um Form novo ele trava.

27 Setembro, 2017

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.

24 Março, 2017

Em 21/03/2017 at 18:53, Digito Sistemas disse:

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!!!

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.

21 Março, 2017

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!!!

20 Março, 2017

Não deu certo. dá seguinte erro:

Citar

{"tipo":"ParametroInvalido","descricao":"O tipo do argumento informado pelo usuário não corresponde ao esperado pela interface.","complemento":"O conteúdo passado deve ser no formato XML ou JSON e este tipo deve ser especificado no cabeçalho 'Content-Type'"}

Mais alguém?

20 Março, 2017

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

17 Outubro, 2016

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.

5 Outubro, 2016

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;

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Digito Sistemas

Sobre nós...

Informação Importante