ActiveDelphi

[CENTURYINF]

Ola amigos,

Estou tendo problemas paa carregar os valores
sobre peso bruto
peso liquido
especie
volume

EX: transp.vol.qvol:=4;
transp.vol.esp:='CAIXA';
transp.vol.pesoB:=100.000;
transp.vol.pesoL:=950.000;

se alguem puder me ajudar , fico grato...

[CENTURYINF]

CONSEGUI RESOLVER volumes/pesos/parcelas ASSIM
EX: transp.vol.qvol:=4;
transp.vol.esp:='CAIXA';
transp.vol.pesoB:=100.000;
transp.vol.pesoL:=950.000;

//correto
//VOLUMES
with transp.vol.add do
BEGIN
qVol:=table1volume.value;
esp:='CAIXAS';
pesoB:=table1pesbru.value;
pesoL:=table1pesliq.value;
end;
//FATURA
cobr.fat.nfat:=floattostr(table1fatura.value);
cobr.fat.vorig:=table1TOTPED.value;
cobr.fat.vliq:=table1valfat.value;
//PARCELAS
IF(TABLE1VALOR1.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='01'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc1.value;
vdup:=table1valor1.value;
end;
END;
IF(TABLE1VALOR2.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='02'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc2.value;
vdup:=table1valor2.value;
end;
END;
IF(TABLE1VALOR3.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='03'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc3.value;
vdup:=table1valor3.value;
end;
END;
IF(TABLE1VALOR4.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='04'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc4.value;
vdup:=table1valor4.value;
end;
END;
IF(TABLE1VALOR5.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='05'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc5.value;
vdup:=table1valor5.value;
end;
END;
IF(TABLE1VALOR6.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='06'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc6.value;
vdup:=table1valor6.value;
end;
END;