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

Olá Italo A cidade é votuporanga - sp (ginfes)

Olá boa tarde... Gostaria que dessem uma olhada na unit ACBrCaixaEconomicaSICOB.pas pois para homologar o arquivo de remessa para a agencia de votuporanga - sp tive que fazer algumas alterações.... após as alterações o mesmo foi homologado... sem mais agradeço a atenção ACBrCaixaEconomicaSICOB.pas ACBrCaixaEconomicaSICOB.pas

Olá Bor tarde. Ao enviar um rps pelo metodo ACBrNFSe1.Enviar(StrToInt('1'), False); o rsp é recebido pelo servidor, mas quando o mesmo metodo vai fazer a consulta e gerar o xml a msg retorna vazio, nao gerando o xml.. percebi que isso ocorreu apos a atualização do dia 14/03/2013.. até a revision 4943 do svn o metodo estava funcionando perfeitamente... se alguem puder me ajudar agradeço desde já...

Olá pessoal.. ainda não consegui resolver o problema do fortes report, mas instalei o quick e está mostrando o preview corretamente, porem quando abre o relatorio, ele nao aparece maximizado, gostaria de saber como faço pra dar preview maximizado no quick?

também não resolveu.... ocorre o mesmo erro...

procedure TACBrBoletoFCFortes.Imprimir; var frACBrBoletoFortes : TACBRBoletoFCFortesFr; RLFiltro : TRLCustomSaveFilter; RLLayout: TRLReport; begin inherited Imprimir; // Executa verificações padroes {$IFDEF FPC} LoadPortugueseStrings; {$ELSE} // Para que serve esse método ?? // SetVersion( CommercialVersion, ReleaseVersion, CommentVersion ); {$ENDIF} frACBrBoletoFortes := TACBrBoletoFCFortesFr.Create(Self); try with frACBrBoletoFortes do begin case LayOut of lCarne : RLLayout:= BoletoCarne; else RLLayout:= LayoutBoleto; end; RLPrinter.Copies := NumCopias ; // Aparentemente isso está errado... RLLayout.PrintDialog := MostrarSetup; if Filtro = fiNenhum then begin if MostrarPreview then RLLayout.PreviewModal else RLLayout.Print; end else begin if RLLayout.Prepare then begin case Filtro of fiPDF : RLFiltro := RLPDFFilter1; fiHTML : RLFiltro := RLHTMLFilter1; else exit ; end ; {$IFDEF FPC} RLFiltro.Copies := NumCopias ; {$ENDIF} RLFiltro.FileName := NomeArquivo ; {$IFDEF FPC} RLFiltro.Pages := RLLayout.Pages ; RLFiltro.FirstPage := 1; RLFiltro.LastPage := RLLayout.Pages.PageCount; RLFiltro.Run; {$ELSE} RLFiltro.FilterPages( RLLayout.Pages ); // quando passa por esta linha que o erro acontece.....até aqui vai tudo bem....esta é a função imprimir que falei mais acima {$ENDIF} end; end; end; finally frACBrBoletoFortes.Free ; end; end;

segue função que fiz para gerar pdf e abrir o mesmo.... procedure TDmContasReceber.GerarPDFBoletos; var CaminhoArquivo: AnsiString; begin CaminhoArquivo := DMPrinc.CaminhoExe + 'Boletos\' + FormatDateTime('yyyymm', ACBrBoleto1.ListadeBoletos.Objects[0].DataDocumento); if not DirectoryExists(CaminhoArquivo) then ForceDirectories(CaminhoArquivo); ACBrBoleto1.ACBrBoletoFC.NomeArquivo := CaminhoArquivo + '\' + ACBrBoleto1.ListadeBoletos.Objects[0].NumeroDocumento + '.PDF' ; ACBrBoleto1.GerarPDF; ShellExecute(Handle, nil, ACBrBoleto1.ACBrBoletoFC.NomeArquivo , nil, nil, SW_SHOWNORMAL); end; Obrigado Pela Ajuda Danilo.

nao uso componente para skin....

procedure TACBrBoletoFCClass.GerarPDF; var FiltroAntigo : TACBrBoletoFCFiltro; MostrarPreviewAntigo : Boolean; MostrarSetupAntigo : Boolean; begin if NomeArquivo = '' then raise Exception.Create( ACBrStr('NomeArquivo não especificado')) ; FiltroAntigo := Filtro; MostrarPreviewAntigo := MostrarPreview; MostrarSetupAntigo := MostrarSetup; try Filtro := fiPDF; MostrarPreview := false; MostrarSetup := false; Imprimir; ====>>> aqui é onde dá o erro quando tento gerar o pdf (o mesmo erro); finally Filtro := FiltroAntigo; MostrarPreview := MostrarPreviewAntigo; MostrarSetup := MostrarSetupAntigo; end; end; Obrigado

Se eu utilizar o componente acbrboletofcquick funciona perfeitamente.... mas nao consigo deixar ele maximizado na hora do preview...