Ir para conteúdo
  • Cadastre-se

raosistemas

Membros
  • Total de ítens

    417
  • Registro em

  • Última visita

Tudo que raosistemas postou

  1. raosistemas

    GNRE - Online

    onde eu posso baixar a versão funcional?
  2. raosistemas

    GNRE - Online

    Boa tarde gente... está funcionando? onde posso baixar a versao atualizada? grande abraço!
  3. raosistemas

    GNRE - Online

    Gostaria de saber se foi integrado com o Suite de componentes ACBR... Agradeço as respostas!!! Alguém gerou algo apenas para gerar o XML e realizar o envio pelo próprio sistema disponibilizado? Grande abraço!!!
  4. raosistemas

    GNRE - Online

    Gostaria de saber se foi integrado com o Suite de componentes ACBR...
  5. Referente a FCI, estou pensando simplesmente em criar algum campo no cadastro do produto e incluir na TAG da NFE, já existente, isso pode ser feito? At. RAO
  6. Maravilha... funcionou belezinha!!! Grande abraço!
  7. Vi pelo forum diversos posts de como agir em caso de empresa enquadrada no simples nacional devolver material para empresa do regime normal. Como ainda não localizei uma informação 100% segura resolvi abrir esse post. Meu cliente (Simples Nacional) precisa devolver uma material adquirido de uma empresa do regime normal, com destaque de ICMS, IPI e ICMS ST... como devemos proceder? Agradeço!
  8. desculpe, segue anexo... fiscnet_log.txt
  9. Segue novo log! Corrigi diversos problemas...a única coisa é que parece que o cupom não finaliza... quem sabe alguém olhando o log possa me ajudar... resumo do que está sendo enviado: //abertura do cupom... ACBrECF1.Device.Baud := StrToInt(cbxVelocidade.Text); ACBrECF1.Porta := cbxPortaComunicacao.Text; ACBrECF1.TimeOut := 15; ACBrECF1.Operador := 'CAIXA'; ACBrECF1.Ativar; AtivarMenus(True); btnAtivarDesativar.Caption := 'Desativar'; btnAtivarDesativar.Tag := 99; case ACBrECF1.Estado of estVenda, estPagamento: begin ShowMessage('Cupom fiscal aberto, o cupom será cancelado!'); ACBrECF1.CancelaCupom; end; estNaoFiscal: begin ShowMessage('Comprovante não fiscal aberto, o comprovante será cancelado!'); ACBrECF1.CancelaNaoFiscal; end; end; ACBrECF1.CarregaAliquotas; ACBrECF1.CarregaFormasPagamento; ACBrECF1.CarregaComprovantesNaoFiscais; ACBrECF1.CarregaRelatoriosGerenciais; ACBrECF1.CarregaUnidadesMedida; ACBrECF1.IdentificaOperador('CAIXA'); lblModeloImpressora.Caption := ACBrECF1.ModeloStr + sLineBreak + ACBrECF1.SubModeloECF; // venda de itens // resumindo é um loop dos itens... tipoaliquota:='NN'; //a empresa é do simples ModoDescAcresc := 'D'; TipoDescAcresc := '%'; frmPrincipal.ACBrECF1.VendeItem( frmPrincipal.pbiCODPROD.AsString, frmPrincipal.prodescfab.AsString, tipoaliquota, arredondar(frmPrincipal.pbiQUANT.AsFloat,1), arredondar(frmPrincipal.pbiUNITARIO.AsFloat,2),0, 'UN', TipoDescAcresc, ModoDescAcresc ); // subtotalizar frmPrincipal.ACBrECF1.SubtotalizaCupom(0,''); // registrar pagamentos Valorpago := StrToFloat(edtPagtoVlr.Text); frmPrincipal.ACBrECF1.EfetuaPagamento(Copy(cbxMeioPagto.Text, 1, 2),Valorpago,'',false); AtualizarTela; StatusBar1.Panels.Clear; with StatusBar1.Panels.Add do begin valorfalta:=(frmprincipal.ACBrECF1.Subtotal); if Valorfalta > 0 then Text := 'A Pagar: ' + FormatFloat(',#0.00', Valorfalta) else Text := 'Troco: ' + FormatFloat(',#0.00', Valorfalta); Width := 300; end; frmPrincipal.ACBrECF1.SubtotalizaCupom(0,''); // coloquei isso agora... tentei deixar sem isso também... if StrToFloat(edtValorTroco.Text) >= 0 then // fechamento indicebmp:='0'; Observacao := edtFechamentoObs1.Text + sLineBreak + edtFechamentoObs2.Text + sLineBreak + edtFechamentoObs3.Text; // lei 12.741/2013 transparencia dos impostos // ACBrECF1.InfoRodapeCupom.Imposto.Texto := '...'; utilize essa propriedade se quiser personalizar o texto exemplo: Valor impostos %s (%s %) meu texto frmprincipal.ACBrECF1.InfoRodapeCupom.Imposto.ValorAproximado := impostopro; // informar o valor aproximado calculado a partir dos itens frmprincipal.ACBrECF1.InfoRodapeCupom.Imposto.Fonte := 'IBPT'; // informar a fonte de onde veio a informação para calculo // ER 02.01 - Requisito XXVIII item 8 //ACBrECF1.InfoRodapeCupom.NF := '123456'; Observacao := StringReplace(Observacao,'|',#10,[rfReplaceAll,rfIgnoreCase]) ; frmprincipal.ACBrECF1.FechaCupom(Observacao,StrToIntDef(IndiceBMP, 0));
  10. muito bacana Tenório... quanto ao "automaticamente manifestadas"... significa o que? e se o material não chegar, etc... vc pode fornecer algum fonte disso? Atenciosamente RAO.
  11. Boa tarde, como posso fazer para controlar os meus xmls de entrada através da consulta a nfe destinadas? Pensei em algo assim... Ler as nfes destinadas e salvar em uma base de dados se ainda não existir lá... criar um campo status para o controle... Alguém já desenvolveu algo assim e poderia dar um exemplo?
  12. como salvar o pdf?
  13. como salvar o pdf?
  14. na verdade pq é um sistema antigo, desenvolvido em delphi 5... e tenho que atualizar nele mesmo...
  15. criei alguns campos em minha base de dados para armazenar os xmls... gravo o das minhas entradas, notas emitidas e cartas de correção... a contabilidade acessa minha base através de um exe específico pra eles... agora me questionaram sobre os pdfs... querem ter acesso também... o que eu procuro é o seguinte: (uso mysql com zeoslib) Criei campos blobs na minha base... notas... campo PDF tipo blob... etc... como eu salvo o pdf no campo blob e carrego? outra funcao que ela deseja é a seguinte... clica com botao direito no grid... salvar pdf localmente... ai grava o det.pdf na maquina dela... Agradeço... RAO
  16. 3069-rejeição -valor do produto difere do produto valor unitário de comercialização e quantidade comercial... quando importo o TXT enviado pelo despachante no sistema emissor gratuito a nota é validada normalmente... ao importar o txt pelo acbr nfe... dá o erro acima ao validar.
  17. Na verdade eu adaptei o proprio sistema de ex... pode ser que eu nao esteja usando o modelo correto no ACBR? pq utilizo o mesmo sistema com impressora bematech e daruma... e tudo funciona normalmente...
  18. em anexo o que ele imprime do cupom...
  19. Resporta COO não encontrada... Aparece o cabeçalho... Aparece o titulo das colunas de itens... aí para... log_elgin.txt
  20. Algum retorno gente? ainda não consegui fazer funcionar essa Elgin!
  21. Qualquer novidade informar... grande abraço a todos os participantes!
  22. Log anexado... me ajudem... Quando clica para abrir cupom o erro ocorre... At. RAO object ACBrECF1: TACBrECF Modelo = ecfFiscNET Porta = 'COM3' ReTentar = False TimeOut = 7 IntervaloAposComando = 0 Operador = 'Caixa' MsgAguarde = 'Aguardando a resposta da Impressora: %d segundos' MsgTrabalhando = 'Impressora est'#225' trabalhando' BloqueiaMouseTeclado = False MsgRelatorio = 'Imprimindo %s %d'#170' Via ' MsgPausaRelatorio = 'Destaque a %d'#170' via, <ENTER> proxima, %d seg.' PaginaDeCodigo = 850 FormMsgFonte.Charset = DEFAULT_CHARSET FormMsgFonte.Color = clWindowText FormMsgFonte.Height = -11 FormMsgFonte.Name = 'Tahoma' FormMsgFonte.Style = [] FormMsgColor = clHighlight OnAntesAbreCupom = ACBrECF1AntesAbreCupom OnChangeEstado = ACBrECF1ChangeEstado OnPAFCalcEAD = ACBrECF1PAFCalcEAD DecimaisQtd = 2 MemoParams.Strings = ( '[Cabecalho]' 'LIN000=<center><b>RAO Sistemas</b></center>' 'LIN001=<center>Rua General Osorio, 222 - Santa Efigenia</center>' 'LIN002=<center>S'#227'o Paulo - SP - 01213-000</center>' 'LIN003=<center>CNPJ: 08.449.080/0001-79</center>' 'LIN004=<table width=100%><tr><td align=left><code>Data</code> <c' + 'ode>Hora</code></td><td align=right>COO: <b><code>NumCupom</code' + '></b></td></tr></table>' 'LIN005=<hr>' ' ' '[Cabecalho_Item]' 'LIN000=ITEM CODIGO DESCRICAO' 'LIN001=QTD x UNITARIO Aliq VALOR (R$)' 'LIN002=<hr>' 'MascaraItem=III CCCCCCCCCCCCCC DDDDDDDDDDDDDDDDDDDDDDDDDDDDDQQQQ' + 'QQQQ UU x VVVVVVVVVVVVV AAAAAA TTTTTTTTTTTTT' ' ' '[Rodape]' 'LIN000=<hr>' 'LIN001=<table width=100%><tr><td align=left><code>Data</code> <c' + 'ode>Hora</code></td><td align=right>Projeto ACBr: <b><code>ACBR<' + '/code></b></td></tr></table>' 'LIN002=<center>Obrigado Volte Sempre</center>' 'LIN003=<hr>' ' ' '[Formato]' 'Colunas=48' 'HTML=1' 'HTML_Title_Size=2' 'HTML_Font=<font size="2" face="COURIER NEW">') OnBobinaAdicionaLinhas = ACBrECF1BobinaAdicionaLinhas Device.Baud = 115200 Device.Parity = pEven Device.HandShake = hsRTS_CTS Device.HardFlow = True ArqLOG = 'c:\log_elgin.txt' ConfigBarras.MostrarCodigo = False ConfigBarras.LarguraLinha = 3 ConfigBarras.Altura = 10 Left = 346 Top = 230 end e configuracoes... log_elgin.txt
  23. Opa... na verdade não ocorre erro nenhum... imprime somente o cabeçalho...
  24. Primeiramente boa tarde amigos... como devo ativar esse log? Abraço!
  25. Boa noite, primeiramente não sei se criei meu novo post no local correto, mas o fato é que estou tendo problemas com a minha impressora fiscal mencionada acima, e que hoje funciona em um pequeno terminal... baixei as dlls da elgin... (tools... ecf...) utilizei o modelo fiscnet... COM1... velocidade 115200, paridade Even, data=8, softflow=false, hardflow=true... ao clicar para abrir o cupom fiscal... com o método que já funciona com bematech, daruma, etc... ele imprime o cabeçalho e o seguinte erro ocorre... ...Resposta CCO não encontrada alguém já se deparou com o problema?
×
×
  • 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.

The popup will be closed in 10 segundos...