Erro no Demo do SPED Pis/Cofins!

[denilsonass]

Boa tarde a todos,

Estou testando os componentes do ACBr, e desde já agradeço a todos os colaboradores e parabenizo essa iniciativa.

Compilando o Exemplo do projeto SPEDPisCofins, já com a última atualização, é ocasionado os seguintes erros:

********************************************************************************************

[DCC Error] Frm_SPEDPisCofins.pas(555): E2010 Incompatible types: 'TACBrIndTpOperacaoReceita' and 'TACBrIndicadorTpOperacao'

********************************************************************************************

procedure TFrmSPEDPisCofins.btnB_FClick(Sender: TObject);

begin

// Alimenta o componente com informações para gerar todos os registros do

// Bloco F.

with ACBrSPEDPisCofins1.Bloco_F do

begin

with RegistroF001New do

begin

IND_MOV := imComDados;

with RegistroF010New do

begin

CNPJ := '123456789';

with RegistroF100New do

begin

IND_OPER := itoContratado; //AQUI ESTÁ O ERRO...

COD_PART := '001';

COD_ITEM := '000'; //Codigo do Item no registro 0200

DT_OPER := Date();

VL_OPER := 0;

CST_PIS := stpisOutrasOperacoesSaida;

VL_BC_PIS := 0;

ALIQ_PIS := 0;

VL_PIS := 0;

CST_COFINS := stcofinsOutrasOperacoesSaida;

VL_BC_COFINS := 0;

ALIQ_COFINS := 0;

VL_COFINS := 0;

NAT_BC_CRED := bccAqBensRevenda;

IND_ORIG_CRED := opcMercadoInterno;

COD_CTA := '';

COD_CCUS := '123';

DESC_DOC_OPER := '';

end;

end;

end;

end;

btnB_F.Enabled := false;

if cbConcomitante.Checked then

begin

ACBrSPEDPisCofins1.WriteBloco_F;

LoadToMemo;

end;

end;

********************************************************************************************

[DCC Error] Frm_SPEDPisCofins.pas(598): E2010 Incompatible types: 'TACBrIndCredOri' and 'Integer'

[DCC Error] Frm_SPEDPisCofins.pas(608): E2010 Incompatible types: 'TACBrIndDescCred' and 'string'

********************************************************************************************

procedure TFrmSPEDPisCofins.btnB_MClick(Sender: TObject);

begin

// Alimenta o componente com informações para gerar todos os registros do

// Bloco M.

with ACBrSPEDPisCofins1.Bloco_M do

begin

with RegistroM001New do

begin

IND_MOV := imComDados;

with RegistroM100New do

begin

COD_CRED := '';

IND_CRED_ORI := 0; //AQUI ESTÁ O ERRO...

VL_BC_PIS := 0;

ALIQ_PIS := 0;

QUANT_BC_PIS := 0;

ALIQ_PIS_QUANT := 0;

VL_CRED := 0;

VL_AJUS_ACRES := 0;

VL_AJUS_REDUC := 0;

VL_CRED_DIF := 0;

VL_CRED_DISP := 0;

IND_DESC_CRED := ''; //AQUI ESTÁ O ERRO...

VL_CRED_DESC := 0;

SLD_CRED := 0;

end;

end;

end;

btnB_M.Enabled := false;

if cbConcomitante.Checked then

begin

ACBrSPEDPisCofins1.WriteBloco_M;

LoadToMemo;

end;

end;

Gostaria de saber se o projeto de vocês estão com o mesmo erro, e como resolverei isso. Não tenho conhecimento da Rotina ainda, é só para um teste mesmo para saber como gerar os arquivos. Procurei aqui no fórum também, e não achei nenhum tópico a respeito.

Desde já, agradeço a colaboração e atenção de vocês.

Abraços,

Denilson - 31/05/2011.

[Rodrigo - Digibyte]

Quando instalei o demo também observei alguns erros. Agora está corrido mas assim que der um tempinho (alguns dias) e ninguém fizer mando um demo atualizado.

[Isaque Pinheiro]

Boa tarde a todos,

Denilson - 31/05/2011.

Corrigi o erro e já subi

Abs

[denilsonass]

Bom dia, Isaque Pinheiro!!!

Obrigado pela atenção e pela correção do erro. Vou testar aqui.

Abraços a todos!!!

Denilson - 01/06/2011.