Results 1 to 5 of 5

Thread: XMas Pressie; lining up ' to ' in code block

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #3
    Join Date
    Feb 2009
    Location
    Rio do Sul - SC
    Posts
    284

    Default Re: XMas Pressie; lining up ' to ' in code block

    Hi Marco

    Thanks for the gift - very usefull tool.

    Can I make a suggestion? If you find it usefull, add the 'of' and 'Field/File_Field' keywords to the macro.

    Then
    Code:
    Get ComConnectBufferString of hoDatabaseTable to sConnectString
    Get ComDllName of hoDatabaseTable to sDLL
    Get ComLocation of hoDatabaseTable to sTableFullName
    Get ComName of hoDatabaseTable to sTableAliasName
    Set pbBold of oTablesAndFields to True
    Send AppendTextLn of oTablesAndFields ("Table Name:" * sTableFullName)
    Send AppendTextLn of oTablesAndFields ("Alias Name:" * sTableAliasName)
    Set pbBold of oTablesAndFields to False
    
    Set Field_Auto_Increment Field Customer.Customer_Number to File_Field Ordsys.Cust_Number
    Set Field_Label_Long Field Customer.Customer_Number To "Customer Number"
    Set Field_Label_Short Field Customer.Customer_Number To "Number"
    Set Field_Option Field Customer.Customer_Number DD_AUTOFIND to True
    Set Field_Option Field Customer.Customer_Number DD_NOPUT to True
    Set Field_Prompt_Object Field Customer.Customer_Number to Customer_sl
    Set Key_Field_State Field Customer.Customer_Number To True
    Set Status_Help Field Customer.Customer_Number to "Customer Id Number (system assigned)."
    Becomes
    Code:
    Get ComConnectBufferString of hoDatabaseTable  to sConnectString
    Get ComDllName             of hoDatabaseTable  to sDLL
    Get ComLocation            of hoDatabaseTable  to sTableFullName
    Get ComName                of hoDatabaseTable  to sTableAliasName
    Set pbBold                 of oTablesAndFields to True
    Send AppendTextLn          of oTablesAndFields ("Table Name:" * sTableFullName)
    Send AppendTextLn          of oTablesAndFields ("Alias Name:" * sTableAliasName)
    Set pbBold                 of oTablesAndFields to False
    
    Set Field_Auto_Increment Field Customer.Customer_Number             to File_Field Ordsys.Cust_Number
    Set Field_Label_Long     Field Customer.Customer_Number             to "Customer Number"
    Set Field_Label_Short    Field Customer.Customer_Number             to "Number"
    Set Field_Option         Field Customer.Customer_Number DD_AUTOFIND to True
    Set Field_Option         Field Customer.Customer_Number DD_NOPUT    to True
    Set Field_Prompt_Object  Field Customer.Customer_Number             to Customer_sl
    Set Key_Field_State      Field Customer.Customer_Number             to True
    Set Status_Help          Field Customer.Customer_Number             to "Customer Id Number (system assigned)."
    Regards.
    Last edited by Clayton; 12-Jan-2017 at 05:11 PM. Reason: Forgot Field/File_Field keywords
    []'s
    Clayton Schirmer

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •