8 respuestas en este tema

[jorgebq77]

Saludos amigos del foro,

 

Acabo de elaborar una pantalla de pagos de facturas para un punto de venta que me pidió un amigo cercano. Ya termine el método para aplicar el pago a varias facturas a la vez, pero NO ESTOY CONFORME con el código que hice para hacer dicha tarea. Por lo tanto, necesito que por favor me ayuden a elaborar un código mas optimizado ó mas entendible para distribuir el monto a pagar a varias facturas.

 

Si no saben o no entienden a que me refiero les dejo un link de un video en YouTube que expone exactamente lo que quiero hacer: https://www.youtube....h?v=ySPtVuV12lY  para hacer mas exacto adelanten el video hacia el minuto 1:50, si quieren verlo completo eso es opción de ustedes     

 

El código que hice para aplicar el pago es este :

delphi

//AQUI SE DISTRIBUYE EL MONTO APLICADO A TODAS LAS FACTURAS...
procedure TForm1.EdMontoChange(Sender: TObject);
var
  ConceptoPago, ConceptoAbono, ValorEncontrado : string;
  MontoApagar : Currency;
begin
  MontoApagar       := EdMonto.Value;  //EN ESTE TEDIT LLAMADO "EdMonto" CAPTURO EL MONTO QUE SE APLICARA A LAS FACTURAS
  ConceptoPago      := ''; //Estas variables las uso para armar el concepto de pago
  ConceptoAbono     := '';
  EdConcepto.Text   := ''; //EN ESTE TEDIT MUESTRO EL CONCEPTO DE PAGO
  ValorEncontrado   := '';
 
  TbFacturas.First;
  while not TbFacturas.Eof do
    begin
      TbFacturas.Edit;
      TbFacturas.FieldByName('MontoApagar').AsFloat := 0.00;
      if EdMonto.Value = TbFacturas.FieldByName('MontoPendiente').AsFloat then
        begin
          TbFacturas.FieldByName('MontoApagar').AsFloat := EdMonto.Value;
          ValorEncontrado := 'SI';
          ConceptoPago    := 'Saldo Factura Nro. ' + IntToStr(TbFacturas.FieldByName('NroFactura').AsInteger);
          Break;
        end;
 
      TbFacturas.Next;
    end;
 
  if ValorEncontrado <> 'SI' then
    begin
      TbFacturas.First;
      while not TbFacturas.Eof do
        begin
          TbFacturas.Edit;
          TbFacturas.FieldByName('MontoApagar').AsFloat := 0.00;
          if MontoApagar < TbFacturas.FieldByName('MontoPendiente').AsFloat then
            begin
              TbFacturas.FieldByName('MontoApagar').AsFloat := MontoApagar;
 
              if MontoApagar > 0 then
                ConceptoAbono := 'Abono Factura Nro. ' + IntToStr(TbFacturas.FieldByName('NroFactura').AsInteger);
 
              MontoApagar := 0;
            end
          else
            begin
              TbFacturas.FieldByName('MontoApagar').AsFloat := TbFacturas.FieldByName('MontoPendiente').AsFloat;
              MontoApagar := MontoApagar - TbFacturas.FieldByName('MontoPendiente').AsFloat;
 
              if ConceptoPago = '' then
                ConceptoPago := 'Saldo Factura Nro. ' + IntToStr(TbFacturas.FieldByName('NroFactura').AsInteger)
              else
                ConceptoPago := ConceptoPago + ', ' + IntToStr(TbFacturas.FieldByName('NroFactura').AsInteger)
            end;
 
          TbFacturas.Next;
        end;
    end;
 
  if (ConceptoPago <> '') and (ConceptoAbono <> '') then
    EdConcepto.Text := ConceptoPago + ', ' + ConceptoAbono
  else
    EdConcepto.Text := ConceptoPago + ConceptoAbono;
 
end;

La razón por la cual no quede conforme con el código que hice es por que tuve que emplear dos bucles para recorrer la tabla, (la lógica no me quedo bien) y emplee una variable auxiliar llamada "ValorEncontrado".

 

Por favor vean el video en el link que le puse y revisen el código que hice y ayúdenme a mejorarlo ya que me quedo muy largo y algo redundante.

 

Gracias por su atención.

 

Att: Jorge Abel

 

 

 

 

 

 

 

 

[egostar]

Buenos días jorgebq77, 
 
Así de primera vista creo que hay algunos detalle,

• ¿Estás aplicando el montoapagar a todas las facturas o a una sola factura? 
• El valor de montoaApagar lo inicializas en cero en ambos recorrido.

Tal vez esto se podría resolver con eventos en la base de datos en lugar de hacerlo en el código, me haré un tiempo para ver tu video porque si me parece un poco confuso el procedimiento.

 
Saludos

[jorgebq77]

Respondiendo a tu pregunta amigo Egostar, el montoapagar se lo puedo aplicar a todas las facturas ó a una sola factura, eso esta a opción del usuario. Échale un vistazo al link del video y te darás cuenta de lo que quiero lograr.

 

Gracias por tu aporte amigo.

[egostar]

Ya he podido ver tu video, pero quiero saber si entendí bien.

 

Lo que quieres es que se haga el prorrateo del monto a pagar en los documentos del cliente hasta donde alcance?, 

 

Ahora, porque hiciste dos ciclos? Me gustaría entender tu proceso antes de considerar un cambio,.

 

Saludos

[jorgebq77]

Exacto!!! eso es lo que quiero hacer, distribuir el monto a pagar ó "prorrateo" hasta donde alcance....

 

Hice dos ciclos, el primero es para verificar si el monto que digito alcanza para saldar la factura, el otro, es para manejar tanto el saldo de la factura como el abono... 

 

Creo que no es necesario hacer dos bucles para eso, es por eso que requiero de la ayuda para mejorar el código.

[egostar]

Hola.
 
Yo creo que no es necesario verificar si el monto alcanza y después manejar los saldos.
 
Asumimos que el monto a pagar puede o no alcanzar para pagar la primer factura, entonces, con seudocódigo....
 
 

delphi

LABEL REGRESA
  Si Monto_A_Pagar > Monto_Factura
    Cancelamos Factura1 
    Restamos MontoFactura del Monto_A-Pagar
    GOTO REGRESA
  en caso contrario
    Restamos Monto_A-Pagar de MontoFactura
  Salir

 
 
  Perdón no pude evitar el uso GOTO/LABEL
 
  Recordando el debate que se hizo hace unos días
     


 
Saludos

Archivos adjuntos

•  GoTo_Label.png   27,09KB   0 descargas

[jorgebq77]

Ok... Aunque no soy muy partidario del uso del goto por el asunto del código espagueti pero intentare adaptar el seudocódigo, aunque no entiendo la linea nro. 3 donde dice "Cancelamos Factura1", no se cual código corresponde en esa linea...

[egostar]

Ok... Aunque no soy muy partidario del uso del goto por el asunto del código espagueti pero intentare adaptar el seudocódigo, aunque no entiendo la linea nro. 3 donde dice "Cancelamos Factura1", no se cual código corresponde en esa linea...

 

 

 

No no, lo hice porque recordé el debate, pero lo haría con un bucle WHILE o REPEAT, depende cual te acomode mas.

Saludos

[egostar]

Ok... Aunque no soy muy partidario del uso del goto por el asunto del código espagueti pero intentare adaptar el seudocódigo, aunque no entiendo la linea nro. 3 donde dice "Cancelamos Factura1", no se cual código corresponde en esa linea...

 

En cuanto a Cancelar Factura es dejarla como pagada, saldada o liquidada, no se como se diga en tu país.

 

Saludos