Ocultar registro na impress�o, mas consider�-lo

Question

Tenho um campo descri��o, onde est�o os meu dados. Um desses dados, n�o pode ser impresso, mas ele deve fazer parte do somat�rio final. Coloquei um asterisco no final da string e fiz assim no OnPrint ...

Paulo · Answer

aguardo respostas...

Paulo · Answer

Explicando melhor:O cliente ele vende computador e faz entrega que � cobrada, s� que no relat�rio de venda ou or�amento, a palvra entrega n�o pode aparecer, mas tem que ser cobrado o valor. Como ela est� sendo cobrada e n�o aparece, caso o cliente resolva somar, vai ver que foi cobrado um valor a mais. A� que eu devo dividir o valor da entrega pelos demais itens vendidos e somar a cada pre�o de cada produto para n�o aparecer a diferen�a no somat�rio total. Creio que agora me expliquei melhor....

Everton · Answer

Pelo que entendi, voc� simplesmente n�o quer que o campo ENTREGA apare�a no relat�rio quando a �ltima letra for o asterisco, ent�o acho que o c�digo abaixo deve te ajudar.

Coloque no BeforePrint da banda onde se encontra o QRDBText do campo entrega (chamei de qdtEntrega).

qdtEntrega.Enabled := (copy(TabelaCampo.AsString, Length(TabelaCampo.AsString),1) = �*�);

Assim, quando a �ltima letra for * o campo ser� impresso (Enabled = True), caso contr�rio, n�o ser� (Enabled = False).

Carlos Bernardo · Answer

Mesmo n�o pactuando com a sua id�ia de lesionar o cliente final, pois afinal, seremos o cliente final...talvez eu possa ajudar...

usando sua condi��o

if copy(TabelaCampo.asstring, length(tabelacampo.asstring),1) = �*� then begin
qrdbtext.font.color := clWithe;
end;

espero ter te ajudado a resolver um problema e n�o a :( enganar o povo....
:(

Paulo · Answer

Esta pergunta eu fiz a ele, se � legal ou n�o? N�o s�o todas as m�quinas que ele cobra a entrega, h� um crit�rio e eu concordei, dentro deste crit�rio estabelecido por ele. A quet�o n�o � lesionar, segundo o comprador do software. � como, segundo ele, vc comprar um produto e levar de brinde outro. Vc acha q este outro � de gra�a? Ele � omitido. Eu apenas fa�o software, e espero n�o estar quebrando nenhuma regra. Bem deixemos isso de lado pois foge aos objetivos deste forum.
Quanto a omitir a string, j� consegui, fazendo assim no OnPrint do QRDBText:

if copy(TabelaCampo.asstring, length(tabelacampo.asstring),1) = �*� then begin
value:=��;
end;
Agora, como dividir o valor da entrega(R$23,00, por exemplo) pela qde de itens vendidos e somar ao pre�o de cada item?

Aroldo Zanela · Answer

Colega,N�o sei se entendi corretamente, mas voc� quer apenas fazer o rateio do valor da entrega em cada item comprado, ou seja, o valor da entrega deve ser rateado para todos os produtos constantes da nota fiscal/pedido. N�o � nenhuma m�gica do tipo: 1+1+1 = 2? ou melhor 1+1=3?...

Paulo · Answer

N�o, n�o � isso: O valor deve ser rateado pelos valores de cada item, e depois o samat�rio de tudo, com o valor rateado. Comigo est� dando um erro no loop, ou seja, o valor est� somando ao primeiro item e s�:

a:2,3;//a � valor rateado
tabela.first;
while not tabela.eof do begin
tabelavaloritem.value:=tabelavaloritem.value+a;
tabela.next;
end;
Assim n�o est� funcionando. Se eu colocar a vari�vel �a� dentro do loop, tamb�m n�o funciona. Uso ACCESS com ADO.

Fabio.hc · Answer

Vc quer s� imprimir?Tente assim: No QRDBText do valor vc soma o rateio, j� que vc j� tem o valor que ser� rateado para todos os itens.Ex:[code:1:26191d46fc]procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);begin   value:=floattostr(strtofloat(value) + 2.3);end;[/code:1:26191d46fc]...

F�rum Ocultar registro na impress�o, mas consider�-lo #211880