25. Januar 2012 13:28
25. Januar 2012 14:43
25. Januar 2012 15:52
25. Januar 2012 17:08
25. Januar 2012 17:29
25. Januar 2012 18:42
25. Januar 2012 20:29
elTorito hat geschrieben:Ich lass den Thread aber mal als nicht gelöst stehen, vielleicht wühlt ja grad noch jemand in der Trickkiste :)
26. Januar 2012 11:20
IF CONFIRM('Möchten Sie eine Vorlage benutzen?',TRUE) THEN BEGIN
RecRef.GETTABLE(locRecCust);
locDataTemplateHeader.SETRANGE(TableID,18);
IF FORM.RUNMODAL(FORM::"Data Template List",locDataTemplateHeader) = ACTION::LookupOK THEN BEGIN
locDataTemplateLine.SETRANGE("Data Template Code",locDataTemplateHeader.Code);
IF locDataTemplateLine.FINDFIRST THEN BEGIN
REPEAT
IF locDataTemplateLine.Type = locDataTemplateLine.Type::Field THEN BEGIN
IF locDataTemplateLine.FieldID <> 0 THEN BEGIN
FieldRef := RecRef.FIELD(locDataTemplateLine.FieldID);
FieldRef.Value := locDataTemplateLine."Default Value";
//Message('Feld: ' + FORMAT(FieldRef.Name) + ' - Value: ' + FORMAT(FieldRef.Value));
//Address := locDataTemplateLine."Default Value";
END;
END;
UNTIL locDataTemplateLine.NEXT = 0;
END;
END;
END;
FieldRef.Value := locDataTemplateLine."Default Value";
26. Januar 2012 11:26
FieldRef.Value := locDataTemplateLine."Default Value";
26. Januar 2012 18:41
IF FORM.RUNMODAL(FORM::"Data Template List",locDataTemplateHeader,locDataTemplateHeader.Code) = ACTION::LookupOK THEN BEGIN
RecRef.OPEN(18);
TemplateMgt.UpdateRecord(locDataTemplateHeader,RecRef);
DebCode := ConfirmNewInstance(RecRef);
IF locCustomer.GET(DebCode) THEN BEGIn
IF CONFIRM ('Der Debitor wurde angelegt und kann jetzt bearbeitet werden', TRUE) THEN BEGIN
SETFILTER("No.", locCustomer."No.");
END;
END;
END;
28. Januar 2012 02:16