[Resolvido]Calculo de porcentagem em contas a receber

Saudaçoes a todos...

Tenho uma consulta baseada em uma tabela de caixa...

Valor Parcela 100,00

Valor Pago 30,00

Valor Restante 70.00

tem como em um campo de consulta, posterior a esses valores 30%


Se puderem ajudar.. fico Grato

Tente algo assim:

Porcento: 100-([Total]-[Pago]*100/[Total])

Prezado Criquio...

Esta dando Sintaxe errada...

= Porcento: 100-([Vl_Parc]-[ValorPago]*100/[Vl_Parc])

Ah, você quer isso direto em um campo de um formulário. Pensei que era em uma consulta. Então tire o Porcento: e deixe apenas =100-([Vl_Parc]-[ValorPago]*100/[Vl_Parc])

Bom dia amigo criqui, volto a este topico.. estou com um problemina na expressao...


Seguinte

Valo Original da parcela 200,00
Valor Pago 150

Vslor Restante a pagar 50

Como fazer o calculo da porcentagem do valor pago..

O valor pago representa quantos porcento do valor pago?

Se puder me ajudar...

Podes tentar assim: =([Total]-([Total]-[ValorPago]))/[Total]

Esse campo que vai receber esse cálculo deve estar no formato Porcentagem.

Amigo criquio me faz um favor.. escreva ela utilizando os campos que te enviei ai acima
podes faze-lo, se nao for incomodo..

grato

Amigao.. nao estou conseguindo...

Amigao..
o calculo deu certo ...

mas quando o valor restante for 0
quando o total recebido = valor da parcela original
100% recebido...

no campo da porcentagem aparece o seguinte

#Div!0%

tem como suprimir isso?

Aqui quando o valor pago é o valor da parcela, aparece 100,00%, mas tem um outra forma que dá 100,00% tambem, pelo menos aqui deu:

=SeImed([ValorPago]=[Vl_Parc];1;([Vl_Parc]-([Vl_Parc]-[ValorPago]))/[Vl_Parc]

ainda aparece a mensagem quando a divisao e por 0

quando o valor restante e (Vl_PArc) e zero

olha so.. o valor pago.. nao é um campo na tabela..
ele e um valor na consulta...

Mas ambos campos estão no formulário, não estão? Algum desses campos tem alguma formatação diferente?

esse campo so uso no relatorio

na consulta ele esta assim:

Vou colocsr os nomes certos dos campos...

Vl_Parcelas - O valor original da parcela (campo fisico na tabela)
Val_Parc - o valor da parcela original - o valor pago (campo fisico na tabela)
TotalRecebido - Campo apenas para consulta (nao existe na tabela, so existe na consulta)
TotalRecebido: nz([Vl_Parcelas])-nz([Val_Parc])

O TotalRecebido só uso no relatorio...

O codigo que estamos usando esta dando certo no relatorio
exceto quando a parcela foi quitada, assim:

Vl_Parcelas - 200,00 (Valor fixo da parcela original)
Val_Parc - 160,00 (Valor restante - considerando o pagamento de 40,00)
TotalRecebido - [Vl_Parcelas]-[Val_Parc] = 40,00

Porcentagem do recebimento = 25%

Agora se:
Vl_Parcelas - 200,00 (Valor fixo da parcela original)
Val_Parc - 0,00 (Valor restante - considerando o pagamento de 200,00)
TotalRecebido - [Vl_Parcelas]-[Val_Parc] = 200,00

Porcentagem do recebimento = #Div!0%
(esse numero deveria ser 100%

Coloquei tambem direto na consulta

Porcento: 100*(([Val_Parc]-([Val_Parc]-[totalRecebido]))/[Val_Parc])

mas onde o Vl_Parc - 0
e o TotalRecebido = 200
A linha da porcentagem da erro

E se trocar o primeiro * por -?

Porcento: 100-(([Val_Parc]-([Val_Parc]-[totalRecebido]))/[Val_Parc])

os valoes saem errados..
a multiplicacao por 100 e apenas para que os juros nao aparecam em decimais...
assim 0,25
100*0,25 = 25%

o problema esta na divisao por 0 quando a parcela se encontra quitada

Porcento: 100*(([160]-([160]-[50]))/[160]) = 25% (Certo)

Porcento: 100*(([0]-([0]-[200]))/[0]) = #Div!0 (Errado) Deveria ser 100%

isso nao influencia no relartorio.. mas fica com um visual estranho..

sera que poderemos ver algum codigo no evento deste campo que assim que der essa situacao, o valor ser mostrado 0,00?

Eu testei a função que lhe passei em um relatório e funcionou certinho. Deve ter alguma coisa na formatação desses campos que esteja dando erro. Sem a gente ver fica meio complicado.

Meu prezado.. este sisteminha ja esta praticamente pronto... e vou colocá-lo no repositorio... deixarei assim.. e quando estiver la.. da uma olhadinha....
quando eu mandar te aviso qual e o relatorio para que possa ver..

Convem frisar que tal questao nao da erro nos valos, mas os campos com quitacao 100% aparecerao daquela forma

Grato...

Certo, verei depois então.

Prezado Críquio, bom dia..

Como combinado, link no forum para a aplicação

http://maximoaccess.forumeiros.com/t2438-sistema-de-controle-de-contas-a-receber-com-calculo-de-parcelas-recebimento-total-ou-parcial-das-parcelas-pagamento-fracionado#19393

Colocas-te no repositório de exemplos?

Ele esta pronto vieira....
o Detalhe que nao resolvi,, nao influencia em nada a aplicacao...
e um detalhe que nao influencia em valore em nada...
um detalhe que digamos mais satisfaz a fins esteticos

Já tenho o meu XP a funcionar em pleno. Já posso ajudar-te de novo se precisares. Tinha um vírus sacana e só ontem dei por ela., quando não conseguia abrir o teu relatório. Achei esquisito e detectei. Tá tudo OK.

Ok.. se puder de uma lida neste topico, se tiveres o exemplo que te enviei... voce deve consegui visualizar este problema nele..]

Aguardo

Grato..

na consulta ele esta assim:

Vou colocsr os nomes certos dos campos...

Vl_Parcelas - O valor original da parcela (campo fisico na tabela)
Val_Parc - o valor da parcela original - o valor pago (campo fisico na tabela)
TotalRecebido - Campo apenas para consulta (nao existe na tabela, so existe na consulta)
TotalRecebido: nz([Vl_Parcelas])-nz([Val_Parc])

O TotalRecebido só uso no relatorio...

O codigo que estamos usando esta dando certo no relatorio
exceto quando a parcela foi quitada, assim:

Vl_Parcelas - 200,00 (Valor fixo da parcela original)
Val_Parc - 160,00 (Valor restante - considerando o pagamento de 40,00)
TotalRecebido - [Vl_Parcelas]-[Val_Parc] = 40,00

Porcentagem do recebimento = 25%

Agora se:
Vl_Parcelas - 200,00 (Valor fixo da parcela original)
Val_Parc - 0,00 (Valor restante - considerando o pagamento de 200,00)
TotalRecebido - [Vl_Parcelas]-[Val_Parc] = 200,00

Porcentagem do recebimento = #Div!0%
(esse numero deveria ser 100%

Comecei a ver o exemplo aqui. De início, uma dica: no relatório rpt_HistoricoFracionado, se acrescentar o nz no campo Saldo, ele deixa de exibir o #Erro: =nz([tbl_Parcelas_Vendas_Val_parc];0)-nz([tbl_Historico_Parcelas_ValorPago];0)

Vou continuar a apreciar o exemplo, que está muito bem feito em questão de design. Parabens!

Vou corrigir amigao.. se ver algo mais me avise..
Obrigado

=nz([tbl_Parcelas_Vendas_Val_parc];0)-nz([tbl_Historico_Parcelas_ValorPago];0)

Assim nao deu certo amigao...

retirei os Zeros e funcionou.. é assim mesmo? sem os zeros?

COloquei sem os zeros.. havia funcionado..
agora esta do mesmo jeito..

Amigão...
coloquei direto na consulta.. foi melhor..
Saldo:=nz([tbl_Parcelas_Vendas_Val_parc];0)-nz([tbl_Historico_Parcelas_ValorPago];0)

Deu certo...
se puder ver esse proble que originou o topico fico grato..

vou corrigir isso e recolocar o link no repositorio

se mais algo.. me avise

Obrigado

Prezados... no suporte da Microsoft sobre o erro que estou tendo nesta função..

Tradução do inglês para português

Aplica-se a
Microsoft Office Access 2003
Microsoft Access 97, 2000 e 2002
Se você tentar dividir um número por zero no Access, você recebe um erro # DIV / 0 se você estiver em um formulário ou relatório, ou um # ERRO erro se você estiver em uma consulta. Para evitar uma divisão por zero erro, você pode usar a função IIF para definir o campo de resultados para uma seqüência de comprimento zero ("") se o divisor de cálculo é zero. Você pode então procurar o campo para quaisquer valores que contêm uma cadeia de comprimento zero e sinalizar os resultados. Os seguintes passos demonstram essa técnica, criando uma tabela e um formulário vinculado, inserindo três caixas de texto, e inserir uma expressão.

Criar uma tabela com os valores

1.In a janela do banco de dados, clique em tabelas em objetos e, em seguida, clique em Novo.
2.In caixa de diálogo Nova tabela, clique em Modo Design e clique em OK.
3.Set o nome do primeiro campo de dividendos, segundo a Divisor, eo terceiro a Diferença.
4.Set o tipo de dados para número de todos os três campos.
5.Save a tabela com o tblDivByZero nome. Não defina uma chave primária para a tabela.
6.Switch a Folha de Dados e insira os seguintes valores:
Diferença Dividendo Divisor
10 5 0
20 0 0
30 10 0
7.Close tabela.
Criar um formulário e inserir a função

1.In a janela do banco de dados, clique em Formulários em Objetos e, em seguida, clique em Novo.
2.In caixa de diálogo Novo formulário, clique AutoFormulário: Colunar, clique em tblDivByZero Escolha a tabela ou consulta de onde os dados do objeto vem da caixa e clique em OK.
3.Switch de Design.
4.Set a propriedade OrigemDoControle para a caixa de texto Diferença para a seguinte função:
= IIf ([Divisor] = 0, Null [Dividendo] / [Divisor])
5.Switch a exibição de formulário.
6.Using o seletor de registro na parte inferior do formulário, vá embora cada registro.
A caixa de texto exibe uma diferença de valor para todos os registros cujo divisor não foi zero. Para o registro de que tinham de zero como divisor, a caixa de texto Diferença contém um valor nulo.


Se puderem me ajudar a aplicar esta solucao na expressao..

fico grato

Este e o exemplo de uma solucao para um caso em um post da net


=IIF([Total Of Datasheet Complete] = 0, 0, Abs(Nz([Electrical Equipment])+Nz([Instrument & Controls])+Nz([Non-Rotating Equipment])+Nz([Rotating Equipment]))/[Total Of Datasheet Complete])

Se puderem ajudar

Pensei que tinha resolvido, de acordo o post anterior. Tente usar o Seimed que eu passei antes, colocando vazio caso os campos sejam iguais:

=SeImed([ValorPago]=[Vl_Parc];"";([Vl_Parc]-([Vl_Parc]-[ValorPago]))/[Vl_Parc]

Boa noite amigao, o que eu resolvi foi apenas o proble que voce encontrou ao ver o BD...

O problema que originou este topico ainda nao o resolvi

Esta dando erro (falta de parenteses)

Esta e a expressao original

=nz([Val_Parc]-([Val_Parc]-[totalRecebido]))/nz([Val_Parc])

tente corrigir nessa expressao que esta ai acima porfavor.. esta e a expressao certa

Obrigado

Do jeito que eu passei acima não deu certo? Se funcionar, acho que ficaria melhor:

SeImed([ValorPago]=[Vl_Parc];"";([Vl_Parc]-([Vl_Parc]-[ValorPago]))/[Vl_Parc]

Estranhei porque os campos estao diferentes...estamos falando sobre o mesmo problema?

Esta dizendo que tem um controle invalido...

o relatorio e o rpt_SituacaoRecebidas1

O texto extava errado..
consertei a expressao, mas mesmo com essa continua dando o mesmo erro

=SeImed([TotalRecebido]=[Val_Parc];"";([Val_Parc]-([Val_Parc]-[TotalRecebido]))/[Val_Parc])

Na net...

If a formula returns a #DIV/0 error message there is a way to avoid such results.

For example the formula =A1/B1 will return a #DIV/0 if B1 is empty or a zero.

If you protect your formulas with the ISERROR function, the formula will then look like this:

=IF(ISERROR(A1/B1),0,A1/B1)

E assim?

=IF(IsError([TotalRecebido]=[Val_Parc]);"";([Val_Parc]-([Val_Parc]-[TotalRecebido]))/[Val_Parc])

Mas tem algo errado... mas creio que se arrumar essa serve

A questao esta justamente quando o val_Parc for zero (parcela quitada)

a expressao da erro na divisao por zero...

as linhas que o val_par > 0 nao da erro

Tente assim:

=SeImed(IsError(([Val_Parc]-([Val_Parc]-[TotalRecebido]))/[Val_Parc]);"";([Val_Parc]-([Val_Parc]-[TotalRecebido]))/[Val_Parc])

Se quiser, troque o "" por 0 ou 1 para representar 100,00%

Amigao..

nas linhas que nao tem divisao por zero da certo

mas quando o val_par for 0 ainda da erro

Nao poderia tentar fazer isso na consulta?

É estranho, porque aqui dá certo de qualquer maneira, com as três formas aqui apresentadas. Para colocar na consulta pasta trocar o = inicial pelo nome do campo com dois pontos:

Porcentagem: Iif(IsError(([Val_Parc]-([Val_Parc]-[TotalRecebido]))/[Val_Parc]);"";([Val_Parc]-([Val_Parc]-[TotalRecebido]))/[Val_Parc])

claro que se o nome dos campos forem outros, substituir os nomes tambem.

Talvez esteja precisando atualizar seu Office com os SPs, não seria isso?

Voce testou isso no exemplo que te enviei?

Se sim.. me reenvie ele pra eu abri-lo aqui