KriarTecnologia

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.

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.

Boa tarde senhores, estou com esse probleminha quando vou gerar o boleto acbrboleo.gerarremessa(1). Alguém tem uma dica? Desde já agradeço.

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;

Desculpe Daniel, o erro agora mudou: (quando gera isapi .dll) {"result":["ERRO AO CONSULTAR A NFE NA SEFAZ EACBrDFeException error raised, with message : \r\nPFXDataToCertContextWinApi: Falha em \"PFXImportCertStore\" Erro: 80090020"]}

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; begin ACBrNFe1.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; except on 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?