função StrToCSTICMS

[Earmarques]

Pessoal, estou tendo problemas com a função StrToCSTICMS da unit pcnConversao, utilizando o D7. Quando tento compilar, dá erro no código abaixo, ao informar o imposto do item:

              with Imposto do

                begin

                  with ICMS do

                   begin

                     CST          := StrToCSTICMS(False, Copy(tblspedc170CST_ICMS.AsString, 2, 2)) ;

                     ICMS.orig    := oeNacional;

                     ICMS.modBC   := dbiValorOperacao;

No banco de dados, o CST está armazenado em VARCHAR(3): '010' e preciso converter para o formato TpcnCSTIcms e o erro é "Types of actual and formal var parameters must be identical".

Não entendi para que serve a variável Boolean da função, mas já tentei com False e True e dá o mesmo erro.

Se alguém souber como resolver, agradeço, pois pode ser até mesmo um erro meu, de sintaxe.

[André Ferreira de Moraes]

Vc deve passar uma variável do tipo boleana. Estude o demo.

[malassombro]

Vc deve passar uma variável do tipo boleana. Estude o demo.

Prezado colega,

No Demo ele usa "cst00" direto. Entendi a pergunta do amigo EarMarques ele quer saber como fazer a conversão.

[André Ferreira de Moraes]

A função StrToCSTICMS espera uma variável do tipo boleana.

Exemplo:

Var

OK : boolean;

begin

StrToCSTICMS(OK, Copy(tblspedc170CST_ICMS.AsString, 2, 2)) ;

end;