Bonjour Matthieu,
I need on the table NC header to create a notification everytime the user generate a new non conformal product.
here is my piece of code that works like a charm into a codeunit
LenChar := STRLEN(_Note);
_RecRef.GETTABLE(pNCHeader);
NewID := _RecRef.ADDLINK(GETURL(CLIENTTYPE::Current, COMPANYNAME, OBJECTTYPE::Page, PAGE::"NC Header", pNCHeader));
RecordLink.GET(NewID);
RecordLink.CALCFIELDS(Note);
RecordLink.Note.CREATEOUTSTREAM(OStream);
SystemUTF8Encoder := SystemUTF8Encoder.UTF8Encoding;
SystemByteArray := SystemUTF8Encoder.GetBytes(_Note);
x := SystemByteArray.Length DIV 128;
IF x > 1 THEN
y := SystemByteArray.Length - 128 * (x - 1)
ELSE
y := SystemByteArray.Length;
c1 := y;
OStream.WRITE(c1);
IF x > 0 THEN BEGIN
c2 := x;
OStream.WRITE(c2);
END;
FOR i := 0 TO SystemByteArray.Length - 1 DO BEGIN
c1 := SystemByteArray.GetValue(i);
OStream.WRITE(c1);
END;
RecordLink.Type := RecordLink.Type::Note;
RecordLink.Notify := _Notify;
RecordLink."To User ID" := USERID;
RecordLink.Created := CURRENTDATETIME;
RecordLink.Company:=COMPANYNAME;
RecordLink.MODIFY;
the parameters are
Var Name DataType Subtype Length
No pNCHeader Record NC Header
No _Descritption Text 250
No _Note Text 127
No _Notify Boolean
No _USERID Code 20
the local variables are
Name DataType Subtype Length
LenChar Integer
NewID Integer
RecordLink Record Record Link
OStream OutStream
_RecRef RecordRef
SystemUTF8Encoder DotNet System.Text.UTF8Encoding.'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
SystemByteArray DotNet System.Array.'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
c1 Char
c2 Char
x Integer
y Integer
i Integer
The hard part for me was to add text into the Note field because it is a blob field so I need to use the dot net library of the 4.5 framework and to stream the text.
J'espéré que ce code t'aidera autrement donne moi to enveloppe electronique et moi j'irai t'envoier une fob donc to pourra essaier le code.
Piero
