-
Total de ítens
86 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por KriarTecnologia
-
-
Bom dia, obrigado por responder,
todas essas questões no link enviado já havia pesquisado,
estou procurando uma solução através do componente acbrnfe pois é ele que tem o controle,
sei que tem uma configuração a ser seguida pois em 2015 o Ítalo publicou algo a respeito para o acbrdfe:
no modo standalone funciona (intraweb) chamando e enviando a mesma requisição pelo browser,
enviei de vários servidores, pois ele envia por um servidor datasnap rest - vcl, com windows server 2012 originalíssimo e mesmo assim dá erro.
todas as outras requisições ao servidor da sefaz funciona sem problema no isapi .dll iis. Grava, assina, envia, retorna ok, perquisa do documento na sefaz e reenvio no caso de contingência.
perguntei sobre minha configuração, gostaria de um parecer de vocês.
-
boa noite senhores, estou com o seguintes retorno quanto envio um evento de cancelamento de nfc-e (acbrnfe) para o servidor da sefaz:
HTTP/1.1 400 Bad Request
Isso utilizando um servidor vcl .dll no iis
já utilizei todas essas opções:
TSSLHttpLib = (httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy);
o mesmo codigo quando executado em modo standalone funciona e cancela a nfc-e normalmente, uso a seguintes configuração:
ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400;
ACBrNFe1.SSL.SSLType := LT_TLSv1_2;
ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml;
ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200;ACBrNFe1.Configuracoes.WebServices.UF :=
qryLojas.FieldByName('sigla_estado').AsString;// Seta Versão a ser utilizada em execução
with acbrnfe1.Configuracoes do
begin
Geral.ModeloDF := moNFce;
//Geral.idCSC := '000001';
//Geral.CSC := frmlogon.qryLojas_csc.AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2';Certificados.NumeroSerie := qryLojas.FieldByName('certdigital_nserie').AsString; //NFe_CertDigitalSenha;
Certificados.Senha := qryLojas.FieldByName('certdigital_senha').AsString; //NFe_CertDigitalSerie;
Certificados.ArquivoPFX := qryLojas.FieldByName('certdigital_caminho').AsString;if length(trim(qryLojas.FieldByName('id_csc').AsString)) > 0 then
begin
Geral.idCSC :=
copy( '000000' + trim(qryLojas.FieldByName('id_csc').AsString),
length('000000' + trim(qryLojas.FieldByName('id_csc').AsString)) - 5, 6);
Geral.CSC := qryLojas.FieldByName('csc').AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2';
end;Geral.FormaEmissao := teNormal;
Geral.Salvar := True;// ACBrCTe1.Configuracoes.arquivos.PathSalvar := edtPathLogs.Text;
Geral.Salvar := True;
arquivos.PathSalvar :=
copy(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString),
1, length(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString)) - 52);
WebServices.Visualizar := false;alguém pode me dar uma dica?
-
boa tarde senhores, estou com o seguintes retorno quanto envio um evento de cancelamento de nfc-e (acbrnfe) para o servidor da sefaz:
HTTP/1.1 400 Bad Request
Isso utilizando um servidor vcl .dll no iis
já utilizei todas essas opções:
TSSLHttpLib = (httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy);
o mesmo codigo quando executado em modo standalone funciona e cancela a nfc-e normalmente, uso a seguintes configuração:
ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400;
ACBrNFe1.SSL.SSLType := LT_TLSv1_2;
ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml;
ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200;ACBrNFe1.Configuracoes.WebServices.UF :=
qryLojas.FieldByName('sigla_estado').AsString;// Seta Versão a ser utilizada em execução
with acbrnfe1.Configuracoes do
begin
Geral.ModeloDF := moNFce;
//Geral.idCSC := '000001';
//Geral.CSC := frmlogon.qryLojas_csc.AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2';Certificados.NumeroSerie := qryLojas.FieldByName('certdigital_nserie').AsString; //NFe_CertDigitalSenha;
Certificados.Senha := qryLojas.FieldByName('certdigital_senha').AsString; //NFe_CertDigitalSerie;
Certificados.ArquivoPFX := qryLojas.FieldByName('certdigital_caminho').AsString;if length(trim(qryLojas.FieldByName('id_csc').AsString)) > 0 then
begin
Geral.idCSC :=
copy( '000000' + trim(qryLojas.FieldByName('id_csc').AsString),
length('000000' + trim(qryLojas.FieldByName('id_csc').AsString)) - 5, 6);
Geral.CSC := qryLojas.FieldByName('csc').AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2';
end;Geral.FormaEmissao := teNormal;
Geral.Salvar := True;// ACBrCTe1.Configuracoes.arquivos.PathSalvar := edtPathLogs.Text;
Geral.Salvar := True;
arquivos.PathSalvar :=
copy(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString),
1, length(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString)) - 52);
WebServices.Visualizar := false;alguém pode me dar uma dica?
-
bom dia senhores!
preciso instalar o fortes resport a primeira vez e está dando erro:
me lembro que tem de entrar na pasta branches e executar lá de dentro, mas não tá dando certo.
por favor alguem pode me dar as dicas que faltam?
estou usando o delphi seattle.
desde já agradeço pela atenção.
-
Boa tarde senhores!
estou com o erro 12175 no envio da nfce e não consegui encontrar a resposta com a solução aqui no fórum.
meu código de configuração:
ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400;
ACBrNFe1.SSL.SSLType := LT_TLSv1_2;
ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml;
ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200;desde já agradeço pela atenção!
Minha configuração do ssl e tls no windows server2008 : (já tentei todo tipo de configuração)
-
Bom dia senhores:
Não estou encontrando o:
infRespTec.CNPJ := xCNPJ_RespTec;
infRespTec.xContato := xContato_RespTec; // Nome do responsável técnico
infRespTec.email := xEmail_RespTec;
infRespTec.fone := xFone_RespTec;ACBrNFe1.Configuracoes.RespTec.infRespTec.CNPJ (não existe)
ACBrNFe1.RespTec.infRespTec.CNPJ (não existe)
ACBrNFe1.infRespTec.CNPJ (não existe)
Não encontro o grupo infresptec em nenhum lugar, só consigo encontrar acbrnfe1.configuracoes.resptec
desde já agradeço pela atenção.
-
Boa tarde Senhores!
Alguém conhece e/ou participa de algum grupo de discussão de desenvolvimento intraweb?
Se alguém souber por favor me dê uma dica, estou com alguns problemas na conversão do nosso frente de caixa que usa os componentes acbr (delphi) para intraweb/servidor vcl.
sei que o local não é adequado mas o problema é o seguinte:
Estou desenvolvimento e testando minha aplicação krvarejoweb.dll em um server2008 e servidor iis com a seguinte url http://localhost/kriarserver/krvarejoweb.dll. Funcionava tudo bem quando deixou de funcionar com novas implementações gerando o seguinte erro:
Error details:
Exception message : Não é possível alterar o modo de thread depois de o mesmo estar definido
Exception class : EOleSysError
Exception address : 02079C51
Exception Time : 2018-12-05 15:47:22.335
------------------------------------------------------------------------------------------------------------------------
Application Name : krvarejoweb.dll
Application Version: 1.0.0.0
Started at : 2018-12-05 15:47:22.318
Running for :
Computer Name : WIN-KI1EG9KV3S3
Compiler Version : 320
------------------------------------------------------------------------------------------------------------------------
IntraWeb Version : 14.2.0
Multi-session : False
Content Path : C:\kriarSERVER\wwwroot\
Session count : 0
------------------------------------------------------------------------------------------------------------------------
Client IP address : ::1
Request PathInfo :
Request Method : GET
Request User Agent : Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36
Cookies Count : 0
------------------------------------------------------------------------------------------------------------------------
[Stack trace is empty]por favor alguém pode me ajudar, alguém tem alguma pista sobre o problema?Desde já agradeço pela atenção. -
Boa Tarde amigos! preciso do schema para a nfc-e 4.00 que esteja funcionando, não estou conseguindo achar, alguém pode me ajudar? Desde já agradeço.
-
Obrigado Sra Juliana, funcionou perfeitamente.
-
2
-
-
-
Bom dia! Problema resolvido, foi apenas setar o sslib (ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;):
//ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom;
ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;
//ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;-
1
-
-
-
O problema foi resolvido quando gero em .exe faço a requisição via browser e funciona ok.
mas quando gero em isapi .dll continua o mesmo problema quando faço a requisição em rede local.
o código responsável pela função consultanfe que dá o retorno mostrado na tela (imagem acima) segue abaixo:
function TServerMethods1.consultaNFe(nfe:string): string;
beginACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(trim('c:\nfe\' + nfe + '-nfe.xml'));with acbrnfe1.EventoNFe.Gerador.Opcoes do
begin
IdentarXML := False; // Os arquivos que serão enviados para o SEFAZ não devem estar identados
TamanhoIdentacao := 3; // Tamanho da identação do arquivo
FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; // Formato em que a mensagem vai ser gravada a ListaDeAlertas
RetirarEspacos := True; // Retira os espaços em branco duplos nas tag do xml
SuprimirDecimais := true; // Ignora valores não significativos nas casa decimais
SomenteValidar := False; // Não gera o arquivo apenas valida as informações
end;
// Seta Versão a ser utilizada em execução
with acbrnfe1.Configuracoes do
begin
Geral.ModeloDF := moNFe;
Geral.VersaoDF := ve400;
//ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom;
//ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;
//ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;
ACBrNFe1.Configuracoes.WebServices.UF := 'mg';//Geral.idCSC := '000001';
//Geral.CSC := frmlogon.qryLojas_csc.AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2';Certificados.NumeroSerie := '61A48A4D9E135BBB57F83B976ECB71E7'; //NFe_CertDigitalSenha;
Certificados.Senha := '123456'; //NFe_CertDigitalSerie;
Certificados.ArquivoPFX := 'c:\nfe\tmc.pfx';Geral.FormaEmissao := teNormal;
Geral.Salvar := True;// ACBrCTe1.Configuracoes.arquivos.PathSalvar := edtPathLogs.Text;
Geral.Salvar := True;
arquivos.PathSalvar := 'c:\nfe';
WebServices.Visualizar := True;
WebServices.Ambiente := taProducao;end;
try
ACBrNFe1.Consultar;
excepton E : Exception do
begin
result := 'ERRO AO CONSULTAR A NFE NA SEFAZ ' +
E.ClassName+' error raised, with message : '+E.Message;
exit;
end;end;
//qryCupom_capa_contingencia.Value := false;
result :=
' ***** Envio e Solicitação de Consulta ***** ' +
UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS) +
' ***** Retorno da Solicitação de Consulta ***** ' +
UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS) +
' ***************************************************';end;
-
Bom dia Daniel, primeiramente obrigado pela atenção. Resolvemos nosso problema copiando o componente acbrnfe de um projeto antigo que vem desde o delphi 7 e já está no seattle para esse em questão, nossas dlls capicom e openssl que estão instaladas no windows 10 são desde 2016.
O que pode ser?
-
Em 15/05/2018 at 17:15, Daniel Simoes disse:
Essa data equivale ao "0"...
Provavelmente você não carregou o Certificado
Bom dia Daniel, primeiramente obrigado pela atenção. Resolvemos nosso problema copiando o componente acbrnfe de um projeto antigo que vem desde o delphi 7 para esse em questão, nossas dlls capicom e openssl que estão instaladas no windows 10 são desde 2016.
-
Boa tarde senhores!
criei um datasnap rest gerando para isapi (.dll) e faço uma consulta de nfe através do acbrnfe:
try
ACBrNFe1.Consultar;
excepton E : Exception do
begin
result := 'ERRO AO CONSULTAR A NFE NA SEFAZ' +
E.ClassName+' error raised, with message : '+E.Message;
exit;
end;end;
Faço a consulta via browser (função consultanfe passando a chave eletrônica 31180509457187000121550010000018861104906900):
http://192.168.1.100/acbrserver/acbrserver.dll/datasnap/rest/TServerMethods1/consultanfe/31180509457187000121550010000018861104906900
Está retornando o seguinte erro:
Data de Validade do Certificado j\u00E1 expirou: 30\/12\/1899"
já testei todas as versões do openssl e não funcionou.
alguém tem alguma idéia?
-
ok, vou tentar aqui, obrigado.
-
boa noite senhores, estou tentando entrar no endereço https://github.com/fortesinformatica/fortesreport-ce mas não consigo conectar, alguem tem o instalador do fortes report para o delphi seattle?
-
Resolvido, obrigado pessoal, foi só instalar o acbr novamente.
-
boa tarde senhores, estou preenchendo o indescala dessa forma:
acbrnfe1.NotasFiscais.add.NFe.Det.add.Prod.indescala := ieNenhum;
mas dá erro de compilação.
a classe está referenciada no uses (pcnconversaonfe, pcnnfe) ok, consigo entrar nelas sem problemas.
Em que posição está essa informação nas classes do acbr?
-
Bom dia pessoal!
Vou adquirir uma impressora não fiscal e gostaria de uma sugestão.
Quais as impressoras não fiscal que eu posso usar sem problemas com o acbrnfedanfcefortes?
-
-
estou tendo esse problema 'UF não pode ser vazia' quando vou imprimir gerar o pdf (ACBrNFe1.NotasFiscais.ImprimirPDF;)
o xml e um print da tela estão anexo.
-
Juliomar, o problema está no caminho da pasta na instalação:
1-o assistente de instalação pode ser executado do desktop para baixar os pacotes (deu ok)
2-na instalação deve usar o caminho para as pastas: c:\FortesReport 5.0\branches\vcl
3-ou pode executar o frceinstal que está na pasta: c:\FortesReport 5.0\branches\vcl - ele adotará o mesmo caminho para a instalação
Valeu pela ajuda, me ajudou a chegar a essa conclusão.
Muito obrigado.
HTTP/1.1 400 Bad Request
em ACBrNFe
Postado
tudo funciona no servidor vcl-isapi-datasnep rest .dll grava, assina, envia, retorna ok, reenvia contingência retorna ok, consulta documento retorna ok, o envio de cancelamento dá erro grave, e funciona com o mesmo código em standalone.