project QadFinancials > class BDDocument > method IsNewSelectionCodeValid
Description
Method which takes the selection code and checks to see if it a valid one. Checks that it has a value and is unique
Parameters
| icSelectionCode | input | character | Selection Code |
| icDocumentStatus | input | character | Status code of selection |
| icFileFormat | input | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bddocument.p)
/* icSelectionCode */
if icSelectionCode = "":U or
icSelectionCode = ?
then do:
<M-30 run SetMessage
(input trim(#T-41'You must enter the customer payment selection code.':250(57366)T-41#) (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-255329':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDDocument>
assign oiReturnStatus = -1.
end.
else do:
<Q-94 assign vlFcQueryRecordsAvailable = DPaySelPrim (NoCache)
(input viCompanyId, (CompanyId)
input ?, (DPaySelId)
input icSelectionCode, (DPaySelCode)) in BDPaymentSelection>
if vlFcQueryRecordsAvailable <> false
then do:
assign vcMessage = trim(substitute(#T-35'A customer payment selection for code &1 already exists.':250(57365)T-35#, icSelectionCode))
oiReturnStatus = -1.
<M-71 run SetMessage
(input vcMessage (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-48981':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDDocument>
end.
else do:
<Q-69 assign vlFcQueryRecordsAvailable = DDocumentByIncSelCode (NoCache)
(input viCompanyId, (CompanyId)
input icSelectionCode, (DDocumentIncassoSelectCode)) in BDDocument>
if vlFcQueryRecordsAvailable <> false
then do:
assign vcMessage = trim(substitute(#T-48'A customer payment selection for code &1 already exists.':250(57365)T-48#, icSelectionCode))
oiReturnStatus = -1.
<M-3 run SetMessage
(input vcMessage (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-562419':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDDocument>
assign oiReturnStatus = -1.
end.
/* not sure if this applies */
/*
else
if can-find(first bIncSel where
bIncSel.tcIncSelCode = icSelectionCode and
rowid(bIncSel) <> rowid(tIncSel))
then do:
<M-50 run SetMessage
(input trim(#T-28'A customer payment selection for code &1 already exists.':250(57365)T-28#) (icMessage),
input icSelectionCode (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-914368':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDDocument>
assign oiReturnStatus = -1.
end. */
end.
end.
/* FileFormat */
if icFileFormat = "":U or
icFileFormat = ?
then do:
<M-97 run SetMessage
(input trim(#T-57'You must enter the file format.':250(1646)T-57#) (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-220765':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDDocument>
assign oiReturnStatus = -1.
end.