repor estoque de itens que foram para garantia ou emprestados

[flavioavilela]

galera, boa noite a todos e eu novamente amolando vocês rsrs...

seguinte, tenho uma janela em meu sistema de garantias e vendas consignadas...

por exemplo, quando eu faço um emprestimo (venda consignada) para um cliente de por exemplo, 2 lapis e 2 borrachas... semana que vem ele vem e me devolve apenas 1 lapis e 1 borracha, então, ainda sobra 1 lapis e 1 borracha ainda constando que está com ele.... estou a quase uma semana tentando fazer isso aqui e não estou conseguindo... eu consegui fazer ele devolver tudo, mas, de 1 em 1 ou 2 em 2 ou 3 em 3 ou a forma que seja que o cliente queira devolver eu não consegui.... alguém pode me dar uma luz nisso ai???

desde já agradeço a atenção de todos...

[Eder Moraes]

galera, boa noite a todos e eu novamente amolando vocês rsrs...

seguinte, tenho uma janela em meu sistema de garantias e vendas consignadas...

por exemplo, quando eu faço um emprestimo (venda consignada) para um cliente de por exemplo, 2 lapis e 2 borrachas... semana que vem ele vem e me devolve apenas 1 lapis e 1 borracha, então, ainda sobra 1 lapis e 1 borracha ainda constando que está com ele.... estou a quase uma semana tentando fazer isso aqui e não estou conseguindo... eu consegui fazer ele devolver tudo, mas, de 1 em 1 ou 2 em 2 ou 3 em 3 ou a forma que seja que o cliente queira devolver eu não consegui.... alguém pode me dar uma luz nisso ai???

desde já agradeço a atenção de todos...

Você pode fazer o seguinte, primeiro fazer a verificação da quantidade de items da devolução, perguntar para o usuario quantos item seram devolvidos para o estoque, vejamos.

procedure ....;

label volta;

var aux : string;

begin

aux := '1';

volta:

if saidaQTDE.AsInteger > 1 then

if InputQuery('Devolver?','Quantidade a ser devolvida:',aux) and (aux <> '') then begin {abre uma janela para o usuario especificar a quantidade a ser retornada.}

try strtoint(aux) except on exception do begin showmessage('Valor especificado inválido!'); exit; end; end;

if strtoint(aux)>saidaQTDE.AsInteger then begin showmessage('Quantidade superior ao permitido para devolução.'); goto volta; end;

estoqueQTDE.AsInteger := estoqueQTDE.AsInteger + strtoint(aux); //retorna para o estoque

saidaQTDE.AInteger := saidaQTDE.AInteger - strtoint(aux); {se subtrai da saida.}

{if saidaQTDE.AsInteger = 0 then //você pode colocar a rotina para eliminar o item....}

{OBS: para items fracionado use strtofloat(aux)}

end;

end;

Editado Fevereiro 20, 2009 por Eder Moraes