home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / sonstiges / tools / amiCheck / Source / arexx.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-10-06  |  27.6 KB  |  1,140 lines
  1. /* Amichecks arexx port! */
  2.  
  3. #include <stdlib.h>
  4. #include <string.h>
  5. #include <libraries/asl.h>
  6. #include "amiCheck.h"
  7. #include "database.h"
  8. #include "libraries.h"
  9. #include "arexx.h"
  10. #include "regGadget.h"
  11.  
  12. extern char *quitstr;
  13.  
  14. void ArexxInit(void);
  15. BOOL ArexxHandleGadget(struct IntuiMessage *);
  16. BOOL ArexxGoodbye(struct IntuiMessage *);
  17. void AmiManageBalance(filterNode *find, entryNode *entry);
  18.  
  19. static entryNode new;
  20. static struct Window *arexxWin;
  21. GUIFront *arexxGUI;
  22. arexxNode copyMacros[MAXMACROS];
  23. static int catSel = 0;
  24.  
  25. static struct TagItem axgetfile[] = {
  26.     {ALT_Image, ALTI_GetFile},
  27.     {ALT_AslRequester, FALSE},
  28.     /*{GA_Immediate,TRUE},*/
  29.     {TAG_DONE},
  30. };
  31.  
  32. struct TagItem labeltags[] =
  33. {
  34.  {GTST_MaxChars,20},
  35.  {TAG_DONE},
  36. };
  37.  
  38. GadgetSpec AREXXgadgetspecs[] = 
  39. {
  40.     {STRING_KIND,18,0,{0,0,0,0,"Label 1:", NULL, GID_AXLABEL1,
  41.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  42.     {STRING_KIND,18,0,{0,0,0,0,"Macro 1:", NULL, GID_AXFILE1,
  43.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  44.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE1,
  45.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  46.  
  47.     {STRING_KIND,18,0,{0,0,0,0,"Label 2:", NULL, GID_AXLABEL2,
  48.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  49.     {STRING_KIND,18,0,{0,0,0,0,"Macro 2:", NULL, GID_AXFILE2,
  50.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  51.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE2,
  52.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  53.  
  54.     {STRING_KIND,18,0,{0,0,0,0,"Label 3:", NULL, GID_AXLABEL3,
  55.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  56.     {STRING_KIND,18,0,{0,0,0,0,"Macro 3:", NULL, GID_AXFILE3,
  57.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  58.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE3,
  59.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  60.  
  61.     {STRING_KIND,18,0,{0,0,0,0,"Label 4:", NULL, GID_AXLABEL4,
  62.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  63.     {STRING_KIND,18,0,{0,0,0,0,"Macro 4:", NULL, GID_AXFILE4,
  64.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  65.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE4,
  66.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  67.  
  68.     {STRING_KIND,18,0,{0,0,0,0,"Label 5:", NULL, GID_AXLABEL5,
  69.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  70.     {STRING_KIND,18,0,{0,0,0,0,"Macro 5:", NULL, GID_AXFILE5,
  71.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  72.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE5,
  73.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  74.  
  75.     {STRING_KIND,18,0,{0,0,0,0,"Label 6:", NULL, GID_AXLABEL6,
  76.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  77.     {STRING_KIND,18,0,{0,0,0,0,"Macro 6:", NULL, GID_AXFILE6,
  78.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  79.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE6,
  80.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  81.  
  82.     {STRING_KIND,18,0,{0,0,0,0,"Label 7:", NULL, GID_AXLABEL7,
  83.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  84.     {STRING_KIND,18,0,{0,0,0,0,"Macro 7:", NULL, GID_AXFILE7,
  85.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  86.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE7,
  87.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  88.  
  89.     {STRING_KIND,18,0,{0,0,0,0,"Label 8:", NULL, GID_AXLABEL8,
  90.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  91.     {STRING_KIND,18,0,{0,0,0,0,"Macro 8:", NULL, GID_AXFILE8,
  92.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  93.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE8,
  94.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  95.  
  96.     {STRING_KIND,18,0,{0,0,0,0,"Label 9:", NULL, GID_AXLABEL9,
  97.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  98.     {STRING_KIND,18,0,{0,0,0,0,"Macro 9:", NULL, GID_AXFILE9,
  99.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  100.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE9,
  101.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  102.  
  103.     {STRING_KIND,18,0,{0,0,0,0,"Label 10:", NULL, GID_AXLABEL10,
  104.         PLACETEXT_LEFT},labeltags,GS_DefaultTags},
  105.     {STRING_KIND,18,0,{0,0,0,0,"Macro 10:", NULL, GID_AXFILE10,
  106.         PLACETEXT_LEFT},NULL,GS_DefaultTags},
  107.     {GETALT_KIND,0,0,{0,0,0,0,NULL, NULL, GID_AXGETFILE10,
  108.         PLACETEXT_LEFT},axgetfile,GS_DefaultTags},
  109.  
  110.     {BUTTON_KIND,0,0,{0,0,0,0,"_OK",NULL,GID_AXOK,
  111.         PLACETEXT_IN},NULL,GS_DefaultTags},
  112.     {BUTTON_KIND,0,0,{0,0,0,0,"_Cancel",NULL,GID_AXCANCEL,
  113.         PLACETEXT_IN},NULL,GS_DefaultTags},
  114.  
  115. };
  116.  
  117. GadgetSpec *AX_ArexxSpecs[] =
  118. {
  119.      &AREXXgadgetspecs[0],
  120.      &AREXXgadgetspecs[1],
  121.      &AREXXgadgetspecs[2],
  122.      &AREXXgadgetspecs[3],
  123.      &AREXXgadgetspecs[4],
  124.      &AREXXgadgetspecs[5],
  125.      &AREXXgadgetspecs[6],
  126.      &AREXXgadgetspecs[7],
  127.      &AREXXgadgetspecs[8],
  128.      &AREXXgadgetspecs[9],
  129.      &AREXXgadgetspecs[10],
  130.      &AREXXgadgetspecs[11],
  131.      &AREXXgadgetspecs[12],
  132.      &AREXXgadgetspecs[13],
  133.      &AREXXgadgetspecs[14],
  134.      &AREXXgadgetspecs[15],
  135.      &AREXXgadgetspecs[16],
  136.      &AREXXgadgetspecs[17],
  137.      &AREXXgadgetspecs[18],
  138.      &AREXXgadgetspecs[19],
  139.      &AREXXgadgetspecs[20],
  140.      &AREXXgadgetspecs[21],
  141.      &AREXXgadgetspecs[22],
  142.      &AREXXgadgetspecs[23],
  143.      &AREXXgadgetspecs[24],
  144.      &AREXXgadgetspecs[25],
  145.      &AREXXgadgetspecs[26],
  146.      &AREXXgadgetspecs[27],
  147.      &AREXXgadgetspecs[28],
  148.      &AREXXgadgetspecs[29],
  149.      &AREXXgadgetspecs[30],
  150.      &AREXXgadgetspecs[31],
  151.     NULL,
  152. };
  153.  
  154. ULONG AX_ArexxPanel[] =
  155. {
  156.   GUIL_Flags, GUILF_PropShare | GUILF_EqualWidth,
  157.  
  158.   GUIL_HorizGroup,1,
  159.         GUIL_Flags, GUILF_EqualWidth | GUILF_EqualHeight,
  160.         GUIL_FrameType, GUILFT_Recess,
  161.  
  162.      GUIL_VertGroup,1,
  163.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  164.         
  165.     GUIL_VertGroup,0,
  166.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  167.         GUIL_GadgetSpecID, GID_AXLABEL1,
  168.         GUIL_HorizGroup,0,
  169.             GUIL_GadgetSpecID, GID_AXFILE1,
  170.             GUIL_GadgetSpecID, GID_AXGETFILE1,
  171.         TAG_DONE,
  172.     TAG_DONE,
  173.     GUIL_VertGroup,0,
  174.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  175.         GUIL_GadgetSpecID, GID_AXLABEL2,
  176.         GUIL_HorizGroup,0,
  177.             GUIL_GadgetSpecID, GID_AXFILE2,
  178.             GUIL_GadgetSpecID, GID_AXGETFILE2,
  179.         TAG_DONE,
  180.     TAG_DONE,
  181.  
  182.     GUIL_VertGroup,0,
  183.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  184.         GUIL_GadgetSpecID, GID_AXLABEL3,
  185.         GUIL_HorizGroup,0,
  186.             GUIL_GadgetSpecID, GID_AXFILE3,
  187.             GUIL_GadgetSpecID, GID_AXGETFILE3,
  188.         TAG_DONE,
  189.     TAG_DONE,
  190.  
  191.     GUIL_VertGroup,0,
  192.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  193.         GUIL_GadgetSpecID, GID_AXLABEL4,
  194.         GUIL_HorizGroup,0,
  195.             GUIL_GadgetSpecID, GID_AXFILE4,
  196.             GUIL_GadgetSpecID, GID_AXGETFILE4,
  197.         TAG_DONE,
  198.     TAG_DONE,
  199.  
  200.     GUIL_VertGroup,0,
  201.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  202.         GUIL_GadgetSpecID, GID_AXLABEL5,
  203.         GUIL_HorizGroup,0,
  204.             GUIL_GadgetSpecID, GID_AXFILE5,
  205.             GUIL_GadgetSpecID, GID_AXGETFILE5,
  206.         TAG_DONE,
  207.     TAG_DONE,
  208.  
  209.  
  210.      TAG_DONE,
  211.  
  212.      GUIL_VertGroup,1,
  213.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  214.  
  215.     GUIL_VertGroup,0,
  216.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  217.         GUIL_GadgetSpecID, GID_AXLABEL6,
  218.         GUIL_HorizGroup,0,
  219.             GUIL_GadgetSpecID, GID_AXFILE6,
  220.             GUIL_GadgetSpecID, GID_AXGETFILE6,
  221.         TAG_DONE,
  222.     TAG_DONE,
  223.     GUIL_VertGroup,0,
  224.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  225.         GUIL_GadgetSpecID, GID_AXLABEL7,
  226.         GUIL_HorizGroup,0,
  227.             GUIL_GadgetSpecID, GID_AXFILE7,
  228.             GUIL_GadgetSpecID, GID_AXGETFILE7,
  229.         TAG_DONE,
  230.     TAG_DONE,
  231.  
  232.     GUIL_VertGroup,0,
  233.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  234.         GUIL_GadgetSpecID, GID_AXLABEL8,
  235.         GUIL_HorizGroup,0,
  236.             GUIL_GadgetSpecID, GID_AXFILE8,
  237.             GUIL_GadgetSpecID, GID_AXGETFILE8,
  238.         TAG_DONE,
  239.     TAG_DONE,
  240.  
  241.     GUIL_VertGroup,0,
  242.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  243.         GUIL_GadgetSpecID, GID_AXLABEL9,
  244.         GUIL_HorizGroup,0,
  245.             GUIL_GadgetSpecID, GID_AXFILE9,
  246.             GUIL_GadgetSpecID, GID_AXGETFILE9,
  247.         TAG_DONE,
  248.     TAG_DONE,
  249.  
  250.     GUIL_VertGroup,0,
  251.         GUIL_Flags, GUILF_LabelAlign | GUILF_EqualWidth,
  252.         GUIL_GadgetSpecID, GID_AXLABEL10,
  253.         GUIL_HorizGroup,0,
  254.             GUIL_GadgetSpecID, GID_AXFILE10,
  255.             GUIL_GadgetSpecID, GID_AXGETFILE10,
  256.         TAG_DONE,
  257.     TAG_DONE,
  258.  
  259.  
  260.      TAG_DONE,
  261.  
  262.   TAG_DONE,
  263.  
  264.      GUIL_HorizGroup,1,
  265.         GUIL_Flags, GUILF_EqualSize | GUILF_EqualWidth,
  266.         
  267.            GUIL_GadgetSpecID, GID_AXOK,
  268.            GUIL_GadgetSpecID, GID_AXCANCEL,
  269.            
  270.     TAG_DONE, 
  271.  
  272.   TAG_DONE,
  273. };
  274.  
  275.  
  276. struct ARexxContext *axContext = NULL;
  277.  
  278. struct ARexxCommandTable commandTable[] =
  279. {
  280.  {AREXX_OPEN,        "OPEN", 
  281.             "FILENAME/A/F",
  282.             NULL},
  283.  
  284.  {AREXX_SAVE,        "SAVE", 
  285.             "FILENAME/F",
  286.             NULL},
  287.  
  288.  {AREXX_QUIT,        "QUIT", 
  289.             "FORCE/S",
  290.             NULL},
  291.  
  292.  {AREXX_GETRECORD,     "AC_GETRECORD",     
  293.             "ENTRY/A/N,TYPE/S,NAME/S,MEMO/S,DATE/S,AMOUNT/S,CLEARED/S,PRINTED/S,VOIDED/S,TAX/S,CHECKNUMBER/S,CATEGORIES/S",
  294.             NULL},
  295.  
  296.  {AREXX_GETBUDGET,    "AC_GETBUDGET",
  297.             "ENTRY/A/N,CATNUM/A/N,CATNAME/S,CATBUDGET/S",
  298.             NULL},
  299.  
  300.  {AREXX_GETINFO,    "AC_GETINFO",         
  301.             "ENTRIES/S,CURRBAL/S,STATEBAL/S,FILTBAL/S,FILENAME/S,HOLDER/S,ACCOUNT/S,BANK/S,OPENDATE/S,CLOSED/S,CLOSEDATE/S,STARTDEPOSIT/S", 
  302.             NULL},
  303.  
  304.  {AREXX_SETINFO,    "AC_SETINFO",         
  305.             "HOLDER/F,ACCOUNT/F,BANK/F,OPENDATE/F,CLOSED/N,CLOSEDATE/F,STARTDEPOSIT/F", 
  306.             NULL},
  307.  
  308.  {AREXX_USERSEL,     "AC_USERSEL",
  309.             "SETENTRY/N,GETENTRY/S",
  310.             NULL},
  311.  
  312.  {AREXX_EDITRECORD,    "AC_EDITRECORD",    
  313.             "ENTRY/A/N,NAME/F,MEMO/F,DATE/F,AMOUNT/F,CLEARED/N,PRINTED/N,VOIDED/N,TAX/N,CHECKNUMBER/N", 
  314.             NULL},
  315.  
  316.  {AREXX_ADDBUDGET,    "AC_ADDBUDGET",
  317.             "ENTRY/A/N,CATEGORY/A,BUDGETED/A",
  318.             NULL},
  319.  
  320.  {AREXX_DELBUDGET,    "AC_DELBUDGET",
  321.             "ENTRY/A/N,CATNUM/A/N",
  322.             NULL},
  323.  
  324.  {AREXX_DELRECORD,    "AC_DELRECORD",
  325.             "ENTRY/A/N",
  326.             NULL},
  327.  
  328.  {AREXX_BUILDRECORD,     "AC_BUILDRECORD",     
  329.             "TYPE/N,NAME/F,MEMO/F,DATE/F,AMOUNT/F,CLEARED/N,PRINTED/N,VOIDED/N,TAX/N,CHECKNUMBER/N",
  330.             NULL},
  331.  
  332.  {AREXX_BUILDBUDGET,    "AC_BUILDBUDGET",
  333.             "CATNAME/A,CATBUDGET/A",
  334.             NULL},
  335.  
  336.  {AREXX_PUTRECORD,    "AC_PUTRECORD",
  337.             "",
  338.             NULL},
  339.  
  340. #if 0
  341.  {AREXX_RUNMACRO,    "AC_RUNMACRO",
  342.             "NUMBER/N,LABEL",
  343.             NULL},
  344. #endif
  345.  
  346.  {AREXX_LOCK,        "AC_LOCK",
  347.             "",
  348.             NULL},
  349.  
  350.  {AREXX_UNLOCK,        "AC_UNLOCK",
  351.             "",
  352.             NULL},
  353.  
  354.  {AREXX_REBUILD,    "AC_REBUILD",
  355.             "",
  356.             NULL},
  357.  TABLE_END,
  358. };
  359.  
  360. LONG arexxSel = 0;
  361. char portName[100];
  362. char outString[100];
  363. char *errMsg = "Warning: Invalid state of command";
  364.  
  365. /*******************************************************
  366. * ArexxGUI()
  367. *
  368. *    Handles the arexx gui for the menu macros
  369. ********************************************************/
  370. BOOL ArexxGUI(void)
  371. {
  372.  UWORD ordinal;
  373.  BOOL done, noreply; 
  374.  ULONG signal;
  375.  
  376.    done = FALSE;
  377.  
  378.    /* lock edit window */
  379.    AmiLock();
  380.  
  381.    /* bring up this gui */
  382.    GF_SetGUIAttr(arexxGUI, GUI_OpenGUI, TRUE, TAG_DONE);
  383.    
  384.    /* grab window */
  385.    GF_GetGUIAttr(arexxGUI,GUI_Window,&arexxWin,TAG_DONE);
  386.  
  387.    ArexxInit();
  388.  
  389.    /* Process input events */
  390.     while (!done)
  391.        {
  392.          struct IntuiMessage *imsg;
  393.                     /* Wait for an event to occur */
  394.  
  395.                     signal = GF_Wait(guiapp,AmigaGuideSignal(agc));
  396.             if (signal & AmigaGuideSignal(agc)) {
  397.             AmiHelpMsg();
  398.             continue;
  399.             }
  400.  
  401.  
  402.                     /* We only bother to listen for CLOSEWINDOW events.
  403.                      * Of course, in a real application, you would be
  404.                      * examining the Class field for IDCMP_GADGETUP
  405.                      * messages and act accordingly.
  406.                      */
  407.  
  408.                     while (imsg = GF_GetIMsg(guiapp))
  409.                     {
  410.             noreply = TRUE;
  411.                         switch (imsg->Class) {
  412.                 case IDCMP_REFRESHWINDOW:
  413.                     RegRefresh(TRUE);
  414.                     break;
  415.  
  416.                                 case IDCMP_CLOSEWINDOW:
  417.                                         done = TRUE;
  418.                                         break;
  419.  
  420.                 case IDCMP_RAWKEY:
  421.                     AmiHelpKey(imsg,AREXX_PANEL);
  422.                     break;
  423.  
  424.                 case IDCMP_GADGETUP:
  425.                     noreply = FALSE;
  426.                     done=ArexxHandleGadget(imsg);
  427.                     break;
  428.                 }
  429.  
  430.             if (noreply) GF_ReplyIMsg(imsg);
  431.  
  432.              }
  433.   }
  434.  
  435.   /* close window */
  436.   GF_SetGUIAttr(arexxGUI, GUI_OpenGUI, FALSE, TAG_DONE);            
  437.   arexxWin = NULL;
  438.       
  439.   /* unlock window */
  440.   AmiUnlock();
  441.  
  442.   return FALSE;
  443. }
  444.  
  445. /*****************************************************************
  446. * ArexxHandleGadget()
  447. *
  448. *    Handle the gadgets of this panel
  449. ******************************************************************/
  450. BOOL ArexxHandleGadget(struct IntuiMessage *imsg)
  451. {
  452.  BOOL done = FALSE;
  453.  struct Gadget *gad =  (struct Gadget *)(imsg->IAddress);
  454.  UWORD code = imsg->Code;
  455.  
  456.  switch (gad->GadgetID) {
  457.     case GID_AXGETFILE1:
  458.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[0].macrofile,FILESIZE)) 
  459.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE1]->gs_Gadget,
  460.                 GTST_String,copyMacros[0].macrofile,
  461.                 TAG_DONE);
  462.         break;
  463.  
  464.     case GID_AXGETFILE2:
  465.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[1].macrofile,FILESIZE)) 
  466.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE2]->gs_Gadget,
  467.                 GTST_String,copyMacros[1].macrofile,
  468.                 TAG_DONE);
  469.         break;
  470.  
  471.     case GID_AXGETFILE3:
  472.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[2].macrofile,FILESIZE))
  473.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE3]->gs_Gadget,
  474.                 GTST_String,copyMacros[2].macrofile,
  475.                 TAG_DONE);
  476.         break;
  477.  
  478.     case GID_AXGETFILE4:
  479.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[3].macrofile,FILESIZE))
  480.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE4]->gs_Gadget,
  481.                 GTST_String,copyMacros[3].macrofile,
  482.                 TAG_DONE);
  483.         break;
  484.  
  485.     case GID_AXGETFILE5:
  486.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[4].macrofile,FILESIZE))
  487.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE5]->gs_Gadget,
  488.                 GTST_String,copyMacros[4].macrofile,
  489.                 TAG_DONE);
  490.         break;
  491.  
  492.     case GID_AXGETFILE6:
  493.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[5].macrofile,FILESIZE))
  494.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE6]->gs_Gadget,
  495.                 GTST_String,copyMacros[5].macrofile,
  496.                 TAG_DONE);
  497.         break;
  498.  
  499.  
  500.     case GID_AXGETFILE7:
  501.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[6].macrofile,FILESIZE))
  502.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE7]->gs_Gadget,
  503.                 GTST_String,copyMacros[6].macrofile,
  504.                 TAG_DONE);
  505.         break;
  506.  
  507.  
  508.     case GID_AXGETFILE8:
  509.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[7].macrofile,FILESIZE))
  510.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE8]->gs_Gadget,
  511.                 GTST_String,copyMacros[7].macrofile,
  512.                 TAG_DONE);
  513.         break;
  514.  
  515.  
  516.     case GID_AXGETFILE9:
  517.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[8].macrofile,FILESIZE))
  518.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE9]->gs_Gadget,
  519.                 GTST_String,copyMacros[8].macrofile,
  520.                 TAG_DONE);
  521.         break;
  522.  
  523.     case GID_AXGETFILE10:
  524.         if (AmiGetFile(arexxGUI, otherRexxASL,copyMacros[9].macrofile,FILESIZE))
  525.             GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[GID_AXFILE10]->gs_Gadget,
  526.                 GTST_String,copyMacros[9].macrofile,
  527.                 TAG_DONE);
  528.         break;
  529.  
  530.     case GID_AXCANCEL:
  531.         done = TRUE;
  532.         break;
  533.  
  534.     case GID_AXOK:
  535.         if (ArexxGoodbye(imsg)) {
  536.             done = TRUE;
  537.             memcpy(arexxMacros,copyMacros,sizeof(arexxNode)*MAXMACROS);
  538.         }
  539.         break;
  540.  }
  541.  
  542.  return (done);
  543. }
  544.  
  545. /********************************************************
  546. * ArexxGoodbye()
  547. *
  548. *    Pull in all data entry
  549. *********************************************************/
  550. BOOL ArexxGoodbye(struct IntuiMessage *imsg)
  551. { 
  552.  int x;
  553.  
  554.  for (x=0;x<MAXMACROS;x++) {
  555.     strcpy(copyMacros[x].macroname,
  556.         ((struct StringInfo *)(AX_ArexxSpecs[GID_AXLABEL1+(x*3)]->gs_Gadget)->SpecialInfo)->Buffer); 
  557.     strcpy(copyMacros[x].macrofile,
  558.         ((struct StringInfo *)(AX_ArexxSpecs[GID_AXFILE1+(x*3)]->gs_Gadget)->SpecialInfo)->Buffer);
  559.  }
  560.  
  561.  return (TRUE);
  562. }
  563.  
  564. /********************************************************
  565. * ArexxInit()
  566. *
  567. *    Initialize the interface
  568. *********************************************************/
  569. void ArexxInit(void)
  570. {
  571.  int x;
  572.  memcpy(copyMacros,arexxMacros,sizeof(arexxNode)*MAXMACROS);
  573.  
  574.  for (x=0;x<MAXMACROS;x++) {
  575.  
  576.      GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[ (x*3)+GID_AXLABEL1]->gs_Gadget,
  577.         GTST_String,copyMacros[x].macroname,
  578.         TAG_DONE);
  579.  
  580.     GF_SetGadgetAttrs (arexxGUI, AX_ArexxSpecs[(x*3)+GID_AXFILE1]->gs_Gadget,
  581.         GTST_String,copyMacros[x].macrofile,
  582.         TAG_DONE);
  583.  }
  584.  
  585. }
  586.  
  587. /*******************************************************
  588. * axOpen
  589. *
  590. *    Open the arexx port
  591. *******************************************************/
  592. BOOL axOpen(void)
  593. {
  594.  BOOL ret = FALSE;
  595.  
  596.  axContext = AllocARexxContext(
  597.     ER_Portname, "AMICHECK",
  598.     ER_CommandTable, commandTable,
  599.     ER_Author, AC_Author,
  600.     ER_Copyright, "Copyright© 1994,1995 Douglas M. Dyer",
  601.     ER_Version, AC_Version,
  602.     TAG_DONE);
  603.  
  604.  if (axContext != NULL) {
  605.     ret = TRUE;
  606.     sprintf(portName,"%s>",axContext->portname);
  607.     memset(&new,0,sizeof(entryNode));
  608.     memcpy(&new.date,&currDate,sizeof(dateType));
  609.  }
  610.  
  611.  return (ret);
  612. }
  613.  
  614. /*******************************************************
  615. * axClose
  616. *
  617. *    Close the arexx port
  618. *******************************************************/
  619. BOOL axClose(void)
  620. {
  621.  BOOL ret = TRUE;
  622.  
  623.  if (EasyRexxBase != NULL && axContext != NULL)
  624.     FreeARexxContext(axContext);
  625.  
  626.  return (ret);
  627. }
  628.  
  629. /*******************************************************
  630. * axOpenCmd()
  631. *
  632. *    Open the command shell
  633. ********************************************************/
  634. void axOpenCmd(void)
  635. {
  636.  
  637.  ARexxCommandShell(axContext,
  638.     ER_Prompt,     portName,
  639.     WA_Title,    "amiCheck CommandShell",
  640.     WA_Left,    0,
  641.     WA_Width,    320,
  642.     WA_Height,    100,
  643.     WA_DragBar,    TRUE,
  644.     WA_DepthGadget,    TRUE,
  645.     WA_SizeGadget,    TRUE,
  646.     WA_CloseGadget,    TRUE,
  647.     WA_MinWidth,    50,
  648.     WA_MinHeight,    50,
  649.     WA_MaxWidth,    ~0,
  650.     WA_MaxHeight,    ~0,
  651.     WA_SizeBBottom,    TRUE,
  652.     /*WA_PubScreen, amiWindow->WScreen, */
  653.     /*ER_Font,    amiWindow->WScreen->Font,*/
  654.     ER_Close,     FALSE,
  655.     TAG_DONE);
  656.  
  657. }
  658.  
  659. /*******************************************************
  660. * axCloseCmd()
  661. *
  662. *    Close the command shell
  663. ********************************************************/
  664. void axCloseCmd(void)
  665. {
  666.  ARexxCommandShell(axContext,
  667.     ER_Close, TRUE,
  668.     TAG_DONE);
  669. }
  670.  
  671. /*******************************************************
  672. * axHandle()
  673. *
  674. *    Handle all arexx commanding
  675. *******************************************************/
  676. BOOL axHandle(struct ARexxContext *cx)
  677. {
  678.  ULONG resultint = 1L;
  679.  LONG  result = RC_OK;
  680.  UBYTE *resultstring = NULL;
  681.  filterNode *filt;
  682.  BOOL done = FALSE;
  683.  
  684.  if (GetARexxMsg(cx)) {
  685.     switch (cx->id) {
  686.  
  687.         case AREXX_GETRECORD:
  688.             arexxSel = ARGNUMBER(cx,0);
  689.             if (arexxSel == 0 || arexxSel > entryCount) {
  690.                 result = RC_WARN;
  691.                 resultstring = errMsg;
  692.             }
  693.             else {
  694.                 if (ARG(cx,1)) {
  695.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  696.                     resultint = filt->entry->type;
  697.                 }
  698.                 else if (ARG(cx,2)) {
  699.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  700.                     resultstring = filt->entry->name;
  701.                 }
  702.                 else if (ARG(cx,3)) {
  703.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  704.                     resultstring = filt->entry->memo;
  705.                 }
  706.                 else if (ARG(cx,4)) {
  707.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  708.                     DataBuildDate(&filt->entry->date,outString);
  709.                     resultstring = outString;
  710.                 }
  711.                 else if (ARG(cx,5)) {
  712.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  713.                     DataBuildAmnt(TRUE,&filt->entry->amount,outString);
  714.                     resultstring = outString;
  715.                 }
  716.                 else if (ARG(cx,6)) {
  717.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  718.                     resultint = filt->entry->flags & CLEARED;
  719.                 }
  720.                 else if (ARG(cx,7)) {
  721.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  722.                     resultint = filt->entry->flags & PRINTED;
  723.                 }
  724.                 else if (ARG(cx,8)) {
  725.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  726.                     resultint = filt->entry->flags & VOIDED;
  727.                 }
  728.                 else if (ARG(cx,9)) {
  729.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  730.                     resultint = filt->entry->flags & TAXDEDUCT;
  731.                 }
  732.                 else if (ARG(cx,10)) {
  733.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  734.                     resultint = filt->entry->check;
  735.                 }
  736.                 else if (ARG(cx,11)) {
  737.                     resultint = 1;
  738.                 }
  739.                 else {
  740.                     result = RC_WARN;
  741.                     resultstring = errMsg;
  742.                 }
  743.  
  744.             }
  745.             break;
  746.  
  747.         case AREXX_USERSEL:
  748.             if (ARG(cx,0)) {
  749.                 arexxSel = ARGNUMBER(cx,0);
  750.                 if (arexxSel == 0 || arexxSel > entryCount) {
  751.                     result = RC_WARN;
  752.                     resultstring = errMsg;
  753.                 }
  754.                 else {
  755.                     resultint = arexxSel;
  756.                     selRow = arexxSel - 1;
  757.                     RegMoveToSel(&filtered);
  758.                 }
  759.             }
  760.             else if (ARG(cx,1)) {
  761.                 if (selRow < 0)
  762.                     resultint = 0;
  763.                 else     resultint = selRow + 1;            
  764.             }
  765.             else {
  766.                 result = RC_WARN;
  767.                 resultstring = errMsg;
  768.             }
  769.             break;
  770.  
  771.         case AREXX_SETINFO:
  772.             if (ARG(cx,0)) {
  773.                 strncpy(usrAccount.holder,ARGSTRING(cx,0),STRINGSIZE);
  774.             }
  775.             else if (ARG(cx,1)) {
  776.                 strncpy(usrAccount.accnt,ARGSTRING(cx,1),STRINGSIZE);
  777.             }
  778.             else if (ARG(cx,2)) {
  779.                 strncpy(usrAccount.bank,ARGSTRING(cx,2),STRINGSIZE);
  780.             }
  781.             else if (ARG(cx,3)) {
  782.                 if (DataVerifyDate(ARGSTRING(cx,3),outString)) {
  783.                     DataStoreDate(&usrAccount.openDate,outString);
  784.                 }
  785.                 else {
  786.                     result = RC_WARN;
  787.                     resultstring = errMsg;
  788.                     break;
  789.                 }
  790.             }
  791.             else if (ARG(cx,3)) {
  792.                 if (ARGNUMBER(cx,3))
  793.                     usrAccount.closed = TRUE;
  794.                 else    usrAccount.closed = FALSE;
  795.  
  796.             }
  797.             else if (ARG(cx,4)) {
  798.                 if (DataVerifyDate(ARGSTRING(cx,4),outString)) {
  799.                     DataStoreDate(&usrAccount.closeDate,outString);
  800.                 }
  801.                 else {
  802.                     result = RC_WARN;
  803.                     resultstring = errMsg;
  804.                     break;
  805.                 }
  806.             }
  807.             else if (ARG(cx,5)) {
  808.                 if ( (resultint = DataVerifyAmnt(ARGSTRING(cx,5),outString))) {
  809.                     DataStoreAmnt(&usrAccount.beginAmount,outString);
  810.                 }
  811.                 else {
  812.                     result = RC_WARN;
  813.                     resultstring = errMsg;
  814.                     break;
  815.                 }
  816.             }
  817.             break;
  818.     
  819.         case AREXX_GETINFO:
  820.             if (ARG(cx,0)) {
  821.                 resultint = entryCount;
  822.             }
  823.             else if (ARG(cx,1)) {
  824.                 resultstring = currStr;
  825.             }
  826.             else if (ARG(cx,2)) {
  827.                 resultstring = stateStr;
  828.             }
  829.             else if (ARG(cx,3)) {
  830.                 resultstring = filtStr;
  831.             }
  832.             else if (ARG(cx,4)) {
  833.                 resultstring = currFile;
  834.             }
  835.             else if (ARG(cx,5)) {
  836.                 resultstring = usrAccount.holder;
  837.             }
  838.             else if (ARG(cx,6)) {
  839.                 resultstring = usrAccount.accnt;
  840.             }
  841.             else if (ARG(cx,7)) {
  842.                 resultstring = usrAccount.bank;
  843.             }
  844.             else if (ARG(cx,8)) {
  845.                 DataBuildDate(&usrAccount.openDate,outString);
  846.                 resultstring = outString;
  847.             }
  848.             else if (ARG(cx,9)) {
  849.                 resultint = usrAccount.closed;
  850.             }
  851.             else if (ARG(cx,10)) {
  852.                  DataBuildDate(&usrAccount.closeDate,outString);
  853.                 resultstring = outString;
  854.             }
  855.             else if (ARG(cx,11)) {
  856.                 DataBuildAmnt(TRUE,&usrAccount.beginAmount,outString);
  857.                 resultstring = outString;
  858.             }
  859.             break;
  860.  
  861.         case AREXX_GETBUDGET:
  862.             arexxSel = ARGNUMBER(cx,0);
  863.             catSel = ARGNUMBER(cx,1);
  864.             if (arexxSel == 0 || arexxSel > entryCount || catSel != 1) {
  865.                 result = RC_WARN;
  866.                 resultstring = errMsg;
  867.                 break;
  868.             }
  869.             else {
  870.                 if (ARG(cx,2)) {
  871.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  872.                     resultstring = filt->entry->category;
  873.                 }
  874.                 else if (ARG(cx,3)) {
  875.                     filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  876.                     DataBuildAmnt(TRUE,&filt->entry->amount,outString);
  877.                     resultstring = outString;
  878.                 }
  879.             }
  880.             break;
  881.  
  882.         case AREXX_OPEN:
  883.             AmiOpen(ARGSTRING(cx,0),FALSE);
  884.             break;
  885.  
  886.         case AREXX_QUIT:
  887.             if (ARG(cx,1)) {
  888.                 amiChangedItems = FALSE;
  889.                 done = TRUE;
  890.             }
  891.             else done = AmiAsk(quitstr);
  892.             break;
  893.  
  894.         case AREXX_ADDBUDGET:
  895.             arexxSel = ARGNUMBER(cx,0);
  896.             catSel = ARGNUMBER(cx,1);
  897.             if (arexxSel > entryCount || arexxSel == 0 ) {
  898.                 result = RC_WARN;
  899.                 resultstring = errMsg;
  900.                 break;
  901.             }
  902.  
  903.             filt = (filterNode *)DataOrd2Node( (struct List *)&filtered,arexxSel-1);
  904.             strncpy(filt->entry->category,ARGSTRING(cx,1),CATNAMESIZE);
  905.             amiChangedItems = TRUE;
  906.             break;
  907.  
  908.         case AREXX_DELBUDGET:
  909.             arexxSel = ARGNUMBER(cx,0);
  910.             catSel = ARGNUMBER(cx,1);
  911.             if (arexxSel > entryCount || arexxSel == 0 || catSel != 1) {
  912.                 result = RC_WARN;
  913.                 resultstring = errMsg;
  914.                 break;
  915.             }
  916.  
  917.             amiChangedItems = TRUE;
  918.             filt = (filterNode *)DataOrd2Node( (struct List *)&filtered,arexxSel-1);
  919.             strcpy(filt->entry->category, "None");
  920.             break;
  921.  
  922.         case AREXX_EDITRECORD:
  923.             arexxSel = ARGNUMBER(cx,0);
  924.             if (arexxSel == 0 || arexxSel > entryCount) {
  925.                 result = RC_WARN;
  926.                 resultstring = errMsg;
  927.                 break;
  928.             }
  929.  
  930.             amiChangedItems = TRUE;
  931.             filt = (filterNode *)DataOrd2Node( (struct List *)&filtered,arexxSel-1);
  932.  
  933.             if (ARG(cx,1)) {
  934.                 strncpy(filt->entry->name,ARGSTRING(cx,1),STRINGSIZE);
  935.             }
  936.  
  937.             else if (ARG(cx,2)) {
  938.                 strncpy(filt->entry->memo,ARGSTRING(cx,2),STRINGSIZE);
  939.             }
  940.             else if (ARG(cx,3)) {
  941.                 if ( (resultint = DataVerifyDate(ARGSTRING(cx,3),outString)))
  942.                     DataStoreDate(&filt->entry->date,outString);
  943.                 else {
  944.                     result = RC_WARN;
  945.                     resultstring = errMsg;
  946.                     break;
  947.                 }
  948.     
  949.             }
  950.             else if (ARG(cx,4)) {
  951.                 if ( (resultint = DataVerifyAmnt(ARGSTRING(cx,4),outString)))
  952.                     DataStoreAmnt(&filt->entry->amount,outString);
  953.                 else {
  954.                     result = RC_WARN;
  955.                     resultstring = errMsg;
  956.                     break;
  957.                 }
  958.             }
  959.             else if (ARG(cx,5)) {
  960.                 if (ARGNUMBER(cx,5))
  961.                     filt->entry->flags |= CLEARED;
  962.                 else    filt->entry->flags &= ~CLEARED;
  963.             }
  964.  
  965.             else if (ARG(cx,6)) {
  966.                 if (filt->entry->type == CHECKTYPE && ARGNUMBER(cx,6))
  967.                     filt->entry->flags |= PRINTED;
  968.                 else    filt->entry->flags &= ~PRINTED;
  969.             }
  970.  
  971.             else if (ARG(cx,7)) {
  972.                 if (filt->entry->type == CHECKTYPE && ARGNUMBER(cx,7))
  973.                     filt->entry->flags |= VOIDED;
  974.                 else    filt->entry->flags &= ~VOIDED;
  975.             }
  976.  
  977.             else if (ARG(cx,8)) {
  978.                 if (ARGNUMBER(cx,8))
  979.                     filt->entry->flags |= TAXDEDUCT;
  980.                 else    filt->entry->flags &= ~TAXDEDUCT;
  981.             }
  982.  
  983.             else if (ARG(cx,9)) {
  984.                 if (filt->entry->type == CHECKTYPE)
  985.                     filt->entry->check = ARGNUMBER(cx,9);
  986.             }
  987.  
  988.             break;
  989.  
  990.         case AREXX_BUILDRECORD:
  991.             if (ARG(cx,0)) {
  992.                 switch (ARGNUMBER(cx,0)) {
  993.                     case DEPOSITTYPE:
  994.                         new.type = DEPOSITTYPE;
  995.                         break;
  996.                     case WITHDRAWALTYPE:
  997.                         new.type = WITHDRAWALTYPE;
  998.                         break;
  999.                     case CHECKTYPE:
  1000.                         new.type = CHECKTYPE;
  1001.                         break;
  1002.                 }
  1003.             }
  1004.             else if (ARG(cx,1)){
  1005.                 strncpy(new.name,ARGSTRING(cx,1),STRINGSIZE);
  1006.             }
  1007.             else if (ARG(cx,2)) {
  1008.                 strncpy(new.memo, ARGSTRING(cx,2),STRINGSIZE);
  1009.             }
  1010.             else if (ARG(cx,3)) {
  1011.                 if ( (resultint = DataVerifyDate(ARGSTRING(cx,3),outString)))
  1012.                     DataStoreDate(&new.date,outString);
  1013.                 else {
  1014.                     result = RC_WARN;
  1015.                     resultstring = errMsg;
  1016.                     break;
  1017.                 }
  1018.             }
  1019.             else if (ARG(cx,4)) {
  1020.                 if ( (resultint = DataVerifyAmnt(ARGSTRING(cx,4),outString)))
  1021.                     DataStoreAmnt(&new.amount,outString);
  1022.                 else {
  1023.                     result = RC_WARN;
  1024.                     resultstring = errMsg;
  1025.                     break;
  1026.                 }
  1027.             }
  1028.             else if (ARG(cx,5)) {
  1029.                 if (ARGNUMBER(cx,5))
  1030.                     new.flags |= CLEARED;
  1031.                 else    new.flags &= ~CLEARED;
  1032.             }
  1033.  
  1034.             else if (ARG(cx,6)) {
  1035.                 if (new.type == CHECKTYPE && ARGNUMBER(cx,6))
  1036.                     new.flags |= PRINTED;
  1037.                 else    new.flags &= ~PRINTED;
  1038.             }
  1039.  
  1040.             else if (ARG(cx,7)) {
  1041.                 if (new.type == CHECKTYPE && ARGNUMBER(cx,7))
  1042.                     new.flags |= VOIDED;
  1043.                 else    new.flags &= ~VOIDED;
  1044.             }
  1045.  
  1046.             else if (ARG(cx,8)) {
  1047.                 if (ARGNUMBER(cx,8))
  1048.                     new.flags |= TAXDEDUCT;
  1049.                 else    new.flags &= ~TAXDEDUCT;
  1050.             }
  1051.  
  1052.             else if (ARG(cx,9)) {
  1053.                 if (new.type == CHECKTYPE)
  1054.                     new.check = ARGNUMBER(cx,9);
  1055.             }
  1056.             break;
  1057.  
  1058.         case AREXX_BUILDBUDGET:
  1059.             strncpy(new.category,ARGSTRING(cx,0),CATNAMESIZE);
  1060.             break;
  1061.     
  1062.         case AREXX_PUTRECORD:
  1063.             /* verify our stuff.. */
  1064.             if ( currFile[0] == 0  || (new.type != CHECKTYPE && new.flags & (VOIDED|PRINTED))) {
  1065.                 result = RC_WARN;
  1066.                 resultstring = errMsg;
  1067.                 break;
  1068.             }
  1069.  
  1070.             /* insert and update balance */
  1071.             amiChangedItems = TRUE;
  1072.             DataAddEntry(&new,&entries,&filt);
  1073.         
  1074.             /* zero out our copy */
  1075.             memset(&new,0,sizeof(entryNode));
  1076.             break;
  1077.  
  1078.         case AREXX_LOCK:
  1079.             AmiLock();
  1080.             break;
  1081.  
  1082.         case AREXX_UNLOCK:
  1083.             AmiUnlock();
  1084.             break;
  1085.  
  1086.         case AREXX_DELRECORD:
  1087.             arexxSel = ARGNUMBER(cx,0);
  1088.             if (arexxSel == 0 || arexxSel > entryCount) {
  1089.                 result = RC_WARN;
  1090.                 resultstring = errMsg;
  1091.                 break;
  1092.             }
  1093.             
  1094.             filt = (filterNode *)DataOrd2Node((struct List *)&filtered,arexxSel-1);
  1095.             DataRemoveEntry(filt->entry,filt);
  1096.             amiChangedItems = TRUE;
  1097.             break;
  1098.  
  1099.         case AREXX_REBUILD:
  1100.             DataRebuildFilters();
  1101.             DataInitBalances();
  1102.             DataFilterBalance(&filtered);
  1103.             selRow = -1;
  1104.  
  1105.             DataBuildBal(usrAccount.decimal,&amntState.currAmnt,currStr);
  1106.             DataBuildBal(usrAccount.decimal,&filtAmnt,filtStr);
  1107.  
  1108.             AmiUpdateFilt(filtStr);
  1109.             AmiUpdateCurr(currStr);
  1110.             RegRedrawFilter(0);
  1111.             break;
  1112.      }
  1113.  
  1114. #if 0
  1115.     if (result != RC_OK) {
  1116.         ReplyARexxMsg(cx,
  1117.             ER_ReturnCode,    result,
  1118.             ER_ErrorMessage, ER_ResultString,
  1119.             TAG_DONE);
  1120.     }
  1121. #endif
  1122.     if (result != RC_OK) {
  1123.         ReplyARexxMsg(cx,
  1124.             ER_Result,    result,
  1125.             ER_ErrorMessage, ER_ResultString,
  1126.             TAG_DONE);
  1127.     }
  1128.  
  1129.     else {
  1130.          ReplyARexxMsg(cx,
  1131.             ER_ReturnCode,    result,
  1132.             (resultstring==NULL)?TAG_IGNORE:ER_ResultString,resultstring,
  1133.             (resultstring==NULL)?ER_ResultLong:TAG_IGNORE,    resultint,
  1134.             TAG_DONE);
  1135.     }
  1136.  }
  1137.  
  1138.  return (done);
  1139. }
  1140.