Incompatibilidade na função StrToUniMed

[Mario Inacio]

Boa tarde.

Estou configurando o CT-e pelo ACBR, e me deparei com a atribuição no seguinte trecho:

 

with infCarga.InfQ.New do begin
	cUnid  := StrToUniMed(ok,'1');

Ao compilar, retorna incompatibilidade de tipos:

[Error] ucte.pas(3347): Incompatible types: 'TUnidMed' and 'TpUniMed'

Esse campo '1', coloquei apenas como exemplo, mas vai variar conforme a seleção do usuário, dentro das unidades permitidas.

Notei que a propriedade cUnid espera o tipo TUnidMed e a função retorna TpUniMed.

function StrToUniMed(out ok: Boolean; const s: String): TpUniMed;
begin
  result := StrToEnumerado(ok, s, ['1','2','3','4','5'],
                                  [umKG, umKGG, umLitros, umTI, umUnidades]);
end;

Vasculhei o código e não consegui entender, poderiam me auxiliar?

[BigWings]

6 minutos atrás, Mario Inacio disse:

Vasculhei o código e não consegui entender, poderiam me auxiliar?

Realmente um pouco confuso, existe a StrToUniMed na pcteConversaoCTe.pas e a StrToUnidMed na pcnConversao.pas.

Para essa tag você deve usar a última:

Citar

with infCarga.InfQ.New do begin
    cUnid  := StrToUnidMed(ok, '01');

Note que deve passar 2 dígitos no código.

[Mario Inacio]

Bingo.

Era isso mesmo.

Obrigado

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.