Atenas Soluções Softwares

Rodrigo , tenho varios usuarios de SwedaSTX e esta tudo 100% . 1-No seu Aplicativo vc tem somente um componente no form principal né ? é o correto !! 2-Em todas as rotinas do seu aplicativo ao enviar comandos vc fica ativando e desativando o componente ? Se sim , ative o componente somente no oncreate (quando abrir o sistema) e só desative no onclose (quando fechar o sistema) !!! Marcelo .

Lucas , se entendi direito oque vc quer : var f : TextFile; Linha : String; begin AssignFile(f, 'C:\Complus\Arquivo.txt'); Reset(f); While not Eof(f) do begin Readln( f, Linha ); // Aqui vc add ao componente ACBrNFE o valor de leitura da variavel Linha // com o copy( Linha , ...) ; de cada campo e pra isso vc tem que entender // a estrutura do arquivo txt que vc esta lendo . end ; CloseFile(f); end; Marcelo

Lucas vc quer uma rotina de ler o seu arquivo txt e carregar as informações contidas no txt para add no componente é isso ?

Tenho a coletanea DevExpress Versão-5 instalada no Delphi-7 , gostaria de saber se alguem possui a coletanea mais atualizada da DevExpress , DevExpress Versão-6... juntamente com ExpressPrinting , sei que são componentes pagos e caso alguem tenha para Delphi-7 gostaria de fazer negócio . Marcelo .

Fernando , até onde eu sei balanças não tem Hubs ou Comutadora de sincronismo e absorção de dados para comandas , seu cliente esta equivocado dizendo que com os equipamentos que ele tem ele resolve tudo isso como a Balança + Computador + Impressora Fiscal , acho que cada equipamento tem a sua função e no caso esta faltando um equipamento ai chamado Microterminal Wilbor que tem esta função de acumular itens em comandas inclusive capturar o peso em balanças , no link abaixo tem um topico ja discutido sobre o assunto ACBRTer que faz a comunicação com este equipamento . viewtopic.php?f=10&t=1963 Forte abraço . Marcelo .

JrClemente , 1-Verifique se o Antivirus não esta bloqueando a porta smtp 25 de envio . 2-Teste com o exemplo anexado se vc consegue enviar o e-mail , pois foi desenvolvido com Synapse , o mesmo sistema de envio do ACBrNFE . Marcelo .

Elton , muito grato por sua colaboração , consegui resolver este problema e estou disponibilizando para os colegas se precisarem de algo do genero as funções para Delphi-7 + exemplo de como trabalhar com este tipo de arquivo . Grato a todos . Marcelo .

EMBarbosa , tenho o NextGrid instalado no Delphi 7 que tem uma função que me salva o conteudo do grid para um possivel retorno destes dados (NextGrid.SaveToTextFile...) este arquivo que esta em anexo neste formato Unicode foi gerado pelo NextGrid no Delphi 7 , mas vou tentar pesquisar mais , por enquanto muitissimo grato . Marcelo .

Linguagem Delphi 7 !!! tentei com AssignFile , StringList , FileStream e não consegui . Marcelo .

Pessoal , preciso ler o conteudo de um arquivo txt em formato Unicode , segue um exemplo de um arquivo no formato Unicode . Muito Grato . Marcelo .

prst , vc deve ter salvo estas configurações de porta , baudrate etc... em algum lugar para ativar os componentes em runtime no seu aplicativo em um ini provavelmente , então tenta utilizar os aplicativos demos do ACBr de cada dispostivo simultaneamente a principio não pelo seu aplicativo para testes . Abraço . Marcelo

André , brigadão cara , fiz aqui e deu tudo certo . Marcelo .

Oi pessoal , gostaria de saber se alguem de vcs tem algum exemplo somente do envio de email utilizando Synapse ( libeay32.dll e ssleay32.dll ) , utilizo o Indy 9 para envio de emails mas estou tendo problemas em alguns clientes no envio de email com conexão segura SSL Hotmail , Gmail , em alguns funcionam outros não com Indy , pesquisando tem uma galera que atualizou seus componentes para versão 10 do indy vi tambem algumas coisas sobre o Componente ICS Overbyte , mas estou querendo sair fora desses componentes e se alguem tiver algum exemplo e puder compartilhar postando . Muito grato . Marcelo .

Eisenheim , se entendi corretamente , nesse caso acho que a melhor saida para vc é utilizar o NextGrid ao invés do DBGrid , com o NextGrid vc vai criar Fields , editar campos , criar CheckBox no Grid em RunTime ou não , listar outros tipos de dados não nescessariamente do seu banco de dados etc,etc... enfim com inumeras possibilidades , se for isso tem download free do componente e Demo tbm para delphi-7 : http://www.bergsoft.net/ Espero que ajude . Abraço . Marcelo.

Sergio , nota que no if a propriedade Hint dos Edits é comparada ao nome do campo desejado retornado do objeto Memo_Dados , verifique a propriedade Hint dos Edits e compare , eu na verdade fiz de uma forma diferente aqui nos meus projetos , mas com pouca diferença do código abaixo que é mesmo deste exemplo que te mandei . procedure TForm_Cliente_Cadastro_Receita_Federal.BitBtn_DadosClick( Sender: TObject); Var i, y : Integer; begin Memo_Dados.lines.Text := WebBrowser.OleObject.Document.documentElement.innerText; For i := 0 To Memo_Dados.lines.Count-1 Do Begin For y := 0 To ComponentCount - 1 Do If Components[y] is TEdit Then If (Trim((Components[y] as TEdit).Hint)<>'') And ((Components[y] as TEdit).Hint = Trim(Memo_Dados.Lines)) Then (Components[y] as TEdit).Text := Trim(Memo_Dados.Lines[i+1]); End; end;

gigainfo , ve se isso ajuda ...!!! Abraço Marcelo

Jelco , utilize o link abaixo para negociações gerais : viewforum.php?f=17

Gr@c@ , Fiz o download ontem pelo SVN e reinstalei normalmente a coletanea completa e não obtive nenhum problema... mas ... Feche o Delphi , Exclua totalmente a sua pasta ACBr e recrie uma nova no mesmo path da anterior excluida (NÃO COLE EM CIMA DA OUTRA , EXCLUA MESMO) , entre no Delphi e recompile todos os dpks seguindo a sequencia de instalação do arquivo .txt , configure o library path dos diretórios do ACBr corretamente . Abraço . Marcelo .

Carlos , para assuntos relacionados a NFe utilize o link abaixo : viewforum.php?f=6 Marcelo .

jom , aconteceu isto comigo uma vez com um cliente que o certificado digital não estava vencido , tenta assim : Abra o Internet Explorer e vai em - Ferramentas / Opções da internet / Avançadas ... Na Aba Segurança , Desmarque a última linha = Verificar se há revogação de certificados do editor , salva e feche o IE . Reinicie o seu aplicativo de envio de NFs e tenta executar as funções . Espero que ajude . Abraço . Marcelo .

Oi ws_junior , ve se isso te ajuda caso seu problema ainda não tenha sido resolvido . Abraço . Marcelo .

Daniel , sei que tu estás muito ocupado com as novas tendencias do ACBr com o projeto SAC e sei tambem que o ACBrTER praticamente nem é utilizado pelos colegas mas gostaria de dizer que o componente ACBrTER pra mim está em produção em um de meus clientes , e hoje baixei a atualização do SVN e a nova atualização implementada para leitura de balança ainda não subiu para o SVN , eu tenho backup dos meus fontes modificados mas peço encarecidamente por favor que suba pois quando atualizar por aqui não preciso estar verificando se subiu ou não . ...segue anexo novamente das mudanças e um outro Demo/Exemplo , muitissimo obrigado por enquanto . Marcelo .

Fernando , vc ja testou para a fiscal (MP 4000 TH FI) ou somente para não fiscal (MP 4000 TH) ?? pois na não fiscal tambem testei e esta ok com o emulador Bematech , se sim para as duas (Fiscal e Não Fiscal) finalizamos este post . Abraço . Marcelo .

Oque o colega Jaime disse , acredito que é a mais objetiva proposta sobre este assunto . Marcelo .

Na minha opinião ou é free ou é share !!! Acho que todos sem exceção teriam que colaborar financeiramente com o projeto ACBr mesmo os que não utilizassem o SAC , inclusive eu que nunca dei nada , rss ( Ja sei que o Daniel vai dizer que quer que seja open e tudo mais , ja sei Daniel !!! rsssss ) , Eu de verdade nunca doei financeiramente nada apenas respondo dentro do meu alcance algumas questões de alguns usuarios , ja doei algo pro ACBrTer e ja dei umas cotucadinhas no SwedaSTX e quero continuar ajudando no projeto quando possivel , mas acho que se todos sem exceção ajudassem financeiramente , esses valores de mensalidades poderiam ser bem menores doque aqueles ja sitados pois com mais usuarios ajudando o pouco se tornaria bastante . (Valor de 50,00 por mes + ou - para todos pagarem sem exceção) , acho que todos poderiam pagar , sendo que a opção de doação para valores maiores tambem continua para quem puder colaborar com mais . Forte abraço a todos . Marcelo .