Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

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.

Postado

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

 

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...