Emerson Luis

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

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

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

verifique se o internet explorer está em modo off-line

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

tbm estou com este problema para o ginfes - Votuporanga -SP.

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

nao daria pra exportar no formato da ibpt?????

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

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

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

Bom dia Obrigado Juliana..

Boa tarde Italo.. Problema resolvido, obrigado..

Boa tarde Italo.. Problema resolvido, obrigado..

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