Tenho uma tabela com registros cujo código tem o seguinte fomato:
1.001.0001
1.001.0002
1.002.0001
1.002.0002
1.003.0001
1.003.0002
Queria colocar em um array os registros com o codigo até : '1.001' , '1.002', etc.
E em outro array o codigo completo, no formato: '1.001.0001' .
Pois, estou montando um relatorio de plano de contas e estou identado os valores.
Já tentei fazer assim :
while not qyRec.Eof do
begin
if (copy(qyRelPlanConcdPlano.AsString,1,1) = '1') then
begin
totalRec := totalRec + qyRecvlLiqui.AsFloat;
QRLabel10.Caption := 'R$ '+floattostr(totalRec);
end;
for i:=0 to 100 do
begin
if (trim(copy(qyRelPlanConcdPlano.AsString,1,5)) <> cdFormato1[i]) and (trim(copy(qyRelPlanConcdPlano.AsString,1,5)) <> '1. ') then
begin
cdFormato1[i] := copy(qyRelPlanConcdPlano.AsString,1,5);
subRec[i] := subRec[i] + qyRecvlLiqui.AsFloat;
end
else
subRec[i] := subRec[i] + qyRecvlLiqui.AsFloat;
QRLabel10.Caption := 'R$ '+floattostr(subRec[i]);
end;
qyRec.Next;
end;
Pergunta
Guest --junior.ds --
Boa tarde a todos!
Tenho uma tabela com registros cujo código tem o seguinte fomato:
1.001.0001
1.001.0002
1.002.0001
1.002.0002
1.003.0001
1.003.0002
Queria colocar em um array os registros com o codigo até : '1.001' , '1.002', etc.
E em outro array o codigo completo, no formato: '1.001.0001' .
Pois, estou montando um relatorio de plano de contas e estou identado os valores.
Já tentei fazer assim :
Mas não tá armazenando nos arrays os valores.
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.