)load 2 ctrgl_test_debug_bug.apl
DUMPED 2024-01-19  15:41:19 (GMT-5) 
NEW )COPY_ONCE workspace: 5 SQL
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/wp
)COPY DALY/wp (file /usr/local/lib/apl/wslib5/DALY/wp) failed: No such file or directory
NEW )COPY_ONCE workspace: 3 DALY/date
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/utl
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 3 DALY/lex
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/cl
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 APLComponentFiles/ComponentFiles.apl
DUMPED 2024-01-06  11:12:23 (GMT-5) 
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/prompt
DUMPED 2024-01-06  11:12:23 (GMT-5) 
      sqlh←ctrgl_sql_connect 'localhost' 'dalyw' 'ctrgl_revised' '1BBmXEc0'
DOMAIN ERROR+
SQL∆Connect[19]  Z←type ⎕SQL[1]arg
                   ^           ^
      arg
host=localhost user=dalyw dbname=ctrgl_refised password=1BBmXEc0
      )sic
      sqlh←ctrgl_sql_connect 'localhost' 'dalyw' 'ctrgl_revised' '1BBmXEc0'
      begin ← ctrgl_doc_init 'gj' 'begin' '1/1/2023' 'To record opening balances' '2023-01'

      begin←begin ctrgl_doc_debit 1010 45000
      begin←begin ctrgl_doc_debit 1410 2500
      begin←begin ctrgl_doc_debit 1510 1300000
      begin←begin ctrgl_doc_debit 1520 755000
      begin←begin ctrgl_doc_credit 1590 140400
      begin←begin ctrgl_doc_credit 2710 1644000
      begin←begin ctrgl_doc_credit 3100 1000
      begin←begin ctrgl_doc_credit 3990 275350
      sqlh←ctrgl_sql_connect 'localhost' 'dalyw' 'ctrgl_revised' '1BBmXEc0'

      sqlh ctrgl_doc_show begin

      VALUE ERROR+
ctrgl_check_period[3]  b←0≠1↑⍴cmd SQL∆Select[handle]args
                                                    ^
      ⎕cr 'ctrgl_check_period'
b←handle ctrgl_check_period pd;cmd                                
⍝ Function confirms that the period is defined. The right argument
⍝ is a nested vector of company and period.                       
cmd←'SELECT period from periods where period = ''',pd,''''        
b←0≠1↑⍴cmd SQL∆Select[handle] args                                
      )sic
      ctrgl_sql_disconnect sqlh

      )load 2 ctrgl_test_debug_bug.apl
)COPY_ONCE table cleared (8 entries)
DUMPED 2024-01-19  15:45:51 (GMT-5) 
NEW )COPY_ONCE workspace: 5 SQL
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/wp
)COPY DALY/wp (file /usr/local/lib/apl/wslib5/DALY/wp) failed: No such file or directory
NEW )COPY_ONCE workspace: 3 DALY/date
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/utl
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 3 DALY/lex
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/cl
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 APLComponentFiles/ComponentFiles.apl
DUMPED 2024-01-06  11:12:23 (GMT-5) 
DUMPED 2024-01-06  11:12:23 (GMT-5) 
NEW )COPY_ONCE workspace: 5 DALY/prompt
DUMPED 2024-01-06  11:12:23 (GMT-5) 
      ⎕cr 'ctrgl_check_period'
b←handle ctrgl_check_period pd;cmd                                
⍝ Function confirms that the period is defined. The right argument
⍝ is a nested vector of company and period.                       
cmd←'SELECT period from periods where period = ''',pd,''''        
b←0≠1↑⍴cmd SQL∆Select[handle] pd                                  
      begin ← ctrgl_doc_init 'gj' 'begin' '1/1/2023' 'To record opening balances' '2023-01'

      begin←begin ctrgl_doc_debit 1010 45000
      begin←begin ctrgl_doc_debit 1410 2500
      begin←begin ctrgl_doc_debit 1510 1300000
      begin←begin ctrgl_doc_debit 1520 755000
      begin←begin ctrgl_doc_credit 1590 140400
      begin←begin ctrgl_doc_credit 2710 1644000
      begin←begin ctrgl_doc_credit 3100 1000
      begin←begin ctrgl_doc_credit 3990 275350
      sqlh←ctrgl_sql_connect 'localhost' 'dalyw' 'ctrgl_revised' '1BBmXEc0'

      sqlh ctrgl_doc_show begin

      DOMAIN ERROR+
SQL∆Select[15]  Z←statement ⎕SQL[3,db]args
                  ^                   ^
      )si
SQL∆Select[15]
ctrgl_check_period[4]
ctrgl_doc_post_checkHead[12]
ctrgl_doc_show_editchecks[4]
ctrgl_doc_show[2]
⋆
      args
2023-01
      ⎕cr 'ctrgl_check_period'
b←handle ctrgl_check_period pd;cmd                                
⍝ Function confirms that the period is defined. The right argument
⍝ is a nested vector of company and period.                       
cmd←'SELECT period from periods where period = ''',pd,''''        
b←0≠1↑⍴cmd SQL∆Select[handle] pd