Pesquisar na Comunidade

Bom dia, Tenho um módulo no sistema Distribuição DFe, temos a versão Desktop e a versão Unigui. Temos uma procedure que pega o certificado digital e grava o mesmo em uma tabela do banco de dados, no desktop não temos problemas. Ocorre que no UNIGUI ao tentar ler o certificado para salvar no banco de dados o erro acontece: Obs: Na maquina de desenvolvimento o erro não acontece, somente acontece no servidor após publicar o módulo. a procedure: TRY MS := TMemoryStream.Create; MS.CopyFrom(AStream, AStream.Size); MS.SaveToFile(UniServerModule.LocalCachePath + 'cert.pfx'); ACBrNFe1.SSL.SSLCryptLib := cryWinCrypt; ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := UniServerModule.LocalCachePath + 'cert.pfx'; ACBrNFe1.Configuracoes.Certificados.Senha := vSenhaCertificado; ACBrNFe1.SSL.CarregarCertificado; IF (ACBrNFe1.SSL.CertificadoLido) THEN BEGIN edCertificado.Text:= ACBrNFe1.SSL.DadosCertificado.NumeroSerie; edSenha.Text := vSenhaCertificado; try FDQuery:= TFDQuery.Create(Self); FDQuery.Connection:= DtmDistribuicaoDFe.FDConnection1; FDQuery.SQL.Text:= 'UPDATE OR INSERT INTO CERTIFICADOS_DFE (EMPRESA, CERT_ARQUIVO, CERT_ID, '+ 'CERT_CERTIFICADORA, CERT_VENCIMENTO, CERT_SERIAL, CERT_RAZAOSOCIAL, CERT_CNPJ, CERT_SENHA) '+ 'VALUES (:EMPRESA, :CERT_ARQUIVO, :CERT_ID, :CERT_CERTIFICADORA, :CERT_VENCIMENTO, :CERT_SERIAL, '+ ':CERT_RAZAOSOCIAL, :CERT_CNPJ, :CERT_SENHA )'; FDQuery.ParamByName('EMPRESA').AsString:= vIDEmpresa; FDQuery.ParamByName('CERT_ARQUIVO').LoadFromFile(UniServerModule.LocalCachePath + 'cert.pfx', ftblob ); FDQuery.ParamByName('CERT_ID').AsString := ACBrNFe1.SSL.DadosCertificado.ThumbPrint; FDQuery.ParamByName('CERT_CERTIFICADORA').AsString := ACBrNFe1.SSL.DadosCertificado.Certificadora; FDQuery.ParamByName('CERT_VENCIMENTO').AsDateTime := ACBrNFe1.SSL.DadosCertificado.DataVenc; FDQuery.ParamByName('CERT_SERIAL').AsString := ACBrNFe1.SSL.DadosCertificado.NumeroSerie; FDQuery.ParamByName('CERT_RAZAOSOCIAL').AsString := ACBrNFe1.SSL.DadosCertificado.RazaoSocial; FDQuery.ParamByName('CERT_CNPJ').AsString := FormatarCNPJ(ACBrNFe1.SSL.DadosCertificado.CNPJ); FDQuery.ParamByName('CERT_SENHA').AsString := dm.Crip.TextToCriptoHex(vSenhaCertificado); FDQuery.ExecSQL; finally FDQuery.Free; end; END ELSE uniMENSAGEM('Arquivo do certificado está inválido ou a senha não está correta, tente novamente.', mtError); FINALLY MS.Free; END; Alguém já passou por isso, alguma dica? Agradeço!!

Boa tarde, Desenvolvi um módulo de Distribuição DFe no Unigui, porém, existe uma rotina onde eu carrego o xml após baixado para o componente ACBrNFe. Até nesse momento sem problemas, ocorre que, ao executar o comando ACBrNFe1.NotasFiscais.ImprimirPDF, onde o mesmo salva o PDF na pasta cache do usuário logado no sistema o erro abaixo ocorre: Operation not supported on selected printer. Obs: Esse cenário é após eu publicar a aplicação no IIS, se eu executar na maquina de desenvolvimento (F9 Delphi) o erro não ocorre. Alguém ja passou por algo parecido?

Olá pessoal Estou desenvolvendo um sistema com Unigui e gostaria de saber se é possível utlizar os componentes do ACBr para emissão de NFCe, SAT etc... Ou vou ter que usar o ACBrMonitorplus? Obrigado

Somos uma Software House que trabalhamos a mais de um ano com o Framework UniGui com um vasto conhecimento sobre a plataforma e suas funcionalidades, para sistemas ERP.

Boa noite, Amigos, estou desenvolvendo um projeto XE8 + FrameWork UniGUI, esta tem a opção de ser copilada StandAlone e ISAPI, Neste projeto tem que emitir boleto bancário, já fiz as implementações, Copilando como StandAlane .exe gera os boletos legal, remessa tudo. Mais ao copilar para ISAPI. ao tentar chamar GerarHTML ou GerarPDF leva este erro: there is no default printer currently selected Preciso muito que seja copilado em ISAPI .dll pois a velocidade neste modo é incrível pois uso com Apache. Tive este mesmo erro usando o RDPrint, mais contornei ele implementando as seguinte linhas: try PrintersTXT := TStringList.Create; PrintersTXT.SaveToFile(PastalLocal + 'Printers.txt'); Impressora.PortaComunicacao := PastalLocal + 'Printers.txt'; Impressora.SetPrinterbyPorta(PastalLocal + 'Printers.txt'); Impressora.SetPrinterbyName('Generic / Text Only'); finally FreeAndNil(PrintersTXT); end; Acima eu usei uma propriedade do componente RDPrint SetPrinterbyPorta Para jogar um arquivo .txt que está no servidor, também setei uma impressora que está no servidor. Assim conseguir emular uma portar e impressora... Mais com o FortesReport não consegui... Como se trata de algo na web, tudo deve ser gerado HTML e ou PDF. Se alguém tiver uma dica, será bem vindo...

Pessoal, boa tarde Estou implementando a rotina de boleto Fortes e ele gera certinho. O problema é que so gera uma única vez. Mesmo clicando no botão de gerar novamente, o mesmo nao abre. Mesmo fechando o Navegador e abrindo novamente nao funciona. Apenas reiniciando o Aplicativo. Alguma Sugestao?