Painel de líderes
Conteúdo popular
Showing content with the highest reputation on 28-08-2015 em todas as áreas
-
Obrigado Amarildo... já enviei para o SVN, (com pequenas modificações)2 pontos
-
Deixa eu ver se compreendi... Além de lhe prover milhares de linhas de código gratuitamente... você espera que os "caras do ACBr" fiquem aqui a sua disposição para responder rapidamente quando você pergunta ?? É essa a sua visão de Open Source ?? Quantos usuários deste fórum você já respondeu ?? Você tem o habito de entrar no fórum e verificar se algum usuário está precisando de ajuda ?? Provavelmente você irá me responder que não faz isso, pois tem muito trabalho a fazer... pois é todos nós temos MUITO trabalho a fazer... e o ACBrSAC para nós, é trabalho ...2 pontos
-
Obrigado Amarildo vou fazer um teste!1 ponto
-
Boa tarde! Lendo uma de suas respostas em outro post eu entendi que deveria usar o ApagarACBr.bat, então fiz isso, depois criei outra pasta ACBr na raiz da unidade C:\, fiz a atualização e executei o ACBRInstall. Instalou com sucesso, depois eu acrescentei o ACBrTCP e consegui usar o ACBrCEP. Muito obrigado, valeu mesmo. Julio.1 ponto
-
Obrigado pelo esclarecimento. Esse fechamento, como disse no nosso caso, é porque a versão estava levando algumas units VCL, mas o exemplo não foi o caso da ACBr, e sim uma unit que veio de outro projeto, ai nossa unit scope era em Tools Options, ai acabou acontecendo isso. Bom ficou tudo claro, acho que da até para fechar o tópico.1 ponto
-
Exato. Mas lembre-se não estou dizendo que isso irá resolver o problema reportado por você de fechamento inesperado do form, pois se não resolver o problema pode ser outro.1 ponto
-
Postei algumas alterações no código do RAVE... aqui usamos XE8 e XE6 com Trunk2. Nós não usamos as BPL do RAVE, compilamos direto com o código fonte do RAVE. Esta funcionando OK.1 ponto
-
procedure TACBrECFVirtualBufferClass.LinhaRelatorioGerencial(Linha: AnsiString; IndiceBMP: Integer); begin inherited; Imprimir( AjustaLinhaColunas(Linha) ); end; procedure TACBrECFVirtualBufferClass.LinhaCupomVinculado(Linha: AnsiString); begin inherited; // Amarildo Lacerda... estava duplicando a impressao //LinhaRelatorioGerencial( Linha, 0 ); end; ACBrECFVirtualBuffer.pas1 ponto
-
nova instalacao... nao tinha o componente instalado ainda Juliomar... vou seguir seu conselho e tentar fazer uma nova instalacao1 ponto
-
Valeu amigo, deu certo! Tive que fazer uns ajustes para ficar do jeito que eu queria. Vou documentar aqui no forum a solução completa, caso alguém um dia precise. Adicionei essa procedure: procedure TfrmTelaPDV.LoadDocFromString(ABrowser: TWebBrowser; const HTMLString: WideString); var v: OleVariant; HTMLDocument: IHTMLDocument2; begin if not Assigned(ABrowser.Document) then begin ABrowser.Navigate('about:blank'); while ABrowser.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; end; HTMLDocument := ABrowser.Document as IHTMLDocument2; v := VarArrayCreate([0, 0], varVariant); v[0] := HTMLString; HTMLDocument.Write(PSafeArray(TVarData(v).VArray)); HTMLDocument.Close; end; Adicionei essa function: function TfrmTelaPDV.ColorToHTML(const Color: TColor): string; var ColorRGB: Integer; begin ColorRGB := ColorToRGB(Color); Result := Format('#%0.2X%0.2X%0.2X', [GetRValue(ColorRGB), GetGValue(ColorRGB), GetBValue(ColorRGB)]); end; Criei essa outra function para converter cores em RGB. function TfrmTelaPDV.HexToTColor(sColor : string) : TColor; begin Result := RGB( StrToInt('$'+Copy(sColor, 1, 2)), StrToInt('$'+Copy(sColor, 3, 2)), StrToInt('$'+Copy(sColor, 5, 2))) ; end; Na procedure WB_LoadHTML eu concatenei o HTMLCode com um código CSS que aplica uma determinada cor, retira as bordas e as barras de rolagem. procedure TfrmTelaPDV.WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string); var sl: TStringList; ms: TMemoryStream; begin WebBrowser.Navigate('about:blank'); LoadDocFromString(wbBobina, Format('<body style="background-color:%s; scrollbar-base-color:%s; overflow:hidden; border-style: none; "/>', [ColorToHTML(HexToTColor('ffffc8')), ColorToHTML(HexToTColor('ffffc8'))])); while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(WebBrowser.Document) then begin sl := TStringList.Create; try ms := TMemoryStream.Create; try sl.Text := HTMLCode + '<body style="background-color:#ffffc8; scrollbar-base-color:%s; overflow:hidden; border-style: none; "/>'; sl.SaveToStream(ms); ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)); finally ms.Free; end; finally sl.Free; end; end; end; No evento FormActive do formulário realizei a chamada da função da seguinte forma: LoadDocFromString(wbBobina, Format('<body style="background-color:%s; scrollbar-base-color:%s; overflow:hidden; border-style: none; "/>', [ColorToHTML(HexToTColor('ffffc8')), ColorToHTML(HexToTColor('ffffc8'))])); Ficou Show de bola. O resultado final: Onde que marca como RESOLVIDO?1 ponto
-
Oi Fábio... que legal saber que você mora em Tatuí... Se você puder me visitar... Será um prazer recebê-lo aqui na DJSystem... Eu agradeço se puder ficar uns dias com a Impressora... assim eu rodo uma bateria de testes1 ponto
-
Bom dia Pessoal! A Bahia System, trabalha com homologações de PAFECF e TEF. Ontem, realizamos mais uma homologação PafEcf com a ER 02.03 usando o Trunk 2. Tivemos alguns problemas e corrigimos durante a homologação. Porém, atualizamos hoje o trunk 2 e verificamos que os colegas já corrigiram. Só ficou o Requisito VII, item 22 - INFORMAÇÕES DE VENDAS IDENTIFICADAS PELO CPF/CNPJ, no Registro Z3. Segue a unit ACBrPAF_Z_Class.pas anexada. Parabéns a todo o projeto! Já são dezenas de homologações PAFECF realizadas pela nossa empresa com diversos softwares e todas com sucesso! Obrigado a todos! FC Bahia System ACBrPAF_Z_Class.pas1 ponto
-
Obrigado pela correção... Já está no SVN...1 ponto
-
28/0/2015. Agradeço a todos os interessados na ajuda. Mesmo com pouco conhecimento, mas com a ajuda dos tópicos no Forum, consegui migrar. Deixo aqui meus agradecimentos a todos os membros, desenvolvedores, fundadores pelo excelente trabalho e partilha do conhecimento.1 ponto
-
Não, projetos seus VCL, NÃO basta adicionar a Conditional FMX e compilar e pronto. Projeto Firemonkey devem ser criados do zero (ou converter prj VCL) e ao adicionar os componentes do ACBr esse projeto Firemonkey deve ter na conditional a sigla "FMX", para que os fontes ACBr sejam compilados para essa plataforma.1 ponto
-
FireMonkey é ObjectPascal... então provavelmente 95% é igual... O ACBr é composto em sua maioria por componentes não visuais... então não há muito o que mudar... Você é um dos pioneiros... Teste, notifique os resultados e ajude na compatibilização...1 ponto
-
Obrigado pela correção, já está no SVN...1 ponto
-
Obrigado pela contribuição... vou analisar os fontes... Onde posso encontrar o manual dessa impressora ? Ela possui vários tipos de comandos compatíveis (EscPos, EscDiebold, etc) ? Se SIM, qual você implementou ? Todos os comandos existentes no TACBrPosPrinter estão funcionando ? A leitura de Status e informação da impressora está funcionando ?1 ponto
-
Boa Noite! Gostaríamos de auxiliar no entendimento do que ocorreu neste CF-e. O conteúdo que o SAT envia para o Aplicativo Comercial (cópia de segurança) é o mesmo que foi enviado para o servidor da Secretaria da Fazenda. O contribuinte poderá fazer o download deste arquivo XML para verificarmos se está igual. Se tiver o conteúdo em base64 podemos analisar juntos. Envie-nos por e-mail para [email protected].1 ponto
-
está funcionando sim só tem que configurar o Componente ACBrPosPrinter Propriedade ColunasFonteNormal, com 42 Basta ver o ajuste no cabeçalho dos itens pois ele ainda está ultrapassando uma linha segue as imagens para ver como imprime https://uploaddeimagens.com.br/imagens/img_20150827_180850274-jpg comparativo https://uploaddeimagens.com.br/imagens/img_20150827_181738165-jpg tm-t81 configurada as colunas1 ponto
-
Fiz os ajustes necessários para solucionar isso, nos fontes que você me enviou, pois estava fora do padrão criado por mim para não atingir nada em VCL. Todas os ajustes que fiz para FMX, sempre viso todas as plataformas suportadas pelo ACBr, e sempre as plataformas já existentes dão prioridade ao que quer que seja novo, dessa forma verá que para VCL, não precisa fazer nada sempre irá funcionar com os ajustes feitos por mim. Somente para Firemonkey, terá que em Project->Options->Conditional defines e adicionar a sigla "FMX", isso é o suficiente para a compilação ser feita em Firemonkey. Compare o que enviei e veja como deve ser feito.1 ponto
-
Tente o seguinte amigo; function ColorToHTML(const Color: TColor): string; var ColorRGB: Integer; begin ColorRGB := ColorToRGB(Color); Result := Format('#%0.2X%0.2X%0.2X', [GetRValue(ColorRGB), GetGValue(ColorRGB), GetBValue(ColorRGB)]); end; WebBrowser1.Navigate(Format('about:<body bgcolor="%s" style="overflow:hidden"/>', [ColorToHTML(clRed)])); Fonte: http://stackoverflow.com/questions/9760969/tembeddedwb-and-background-color ou http://www.swissdelphicenter.ch/en/showcode.php?id=12541 ponto
-
Muito Obrigado Amarildo!! Problema solucionado1 ponto
-
Bom dia Wilson, Exatamente, essa é a alteração que estou sugerindo que seja feita, no IF em vez de checar o valor de Arquivos.Salvar, checar o valor de Geral.Salvar. Essa procedure SalvarEnvio, é responsável por salvar os XML de envio para a SEFAZ, que pode ser um evento, uma consulta entre outros. Fazendo essa alteração podemos determinar se desejamos ou não se esses tipos de arquivos sejam salvos ou não em disco. Por outro lado os arquivos de validade jurídica, como o XML da NF-e assinado e protocolado, mais os XMLs de *-procEventoNFe.xml e *-procInutNFe.xml seriam salvos em disco ou não mediante o valor da propriedade Arquivos.Salvar. No meu entendimento devemos conceituar: Geral.Salvar -> salva ou não arquivos gerais, ou seja, arquivos de envio e de retorno da SEFAZ. Arquivos.Salvar -> salva ou não arquivos com validade jurídica. WebServices.Salvar -> salva ou não arquivos gerais mas de forma completa ou seja com as TAGs de envelopamento.1 ponto
-
Apliquei modificações nos fontes do SVN, baseados na sugestão proposta...1 ponto
-
O endereço svn://svn.code.sf.net/p/acbr/code aponta para a pasta inteira do projeto ACBr, você está atualmente baixando então todos os trunks, tags, docs, etc, etc. Se quiser baixar somente os fontes de um ou outro siga o que o Juliomar escreveu.1 ponto
-
Boa tarde a todos, Só para fechar com chave de ouro esse assunto. Se não me falha a memória a NF-e foi instituída em 30 setembro de 2005 através do AJUSTE SINIEF 07/05. Pois muito bem o meu sistema possui um módulo chamado: Controle de Entrada (implantado em 2005), a sua finalidade é simples, lançar as notas de compra de materiais. Quando começou a obrigatoriedade da emissão das NF-e, alguém lembra? Pois muito bem nesse meio tempo e até hoje o almoxarifado não digita nenhuma nota, detalhe importante, apesar de recebermos os XMLs dos fornecedores os mesmos não são importados. Resumindo tudo: Recebo por e-mail os XML das Notas; Não tenho nenhuma rotina para importar os dados das mesmas; O funcionário do almoxarifado da entrada nas notas sem a necessidade de digita-las. Para não dizer que ele não digita nada, ele digita o CNPJ do fornecedor e o numero do pedido de compra emitido pelo departamento de compras. Em vez de criar mecanismos obscuros para minimizar o trabalho, que tal desenvolver um módulo de compra de material que se integra com o de entrada?1 ponto
