Power Builder - Algoritmo para Repartir un pago en varios prestamos

 
Vista:
Imágen de perfil de Leonardo Daniel A.
Val: 848
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Algoritmo para Repartir un pago en varios prestamos

Publicado por Leonardo Daniel A. (376 intervenciones) el 21/06/2018 19:25:15
Hola, estoy con una aplicacion en la cual se registran los prestamos que se le hacen a un Chofer.. y cuando se le va a pagar, pues el dice cuanto va a abonar a su deuda, el puede que tenga 1,2 o hasta 3 prestamos que aun no ah pagado, el asunto es que al capturar el "abono integral" este se debe repartir en los prestamos que tiene, pero no doy con bola, tengo solucionado cuando es el primer registro, pero no hay como lograr obtener los saldos de ese registro y poder leerlos en el 2do. les dejo imagen de lo que necesito hacer
foto

es un datawindow, y lo recorro con un For
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Algoritmo para Repartir un pago en varios prestamos

Publicado por Bunker (74 intervenciones) el 27/06/2018 17:17:24
Hola Leo
Tengo hecho algo similiar a lo que deseas
Varias Facturas Pendientes
Se realiza un Pago y va aplicando factura x factura controlando el remanante
al final si no alcanza se aplica como pago a cuenta

si crees que te sirve te paaso el scrip
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 848
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Algoritmo para Repartir un pago en varios prestamos

Publicado por Leonardo Daniel A. (376 intervenciones) el 28/06/2018 17:28:04
Hola que tal.. Si gracias.. te lo agradeceria.!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Algoritmo para Repartir un pago en varios prestamos

Publicado por bunker (74 intervenciones) el 04/07/2018 13:19:57
Leonardo quizás te sirva
Saludos


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
//**********************************************************
//Cancelando total o parcial en tanto y cuanto
//exista remanente del importe pagado
//*********************************************************
Dec{2}        Deuda
Long			Filas_Deudas
Long			n
 
n			    = 0
Filas_Deudas = dw_detalle.RowCount()
Importe_Pago = Dec(em_pago.text)
ls_selected_data_caja.importe_ingreso  =  Importe_Pago
ls_pendientes_pago.importe_pagado     =  Importe_Pago
 
 
Deuda = dw_detalle.Object.total_pendiente[Filas_Deudas]
 
If Importe_Pago > Deuda Then
	MessageBox("Cobranzas" ,""+ "Se Ingreso Un Importe Mayor que el Total de la Deuda" &
	 + " ~n~r" &
	 + " ~n~r" &
	 + "Deuda 				: $ " + String (Deuda) &
	 + " ~n~r" &
      +"Importe Ingresado : $ " + String ( Importe_Pago) 	,Information!)
	Return 1
End If
 
For n=1 To Filas_Deudas
	Glob_Factura_Deuda  = dw_detalle.Object.mask_comprobante[n]
	Importe_Factura         = dw_detalle.Object.importe_pendiente[n]
    Importe_Pagado         = dw_detalle.Object.importe_pagado[n]
 
 
Choose Case Importe_Pago
	Case Is< Importe_Factura
        Importe_Remanente                                = 	Importe_Factura - Importe_pago
        Recibo_Aplicado 								  = 	dw_detalle.Object.recibo_relacionado[n]
        dw_detalle.Object.importe_pagado[n]		  =     Importe_Pago
        dw_detalle.Object.importe_pendiente[n]	  =     Importe_Factura - Importe_Pago
        dw_detalle.Object.estado[n]	  				  =    "Parcial"
        ls_data_cta_corriente.status				  	  =    "Parcial"
 
        Glob_Importe_Deuda          =   Importe_Factura
        Glob_Importe_Pagado        =    Importe_Pagado
        Glob_Importe_Remanente   =    Importe_Remanente
//		MessageBox("No Hay Remanente NO SE Continua Aplicando Pagos" ,"" + String(Importe_Remanente))	     	
        Continua_Aplicando = False
 
	Case  Is> Importe_Factura
        Importe_Remanente                                = Importe_Pago - Importe_Factura
        dw_detalle.Object.importe_pendiente[n]	  =     0.00
        dw_detalle.Object.importe_pagado[n]		  =     Importe_Factura
        dw_detalle.Object.estado[n]	  				  =    "Cancelado"
        ls_data_cta_corriente.status				 	  =    "Cancelado"
 
        Glob_Importe_Deuda          =   Importe_Factura
        Glob_Importe_Pagado        =    Importe_Pagado
        Glob_Importe_Remanente   =    Importe_Remanente
 
//	      	MessageBox("Hay Remanente Continua Aplicando Pagos" ,"" + String(Importe_Remanente))
        Continua_Aplicando = True
 
Case Else
//		MessageBox("Ok Importe Exacto No hay mas Pagos " ,"")
    dw_detalle.Object.importe_pagado[n]		  =     Importe_Pago + Importe_Pagado
    dw_detalle.Object.importe_pendiente[n]	  =     0.00
    dw_detalle.Object.estado[n]	  				  =    "Cancelado"
    ls_data_cta_corriente.status				 	   =   "Cancelado"
 
    Glob_Importe_Deuda          =   Importe_Factura
    Glob_Importe_Pagado        =    Importe_Pagado
    Glob_Importe_Remanente   =    Importe_Remanente
 
    Continua_Aplicando = False
 
End Choose
 
 
If Continua_Aplicando = False Then
	pb_caja.Enabled	=True
	pb_pencil.Enabled	=False
	Return 1			// Fundamental Break
Else
	Importe_Pago   = Importe_Remanente
End If
Next
 
pb_caja.Enabled=True
pb_pencil.Enabled=False
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 848
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Algoritmo para Repartir un pago en varios prestamos

Publicado por Leonardo Daniel A. (376 intervenciones) el 05/07/2018 01:58:25
Gracias... lo voy a revisar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar