Ir para conteúdo
  • Cadastre-se

joseadolfojr

Membros
  • Total de ítens

    93
  • Registro em

  • Última visita

Tudo que joseadolfojr postou

  1. Bom dia @Daniel Simoes, sim, nesse caso qual a melhor forma de implementar ? de acordo com o modelo ?
  2. joseadolfojr

    Elgin - Abrir gaveta.

    Boa tarde a todos, Implementado o método ComandoGaveta em ACBrEscElgin.pas. Poderiam implementar na versão do SVN ? function ComandoGaveta(NumGaveta: Integer = 1): AnsiString; override; function TACBrEscElgin.ComandoGaveta(NumGaveta: Integer): AnsiString; var Tempo: Integer; begin with fpPosPrinter.ConfigGaveta do begin Tempo := max(TempoON, TempoOFF); Result := ESC + 'v' + 'n' + AnsiChr( Tempo ); end; end; Obrigado.
  3. Legal @mmsuporte, podemos marcar uma demonstração. Quando tiver disponibilidade me chama no Telegram @jrCarvalho ou zap 32.98861.7473. Dai te mostro o sistema e te passo todas as informações. Abs.
  4. Olá mmsuporte, não conhecia esse serviço. Inicialmente esse projeto veio de uma demanda de um cliente. Hoje temos a emissão de boleto, porém desktop, e o cliente precisava disponibilizar aos seus sacados a possibilidade de visualizar/imprimir os boletos via web e ter um histórico financeiro na web. Então de uma forma simples, sem precisar desenvolver emissão de boleto na web, criei essa facilidade. Mas nada impede de o sistema vir a ter novas funcionalidades. Vamos crescendo conforme a demanda. Tem interesse em testar ?
  5. Olá a todos , venho aqui apresentar um projeto que estou trabalhando, www.boletonatela.com.br, a idéia é disponibilizar um serviço para emissão de segunda via de boletos emitidos por sistemas desktops. Com as ultimas alterações no processo de boletos, onde todos são registrados, e com a possibilidade de pagar boleto vencido e ele atualizar, podemos disponibilizar o boleto emitido sem precisar ficar gerando novos títulos. Hoje busco parceiros para testar o serviço e evoluir o sistema. Funciona da seguinte maneira : Inicialmente eu cadastro o parceiro no sistema e esse parceiro cadastra os clientes, que são os emissores do boleto. No cadastro do cliente, informa-se a chave do dropbox do cliente. Dai basta criar no dropbox do cliente uma pasta com o nome boleto_na_tela e dentro dela duas pastas, pdf e txt. Quando o sistema do cliente gerar os boletos, pasta gravar na pasta boleto_na_tela/pdf, os boletos no formato PDF, e na pasta boleto_na_tela/txt os arquivos de remessa. Os arquivos pdfs tem que seguir um padrão de nome. O sistema vai ler o arquivo de remessa e fazer a inclusão dos títulos. A medida que forem gerados arquivo retorno e gravados na pasta, o sistema vai dando baixa nos títulos. De uma forma simples, conseguimos disponibilizar a visualização de boletos emitidos para impressão/visualização e também um histórico financeiro. O sistema vai ter um custo acessível ainda a ser definido. No momento busco parceiros para serem beta tester e me ajudarem a evoluir o sistema. Quem tiver interesse, pode me contactar no [email protected] ou no telegram @jrCarvalho. Att. Júnior Carvalho
  6. Estou com alguns exemplos que fiz em ambiente de teste utilizando sefaz de MG para o manifesto e a SEFAZ RJ para emissão da nota no ambiente de testes. Primeiro caso: Tudo ok! 1. Emiti uma nota fiscal pela sefaz RJ. 2 Cancelei em seguida a nfe emitida. 3 Fiz a consulta utilizando a sefaz MG e a nota veio com a situação cancelada. 4 Neste caso não venho evento de cancelamento. Segundo caso: 1. Emiti uma nota fiscal pela sefaz RJ 2. Fiz a consulta da nota , apenas a consulta, não fiz a confirmação, sempre passando o último NSU. 3. Cancelei a nfe na sefaz RJ. 4. Fiz uma nova consulta (várias) e não veio o evento de cancelamento. 4. Após 24 horas fiz a confirmação desta nota, não teve nenhuma mensagem de rejeição. O xml da nota veio OK sem nada informando o cancelamento. Fiz testes com evento de carta de correção e este retornou correto. Tem um furo ai ?
  7. Olá Amilton, Já resolveu seu problema ? Eu tenho um emissor independente que integra fácil a qualquer sistema e também disponibilidade para te ajudar a implementar a emissão pelo seu sistema. Se precisar trocar informações: Skype: joseadolfojr, Cel/Whatsapp: 21.99601.6875
  8. Boa a noite a todos, com o anuncio do fim do emissor gratuito está começando a surgir alguns clientes que tem solução de retaguarda e exporta arquivos de clientes e produtos no formato do emissor gratuito. não achei nada no projeto ACBr, me corrijam se eu estiver errado. Desenvolvi duas Unit's para fazer a importação e já estou utilizando. Segue link: https://github.com/juniorcarvalho/TxtEmissorNfe Abraços
  9. Boa tarde a todos, precisei no arquivo de retorno do sicoob, layout 400, ler a informação de CPF/CNPJ. O arquivo vem com os dados porém a unit não faz a leitura. Adicionei a linha Sacado.CNPJCPF := Copy(linha,343,14); Segue em anexo o arquivo modificado. É possível atualizar? ACBrBancoBancoob.pas
  10. Boa tarde a todos, estou fazendo alguns boletos utilizando FastReport e nos três arquivos de layout o campo Agência/Código Beneficiário está saindo com o código da agência duplicado. Nós códigos do layout tem as seguintes linhas : if <Banco."Numero"> = '104' then begin CedenteAgencia.Text := <Titulo."CodCedente">; CedenteAgencia2.Text := <Titulo."CodCedente">; CedenteAgencia3.Text := <Titulo."CodCedente">; end else begin CedenteAgencia.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">; CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">; CedenteAgencia3.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">; end; Não é melhor deixar a responsabilidade da montagem do campo para o método MontarCampoCodigoCedente de cada banco ? Removi as linhas e também nos campos do layout onde estava referenciando Agência / Código Cedente, deixei apenas Código Cedente segue em anexo os arquivos. BoletoFatura.fr3 BoletoCarne.fr3 Boleto.fr3
  11. Erro = Invalid Variant Type Conversion. Ao utilizar a função ValidarIE. Acontece no delphi 2009.
  12. Boa tarde, No windows, na configuração de horário marque a opção ajustar automaticamente o horário para horário de verão. ( Windows 7 = Alterar Configurações data e hora e depois alterar fuso horário) Obs: Se o horário já estiver ajustado, volte 1 hora e depois marque a opção. Fazendo isto o XML vai com -02:00.
  13. Boa a tarde a todos, estou fazendo a migração para o Trunk2, utilizo Delphi 2009. A rotina de validar a inscrição estadual está dando erro de conversão. Unit: ACBrValidador, linha : 884 está: vDigitos : array of {$IFDEF FPC}Variant{$ELSE} String{$ENDIF} ; Mudei para: vDigitos : Array of Variant; Com está mudança passou a funcionar. Não sei se é apenas no Delphi 2009.
  14. Boa tarde a todos, Fiz bastante pesquisa no forum e não consegui sanar minha dúvida quanto a forma correta de ativar o SAT. Sou uma softhouse de fora do estado de SP, estamos no RJ. Adquiri um SAT Bematech para desenvolvimento. Como faço para ativar ? Qual CNPJ utilizar ? Tenho que pegar um CNPJ de algum cliente de SP ? No software de ativação da Bematech pede CNPJ do contribuinte. Não sei como proceder neste processo. Grato
  15. Boa tarde Adriano. Esta pedindo senha para extrair o arquivo.
  16. Segue anexo. pcnLayoutTXT.pas
  17. Olá amigos, estou fazendo uma rotina de gerar o TXT da NFe utilizando o ACBr. Posteriomente vou utilizar o ACBr para importar este mesmo txt gerado. Ao fazer a importação do TXT não estava carregando os dados da nota. Ao fazer um Debug observei que na unit PCNLayoutTXT.PAS, na linha 272 estava : LoadLayout('<B01> A|versao|^id^'); Tive que fazer a alteração para LoadLayout('<B01> A|3.10|^id^'); Tirei como base as instruções referentes as versões anteriores, linha 73 e 64: LoadLayout('<B01> A|1.10|^id^'); LoadLayout('<B01> A|2.00|^id^'); //ok Com estas alterações passou a funcionar. Observando que na importação do txt a rotina verifica isto ai. PCNNFERTXT.PAS linha 127: const VERSOES_VALIDAS_LAYOUT_TXT = '|1.10|2.00|3.10|'; versao := copy(FconteudoArquivo[1], 3, 4); if pos('|' + Versao + '|', VERSOES_VALIDAS_LAYOUT_TXT) = 0 then exit; é possível atualizar esta alteração no repositório uma vez que a unit faz parte do projeto PCN ?
  18. pcnNFeR, linha 138: Adicionei um floattostr. if OnlyNumber(FloatToStr(NFe.infNFe.versao)) = '' then
  19. O decreto 45.093 de 23/12/2014 extinguiu o Cupom Mania no Rio de Janeiro, A Sefaz RJ publicou a resoluçao 873/2015 em 19/03/2015 para que não seja mais impresso no cupom fiscal as linhas referentes ao Cupom Mania.
  20. esta dando a mensagem : Erro Você não tem permissão para fazer upload deste tipo de arquivo
  21. Boa tarde a todos, fiz alguma alterações no DANFE NFC-e para Fast Report. ( Minha versão SVN: 7854 ) (Utilizo o Fast Report versão paga ) No GroupHeader DadosPagamentoHeader retirei o conteúdo do campo e fiz em tempo de execução para apenas imprimir o desconto e acréscimo caso seja diferente de zero: Evento OnBeforePrint: memTitDadosPagamento.Lines.Add('QTD. TOTAL DE ITENS'); memTitDadosPagamento.Lines.Add(''); memTitDadosPagamento.Lines.Add('Valor Produtos'); if <CalculoImposto."VDesc"> <> 0 then memTitDadosPagamento.Lines.Add('Descontos'); if <CalculoImposto."VOutro"> <> 0 then memTitDadosPagamento.Lines.Add('Acréscimos'); memTitDadosPagamento.Lines.Add('VALOR A PAGAR'); memTitDadosPagamento.Lines.Add(''); memTitDadosPagamento.Lines.Add('FORMA DE PAGAMENTO'); memDadosPagamento.Lines.Add('[Parametros."QtdeItens"]'); memDadosPagamento.Lines.Add(''); memDadosPagamento.Lines.Add('[CalculoImposto."VProd" #n%2.2f]'); if <CalculoImposto."VDesc"> <> 0 then memDadosPagamento.Lines.Add('[CalculoImposto."VDesc" #n%2.2f]'); if <CalculoImposto."VOutro"> <> 0 then memDadosPagamento.Lines.Add('[CalculoImposto."VOutro" #n%2.2f]'); memDadosPagamento.Lines.Add('[<CalculoImposto."VProd"> - <CalculoImposto."VDesc"> + <CalculoImposto."VOutro"> #n%2.2f]'); memDadosPagamento.Lines.Add(''); memDadosPagamento.Lines.Add('VALOR'); MasterData ValorTributos apenas imprime a banda se valor for diferente de zero. Evento Evento OnBeforePrint: if <CalculoImposto."vTotTrib">=0 then ValorTributos.visible := False; Ainda não consegui corrigi o campo descrição para quebrar a linha quando a descrição for grande. Segue em anexo o arquivo .fr3
  22. Tenho alguns clientes em Shopings aqui do Rio e constantemente acontece isto. (Internet de Shopping geralmente é muito ruim...) O que fiz foi criar no sistema uma opção de processar o protocolo...
  23. teve alguma alteração depois da última atualização. No evento TEFInfoECF adicione. ineTotalAPagar : RetornoECF := FloatToStr( xECF.TotalPago );
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.