21. Oktober 2009 11:56
21. Oktober 2009 12:00
21. Oktober 2009 12:16
21. Oktober 2009 13:48
kockiren hat geschrieben:...Ich brauch quasi nur noch eine Stelle wo ich meinen C/AL Code reinschmeißen kann und er durch ne Schleife für jeden Record meiner Tabellen durchlaufen wird.
21. Oktober 2009 21:01
22. Oktober 2009 08:22
22. Oktober 2009 09:11
22. Oktober 2009 09:33
22. Oktober 2009 09:43
22. Oktober 2009 12:05
kockiren hat geschrieben:... mir ist nicht ganz klar wie ich diesen NAS dazu verwenden kann die Daten aus meiner API in die Tabelle zu schieben und von da aus in meine entsprechenden Customer, Vendor ... usw Tabellen zu schieben.
Kann man den den NAS dazu verwenden bestimmte Programmabläufe in NAvision zu starten, also setzt NAS quasi an der stelle an an der das C/FRONT endet?
22. Oktober 2009 12:46
CUSTOMER.INIT;
CUSTOMER.VALIDATE("No:",PUFFERTABELLE."No.");
...
CUSTOMER.INSERT;
22. Oktober 2009 13:09
// Trigger - OnTimer
CustomerImport;
// Funktion - CustomerImport
CustTmpRec.SETRANGE(CustTmpRec.Verarbeitet,FALSE); // Nur wenn die DS als Verarbeitet markiert werden!
IF NOT CustTmpRec.ISEMPTY THEN BEGIN // Also nur ausführen, wann auch Datensätze da sind!
IF CustTmpRec.FINDSET(TRUE); THEN BEGIN // Zugfriff auf die Tmp-Daten
REPEAT // Start der Schleife
IF NOT Customer.GET(CustTmpRec."No.") THEN BEGIN // Nur ausführen, wenn es die Nr. noch nicht gibt
CUSTOMER.INIT;
CUSTOMER.VALIDATE("No:",CustTmpRec."No.");
// ...
// Die Buchungsgruppen, Zahlungsbedinung, usw. nicht vergessen
IF CUSTOMER.INSERT THEN BEGIN
CustTmpRec.Verarbeitet := TRUE; // Nur wenn die DS als Verarbeitet markiert werden!
CustTmpRec.MODIFY;
END;
END;
UNTIL CustTmpRec.NEXT = 0; // Ende der Schleife (0 = kein DS gefunden)
END;
END;
// Dieses nur wenn statt Kennzeichnung der DS diese gelöscht werden sollen
// CustTmpRec.DELETEALL;
22. Oktober 2009 13:35
23. Oktober 2009 02:01
IF NOT tmpRec.ISEMPTY THEN BEGIN
IF tmpRec.FINDSET(TRUE) THEN BEGIN
REPEAT
IF NOT SalesHeader.GET(tmpRec.InvoiceId) THEN BEGIN
IF Customer.GET(tmpRec.CustomerId) THEN BEGIN
SalesHeader.INIT;
SalesHeader."Document Type" := SalesHeader."Document Type"::Invoice;
SalesHeader.VALIDATE("No.", tmpRec.InvoiceId);
SalesHeader.VALIDATE("Order Date", TODAY);
SalesHeader.VALIDATE("Posting Date", TODAY);
SalesHeader.VALIDATE("Sell-to Customer No.", tmpRec.CustomerId);
SalesHeader.INSERT;
IF Customer.INSERT THEN BEGIN
tmpRec.Verarbeitet := TRUE;
tmpRec.MODIFY;
END;
END;
END;
UNTIL tmpRec.NEXT = 0;
END;
END;
23. Oktober 2009 02:10
23. Oktober 2009 08:21
23. Oktober 2009 08:35
fiddi hat geschrieben:..Als die Lösung mit der Form halte ich immer noch für eine ganz schlechte .
27. Oktober 2009 15:03