[Elgin - Abrir gaveta.]

Bom dia @Daniel Simoes, 

sim, nesse caso qual a melhor forma de implementar ? de acordo com o modelo ?

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

[Vizualizar/Imprimir boletos na web, www.boletonatela.com.br]

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.

[Vizualizar/Imprimir boletos na web, www.boletonatela.com.br]

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 ?

[Vizualizar/Imprimir boletos na web, www.boletonatela.com.br]

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

[Manifestação Do Destinatário E Nf-E Cancelada]

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 ?

[Ajuda para configurar a NFe.]

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

[Rotina para importar TXT de produto e cliente formato emissor gratuito]

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

[ACBrBancoBancoob - LerRetorno400 - CPF/CNPJ do Sacado]

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

[FastReport - Boleto - CedenteAgencia duplicando agencia]

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

[TACBrValidador.ValidarIE - Erro]

Erro = Invalid Variant Type Conversion.

Ao utilizar a função ValidarIE.

Acontece no delphi 2009.

[Erro de Data-Hora de Emissao]

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.

 

 

[TACBrValidador.ValidarIE - Erro]

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.

 

[Softhouse Ativar SAT Bematech Homologação]

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

 

[Sat Rb-1000 Fi - Dúvidas]

Boa tarde Adriano.

Esta pedindo senha para extrair o arquivo.

[Nfce Erro - Element '{Http://www.portalfiscal.inf.br/nfe}Total']

Onde está o(s) iten(s) da nota ? Não tem item no seu XML....

[Importar Txt Nfe - Pcnlayouttxt]

Segue anexo.

pcnLayoutTXT.pas

[Importar Txt Nfe - Pcnlayouttxt]

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 ? 

[Nfce - Rejeição 226 - Codigo Da Uf Do Emitente Diverge Da Uf Autorizadora]

No ACBrMonitor configure UF do servidor para RJ e não para RS. 

[Erro Com Acbrinstall (Pcnnfer.pas: Undeclared Identifier: 'onlynumber')]

pcnNFeR, linha 138:
 
Adicionei um floattostr.

 

 if OnlyNumber(FloatToStr(NFe.infNFe.versao)) = '' then

[Resolução Sefaz 873 Rio De Janeiro - Retira Mensagem Cupom Mania]

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.

 

 

 

[Alteraçoes Danfe Nfc-E Fast Report]

esta dando a mensagem : Erro Você não tem permissão para fazer upload deste tipo de arquivo

[Alteraçoes Danfe Nfc-E Fast Report]

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

[Hora Do Retorno Da Nf-E Internet Caiu]

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

[Crt Não É Executado]

teve alguma alteração depois da última atualização.

 

No evento TEFInfoECF adicione.

 

      ineTotalAPagar :

        RetornoECF := FloatToStr( xECF.TotalPago );