[Error] U_CTe.pas(328): Incompatible types: 'TpcteTipoDataPe

[etapa]

Pessoal.....

por gentileza.....na linha de código dá o seguinte erro

compl.Entrega.TipoData := 0;

case compl.Entrega.TipoData of

0: compl.Entrega.semData.tpPer := 0;

1,2,3: begin

compl.Entrega.comData.tpPer := compl.Entrega.TipoData;

compl.Entrega.comData.dProg := Date;

end;

4: begin

compl.Entrega.noPeriodo.tpPer := 4;

compl.Entrega.noPeriodo.dIni := Date;

compl.Entrega.noPeriodo.dFim := Date;

end;

end;

me dá o seguinte erro:

[Warning] U_CTe.pas(8): Unit 'FileCtrl' is specific to a platform

[Error] U_CTe.pas(328): Incompatible types: 'TpcteTipoDataPeriodo' and 'Integer'

[Error] U_CTe.pas(330): Incompatible types: 'TpcteTipoDataPeriodo' and 'Integer'

[Error] U_CTe.pas(330): Incompatible types: 'TpcteTipoDataPeriodo' and 'Integer'

[Error] U_CTe.pas(331): Incompatible types: 'TpcteTipoDataPeriodo' and 'Integer'

[Error] U_CTe.pas(335): Incompatible types: 'TpcteTipoDataPeriodo' and 'Integer'

[Error] U_CTe.pas(336): Incompatible types: 'TpcteTipoDataPeriodo' and 'Integer'

[Error] U_CTe.pas(342): Incompatible types: 'TpcteTipoHorarioIntervalo' and 'Integer'

[Error] U_CTe.pas(344): Incompatible types: 'TpcteTipoHorarioIntervalo' and 'Integer'

[Error] U_CTe.pas(344): Incompatible types: 'TpcteTipoHorarioIntervalo' and 'Integer'

[Error] U_CTe.pas(345): Incompatible types: 'TpcteTipoHorarioIntervalo' and 'Integer'

[Error] U_CTe.pas(349): Incompatible types: 'TpcteTipoHorarioIntervalo' and 'Integer'

[Error] U_CTe.pas(350): Incompatible types: 'TpcteTipoHorarioIntervalo' and 'Integer'

[Fatal Error] transgenesis.dpr(27): Could not compile used unit 'U_CTe.pas'