Athos Desenvolvimento

Certo, estarei modificando os arquivos e volto a postar aqui para análise. Obrigado.

Isso mesmo que o Cristiano falou: Antes de solicitar o peso da balança eu envio pra ela o valor do kg do produto, com isso aparece no visor da balança o valor do item, o peso e o valor total que deu. Segue o exemplo do ACBrBal já com a funcionalidade de enviar valor, com isso fica mais claro a função. BalancaTeste1.pas BalancaTeste1.dfm

Bom dia, analisando as funcionalidades do ACBrBal eu não encontrei a funcionalidade de enviar o preço por Kg para a balança Toledo Prix 3 Plus. Entrei em contato com o suporte deles e peguei o manual que informa como esta função funciona, implementei e fiz alguns teste. Nos testes realizados tudo funcionou corretamente, estou anexando aqui os arquivos modificados. Texto retirado do 3 Plus - Manual (Pg 12): Atte. ACBrBAL.pas ACBrBALClass.pas

Bom dia, estou homologando o SiTef para um Totem de Autoatendimento. Ao ler a especificação técnica da biblioteca CliSiTef vi que para chamar a função IniciaFuncaoSiTefInterativo com o auto atendimento é preciso utilizar uma outra rotina que solicita também o parâmetro Produtos. Segue abaixo o trecho retirado da Especificação Técnica - Bibliotecas CliSiTefI e CliSiTef - Versão 201 [Pg. 16]: Ainda estou na fase de Homologação e precisei implementar esta nova função, foi implementado um atributo AutoAtendimento no CliSiTef e tambem foi alterado a chama dos demais arquivos. Nos testes que realizei os impressos e as funcionalidades estão todas Ok. Segue os arquivos para analise e disponibilização no SVN, também segue o trecho do documento com o requisito. Atte. ACBrTEFD.pas ACBrTEFDBanese.pas ACBrTEFDClass.pas ACBrTEFDCliDTEF.pas ACBrTEFDCliSiTef.pas ACBrTEFDTicketCar.pas ACBrTEFDVeSPague.pas SiTef - Interface Simplificada com a aplicação(VRS-201) (pg 16-17).pdf

Bom dia, acredito que encontrei um erro no ACBrBancoSicredi.pas O erro esta na hora de buscar um arquivo de retorno. No arquivo ACBrBancoSicredi.pas, na linha [639] existe a seguinte verificação: CodMotivo := IfThen(Copy(Linha,MotivoLinha,2) = '00', '00', Copy(Linha,MotivoLinha,2)); E no arquivo de retorno do banco, em uma determinada linha, a partir do primeiro código de retorno esta vindo somente espaços (Ex: 'H5 '). Nesse caso esta dando erro de: ['' '' is not a valid integer value]. Alterei a verificação para: CodMotivo := IfThen(Copy(Linha,MotivoLinha,2) = ' ', '00', Copy(Linha,MotivoLinha,2)); Assim funcionou e acredito ser uma forma mais correta, porque se os códigos forem '00' ele já vai entrar no 'else' e retornar '00'. Estou anexando o arquivo de retorno que recebi do banco. 86537921.TXT