DD155

Fazer download em txt, pdf ou txt
Fazer download em txt, pdf ou txt
Você está na página 1de 33

DD155 - Documentação, provas e riscos de auditoria

APRESENTAÇÃO DA DISCIPLINA

1. DOCUMENTAÇÃO DOS PAPÉIS DE TRABALHO E EXECUÇÃO DA AUDITORIA

1.1. DEFINIÇÃO E FINALIDADE DOS PAPEIS DE TRABALHO

var CustoInsumos, PrecoVenda: Real;


i: integer;
valorimp, x_desc: Real;
NomeArq: string;
qtprod: Integer;
begin

DMDados.TabItens.Open;
DMDados.TabItens.IndexName := '';

TabAuxResumo.Open;
TabAuxResumo.IndexFieldNames := 'Produto;Cor;Indice;Tamanho;Cliente;Lancamento';
TabAuxResumo.First;
while not TabAuxResumo.EOF do
TabAuxResumo.Delete;

if DMDados.TabPedido.FieldByName('Desconto').AsFloat <> 0 then


x_desc :=
DMDados.TabPedido.FieldByName('Desconto').AsFloat/DMDados.TabPedido.FieldByName('Va
lor').AsFloat
else
x_desc := 0;

DMDados.TabItens.Open;
DMDados.TabItens.IndexName := '';

CDSItens.Open;
CDSItens.First;
while not CDSItens.EOF do
CDSItens.Delete;

CDSItens1.Open;
CDSItens1.IndexFieldNames := 'Produto;Cor';
CDSItens1.First;
while not CDSItens1.EOF do
CDSItens1.Delete;

if DMDados.TabItens.FindKey([DMDados.TabPedido.FieldByName('Loja').AsString,
DMDados.TabPedido.FieldByName('Local').AsString,DMDados.TabPedido.FieldByName('Pedi
do').AsString]) then
begin
While (DMDados.TabPedido.FieldByName('Loja').AsString =
DMDados.TabItens.FieldByName('Loja').AsString) and
(DMDados.TabPedido.FieldByName('Local').AsString =
DMDados.TabItens.FieldByName('Local').AsString) and
(DMDados.TabPedido.FieldByName('Pedido').AsString =
DMDados.TabItens.FieldByName('Pedido').AsString) and
(not DMDados.TabItens.EOF) do
begin
CDSItens.Insert;

CDSItens.FieldByName('Produto').AsString:=DMDados.TabItens.FieldByName('Produto').A
sString;

CDSItens.FieldByName('Cor').AsString:=DMDados.TabItens.FieldByName('Cor').AsString;

CDSItens.FieldByName('Tamanho').AsString:=DMDados.TabItens.FieldByName('Tamanho').A
sString;

CDSItens.FieldByName('Quantidade').AsString:=DMDados.TabItens.FieldByName('Quantida
de').AsString;
if not CBPrecosMajorados.Checked then

CDSItens.FieldByName('Preco').AsString:=DMDados.TabItens.FieldByName('Preco').AsStr
ing
else

CDSItens.FieldByName('Preco').AsString:=DMDados.TabItens.FieldByName('PrecoMajorado
').AsString;

CDSItens.FieldByName('Desconto').AsString:=DMDados.TabItens.FieldByName('Desconto')
.AsString;

CDSItens.FieldByName('OC').AsString:=DMDados.TabItens.FieldByName('OC').AsString;
CDSItens.Post;

if
CDSItens1.Findkey([DMDados.TabItens.FieldByName('Produto').AsString,DMDados.TabIten
s.FieldByName('cOR').AsString]) then
CDSItens1.Edit
else
CDSItens1.Insert;

CDSItens1.FieldByName('Produto').AsString:=DMDados.TabItens.FieldByName('Produto').
AsString;

CDSItens1.FieldByName('Cor').AsString:=DMDados.TabItens.FieldByName('Cor').AsString
;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'PP') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '38') OR
(DMDados.TabItens.FieldByName('Tamanho').AsString = '01') then

CDSItens1.FieldByName('PP38').AsString:=DMDados.TabItens.FieldByName('Quantidade').
AsString;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'P') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '40') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '42') then

CDSItens1.FieldByName('P40').AsString:=DMDados.TabItens.FieldByName('Quantidade').A
sString;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'M') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '03') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '42') then

CDSItens1.FieldByName('M42').AsString:=DMDados.TabItens.FieldByName('Quantidade').A
sString;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'G') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '44') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '04') then

CDSItens1.FieldByName('G44').AsString:=DMDados.TabItens.FieldByName('Quantidade').A
sString;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'GG') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '46') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '05') then

CDSItens1.FieldByName('GG46').AsString:=DMDados.TabItens.FieldByName('Quantidade').
AsString;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'EG') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '48') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = 'XG') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '06') then

CDSItens1.FieldByName('EG48').AsString:=DMDados.TabItens.FieldByName('Quantidade').
AsString;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'EXG') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '50') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '08') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = 'U') then

CDSItens1.FieldByName('EXG50').AsString:=DMDados.TabItens.FieldByName('Quantidade')
.AsString;
if (DMDados.TabItens.FieldByName('Tamanho').AsString = 'EXGG') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '52') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '10') or
(DMDados.TabItens.FieldByName('Tamanho').AsString = '3G') then

CDSItens1.FieldByName('EXGG52').AsString:=DMDados.TabItens.FieldByName('Quantidade'
).AsString;

CDSItens1.FieldByName('Tamanho').AsString:=DMDados.TabItens.FieldByName('Tamanho').
AsString;

CDSItens1.FieldByName('Quantidade').AsString:=DMDados.TabItens.FieldByName('Quantid
ade').AsString;
if not CBPrecosMajorados.Checked then

CDSItens1.FieldByName('Preco').AsString:=DMDados.TabItens.FieldByName('Preco').AsSt
ring
else

CDSItens1.FieldByName('Preco').AsString:=DMDados.TabItens.FieldByName('PrecoMajorad
o').AsString;

CDSItens1.FieldByName('Desconto').AsString:=DMDados.TabItens.FieldByName('Desconto'
).AsString;

CDSItens1.FieldByName('OC').AsString:=DMDados.TabItens.FieldByName('OC').AsString;
}
CDSItens1.Post;

// resumo
if
TabAuxResumo.Findkey([DMDados.TabItens.FieldByName('Produto').AsString]) then
TabAuxResumo.Edit
else
TabAuxResumo.Insert;
TabAuxResumo.Fieldbyname('Produto').asString :=
DMDados.TabItens.FieldByName('Produto').AsString;
TabAuxResumo.Fieldbyname('Quantidade').asFloat :=
TabAuxResumo.Fieldbyname('Quantidade').asFloat +
DMDados.TabItens.FieldByName('Quantidade').AsFloat;
TabAuxResumo.Fieldbyname('Valor').asFloat :=
DMDados.TabItens.FieldByName('pRECO').AsFloat;
TabAuxResumo.Post;
// fim do resumo

{
if (FSCp.NomeLoja = 'GENTE FINA') or (FSCp.NomeLoja = 'GF BABY') or
(FSCp.NomeLoja = 'COMECIATTO') then
begin
if
DMDados.tabAuxMarca.FindKey([DMDados.TabItens.FieldByName('Marca').AsString]) then
DMDados.tabAuxMarca.Edit
else
DMDados.tabAuxMarca.Append;
DMDados.tabAuxMarca.FieldByName('Codigo').AsString :=
DMDados.TabItens.FieldByName('Marca').AsString;
DMDados.tabAuxMarca.FieldByName('Estatistica').AsFloat :=
DMDados.tabAuxMarca.FieldByName('Estatistica').AsFloat +
DMDados.TabItens.FieldByName('Quantidade').AsFloat;
DMDados.tabAuxMarca.FieldByName('ValorEstatistica').AsFloat :=
DMDados.tabAuxMarca.FieldByName('ValorEstatistica').AsFloat +
((DMDados.TabItens.FieldByName('Quantidade').AsFloat*DMDados.TabItens.FieldByName('
Preco').AsFloat)*(1-x_desc));
DMDados.tabAuxMarca.Post;
end;
}

DMDados.TabItens.Next;
end;
end;

qtprod := TabAuxResumo.RecordCount;

if RGModelo.ItemIndex = 0 then
begin

FImpFaturamento := TFImpFaturamento.Create(Self);

if FileExists('C:\SCE\LOGO.JPG') then
FImpFaturamento.QRImage1.Picture.LoadFromFile('C:\SCE\LOGO.JPG');

if (DMDados.TabPedido.FieldByName('Situacao').AsString <> 'O') then


FImpFaturamento.QRlabel7.Caption := FImpFaturamento.QRlabel7.Caption
+
DMDados.TabPedido.FieldByName('Local').AsString+'-'+DMDados.TabPedido.FieldByName('
Pedido').AsString
else
FImpFaturamento.QRlabel7.Caption := 'ORÇAMENTO: ' +
DMDados.TabPedido.FieldByName('Local').AsString+'-'+DMDados.TabPedido.FieldByName('
Pedido').AsString;

FImpFaturamento.QRlabel6.Caption := 'Quantidade de Peças: '+


DMDados.TabPedido.FieldByName('Quantidade').AsString;
FImpFaturamento.QRlabel81.Caption := 'Qt. Referencias: ' +
StrSpace(FloatToStrF(qtProd,ffNumber,12,0),12);

FImpFaturamento.QRlabel35.Caption :=
StrSpace(FloatToStrF(DMDados.TabPedido.FieldByName('Valor').AsFloat,ffNumber,12,2),
12);
FImpFaturamento.QRlabel23.Caption :=
StrSpace(FloatToStrF(DMDados.TabPedido.FieldByName('Desconto').AsFloat,ffNumber,12,
2),12);
FImpFaturamento.QRlabel68.Caption :=
StrSpace(FloatToStrF(DMDados.TabPedido.FieldByName('Liquido').AsFloat,ffNumber,12,2
),12);

FImpFaturamento.QRlabel16.Caption := 'DATA DE EMISSÃO : ' +


DMDados.TabPedido.FieldByName('Data').AsString;
FImpFaturamento.QRlabel38.Caption := 'DATAS DE ENTREGA: ';
FImpFaturamento.QRlabel69.Caption := 'OBS.:
'+DMDados.TabPAR.FieldByName('Par-Observacoes').AsString;
FImpFaturamento.QRlabel78.Caption := 'EMAIL: '+
DMDados.TabPAR.FieldByName('email').AsString;
FImpFaturamento.QRlabel71.Caption := 'PEDIDO:
'+DMDados.TabPedido.FieldByName('pEDrEP').AsString;
FImpFaturamento.QRlabel79.Caption := 'PLANO:
'+DMDados.TabPedido.FieldByName('NomePlano').AsString;
FImpFaturamento.QRlabel80.Caption := 'FORMA DE PAGAMENTO:
'+DMDados.TabPedido.FieldByName('TptCodigo').AsString+' -
'+DMDados.TabPedido.FieldByName('NomeTpt').AsString;;

DMDados.TabLj.Open;
DMDados.TabLj.IndexName := '';
DMDados.TabLj.Findkey([DMDados.TabPedido.FieldByName('Loja').AsString]);

FImpFaturamento.QRlabel9.Caption := DMDados.TabLJ.FieldByName('Lj-
Descricao').AsString;

FImpFaturamento.QRlabel10.Caption := DMDados.TabLJ.FieldByName('Lj-
RazaoSocial').AsString;
FImpFaturamento.QRlabel11.Caption := DMDados.TabLJ.FieldByName('Lj-
Logradouro').AsString+', '+DMDados.TabLJ.FieldByName('Lj-nUMERO').AsString+' -
'+DMDados.TabLJ.FieldByName('Lj-Bairro').AsString;
FImpFaturamento.QRlabel12.Caption := DMDados.TabLJ.FieldByName('Lj-
Cidade').AsString+' - '+DMDados.TabLJ.FieldByName('Lj-UF').AsString+' CEP:
'+copy(DMDados.TabLJ.FieldByName('Lj-
Cep').AsString,1,5)+'-'+copy(DMDados.TabLJ.FieldByName('Lj-Cep').AsString,6,3);
FImpFaturamento.QRlabel14.Caption := 'FONE:
('+copy(DMDados.TabLJ.FieldByName('Lj-Fone').AsString,1,2)+') '+

copy(DMDados.TabLJ.FieldByName('Lj-Fone').AsString,3,5)+'-'+

copy(DMDados.TabLJ.FieldByName('Lj-Fone').AsString,8,4)+' '+
'Celular:
('+copy(DMDados.TabLJ.FieldByName('Lj-Fax').AsString,1,2)+') '+

copy(DMDados.TabLJ.FieldByName('Lj-Fax').AsString,3,5)+'-'+
copy(DMDados.TabLJ.FieldByName('Lj-Fax').AsString,8,4); //+' '+
// '
('+copy(DMDados.TabLJ.FieldByName('Celular').AsString,1,2)+') '+
//
copy(DMDados.TabLJ.FieldByName('Celular').AsString,3,5)+'-'+
//
copy(DMDados.TabLJ.FieldByName('Celular').AsString,8,4);
FImpFaturamento.QRlabel15.Caption := 'CNPJ:
'+copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,1,2)+'.'+

copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,3,3)+'.'+

copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,6,3)+'/'+

copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,9,4)+'-'+

copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,13,2)+' '+
'I.E.: '+DMDados.TabLJ.FieldByName('Lj-
cgf').AsString;
FImpFaturamento.QRlabel38.Caption := DMDados.TabLJ.FieldByName('Lj-
EMAIL').AsString;

DMDados.TabPar.Open;
DMDados.TabPar.IndexName := '';

DMDados.TabPar.Findkey([DMDados.TabPedido.FieldByName('Cliente').AsString]);

FImpFaturamento.QRlabel18.Caption := 'FANTASIA:
'+DMDados.TabPar.FieldByName('pAR-FANTASIA').AsString;

// if DMDados.TabPar.FieldByName('Par-cODIGO').AsString =
FSce.ClienteVArejo then
// FImpFaturamento.QRlabel19.Caption := 'CLIENTE:
'+DMDados.TabPar.FieldByName('Par-Descricao').AsString+' /
'+DMDados.TabPEDIDO.FieldByName('Comprador').AsString
//else
FImpFaturamento.QRlabel19.Caption := 'CLIENTE:
'+DMDados.TabPar.FieldByName('Par-Descricao').AsString;
// FImpFaturamento.QRlabel20.Caption :=
DMDados.TabPar.FieldByName('Par-Logradouro').AsString+' -
'+DMDados.TabPar.FieldByName('Complemento').AsString+' -
'+DMDados.TabPar.FieldByName('pAR-bairro').AsString;
FImpFaturamento.QRlabel20.Caption := DMDados.TabPar.FieldByName('Par-
Logradouro').AsString+' - '+DMDados.TabPar.FieldByName('pAR-bairro').AsString;
FImpFaturamento.QRlabel2.Caption := 'PONTO REF.:
'+dMDados.TabPar.FieldByName('PAR-OBSERVACOES').AsString;
FImpFaturamento.QRlabel26.Caption :=
DMDados.TabPar.FieldByName('Cidade').AsString+' -
'+DMDados.TabPar.FieldByName('uf').AsString+' CEP:
'+copy(DMDados.TabPar.FieldByName('Par-
Cep').AsString,1,5)+'-'+copy(DMDados.TabPar.FieldByName('Par-Cep').AsString,6,3);
FImpFaturamento.QRlabel27.Caption := 'FONE:
('+copy(DMDados.TabPar.FieldByName('pAR-Fone1').AsString,1,2)+') '+

copy(DMDados.TabPar.FieldByName('pAR-Fone1').AsString,3,5)+'-'+

copy(DMDados.TabPar.FieldByName('pAR-Fone1').AsString,8,4)+' '+
'CELULAR:
('+copy(DMDados.TabPar.FieldByName('pAR-Fone2').AsString,1,2)+') '+
copy(DMDados.TabPar.FieldByName('pAR-Fone2').AsString,3,5)+'-'+

copy(DMDados.TabPar.FieldByName('pAR-Fone2').AsString,8,4);
if DMDados.TabPar.FieldByName('pAR-fISicajuridica').AsString = 'J' then
begin
FImpFaturamento.QRlabel28.Caption := 'CNPJ:
'+copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,1,2)+'.'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,3,3)+'.'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,6,3)+'/'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,9,4)+'-'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,13,2)+' '+
'I.E.:
'+DMDados.TabPar.FieldByName('pAR-FISCOESTADUAL').AsString;
end
else
begin
FImpFaturamento.QRlabel28.Caption := 'CPF:
'+copy(DMDados.TabPar.FieldByName('CPF').AsString,1,3)+'.'+

copy(DMDados.TabPar.FieldByName('CPF').AsString,4,3)+'.'+

copy(DMDados.TabPar.FieldByName('CPF').AsString,7,3)+'-'+

copy(DMDados.TabPar.FieldByName('CPF').AsString,10,2)+' '+
'R.G.:
'+DMDados.TabPar.FieldByName('pAR-IDENTIDADE').AsString;
end;
FImpFaturamento.QRlabel30.Caption := 'VENDEDOR:
'+DMDados.TabPEDIDO.FieldByName('nOMEvENDEDOR').AsString;

FImpFaturamento.QRlabel47.Caption := '';
FImpFaturamento.QRlabel48.Caption := '';
FImpFaturamento.QRlabel49.Caption := '';
FImpFaturamento.QRlabel50.Caption := '';
FImpFaturamento.QRlabel51.Caption := '';
FImpFaturamento.QRlabel52.Caption := '';

FImpFaturamento.QRlabel55.Caption := '';
FImpFaturamento.QRlabel56.Caption := '';
FImpFaturamento.QRlabel57.Caption := '';
FImpFaturamento.QRlabel58.Caption := '';
FImpFaturamento.QRlabel59.Caption := '';
FImpFaturamento.QRlabel60.Caption := '';
FImpFaturamento.QRLabel17.Caption := '';
FImpFaturamento.QRlabel25.Caption := '';
FImpFaturamento.QRLabel31.Caption := '';
FImpFaturamento.QRlabel32.Caption := '';

FImpFaturamento.QRlabel37.Caption := '';
FImpFaturamento.QRlabel39.Caption := '';
FImpFaturamento.QRLabel40.Caption := '';
FImpFaturamento.QRlabel43.Caption := '';
FImpFaturamento.QRLabel72.Caption := '';
FImpFaturamento.QRlabel73.Caption := '';
FImpFaturamento.QRLabel74.Caption := '';
FImpFaturamento.QRlabel75.Caption := '';

DMDados.TabTit.Open;
DMDados.TabTit.IndexName := '';
i := 1;
if
DMDados.TabTIT.FindKey([DMDados.TabPedido.FieldByName('LoJa').AsString,
DMDados.TabPedido.FieldByName('Pedido').AsString,
DMDados.TabPedido.FieldByName('Local').AsString])
then
begin

while (not DMDados.TabTIT.EOF)and


(DMDados.TabTIT.FieldByName('LJCodigo').AsString =
DMDados.TabPedido.FieldByName('LOJA').AsString) and
(DMDados.TabTIT.FieldByName('MovCaixa').AsString =
DMDados.TabPedido.FieldByName('Local').AsString) and
(DMDados.TabTIT.FieldByName('MOVCodigo').AsString =
DMDados.TabPedido.FieldByName('Pedido').AsString) do
begin
if i = 1 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRlabel47.Font.Color :=
clGreen;
FImpFaturamento.QRlabel48.Font.Color :=
clGreen;
FImpFaturamento.QRlabel37.Font.Color :=
clGreen;
end;

FImpFaturamento.QRlabel47.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel48.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel37.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 2 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRlabel49.Font.Color :=
clGreen;
FImpFaturamento.QRLabel50.Font.Color :=
clGreen;
FImpFaturamento.QRlabel39.Font.Color :=
clGreen;
end;
FImpFaturamento.QRlabel49.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel50.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel39.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRLabel51.Font.Color :=
clGreen;
FImpFaturamento.QRLabel52.Font.Color :=
clGreen;
FImpFaturamento.QRlabel40.Font.Color :=
clGreen;
end;
FImpFaturamento.QRlabel51.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel52.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel40.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRlabel55.Font.Color :=
clGreen;
FImpFaturamento.QRlabel56.Font.Color :=
clGreen;
FImpFaturamento.QRlabel43.Font.Color :=
clGreen;
end;
FImpFaturamento.QRlabel55.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel56.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel43.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRlabel57.Font.Color :=
clGreen;
FImpFaturamento.QRlabel58.Font.Color :=
clGreen;
FImpFaturamento.QRlabel72.Font.Color :=
clGreen;
end;
FImpFaturamento.QRlabel57.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel58.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel72.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRLabel59.Font.Color :=
clGreen;
FImpFaturamento.QRLabel60.Font.Color :=
clGreen;
FImpFaturamento.QRlabel73.Font.Color :=
clGreen;
end;
FImpFaturamento.QRlabel59.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel60.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel73.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRlabel17.Font.Color :=
clGreen;
FImpFaturamento.QRlabel25.Font.Color :=
clGreen;
FImpFaturamento.QRlabel74.Font.Color :=
clGreen;
end;
FImpFaturamento.QRLabel17.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel25.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel74.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento.QRLabel31.Font.Color :=
clGreen;
FImpFaturamento.QRLabel32.Font.Color :=
clGreen;
FImpFaturamento.QRlabel75.Font.Color :=
clGreen;
end;
FImpFaturamento.QRLabel31.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento.QRlabel32.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento.QRlabel75.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
DMDados.TabTit.Next;
i := i + 1;
end;
end
else
begin
DMDados.TabPla.Open;

DMDados.TabPla.Findkey([DMDados.TabPedido.FieldByName('Plano').AsString]);
NumParcelas := DMDados.TabPLA.FieldByName('PLA-
NumeroParcelas').AsInteger;
Intervalo := DMDados.TabPLA.FieldByName('PLA-
Intervalo').AsInteger;
Prazo := DMDados.TabPLA.FieldByName('PLA-Prazo').AsInteger;
PercentEntrada := DMDados.TabPLA.FieldByName('PLA-
PercentEntrada').AsFloat;

i := 1;

if NumParcelas <= 0 then


BEGIN
NumParcelas := DMDados.TabPLA.FieldByName('PLA-
NumeroParcelas').AsInteger;
I := 1;
END;

ValorImp := 0;

while i <= NumParcelas do


begin
if PercentEntrada = 0 then
begin
if i = 1 then
begin
FImpFaturamento.QRlabel47.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel48.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel37.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 2 then
begin
FImpFaturamento.QRlabel49.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel50.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel39.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin
FImpFaturamento.QRlabel51.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel52.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel40.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin
FImpFaturamento.QRlabel55.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel56.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel43.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin
FImpFaturamento.QRlabel57.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel58.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel72.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin
FImpFaturamento.QRlabel59.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel60.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel73.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin
FImpFaturamento.QRLabel17.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel25.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel74.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
FImpFaturamento.QRLabel31.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento.QRlabel32.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel75.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
{
Linha := space(57)+' '+

DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i))+'
'
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10);
Imprime(Linha);
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
}
end
else
begin
if PercentEntrada = 100 then
begin
if i = 1 then
begin
FImpFaturamento.QRlabel47.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel48.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel37.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 2 then
begin
FImpFaturamento.QRlabel49.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel50.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel39.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin
FImpFaturamento.QRlabel51.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel52.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel40.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin
FImpFaturamento.QRlabel55.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel56.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel43.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin
FImpFaturamento.QRlabel57.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel58.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel72.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin
FImpFaturamento.QRlabel59.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel60.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel73.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin
FImpFaturamento.QRLabel17.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel25.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel74.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
FImpFaturamento.QRLabel31.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento.QRlabel32.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel75.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
{
if Fscp.MostraVencimento = 'S' then
Linha := space(57)+' '+
//
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo)+'
'
DateToStr(strtodate(DATA_ULT_TIT) +
Intervalo)+' '
ELSE
Linha := space(57)+' ';
if CBMostra.Checked then
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10);
Imprime(Linha);
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
}
end
else
begin
if i = 1 then
begin
if i = 1 then
begin
FImpFaturamento.QRlabel47.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) +
Intervalo);
FImpFaturamento.QRlabel48.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel37.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
{
if Fscp.MostraVencimento = 'S' then
Linha := space(57)+' '+
//
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo)+'
'

DateToStr(strtodate(DATA_ULT_TIT) + Intervalo)+' '


ELSE
Linha := space(57)+' ';
if CBMostra.Checked then
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10);
Imprime(Linha);
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
}
end
else
begin
if i = 2 then
begin
FImpFaturamento.QRlabel49.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo
+ (Prazo*(i-1)));
FImpFaturamento.QRlabel50.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel39.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin
FImpFaturamento.QRlabel51.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo
+ (Prazo*(i-1)));
FImpFaturamento.QRlabel52.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel40.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin
FImpFaturamento.QRlabel55.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo
+ (Prazo*(i-1)));
FImpFaturamento.QRlabel56.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel43.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin
FImpFaturamento.QRlabel57.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo
+ (Prazo*(i-1)));
FImpFaturamento.QRlabel58.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel72.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin
FImpFaturamento.QRlabel59.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo
+ (Prazo*(i-1)));
FImpFaturamento.QRlabel60.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel73.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin
FImpFaturamento.QRLabel17.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo
+ (Prazo*(i-1)));
FImpFaturamento.QRlabel25.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento.QRlabel74.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
FImpFaturamento.QRLabel31.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)));

FImpFaturamento.QRlabel32.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento.QRlabel75.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
{
// calculando o melhor valor
if i <> NumParcelas+NUM_TIT then
begin
if Fscp.MostraVencimento = 'S'
then
Linha := space(57)+' '+
//
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)))+' '

DateToStr(strtodate(DATA_ULT_TIT) + Intervalo + (Prazo*(i-1)))+' '


ELSE
Linha := space(57)+' ';
if CBMostra.Checked then
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10);
Imprime(Linha);
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
end
else
begin
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
ValorImp :=
(DMDados.TabPedido.FieldByName('Liquido').AsFloat-
DMDados.TabPedido.FieldByName('TitLanc').AsFloat) - ValorImp;
ValorImp :=
((DMDados.TabPedido.FieldByName('Liquido').AsFloat-
DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/NumParcelas)+ValorImp;
if Fscp.MostraVencimento = 'S'
then
Linha := space(57)+' '+
//
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)))+' '

DateToStr(strtodate(DATA_ULT_TIT) + Intervalo + (Prazo*(i-1)))+' '


ELSE
Linha := space(57)+' ';
if CBMostra.Checked then
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf(ValorImp,ffnumber,10,2)),10);
Imprime(Linha);
end;
}
end;
end;
end;
i := i + 1;
end;

end;

FImpFaturamento.QRlabel63.Caption := '';
FImpFaturamento.QRlabel64.Caption := '';
FImpFaturamento.QRlabel65.Caption := '';

FImpFaturamento.QRlabel66.Caption := '';
FImpFaturamento.QRlabel67.Caption := '';

NomeArq := Alltrim('C:\sce\
PE_'+DMDados.TabPedido.Fieldbyname('Local').asString+'_'+DMDados.TabPedido.Fieldbyn
ame('Pedido').asString+'.TXT');

FImpFaturamento.QuickRep1.Preview;
FImpFaturamento.Free;
end;

if RGModelo.ItemIndex = 1 then
begin

FImpFaturamento1 := TFImpFaturamento1.Create(Self);

if FileExists('C:\SCE\LOGO.JPG') then
FImpFaturamento1.QRImage1.Picture.LoadFromFile('C:\SCE\LOGO.JPG');

if (DMDados.TabPedido.FieldByName('Situacao').AsString <> 'O') then


FImpFaturamento1.QRlabel7.Caption :=
FImpFaturamento1.QRlabel7.Caption +
DMDados.TabPedido.FieldByName('Local').AsString+'-'+DMDados.TabPedido.FieldByName('
Pedido').AsString
else
FImpFaturamento1.QRlabel7.Caption := 'ORÇAMENTO: ' +
DMDados.TabPedido.FieldByName('Local').AsString+'-'+DMDados.TabPedido.FieldByName('
Pedido').AsString;

FImpFaturamento1.QRlabel6.Caption := 'Quantidade de Peças: '+


DMDados.TabPedido.FieldByName('Quantidade').AsString;
FImpFaturamento1.QRlabel81.Caption := 'Qt. Referencias: ' +
StrSpace(FloatToStrF(qtProd,ffNumber,12,0),12);

FImpFaturamento1.QRlabel35.Caption :=
StrSpace(FloatToStrF(DMDados.TabPedido.FieldByName('Valor').AsFloat,ffNumber,12,2),
12);
FImpFaturamento1.QRlabel23.Caption :=
StrSpace(FloatToStrF(DMDados.TabPedido.FieldByName('Desconto').AsFloat,ffNumber,12,
2),12);
FImpFaturamento1.QRlabel68.Caption :=
StrSpace(FloatToStrF(DMDados.TabPedido.FieldByName('Liquido').AsFloat,ffNumber,12,2
),12);

FImpFaturamento1.QRlabel16.Caption := 'DATA DE EMISSÃO : ' +


DMDados.TabPedido.FieldByName('Data').AsString;
FImpFaturamento1.QRlabel38.Caption := 'DATAS DE ENTREGA: ';
FImpFaturamento1.QRlabel69.Caption := 'OBS.:
'+DMDados.TabPAR.FieldByName('Par-Observacoes').AsString;
FImpFaturamento1.QRlabel78.Caption := 'EMAIL: '+
DMDados.TabPAR.FieldByName('email').AsString;
FImpFaturamento1.QRlabel71.Caption := 'PEDIDO:
'+DMDados.TabPedido.FieldByName('pEDrEP').AsString;
FImpFaturamento1.QRlabel79.Caption := 'PLANO:
'+DMDados.TabPedido.FieldByName('NomePlano').AsString;
FImpFaturamento1.QRlabel80.Caption := 'FORMA DE PAGAMENTO:
'+DMDados.TabPedido.FieldByName('TptCodigo').AsString+' -
'+DMDados.TabPedido.FieldByName('NomeTpt').AsString;;

DMDados.TabLj.Open;
DMDados.TabLj.IndexName := '';
DMDados.TabLj.Findkey([DMDados.TabPedido.FieldByName('Loja').AsString]);

FImpFaturamento1.QRlabel9.Caption := DMDados.TabLJ.FieldByName('Lj-
Descricao').AsString;

FImpFaturamento1.QRlabel10.Caption := DMDados.TabLJ.FieldByName('Lj-
RazaoSocial').AsString;
FImpFaturamento1.QRlabel11.Caption := DMDados.TabLJ.FieldByName('Lj-
Logradouro').AsString+', '+DMDados.TabLJ.FieldByName('Lj-nUMERO').AsString+' -
'+DMDados.TabLJ.FieldByName('Lj-Bairro').AsString;
FImpFaturamento1.QRlabel12.Caption := DMDados.TabLJ.FieldByName('Lj-
Cidade').AsString+' - '+DMDados.TabLJ.FieldByName('Lj-UF').AsString+' CEP:
'+copy(DMDados.TabLJ.FieldByName('Lj-
Cep').AsString,1,5)+'-'+copy(DMDados.TabLJ.FieldByName('Lj-Cep').AsString,6,3);
FImpFaturamento1.QRlabel14.Caption := 'FONE:
('+copy(DMDados.TabLJ.FieldByName('Lj-Fone').AsString,1,2)+') '+

copy(DMDados.TabLJ.FieldByName('Lj-Fone').AsString,3,5)+'-'+

copy(DMDados.TabLJ.FieldByName('Lj-Fone').AsString,8,4)+' '+
'Celular:
('+copy(DMDados.TabLJ.FieldByName('Lj-Fax').AsString,1,2)+') '+

copy(DMDados.TabLJ.FieldByName('Lj-Fax').AsString,3,5)+'-'+

copy(DMDados.TabLJ.FieldByName('Lj-Fax').AsString,8,4); //+' '+


// '
('+copy(DMDados.TabLJ.FieldByName('Celular').AsString,1,2)+') '+
//
copy(DMDados.TabLJ.FieldByName('Celular').AsString,3,5)+'-'+
//
copy(DMDados.TabLJ.FieldByName('Celular').AsString,8,4);
FImpFaturamento1.QRlabel15.Caption := 'CNPJ:
'+copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,1,2)+'.'+

copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,3,3)+'.'+
copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,6,3)+'/'+

copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,9,4)+'-'+

copy(DMDados.TabLJ.FieldByName('Lj-Cgc').AsString,13,2)+' '+
'I.E.: '+DMDados.TabLJ.FieldByName('Lj-
cgf').AsString;
FImpFaturamento1.QRlabel38.Caption := DMDados.TabLJ.FieldByName('Lj-
EMAIL').AsString;

DMDados.TabPar.Open;
DMDados.TabPar.IndexName := '';

DMDados.TabPar.Findkey([DMDados.TabPedido.FieldByName('Cliente').AsString]);

FImpFaturamento1.QRlabel18.Caption := 'CONHECIDO:
'+DMDados.TabPar.FieldByName('Comprador').AsString;
FImpFaturamento1.QRlabel18.Caption := 'FANTASIA:
'+DMDados.TabPar.FieldByName('pAR-FANTASIA').AsString;

FImpFaturamento1.QRlabel19.Caption := 'CLIENTE:
'+DMDados.TabPar.FieldByName('Par-Descricao').AsString;
FImpFaturamento1.QRlabel20.Caption := DMDados.TabPar.FieldByName('Par-
Logradouro').AsString+' - '+DMDados.TabPar.FieldByName('pAR-bairro').AsString;
FImpFaturamento1.QRlabel2.Caption := 'PONTO REF.:
'+dMDados.TabPar.FieldByName('PAR-OBSERVACOES').AsString;
FImpFaturamento1.QRlabel26.Caption :=
DMDados.TabPar.FieldByName('Cidade').AsString+' -
'+DMDados.TabPar.FieldByName('uf').AsString+' CEP:
'+copy(DMDados.TabPar.FieldByName('Par-
Cep').AsString,1,5)+'-'+copy(DMDados.TabPar.FieldByName('Par-Cep').AsString,6,3);
FImpFaturamento1.QRlabel27.Caption := 'FONE:
('+copy(DMDados.TabPar.FieldByName('pAR-Fone1').AsString,1,2)+') '+

copy(DMDados.TabPar.FieldByName('pAR-Fone1').AsString,3,5)+'-'+

copy(DMDados.TabPar.FieldByName('pAR-Fone1').AsString,8,4)+' '+
'CELULAR:
('+copy(DMDados.TabPar.FieldByName('pAR-Fone2').AsString,1,2)+') '+

copy(DMDados.TabPar.FieldByName('pAR-Fone2').AsString,3,5)+'-'+

copy(DMDados.TabPar.FieldByName('pAR-Fone2').AsString,8,4);
if DMDados.TabPar.FieldByName('pAR-fISicajuridica').AsString = 'J' then
begin
FImpFaturamento1.QRlabel28.Caption := 'CNPJ:
'+copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,1,2)+'.'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,3,3)+'.'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,6,3)+'/'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,9,4)+'-'+

copy(DMDados.TabPar.FieldByName('pAR-fISCOfEDERAL').AsString,13,2)+' '+
'I.E.:
'+DMDados.TabPar.FieldByName('pAR-FISCOESTADUAL').AsString;
end
else
begin
FImpFaturamento1.QRlabel28.Caption := 'CPF:
'+copy(DMDados.TabPar.FieldByName('CPF').AsString,1,3)+'.'+

copy(DMDados.TabPar.FieldByName('CPF').AsString,4,3)+'.'+

copy(DMDados.TabPar.FieldByName('CPF').AsString,7,3)+'-'+

copy(DMDados.TabPar.FieldByName('CPF').AsString,10,2)+' '+
'R.G.:
'+DMDados.TabPar.FieldByName('pAR-IDENTIDADE').AsString;
end;
FImpFaturamento1.QRlabel30.Caption := 'VENDEDOR:
'+DMDados.TabPEDIDO.FieldByName('nOMEvENDEDOR').AsString;

FImpFaturamento1.QRlabel47.Caption := '';
FImpFaturamento1.QRlabel48.Caption := '';
FImpFaturamento1.QRlabel49.Caption := '';
FImpFaturamento1.QRlabel50.Caption := '';
FImpFaturamento1.QRlabel51.Caption := '';
FImpFaturamento.QRlabel52.Caption := '';

FImpFaturamento1.QRlabel55.Caption := '';
FImpFaturamento1.QRlabel56.Caption := '';
FImpFaturamento1.QRlabel57.Caption := '';
FImpFaturamento1.QRlabel58.Caption := '';
FImpFaturamento1.QRlabel59.Caption := '';
FImpFaturamento1.QRlabel60.Caption := '';
FImpFaturamento1.QRLabel17.Caption := '';
FImpFaturamento1.QRlabel25.Caption := '';
FImpFaturamento1.QRLabel31.Caption := '';
FImpFaturamento1.QRlabel32.Caption := '';

FImpFaturamento1.QRlabel37.Caption := '';
FImpFaturamento1.QRlabel39.Caption := '';
FImpFaturamento1.QRLabel40.Caption := '';
FImpFaturamento1.QRlabel43.Caption := '';
FImpFaturamento1.QRLabel72.Caption := '';
FImpFaturamento1.QRlabel73.Caption := '';
FImpFaturamento1.QRLabel74.Caption := '';
FImpFaturamento1.QRlabel75.Caption := '';

DMDados.TabTit.Open;
DMDados.TabTit.IndexName := '';
i := 1;
if
DMDados.TabTIT.FindKey([DMDados.TabPedido.FieldByName('LoJa').AsString,
DMDados.TabPedido.FieldByName('Pedido').AsString,
DMDados.TabPedido.FieldByName('Local').AsString])
then
begin

while (not DMDados.TabTIT.EOF)and


(DMDados.TabTIT.FieldByName('LJCodigo').AsString =
DMDados.TabPedido.FieldByName('LOJA').AsString) and
(DMDados.TabTIT.FieldByName('MovCaixa').AsString =
DMDados.TabPedido.FieldByName('Local').AsString) and
(DMDados.TabTIT.FieldByName('MOVCodigo').AsString =
DMDados.TabPedido.FieldByName('Pedido').AsString) do
begin
if i = 1 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRlabel47.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel48.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel37.Font.Color :=
clGreen;
end;

FImpFaturamento1.QRlabel47.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel48.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel37.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 2 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRlabel49.Font.Color :=
clGreen;
FImpFaturamento1.QRLabel50.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel39.Font.Color :=
clGreen;
end;
FImpFaturamento1.QRlabel49.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel50.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel39.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRLabel51.Font.Color :=
clGreen;
FImpFaturamento1.QRLabel52.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel40.Font.Color :=
clGreen;
end;
FImpFaturamento1.QRlabel51.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel52.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel40.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRlabel55.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel56.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel43.Font.Color :=
clGreen;
end;
FImpFaturamento1.QRlabel55.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel56.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel43.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRlabel57.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel58.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel72.Font.Color :=
clGreen;
end;
FImpFaturamento1.QRlabel57.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel58.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel72.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRLabel59.Font.Color :=
clGreen;
FImpFaturamento1.QRLabel60.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel73.Font.Color :=
clGreen;
end;
FImpFaturamento1.QRlabel59.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel60.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel73.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRlabel17.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel25.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel74.Font.Color :=
clGreen;
end;
FImpFaturamento1.QRLabel17.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel25.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel74.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
if DMDados.TabTit.FieldByName('TitStatus').AsString =
'L' then
begin
FImpFaturamento1.QRLabel31.Font.Color :=
clGreen;
FImpFaturamento1.QRLabel32.Font.Color :=
clGreen;
FImpFaturamento1.QRlabel75.Font.Color :=
clGreen;
end;
FImpFaturamento1.QRLabel31.Caption :=
DMDados.TabTit.FieldByName('TitDataVencimento').AsString;
FImpFaturamento1.QRlabel32.Caption :=
StrSpace(FloatToStrF(DMDados.TabTit.FieldByName('TitValorNominal').AsFloat,ffNumber
,12,2),12);
FImpFaturamento1.QRlabel75.Caption :=
DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
DMDados.TabTit.Next;
i := i + 1;
end;
end
else
begin
DMDados.TabPla.Open;

DMDados.TabPla.Findkey([DMDados.TabPedido.FieldByName('Plano').AsString]);
NumParcelas := DMDados.TabPLA.FieldByName('PLA-
NumeroParcelas').AsInteger;
Intervalo := DMDados.TabPLA.FieldByName('PLA-
Intervalo').AsInteger;
Prazo := DMDados.TabPLA.FieldByName('PLA-Prazo').AsInteger;
PercentEntrada := DMDados.TabPLA.FieldByName('PLA-
PercentEntrada').AsFloat;

i := 1;

if NumParcelas <= 0 then


BEGIN
NumParcelas := DMDados.TabPLA.FieldByName('PLA-
NumeroParcelas').AsInteger;
I := 1;
END;

ValorImp := 0;

while i <= NumParcelas do


begin
if PercentEntrada = 0 then
begin
if i = 1 then
begin
FImpFaturamento1.QRlabel47.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel48.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel37.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 2 then
begin
FImpFaturamento1.QRlabel49.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel50.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel39.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin
FImpFaturamento1.QRlabel51.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel52.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel40.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin
FImpFaturamento1.QRlabel55.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel56.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel43.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin
FImpFaturamento1.QRlabel57.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel58.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel72.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin
FImpFaturamento1.QRlabel59.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel60.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel73.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin
FImpFaturamento1.QRLabel17.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel25.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel74.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
FImpFaturamento1.QRLabel31.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i));
FImpFaturamento1.QRlabel32.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel75.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;

{
Linha := space(57)+' '+

DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + (Prazo*i))+'
'
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10);
Imprime(Linha);
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
}
end
else
begin
if PercentEntrada = 100 then
begin
if i = 1 then
begin
FImpFaturamento1.QRlabel47.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel48.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel37.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 2 then
begin
FImpFaturamento1.QRlabel49.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel50.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel39.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin
FImpFaturamento1.QRlabel51.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel52.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel40.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin
FImpFaturamento1.QRlabel55.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel56.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel43.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin
FImpFaturamento1.QRlabel57.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel58.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel72.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin
FImpFaturamento1.QRlabel59.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel60.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel73.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin
FImpFaturamento1.QRLabel17.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel25.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel74.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
FImpFaturamento1.QRLabel31.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);
FImpFaturamento1.QRlabel32.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel75.Caption :=
''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
{
if Fscp.MostraVencimento = 'S' then
Linha := space(57)+' '+
//
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo)+'
'
DateToStr(strtodate(DATA_ULT_TIT) +
Intervalo)+' '
ELSE
Linha := space(57)+' ';
if CBMostra.Checked then
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10);
Imprime(Linha);
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
}
end
else
begin
if i = 1 then
begin
if i = 1 then
begin

FImpFaturamento1.QRlabel47.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo);

FImpFaturamento1.QRlabel48.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento1.QRlabel37.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
end
else
begin
if i = 2 then
begin

FImpFaturamento1.QRlabel49.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)));

FImpFaturamento1.QRlabel50.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento1.QRlabel39.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 3 then
begin

FImpFaturamento1.QRlabel51.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)));

FImpFaturamento1.QRlabel52.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento1.QRlabel40.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 4 then
begin

FImpFaturamento1.QRlabel55.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)));

FImpFaturamento1.QRlabel56.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento1.QRlabel43.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 5 then
begin

FImpFaturamento1.QRlabel57.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)));

FImpFaturamento1.QRlabel58.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento1.QRlabel72.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 6 then
begin

FImpFaturamento1.QRlabel59.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)));

FImpFaturamento1.QRlabel60.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento1.QRlabel73.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 7 then
begin

FImpFaturamento1.QRLabel17.Caption :=
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)));

FImpFaturamento1.QRlabel25.Caption :=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);

FImpFaturamento1.QRlabel74.Caption := '';
//DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
if i = 8 then
begin
FImpFaturamento1.QRLabel31.Caption
:= DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo
+ (Prazo*(i-1)));
FImpFaturamento1.QRlabel32.Caption
:=
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat)/NumParcelas,ffnumber,10,2)),10);
FImpFaturamento1.QRlabel75.Caption
:= ''; //DMDados.TabTit.FieldByName('Nometipo').AsString;
end;
{
// calculando o melhor valor
if i <> NumParcelas+NUM_TIT then
begin
if Fscp.MostraVencimento = 'S'
then
Linha := space(57)+' '+
//
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)))+' '

DateToStr(strtodate(DATA_ULT_TIT) + Intervalo + (Prazo*(i-1)))+' '


ELSE
Linha := space(57)+' ';
if CBMostra.Checked then
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.FieldByName('Liquido').AsF
loat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10);
Imprime(Linha);
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
end
else
begin
ValorImp := ValorImp +
strtofloat(EliminaPonto(StrSpace(FormataFlutuante(floattostrf((DMDados.TabPedido.Fi
eldByName('Liquido').AsFloat-DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/
NumParcelas,ffnumber,10,2)),10)));
ValorImp :=
(DMDados.TabPedido.FieldByName('Liquido').AsFloat-
DMDados.TabPedido.FieldByName('TitLanc').AsFloat) - ValorImp;
ValorImp :=
((DMDados.TabPedido.FieldByName('Liquido').AsFloat-
DMDados.TabPedido.FieldByName('TitLanc').AsFloat)/NumParcelas)+ValorImp;
if Fscp.MostraVencimento = 'S'
then
Linha := space(57)+' '+
//
DateToStr(strtodate(DMDados.TabPedido.FieldByName('Data').AsString) + Intervalo +
(Prazo*(i-1)))+' '

DateToStr(strtodate(DATA_ULT_TIT) + Intervalo + (Prazo*(i-1)))+' '


ELSE
Linha := space(57)+' ';
if CBMostra.Checked then
Linha := Linha +
StrSpace(FormataFlutuante(floattostrf(ValorImp,ffnumber,10,2)),10);
Imprime(Linha);
end;
}
end;
end;
end;
i := i + 1;
end;

end;

FImpFaturamento1.QRlabel63.Caption := '';
FImpFaturamento1.QRlabel64.Caption := '';
FImpFaturamento1.QRlabel65.Caption := '';

FImpFaturamento1.QRlabel66.Caption := '';
FImpFaturamento1.QRlabel67.Caption := '';

NomeArq := Alltrim('C:\sce\
PE_'+DMDados.TabPedido.Fieldbyname('Local').asString+'_'+DMDados.TabPedido.Fieldbyn
ame('Pedido').asString+'.TXT');

FImpFaturamento1.QuickRep1.Preview;
FImpFaturamento1.Free;
end;

CDSItens.FieldByName('Total').AsFloat :=
Trunc(((CDSItens.FieldByName('Quantidade').AsFloat*CDSItens.FieldByName('Preco').As
Float)+0.001)*100)/100;
CDSItens.FieldByName('TotalDesconto').AsFloat :=
Trunc(((CDSItens.FieldByName('Quantidade').AsFloat*CDSItens.FieldByName('Desconto')
.AsFloat)+0.001)*100)/100;
CDSItens.FieldByName('Liquido').AsFloat :=
Trunc(((CDSItens.FieldByName('Quantidade').AsFloat*(CDSItens.FieldByName('Preco').A
sFloat-CDSItens.FieldByName('Desconto').AsFloat))+0.001)*100)/100;

{ TODO : Continuar CDSPro TabAuxPro }


{ TODO : Continuar CDSCodigoBarra
TabAuxCodigoBarra }
{ TODO : Continuar
CDSItens TabAuxItens }

//messagedlg('z.1',mtinformation,[mbok],0);

DMDados.TabPRO.oPEN;
DMDados.TabPRO.iNDEXnAME := '';
if DMDados.TabPRO.Findkey([CDSItens.FieldByName('Produto').AsString]) then
BEGIN
if not emptystr(DMDados.TabPRO.FieldByName('GradeTab').AsString) and
(DMDados.TabPRO.FieldByName('GradeTab').AsFloat > 1) then
CDSItens.FieldByName('pACOTES').AsFloat :=
CDSItens.FieldByName('Quantidade').AsFLOAT*1000/DMDados.TabPRO.FieldByName('GradeTa
b').AsFloat;
END;

CDSItens1.FieldByName('Total').AsFloat :=
Trunc(((CDSItens1.FieldByName('Quantidade').AsFloat*CDSItens1.FieldByName('Preco').
AsFloat)+0.001)*100)/100;
CDSItens1.FieldByName('TotalDesconto').AsFloat :=
Trunc(((CDSItens1.FieldByName('Quantidade').AsFloat*CDSItens1.FieldByName('Desconto
').AsFloat)+0.001)*100)/100;
CDSItens1.FieldByName('Liquido').AsFloat :=
Trunc(((CDSItens1.FieldByName('Quantidade').AsFloat*(CDSItens1.FieldByName('Preco')
.AsFloat-CDSItens1.FieldByName('Desconto').AsFloat))+0.001)*100)/100;

{ TODO : Continuar CDSPro TabAuxPro }


{ TODO : Continuar CDSCodigoBarra
TabAuxCodigoBarra }
{ TODO : Continuar
CDSItens TabAuxItens }

//messagedlg('z.1',mtinformation,[mbok],0);

DMDados.TabPRO.oPEN;
DMDados.TabPRO.iNDEXnAME := '';
if DMDados.TabPRO.Findkey([CDSItens1.FieldByName('Produto').AsString]) then
BEGIN
if not emptystr(DMDados.TabPRO.FieldByName('GradeTab').AsString) and
(DMDados.TabPRO.FieldByName('GradeTab').AsFloat > 1) then
CDSItens1.FieldByName('pACOTES').AsFloat :=
CDSItens1.FieldByName('Quantidade').AsFLOAT*1000/DMDados.TabPRO.FieldByName('GradeT
ab').AsFloat;
END;

DMDados.TabItens.Open;
DMDados.TabItens.IndexName := '';

CDSItens1.Open;
CDSItens1.IndexFieldNames := 'Produto;Cor';

TabAuxResumo.Open;
TabAuxResumo.IndexFieldNames := 'Produto;Cor;Indice;Tamanho;Cliente;Lancamento';
TabAuxResumo.First;
while not TabAuxResumo.EOF do
begin
CDSItens1.First;
while not CDSItens1.EOF do
CDSItens1.Delete;
TabAuxResumo.Delete;
end;

ieldByName('Total').AsFloat :=
Trunc(((TabAuxResumo.FieldByName('Quantidade').AsFloat*TabAuxResumo.FieldByName('vA
LOR').AsFloat)+0.001)*100)/100;

Você também pode gostar