Erro de null invalido.

Amigos fiz uma expressão na consulta da list do form,"HistoricoOS" para fazer um cáculo que necessito,mas agora ta me dando Erro de Null inválido,como poderei resolver isso.

Abç.



https://dl.dropboxusercontent.com/u/90217826/Osteste%20OK%20-%20Noob%283%29%20-%20C%C3%B3pia.rar

Coloquei na função o On Error Resume Next não da erro mas não me traz o valor da coluna 7 me traz "0" zero,que pode ser.
Obs: tem que clicar  duas vezes na list do form HistoricoOS para aparecer no frmReceberDivida.

Function RetValor()
On Error Resume Next

Dim varTotal As Currency
Dim varRow As Integer
For varRow = 1 To (lstDivida.ListCount - 1)
varTotal = varTotal + lstDivida.Column(7, varRow)
Next
txtValorDivida = varTotal

End Function

Kaynan

Você alterou o número da coluna na função (veja no exemplo que te enviei):
A sexta coluna é do valor total da coluna TXTVALOR, que é o total da dívida.

Function RetValor()
On Error Resume Next

Dim varTotal As Currency
Dim varRow As Integer
For varRow = 1 To (lstDivida.ListCount - 1)
varTotal = varTotal + lstDivida.Column(6, varRow)    '<----------- agora está correto, coluna 6 pra retornar o total da divida.
Next
txtValorDivida = varTotal

End Function


Depois verifique a consulta  CONSULTA_DIVIDA que está com erro

Outro grande detalhe, campos numéricos não pode ter valores nulo.
Para evitar isso coloque o valor padrão na tabela como 0
E coloque o zero nos campos numéricos que estiverem em branco nas tabelas.


Noob

noob,quando o cliente por exemplo Adão Carlos pagar parte da divida como faço ficar marcado o restante da divida no Contas a receber.
Veja na consulta da list HistoricoOS fiz uma expressão para diminuir o valor pago com o valor da divida,por isso mudei o numero da coluna,mas não sei se vai dar certo.

Kaynan

Tai o exemplo modificado.

Atente para a tabela REA8, eu mudei a ordem dos campos de valores, por consequencia, mudei o numero da coluna da lstDivida.

Veja se é isso que pretendia:

Valor da Dívida: total das OS
Abater/quitar: Valor que o cliente deseja quitar ou abater da dívida.
Total Pago: Mudaria essa etiqueta  para Dinheiro: Dinheiro dado para descontar o valor da quitação/abatimento da dívida
Resta a Pagar: Saldo da dívida
Troco: o nome já diz;  Total Pago-Abater

Noob

Ola noob eu baixei teu exemplo, o cliente Juca deve 280,00 ele veio e me pagou 80,00,apareceu que resta a pagar 200,00 mas ao clicar enter ele me diz dados insuficiente e permanece assim e não muda. Ai acontece assim....

Você não me disse onde clicou o Enter.

Mas eu fui adicionando os valores e clicando enter e funfou.
Só não funfou no controle TotalPago, porque esqueci de transferir parte
do código que estava em outro controle para ele.

Eu reanexei o arquivo, baixe novamente e teste


Noob

Noob aqui continua do mesmo jeito mesmo o Juca pague 80,00 dos 280 continua 280,00 a pagar.

Cada vez que faço um pagamento e clico no botão gravar ele me retorna dados insuficientes,e não aparece o valor pago e o saldo é claro continua o mesmo.

Uma imagem vale mais que  mil palavras

Kaynan  - Clique para ver a imagem:

Mas veja bem, eu só arrumei isso ai, você deve continuar com programação de outras partes, como salvamento, etc..

Noob

Aqui não esta fazendo isso.
Me envia outra vez esse teu exemplo pra mim ver se funciona aqui.

Noob repare esse exemplo ta fazendo tudo que desejo ou quase,faça um pagamento de um cliente e depois clic em atualizar no form HistoricoOS,funciona perfeito,só que la no ReceberDivida o campo valor da divida teria que mudar para o valor restante entende.
Obs:Vamos tentar mais uma vez se não der desisto,to te atrapalhando muito com esse bd abençoado.


https://dl.dropboxusercontent.com/u/90217826/Osteste%20OK%20-%20Noob.rar

Kaynan

Na realidade Kaynan, a coisa não é só por ai.

Veja:

Vamos pegar o Juca como exemplo e aquela imagem que postei:

Na primeira vez, ele devia  R$ 280,00 em serviços e pagou R$ 100,00, restando R$ 180,00 de dívida. certo?

Agora, como você fará quando ele retornar para pagar parte ou o restante da dívida?

Concordo que deve ter uma relação de OS atrelado ao cliente, mas para receber desse clientes,
você tem que ter um CAIXA.
E prever nesse caixa o pagamento do restante da dívida.

Então, terá que ter uma tabela e um formulário de caixa para tratar de valores recebidos.

Pense nisso, antes de prosseguir.
Reanexando o arquivo.
Noob

Noob

É verdade noob teria que ter um caixa.
Mas me diga no exemplo que esta no post acima teria um jeito do campo ReceberDivida reconhecer essa outra coluna que esta escrito a receber deve ser a coluna 7.
Conseguindo isso ja ta loco de bão..