Jump to content

dev botao

Erro no Demo do SPED Pis/Cofins!


  • Este tópico foi criado há 4766 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link to comment
Share on other sites

Boa tarde a todos,

Denilson - 31/05/2011.

Corrigi o erro e já subi

Abs

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 4766 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.