Rodrigo Cardilo

OI @Renato Rubinho, acho que me expressei mal. Não preciso do efeito zebra e sim preeencher as celulas com cores distintas. Agradeço pela atenção

Boa tarde amigos. Preciso preencher uma grid (dbgrid, stringgrid) conforme o a figura anexo. Alguém tem alguma dica de onde posso começar? Grato desde já

A minha está na versão 03.20.04 e o pagemode pc850 nem funciona corretamente. Só o pc1252. Como esta impressora não existe e nem tem suporte mais acredito que não vou conseguir testar corretamente nela

@Juliomar Marchetti, testei na Daruma DR-800, com pagemode pc1252.

Boa tarde amigos, Utilizo para impressão da NFC-e o componente ACBrNFeDANFeESCPOS porém hoje tentei utilizar a propriedade ImprimeQrCodeLateral = True porém não funcionou. Existe alguma outra alteração que devo fazer no componente ou essa propriedade realmente não funciona. Grato desde já.

Caro Arnaldo, Sobre o DIFAL do quando o remetente for Simples Nacional tem um vídeo que deixa claro o assunto.

Fiz o teste aqui e deu certo. Apesar de não concordar com minha mudança, a POG foi só mudada de lugar, que no meu entender, deu no mesmo. Mas o que importa é o resultado, e não código bonito. Obrigado desde já. EspecieDoc := ACBrTitulo.EspecieDoc; if EspecieDoc = 'DM' then EspecieDoc := '99';

Segue arquivo com a modificação proposta acima. ACBrBancoInter.pas

Boa tarde amigos, Fiz o teste de remessa do boleto Inter utilizando o último commit (18/01/2022). Gerei um boleto para minha empresa mesmo somente para testes. Segue print da ficha de compensação gerada pelo ACBr e pelo Banco Inter. Como podem ver todas as informações conferem. Só tem um detalhe no arquivo remessa que foi modificado do meu postado anteriormente que "não concordo". Na página 8 do manual do Banco Inter, vem informando que na posição 148 a 149 o tipo é fixo 99 (outros). Eu tinha deixado esse tipo fixo na geração da remessa porém foi modificado para a propriedade espécie de documento. Mas na ficha de compensação do próprio banco Inter aparece 'DM'. Se tentar enviar 'DM' no arquivo de remessa é gerado um erro. Portanto gostaria de sugerir que, seguindo o próprio manual, utilize a espécie de documento '99' fixa no arquivo de remessa e na impressão possamos utilizar 'DM' conforme o boleto gerado pelo banco, pois senão na hora de imprimir terei que fazer a alteração na alimentação do componente, que acho desnecessário. Grato desde já.

Isso mesmo galera. NÃO TENTE GERAR O BOLETO SEM O RETORNO. O Banco Inter só disponibiliza o retorno no dia útil seguinte ao envio da remessa. Vou testar e posto o retorno aqui o mais breve. Obrigado @Victor H. Gonzales - Panda e @Clverson pela ajuda. Lembrando aos desavisados que não funciona para depósitos por boleto nas contas pessoa física e MEI do banco Inter. Somente contas de pessoa jurídica.

Segue novas atualizações referente à montagem do Nosso Número, já que o mesmo é fornecido somente no retorno e já vem com o DV. ACBrBancoInter.pasACBrBoleto.pas

Boa noite amigos, Já utilizo o Banco Inter a alguns meses. Fiz a modificação nos fontes de acordo com o manual e no padrão do ACBr. Estou postando em anexo e caso precisem de mais arquivos (tenho a ficah de compensação, remessa e retorno gerados aqui em produção já) é só me solicitar. Grato, ACBrBoleto.pas ACBrBancoInter.pas Manual_CNAB_400_Inter.pdf

Daniel, nem pelo fortes deu certo.. sai tudo confuso. Usando EscPosEpson sai tudo menos o qrcode

Boa tarde, Um cliente adquiriu uma impressora térmica de marca Perto (https://www.perto.com.br/produtos/impressora-termica-nao-fiscal-pertoprinter/). Já tentei várias configurações padrões no ACBRPosPrinter e não imprime o QRCode. No site deles tem uma manual que até mostra a compatibilidade mas nem pelo fortes consigo imprimir a NFCe. Alguém já conseguiu fazer essa impressora funcionar com o ACBRPosPrinter? Grato desde já,

Oi @Valter de Sousa - IDEASyS, sim. Coloque o código abaixo no seu .dpr que dá certinho. {$R *.res} var MutexHandle: THandle; hwind: HWND; N, D: string; begin N := ExtractFileName(ParamStr(0)); { Retira o path } D := ChangeFileExt(N, ''); { Retira a extensão } MutexHandle := CreateMutex(nil, TRUE, PChar(D)); if MutexHandle <> 0 then begin if GetLastError = ERROR_ALREADY_EXISTS then begin CloseHandle(MutexHandle); hwind := 0; repeat hwind := Windows.FindWindowEx(0, hwind, 'TApplication', 'Nome da Sua Aplicação'); until (hwind <> Application.Handle); if (hwind <> 0) then begin Windows.ShowWindow(hwind, SW_SHOWNORMAL); Windows.SetForegroundWindow(hwind); end; Halt; end end; Application.Initialize; .....

Boa tarde Victor, Vários colaboradores aqui já enviaram fonte e manual neste tópico mesmo. Eu inclusive implementei aqui utilizando o manual do banco e funciona. O problema é todas vez que atualizo os fontes do ACBR tenho que modificar manualmente. O que mais vocês precisam?

Bom dia @Juliana Tamizou, Sabe me dizer se o Banco Inter já foi implementado no ACBRBoleto? Grato desde já

@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.