Sérgio Assunção

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

Sim... o destinatário é pessoa fisica e o conteúdo da I.E. estou deixando em branco (nula). Sérgio

Boa tarde amigos... fiz a instalação do meu software hoje em um novo cliente e estou tendo um erro (imagem em anexo). A Inscrição Estadual esta correta, atualizei os schemas, recompilei o meu software e não vai. Agradeço qualquer resposta. Sérgio

A solução foi a seguinte (copiando a resposta do amigo no link citado pelo Peterson): "Resolvi alterando a seguinte linha (180) da unit pcnEventoNFe: de: if Result in [32,21,15,22,24] then para: if Result in [32,21,22,24] then Exclui o codigo 15 referente ao PA. Assim será informado o código 91. Funcionou normalmente." Obrigado. Sérgio

Boa tarde ... estou com os schemas atualizados, ACBr atualizado, etc. O erro ao tentar cancelar uma nf-e (eventos) esta descrito na imagem em anexo. Alguem pode me dar um help. Obrigado. Sérgio

A 4R não tem um acesso via W.S. e o suporte deles é bem fraquinho. Se você ligar la, eles vão pedir pra você entrar em contato com o Dep. de ISS da prefeitura da sua cidade, e essa por sua vez vai pedir pra você entrar em contato com a 4R, e por ai vai...

Atrasei o relógio do Windows em uma hora e funcionou normal. Obrigado. Sérgio

Ta certa a data e hora. Sérgio

Bom dia amigos... eu tenho um cliente aqui que está tendo um erro ao transmitir uma NF-e em modo produção. Já reinstalamos o certificado, registramos as dlls (Capicom), atualizamos os schemas e nada. Em anexo a imagem relatando o erro. Sérgio

Parabéns pela iniciativa e principalmente pela dedicação André. Um grande abraço. Sérgio

Já vou avisando alguns clientes que temos por aqui ... http://info.fazenda.sp.gov.br/NXT/gateway.dll/legislacao_tributaria/portaria_cat/pcat1612011.htm?f=templates&fn=default.htm&vid=sefaz_tributaria:vtribut Sérgio