Atenas Soluções Softwares

Entendi Fernando , é na verdade ativo somente uma vez utilizando um laço booleano ao iniciar a aplicação e não desativo mais . Marcelo .

Será que é por eu ter um laço em todos os comandos inclusive na ativação que eu não estou tendo problemas ? tenho um cliente que tem 10 frente , 3 st100 e 7 st120 i a média de coo dele é de 1100 por dia pessoal i não da nem um pau , oque esta acontecendo ? Marcelo

Vagner , oque vc quer não existe = (TROCA DE OPERADOR NO ECF) , vc tem que após cada finalização de venda , Cancelamento etc.. , gravar no seu BD as informações referentens ao operador de caixa atual , e ao efetuar a TROCA DE OPERADOR vc tira um relatório gerencial imprimindo o movimento de Vendas , Cancelamentos etc...etc... daquele OPERADOR atual e consequentemente substituindo pelo outro que vai entrar , enfim controlando os usuarios OPERADORES pelo BD . Marcelo .

Flavio , 1-É bem provavel que o seu library path está faltando algum caminho junto aos diretórios da biblioteca de componentes ACBr , verifique !!! 2-Tente dar um rebuild nos componentes ACBr . 3-Desinstale , Exclua o diretório do ACBr e baixe o novo e reinsta-le tudo novamente , configure novamente o library path . Marcelo .

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 .