26. November 2009 12:29
26. November 2009 12:37
DeinRec.SETRANGE(FeldXY,DeinFilter);
DeinXmlPort.SETTABLEVIEW(DeinRec)
DeinXmlPort.EXPORT;
26. November 2009 12:48
26. November 2009 12:53
"<User Menu Level>".SETRANGE(ID,'User');
xmlport.SETTABLEVIEW("<User Menu Level>");
//xmlport.EXPORT;
10. Januar 2012 19:59
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<Root>
<UserMenuLevel ID="Mustermann" IDType="2" Level="20" Modified="2010-12-12T00:15:12.807Z">
<ObjectBLOB></ObjectBLOB>
</UserMenuLevel>
23. Januar 2012 16:41
OnPreXMLport()
IF UserMenuLevel1.FINDSET THEN
REPEAT
UserMenuLevelTemp.INIT;
IF UserMenuLevel1.Object.HASVALUE THEN
UserMenuLevel1.CALCFIELDS(Object);
UserMenuLevelTemp.TRANSFERFIELDS(UserMenuLevel1);
UserMenuLevelTemp.INSERT(TRUE);
UNTIL UserMenuLevel1.NEXT = 0;
OnPostXMLport()
IF UserMenuLevelTemp.FINDSET THEN
REPEAT
CLEAR(UserMenuLevel1);
UserMenuLevel1.RESET;
IF NOT UserMenuLevel1.GET(UserMenuLevelTemp.ID,UserMenuLevelTemp."ID Type",UserMenuLevelTemp.Level) THEN BEGIN
IF UserMenuLevelTemp.Object.HASVALUE THEN
UserMenuLevelTemp.CALCFIELDS(Object);
UserMenuLevel1.TRANSFERFIELDS(UserMenuLevelTemp);
UserMenuLevel1.INSERT(TRUE);
END;
UNTIL UserMenuLevelTemp.NEXT = 0;