PAF-ECF – Mesclando DAV’s para emissão de cupom fiscal

Neste artigo vou comentar sobre algumas pequenas e importantes mudanças que ocorreram no roteiro de homologação do PAF-ECF, a partir da sua versão 1.04. No vídeo do curso do PAF-ECF na parte referente ao DAV, foi mostrada a forma usada na versão 1.03 do roteiro de homologação.

Vamos lá:

No ITEM 2, subitem C, pede que o CNPJ do estabelecimento emitente, seja devidamente consistido. E foi adicionado mais um tópico que pede para imprimir os dados, denominação ou nome, e o CNPJ ou CPF do destinatário, também devidamente consistido.

Para realizar esta consistência e bem simples, haja vista a grande disponibilidade de funções que podem ser encontradas na internet. Segue abaixo um destes modelos:

function VerificaCNPJ(fCNPJ: String): Boolean;

Var

d1, d4, xx, nCount, fator, resto, digito1, digito2: Integer;

Check: String;

begin

d1 := 0;

d4 := 0;

xx := 1;

for nCount := 1 to Length(fCNPJ) - 2 do

begin

if Pos(Copy(fCNPJ, nCount, 1), '/-.') = 0 then

begin

if xx < 5 then

begin

fator := 6 - xx;

end

else

begin

fator := 14 - xx;

end;

d1 := d1 + StrToInt(Copy(fCNPJ, nCount, 1)) * fator;

if xx < 6 then

begin

fator := 7 - xx;

end

else

begin

fator := 15 - xx;

end;

d4 := d4 + StrToInt(Copy(fCNPJ, nCount, 1)) * fator;

xx := xx + 1;

end;

end;

resto := (d1 mod 11);

if resto < 2 then

begin

digito1 := 0;

end

else

begin

digito1 := 11 - resto;

end;

d4 := d4 + 2 * digito1;

resto := (d4 mod 11);

if resto < 2 then

begin

digito2 := 0;

end

else

begin

digito2 := 11 - resto;

end;

Check := IntToStr(digito1) + IntToStr(digito2);

if Check <> Copy(fCNPJ, succ(Length(fCNPJ) - 2), 2) then

begin

Result := False;

end

else

begin

Result := True;

end;

end;

function VerificaCpf(fCPF: String): Boolean;

Var

d1, d4, xx, nCount, resto, digito1, digito2: Integer;

Check: String;

Begin

d1 := 0;

d4 := 0;

xx := 1;

for nCount := 1 to Length(fCPF) - 2 do

begin

if Pos(Copy(fCPF, nCount, 1), '/-.') = 0 then

begin

d1 := d1 + (11 - xx) * StrToInt(Copy(fCPF, nCount, 1));

d4 := d4 + (12 - xx) * StrToInt(Copy(fCPF, nCount, 1));

xx := xx + 1;

end;

end;

resto := (d1 mod 11);

if resto < 2 then

begin

digito1 := 0;

end

else

begin

digito1 := 11 - resto;

end;

d4 := d4 + 2 * digito1;

resto := (d4 mod 11);

if resto < 2 then

begin

digito2 := 0;

end

else

begin

digito2 := 11 - resto;

end;

Check := IntToStr(digito1) + IntToStr(digito2);

if Check <> Copy(fCPF, succ(Length(fCPF) - 2), 2) then

begin

Result := False;

end

else

begin

Result := True;

end;

end;

Já no ITEM 5, foram adicionadas as principais mudanças.

No item 5.1 solicita a gravação do CCF no pedido/orçamento que esta originando o DAV. Para esclarecer, CCF (Contador de Cupom Fiscal), é um dos diversos contadores que o ECF possui como, por exemplo, COO, CRZ, CRO, etc...

No item 5.2, é solicitado que o aplicativo disponha de opção para mesclar os DAV’s, ou seja, suponhamos que o cliente foi ao estabelecimento e realizou um orçamento em um determinado dia. Em outro dia, o mesmo cliente retorna e solicita um segundo orçamento contendo produtos diferentes do primeiro. Após isso, este cliente resolve efetivar a compra de alguns produtos contidos nestes orçamentos.

Neste caso o aplicativo deverá fornecer opção para que o vendedor selecione itens dos dois orçamentos, conforme solicitação do cliente e gere um terceiro orçamento/pedido.

Eu vejo para isso uma solução bem simples, que seria a criação de uma tela no aplicativo onde seria efetuado um filtro para selecionar os orçamentos realizados pelo cliente em uma determinada faixa de período, onde no primeiro grid seriam exibidos os orçamentos encontrados, e num outro grid, seriam exibidos os itens do respectivo orçamento.

Ainda nesta tela adiciona-se um componente ClientDataSet, para que seja criado uma tabela temporária apenas para armazenar os dados do item selecionado em cada orçamento.

Após confirmar os dados, o aplicativo apenas criaria o pedido a partir dos dados do cliente que já figura nos orçamentos anteriores, adicionando os itens selecionado no ClientDataSet.

Quaisquer dúvidas fiquem a vontade para postarem as perguntas.

Um abraço!