Cambio de Cuenta Bancaria en Facturas Proveedor

Problema / Problem: 

Cuando hay un cambio de cuenta bancaria de alguno de nuestros proveedores y tenemos documentos abiertos y necesitamos actualizar la nueva cuenta en estos documentos sin hacer el cambio Manual.

When a Supplier change their Bank account and we have open Suppliers Invoice, we need to update the Bank account after change the account in 28.20.1.2

Versión / Version: 

QAD EE 2013, 2014,2016

Solución / Solve

Se pude hacer el cambio manualmente eliminando la fila de banco por la nueva, ingresando a la opción 28.1.1.2 a la sección Financiera y dan click derecho sobre la cuenta, eliminar fila y después agregar fila para ingresar la nueva cuenta

We can made the change Manual in Supplier Invoice Modify deleting the old account and adding the new bank account.

Para la versión 2018 EE, existe la opción Bank Number Change 28.1.1.14 and 28.1.1.15
For version 2018 EE there is option 28.1.1.14 and 28.1.1.15 Supplier Invoice Bank Number Change

Programa / Program

Por medio de programa, pueden utilizar la siguiente utileria, este programa busca la cuenta default que tenga el proveedor en la tabla Creditor con la unión de la tabla banknumber.

Después busca en la Cinvoice todas las facturas que estén abiertas.
Para este programa primero se debe hacer el cambio de cuenta en el proveedor 28.20.1.2

This program look for the Supplier Code which it's the default account and look for open documents in Cinvoice and update the Banking Id.

FOR EACH  creditor WHERE creditorcode = 'COD_PVE' NO-LOCK,
    EACH  banknumber WHERE ParentObject_ID = Creditor.Creditor_ID  AND
                       BankNumberIsDefault = TRUE NO-LOCK:

      DISPLAY creditor_id FORMAT "-9999999999"
          BankNumber.BankNumber
              BankNumber.banknumber_id FORMAT "-9999999999" .

      FOR EACH cinvoice WHERE Cinvoice.Creditor_ID = Creditor.Creditor_ID AND                                                                               cinvoiceisopen = yes NO-LOCK,
              EACH cinvoicebank OF cinvoice EXCLUSIVE-LOCK:
       IF Cinvoicebank.banknumber_id <>  BankNumber.banknumber_id  THEN DO:
                        DISPLAY Creditor_ID                FORMAT "-9999999999"
                  CInvoiceReference          FORMAT "X(30)"
   Cinvoicebank.banknumber_id FORMAT "-9999999999" .                 
   /* ASSIGN cinvoicebank.banknumber_id = BankNumber.BankNumber_ID. */
   END.
      END.                                                                     
END.


Esta utileria les mostrara en pantalla que documentos actualizó