Jump to content

Emerson Luis

Membros
  • Content Count

    30
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Emerson Luis

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. para cada passo da emissão do cupom, aparecem estes erros, por isso coloquei a função seguida do erro ... ex: funcão: Abrir Cupom aparecem as mensagens ((Resposta COO nao encontrada e Resposta CCF nao encontrada) e assim por diante
  2. Olá daniel para o erro acontecer basta abrir o ecfteste e fazer os seguintes passos. ex: passo (erro) abrir cupom (Resposta COO nao encontrada, Resposta CCF nao encontrada), vender item (Resposta numero item nao encontrada, Resposta valorliquido nao encontrada), subtotalizar (Resposta subtotal nao encontrada), efetuar pagamento (Resposta saldo nao encontrada) e fechar cupom (Resposta COO nao encontrada, Resposta Total liquido nao encontrada). lembre-se teste feito com: SubModeloECF=FS-700M NumVersao=010100 ModeloECF=ecfDaruma Porta=COM1 espero ter ajudado Obrigado
  3. Olá Isaque. Mesmo a empresa sendo simples nacional deverá usar o CST? Ou utilizar o CSOSN 900 e informar os impostos nas devidas tags?? Obrigado
  4. verifique se o internet explorer está em modo off-line
  5. Caro jocimar, olha o arquivo ACBR.INC . // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ // {$DEFINE QReport_PDF} é só descomentar e pronto
  6. tbm estou com este problema para o ginfes - Votuporanga -SP.
  7. Emerson Luis

    Ibptax 0.0.2

    Olá EmBarbosa. É esse mesmo o problema... Postei aqui pois havia enviado alteracoes neste topico, me desculpe nao tive intenção de quebras as regras do forum Abraços e Obrigado
  8. nao daria pra exportar no formato da ibpt?????
  9. Emerson Luis

    Ibptax 0.0.2

    Olá Regys. Já fiz a alteração do repositorio, estou usando a revision 5541 do dia 4/7/13 abraços
  10. Emerson Luis

    Ibptax 0.0.2

    Boa Tarde Regys Ao tentar abrir o arquivo da tabela ibpt já gravado no disco, o componente apresenta erro na conversão de string para float. o erro dá na função popular itens. imagino que seja a ordem de passar o stringlist, pois esta passando a descrição para a aliquota. obs: quando faz o download do arquivo funciona corretamente.. Att
  11. Emerson Luis

    Ibptax 0.0.2

    Olá Regys. Alterei a função procurar para retornar a descrição do ncm, se achar interessante coloque nos fontes... com a mudança do svn o link da tabela tbm mudou: svn://svn.code.sf.net/p/acbr/code/trunk/Exemplos/ACBrIBPTax/tabela/AcspDeOlhoNoImpostoIbptV.0.0.2.csv tem que alterar o exemplo.. Segue Codigo Alterado. função botao pesquisar: procedure TForm1.btnPesquisarClick(Sender: TObject); var ex, Descricao: String; tabela: Integer; aliqNac, aliqImp: Double; begin if ACBrIBPTax1.Procurar(edNCM.Text, ex, Descricao, tabela, aliqNac, aliqImp, ckbBuscaNCMParcial.Checked) then begin ShowMessage( 'Código: ' + edNCM.Text + sLineBreak + 'Descricao: ' + Descricao + sLineBreak + 'Exceção: ' + ex + sLineBreak + 'Tabela: ' + IntToStr(tabela) + sLineBreak + 'Aliq Nac: ' + FloatToStr(aliqNac) + sLineBreak + 'Aliq Imp: ' + FloatToStr(aliqImp) ); end else showmessage('Código não encontrado!'); end; e função procurar function TACBrIBPTax.Procurar(const ACodigo: String; var ex, Descricao: String; var tabela: Integer; var aliqNac, aliqImp: Double; const BuscaParcial: Boolean): Boolean; var I: Integer; Igual: Boolean; begin if Itens.Count <= 0 then EACBrIBPTax.Create('Tabela de itens ainda não foi aberta!'); Result := False; for I := 0 to Itens.Count - 1 do begin if BuscaParcial then Igual := Pos(Trim(ACodigo), Trim(Itens.NCM)) > 0 //CompareText(Trim(ACodigo), Trim(Itens.NCM)) < 0 else Igual := SameText(Trim(ACodigo), Trim(Itens.NCM)); if Igual Then begin ex := Itens.Excecao ; tabela := Integer(Itens.Tabela) ; aliqNac := Itens.AliqNacional ; aliqImp := Itens.AliqImportado ; Descricao := Itens.Descricao; Result := True; Exit; end; end; end; att Obrigado
  12. Bom dia Juliana Em primeiro lugar coloquei o fpTamanhoAgencia := 4, pois ao calcular o codigo do cedente na função TACBrCaixaEconomicaSICOB.CalcularDVAgCD a agencia ficava com um 0 a mais. na funçao function TACBrCaixaEconomicaSICOB.CalcularDVAgCD, coloquei um parametro pois quando é chamada pelo reader gera um digito e quanto chamada pelo trailer tem que gerar outro. tbm fiz alterações na GerarRegistroHeader240, pois a variavel Aconvenio deve receber o codigo do cedente com o digito. ao { GERAR REGISTRO-HEADER DO ARQUIVO } na posicao 33 a 48 estava passando padL(ACodConvenio, 16, '0'){+ACodCedenteDVAg} coloquei padL(ACodConvenio, 15, '0'){+ACodCedenteDVAg}. no registro Q na posição 154/154 é obrigatorio passar o tipo de inscrição mesmo que nao tenha avalista. no {REGISTRO TRAILER DO LOTE} troque zeros por brancos onde era necessário... OBs: dessa forma o arquivo de remessa foi homologado pela caixa... Obrigado...
×
×
  • Create New...