#!/usr/bin/env bash # monkeysphere-host: Monkeysphere host admin tool # # The monkeysphere scripts are written by: # Jameson Rollins # Jamie McClelland # Daniel Kahn Gillmor # Micah Anderson # # They are Copyright 2008-2010, and are all released under the GPL, # version 3 or later. ######################################################################## set -e # set the pipefail option so pipelines fail on first command failure set -o pipefail PGRM=$(basename $0) SYSSHAREDIR=${MONKEYSPHERE_SYSSHAREDIR:-"/usr/share/monkeysphere"} export SYSSHAREDIR . "${SYSSHAREDIR}/defaultenv" . "${SYSSHAREDIR}/common" SYSDATADIR=${MONKEYSPHERE_SYSDATADIR:-"/var/lib/monkeysphere"} export SYSDATADIR # sharedir for host functions MHSHAREDIR="${SYSSHAREDIR}/mh" # datadir for host functions MHDATADIR="${SYSDATADIR}/host" # host pub key files HOST_KEY_FILE="${SYSDATADIR}/host_keys.pub.pgp" # UTC date in ISO 8601 format if needed DATE=$(date -u '+%FT%T') # unset some environment variables that could screw things up unset GREP_OPTIONS ######################################################################## # FUNCTIONS ######################################################################## usage() { cat <&2 usage: $PGRM [options] [args] Monkeysphere host admin tool. subcommands: import-key (i) FILE SERVICENAME import PEM-encoded key from file show-keys (s) [KEYID ...] output host key information publish-keys (p) [KEYID ...] publish key(s) to keyserver set-expire (e) EXPIRE [KEYID] set key expiration add-servicename (n+) SERVICENAME [KEYID] add a service name to key revoke-servicename (n-) SERVICENAME [KEYID] revoke a service name from key add-revoker (r+) REVOKER_KEYID|FILE [KEYID] add a revoker to key revoke-key [KEYID] generate and/or publish revocation certificate for key version (v) show version number help (h,?) this help See ${PGRM}(8) for more info. EOF } # function to interact with the gpg keyring gpg_host() { GNUPGHOME="$GNUPGHOME_HOST" gpg --no-auto-check-trustdb --no-greeting --quiet --no-tty "$@" } # list the info about the a key, in colon format, to stdout gpg_host_list_keys() { if [ "$1" ] ; then gpg_host --list-keys --with-colons --fixed-list-mode \ --with-fingerprint --with-fingerprint \ "$1" else gpg_host --list-keys --with-colons --fixed-list-mode \ --with-fingerprint --with-fingerprint fi } # edit key scripts, takes scripts on stdin, and keyID as first input gpg_host_edit() { gpg_host --command-fd 0 --edit-key "$@" } # export the monkeysphere OpenPGP pub key file update_pgp_pub_file() { log debug "updating openpgp public key file '$HOST_KEY_FILE'..." gpg_host --export --armor --export-options export-minimal \ $(gpg_host --list-secret-keys --with-colons --fingerprint | grep ^fpr | cut -f10 -d:) \ > "$HOST_KEY_FILE" } # check that the service name is well formed. we assume that the # service name refers to a host; DNS labels for host names are limited # to a very small range of characters (see RFC 1912, section 2.1). # FIXME: i'm failing to check here for label components that are # all-number (e.g. ssh://666.666), which are technically not allowed # (though some exist on the 'net, apparently) # FIXME: this will probably misbehave if raw IP addresses are provided, # either IPv4 or IPv6 using the bracket notation. # FIXME: this doesn't address the use of hashed User IDs. check_service_name() { local name="$1" local errs="" local scheme local port local assigned_ports [ -n "$name" ] || \ failure "You must supply a service name to check" printf '%s' "$name" | perl -n -e '($str = $_) =~ s/\s//g ; exit !(lc($str) eq $_);' || \ failure "Not a valid service name: '$name' Service names should be canonicalized to all lower-case, with no whitespace" [[ "$name" =~ ^[a-z0-9./:-]+$ ]] || \ failure "Not a valid service name: '$name' Service names should contain only lower-case ASCII letters numbers, dots (.), hyphens (-), slashes (/), and a colon (:). If you are using non-ASCII characters (e.g. IDN), you should use the canonicalized ASCII (NAMEPREP -> Punycode) representation (see RFC 3490)." [[ "$name" =~ \. ]] || \ failure "Not a valid service name: '$name' Service names should use fully-qualified domain names (FQDN), but the domain name you chose appears to only have the local part. For example: don't use 'ssh://foo' ; use 'ssh://foo.example.com' instead." [[ "$name" =~ ^[a-z0-9]([a-z0-9-]*[a-z0-9])?://[a-z0-9]([a-z0-9-]*[a-z0-9])?(\.|((\.[a-z0-9]([a-z0-9-]*[a-z0-9])?)+))(:[1-9][0-9]{0,4})?$ ]] || \ failure "Not a valid service name: '$name' Service names look like ://full.example.com[:], where is something like ssh or https, and is a decimal number (supplied only if the service is on a non-standard port)." scheme=$(cut -f1 -d: <<<"$name") port=$(cut -f3 -d: <<<"$name") # check that the scheme name is found in the system services # database available_=$(get_port_for_service "$scheme") || \ log error "Error looking up service scheme named '%s'" "$scheme" # FIXME: if the service isn't found, or does not have a port, what # should we do? at the moment, we're just warning. if [ -n "$port" ]; then # check that the port number is a legitimate port number (> 0, < 65536) [ "$port" -gt 0 ] && [ "$port" -lt 65536 ] || \ failure "The given port number should be greater than 0 and less than 65536. '$port' is not OK" # if the port number is given, and the scheme is in the services # database, check that the port number does *not* match the # default port. if (printf '%s' "$assigned_ports" | grep -q -F -x "$port" ) ; then failure $(printf "The scheme %s uses port number %d by default. You should leave off the port number if it is the default" "$scheme" "$port") fi fi } # fail if host key not present check_no_keys() { [ -s "$HOST_KEY_FILE" ] \ || failure "You don't appear to have a Monkeysphere host key on this server. Please run 'monkeysphere-host import-key' import a key." } # key input to functions, outputs full fingerprint of specified key if # found check_key_input() { local keyID="$1" # array of fingerprints local fprs=($(list_primary_fingerprints <"$HOST_KEY_FILE")) case ${#fprs[@]} in 0) failure "You don't appear to have any Monkeysphere host keys. Please run 'monkeysphere-host import-key' to import a key." ;; 1) : ;; *) if [ -z "$keyID" ] ; then failure "Your host keyring contains multiple keys. Please specify one to act on (see 'monkeysphere-host show-keys')." fi ;; esac printf '%s\n' "${fprs[@]}" | grep "${keyID}$" \ || failure "Host key '$keyID' not found." } # return 0 if user ID was found. # return 1 if user ID not found. check_key_userid() { local keyID="$1" local userID="$2" local tmpuidMatch # match to only "unknown" user IDs (host has no need for ultimate trust) tmpuidMatch="uid:-:$(echo $userID | gpg_escape)" # See whether the requsted user ID is present gpg_host_list_keys "$keyID" | cut -f1,2,10 -d: | \ grep -q -x -F "$tmpuidMatch" 2>/dev/null } prompt_userid_exists() { local userID="$1" local gpgOut local fingerprint if gpgOut=$(gpg_host_list_keys "=${userID}" 2>/dev/null) ; then fingerprint=$(echo "$gpgOut" | grep '^fpr:' | cut -d: -f10) if [ "$PROMPT" != "false" ] ; then printf "Service name '%s' is already being used by key '%s'.\nAre you sure you want to use it again? (y/N) " "$userID" "$fingerprint" >&2 read OK; OK=${OK:=N} if [ "${OK/y/Y}" != 'Y' ] ; then failure "Service name not added." fi else log info "Key '%s' is already using the service name '%s'." "$fingerprint" "$userID" >&2 fi fi } # run command looped over keys multi_key() { local cmd="$1" shift local keys=$@ local i=0 local key check_no_keys local fprs=($(list_primary_fingerprints <"$HOST_KEY_FILE")) if [[ -z "$1" || "$1" == '--all' ]] ; then keys="${fprs[@]}" fi for key in $keys ; do if (( i++ > 0 )) ; then printf "\n" fi "$cmd" "$key" done } # show info about the a key show_key() { local id="$1" local GNUPGHOME local fingerprint local revokers # tmp gpghome dir export GNUPGHOME=$(msmktempdir) # trap to remove tmp dir if break trap "rm -rf $GNUPGHOME" EXIT # import the host key into the tmp dir gpg --quiet --import <"$HOST_KEY_FILE" # get the gpg fingerprint if gpg --quiet --list-keys \ --with-colons --with-fingerprint "$id" \ | grep '^fpr:' | cut -d: -f10 > "$GNUPGHOME"/fingerprint ; then fingerprint=$(cat "$GNUPGHOME"/fingerprint) else failure "ID '$id' not found." fi # list the host key info # FIXME: make no-show-keyring work so we don't have to do the grep'ing # FIXME: can we show uid validity somehow? gpg --list-keys --list-options show-unusable-uids "$fingerprint" 2>/dev/null \ | grep -v "^${GNUPGHOME}/pubring.gpg$" \ | egrep -v '^-+$' \ | grep -v '^$' # list revokers, if there are any revokers=$(gpg --list-keys --with-colons --fixed-list-mode "$fingerprint" \ | awk -F: '/^rvk:/{ print $10 }' ) if [ "$revokers" ] ; then echo "The following keys are allowed to revoke this host key:" for key in $revokers ; do echo "revoker: $key" done fi # list the pgp fingerprint echo "OpenPGP fingerprint: $fingerprint" # list the ssh fingerprint printf "ssh fingerprint: %s\n" \ "$(gpg --export --no-armor "$fingerprint" 2>/dev/null | "$SYSSHAREDIR/keytrans" openpgp2sshfpr "$fingerprint")" # remove the tmp file trap - EXIT rm -rf "$GNUPGHOME" } ######################################################################## # MAIN ######################################################################## # load configuration file [ -e ${MONKEYSPHERE_HOST_CONFIG:="${SYSCONFIGDIR}/monkeysphere-host.conf"} ] \ && . "$MONKEYSPHERE_HOST_CONFIG" # set empty config variable with ones from the environment, or with # defaults LOG_LEVEL=${MONKEYSPHERE_LOG_LEVEL:=$LOG_LEVEL} KEYSERVER=${MONKEYSPHERE_KEYSERVER:=$KEYSERVER} CHECK_KEYSERVER=${MONKEYSPHERE_CHECK_KEYSERVER:=$CHECK_KEYSERVER} MONKEYSPHERE_USER=${MONKEYSPHERE_MONKEYSPHERE_USER:=$MONKEYSPHERE_USER} MONKEYSPHERE_GROUP=$(get_primary_group "$MONKEYSPHERE_USER") PROMPT=${MONKEYSPHERE_PROMPT:=$PROMPT} # other variables GNUPGHOME_HOST=${MONKEYSPHERE_GNUPGHOME_HOST:="${MHDATADIR}"} LOG_PREFIX=${MONKEYSPHERE_LOG_PREFIX:='ms: '} # export variables needed in su invocation export DATE export LOG_LEVEL export KEYSERVER export CHECK_KEYSERVER export MONKEYSPHERE_USER export MONKEYSPHERE_GROUP export PROMPT export GNUPGHOME_HOST export GNUPGHOME export HOST_FINGERPRINT export LOG_PREFIX if [ "$#" -eq 0 ] ; then usage failure "Please supply a subcommand." fi # get subcommand COMMAND="$1" shift case $COMMAND in 'import-key'|'import'|'i') source "${MHSHAREDIR}/import_key" import_key "$@" ;; 'show-keys'|'show-key'|'show'|'s') multi_key show_key "$@" ;; 'set-expire'|'extend-key'|'extend'|'e') source "${MHSHAREDIR}/set_expire" set_expire "$@" ;; 'add-servicename'|'add-hostname'|'add-name'|'n+') source "${MHSHAREDIR}/add_name" add_name "$@" ;; 'revoke-servicename'|'revoke-hostname'|'revoke-name'|'n-') source "${MHSHAREDIR}/revoke_name" revoke_name "$@" ;; 'add-revoker'|'r+') source "${MHSHAREDIR}/add_revoker" add_revoker "$@" ;; 'revoke-key') source "${MHSHAREDIR}/revoke_key" revoke_key "$@" ;; 'publish-keys'|'publish-key'|'publish'|'p') source "${MHSHAREDIR}/publish_key" multi_key publish_key "$@" ;; 'diagnostics'|'d') source "${MHSHAREDIR}/diagnostics" diagnostics ;; 'update-pgp-pub-file') update_pgp_pub_file ;; 'version'|'--version'|'v') version ;; '--help'|'help'|'-h'|'h'|'?') usage ;; *) failure "Unknown command: '$COMMAND' Try '$PGRM help' for usage." ;; esac ass="hl ipl">$form->{vc}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}"
  • unless $form->{callback};
  • $form->{rowcount} = 0;
  • &order_links;
  • &prepare_order;
  • &display_form;
  • }
  • sub edit {
  • if ( $form->{type} =~ /(purchase_order|bin_list)/ ) {
  • $form->{title} = $locale->text('Edit Purchase Order');
  • $form->{vc} = 'vendor';
  • $form->{type} = 'purchase_order';
  • }
  • if ( $form->{type} =~ /((sales|work)_order|(packing|pick)_list)/ ) {
  • $form->{title} = $locale->text('Edit Sales Order');
  • $form->{vc} = 'customer';
  • $form->{type} = 'sales_order';
  • }
  • if ( $form->{type} eq 'request_quotation' ) {
  • $form->{title} = $locale->text('Edit Request for Quotation');
  • $form->{vc} = 'vendor';
  • }
  • if ( $form->{type} eq 'sales_quotation' ) {
  • $form->{title} = $locale->text('Edit Quotation');
  • $form->{vc} = 'customer';
  • }
  • &order_links;
  • &prepare_order;
  • &display_form;
  • }
  • sub order_links {
  • # retrieve order/quotation
  • OE->retrieve( \%myconfig, \%$form );
  • # get customer/vendor
  • $form->all_vc( \%myconfig, $form->{vc},
  • ( $form->{vc} eq 'customer' ) ? "AR" : "AP",
  • undef, $form->{transdate}, 1 );
  • # currencies
  • @curr = split /:/, $form->{currencies};
  • $form->{defaultcurrency} = $curr[0];
  • chomp $form->{defaultcurrency};
  • $form->{currency} = $form->{defaultcurrency} unless $form->{currency};
  • for (@curr) { $form->{selectcurrency} .= "<option>$_\n" }
  • $form->{oldlanguage_code} = $form->{language_code};
  • $l{language_code} = $form->{language_code};
  • $l{searchitems} = 'nolabor' if $form->{vc} eq 'customer';
  • $form->get_partsgroup( \%myconfig, \%l );
  • if ( @{ $form->{all_partsgroup} } ) {
  • $form->{selectpartsgroup} = "<option>\n";
  • foreach $ref ( @{ $form->{all_partsgroup} } ) {
  • if ( $ref->{translation} ) {
  • $form->{selectpartsgroup} .=
  • qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|;
  • }
  • else {
  • $form->{selectpartsgroup} .=
  • qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
  • }
  • }
  • }
  • if ( @{ $form->{all_project} } ) {
  • $form->{selectprojectnumber} = "<option>\n";
  • for ( @{ $form->{all_project} } ) {
  • $form->{selectprojectnumber} .=
  • qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
  • }
  • }
  • if ( @{ $form->{"all_$form->{vc}"} } ) {
  • unless ( $form->{"$form->{vc}_id"} ) {
  • $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
  • }
  • }
  • for (qw(terms taxincluded)) { $temp{$_} = $form->{$_} }
  • $form->{shipto} = 1 if $form->{id};
  • # get customer / vendor
  • AA->get_name( \%myconfig, \%$form );
  • if ( $form->{id} ) {
  • for (qw(terms taxincluded)) { $form->{$_} = $temp{$_} }
  • }
  • ( $form->{ $form->{vc} } ) = split /--/, $form->{ $form->{vc} };
  • $form->{"old$form->{vc}"} =
  • qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
  • # build selection list
  • $form->{"select$form->{vc}"} = "";
  • if ( @{ $form->{"all_$form->{vc}"} } ) {
  • $form->{ $form->{vc} } =
  • qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
  • for ( @{ $form->{"all_$form->{vc}"} } ) {
  • $form->{"select$form->{vc}"} .=
  • qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
  • }
  • }
  • # departments
  • if ( @{ $form->{all_department} } ) {
  • $form->{selectdepartment} = "<option>\n";
  • $form->{department} = "$form->{department}--$form->{department_id}"
  • if $form->{department_id};
  • for ( @{ $form->{all_department} } ) {
  • $form->{selectdepartment} .=
  • qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
  • }
  • }
  • $form->{employee} = "$form->{employee}--$form->{employee_id}";
  • # sales staff
  • if ( @{ $form->{all_employee} } ) {
  • $form->{selectemployee} = "";
  • for ( @{ $form->{all_employee} } ) {
  • $form->{selectemployee} .=
  • qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
  • }
  • }
  • if ( @{ $form->{all_language} } ) {
  • $form->{selectlanguage} = "<option>\n";
  • for ( @{ $form->{all_language} } ) {
  • $form->{selectlanguage} .=
  • qq|<option value="$_->{code}">$_->{description}\n|;
  • }
  • }
  • # forex
  • $form->{forex} = $form->{exchangerate};
  • }
  • sub prepare_order {
  • $form->{format} = "postscript" if $myconfig{printer};
  • $form->{media} = $myconfig{printer};
  • $form->{formname} = $form->{type};
  • $form->{sortby} ||= "runningnumber";
  • $form->{currency} =~ s/ //g;
  • $form->{oldcurrency} = $form->{currency};
  • if ( $form->{id} ) {
  • for (
  • qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact)
  • )
  • {
  • $form->{$_} = $form->quote( $form->{$_} );
  • }
  • foreach $ref ( @{ $form->{form_details} } ) {
  • $i++;
  • for ( keys %$ref ) { $form->{"${_}_$i"} = $ref->{$_} }
  • $form->{"projectnumber_$i"} =
  • qq|$ref->{projectnumber}--$ref->{project_id}|
  • if $ref->{project_id};
  • $form->{"partsgroup_$i"} =
  • qq|$ref->{partsgroup}--$ref->{partsgroup_id}|
  • if $ref->{partsgroup_id};
  • $form->{"discount_$i"} =
  • $form->format_amount( \%myconfig, $form->{"discount_$i"} * 100 );
  • ($dec) = ( $form->{"sellprice_$i"} =~ /\.(\d+)/ );
  • $dec = length $dec;
  • $decimalplaces = ( $dec > 2 ) ? $dec : 2;
  • for ( map { "${_}_$i" } qw(sellprice listprice) ) {
  • $form->{$_} =
  • $form->format_amount( \%myconfig, $form->{$_},
  • $decimalplaces );
  • }
  • ($dec) = ( $form->{"lastcost_$i"} =~ /\.(\d+)/ );
  • $dec = length $dec;
  • $decimalplaces = ( $dec > 2 ) ? $dec : 2;
  • $form->{"lastcost_$i"} =
  • $form->format_amount( \%myconfig, $form->{"lastcost_$i"},
  • $decimalplaces );
  • $form->{"qty_$i"} =
  • $form->format_amount( \%myconfig, $form->{"qty_$i"} );
  • $form->{"oldqty_$i"} = $form->{"qty_$i"};
  • for (qw(partnumber sku description unit)) {
  • $form->{"${_}_$i"} = $form->quote( $form->{"${_}_$i"} );
  • }
  • $form->{rowcount} = $i;
  • }
  • }
  • $form->{oldtransdate} = $form->{transdate};
  • if ( $form->{type} eq 'sales_quotation' ) {
  • if ( !$form->{readonly} ) {
  • $form->{readonly} = 1 if $myconfig{acs} =~ /Quotations--Quotation/;
  • }
  • $form->{selectformname} =
  • qq|<option value="sales_quotation">| . $locale->text('Quotation');
  • }
  • if ( $form->{type} eq 'request_quotation' ) {
  • if ( !$form->{readonly} ) {
  • $form->{readonly} = 1 if $myconfig{acs} =~ /Quotations--RFQ/;
  • }
  • $form->{selectformname} =
  • qq|<option value="request_quotation">| . $locale->text('RFQ');
  • }
  • if ( $form->{type} eq 'sales_order' ) {
  • if ( !$form->{readonly} ) {
  • $form->{readonly} = 1
  • if $myconfig{acs} =~ /Order Entry--Sales Order/;
  • }
  • $form->{selectformname} =
  • qq|<option value="sales_order">|
  • . $locale->text('Sales Order') . qq|
  • <option value="work_order">| . $locale->text('Work Order') . qq|
  • <option value="pick_list">| . $locale->text('Pick List') . qq|
  • <option value="packing_list">| . $locale->text('Packing List');
  • }
  • if ( $form->{type} eq 'purchase_order' ) {
  • if ( !$form->{readonly} ) {
  • $form->{readonly} = 1
  • if $myconfig{acs} =~ /Order Entry--Purchase Order/;
  • }
  • $form->{selectformname} =
  • qq|<option value="purchase_order">|
  • . $locale->text('Purchase Order') . qq|
  • <option value="bin_list">| . $locale->text('Bin List');
  • }
  • if ( $form->{type} eq 'ship_order' ) {
  • $form->{selectformname} =
  • qq|<option value="pick_list">|
  • . $locale->text('Pick List') . qq|
  • <option value="packing_list">| . $locale->text('Packing List');
  • }
  • if ( $form->{type} eq 'receive_order' ) {
  • $form->{selectformname} =
  • qq|<option value="bin_list">| . $locale->text('Bin List');
  • }
  • }
  • sub form_header {
  • $checkedopen = ( $form->{closed} ) ? "" : "checked";
  • $checkedclosed = ( $form->{closed} ) ? "checked" : "";
  • if ( $form->{id} ) {
  • $openclosed = qq|
  • <tr>
  • <th nowrap align=right><input name=closed type=radio class=radio value=0 $checkedopen> |
  • . $locale->text('Open')
  • . qq|</th>
  • <th nowrap align=left><input name=closed type=radio class=radio value=1 $checkedclosed> |
  • . $locale->text('Closed')
  • . qq|</th>
  • </tr>
  • |;
  • }
  • # set option selected
  • $form->{selectcurrency} =~ s/ selected//;
  • $form->{selectcurrency} =~
  • s/option>\Q$form->{currency}\E/option selected>$form->{currency}/;
  • for ( "$form->{vc}", "department", "employee" ) {
  • $form->{"select$_"} = $form->unescape( $form->{"select$_"} );
  • $form->{"select$_"} =~ s/ selected//;
  • $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
  • }
  • $form->{exchangerate} =
  • $form->format_amount( \%myconfig, $form->{exchangerate} );
  • $exchangerate = qq|<tr>|;
  • $exchangerate .= qq|
  • <th align=right nowrap>| . $locale->text('Currency') . qq|</th>
  • <td><select name=currency>$form->{selectcurrency}</select></td> |
  • if $form->{defaultcurrency};
  • $exchangerate .= qq|
  • <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
  • <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
  • |;
  • if ( $form->{defaultcurrency}
  • && $form->{currency} ne $form->{defaultcurrency} )
  • {
  • if ( $form->{forex} ) {
  • $exchangerate .=
  • qq|<th align=right>|
  • . $locale->text('Exchange Rate')
  • . qq|</th><td>$form->{exchangerate}</td>
  • <input type=hidden name=exchangerate value=$form->{exchangerate}>
  • |;
  • }
  • else {
  • $exchangerate .=
  • qq|<th align=right>|
  • . $locale->text('Exchange Rate')
  • . qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|;
  • }
  • }
  • $exchangerate .= qq|
  • <input type=hidden name=forex value=$form->{forex}>
  • </tr>
  • |;
  • $vclabel = ucfirst $form->{vc};
  • $vclabel = $locale->text($vclabel);
  • $terms = qq|
  • <tr>
  • <th align=right nowrap>| . $locale->text('Terms') . qq|</th>
  • <td nowrap><input name=terms size="3" maxlength="3" value=$form->{terms}> |
  • . $locale->text('days')
  • . qq|</td>
  • </tr>
  • |;
  • if ( $form->{business} ) {
  • $business = qq|
  • <tr>
  • <th align=right nowrap>| . $locale->text('Business') . qq|</th>
  • <td colspan=3>$form->{business}
  • &nbsp;&nbsp;&nbsp;|;
  • $business .= qq|
  • <b>| . $locale->text('Trade Discount') . qq|</b>
  • | . $form->format_amount( \%myconfig, $form->{tradediscount} * 100 ) . qq| %|
  • if $form->{vc} eq 'customer';
  • $business .= qq|</td>
  • </tr>
  • |;
  • }
  • if ( $form->{type} !~ /_quotation$/ ) {
  • $ordnumber = qq|
  • <tr>
  • <th width=70% align=right nowrap>| . $locale->text('Order Number') . qq|</th>
  • <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
  • <input type=hidden name=quonumber value="$form->{quonumber}">
  • </tr>
  • <tr>
  • <th align=right nowrap>| . $locale->text('Order Date') . qq|</th>
  • <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
  • </tr>
  • <tr>
  • <th align=right nowrap=true>| . $locale->text('Required by') . qq|</th>
  • <td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td>
  • </tr>
  • <tr>
  • <th align=right nowrap>| . $locale->text('PO Number') . qq|</th>
  • <td><input name=ponumber size=20 value="$form->{ponumber}"></td>
  • </tr>
  • |;
  • $n = ( $form->{creditremaining} < 0 ) ? "0" : "1";
  • $creditremaining = qq|
  • <tr>
  • <td></td>
  • <td colspan=3>
  • <table>
  • <tr>
  • <th align=right nowrap>| . $locale->text('Credit Limit') . qq|</th>
  • <td>|
  • . $form->format_amount( \%myconfig, $form->{creditlimit}, 0, "0" )
  • . qq|</td>
  • <td width=10></td>
  • <th align=right nowrap>| . $locale->text('Remaining') . qq|</th>
  • <td class="plus$n" nowrap>|
  • . $form->format_amount( \%myconfig, $form->{creditremaining}, 0, "0" )
  • . qq|</td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • |;
  • }
  • else {
  • $reqlabel =
  • ( $form->{type} eq 'sales_quotation' )
  • ? $locale->text('Valid until')
  • : $locale->text('Required by');
  • if ( $form->{type} eq 'sales_quotation' ) {
  • $ordnumber = qq|
  • <tr>
  • <th width=70% align=right nowrap>|
  • . $locale->text('Quotation Number')
  • . qq|</th>
  • <td><input name=quonumber size=20 value="$form->{quonumber}"></td>
  • <input type=hidden name=ordnumber value="$form->{ordnumber}">
  • </tr>
  • |;
  • }
  • else {
  • $ordnumber = qq|
  • <tr>
  • <th width=70% align=right nowrap>| . $locale->text('RFQ Number') . qq|</th>
  • <td><input name=quonumber size=20 value="$form->{quonumber}"></td>
  • <input type=hidden name=ordnumber value="$form->{ordnumber}">
  • </tr>
  • |;
  • $terms = "";
  • }
  • $ordnumber .= qq|
  • <tr>
  • <th align=right nowrap>| . $locale->text('Quotation Date') . qq|</th>
  • <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
  • </tr>
  • <tr>
  • <th align=right nowrap=true>$reqlabel</th>
  • <td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td>
  • </tr>
  • |;
  • }
  • $ordnumber .= qq|
  • <input type=hidden name=oldtransdate value=$form->{oldtransdate}>|;
  • if ( $form->{"select$form->{vc}"} ) {
  • $vc = qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}</select>
  • <input type=hidden name="select$form->{vc}" value="|
  • . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">|;
  • }
  • else {
  • $vc = qq|<input name=$form->{vc} value="$form->{$form->{vc}}" size=35>|;
  • }
  • $department = qq|
  • <tr>
  • <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
  • <td colspan=3><select name=department>$form->{selectdepartment}</select>
  • <input type=hidden name=selectdepartment value="|
  • . $form->escape( $form->{selectdepartment}, 1 ) . qq|">
  • </td>
  • </tr>
  • | if $form->{selectdepartment};
  • $employee = qq|
  • <input type=hidden name=employee value="$form->{employee}">
  • |;
  • if ( $form->{type} eq 'sales_order' ) {
  • if ( $form->{selectemployee} ) {
  • $employee = qq|
  • <tr>
  • <th align=right nowrap>| . $locale->text('Salesperson') . qq|</th>
  • <td><select name=employee>$form->{selectemployee}</select></td>
  • <input type=hidden name=selectemployee value="|
  • . $form->escape( $form->{selectemployee}, 1 ) . qq|"
  • </tr>
  • |;
  • }
  • }
  • else {
  • if ( $form->{selectemployee} ) {
  • $employee = qq|
  • <tr>
  • <th align=right nowrap>| . $locale->text('Employee') . qq|</th>
  • <td><select name=employee>$form->{selectemployee}</select></td>
  • <input type=hidden name=selectemployee value="|
  • . $form->escape( $form->{selectemployee}, 1 ) . qq|"
  • </tr>
  • |;
  • }
  • }
  • $i = $form->{rowcount} + 1;
  • $focus = "partnumber_$i";
  • $form->header;
  • print qq|
  • <body onLoad="document.forms[0].${focus}.focus()" />
  • <form method=post action="$form->{script}">
  • |;
  • $form->hide_form(
  • qw(id type formname media format printed emailed queued vc title discount creditlimit creditremaining tradediscount business recurring)
  • );
  • print qq|
  • <table width=100%>
  • <tr class=listtop>
  • <th class=listtop>$form->{title}</th>
  • </tr>
  • <tr height="5"></tr>
  • <tr>
  • <td>
  • <table width="100%">
  • <tr valign=top>
  • <td>
  • <table width=100%>
  • <tr>
  • <th align=right>$vclabel</th>
  • <td colspan=3>$vc</td>
  • <input type=hidden name=$form->{vc}_id value=$form->{"$form->{vc}_id"}>
  • <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
  • </tr>
  • $creditremaining
  • $business
  • $department
  • $exchangerate
  • <tr>
  • <th align=right>| . $locale->text('Shipping Point') . qq|</th>
  • <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
  • </tr>
  • <tr>
  • <th align=right>| . $locale->text('Ship via') . qq|</th>
  • <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td>
  • </tr>
  • </table>
  • </td>
  • <td align=right>
  • <table>
  • $openclosed
  • $employee
  • $ordnumber
  • $terms
  • </table>
  • </td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • |;
  • $form->hide_form(
  • qw(shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact shiptophone shiptofax shiptoemail message email subject cc bcc taxaccounts)
  • );
  • for ( split / /, $form->{taxaccounts} ) {
  • print qq|
  • <input type=hidden name="${_}_rate" value=$form->{"${_}_rate"}>
  • <input type=hidden name="${_}_description" value="$form->{"${_}_description"}">
  • |;
  • }
  • }
  • sub form_footer {
  • $form->{invtotal} = $form->{invsubtotal};
  • if ( ( $rows = $form->numtextrows( $form->{notes}, 35, 8 ) ) < 2 ) {
  • $rows = 2;
  • }
  • if ( ( $introws = $form->numtextrows( $form->{intnotes}, 35, 8 ) ) < 2 ) {
  • $introws = 2;
  • }
  • $rows = ( $rows > $introws ) ? $rows : $introws;
  • $notes =
  • qq|<textarea name=notes rows=$rows cols=35 wrap=soft>$form->{notes}</textarea>|;
  • $intnotes =
  • qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
  • $form->{taxincluded} = ( $form->{taxincluded} ) ? "checked" : "";
  • $taxincluded = "";
  • if ( $form->{taxaccounts} ) {
  • $taxincluded = qq|
  • <tr height="5"></tr>
  • <tr>
  • <td align=right>
  • <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
  • <th align=left>| . $locale->text('Tax Included') . qq|</th>
  • </tr>
  • |;
  • }
  • if ( !$form->{taxincluded} ) {
  • my @taxes = Tax::init_taxes( $form, $form->{taxaccounts} );
  • foreach my $item (@taxes) {
  • my $taccno = $item->account;
  • $form->{invtotal} += $form->round_amount(
  • $form->{"${taccno}_rate"} * $form->{"${taccno}_base"}, 2);
  • $form->{"${taccno}_total"} =
  • $form->format_amount( \%myconfig,
  • $form->{"${taccno}_rate"} * $form->{"${taccno}_base"}, 2 );
  • $tax .= qq|
  • <tr>
  • <th align=right>$form->{"${taccno}_description"}</th>
  • <td align=right>$form->{"${taccno}_total"}</td>
  • </tr>
  • | if $form->{"${taccno}_base"};
  • }
  • $form->{invsubtotal} =
  • $form->format_amount( \%myconfig, $form->{invsubtotal}, 2, 0 );
  • $subtotal = qq|
  • <tr>
  • <th align=right>| . $locale->text('Subtotal') . qq|</th>
  • <td align=right>$form->{invsubtotal}</td>
  • </tr>
  • |;
  • }
  • $form->{oldinvtotal} = $form->{invtotal};
  • $form->{invtotal} =
  • $form->format_amount( \%myconfig, $form->{invtotal}, 2, 0 );
  • print qq|
  • <tr>
  • <td>
  • <table width=100%>
  • <tr valign=top>
  • <td>
  • <table>
  • <tr>
  • <th align=left>| . $locale->text('Notes') . qq|</th>
  • <th align=left>| . $locale->text('Internal Notes') . qq|</th>
  • </tr>
  • <tr valign=top>
  • <td>$notes</td>
  • <td>$intnotes</td>
  • </tr>
  • </table>
  • </td>
  • <td align=right>
  • <table>
  • $subtotal
  • $tax
  • <tr>
  • <th align=right>| . $locale->text('Total') . qq|</th>
  • <td align=right>$form->{invtotal}</td>
  • </tr>
  • $taxincluded
  • </table>
  • </td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • <input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
  • <input type=hidden name=oldtotalpaid value=$totalpaid>
  • <tr>
  • <td><hr size=3 noshade></td>
  • </tr>
  • <tr>
  • <td>
  • |;
  • &print_options;
  • print qq|
  • </td>
  • </tr>
  • </table>
  • <br>
  • |;
  • # type=submit $locale->text('Update')
  • # type=submit $locale->text('Print')
  • # type=submit $locale->text('Schedule')
  • # type=submit $locale->text('Save')
  • # type=submit $locale->text('Print and Save')
  • # type=submit $locale->text('Ship to')
  • # type=submit $locale->text('Save as new')
  • # type=submit $locale->text('Print and Save as new')
  • # type=submit $locale->text('E-mail')
  • # type=submit $locale->text('Delete')
  • # type=submit $locale->text('Sales Invoice')
  • # type=submit $locale->text('Vendor Invoice')
  • # type=submit $locale->text('Quotation')
  • # type=submit $locale->text('RFQ')
  • # type=submit $locale->text('Sales Order')
  • # type=submit $locale->text('Purchase Order')
  • if ( !$form->{readonly} ) {
  • %button = (
  • 'update' =>
  • { ndx => 1, key => 'U', value => $locale->text('Update') },
  • 'print' =>
  • { ndx => 2, key => 'P', value => $locale->text('Print') },
  • 'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },
  • 'ship_to' =>
  • { ndx => 4, key => 'T', value => $locale->text('Ship to') },
  • 'e_mail' =>
  • { ndx => 5, key => 'E', value => $locale->text('E-mail') },
  • 'print_and_save' => {
  • ndx => 6,
  • key => 'R',
  • value => $locale->text('Print and Save')
  • },
  • 'save_as_new' =>
  • { ndx => 7, key => 'N', value => $locale->text('Save as new') },
  • 'print_and_save_as_new' => {
  • ndx => 8,
  • key => 'W',
  • value => $locale->text('Print and Save as new')
  • },
  • 'sales_invoice' =>
  • { ndx => 9, key => 'I', value => $locale->text('Sales Invoice') },
  • 'sales_order' =>
  • { ndx => 10, key => 'O', value => $locale->text('Sales Order') },
  • 'quotation' =>
  • { ndx => 11, key => 'Q', value => $locale->text('Quotation') },
  • 'vendor_invoice' => {
  • ndx => 12,
  • key => 'I',
  • value => $locale->text('Vendor Invoice')
  • },
  • 'purchase_order' => {
  • ndx => 13,
  • key => 'O',
  • value => $locale->text('Purchase Order')
  • },
  • 'rfq' => { ndx => 14, key => 'Q', value => $locale->text('RFQ') },
  • 'schedule' =>
  • { ndx => 15, key => 'H', value => $locale->text('Schedule') },
  • 'delete' =>
  • { ndx => 16, key => 'D', value => $locale->text('Delete') },
  • );
  • %a = ();
  • for ( "update", "ship_to", "print", "e_mail", "save" ) { $a{$_} = 1 }
  • $a{'print_and_save'} = 1 if ${LedgerSMB::Sysconfig::latex};
  • if ( $form->{id} ) {
  • $a{'delete'} = 1;
  • $a{'save_as_new'} = 1;
  • $a{'print_and_save_as_new'} = 1 if ${LedgerSMB::Sysconfig::latex};
  • if ( $form->{type} =~ /sales_/ ) {
  • if ( $myconfig{acs} !~ /AR--Sales Invoice/ ) {
  • $a{'sales_invoice'} = 1;
  • }
  • }
  • else {
  • if ( $myconfig{acs} !~ /AP--Vendor Invoice/ ) {
  • $a{'vendor_invoice'} = 1;
  • }
  • }
  • if ( $form->{type} eq 'sales_order' ) {
  • if ( $myconfig{acs} !~ /Quotations--RFQ/ ) {
  • $a{'quotation'} = 1;
  • }
  • }
  • if ( $form->{type} eq 'purchase_order' ) {
  • if ( $myconfig{acs} !~ /Quotations--RFQ/ ) {
  • $a{'rfq'} = 1;
  • }
  • }
  • if ( $form->{type} eq 'sales_quotation' ) {
  • if ( $myconfig{acs} !~ /Order Entry--Sales Order/ ) {
  • $a{'sales_order'} = 1;
  • }
  • }
  • if ( $myconfig{acs} !~ /Order Entry--Purchase Order/ ) {
  • if ( $form->{type} eq 'request_quotation' ) {
  • $a{'purchase_order'} = 1;
  • }
  • }
  • }
  • if ( $form->{type} =~ /_order/ ) {
  • $a{'schedule'} = 1;
  • }
  • }
  • for ( keys %button ) { delete $button{$_} if !$a{$_} }
  • for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) {
  • $form->print_button( \%button, $_ );
  • }
  • if ( $form->{lynx} ) {
  • require "bin/menu.pl";
  • &menubar;
  • }
  • $form->hide_form(qw(rowcount callback path login sessionid));
  • print qq|
  • </form>
  • </body>
  • </html>
  • |;
  • }
  • sub update {
  • if ( $form->{type} eq 'generate_purchase_order' ) {
  • for ( 1 .. $form->{rowcount} ) {
  • if ( $form->{"ndx_$_"} ) {
  • $form->{"$form->{vc}_id_$_"} = $form->{"$form->{vc}_id"};
  • $form->{"$form->{vc}_$_"} =
  • qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
  • }
  • }
  • &po_orderitems;
  • exit;
  • }
  • $form->{exchangerate} =
  • $form->parse_amount( \%myconfig, $form->{exchangerate} );
  • if ( $form->{vc} eq 'customer' ) {
  • $buysell = "buy";
  • $ARAP = "AR";
  • }
  • else {
  • $buysell = "sell";
  • $ARAP = "AP";
  • }
  • if ( $newname = &check_name( $form->{vc} ) ) {
  • &rebuild_vc( $form->{vc}, $ARAP, $form->{transdate}, 1 );
  • }
  • if ( $form->{transdate} ne $form->{oldtransdate} ) {
  • $form->{reqdate} =
  • ( $form->{terms} )
  • ? $form->current_date( \%myconfig, $form->{transdate},
  • $form->{terms} * 1 )
  • : $form->{reqdate};
  • $form->{oldtransdate} = $form->{transdate};
  • &rebuild_vc( $form->{vc}, $ARAP, $form->{transdate}, 1 ) if !$newname;
  • if ( $form->{currency} ne $form->{defaultcurrency} ) {
  • delete $form->{exchangerate};
  • $form->{exchangerate} = $exchangerate
  • if (
  • $form->{forex} = (
  • $exchangerate = $form->check_exchangerate(
  • \%myconfig, $form->{currency},
  • $form->{transdate}, $buysell
  • )
  • )
  • );
  • }
  • $form->{selectemployee} = "";
  • if ( @{ $form->{all_employee} } ) {
  • for ( @{ $form->{all_employee} } ) {
  • $form->{selectemployee} .=
  • qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
  • }
  • }
  • }
  • if ( $form->{currency} ne $form->{oldcurrency} ) {
  • delete $form->{exchangerate};
  • $form->{exchangerate} = $exchangerate
  • if (
  • $form->{forex} = (
  • $exchangerate = $form->check_exchangerate(
  • \%myconfig, $form->{currency},
  • $form->{transdate}, $buysell
  • )
  • )
  • );
  • }
  • my $i = $form->{rowcount};
  • $exchangerate = ( $form->{exchangerate} ) ? $form->{exchangerate} : 1;
  • for (qw(partsgroup projectnumber)) {
  • $form->{"select$_"} = $form->unescape( $form->{"select$_"} )
  • if $form->{"select$_"};
  • }
  • if ( ( $form->{"partnumber_$i"} eq "" )
  • && ( $form->{"description_$i"} eq "" )
  • && ( $form->{"partsgroup_$i"} eq "" ) )
  • {
  • $form->{creditremaining} +=
  • ( $form->{oldinvtotal} - $form->{oldtotalpaid} );
  • &check_form;
  • }
  • else {
  • $retrieve_item = "";
  • if ( $form->{type} eq 'purchase_order'
  • || $form->{type} eq 'request_quotation' )
  • {
  • $retrieve_item = "IR::retrieve_item";
  • }
  • if ( $form->{type} eq 'sales_order'
  • || $form->{type} eq 'sales_quotation' )
  • {
  • $retrieve_item = "IS::retrieve_item";
  • }
  • &{"$retrieve_item"}( "", \%myconfig, \%$form );
  • $rows = scalar @{ $form->{item_list} };
  • if ( $form->{language_code} && $rows == 0 ) {
  • $language_code = $form->{language_code};
  • $form->{language_code} = "";
  • if ($retrieve_item) {
  • &{"$retrieve_item"}( "", \%myconfig, \%$form );
  • }
  • $form->{language_code} = $language_code;
  • $rows = scalar @{ $form->{item_list} };
  • }
  • if ($rows) {
  • if ( $rows > 1 ) {
  • &select_item;
  • exit;
  • }
  • else {
  • $form->{"qty_$i"} =
  • ( $form->{"qty_$i"} * 1 ) ? $form->{"qty_$i"} : 1;
  • $form->{"reqdate_$i"} = $form->{reqdate}
  • if $form->{type} ne 'sales_quotation';
  • $sellprice =
  • $form->parse_amount( \%myconfig, $form->{"sellprice_$i"} );
  • for (qw(partnumber description unit)) {
  • $form->{item_list}[$i]{$_} =
  • $form->quote( $form->{item_list}[$i]{$_} );
  • }
  • for ( keys %{ $form->{item_list}[0] } ) {
  • $form->{"${_}_$i"} = $form->{item_list}[0]{$_};
  • }
  • $form->{"discount_$i"} = $form->{discount} * 100;
  • if ($sellprice) {
  • $form->{"sellprice_$i"} = $sellprice;
  • ($dec) = ( $form->{"sellprice_$i"} =~ /\.(\d+)/ );
  • $dec = length $dec;
  • $decimalplaces1 = ( $dec > 2 ) ? $dec : 2;
  • }
  • else {
  • ($dec) = ( $form->{"sellprice_$i"} =~ /\.(\d+)/ );
  • $dec = length $dec;
  • $decimalplaces1 = ( $dec > 2 ) ? $dec : 2;
  • $form->{"sellprice_$i"} /= $exchangerate;
  • }
  • ($dec) = ( $form->{"lastcost_$i"} =~ /\.(\d+)/ );
  • $dec = length $dec;
  • $decimalplaces2 = ( $dec > 2 ) ? $dec : 2;
  • for (qw(listprice lastcost)) {
  • $form->{"${_}_$i"} /= $exchangerate;
  • }
  • $amount =
  • $form->{"sellprice_$i"} * $form->{"qty_$i"} *
  • ( 1 - $form->{"discount_$i"} / 100 );
  • for ( split / /, $form->{taxaccounts} ) {
  • $form->{"${_}_base"} = 0;
  • }
  • for ( split / /, $form->{"taxaccounts_$i"} ) {
  • $form->{"${_}_base"} += $amount;
  • }
  • if ( !$form->{taxincluded} ) {
  • my @taxes = Tax::init_taxes( $form, $form->{taxaccounts} );
  • $amount +=
  • Tax::calculate_taxes( \@taxes, $form, $amount, 0 );
  • }
  • $form->{creditremaining} -= $amount;
  • for (qw(sellprice listprice)) {
  • $form->{"${_}_$i"} =
  • $form->format_amount( \%myconfig, $form->{"${_}_$i"},
  • $decimalplaces1 );
  • }
  • $form->{"lastcost_$i"} =
  • $form->format_amount( \%myconfig, $form->{"lastcost_$i"},
  • $decimalplaces2 );
  • $form->{"oldqty_$i"} = $form->{"qty_$i"};
  • for (qw(qty discount)) {
  • $form->{"{_}_$i"} =
  • $form->format_amount( \%myconfig, $form->{"${_}_$i"} );
  • }
  • }
  • &display_form;
  • }
  • else {
  • # ok, so this is a new part
  • # ask if it is a part or service item
  • if ( $form->{"partsgroup_$i"}
  • && ( $form->{"partsnumber_$i"} eq "" )
  • && ( $form->{"description_$i"} eq "" ) )
  • {
  • $form->{rowcount}--;
  • &display_form;
  • }
  • else {
  • $form->{"id_$i"} = 0;
  • $form->{"unit_$i"} = $locale->text('ea');
  • &new_item;
  • }
  • }
  • }
  • }
  • sub search {
  • $requiredby = $locale->text('Required by');
  • if ( $form->{type} eq 'purchase_order' ) {
  • $form->{title} = $locale->text('Purchase Orders');
  • $form->{vc} = 'vendor';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Employee');
  • }
  • if ( $form->{type} eq 'receive_order' ) {
  • $form->{title} = $locale->text('Receive Merchandise');
  • $form->{vc} = 'vendor';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Employee');
  • }
  • if ( $form->{type} eq 'generate_sales_order' ) {
  • $form->{title} =
  • $locale->text('Generate Sales Order from Purchase Orders');
  • $form->{vc} = 'vendor';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Employee');
  • }
  • if ( $form->{type} eq 'consolidate_sales_order' ) {
  • $form->{title} = $locale->text('Consolidate Sales Orders');
  • $form->{vc} = 'customer';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Salesperson');
  • }
  • if ( $form->{type} eq 'request_quotation' ) {
  • $form->{title} = $locale->text('Request for Quotations');
  • $form->{vc} = 'vendor';
  • $ordlabel = $locale->text('RFQ Number');
  • $ordnumber = 'quonumber';
  • $employee = $locale->text('Employee');
  • }
  • if ( $form->{type} eq 'sales_order' ) {
  • $form->{title} = $locale->text('Sales Orders');
  • $form->{vc} = 'customer';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Salesperson');
  • }
  • if ( $form->{type} eq 'ship_order' ) {
  • $form->{title} = $locale->text('Ship Merchandise');
  • $form->{vc} = 'customer';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Salesperson');
  • }
  • if ( $form->{type} eq 'sales_quotation' ) {
  • $form->{title} = $locale->text('Quotations');
  • $form->{vc} = 'customer';
  • $ordlabel = $locale->text('Quotation Number');
  • $ordnumber = 'quonumber';
  • $employee = $locale->text('Employee');
  • $requiredby = $locale->text('Valid until');
  • }
  • if ( $form->{type} eq 'generate_purchase_order' ) {
  • $form->{title} =
  • $locale->text('Generate Purchase Orders from Sales Order');
  • $form->{vc} = 'customer';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Salesperson');
  • }
  • if ( $form->{type} eq 'consolidate_purchase_order' ) {
  • $form->{title} = $locale->text('Consolidate Purchase Orders');
  • $form->{vc} = 'vendor';
  • $ordlabel = $locale->text('Order Number');
  • $ordnumber = 'ordnumber';
  • $employee = $locale->text('Employee');
  • }
  • $l_employee =
  • qq|<input name="l_employee" class=checkbox type=checkbox value=Y> $employee|;
  • $l_manager =
  • qq|<input name="l_manager" class=checkbox type=checkbox value=Y> |
  • . $locale->text('Manager');
  • if ( $form->{type} =~ /(ship|receive)_order/ ) {
  • OE->get_warehouses( \%myconfig, \%$form );
  • $l_manager = "";
  • # warehouse
  • if ( @{ $form->{all_warehouse} } ) {
  • $form->{selectwarehouse} = "<option>\n";
  • $form->{warehouse} = qq|$form->{warehouse}--$form->{warehouse_id}|;
  • for ( @{ $form->{all_warehouse} } ) {
  • $form->{selectwarehouse} .=
  • qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
  • }
  • $warehouse = qq|
  • <tr>
  • <th align=right>| . $locale->text('Warehouse') . qq|</th>
  • <td><select name=warehouse>$form->{selectwarehouse}</select></td>
  • <input type=hidden name=selectwarehouse value="|
  • . $form->escape( $form->{selectwarehouse}, 1 ) . qq|">
  • </tr>
  • |;
  • }
  • }
  • # setup vendor / customer selection
  • $form->all_vc( \%myconfig, $form->{vc},
  • ( $form->{vc} eq 'customer' ) ? "AR" : "AP" );
  • for ( @{ $form->{"all_$form->{vc}"} } ) {
  • $vc .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
  • }
  • $selectemployee = "";
  • if ( @{ $form->{all_employee} } ) {
  • $selectemployee = "<option>\n";
  • for ( @{ $form->{all_employee} } ) {
  • $selectemployee .=
  • qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
  • }
  • $selectemployee = qq|
  • <tr>
  • <th align=right>$employee</th>
  • <td colspan=3><select name=employee>$selectemployee</select></td>
  • </tr>
  • |;
  • }
  • else {
  • $l_employee = $l_manager = "";
  • }
  • $vclabel = ucfirst $form->{vc};
  • $vclabel = $locale->text($vclabel);
  • # $locale->text('Vendor')
  • # $locale->text('Customer')
  • $vc =
  • ($vc)
  • ? qq|<select name=$form->{vc}><option>\n$vc</select>|
  • : qq|<input name=$form->{vc} size=35>|;
  • # departments
  • if ( @{ $form->{all_department} } ) {
  • $form->{selectdepartment} = "<option>\n";
  • for ( @{ $form->{all_department} } ) {
  • $form->{selectdepartment} .=
  • qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
  • }
  • }
  • $department = qq|
  • <tr>
  • <th align=right nowrap>| . $locale->text('Department') . qq|</th>
  • <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
  • </tr>
  • | if $form->{selectdepartment};
  • if ( $form->{type} =~ /(consolidate.*|generate.*|ship|receive)_order/ ) {
  • $openclosed = qq|
  • <input type=hidden name="open" value=1>
  • |;
  • }
  • else {
  • $openclosed = qq|
  • <tr>
  • <td nowrap><input name="open" class=checkbox type=checkbox value=1 checked> |
  • . $locale->text('Open')
  • . qq|</td>
  • <td nowrap><input name="closed" class=checkbox type=checkbox value=1 $form->{closed}> |
  • . $locale->text('Closed')
  • . qq|</td>
  • </tr>
  • |;
  • }
  • if ( @{ $form->{all_years} } ) {
  • # accounting years
  • $form->{selectaccountingyear} = "<option>\n";
  • for ( @{ $form->{all_years} } ) {
  • $form->{selectaccountingyear} .= qq|<option>$_\n|;
  • }
  • $form->{selectaccountingmonth} = "<option>\n";
  • for ( sort keys %{ $form->{all_month} } ) {
  • $form->{selectaccountingmonth} .=
  • qq|<option value=$_>|
  • . $locale->text( $form->{all_month}{$_} ) . qq|\n|;
  • }
  • $selectfrom = qq|
  • <tr>
  • <th align=right>| . $locale->text('Period') . qq|</th>
  • <td colspan=3>
  • <select name=month>$form->{selectaccountingmonth}</select>
  • <select name=year>$form->{selectaccountingyear}</select>
  • <input name=interval class=radio type=radio value=0 checked>&nbsp;|
  • . $locale->text('Current') . qq|
  • <input name=interval class=radio type=radio value=1>&nbsp;|
  • . $locale->text('Month') . qq|
  • <input name=interval class=radio type=radio value=3>&nbsp;|
  • . $locale->text('Quarter') . qq|
  • <input name=interval class=radio type=radio value=12>&nbsp;|
  • . $locale->text('Year') . qq|
  • </td>
  • </tr>
  • |;
  • }
  • if ( $form->{type} =~ /_order/ ) {
  • $ponumber = qq|
  • <tr>
  • <th align=right>| . $locale->text('PO Number') . qq|</th>
  • <td colspan=3><input name="ponumber" size=20></td>
  • </tr>
  • |;
  • $l_ponumber =
  • qq|<input name="l_ponumber" class=checkbox type=checkbox value=Y> |
  • . $locale->text('PO Number');
  • }
  • @a = ();
  • push @a,
  • qq|<input name="l_runningnumber" class=checkbox type=checkbox value=Y> |
  • . $locale->text('No.');
  • push @a, qq|<input name="l_id" class=checkbox type=checkbox value=Y> |
  • . $locale->text('ID');
  • push @a,
  • qq|<input name="l_$ordnumber" class=checkbox type=checkbox value=Y checked> $ordlabel|;
  • push @a,
  • qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
  • . $locale->text('Date');
  • push @a, $l_ponumber if $l_ponumber;
  • push @a,
  • qq|<input name="l_reqdate" class=checkbox type=checkbox value=Y checked> $requiredby|;
  • push @a,
  • qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $vclabel|;
  • push @a, $l_employee if $l_employee;
  • push @a, $l_manager if $l_manager;
  • push @a, qq|<input name="l_shipvia" class=checkbox type=checkbox value=Y> |
  • . $locale->text('Ship via');
  • push @a,
  • qq|<input name="l_netamount" class=checkbox type=checkbox value=Y> |
  • . $locale->text('Amount');
  • push @a, qq|<input name="l_tax" class=checkbox type=checkbox value=Y> |
  • . $locale->text('Tax');
  • push @a,
  • qq|<input name="l_amount" class=checkbox type=checkbox value=Y checked> |
  • . $locale->text('Total');
  • push @a,
  • qq|<input name="l_curr" class=checkbox type=checkbox value=Y checked> |
  • . $locale->text('Currency');
  • $form->header;
  • print qq|
  • <body>
  • <form method=post action=$form->{script}>
  • <table width=100%>
  • <tr>
  • <th class=listtop>$form->{title}</th>
  • </tr>
  • <tr height="5"></tr>
  • <tr>
  • <td>
  • <table>
  • <tr>
  • <th align=right>$vclabel</th>
  • <td colspan=3>$vc</td>
  • </tr>
  • $warehouse
  • $department
  • $selectemployee
  • <tr>
  • <th align=right>$ordlabel</th>
  • <td colspan=3><input name="$ordnumber" size=20></td>
  • </tr>
  • $ponumber
  • <tr>
  • <th align=right>| . $locale->text('Ship via') . qq|</th>
  • <td colspan=3><input name="shipvia" size=40></td>
  • </tr>
  • <tr>
  • <th align=right>| . $locale->text('Description') . qq|</th>
  • <td colspan=3><input name="description" size=40></td>
  • </tr>
  • <tr>
  • <th align=right>| . $locale->text('From') . qq|</th>
  • <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
  • <th align=right>| . $locale->text('To') . qq|</th>
  • <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
  • </tr>
  • <input type=hidden name=sort value=transdate>
  • $selectfrom
  • <tr>
  • <th align=right>| . $locale->text('Include in Report') . qq|</th>
  • <td colspan=3>
  • <table>
  • $openclosed
  • |;
  • while (@a) {
  • for ( 1 .. 5 ) {
  • print qq|<td nowrap>| . shift @a;
  • print qq|</td>\n|;
  • }
  • print qq|</tr>\n|;
  • }
  • print qq|
  • <tr>
  • <td><input name="l_subtotal" class=checkbox type=checkbox value=Y> |
  • . $locale->text('Subtotal')
  • . qq|</td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • <tr><td colspan=4><hr size=3 noshade></td></tr>
  • </table>
  • <br>
  • <input type=hidden name=nextsub value=transactions>
  • |;
  • $form->hide_form(qw(path login sessionid vc type));
  • print qq|
  • <button class="submit" type="submit" name="action" value="continue">|
  • . $locale->text('Continue')
  • . qq|</button>
  • </form>
  • |;
  • if ( $form->{lynx} ) {
  • require "bin/menu.pl";
  • &menubar;
  • }
  • print qq|
  • </body>
  • </html>
  • |;
  • }
  • sub transactions {
  • # split vendor / customer
  • ( $form->{ $form->{vc} }, $form->{"$form->{vc}_id"} ) =
  • split( /--/, $form->{ $form->{vc} } );
  • OE->transactions( \%myconfig, \%$form );
  • $ordnumber = ( $form->{type} =~ /_order/ ) ? 'ordnumber' : 'quonumber';
  • $name = $form->escape( $form->{ $form->{vc} } );
  • $name .= qq|--$form->{"$form->{vc}_id"}| if $form->{"$form->{vc}_id"};
  • # construct href
  • $href = qq|$form->{script}?action=transactions|;
  • for (
  • "oldsort", "direction", "path", "type",
  • "vc", "login", "sessionid", "transdatefrom",
  • "transdateto", "open", "closed"
  • )
  • {
  • $href .= qq|&$_=$form->{$_}|;
  • }
  • for (
  • "$ordnumber", "department", "warehouse", "shipvia",
  • "ponumber", "description", "employee"
  • )
  • {
  • $href .= qq|&$_=| . $form->escape( $form->{$_} );
  • }
  • $href .= "&$form->{vc}=$name";
  • # construct callback
  • $name = $form->escape( $form->{ $form->{vc} }, 1 );
  • $name .= qq|--$form->{"$form->{vc}_id"}| if $form->{"$form->{vc}_id"};
  • # flip direction
  • $form->sort_order();
  • $callback = qq|$form->{script}?action=transactions|;
  • for (
  • "oldsort", "direction", "path", "type",
  • "vc", "login", "sessionid", "transdatefrom",
  • "transdateto", "open", "closed"
  • )
  • {
  • $callback .= qq|&$_=$form->{$_}|;
  • }
  • for (
  • "$ordnumber", "department", "warehouse", "shipvia",
  • "ponumber", "description", "employee"
  • )
  • {
  • $callback .= qq|&$_=| . $form->escape( $form->{$_}, 1 );
  • }
  • $callback .= "&$form->{vc}=$name";
  • @columns = $form->sort_columns(
  • "transdate", "reqdate", "id", "$ordnumber",
  • "ponumber", "name", "netamount", "tax",
  • "amount", "curr", "employee", "manager",
  • "shipvia", "open", "closed"
  • );
  • unshift @columns, "runningnumber";
  • $form->{l_open} = $form->{l_closed} = "Y"
  • if ( $form->{open} && $form->{closed} );
  • for (@columns) {
  • if ( $form->{"l_$_"} eq "Y" ) {
  • push @column_index, $_;
  • if ( $form->{l_curr} && $_ =~ /(amount|tax)/ ) {
  • push @column_index, "fx_$_";
  • }
  • # add column to href and callback
  • $callback .= "&l_$_=Y";
  • $href .= "&l_$_=Y";
  • }
  • }
  • if ( $form->{l_subtotal} eq 'Y' ) {
  • $callback .= "&l_subtotal=Y";
  • $href .= "&l_subtotal=Y";
  • }
  • $requiredby = $locale->text('Required by');
  • $i = 1;
  • if ( $form->{vc} eq 'vendor' ) {
  • if ( $form->{type} eq 'receive_order' ) {
  • $form->{title} = $locale->text('Receive Merchandise');
  • }
  • if ( $form->{type} eq 'purchase_order' ) {
  • $form->{title} = $locale->text('Purchase Orders');
  • if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) {
  • $button{'Order Entry--Purchase Order'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="purchase_order">|
  • . $locale->text('Purchase Order')
  • . qq|</button> |;
  • $button{'Order Entry--Purchase Order'}{order} = $i++;
  • }
  • }
  • if ( $form->{type} eq 'generate_sales_order' ) {
  • $form->{title} = $locale->text('Purchase Orders');
  • $form->{type} = "purchase_order";
  • unshift @column_index, "ndx";
  • if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) {
  • $button{'Order Entry--Sales Order'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="generate_sales_order">|
  • . $locale->text('Generate Sales Order')
  • . qq|</button> |;
  • $button{'Order Entry--Sales Order'}{order} = $i++;
  • }
  • }
  • if ( $form->{type} eq 'consolidate_purchase_order' ) {
  • $form->{title} = $locale->text('Purchase Orders');
  • $form->{type} = "purchase_order";
  • unshift @column_index, "ndx";
  • if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) {
  • $button{'Order Entry--Purchase Order'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="consolidate_orders">|
  • . $locale->text('Consolidate Orders')
  • . qq|</button> |;
  • $button{'Order Entry--Purchase Order'}{order} = $i++;
  • }
  • }
  • if ( $form->{type} eq 'request_quotation' ) {
  • $form->{title} = $locale->text('Request for Quotations');
  • $quotation = $locale->text('RFQ');
  • if ( $myconfig{acs} !~ /Quotations--Quotations/ ) {
  • $button{'Quotations--RFQ'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="add">|
  • . $locale->text('RFQ')
  • . qq|</button> |;
  • $button{'Quotations--RFQ'}{order} = $i++;
  • }
  • }
  • $name = $locale->text('Vendor');
  • $employee = $locale->text('Employee');
  • }
  • if ( $form->{vc} eq 'customer' ) {
  • if ( $form->{type} eq 'sales_order' ) {
  • $form->{title} = $locale->text('Sales Orders');
  • $employee = $locale->text('Salesperson');
  • if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) {
  • $button{'Order Entry--Sales Order'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="sales_order">|
  • . $locale->text('Sales Order')
  • . qq|</button> |;
  • $button{'Order Entry--Sales Order'}{order} = $i++;
  • }
  • }
  • if ( $form->{type} eq 'generate_purchase_order' ) {
  • $form->{title} = $locale->text('Sales Orders');
  • $form->{type} = "sales_order";
  • $employee = $locale->text('Salesperson');
  • unshift @column_index, "ndx";
  • if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) {
  • $button{'Order Entry--Purchase Order'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="generate_purchase_orders">|
  • . $locale->text('Generate Purchase Orders')
  • . qq|</button> |;
  • $button{'Order Entry--Purchase Order'}{order} = $i++;
  • }
  • }
  • if ( $form->{type} eq 'consolidate_sales_order' ) {
  • $form->{title} = $locale->text('Sales Orders');
  • $form->{type} = "sales_order";
  • unshift @column_index, "ndx";
  • if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) {
  • $button{'Order Entry--Sales Order'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="consolidate_orders">|
  • . $locale->text('Consolidate Orders')
  • . qq|</button> |;
  • $button{'Order Entry--Sales Order'}{order} = $i++;
  • }
  • }
  • if ( $form->{type} eq 'ship_order' ) {
  • $form->{title} = $locale->text('Ship Merchandise');
  • $employee = $locale->text('Salesperson');
  • }
  • if ( $form->{type} eq 'sales_quotation' ) {
  • $form->{title} = $locale->text('Quotations');
  • $employee = $locale->text('Employee');
  • $requiredby = $locale->text('Valid until');
  • $quotation = $locale->text('Quotation');
  • if ( $myconfig{acs} !~ /Quotations--Quotations/ ) {
  • $button{'Quotations--Quotation'}{code} =
  • qq|<button class="submit" type="submit" name="action" value="add">|
  • . $locale->text('Quotation')
  • . qq|</button> |;
  • $button{'Quotations--Quotation'}{order} = $i++;
  • }
  • }
  • $name = $locale->text('Customer');
  • }
  • for ( split /;/, $myconfig{acs} ) { delete $button{$_} }
  • $column_header{ndx} = qq|<th class=listheading>&nbsp;</th>|;
  • $column_header{runningnumber} = qq|<th class=listheading>&nbsp;</th>|;
  • $column_header{id} =
  • qq|<th><a class=listheading href=$href&sort=id>|
  • . $locale->text('ID')
  • . qq|</a></th>|;
  • $column_header{transdate} =
  • qq|<th><a class=listheading href=$href&sort=transdate>|
  • . $locale->text('Date')
  • . qq|</a></th>|;
  • $column_header{reqdate} =
  • qq|<th><a class=listheading href=$href&sort=reqdate>$requiredby</a></th>|;
  • $column_header{ordnumber} =
  • qq|<th><a class=listheading href=$href&sort=ordnumber>|
  • . $locale->text('Order')
  • . qq|</a></th>|;
  • $column_header{ponumber} =
  • qq|<th><a class=listheading href=$href&sort=ponumber>|
  • . $locale->text('PO Number')
  • . qq|</a></th>|;
  • $column_header{quonumber} =
  • qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|;
  • $column_header{name} =
  • qq|<th><a class=listheading href=$href&sort=name>$name</a></th>|;
  • $column_header{netamount} =
  • qq|<th class=listheading>| . $locale->text('Amount') . qq|</th>|;
  • $column_header{tax} =
  • qq|<th class=listheading>| . $locale->text('Tax') . qq|</th>|;
  • $column_header{amount} =
  • qq|<th class=listheading>| . $locale->text('Total') . qq|</th>|;
  • $column_header{curr} =
  • qq|<th><a class=listheading href=$href&sort=curr>|
  • . $locale->text('Curr')
  • . qq|</a></th>|;
  • $column_header{shipvia} =
  • qq|<th><a class=listheading href=$href&sort=shipvia>|
  • . $locale->text('Ship via')
  • . qq|</a></th>|;
  • $column_header{open} =
  • qq|<th class=listheading>| . $locale->text('O') . qq|</th>|;
  • $column_header{closed} =
  • qq|<th class=listheading>| . $locale->text('C') . qq|</th>|;
  • $column_header{employee} =
  • qq|<th><a class=listheading href=$href&sort=employee>$employee</a></th>|;
  • $column_header{manager} =
  • qq|<th><a class=listheading href=$href&sort=manager>|
  • . $locale->text('Manager')
  • . qq|</a></th>|;
  • for (qw(amount tax netamount)) {
  • $column_header{"fx_$_"} = "<th>&nbsp;</th>";
  • }
  • if ( $form->{ $form->{vc} } ) {
  • $option = $locale->text( ucfirst $form->{vc} );
  • $option .= " : $form->{$form->{vc}}";
  • }
  • if ( $form->{warehouse} ) {
  • ($warehouse) = split /--/, $form->{warehouse};
  • $option .= "\n<br>" if ($option);
  • $option .= $locale->text('Warehouse');
  • $option .= " : $warehouse";
  • }
  • if ( $form->{department} ) {
  • $option .= "\n<br>" if ($option);
  • ($department) = split /--/, $form->{department};
  • $option .= $locale->text('Department') . " : $department";
  • }
  • if ( $form->{employee} ) {
  • ($employee) = split /--/, $form->{employee};
  • $option .= "\n<br>" if ($option);
  • if ( $form->{vc} eq 'customer' ) {
  • $option .= $locale->text('Salesperson');
  • }
  • else {
  • $option .= $locale->text('Employee');
  • }
  • $option .= " : $employee";
  • }
  • if ( $form->{ordnumber} ) {
  • $option .= "\n<br>" if ($option);
  • $option .= $locale->text('Order Number') . " : $form->{ordnumber}";
  • }
  • if ( $form->{quonumber} ) {
  • $option .= "\n<br>" if ($option);
  • $option .= $locale->text('Quotation Number') . " : $form->{quonumber}";
  • }
  • if ( $form->{ponumber} ) {
  • $option = $locale->text('PO Number');
  • $option .= " : $form->{ponumber}";
  • }
  • if ( $form->{shipvia} ) {
  • $option .= "\n<br>" if ($option);
  • $option .= $locale->text('Ship via') . " : $form->{shipvia}";
  • }
  • if ( $form->{description} ) {
  • $option .= "\n<br>" if $option;
  • $option .= $locale->text('Description') . " : $form->{description}";
  • }
  • if ( $form->{transdatefrom} ) {
  • $option .= "\n<br>"
  • . $locale->text('From') . " "
  • . $locale->date( \%myconfig, $form->{transdatefrom}, 1 );
  • }
  • if ( $form->{transdateto} ) {
  • $option .= "\n<br>"
  • . $locale->text('To') . " "
  • . $locale->date( \%myconfig, $form->{transdateto}, 1 );
  • }
  • if ( $form->{open} ) {
  • $option .= "\n<br>" if ($option);
  • $option .= $locale->text('Open');
  • }
  • if ( $form->{closed} ) {
  • $option .= "\n<br>" if ($option);
  • $option .= $locale->text('Closed');
  • }
  • $form->header;
  • print qq|
  • <body>
  • <form method=post action=$form->{script}>
  • <table width=100%>
  • <tr>
  • <th class=listtop>$form->{title}</th>
  • </tr>
  • <tr height="5"></tr>
  • <tr>
  • <td>$option</td>
  • </tr>
  • <tr>
  • <td>
  • <table width=100%>
  • <tr class=listheading>|;
  • for (@column_index) { print "\n$column_header{$_}" }
  • print qq|
  • </tr>
  • |;
  • # add sort and escape callback
  • $callback .= "&sort=$form->{sort}";
  • $form->{callback} = $callback;
  • $callback = $form->escape($callback);
  • # flip direction
  • $direction = ( $form->{direction} eq 'ASC' ) ? "ASC" : "DESC";
  • $href =~ s/&direction=(\w+)&/&direction=$direction&/;
  • if ( @{ $form->{OE} } ) {
  • $sameitem = $form->{OE}->[0]->{ $form->{sort} };
  • }
  • $action = "edit";
  • $action = "ship_receive" if ( $form->{type} =~ /(ship|receive)_order/ );
  • $warehouse = $form->escape( $form->{warehouse} );
  • $i = 0;
  • foreach $oe ( @{ $form->{OE} } ) {
  • $i++;
  • if ( $form->{l_subtotal} eq 'Y' ) {
  • if ( $sameitem ne $oe->{ $form->{sort} } ) {
  • &subtotal;
  • $sameitem = $oe->{ $form->{sort} };
  • }
  • }
  • if ( $form->{l_curr} ) {
  • for (qw(netamount amount)) { $oe->{"fx_$_"} = $oe->{$_} }
  • $oe->{fx_tax} = $oe->{fx_amount} - $oe->{fx_netamount};
  • for (qw(netamount amount)) { $oe->{$_} *= $oe->{exchangerate} }
  • for (qw(netamount amount)) {
  • $column_data{"fx_$_"} = "<td align=right>"
  • . $form->format_amount( \%myconfig, $oe->{"fx_$_"}, 2,
  • "&nbsp;" )
  • . "</td>";
  • }
  • $column_data{fx_tax} = "<td align=right>"
  • . $form->format_amount( \%myconfig,
  • $oe->{fx_amount} - $oe->{fx_netamount},
  • 2, "&nbsp;" )
  • . "</td>";
  • $totalfxnetamount += $oe->{fx_netamount};
  • $totalfxamount += $oe->{fx_amount};
  • $subtotalfxnetamount += $oe->{fx_netamount};
  • $subtotalfxamount += $oe->{fx_amount};
  • }
  • for (qw(netamount amount)) {
  • $column_data{$_} =
  • "<td align=right>"
  • . $form->format_amount( \%myconfig, $oe->{$_}, 2, "&nbsp;" )
  • . "</td>";
  • }
  • $column_data{tax} = "<td align=right>"
  • . $form->format_amount( \%myconfig, $oe->{amount} - $oe->{netamount},
  • 2, "&nbsp;" )
  • . "</td>";
  • $totalnetamount += $oe->{netamount};
  • $totalamount += $oe->{amount};
  • $subtotalnetamount += $oe->{netamount};
  • $subtotalamount += $oe->{amount};
  • $column_data{id} = "<td>$oe->{id}</td>";
  • $column_data{transdate} = "<td>$oe->{transdate}&nbsp;</td>";
  • $column_data{reqdate} = "<td>$oe->{reqdate}&nbsp;</td>";
  • $column_data{runningnumber} = qq|<td align=right>$i</td>|;
  • $column_data{ndx} =
  • qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$oe->{id} checked></td>|;
  • $column_data{$ordnumber} =
  • "<td><a href=$form->{script}?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$oe->{$ordnumber}</a></td>";
  • $name = $form->escape( $oe->{name} );
  • $column_data{name} =
  • qq|<td><a href=ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&action=edit&id=$oe->{"$form->{vc}_id"}&db=$form->{vc}&callback=$callback>$oe->{name}</a></td>|;
  • for (qw(employee manager shipvia curr ponumber)) {
  • $column_data{$_} = "<td>$oe->{$_}&nbsp;</td>";
  • }
  • if ( $oe->{closed} ) {
  • $column_data{closed} = "<td align=center>*</td>";
  • $column_data{open} = "<td>&nbsp;</td>";
  • }
  • else {
  • $column_data{closed} = "<td>&nbsp;</td>";
  • $column_data{open} = "<td align=center>*</td>";
  • }
  • $j++;
  • $j %= 2;
  • print "
  • <tr class=listrow$j>";
  • for (@column_index) { print "\n$column_data{$_}" }
  • print qq|
  • </tr>
  • |;
  • }
  • if ( $form->{l_subtotal} eq 'Y' ) {
  • &subtotal;
  • }
  • # print totals
  • print qq|
  • <tr class=listtotal>|;
  • for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
  • $column_data{netamount} =
  • "<th class=listtotal align=right>"
  • . $form->format_amount( \%myconfig, $totalnetamount, 2, "&nbsp;" )
  • . "</th>";
  • $column_data{tax} = "<th class=listtotal align=right>"
  • . $form->format_amount( \%myconfig, $totalamount - $totalnetamount,
  • 2, "&nbsp;" )
  • . "</th>";
  • $column_data{amount} =
  • "<th class=listtotal align=right>"
  • . $form->format_amount( \%myconfig, $totalamount, 2, "&nbsp;" ) . "</th>";
  • if ( $form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal} ) {
  • $column_data{fx_netamount} =
  • "<th class=listtotal align=right>"
  • . $form->format_amount( \%myconfig, $totalfxnetamount, 2, "&nbsp;" )
  • . "</th>";
  • $column_data{fx_tax} = "<th class=listtotal align=right>"
  • . $form->format_amount( \%myconfig,
  • $totalfxamount - $totalfxnetamount,
  • 2, "&nbsp;" )
  • . "</th>";
  • $column_data{fx_amount} =
  • "<th class=listtotal align=right>"
  • . $form->format_amount( \%myconfig, $totalfxamount, 2, "&nbsp;" )
  • . "</th>";
  • }
  • for (@column_index) { print "\n$column_data{$_}" }
  • print qq|
  • </tr>
  • </td>
  • </table>
  • </tr>
  • <tr>
  • <td><hr size=3 noshade></td>
  • </tr>
  • </table>
  • <br>
  • |;
  • $form->hide_form(
  • qw(callback type vc path login sessionid department ordnumber ponumber shipvia)
  • );
  • print qq|
  • <input type=hidden name=rowcount value=$i>
  • <input type=hidden name=$form->{vc} value="$form->{$form->{vc}}">
  • <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
  • |;
  • if ( $form->{type} !~ /(ship|receive)_order/ ) {
  • for ( sort { $a->{order} <=> $b->{order} } %button ) {
  • print $_->{code};
  • }
  • }
  • if ( $form->{lynx} ) {
  • require "bin/menu.pl";
  • &menubar;
  • }
  • print qq|
  • </form>
  • </body>
  • </html>
  • |;
  • }
  • sub subtotal {
  • for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
  • $column_data{netamount} =
  • "<th class=listsubtotal align=right>"
  • . $form->format_amount( \%myconfig, $subtotalnetamount, 2, "&nbsp;" )
  • . "</th>";
  • $column_data{tax} = "<td class=listsubtotal align=right>"
  • . $form->format_amount( \%myconfig, $subtotalamount - $subtotalnetamount,
  • 2, "&nbsp;" )
  • . "</th>";
  • $column_data{amount} =
  • "<th class=listsubtotal align=right>"
  • . $form->format_amount( \%myconfig, $subtotalamount, 2, "&nbsp;" )
  • . "</th>";
  • if ( $form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal} ) {
  • $column_data{fx_netamount} =
  • "<th class=listsubtotal align=right>"
  • . $form->format_amount( \%myconfig, $subtotalfxnetamount, 2,
  • "&nbsp;" )
  • . "</th>";
  • $column_data{fx_tax} = "<td class=listsubtotal align=right>"
  • . $form->format_amount( \%myconfig,
  • $subtotalfxamount - $subtotalfxnetamount,
  • 2, "&nbsp;" )
  • . "</th>";
  • $column_data{fx_amount} =
  • "<th class=listsubtotal align=right>"
  • . $form->format_amount( \%myconfig, $subtotalfxamount, 2, "&nbsp;" )
  • . "</th>";
  • }
  • $subtotalnetamount = 0;
  • $subtotalamount = 0;
  • $subtotalfxnetamount = 0;
  • $subtotalfxamount = 0;
  • print "
  • <tr class=listsubtotal>
  • ";
  • for (@column_index) { print "\n$column_data{$_}" }
  • print qq|
  • </tr>
  • |;
  • }
  • sub save {
  • if ( $form->{type} =~ /_order$/ ) {
  • $msg = $locale->text('Order Date missing!');
  • }
  • else {
  • $msg = $locale->text('Quotation Date missing!');
  • }
  • $form->isblank( "transdate", $msg );
  • $msg = ucfirst $form->{vc};
  • $form->isblank( $form->{vc}, $locale->text( $msg . " missing!" ) );
  • # $locale->text('Customer missing!');
  • # $locale->text('Vendor missing!');
  • $form->isblank( "exchangerate", $locale->text('Exchange rate missing!') )
  • if ( $form->{currency} ne $form->{defaultcurrency} );
  • &validate_items;
  • # if the name changed get new values
  • if ( &check_name( $form->{vc} ) ) {
  • &update;
  • exit;
  • }
  • # this is for the internal notes section for the [email] Subject
  • if ( $form->{type} =~ /_order$/ ) {
  • if ( $form->{type} eq 'sales_order' ) {
  • $form->{label} = $locale->text('Sales Order');
  • $numberfld = "sonumber";
  • $ordnumber = "ordnumber";
  • }
  • else {
  • $form->{label} = $locale->text('Purchase Order');
  • $numberfld = "ponumber";
  • $ordnumber = "ordnumber";
  • }
  • $err = $locale->text('Cannot save order!');
  • }
  • else {
  • if ( $form->{type} eq 'sales_quotation' ) {
  • $form->{label} = $locale->text('Quotation');
  • $numberfld = "sqnumber";
  • $ordnumber = "quonumber";
  • }
  • else {
  • $form->{label} = $locale->text('Request for Quotation');
  • $numberfld = "rfqnumber";
  • $ordnumber = "quonumber";
  • }
  • $err = $locale->text('Cannot save quotation!');
  • }
  • if ( !$form->{repost} ) {
  • if ( $form->{id} ) {
  • &repost("Save");
  • exit;
  • }
  • }
  • if ( OE->save( \%myconfig, \%$form ) ) {
  • $form->redirect( $locale->text('Order saved!') );
  • }
  • else {
  • $form->error($err);
  • }
  • }
  • sub print_and_save {
  • $form->error( $locale->text('Select postscript or PDF!') )
  • if $form->{format} !~ /(postscript|pdf)/;
  • $form->error( $locale->text('Select a Printer!') )
  • if $form->{media} eq 'screen';
  • $old_form = new Form;
  • $form->{display_form} = "save";
  • for ( keys %$form ) { $old_form->{$_} = $form->{$_} }
  • $old_form->{rowcount}++;
  • &print_form($old_form);
  • }
  • sub delete {
  • $form->header;
  • if ( $form->{type} =~ /_order$/ ) {
  • $msg = $locale->text('Are you sure you want to delete Order Number');
  • $ordnumber = 'ordnumber';
  • }
  • else {
  • $msg =
  • $locale->text('Are you sure you want to delete Quotation Number');
  • $ordnumber = 'quonumber';
  • }
  • print qq|
  • <body>
  • <form method=post action=$form->{script}>
  • |;
  • $form->{action} = "yes";
  • $form->hide_form;
  • print qq|
  • <h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>
  • <h4>$msg $form->{$ordnumber}</h4>
  • <p>
  • <button name="action" class="submit" type="submit" value="yes">|
  • . $locale->text('Yes')
  • . qq|</button>
  • </form>
  • </body>
  • </html>
  • |;
  • }
  • sub yes {
  • if ( $form->{type} =~ /_order$/ ) {
  • $msg = $locale->text('Order deleted!');
  • $err = $locale->text('Cannot delete order!');
  • }
  • else {
  • $msg = $locale->text('Quotation deleted!');
  • $err = $locale->text('Cannot delete quotation!');
  • }
  • if ( OE->delete( \%myconfig, \%$form, ${LedgerSMB::Sysconfig::spool} ) ) {
  • $form->redirect($msg);
  • }
  • else {
  • $form->error($err);
  • }
  • }
  • sub vendor_invoice { &invoice }
  • sub sales_invoice { &invoice }
  • sub invoice {
  • if ( $form->{type} =~ /_order$/ ) {
  • $form->isblank( "ordnumber", $locale->text('Order Number missing!') );
  • $form->isblank( "transdate", $locale->text('Order Date missing!') );
  • }
  • else {
  • $form->isblank( "quonumber",
  • $locale->text('Quotation Number missing!') );
  • $form->isblank( "transdate", $locale->text('Quotation Date missing!') );
  • $form->{ordnumber} = "";
  • }
  • # if the name changed get new values
  • if ( &check_name( $form->{vc} ) ) {
  • &update;
  • exit;
  • }
  • if ( $form->{type} =~ /_order/
  • && $form->{currency} ne $form->{defaultcurrency} )
  • {
  • # check if we need a new exchangerate
  • $buysell = ( $form->{type} eq 'sales_order' ) ? "buy" : "sell";
  • $orddate = $form->current_date( \%myconfig );
  • $exchangerate =
  • $form->check_exchangerate( \%myconfig, $form->{currency}, $orddate,
  • $buysell );
  • if ( !$exchangerate ) {
  • &backorder_exchangerate( $orddate, $buysell );
  • exit;
  • }
  • }
  • # close orders/quotations
  • $form->{closed} = 1;
  • OE->save( \%myconfig, \%$form );
  • $form->{transdate} = $form->current_date( \%myconfig );
  • $form->{duedate} =
  • $form->current_date( \%myconfig, $form->{transdate}, $form->{terms} * 1 );
  • $form->{id} = '';
  • $form->{closed} = 0;
  • $form->{rowcount}--;
  • $form->{shipto} = 1;
  • if ( $form->{type} =~ /_order$/ ) {
  • $form->{exchangerate} = $exchangerate;
  • &create_backorder;
  • }
  • if ( $form->{type} eq 'purchase_order'
  • || $form->{type} eq 'request_quotation' )
  • {
  • $form->{title} = $locale->text('Add Vendor Invoice');
  • $form->{script} = 'ir.pl';
  • $script = "ir";
  • $buysell = 'sell';
  • }
  • if ( $form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation' )
  • {
  • $form->{title} = $locale->text('Add Sales Invoice');
  • $form->{script} = 'is.pl';
  • $script = "is";
  • $buysell = 'buy';
  • }
  • for (qw(id subject message printed emailed queued)) { delete $form->{$_} }
  • $form->{ $form->{vc} } =~ s/--.*//g;
  • $form->{type} = "invoice";
  • # locale messages
  • $locale = LedgerSMB::Locale->get_handle( $myconfig{countrycode} )
  • or $form->error("Locale not loaded: $!\n");
  • #$form->{charset} = $locale->encoding;
  • $form->{charset} = 'UTF-8';
  • $locale->encoding('UTF-8');
  • require "bin/$form->{script}";
  • # customized scripts
  • if ( -f "bin/custom/$form->{script}" ) {
  • eval { require "bin/custom/$form->{script}"; };
  • }
  • # customized scripts for login
  • if ( -f "bin/custom/$form->{login}_$form->{script}" ) {
  • eval { require "bin/custom/$form->{login}_$form->{script}"; };
  • }
  • for ( "$form->{vc}", "currency" ) { $form->{"select$_"} = "" }
  • for (
  • qw(currency oldcurrency employee department intnotes notes taxincluded))
  • {
  • $temp{$_} = $form->{$_};
  • }
  • &invoice_links;
  • $form->{creditremaining} -= ( $form->{oldinvtotal} - $form->{ordtotal} );
  • &prepare_invoice;
  • for ( keys %temp ) { $form->{$_} = $temp{$_} }
  • $form->{exchangerate} = "";
  • $form->{forex} = "";
  • $form->{exchangerate} = $exchangerate
  • if (
  • $form->{forex} = (
  • $exchangerate = $form->check_exchangerate(
  • \%myconfig, $form->{currency}, $form->{transdate}, $buysell
  • )
  • )
  • );
  • for $i ( 1 .. $form->{rowcount} ) {
  • $form->{"deliverydate_$i"} = $form->{"reqdate_$i"};
  • for (qw(qty sellprice discount)) {
  • $form->{"${_}_$i"} =
  • $form->format_amount( \%myconfig, $form->{"${_}_$i"} );
  • }
  • }
  • for (qw(id subject message printed emailed queued audittrail)) {
  • delete $form->{$_};
  • }
  • &display_form;
  • }
  • sub backorder_exchangerate {
  • my ( $orddate, $buysell ) = @_;
  • $form->header;
  • print qq|
  • <body>
  • <form method=post action=$form->{script}>
  • |;
  • # delete action variable
  • for (qw(action nextsub exchangerate)) { delete $form->{$_} }
  • $form->hide_form;
  • $form->{title} = $locale->text('Add Exchange Rate');
  • print qq|
  • <input type=hidden name=exchangeratedate value=$orddate>
  • <input type=hidden name=buysell value=$buysell>
  • <table width=100%>
  • <tr><th class=listtop>$form->{title}</th></tr>
  • <tr height="5"></tr>
  • <tr>
  • <td>
  • <table>
  • <tr>
  • <th align=right>| . $locale->text('Currency') . qq|</th>
  • <td>$form->{currency}</td>
  • </tr>
  • <tr>
  • <th align=right>| . $locale->text('Date') . qq|</th>
  • <td>$orddate</td>
  • </tr>
  • <tr>
  • <th align=right>| . $locale->text('Exchange Rate') . qq|</th>
  • <td><input name=exchangerate size=11></td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • </table>
  • <hr size=3 noshade>
  • <br>
  • <input type=hidden name=nextsub value=save_exchangerate>
  • <button name="action" class="submit" type="submit" value="continue">|
  • . $locale->text('Continue')
  • . qq|</button>
  • </form>
  • </body>
  • </html>
  • |;
  • }
  • sub save_exchangerate {
  • $form->isblank( "exchangerate", $locale->text('Exchange rate missing!') );
  • $form->{exchangerate} =
  • $form->parse_amount( \%myconfig, $form->{exchangerate} );
  • $form->save_exchangerate( \%myconfig, $form->{currency},
  • $form->{exchangeratedate},
  • $form->{exchangerate}, $form->{buysell} );
  • &invoice;
  • }
  • sub create_backorder {
  • $form->{shipped} = 1;
  • # figure out if we need to create a backorder
  • # items aren't saved if qty != 0
  • $dec1 = $dec2 = 0;
  • for $i ( 1 .. $form->{rowcount} ) {
  • ($dec) = ( $form->{"qty_$i"} =~ /\.(\d+)/ );
  • $dec = length $dec;
  • $dec1 = ( $dec > $dec1 ) ? $dec : $dec1;
  • ($dec) = ( $form->{"ship_$i"} =~ /\.(\d+)/ );
  • $dec = length $dec;
  • $dec2 = ( $dec > $dec2 ) ? $dec : $dec2;
  • $totalqty += $qty = $form->{"qty_$i"};
  • $totalship += $ship = $form->{"ship_$i"};
  • $form->{"qty_$i"} = $qty - $ship;
  • }
  • $totalqty = $form->round_amount( $totalqty, $dec1 );
  • $totalship = $form->round_amount( $totalship, $dec2 );
  • if ( $totalship == 0 ) {
  • for ( 1 .. $form->{rowcount} ) {
  • $form->{"ship_$_"} = $form->{"qty_$_"};
  • }
  • $form->{ordtotal} = 0;
  • $form->{shipped} = 0;
  • return;
  • }
  • if ( $totalqty == $totalship ) {
  • for ( 1 .. $form->{rowcount} ) {
  • $form->{"qty_$_"} = $form->{"ship_$_"};
  • }
  • $form->{ordtotal} = 0;
  • return;
  • }
  • @flds =
  • qw(partnumber description qty ship unit sellprice discount oldqty orderitems_id id bin weight listprice lastcost taxaccounts pricematrix sku onhand deliverydate reqdate projectnumber partsgroup assembly);
  • for $i ( 1 .. $form->{rowcount} ) {
  • for (qw(qty sellprice discount)) {
  • $form->{"${_}_$i"} =
  • $form->format_amount( \%myconfig, $form->{"${_}_$i"} );
  • }
  • $form->{"oldship_$i"} = $form->{"ship_$i"};
  • $form->{"ship_$i"} = 0;
  • }
  • # clear flags
  • for (qw(id subject message cc bcc printed emailed queued audittrail)) {
  • delete $form->{$_};
  • }
  • OE->save( \%myconfig, \%$form );
  • # rebuild rows for invoice
  • @a = ();
  • $count = 0;
  • for $i ( 1 .. $form->{rowcount} ) {
  • $form->{"qty_$i"} = $form->{"oldship_$i"};
  • $form->{"oldqty_$i"} = $form->{"qty_$i"};
  • $form->{"orderitems_id_$i"} = "";
  • if ( $form->{"qty_$i"} ) {
  • push @a, {};
  • $j = $#a;
  • for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
  • $count++;
  • }
  • }
  • $form->redo_rows( \@flds, \@a, $count, $form->{rowcount} );
  • $form->{rowcount} = $count;
  • }
  • sub save_as_new {
  • for (qw(closed id printed emailed queued)) { delete $form->{$_} }
  • &save;
  • }
  • sub print_and_save_as_new {
  • for (qw(closed id printed emailed queued)) { delete $form->{$_} }
  • &print_and_save;
  • }
  • sub ship_receive {
  • &order_links;
  • &prepare_order;
  • OE->get_warehouses( \%myconfig, \%$form );
  • # warehouse
  • if ( @{ $form->{all_warehouse} } ) {
  • $form->{selectwarehouse} = "<option>\n";
  • for ( @{ $form->{all_warehouse} } ) {
  • $form->{selectwarehouse} .=
  • qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
  • }
  • if ( $form->{warehouse} ) {
  • $form->{selectwarehouse} = qq|<option value="$form->{warehouse}">|;
  • $form->{warehouse} =~ s/--.*//;
  • $form->{selectwarehouse} .= $form->{warehouse};
  • }
  • }
  • $form->{shippingdate} = $form->current_date( \%myconfig );
  • $form->{"$form->{vc}"} =~ s/--.*//;
  • $form->{"old$form->{vc}"} =
  • qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;
  • @flds = ();
  • @a = ();
  • $count = 0;
  • foreach $key ( keys %$form ) {
  • if ( $key =~ /_1$/ ) {
  • $key =~ s/_1//;
  • push @flds, $key;
  • }
  • }
  • for $i ( 1 .. $form->{rowcount} ) {
  • # undo formatting from prepare_order
  • for (qw(qty ship)) {
  • $form->{"${_}_$i"} =
  • $form->parse_amount( \%myconfig, $form->{"${_}_$i"} );
  • }
  • $n = ( $form->{"qty_$i"} -= $form->{"ship_$i"} );
  • if ( abs($n) > 0 ) {
  • $form->{"ship_$i"} = "";
  • $form->{"serialnumber_$i"} = "";
  • push @a, {};
  • $j = $#a;
  • for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
  • $count++;
  • }
  • }
  • $form->redo_rows( \@flds, \@a, $count, $form->{rowcount} );
  • $form->{rowcount} = $count;
  • &display_ship_receive;
  • }
  • sub display_ship_receive {
  • $vclabel = ucfirst $form->{vc};
  • $vclabel = $locale->text($vclabel);
  • $form->{rowcount}++;
  • if ( $form->{vc} eq 'customer' ) {
  • $form->{title} = $locale->text('Ship Merchandise');
  • $shipped = $locale->text('Shipping Date');
  • }
  • else {
  • $form->{title} = $locale->text('Receive Merchandise');
  • $shipped = $locale->text('Date Received');
  • }
  • # set option selected
  • for (qw(warehouse employee)) {
  • $form->{"select$_"} = $form->unescape( $form->{"select$_"} );
  • $form->{"select$_"} =~ s/ selected//;
  • $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
  • }
  • $warehouse = qq|
  • <tr>
  • <th align=right>| . $locale->text('Warehouse') . qq|</th>
  • <td><select name=warehouse>$form->{selectwarehouse}</select></td>
  • <input type=hidden name=selectwarehouse value="|
  • . $form->escape( $form->{selectwarehouse}, 1 ) . qq|">
  • </tr>
  • | if $form->{selectwarehouse};
  • $employee = qq|
  • <tr>
  • <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
  • <td><select name=employee>$form->{selectemployee}</select></td>
  • <input type=hidden name=selectemployee value="|
  • . $form->escape( $form->{selectemployee}, 1 ) . qq|">
  • </tr>
  • |;
  • $form->header;
  • print qq|
  • <body>
  • <form method=post action=$form->{script}>
  • <input type=hidden name=display_form value=display_ship_receive>
  • |;
  • $form->hide_form(qw(id type media format printed emailed queued vc));
  • print qq|
  • <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
  • <table width=100%>
  • <tr class=listtop>
  • <th class=listtop>$form->{title}</th>
  • </tr>
  • <tr height="5"></tr>
  • <tr>
  • <td>
  • <table width="100%">
  • <tr valign=top>
  • <td>
  • <table width=100%>
  • <tr>
  • <th align=right>$vclabel</th>
  • <td colspan=3>$form->{$form->{vc}}</td>
  • <input type=hidden name=$form->{vc} value="$form->{$form->{vc}}">
  • <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
  • </tr>
  • $department
  • <tr>
  • <th align=right>| . $locale->text('Shipping Point') . qq|</th>
  • <td colspan=3>
  • <input name=shippingpoint size=35 value="$form->{shippingpoint}">
  • </tr>
  • <tr>
  • <th align=right>| . $locale->text('Ship via') . qq|</th>
  • <td colspan=3>
  • <input name=shipvia size=35 value="$form->{shipvia}">
  • </tr>
  • $warehouse
  • </table>
  • </td>
  • <td align=right>
  • <table>
  • $employee
  • <tr>
  • <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
  • <td>$form->{ordnumber}</td>
  • <input type=hidden name=ordnumber value="$form->{ordnumber}">
  • </tr>
  • <tr>
  • <th align=right nowrap>| . $locale->text('Order Date') . qq|</th>
  • <td>$form->{transdate}</td>
  • <input type=hidden name=transdate value=$form->{transdate}>
  • </tr>
  • <tr>
  • <th align=right nowrap>| . $locale->text('PO Number') . qq|</th>
  • <td>$form->{ponumber}</td>
  • <input type=hidden name=ponumber value="$form->{ponumber}">
  • </tr>
  • <tr>
  • <th align=right nowrap>$shipped</th>
  • <td><input name=shippingdate size=11 value=$form->{shippingdate}></td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • </table>
  • </td>
  • </tr>
  • |;
  • $form->hide_form(
  • qw(shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact shiptophone shiptofax shiptoemail message email subject cc bcc)
  • );
  • @column_index = qw(partnumber);
  • if ( $form->{type} eq "ship_order" ) {
  • $column_data{ship} =
  • qq|<th class=listheading>| . $locale->text('Ship') . qq|</th>|;
  • }
  • if ( $form->{type} eq "receive_order" ) {
  • $column_data{ship} =
  • qq|<th class=listheading>| . $locale->text('Recd') . qq|</th>|;
  • $column_data{sku} =
  • qq|<th class=listheading>| . $locale->text('SKU') . qq|</th>|;
  • push @column_index, "sku";
  • }
  • push @column_index, qw(description qty ship unit bin serialnumber);
  • my $colspan = $#column_index + 1;
  • $column_data{partnumber} =
  • qq|<th class=listheading nowrap>| . $locale->text('Number') . qq|</th>|;
  • $column_data{description} =
  • qq|<th class=listheading nowrap>|
  • . $locale->text('Description')
  • . qq|</th>|;
  • $column_data{qty} =
  • qq|<th class=listheading nowrap>| . $locale->text('Qty') . qq|</th>|;
  • $column_data{unit} =
  • qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
  • $column_data{bin} =
  • qq|<th class=listheading nowrap>| . $locale->text('Bin') . qq|</th>|;
  • $column_data{serialnumber} =
  • qq|<th class=listheading nowrap>|
  • . $locale->text('Serial No.')
  • . qq|</th>|;
  • print qq|
  • <tr>
  • <td>
  • <table width=100%>
  • <tr class=listheading>|;
  • for (@column_index) { print "\n$column_data{$_}" }
  • print qq|
  • </tr>
  • |;
  • for $i ( 1 .. $form->{rowcount} - 1 ) {
  • # undo formatting
  • $form->{"ship_$i"} =
  • $form->parse_amount( \%myconfig, $form->{"ship_$i"} );
  • for (qw(partnumber sku description unit bin serialnumber)) {
  • $form->{"${_}_$i"} = $form->quote( $form->{"${_}_$i"} );
  • }
  • $description = $form->{"description_$i"};
  • $description =~ s/\r?\n/<br>/g;
  • $column_data{partnumber} =
  • qq|<td>$form->{"partnumber_$i"}<input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
  • $column_data{sku} =
  • qq|<td>$form->{"sku_$i"}<input type=hidden name="sku_$i" value="$form->{"sku_$i"}"></td>|;
  • $column_data{description} =
  • qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;
  • $column_data{qty} =
  • qq|<td align=right>|
  • . $form->format_amount( \%myconfig, $form->{"qty_$i"} )
  • . qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|;
  • $column_data{ship} =
  • qq|<td align=right><input name="ship_$i" size=5 value=|
  • . $form->format_amount( \%myconfig, $form->{"ship_$i"} )
  • . qq|></td>|;
  • $column_data{unit} =
  • qq|<td>$form->{"unit_$i"}<input type=hidden name="unit_$i" value="$form->{"unit_$i"}"></td>|;
  • $column_data{bin} =
  • qq|<td>$form->{"bin_$i"}<input type=hidden name="bin_$i" value="$form->{"bin_$i"}"></td>|;
  • $column_data{serialnumber} =
  • qq|<td><input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}"></td>|;
  • print qq|
  • <tr valign=top>|;
  • for (@column_index) { print "\n$column_data{$_}" }
  • print qq|
  • </tr>
  • |;
  • $form->hide_form( "orderitems_id_$i", "id_$i", "partsgroup_$i" );
  • }
  • print qq|
  • </table>
  • </td>
  • </tr>
  • <tr>
  • <td><hr size=3 noshade></td>
  • </tr>
  • <tr>
  • <td>
  • |;
  • $form->{copies} = 1;
  • &print_options;
  • print qq|
  • </td>
  • </tr>
  • </table>
  • <br>
  • |;
  • # type=submit $locale->text('Done')
  • %button = (
  • 'update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
  • 'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
  • 'ship_to' =>
  • { ndx => 4, key => 'T', value => $locale->text('Ship to') },
  • 'e_mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') },
  • 'done' => { ndx => 11, key => 'D', value => $locale->text('Done') },
  • );
  • for ( "update", "print" ) { $form->print_button( \%button, $_ ) }
  • if ( $form->{type} eq 'ship_order' ) {
  • for ( 'ship_to', 'e_mail' ) { $form->print_button( \%button, $_ ) }
  • }