Ir para conteúdo
  • Cadastre-se

Reinaldo Silveira

Membros
  • Total de ítens

    65
  • Registro em

  • Última visita

Reputação

16 Bom

Sobre Reinaldo Silveira

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    Franca/SP

Últimos Visitantes

930 visualizações
  1. 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.
  2. 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í.
  3. 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á.
  4. 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).
  5. 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
  6. 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.
  7. 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'
  8. 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.
  9. 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.
  10. Qual DB você usa? Já tive problemas com aggregate de campos tipo NUMERIC do Firebird.
  11. conforme falei anteriormente, este é o mesmo xml baixado da Sefaz.
  12. Entendo. E qual a saída neste caso, verificar junto à transportadora?
  13. Debugando aqui, verifiquei a seguinte situação: na unit ACBrCTeConhecimentos, no método Validar tem a seguinte instrução (linha 348): RetornarConteudoEntre(AXML, '<CTe xmlns', '</CTe>') porém, este xml em questão não possui a declaração namespace <CTe xmlns=”http://www.portalfiscal.inf.br/cte”>, está somente <CTe>, conforme comparativo abaixo: Minha dúvida agora é a seguinte: este xml poderia ter sido validado desta forma, ou seja, é permitido autorizar um CT-e sem esta namespace? Obrigado pela ajuda!
×