Processo de Baixa em varias contas a receber de uma unica vez

[Help_Junior2020]

Olá bom dia fiz um sistema de vendas com lançamento das contas do clientes no contas a receber ate ai tudo ok, so que não sou muito pratico em VB 6.0 e agora preciso fazer uma baixa de varias contas de um unica vez tipo assim

Exemplo:

o Cliente tem um saldo devedor de R$ 1.000,00 sendo que esse valor é correspondente a 6 contas que totaliza esse valor

Conta 001 =  150,00 

Conta 002 =  50,00
Conta 003 =  250,00
Conta 004 =  125,00

Conta 005 =  125,00

Conta 006 =  300,00

Total R$ 1.000,00

Ai quero dá baixa de R$ 850,00, ai neste caso quero que der baixa nas 5 primeiras contas  e na ultima conta no valor de R$ 300,00 baixar apenas R$ 150,00 que vai totalizar os R$ 850,00 e fica o saldo devedo do cliente de R$ 150,00

 

Espero que der pra entender o que falei 

Conto com o auxilio dos amigos 

 

 

[Alyson Ronnan Martins]

Boa tarde @Help_Junior2020.

Você já tentou usar a "variável" exemplo:

Dim cmdSaque as double
cmdSaque = 850

For Each lstConta in lstContas
	if cmdSaque = 0 then
		
	else if lstConta > cmdSaque then
		lstConta = lstConta - cmdSaque
		cmdSaque = 0
	else
		cmdSaque = cmdSaque - lstConta
		lstConta = 0
	end if
Next

pode ter ficar um pouco complicado mais olha se conseguiu entender.