MAPA DE TROCO - PDV

[marcioe]

Olá amigos, boa tarde 

Preciso fazer um Mapa de troco, 

Exemplo

R$ 45,30 

4 Nota(s) de R$ 10,00
1 Nota(s) de R$   5,00
3 Moedas de R$  0,10

 

Algo assim 

[lucimauromelo]

O acbr tem o acbrtroco para essa finalidade se não me engano.

[emotta]

Rascunhei agora essa funcão, nos testes rápidos que fiz deu certo. Veja se ela te ajuda e se tiver algo errado corrija e poste aqui caso alguem precise no futuro

 

 

Function u_Main()

Local nValor := 287.77

 

aTroco := CalculaNotas(nValor)

 

MsgStop(Sr_ShowVector(aTroco))

 

Return

 

Static Function CalculaNotas(nValor)

Local aNotas := {200, 100, 50, 20, 10, 5, 2, 1, .50, .25, .10, .05, .01}

Local nDif := nValor * 100

Local nI

Local aTroco := {}

Local nCedulas

 

For nI := 1 to Len(aNotas)

  aNotas[nI] := aNotas[nI] * 100

Next

 

For nI := 1 to Len(aNotas)

  nCedulas := Int(nDif / aNotas[nI])

  nDif := nDif - (nCedulas * aNotas[nI])

 

  If nCedulas > 0

    aadd(aTroco, {aNotas[nI]/100, nCedulas})

  EndIf

Next

 

Return aTroco

[kapiaba]

1 hora atrás, emotta disse:

Eduardo:

 MsgStop( Sr_ShowVector( aTroco ) )

 

Who is this?

 

Abs

 

[marcioe]

top isso mesmo obrigado a todos

[emotta]

16 horas atrás, kapiaba disse:

 MsgStop( Sr_ShowVector( aTroco ) )

 

Who is this?

 

Abs

 

é uma função do SQLRDD que exibe em texto um array, pode ignorar pois isso não tem referencia nenhuma a funcionalidade, é apenas uma maneira fácil de exibir um array na tela.

[marcioe]

Basta Rodar assim que já tem o resultado 

 

Xbrowse(aTroco)

 

Top o resto é fazer os ajustes conforme for preciso