litlegerman
Level-2
- Beiträge
- 336
- Reaktionspunkte
- 13
-> Hier kostenlos registrieren
Ich versuche grade diesen FB von Siemens zu verarbeiten:
29430270_Config-Control-Modular_PROJ_V31_TIAV15_1
Das Original-Projekt hab ich in V16 hochgerüstet und hab damit auch die gewünschten Funktionen ausführen können ohne Probleme.
Jetzt hatte ich de Bausteine aus dem Projekt in mein Projekt eingefügt und bekomme nach dem Übersetzt diesen Fehler:

Aber bei dem alten Projekt hat es wunderbar funktioniert?
CPU: S7-1516F
Tia V16
Kann mir hier einer weiterhelfen?
Gruß
29430270_Config-Control-Modular_PROJ_V31_TIAV15_1
Das Original-Projekt hab ich in V16 hochgerüstet und hab damit auch die gewünschten Funktionen ausführen können ohne Probleme.
Jetzt hatte ich de Bausteine aus dem Projekt in mein Projekt eingefügt und bekomme nach dem Übersetzt diesen Fehler:

Aber bei dem alten Projekt hat es wunderbar funktioniert?
CPU: S7-1516F
Tia V16
Code:
//=============================================================================
// SIEMENS AG (c)Copyright 2018
//-----------------------------------------------------------------------------
// Library: LCC
// Tested with: CPU 1214C DC/DC/DC
// Engineering: TIA Portal V14 SP1
// Restrictions: For central peripherie call FB in startup OB
// Requirements: --
// Functionality: Writes data records for configuration control to device.
//-----------------------------------------------------------------------------
// Change log table:
// Version Date Expert in charge Changes applied
// 01.00.00 01.09.2014 Online Support First released version
// 02.00.00 17.08.2018 Online Support Renamed to "LCC_ConfigDevice"
// Adaption of programming styleguide
// Versioned as type
//=============================================================================
// Serialize data record
#tempRetVal := Serialize(SRC_VARIABLE := #dataRec, DEST_ARRAY => #tempDataRec, POS := #tempBufferPos);
IF #tempRetVal <> #STATUS_OK THEN // Error occured in serialize instruction
#tempDataRec[2] := 0; // Set to 0 so the case instruction throws error
END_IF;
// Indentify device type
CASE BYTE_TO_INT(#tempDataRec[2]) OF
2: // ET 200SP or ET 200AL
IF #tempDataRec[3] = 0 THEN // ET 200SP
;
ELSIF #tempDataRec[3] = 1 THEN // ET 200AL
;
END_IF;
4: // S7-1500
;
3: // ET 200MP
;
5: // S7-1200
;
ELSE
#statusID := #STATUS_ID_INTERNAL;
#status := #STATUS_WRONG_DATAREC;
RETURN;
END_CASE;
// Write record to device
#statReq := true;
REPEAT
#instWriteRecord(REQ := #statReq,
ID := #hwID,
INDEX := 196,
LEN := BYTE_TO_UINT(#tempDataRec[0]),
STATUS => #status,
RECORD := #dataRec);
#statReq := false;
UNTIL #instWriteRecord.DONE OR #instWriteRecord.ERROR
END_REPEAT;
// Output status information
IF #instWriteRecord.DONE THEN
#statusID := #STATUS_ID_INTERNAL;
#status := #STATUS_OK;
END_IF;
Kann mir hier einer weiterhelfen?
Gruß