-
Posts
217 -
Joined
-
Last visited
Content Type
Blocks
Notes ACBrMonitorPlus
Notes ACBrLibNFe
Forums
Downloads
Calendar
Blogs
Videos
Everything posted by Rodrigo Cardilo
-
Bom dia amigos. Precisei fazer uma baixa em um boleto direto no Banco Inter e o retorno estava vindo sem a devida informação (estava em branco). Achei o problema na linha 444 da unit ACBrBancoInter.pas toRetornoBaixaSimples : Result := '09'; Alterei para toRetornoBaixaSimples : Result := '07'; Já testei e deu certo. Segue anexo unit para atualização. Grato. ACBrBancoInter.pas
-
DIFAL e FCP empresa Simples Nacional
Rodrigo Cardilo replied to Arnaldo Cruz's topic in Legislação Fiscal e Tributária
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
-
ACBRPosPrinter como impressora PertoPrinter
Rodrigo Cardilo replied to Rodrigo Cardilo's topic in ACBrSerial
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á
-
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:
-
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á