Rodrigo Cardilo

Boa tarde, Conforme Tópico Abaixo o prazo para implantação das regras passou a ser 04/10/2021 porém na nota técnica aparecem 2 prazos. Tentei preencher os campos CBarra e CBarraTrib hoje e enviar e retornou o erro Falha no Schema do lote. Alguém sabe se o prazo desses campos é diferente do restante? Na nota técnica está descrito dessa forma:

@datilas, vou usar sua idéia.. muito obrigado a todos

Oi @Cristofer Rodrigues, Eu inclusive tenho uma lista atualizada que pode ser baixada no próprio portal. Meu problema é saber qual item da venda está errado. Grato mesmo assim

Bom dia Amigos, Estou com um problema na emissão NFC-e em MG que já procurei no fórum e não achei nada semelhante. Quanto emito uma nfc-e e em algum produto da venda tem algum NCM incorreto ou inexistente é retornado o seguinte erro: 778 - Rejeição: Informado NCM inexistente O motivo eu sei o problema é descobrir qual item está com esse NCM incorreto. Na NF-e a mensagem retorna o número do item porém não achei nada no retorno da NFC-e. Segue anexo o xml do retorno.310003554380957-pro-rec.xml Alguém tem alguma rotina para verificar se o NCM é válido ou existe? Grato desde já.d

Perfeito @Juliomar Marchetti, mais uma vez obrigado pela ajuda.

@Rho Kurcinae, não resolve. Já tinha visto esse post. Observe que preciso fazer um subselect dentro da mesma tabela. Todas as informações estão em uma única tabela O problema está sendo quando tento agrupar somente pelo produto.

Boa tarde amigos, Tenho uma tabela de itens de venda com os seguintes campos: CODVENDA CODPRODUTO CODTAMANHO QUANT VLRTOTAL Preciso montar um select onde eu pegue a quantidade total de tamanhos vendidos e transforme em uma coluna. Mais ou menos assim: SELECT I.CODPRODUTO, SUM(I.QUANT) AS QTDTOTAL, (SELECT SUM(E.QUANT) FROM ITENS E WHERE E.CODPRODUTO = I.CODPRODUTO AND E.CODVENDA = I.CODVENDA AND E.CODTAMANHO = 'P') AS P FROM ITENS I GROUP BY I.CODPRODUTO Porém quando tento rodar esse select me retorna a mensagem: Invalid expression in the select list (not contained in either an aggregate function or the GROUP BY clause). Lembrando que tenho que agrupar somente por produto. O que mais eu deveria colocar nesse select? Grato desde já

@amauridebarros, eu mesmo fiz um report que é possível colocar a logo. Porém eu alterei o fonte do ACBR. Se quiser te passo e você mesmo compila aí. Só me chamar no PV

Era a versão do ACBRBoleto.pas que estava desatualizada. Problema resolvido. Sandro, antes de instalar tente limpar todos os arquivos e o registro. Segue tópico sobre o assunto.

Bom dia Amigos, Comigo deu o seguinte erro: E:\Sistemas\Componentes\Rio\ACBr\Fontes\ACBrBoleto\ACBrBancoBradesco.pas(396) Error: E2003 Undeclared identifier: 'Mensagem' E:\Sistemas\Componentes\Rio\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas(3945) Fatal: F2063 Could not compile used unit 'ACBrBancoBradesco.pas' Na linha 396 do arquivo ACBrBancoBradesco.pas tem agora um Sacado.Mensagem que não existia antes. Acredito que falta implementar mais alguma coisa no tipo TACBRSacado.

@BigWings Fiz a alteração no fonte. Segue arquivos para avaliação. Grato desde já,ACBrBancoItau.pasACBrBoleto.pas

Olá amigos, No banco Itaú existe uma particularidade sobre descontos. Acontece que é permitido cadastrar além do desconto normal até uma data específica, cadastrar outros 2 descontos com mais 2 datas. Essa informação consta no manual de cobrança CNAB400, nota 16. Já percebi que o ACBR não tem essa opção. Gostaria de saber se é possível eu desenvolver e compartilhar. Como faço para mandar os fontes para serem analisados? Grato desde já, @Juliana Tamizou

@Juliomar Marchetti e @BigWings. Os dois me ajudaram e muito. Eu tinha que fazer um sql gigante para simplesmente saber quais apartamentos estavam disponíveis. Ficou praticamente instantâneo agora. Muito obrigado pela ajuda de ambos..

@Juliomar Marchetti, coloquei um banco em anexo. Nele tem exatamente o exemplo que postei no começo desse post. Grato BDTESTE.rar

@Juliomar Marchetti alterei aqui e deu certo, porém o problema inicial ainda persiste. No meu exemplo acima eu tenho dois apartamentos e quando faço essa consulta entre 12/09/2020 a 18/09/2020 precisaria que só me retornasse o apartamento disponível em todos esses dias, o que não acontece com o 101 já que ele não tem disponibilidade nos dias 12, 13, 14 e 15. Mesmo assim obrigado pela ajuda.

Amigo @BigWings. Consegui uma solução mudando a propriedade UpdateOptions - AutoCommitUpdates para True na tabela. Seria a decisão correta?

Boa tarde, Tenho uma aplicação e estou usando Firedac a pouco tempo. Me deparei com um problema que acredito que seja apenas algum parâmetro ou propriedade do mesmo. Quando incluo um registro em uma tabela eu termino com o Post e o ApplyUpdates(-1). Até aí tudo certo. Porém quando tento alterar imediatamente o mesmo registro ele me mostra a alteração mas quando eu fecho e abro a tabela essa alteração não aparece. Existe algum parâmetro ou propriedade que posso utilizar para funcionar? Grato desde já,

Amigo @Juliomar Marchetti Entendi sua lógica porém o final do código não consegui entender. Vou colocar abaixo a procedure que tentei gerar usando seu exemplo... Coloquei interrogação no trecho onde eu travei. Grato desde já, CREATE PROCEDURE SP_DATES( DTINI DATE, DTFIM DATE) RETURNS( CODAP INTEGER) AS begin FOR WITH RECURSIVE DATES (DT) AS ( SELECT :DTINI FROM RDB$DATABASE UNION ALL SELECT DT + 1 FROM DATES WHERE DT < :DTFIM ) SELECT * FROM DATES LEFT JOIN UN10150 R ON DATES.DT = R.DATA ??????????????????? select CODAPTO from WHERE SITUACAO = 0 INTO :CODAP DO suspend; end

Oi @Juliana Tamizou ainda não. Me ajudaram com o código abaixo em outro post mas não consegui adaptar à minha tabela. WITH RECURSIVE DATES (DT) AS ( SELECT CURRENT_DATE FROM RDB$DATABASE UNION ALL SELECT DT + 1 FROM DATES WHERE DT < CURRENT_DATE + 31 ) SELECT DT FROM DATES Se alguém souber fico agradecido Obrigado

Bom dia, Alguém sabe como uso o recurso abaixo numa Stored Procedure ou View? WITH RECURSIVE DATES (DT) AS ( SELECT CURRENT_DATE FROM RDB$DATABASE UNION ALL SELECT DT + 1 FROM DATES WHERE DT < CURRENT_DATE + 31 ) SELECT * FROM DATES

Bom dia amigos, Preciso fazer uma consulta numa tabela do meu banco de dados com as seguintes características: Tabela de apartamentos disponíveis na data (DISPONIVEL = SITUACAO = 0) CODAPTO DATA SITUACAO 101 16/09/2020 0 101 17/09/2020 0 101 18/09/2020 0 101 19/09/2020 0 101 20/09/2020 0 101 21/09/2020 0 101 22/09/2020 0 102 11/09/2020 0 102 12/09/2020 0 102 13/09/2020 0 102 14/09/2020 0 102 15/09/2020 0 102 16/09/2020 0 102 17/09/2020 0 102 18/09/2020 0 102 19/09/2020 0 102 20/09/2020 0 Preciso de um select para saber quais apartamentos estão disponíveis (SITUACAO = 0) no período de 12/09/2020 a 18/09/2020. Já tentei usando between e outro código porém eles me retornam os aptos 101 e 102 e no caso só estaria disponível o apartamento 102. select CODAPTO from APTO_DIPOSNIVEL WHERE DATA >= '09/12/2020' AND data <= '09/20/2020' AND SITUACAO = 0 select CODAPTO from UN10150 WHERE DATA BETWEEN '09/12/2020' AND '09/20/2020' AND SITUACAO = 0 Se alguém puder me ajudar fico agradecido.

@Daniel Simoes, vou testar.. Mas acho que resolve. Obrigado meu amigo

Oi amigos, Tenho a seguinte situação. Um servidor Windows Server onde tenho 3 usuários que fazem acesso via RDP. Esse acesso pode acontecer ao mesmo tempo. Até aí tudo bem. Porém eu queria bloquear o usuário que está logado a abrir o programa (executável) mais de uma vez. A rotina para verificar se o programa está aberto eu já conheço, porém a mesma olha o processo ou aplicativo aberto no windows e não somente daquele usuário logado. Alguém conhece alguma solução? Segue abaixo a rotina que eu já uso, que funciona muito bem. function ListProcess(Executavel: WideString): Boolean; export; stdcall; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); Result := False; while Integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(Executavel)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(Executavel))) then begin Result := True; end; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; Grato desde já

Em alguns tamanhos de fonte deu certo em outros não.. Mas já resolveu meu problema. Obrigado pela dica @Daniel Simoes

Caros amigos, Estou imprimindo etiquetas pelo ACBRETq como o exemplo abaixo. Existe alguma forma de eu centralizar o texto de acordo com o tamanho dele? ImprimirTexto(orNormal, '4', 1, 2, 1, 1, 'SHEILA MEDEIROS CONFECCOES - EIRELI', 0, False); ImprimirTexto(orNormal, '4', 1, 1, 3, 1, 'TELEFONE: (32) 3287-1183', 0, False); ImprimirTexto(orNormal, '4', 1, 2, 5, 1, 'NOME: CONFECCOES DO ZE LTDA.', 0, False); ImprimirTexto(orNormal, '4', 1, 2, 8, 1, 'CIDADE: SAO PAULO-SP', 0, False); ImprimirTexto(orNormal, '5', 1, 1, 11, 1, 'NF N: 11220', 0, False); ImprimirTexto(orNormal, '5', 1, 1, 14, 1, 'VOLUMES: 3', 0, False); ImprimirTexto(orNormal, '4', 1, 2, 18, 1, 'TNT CARGAS E ENCOMENDAS', 0, False); ImprimirTexto(orNormal, '3', 2, 1, 18, 30, '337', 0, False); a linha do telefone, nf e volumes nunca muda de tamanho mas as demais terão alterações de acordo com o cadastro. Alguém já passou por isso e tem alguma luz? Grato desde já