arianygatinha1981
Novato
Registrado: Quarta-Feira, 13 de Agosto de 2014
Mensagens: 27
Localização: Blumenau - SC
|
 Enviada: Sex Ago 29, 2014 1:04 pm Assunto: ACbr ECF - Rotina fecha cupom dúvida. |
 |
|
Pessoal, eu tô olhando essa rotina de fechamento do cupom no exemplo do ACbr, o que DE FATO é necessário nessa rotina?
| Código: | Obs := 'Componentes ACBr|http://acbr.sourceforge.net' ;
IndiceBMP := '0';
if InputQuery('Fechar Cupom',
'Se Necessário digite alguma Observaçao (até 8 linhas)'+#10+
'O sinal | (pipe) será convertido para #10 (quebra de linha)' ,
Obs ) then
begin
if (ACBrECF1.Modelo = ecfDaruma) and (ACBrECF1.MFD) then
if Not InputQuery('Impressao de imagem BMP ',
'Digite o Indice do BMP que deseja utilizar' ,
IndiceBMP ) then
Exit;
// informações que devem ir no rodapé do cupom obrigatoriamente
// conforme a legislação do paf-ecf
// preencha somente as informações que for utilizar, o que não foi informado
// não será impresso
ACBrECF1.InfoRodapeCupom.MD5 := '12345678901234567890123456789012';
ACBrECF1.InfoRodapeCupom.Dav := '0000000001';
ACBrECF1.InfoRodapeCupom.DavOs := '0000000002';
ACBrECF1.InfoRodapeCupom.PreVenda := '0000000003';
ACBrECF1.InfoRodapeCupom.CupomMania := cbxUF.Text = 'RJ';
ACBrECF1.InfoRodapeCupom.MinasLegal := cbxUF.Text = 'MG';
ACBrECF1.InfoRodapeCupom.ParaibaLegal := cbxUF.Text = 'PB';
ACBrECF1.InfoRodapeCupom.NotaLegalDF.Imprimir := cbxUF.Text = 'DF';
if ACBrECF1.InfoRodapeCupom.NotaLegalDF.Imprimir then
begin
ACBrECF1.InfoRodapeCupom.NotaLegalDF.ProgramaDeCredito := True;
ACBrECF1.InfoRodapeCupom.NotaLegalDF.ValorICMS := 123456.99;
ACBrECF1.InfoRodapeCupom.NotaLegalDF.ValorISS := 123456.88;
end;
// 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
ACBrECF1.InfoRodapeCupom.Imposto.ValorAproximado := 1.23; // informar o valor aproximado calculado a partir dos itens
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';
Obs := StringReplace(Obs,'|',#10,[rfReplaceAll,rfIgnoreCase]) ;
ACBrECF1.FechaCupom( Obs, StrToIntDef(IndiceBMP, 0) );
mResp.Lines.Add( 'Fecha Cupom: '+#10+Obs );
AtualizaMemos ;
end ; |
Obrigada, |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
