Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/srvgudba_0685.htm]
You are here:

...

     BOOL fOK;
int  iSession;
int  iRet;
long lFlags;
BOOL fSQLNullEnab;
 
fOK = LceGetFieldAttributes(iSession, " SKILDESC ", &lFlags);
fSQLNullEnab = (lFlags & LCE_FLDATTR_SQLNULL);
 

...

     iRet = LceSetFieldValue(iSession,

...

 "SKILCODE",

...

 strCode);

...

     if (fSQLNullEnab &&

...

 (

...

 strcmp(strDesc,

...

 "")

...

 ==

...

 0 )

...

 )

...

        iRet = LceSetFieldValue(iSession,

...

 "SKILDESC",

...

 Null);
else

...

        iRet = LceSetFieldValue(iSession,

...

 "SKILDESC",

...

 strDesc);
    

...

     iRet = LceInsert(iSession,

...

 "SKILCODE,SKILDESC",

...

 "SKLTAB",

...

 False);