EMBarbosa

O que você quer dizer com destacar alíquota no cupom?

Então vamos pelo começo, seria bom você tentar localizar o arquivo synapse.bpl e ter certeza que ele se encontra no pc. Daí garanta que o Delphi tenha acesso a este arquivo. Isto é, que ele tenha direito de leitura na pasta onde ele se encontra. Provavelmente deve saber que o Delphi 7 não é totalmente compatível com o Windows 7. Você deu os passos necessários para ele funcionar? Caso não funcione vejamos: Você está usando mais de uma versão do Delphi em sua máquina? Caso você desinstale o ACBr, o Delphi abre normalmente? Pode fazer o teste? Depois de desinstalar o ACBr, instale o pacote synapse manualmente. Houve algum erro? Caso contrário, consegue fechar e abrir o Delphi normalmente? Poderia prosseguir instalando os outros pacotes manualmente?

Cleber, Me senti tentado a mover o seu post para um tópico separado e com a tag "FAQ".

Tanto o erro "Não foi possível localizar o número ordinal xxx" como o erro "Não foi possível localizar o ponto de entrada do procedimento xxx" são erros em geral de incompatibilidade de versão de dlls. Você pode pesquisar na net sobre esses erros para entender mais a fundo o que significam. Sendo assim, tente com a dll do Windows 7 ou do Windows XP, copiando para a pasta do seu executável. Isso vai garantir que ele chame esta. Tente com uma dll que você sabe que funciona. Além disso, verifique se esta dll não possui outras dependências. Talvez ela precise de outras dlls. Finalmente, se esta dll é do windows, talvez seja melhor você entender o que foi mudado na dll pela Microsoft.

Você precisa instalar o pacote synapse. Usou o ACBrIntall?

Já tentou copiar para a pasta do executável uma outra versão da dll?

Realmente, não tive tempo de testar ainda, por isso não dei retorno lá.

Pelo que sei você tem a opção de instalar o TSQLClientDataSet no Delphi 7, pois ele vem no CD do Delphi. Isso já resolveria metade dos seus problemas provindos de usar o Delphi 6. No entanto, deve haver explicações sobre terem marcado o componente como deprecated no arquivo Readme.txt que fica na raiz do CD do Delphi 7. O mais aconselhado seria, (pelo menos a onze anos atrás seria), mudar para o trio TSqlQuery, TDatasetProvider, TClientDataset. Outra opção seria converter do TSQLClientDataSet para o TSimpleDataset. Talvez esse artigo possa ser de ajuda. Nota: Fui reler esse tópico hoje e percebi que não tinha respondido. Vai que outra pessoa está passando pelo mesmo problema...

Crie um tópico novo para uma dúvida nova conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto".

Esse ACBrStr não é por causa do Delphi 6?

Veja esse tópico: Embora esteja falando sobre o registro C485, o problema é o mesmo do C170.

Assim que o TeamViewer detectar que você está fazendo uso comercial a velocidade da conexão vai cair bastante. Então não se assuste. Eu usei o LogmeIn muitas vezes e nunca percebi essa lentidão em comparação ao TeamViewer. Pelo contrário, quando usava a modo browser do LogmeIn achava muito lento. Com respeito a desenvolver uma solução, bem, eu acho que se você precisa e tem mão de obra suficiente, vá em frente. Pesquise sobre o assunto, aprenda mais e vá em frente. Foi assim que o Daniel criou o primeiro componente do projeto ACBr. Mas como o Régys disse, essa é uma área que já tem muita gente trabalhando, então fazer uma busca sobre os projetos atuais e entender onde eles estagnaram, quais os problemas que enfrentam e etc. é muito importante antes de querer reinventar a roda. Caso contrário, você vai perder muito do seu tempo.

Ué, não tem como alterar e não alterar ao mesmo tempo... Tem um tópico onde o Isaque postou uma sugestão que era um evento, dando ao usuário do componente a possibilidade de decidir. Você achou esse tópico?

O que foi sugerido nos tópicos que você pesquisou?

Obrigado pelo retorno. Pode ajudar outros.

Olá Alex, Normalmente criamos os sub-fóruns à medida que vai aumentando os tópicos sobre o assunto. Fazemos isso para deixar organizado. Assim, enquanto não houver trabalho nesse assunto, não é necessário criá-lo.

Já está virando bagunça o tópico, queiram por favor seguir as regras. Crie um tópico novo para uma dúvida nova conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto".

Receio que não tenho o nome de ninguém lá. A última vez que precisei do suporte deles pra resolver um problema que a interventora não podia resolver eu usei o fórum da Bematech. Você tentou alguma interventora aí por perto? Pode ser que consigam descobrir o que seja. Enquanto isso, outras coisas que eu testaria são: Colocaria o ECF em um outro computador. Assim, caso funcione, você saberia que o problema é no micro de desenvolvimento. Colocaria o ECF em outra porta (talvez uma placa serial diferente) para verificar se não é um problema no encaixe da porta serial ou nos componentes da placa. Testaria com outro cabo. Sei que você disse que tentou, mas normalmente eu testo pelo menos 3 cabos... vai que... sabe-se lá... Testaria com outro ECF, preferencialmente do mesmo modelo. Caso funcione é muito provável que seu ECF atual esteja com defeito. Caso não seja possível testar com outro ECF físico, testaria com o emulador via porta serial virtual. Isso verificaria que não é um problema no software.

Neste caso, tome cuidado ao usar os métodos de achar a forma de pagamento pela descrição.

Sim, pode ser problema na impressora. Pode ser problema no cabo também. E talvez com o computador. Mas como o seu problema não é com os componentes ACBr, eu sugiro o contato com a Bematech.

Até onde eu sei, formas de pagamento só podem ser modificadas via intervenção técnica. Mas o manual do ECF pode confirmar.

Crie um tópico novo para uma dúvida nova conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto".

Você deve criar uma instância do TRegistro75 para cada Registro 75 que vai no arquivo sintegra. Assim não dá para reutilizar os objetos num loop como está fazendo. Tente o seguinte: while not (qrySintegra.Eof) do begin with ACBrSintegra, qrySintegra do begin wregistro75 := TRegistro75.Create; //<---- UM OBJETO PARA CADA REGISTRO wregistro75.DataInicial := tmpDTINI; //Minha variável de data wregistro75.DataFinal := tmpDTFIM; //Minha variável de data wregistro75.Codigo := FieldByName('CDPRO').AsString; wregistro75.NCM := FieldByName('CDNCM').AsString; wregistro75.Descricao := FieldByName('NMPRO').AsString; wregistro75.Unidade := FieldByName('CDUND').AsString; wregistro75.AliquotaIpi := FieldByName('ALIPI').AsInteger; wregistro75.AliquotaICMS := FieldByName('PICMS').AsFloat; wregistro75.Reducao := FieldByName('REDICMS').AsFloat; wregistro75.BaseST := FieldByName('BASEST').AsFloat; ACBrSintegra.Registros75.Add(wregistro75); Next; end; end;

Não sei como posso ajudar. Você não disponibilizou o código. Também não explicou que tipo de classe é o Obj nem o motivo de você estar chamando um Free nele. Sua dúvida não está bem definida, tipo, não há uma pergunta, nem uma sugestão do que espera que alguém faça ao ler o seu tópico... Poderia esclarecer?

Algumas sugestões, veja: https://stackoverflow.com/questions/1717844/how-to-determine-delphi-application-version ou http://docwiki.embarcadero.com/RADStudio/XE5/en/Version_Info