Jump to content

Reinaldo Silveira

Membros
  • Content Count

    69
  • Joined

  • Last visited

Community Reputation

16 Good

About Reinaldo Silveira

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    Franca/SP

Recent Profile Visitors

984 profile views
  1. Entendo. Para as outras manifestações (exceto Desconhecimento), normalmente o xml completo é disponibilizado após alguns minutos. Agora com a bendita Operação não realizada, mesmo após 24 horas da manifestação, somente o resumo.
  2. Boa tarde. Ajudou a compreender melhor o cenário, mas ainda não sanou minha dúvida. Não sei se é algum mal funcionamento do componente, ou se é algo relacionado à Sefaz.
  3. Você não especificou seu cenário (qual banco utiliza, se a tabela possui auto-incremento , etc...) Mas no geral, você pode tentar algo assim: INSERT INTO TB_PRODUTO(DESCRICAO, PRECO) SELECT DESCRICAO, PRECO FROM TB_PRODUTO;
  4. Bom dia pessoal! De acordo com a NT 2014/002 que trata da Distribuição de DF-e: Faço da seguinte forma: ACBrNFe1.DistribuicaoDFePorChaveNFe(UFtoCUF(edtUF.Text), edtCnpj.Text, edtChave.Text); if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].resDFe.chDFe <> '' then if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].schema = schprocNFe then ... Quando a nota é manifestada como Ciência da Operação ou Confirmação de Operação, obtenho a nota completa (schema = schprocNFe), mas na Operação não Realizada, somente o resumo (schema = schresNFe). Segundo a NT, não deveria ser disponibilizada a NF completa? Obrigado a todos.
  5. dreamsoft_PR, Você não disse qual banco está utilizando. Mas no geral, você poderia utilizar uma tabela derivada. Algo assim: select * from ( select i.codvend ,sum(i.vlrtotal) soma_item ,(select sum(c.vlrtotal) from tab_vend c where c.codvend = i.codvend group by c.codvend) soma_venda from tab_item i left join tab_vend w on (w.codvend = i.codvend) where w.datvend >= :dae group by i.codvend ) where soma_venda < soma_item Outra alternativa semelhante é utilizar a cláusula WITH Faça uns testes e compartilhe o resultado. Abraço.
  6. Teste o seguinte Valtran: uses Jpeg, PngImage, Clipbrd; procedure LoadImageFromFile(pArquivo: String; pImgDest: TDBImage); var Jpeg: TJPEGImage; Bitmap: TBitmap; Png: TPngImage; lsExt: String; begin lsExt := LowerCase(ExtractFileExt(pArquivo)); if (lsExt = '.jpeg') or (lsExt = '.jpg') then begin Jpeg := TJpegImage.Create; Jpeg.CompressionQuality := 50; Jpeg.LoadFromFile(pArquivo); Clipboard.Assign(Jpeg); Jpeg.Free; end else if lsExt = '.bmp' then begin Bitmap := TBitmap.Create; Bitmap.LoadFromFile(pArquivo); Clipboard.Assign(Bitmap); Bitmap.Free; end else if lsExt = '.png' then begin Png := TPngImage.Create; Png.LoadFromFile(pArquivo); Clipboard.Assign(Png); Png.Free; end; pImgDest.PasteFromClipboard; Clipboard.Clear; end; Use o seguinte comando para inserir a imagem no campo ligado do DBImage: if OpenDialog1.Execute then LoadImageFromFile(OpenDialog1.FileName, DBImage1); Essa é apenas uma das forma de se fazer. Qualquer dúvida posta aí.
  7. No repositório do ACBr existe um exemplo de como listar as notas: C:\ACBr\Exemplos\ACBrDFe\ACBrNFe\DistribuicaoDFe.txt Dá pra ter uma boa ideia do funcionamento baseando-se por lá.
  8. Se for no SQL Server, como o Juliomar disse não é possível. Essa seria uma alternativa: DECLARE @PARAM NVARCHAR(MAX) = :para DECLARE @SQL NVARCHAR(MAX) = 'select * from TAB_CLIE where CODCLIE in ('+ @PARAM +')' EXEC sp_executesql @SQL Em outros bancos pode ser possível (no Firebird pelo que me lembro dá certo).
  9. Olá amigos. Ao tentar validar o xml CT-e em anexo pelo método: ACBrCTe1.Conhecimentos.LoadFromFile(...); ACBrCTe1.Conhecimentos.Validar; recebo a seguinte exception: Observei que o xml possui caracteres acentuados, mas está sem a literal '<?xml version="1.0" encoding="UTF-8"?>' no início do arquivo. Caso eu adicione, o arquivo é validado normalmente. Alguma ideia de como proceder? obs.: quando baixo o xml da receita, ele vem dessa forma (sem o encoding). obs2: fontes e schemas atualizados. Obrigado! 35180802012862004661570410000495991481082965.xml
  10. Olá amigos. Segue resposta da Sefaz SP, assumindo a "cagada" da antecipação da validação do GTIN: Prezado contribuinte , Identificamos que regras de validação envolvendo GTIN foram indevidamente inseridas na última versão do sistema NF-e publicada em produção. Já estamos atuando para sanar essa complicação. Agradecemos o contato e pedimos desculpas pelo transtorno. ” ________________________________________________________ Mensagem Original: Data de início da obrigatoriedade Bom dia. De acordo com a nota técnica 2017.001 da NF-e 4.0, a validação do GTIN (tags cEAN e cEANTrib) entrariam em vigor no ambiente de produção somente em 01/12/2018. Porém, desde ontem (23/07/2018) as notas estão sendo rejeitadas pelo motivo: "Rejeição 889: Obrigatória a informação do GTIN para o produto". Gostaria de saber se foi algum erro interno na Sefaz SP ou se realmente o prazo foi adiantado, pois não encontrei nenhuma referência a respeito. Aguardo retorno, obrigado.
  11. kaciane, atualmente para a versão 4.00 a unit retorna assim: '0 - REMETENTE' '1 - DESTINATARIO' '2 - TERCEIROS' '3 - PROP/REMT' '4 - PROP/DEST' '9 - SEM FRETE'
  12. Olá amigos. Algum commiter poderia aumentar o tamanho do campo ModFrete na unit ACBrNFeDANFEFRDM.pas por gentileza? Mais precisamente na linha 1593, pois está cortando na impressão do danfe quando a string é '1 - DESTINATARIO' (16 caracteres) - este campo é preenchido pelo método modFreteToDesStr da unit pcnConversaoNFe. Posso alterar nos meus fontes, mas seria legal deixar atualizado para todo mundo. Obrigado.
  13. Não sei se é o seu caso, mas quando tive esse problema notei que os fields do tipo TFMTBCDField (tipo NUMERIC no Firebird) não eram agregados corretamente. Já fields do tipo TFloatField (tipo DOUBLE PRECISION) funcionavam corretamente. Apenas para teste, tente dar um cast na sua consulta: select cast(CAMPO as double precision) as CAMPO from... Depois remova o campo do dataset e do clientdataset, adicione novamente (veja se foi criado como TFloatField) e crie o aggregate novamente.
×
×
  • Create New...