Pokaż
Ignoruj:
Data:
2009-07-06 14:15:34 (17 years ago)
Autor:
marek
Opis:

poprawiono raporty, miejsce po przecinku przy obliczaniu rozmiaru dla Master Truck

Pliki:
1 zmodyfikowane

Legenda:

Bez zmian
Dodane
Usunięte
  • trunk/RaportySQL/ListaReklamNaWydanieNr.rdl

    r733 r738  
    1111    <ReportParameter Name="tytul"> 
    1212      <DataType>String</DataType> 
    13       <Nullable>true</Nullable> 
    1413      <DefaultValue> 
    1514        <Values> 
     
    5756    <ReportParameter Name="grzbiet"> 
    5857      <DataType>String</DataType> 
    59       <Nullable>true</Nullable> 
     58      <DefaultValue> 
     59        <DataSetReference> 
     60          <DataSetName>ListaGrzebietow</DataSetName> 
     61          <ValueField>ID</ValueField> 
     62        </DataSetReference> 
     63      </DefaultValue> 
    6064      <Prompt>Grzbiet:</Prompt> 
    6165      <ValidValues> 
     
    6670        </DataSetReference> 
    6771      </ValidValues> 
     72      <MultiValue>true</MultiValue> 
    6873    </ReportParameter> 
    6974    <ReportParameter Name="sortuj"> 
     
    182187        </Field> 
    183188        <Field Name="agencja"> 
    184           <DataField>agencja</DataField> 
     189          <DataField>Agencja</DataField> 
    185190          <rd:TypeName>System.String</rd:TypeName> 
    186191        </Field> 
     
    220225          <DataField>zafakturowana</DataField> 
    221226          <rd:TypeName>System.Boolean</rd:TypeName> 
     227        </Field> 
     228        <Field Name="Dzial"> 
     229          <DataField>Dzial</DataField> 
     230          <rd:TypeName>System.String</rd:TypeName> 
     231        </Field> 
     232        <Field Name="Rozdzial"> 
     233          <DataField>Rozdzial</DataField> 
     234          <rd:TypeName>System.String</rd:TypeName> 
    222235        </Field> 
    223236      </Fields> 
     
    337350FROM            GRZBIETY 
    338351WHERE Active=1 AND TytulId=@tytul 
    339 UNION 
    340 SELECT NULL ,'Wszystkie' 
    341352ORDER BY Nazwa</CommandText> 
    342353        <QueryParameters> 
     
    384395    </DataSet> 
    385396  </DataSets> 
    386   <Code /> 
    387   <Width>25cm</Width> 
     397  <Code>Public Function GetMultiSelectLabels(P as Parameter) as String 
     398  Dim i As Integer 
     399  Dim s As String 
     400  s = p.Label(0)                 
     401  For i = 1 to Ubound(P.Value) 
     402    s = s + ", " + p.Label(i) 
     403  Next i 
     404  Return s 
     405End Function</Code> 
     406  <Width>23.61254cm</Width> 
    388407  <Body> 
    389408    <ColumnSpacing>1cm</ColumnSpacing> 
    390409    <ReportItems> 
     410      <Textbox Name="textbox5"> 
     411        <Top>1.05cm</Top> 
     412        <Width>2.55cm</Width> 
     413        <Style> 
     414          <FontSize>12pt</FontSize> 
     415          <FontWeight>700</FontWeight> 
     416          <Format>d</Format> 
     417          <TextAlign>Left</TextAlign> 
     418          <PaddingLeft>2pt</PaddingLeft> 
     419          <PaddingRight>2pt</PaddingRight> 
     420          <PaddingTop>2pt</PaddingTop> 
     421          <PaddingBottom>2pt</PaddingBottom> 
     422          <Language>pl-PL</Language> 
     423        </Style> 
     424        <ZIndex>4</ZIndex> 
     425        <CanGrow>true</CanGrow> 
     426        <Height>0.75cm</Height> 
     427        <Value>Grzbiet(y):</Value> 
     428      </Textbox> 
     429      <Textbox Name="textbox14"> 
     430        <Top>1.05cm</Top> 
     431        <Width>16.35cm</Width> 
     432        <Style> 
     433          <FontSize>12pt</FontSize> 
     434          <Format>d</Format> 
     435          <TextAlign>Left</TextAlign> 
     436          <PaddingLeft>2pt</PaddingLeft> 
     437          <PaddingRight>2pt</PaddingRight> 
     438          <PaddingTop>2pt</PaddingTop> 
     439          <PaddingBottom>2pt</PaddingBottom> 
     440          <Language>pl-PL</Language> 
     441        </Style> 
     442        <ZIndex>3</ZIndex> 
     443        <CanGrow>true</CanGrow> 
     444        <Left>2.55cm</Left> 
     445        <Height>0.75cm</Height> 
     446        <Value>=Code.GetMultiSelectLabels(Parameters!grzbiet)</Value> 
     447      </Textbox> 
    391448      <Textbox Name="textbox6"> 
    392449        <Top>0.25cm</Top> 
     
    403460          <Language>pl-PL</Language> 
    404461        </Style> 
    405         <ZIndex>3</ZIndex> 
     462        <ZIndex>2</ZIndex> 
    406463        <CanGrow>true</CanGrow> 
    407         <Left>16.2cm</Left> 
     464        <Left>15.9cm</Left> 
    408465        <Height>0.75cm</Height> 
    409466        <Value>=Today</Value> 
    410       </Textbox> 
    411       <Textbox Name="textbox5"> 
    412         <Top>0.25cm</Top> 
    413         <Width>4.5cm</Width> 
    414         <Style> 
    415           <FontSize>12pt</FontSize> 
    416           <FontWeight>700</FontWeight> 
    417           <Format>d</Format> 
    418           <TextAlign>Left</TextAlign> 
    419           <PaddingLeft>2pt</PaddingLeft> 
    420           <PaddingRight>2pt</PaddingRight> 
    421           <PaddingTop>2pt</PaddingTop> 
    422           <PaddingBottom>2pt</PaddingBottom> 
    423           <Language>pl-PL</Language> 
    424         </Style> 
    425         <ZIndex>2</ZIndex> 
    426         <CanGrow>true</CanGrow> 
    427         <Left>11.5cm</Left> 
    428         <Height>0.75cm</Height> 
    429         <Value>="Grzbiet: " &amp; Parameters!grzbiet.Label</Value> 
    430467      </Textbox> 
    431468      <Textbox Name="textbox17"> 
     
    450487      <Table Name="table1"> 
    451488        <DataSetName>ListaReklam</DataSetName> 
    452         <Top>1.25cm</Top> 
    453         <Width>23.61255cm</Width> 
     489        <Top>1.95cm</Top> 
    454490        <Details> 
    455491          <TableRows> 
     
    15791615      </Table> 
    15801616    </ReportItems> 
    1581     <Height>2.88492cm</Height> 
     1617    <Height>3.58492cm</Height> 
    15821618  </Body> 
    15831619  <Language>pl-PL</Language>