Hi,
We had a little problem. We solved it, but I don’t understand where was the problem.
This is the code that is ok:
Mn.RESET; (Mn = 2000000006)
Mn.SETFILTER(Name, ‘company1’);
IF Mn.FIND(’-’) THEN BEGIN
Mbme.RESET;
Mbme.CHANGECOMPANY(Mn.Name);
Mbme.SETFILTER(“MWSt Produktbuchungsgruppe”, ‘HW1-19|SONST1-19’);
Mn1.RESET;
Mn1.SETFILTER(Name, ‘company2’);
IF Mbme.FIND(’-’) THEN REPEAT
IF Mn1.FIND(’-’) THEN BEGIN
Mbme1.CHANGECOMPANY(Mn1.Name);
Mbme1.TRANSFERFIELDS(Mbme); ß----------------------------------------
IF Mbme1.MODIFY THEN ;
END;
UNTIL Mbme.NEXT = 0;
END;
And this is the code that doesn’t work right:
Mn.RESET; (Mn = 2000000006)
Mn.SETFILTER(Name, ‘company1’);
IF Mn.FIND(’-’) THEN BEGIN
Mbme.RESET;
Mbme.CHANGECOMPANY(Mn.Name);
Mbme.SETFILTER(“MWSt Produktbuchungsgruppe”, ‘HW1-19|SONST1-19’);
Mn1.RESET;
Mn1.SETFILTER(Name, ‘company2’);
IF Mbme.FIND(’-’) THEN REPEAT
IF Mn1.FIND(’-’) THEN BEGIN
Mbme1.CHANGECOMPANY(Mn1.Name);
Mbme1 := Mbme; ß--------------------------------------------------------------------
IF Mbme1.MODIFY THEN ;
END;
UNTIL Mbme.NEXT = 0;
END;
What can be the reason? What is exactly the difference?
Volker