Omnis 7 Classic - Redefine List Update

[Juan Bofill]

Try just update files without the Do not cancel pfu option

Juan

> On Dec 14, 2022, at 2:38 PM, Martin Obongita via omnisdev-en <omnisdev-en at lists.omnis-dev.com> wrote:
> 
>  Set main file {F_F004E}
> Calculate VF4E_E1RSNNO as E1_RSNNO
> Set current list #L8
> Define list {VF4E_E1RSNNO,VF4E_RSNNO1..VF4E_RSNNO9,VF4E_RSNNO10..VF4E_RSNNO30,VF4E_CODE1..VF4E_CODE10,VF4E_CODE11..VF4E_CODE15,VF4E_CODE16..VF4E_CODE20,VF4E_CODE21..VF4E_CODE30,VF4E_RATE1..VF4E_RATE10,VF4E_RATE11..VF4E_RATE15,VF4E_RATE16..VF4E_RATE30,VF4E_PRDNO..VF4E_PRDMTH}     ;; VF4E_PRDMTH
> Add line to list
> Redefine list {F4E_E1RSNNO,F4E_RSNNO1..F4E_RSNNO9,F4E_RSNNO10..F4E_RSNNO30,F4E_CODE1..F4E_CODE10,F4E_CODE11..F4E_CODE15,F4E_CODE16..F4E_CODE20,F4E_CODE21..F4E_CODE30,F4E_RATE1..F4E_RATE10,F4E_RATE11..F4E_RATE15,F4E_RATE16..F4E_RATE30,F4E_PRDNO..F4E_PRDMTH}     ;; F4E_PRDMTH
> ;  For each line in list from 1 to #LN step 1
> Set read/write files {F_F004E}
> Set search as calculation {F4E_PRDNO=PRD_NO}
> Find on F4E_E1RSNNO (Exact match,Use search) {E1_RSNNO}
> If flag true
> For L1 from 1 to 30 step 1
> Calculate LVCOLLEN as len([con('F4E_CODE',L1)])
> Calculate LVTOTCOLLEN as LVTOTCOLLEN+LVCOLLEN
> End For
> If LVTOTCOLLEN=0
> Clear range of fields F4E_CODE1 to F4E_RSNNO30
> End If
> Prepare for edit
> Load from list
> Else
> Prepare for insert
> Load from list {1}
> End If
> Update files (Do not cancel pfu)
> If flag false
> OK message (High position) {Unable to update record}
> End If
> End For
> Set read-only files {F_F004E}
> 
> 
> I hope this is readable....
> 
> 
> 
>    On Wednesday, December 14, 2022 at 09:33:30 PM GMT+3, Martin Obongita via omnisdev-en <omnisdev-en at lists.omnis-dev.com> wrote:  
> 
> Hi List
> I have an inherited Omnis Classic Library.
> I am trying to update file values (table values) from variable values in a file(table) in an entry window..
> These are the lines of commands I am running:
> Set main file {F_F004E}Calculate VF4E_E1RSNNO as E1_RSNNOSet current list #L8Define list {VF4E_E1RSNNO,VF4E_RSNNO1..VF4E_RSNNO9,VF4E_RSNNO10..VF4E_RSNNO30,VF4E_CODE1..VF4E_CODE10,VF4E_CODE11..VF4E_CODE15,VF4E_CODE16..VF4E_CODE20,VF4E_CODE21..VF4E_CODE30,VF4E_RATE1..VF4E_RATE10,VF4E_RATE11..VF4E_RATE15,VF4E_RATE16..VF4E_RATE30,VF4E_PRDNO..VF4E_PRDMTH}     ;; VF4E_PRDMTHAdd line to listRedefine list {F4E_E1RSNNO,F4E_RSNNO1..F4E_RSNNO9,F4E_RSNNO10..F4E_RSNNO30,F4E_CODE1..F4E_CODE10,F4E_CODE11..F4E_CODE15,F4E_CODE16..F4E_CODE20,F4E_CODE21..F4E_CODE30,F4E_RATE1..F4E_RATE10,F4E_RATE11..F4E_RATE15,F4E_RATE16..F4E_RATE30,F4E_PRDNO..F4E_PRDMTH}     ;; F4E_PRDMTH;  For each line in list from 1 to #LN step 1Set read/write files {F_F004E}Set search as calculation {F4E_PRDNO=PRD_NO}Find on F4E_E1RSNNO (Exact match,Use search) {E1_RSNNO}If flag trueFor L1 from 1 to 30 step 1Calculate LVCOLLEN as len([con('F4E_CODE',L1)])Calculate LVTOTCOLLEN as LVTOTCOLLEN+LVCOLLENEnd ForIf LVTOTCOLLEN=0Clear range of fields F4E_CODE1 to F4E_RSNNO30End IfPrepare for editLoad from listElsePrepare for insertLoad from list {1}End IfUpdate files (Do not cancel pfu)If flag falseOK message (High position) {Unable to update record}End IfEnd ForSet read-only files {F_F004E}
> If I step through the code, the file values are defined and populated from the list.
> But the values are not updated after the Update files command.
> What have I missed in my code?
> I am sorry if the lines of code come through in a spaghetti.
> Bear with me. 
> 
> 
> RegardsMartin.
> _____________________________________________________________
> Manage your list subscriptions at https://lists.omnis-dev.com
> Start a new message -> mailto:omnisdev-en at lists.omnis-dev.com 
> 
> _____________________________________________________________
> Manage your list subscriptions at https://lists.omnis-dev.com
> Start a new message -> mailto:omnisdev-en at lists.omnis-dev.com