andyhuey

# get-auth-hdr-1.ps1
# Get the auth hdr and send it to the clipboard.
# ajh 2023-04-06: new. 

#Requires -Version 7
#Requires -Modules @{ ModuleName="MSAL.PS"; ModuleVersion="4.0" }

# force TLS 1.2
$TLS12Protocol = [System.Net.SecurityProtocolType] 'Tls12'
[System.Net.ServicePointManager]::SecurityProtocol = $TLS12Protocol

andyhuey

# get-auth-hdr-0.ps1
# Get the auth hdr and send it to the clipboard.
# ajh 2022-08-29: rewrite to use MSAL.PS.
# ajh 2022-11-23: read secret from env vars.

#Requires -Version 5.1
#Requires -Modules @{ ModuleName="MSAL.PS"; ModuleVersion="4.0" }

# force TLS 1.2
$TLS12Protocol = [System.Net.SecurityProtocolType] 'Tls12'

andyhuey

<!-- originally taken from http://phydeaux3.blogspot.com/2007/05/automatic-list-of-labels-for-classic.html -->
<div id="labelList" class="BlogBody"></div> <script type="text/javascript">
//<![CDATA[
function listLabels(root){
    var baseURL = '/search/label/';
    var baseHeading = "My Tags";
    var isFTP = false;
    var llDiv = document.getElementById('labelList');
    var entry = root.entry;
    var h1 = document.createElement('h1');

andyhuey

// old way:
        public async Task RunAsync()
        {
            CallContext context = new CallContext();
            context.Company = "axcompany";
            string pingResp = string.Empty;
            var client = new XYZPurchInfoServiceClient();
            var rv = await client.wsPingAsync(context);
            pingResp = rv.response;
            Console.WriteLine("Ping response: {0}", pingResp);

andyhuey

# Enables TLS 1.2 on Windows Server 2008 R2 and Windows 7
# adapted from https://www.derekseaman.com/2010/06/enable-tls-12-aes-256-and-sha-256-in.html
# Must run as admin. Reboot after running.

$tls12key = "HKLM:\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS 1.2"
if (Test-Path $tls12key) {
    Write-Host "TLS 1.2 key already exists."
    exit
    }    
    

andyhuey

private void deleteAllFromList(ClientContext cc, List myList)
{
    int queryLimit = 4000;
    int batchLimit = 100;
    bool moreItems = true;

    string viewXml = string.Format(@"
        <View>
            <Query><Where></Where></Query>
            <ViewFields>

andyhuey

private bool doesVendorRecExist(string companyCode, string vendorNum, 
    List vendorList, ClientContext cc)
{
    CamlQuery spq = new CamlQuery();
    spq.ViewXml = string.Format(@"
    <View><Query>
    <Where><And>
    <Eq><FieldRef Name='VendorNo' /><Value Type='Text'>{0}</Value></Eq>
    <Eq><FieldRef Name='CompanyName' /><Value Type='Text'>{1}</Value></Eq>
    </And></Where>

andyhuey

# Given AX project #, return ID.
param (
    [string]$projno =  $( Read-Host "Enter project # (e.g. 123.4)" )
)

[string]$tfpt = "C:\Program Files (x86)\Microsoft Team Foundation Server 2012 Power Tools\TFPT.EXE"
[string]$svr = "http://myTfsServer:8080/tfs/defaultcollection"
[string]$projname = "myProjName"
[string]$query = "SELECT [System.Id], [System.Title] FROM WorkItems " +
    "WHERE [System.TeamProject] = '$projname' " +

andyhuey

static void AjhTestRSL(Args _args)
{
    CustTable custTable;
    RecordSortedList myList = new RecordSortedList(tableNum(CustTable));
    boolean moreRecs;

    myList.sortOrder(fieldNum(CustTable, AccountNum));

    // create a list
    while select firstOnly10 * from custTable

andyhuey

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Globalization;

namespace MySuit.MySuitV2.BLL
{
    public class Utility
    {