Sérgio Assunção

Olá amigos ... eu tenho em produção o SNGPC na sua versão 2.0 desde abril desse ano. Nosso software realiza todas as operações necessárias, além de verificação online do status da transmissão, importação do inventário, cadastro online de medicamentos, entre outras. Tenho interesse em comercializar as funções. Quais os meios de contato que posso informar nessa área de classificados ? Att, Sérgio

Olá amigos, bom dia Preciso acionar a gaveta através de uma Elgin Vox (não fiscal) conectada em uma porta USB. Gostaria de saber se alguém sabe me dizer algum parâmetro a ser enviado após a impressão, ou uma outra alternativa. Entrei em contato com o suporte e me passaram a seguinte "solução" : ESC v n [Function] Activate drawer. [Format] ASCII ESC v n Hexadecimal 1B 76 n Decimal 27 118 n [Description] Activate drawer pin for n milliseconds (50ms < n < 200ms) Só não sei "traduzir" isso para uma string. Agradeço qualquer ajuda. Att, Sérgio

Bom dia amigos... Preciso desenvolver um aplicativo para controle de ponto usando os aparelhos hamster iii, mas o meu tempo ta curto. Preciso de funções básicas como o cadastro da digital (enrrol), reconhecimento e registro dos evento (id, data e hora) em uma base Firebird ou Mysql. O acabamento é comigo. Preciso que seja algo o mais nativo possível. Interessados por favor entrar em contato. [email protected] Obrigado. Sérgio

Boa !

Olá amigos... quais arquivos que devo editar para a inclusão de uma nova cidade ? Tenho aqui os caminhos dos webservices passados pelo pessoal da 4R. Obrigado. Sérgio

Olá amigos, boa tarde ... só não entendi a questão da BuscaParcial. Alguem pode explicar ? Obrigado. Sérgio

Beleza Regys... esclareceu a minha dúvida. Obrigado amigo ! Sérgio

Olá amigos, boa tarde ... Preciso de uma ajudinha aqui pra configurar o meu device (Iphone 4S) no Delphi XE4. Andei lendo alguns posts e entendi bem o passo a passo, principalmente se tratando do simulador, mas gostaria de fazer uns testes direto em meu aparelho e não estou sabendo configurar o ambiente. No meu Delphi, em Connection Profile só aparece Windows 32, 64 e Os X nas Plataformas, não aparece o device. Pluguei o cabo usb e já tentei de tudo. Alguem poderia me dar uma dica ? Obrigado. Sérgio

Baixei a tabela 0.2, atualizei o meu ACBr e recompilei o pacotes, mas o meu aplicativo e o exemplo do componente não estão abrindo a nova tabela. Qual a revisão da atualização do componente ? Obrigado. Sérgio

Olá amigos, boa noite... No caso de uma operação que não seja uma venda para um consumidor final (remessa, doação...etc), não é necessário informar a tag vTotTrib ou devo informar com valor 0 ? Obrigado. Sérgio

Olá amigos boa noite... alguém já conseguiu instalar o JEDI no Delphi XE4 ? Sérgio

Olá Renan... o meu aplicativo foi desenvolvido no Delphi 7 e veja a diferença entre a minha unit importada com a sua: function ValidarUsuario(const Email: WideString; const Senha: WideString): WideString; stdcall; function EnviaArquivoSNGPC(const Email: WideString; const Senha: WideString; const Arq: TByteDynArray; const HashIdentificacao: WideString): WideString; stdcall; function ConsultaDadosArquivoSNGPC(const Email: WideString; const Senha: WideString; const CNPJ: WideString; const Hash: WideString): WideString; stdcall; function ValidarUsuario(const Email: string; const Senha: string): string; stdcall; function EnviaArquivoSNGPC(const Email: string; const Senha: string; const Arq: TByteDynArray; const HashIdentificacao: string): string; stdcall; function ConsultaDadosArquivoSNGPC(const Email: string; const Senha: string; const CNPJ: string; const Hash: string): string; stdcall; Sérgio

A sua variavel pHash ta declarada como String ou WideString ? Qual a versão do seu Delphi ? Tem como vc anexar a unit importada pelo WSDL Importer ? Sérgio

Caso não informe nenhum insumo no inventário a tag deve ficar da seguinte forma: <insumos /> Sérgio

JAIR, você ta declarando o Hash como String, mas ele deve ser WideString. Sérgio

Acho que seria interessante mover esse post pra área do Delphi, não acham ? Sérgio

Pode ser mesmo... eu uso aqui o tsqZip e não tenho problemas. Sérgio

Bom aqui eu uso da forma que eu lhe expliquei e já esta sendo usado a uma semana sem problemas. Sérgio

Aqui esta o problema: Result := WsTeste.EnviaArquivoSNGPC(pEmail, pSenha, FileToByteArray(GetXmlCompressedInZipFileFromString(pArquivo)), pHash); Tente assim: var FileData : TByteDynArray; WebService : sngpcSoap; ... FileData := FileToByteArray('C:\SeuArquivo.zip'); ... Retorno := WebService.EnviaArquivoSNGPC(email,senha,FileData, HashId); Sérgio

Ola Renan ... Eu uso o componente tsqZip para compactar e a função FileByteToArray para a conversão para o formato aceito. function FIleToByteArray( const FileName : string ) : TByteDynArray; const BLOCK_SIZE=1024; var BytesRead, BytesToWrite, Count : integer; F : File of Byte; pTemp : Pointer; begin AssignFile( F, FileName ); Reset(F); try Count := FileSize( F ); SetLength(Result, Count ); pTemp := @Result[0]; BytesRead := BLOCK_SIZE; while (BytesRead = BLOCK_SIZE ) do begin BytesToWrite := Min(Count, BLOCK_SIZE); BlockRead(F, pTemp^, BytesToWrite , BytesRead ); pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE); Count := Count-BytesRead; end; finally CloseFile( F ); end; end; Sérgio

Veja se você está informando a tag classeTerapeutica dessa forma: <entradaMedicamentos> <medicamentoEntrada> <classeTerapeutica>2</classeTerapeutica> <registroMSMedicamento>1010000720146</registroMSMedicamento> <numeroLoteMedicamento>678</numeroLoteMedicamento> <quantidadeMedicamento>2</quantidadeMedicamento> <unidadeMedidaMedicamento>1</unidadeMedidaMedicamento> </medicamentoEntrada> </entradaMedicamentos> <entradaMedicamentos> Ela deve estar juntamente com as outras informações do medicamento. Sérgio

Boa tarde .. em modo homologação eu finalizei o meu inventário dia 16/04, transmiti o inventário ontem (18/04) e amanha irei fazer o envio da primeira movimentação depois dessa instalabilidade. Parece que ta tudo Ok ja com o WS da Anvisa, inclusive ja tenho clientes em modo de produção ja enviando arquivos a partir de hoje. Estou a disposição para qualquer ajuda. Sérgio

Bom dia Fabricio ... se possível compartilhe o componente pra que possamos ajudar. Ja desenvolvi uma rotina de importação do inventário desde a versão 1.0 e conclui nessa semana a versão 2.0 do meu aplicativo, de acordo com a nova exigência. Obrigado Sérgio

Eu semprei deixei em branco, mas desde o inicio da semana passei a ter problemas e ontem ajustei o aplicativo e coloquei a palavra 'ISENTO' ... vou atualizar o componente e desfazer essa modificação. Agradeço a você Isaque e a você André pela atenção. Sérgio

Faça uma consulta na NFe através do componente e veja se irá aparecer a tarja. O Danfe do fortes já mostra a tarja de cancelamento sem a necessidade de proceder a consulta carregando o xml. Sérgio