Originale durchsuchen
Dokumenttexte
Vorlage als Text anzeigen
Ö Vorlagen - Nr. 178 206/2003
Seite 1 von 2
CODES(NEXTRECORD )IF(VARIABLE( Ratalleine)="nein")IF(VARIABLE(uebermittig)=n
ein)VARIABLE(AnfPartei)
ENDIF ENDIF
IF(VARIABLE(uebermittig)=nein)VARIABLE(Anschrift) VARIABLE( Datum)
IF(VARIABLE(uebermittig)=ja) VARIABLE(was)
Betrifft:ELSE VARIABLE(was)ENDIF
FIELD(VLGTOP)
IF(VARIABLE(Beschlentwurf)=ja)IF(VARIABLE(was)=Beschlussvorlage)
Beschlussdarstellung: ENDIF
DOCUMENT(FIELD(VLGBeschlText))
ENDIF IFNOTBLANK(VLGSachText)
IF(VARIABLE(was)=Beschlussvorlage or VARIABLE(was)=Antrag)Sachdarstellung:
ENDIF DOCUMENT(FIELD( VLGSachText))ENDIF
CODES(ONERROR(GO( BFEnde)))SUBSTDATA(C:\PVRRSD\Daten.dat)NEXTRECORD IFBLANK( VBFA
usschussLangbez)GO(BFEnde)ELSE
Beratungsfolge:
Gremium Sitzungsdatum Ergebnis
CODES(LABEL(BFAnfang))IFBLANK(VBFAusschuss
Langbez) EMBEDMACRO( TableDeleteRow()) GO(
BFEnde) ELSE FIELD(VBFAusschussLangbez)
IFBLANK(VBF
Sitzungsdatum
) -/-
1
ELSE
FIELD(VBFSitz
ungsdatum)
IFBLANK(VBFTOPMehrheitL
ang) -/-
2
ELSE FIELD(
VBFTOPMehrheitLang)
ENDIF REPEATROW
ENDIF ELSE
NEXTRECORD GO( BFAnfa
ng)ENDIF
CODES(LABEL(BFEnde)EMBEDMACRO(If (?TableInTable=1) PosTableEnd() PosLineDown() EndIf Quit))
1)
Die Sitzung wurde zum Zeitpunkt der Drucklegung dieser Vorlage noch nicht geplant.
2) Das Beratungsergebnis wurde zum Zeitpunkt der Drucklegung dieser Vorlage noch nicht erfasst.CODES(ONERROR(GO( Weiter1))SUBSTDATA(
C:\PVRRSD\Daten.dat)NEXTRECORD IFBLANK( VLGAnlagenNr)GO(Keine_Anlagen1)ENDIF IFNOTBLANK(VLGAnlagenNr))
Anlagen:
Nr. Ort Anlage
LABEL(One)
IFBLANK(VL
GAnlagenNr)
GO(Weiter1)
ELSE
FIELD(VLGA
nlagenNr)
IFBLANK(VANOrt) IFNOTBLANK(
VLGAnlagenNr) beigefügt ENDIF
ELSE FIELD(VANOrt) ENDIF
FIELD(VLGAnlagenKurztext)REPEATROW
ENDIF ELSE NEXTRECORD GO( One)ENDIF
SUBSTDATA(C:\PVRRSD\Daten.dat)NEXTRECORD CODES(LABEL( Weiter1)ONERROR(GO(Keine_An
lagen2))EMBEDMACRO(If (?TableInTable=1) PosTableEnd() PosLineDown() EndIf Quit))ENDIF ENDIF
IF(VARIABLE(uebermittig)=ja) IFBLANK(VLGAnlagenNr)EMBEDMACRO(
PosDocTop()PosTableCell(Cell:"TAB_ANLAGEN.A1")PosTableEnd()PosTableRowBegi
n()TableDeleteRow(Number:1)PosDocBottom())ENDIF CODES(LABEL(Keine_Anlagen
1))SUBSTDATA(C:\PVRRSD\Daten.dat)NEXTRECORD IF(FIELD(VLGArt)=Verwaltung
svorlage)GO(Verwaltungsvorlage)ENDIF GO(LPolitik)
CODES(LABEL(Verwaltungsvorlage))IF(VARIABLE(was)=Beschlussvorlage)
RSD AllVorlg.WPT RSD AllVorlg.WPT
Ö Vorlagen - Nr. 178 206/2003
Seite 2 von 2
Alternative:
KeineENDIF IF(FIELD(VLGAmtsbezeichnung)="Rechnungsprüfungsamt" and VARIABLE(
Vornummer14)=14)
Berichterstatter/in:
FIELD(VLGBerichtAnrede) FIELD(VLGBerichtName)
Amt:
FIELD(VLGAmtsbezeichnung)
IF(FIELD(VLGAmtsbezeichnung )="Rechnungsprüfungsamt" and VARIABLE(
Vornummer14)=14)Amtsleiter:ELSE Dezernentin / Dezernent:ENDIF
FIELD(VLGInitiator)ENDIF
CODES(LABEL(LPolitik))
COMMENT(Hier folgt jetzt eine Routine zum Anzeigen der Anlagen - Mertin 12.09.01)
CODES(ONERROR(GO( Weiter2))
SUBSTDATA(C:\PVRRSD\Daten.dat)NEXTRECORD
CODES(LABEL(two))
COMMENT(Hier folgt die Routine ob die Anlage nach altem oder neuem Muster eingefügt
wurde - A.Stahl 18.09.2001)
IFNOTBLANK(VANOrt)VANOrt NEXTRECORD GO( two)ENDIF
IFBLANK(VLGAnlagenNr)GO(Keine_Anlagen2)ENDIF
EMBEDMACRO(HardPageBreak())DOCUMENT(FIELD(VLGAnlage)) NEXTRECORD GO(
two))
CODES(LABEL(Keine_Anlagen2))
CODES(LABEL(Weiter2))
COMMENT(Hier darf kein "QUIT" stehen, !)
** ## ;;FIELD(VLGNr)STOP