Reinaldo Silveira's Content - Projeto ACBr
Everything posted by Reinaldo Silveira
Reinaldo Silveira replied to Reinaldo Silveira's topic in ACBrNFe
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.
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.
Duplicar registros de campos de uma tabela
Reinaldo Silveira replied to guilhermebrum22's topic in Data Base
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;
Resultado de um group by
Reinaldo Silveira replied to dreamsoft_PR's topic in Data Base
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.
Salvar foto no Banco De Dados
Reinaldo Silveira replied to Valtran Silva's topic in Object Pascal - Delphi & Lazarus
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í.
Manifestação de NF-e - Listar notas no Grid
Reinaldo Silveira replied to carlessoflu's topic in ACBrNFe
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á.
Reinaldo Silveira replied to Reinaldo Silveira's topic in ACBrCTe
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).
Reinaldo Silveira replied to Rafael Fachini's topic in ACBrNFe
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.
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'
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.
Erro no ClientDataset campos agregados
Reinaldo Silveira replied to Fernando Rodrigo's topic in Object Pascal - Delphi & Lazarus
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.
Qual DB você usa? Já tive problemas com aggregate de campos tipo NUMERIC do Firebird.
conforme falei anteriormente, este é o mesmo xml baixado da Sefaz.
Entendo. E qual a saída neste caso, verificar junto à transportadora?
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!
Reinstalei o ACBr apagando os arquivos antigos, segundo orientação do Felipe, mas o erro continua. Desculpa a ignorância Italo, mas pelo validador da Sefaz RS mostra que a assinatura está válida. Também tentei baixar o CT-e direto da receita, mas o conteúdo do xml é idêntico ao que eu anexei anteriormente. Agora fiquei na dúvida, este xml está correto ou não?
Observe que se você fazer a consulta assim: LIKE '%AFASTADOR%MEDIO%' você obterá resultado. Ou seja, substituindo o caractere espaço por porcentagem, sua pesquisa ficará mais flexível. Tente algo assim: qry.Close; qry.SQL.Add('SELECT * FROM TB_PRODUTO WHERE DESCRICAO LIKE :pesquisa'); qry.Params[0].Value := '%'+ StringReplace(edtPesquisa.Text, ' ', '%', [rfReplaceAll]) +'%'; qry.Open; Eu uso desta forma e nunca tive problemas.