Carregar formas de pgto ecf

[vca_rj]

Olá pessoal!

Gostaria de obter informações sobre a função Carregar Formas de Pagamento do ECF.

As formas de pagamento deve ser carregada do ECF para o BD ou do DB para o ECF?

Todas as vezes que for inicializar o Programa(ECF) é preciso fazer essa carga?

Para quem já tem conhecimento em trabalhar com ECF essas prerguntas são até tolas, mas pra quem esta montando um PAF pela primeira vez, não é!

Abraços...

[Régys Silveira]

O normal é:

1. Carregar as formas pelo componente,

2. Carregar as formas cadastradas no seu aplicativo,

3. Comparar

4. Cadastrar as que faltam

4.1. Fazer algum controle interno do aplicativo se necessário

[vca_rj]

Com relação ao carregamento do modelo de impressão, precisa carregar algum tipo de modelo p/bobina?

E com relação, também, das alíquotas, como proceder? É do mesmo jeito da forma de pagamento?

[Régys Silveira]

Quanto as aliquotas, mesmo procedimento.

Quanto ao carregamento do modelo de impressão não entendi o questionamento.

[vca_rj]

É que eu tenho os fontes de um PAF-ECF de um amigo, ele me passou para que eu pudesse comparara e criar o meu e no OnCreate ele carrega um modelo de impressão para a ECF. Veja o código:

procedure PreencherBobina;

var

sCliche,sCNPJ, sIE: string;

Arquivo: TStringList;

LinhasCliche: integer;

ArquivoCliche: TStringList;

i: Integer;

begin

try

ArquivoCliche := TStringList.Create;

ArquivoCliche.Clear;

ArquivoCliche.Text:= Frm_uMenuPrincipal.ACBrECF.Cliche;

LinhasCliche := ArquivoCliche.Count;

sCNPJ := Frm_uMenuPrincipal.ACBrECF.CNPJ;

sIE := Frm_uMenuPrincipal.ACBrECF.IE;

Arquivo := TStringList.Create;

Arquivo.Clear;

Arquivo.Add('[Cabecalho]');

for i:=0 to ArquivoCliche.Count-1 do begin

Arquivo.Add('LIN00'+inttostr(i)+'=

'+ArquivoCliche.Strings+' ');

end;

Arquivo.Add('LIN00'+IntToStr(LinhasCliche)+'=

CNPJ: 01.234.567/0001-22 IE: 012.345.678.90 ');

LinhasCliche:=LinhasCliche+1;

Arquivo.Add('LIN00'+IntToStr(LinhasCliche)+'=

Data Hora

COO: NumCupom

');

LinhasCliche:=LinhasCliche+1;

Arquivo.Add('LIN00'+IntToStr(LinhasCliche)+'=

---

');

Arquivo.Add('');

Arquivo.Add('[Cabecalho_Item]');

Arquivo.Add('LIN000=ITEM CODIGO DESCRICAO');

Arquivo.Add('LIN001=QTD x UNITARIO Aliq VALOR (R$)');

Arquivo.Add('LIN002=

---

');

Arquivo.Add('MascaraItem=III CCCCCCCCCCCCC DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDQQQQQQQQ UU x VVVVVVVVVVVVV AAAAAA TTTTTTTTTTTTT');

Arquivo.Add('');

Arquivo.Add('[Rodape]');

Arquivo.Add('LIN000=

---

');

Arquivo.Add('LIN001=

Data Hora

AgilePDV V.1.0

');

Arquivo.Add('LIN002=

Obrigado Volte Sempre ');

Arquivo.Add('LIN003=

---

');

Arquivo.Add('');

Arquivo.Add('[Formato]');

Arquivo.Add('Colunas=48');

Arquivo.Add('HTML=1');

Arquivo.Add('HTML_Title_Size=2');

Arquivo.Add('HTML_Font=');

Frm_uMenuPrincipal.ACBrECF.MemoParams.Clear;

Frm_uMenuPrincipal.ACBrECF.MemoParams.Text:= Arquivo.Text;

finally

if Assigned(Arquivo) then

FreeAndNil(Arquivo);

if Assigned(ArquivoCliche) then

FreeAndNil(ArquivoCliche);

end;

end;

[Régys Silveira]

Isso que você passou e para mudar o modelo da saída da bobina do ACBrECF, basta fazer uma vez quando abrir o aplicativo ou mudar diretamente no componente e deixar gravado no form mesmo.

[vca_rj]

É preciso fazer isso?

[Régys Silveira]

Não, a bobina padrão já supre todas as necessidades, mas se você quiser personalizar algo ai sim seria interessante.

[vca_rj]

Obrigado....