// SignioSample.s  Copyright (C) Desiderata Software 2000
//
// This file may be used and/or altered as necessary
// as long as it is being used to work with
// Desiderata Software's "Winductor" product.
//
// The file is being provided AS IS
//
// Sample showing how to access the SIGNIO (http://www.signio.com/)
// credit-card service.
//
// IMPORTANT:  Put in your username/password
// before starting testing.

include "Signio.s";

// The following parameters must be set
SignioSet( "TRXTYPE", "S" );     // Transaction-type = SALE
SignioSet( "TENDER", "C" );      // Tender-type = Credit-card
SignioSet( "USER", "username" ); // TBD:  Put your username here
SignioSet( "PWD", "password" );  // TBD:  Put your password here
SignioSet( "ACCT", "4111111111111111" );
                                 // The credit card account number
SignioSet( "ExpDate", "1210" );  // The credit card expiration date (month, year)
SignioSet( "AMT", "1.00" );      // Amount to be charged
                // In test mode, change to over 100.00 to get error "REFERAL"
                // In test mode, change to over 1000.00 to get error "DECLINED"

if SignioCharge() then
    LogMessage( "Charge succeeded" );
    LogMessage( "Authorization Code: " + SignioGet( "AUTHCODE" ));
    LogMessage( "Reference Number: " + SignioGet( "PNREF" ));
    // LogMessage( "AVS Address Result: " + SignioGet( "AVSADDR" ));
    // LogMessage( "AVS ZIP Result: " + SignioGet( "AVSZIP" ));
else
    LogMessage( "Transaction failed" );
    LogMessage( "Error code: " + SignioGet( "RESULT" ));
    LogMessage( "Error Message: " + SignioGet( "RESPMSG" ));
    LogMessage( "Reference Number:" + SignioGet( "PNREF" ));
endif;