SPED Fiscal e SPED Pis/cofins no mesmo Form

[Virus]

Olá!

Estou tentando em um mesmo form colocar tanto o sped fiscal como o pis/cofins...porem ele não reconhece as classes dos dois. Estou apontando o Path do Delphi paras as duas pastas, tando do fiscal como do pis/cofins mais da erro com os dois juntos. Um só funciona normal.

Segue os erro que da e as Uses que estou usando.

ERROS:

[Error] U_PROCESSOS.pas(3266): Incompatible types: 'ACBrEFDBloco_0.TACBrCodFinalidade' and 'U_PROCESSOS.TACBrCodFinalidade'

[Error] U_PROCESSOS.pas(3275): Incompatible types: 'ACBrEFDBloco_0.TACBrPerfil' and 'U_PROCESSOS.TACBrPerfil'

[Error] U_PROCESSOS.pas(3276): Incompatible types: 'ACBrEFDBloco_0.TACBrAtividade' and 'U_PROCESSOS.TACBrAtividade'

[Error] U_PROCESSOS.pas(3280): Incompatible types: 'ACBrEFDBlocos.TACBrIndicadorMovimento' and 'U_PROCESSOS.TACBrIndicadorMovimento'

[Error] U_PROCESSOS.pas(3608): Incompatible types: 'ACBrEFDBloco_0.TACBrTipoItem' and 'U_PROCESSOS.TACBrTipoItem'

[Error] U_PROCESSOS.pas(3747): Incompatible types: 'ACBrEFDBlocos.TACBrIndicadorMovimento' and 'U_PROCESSOS.TACBrIndicadorMovimento'

[Error] U_PROCESSOS.pas(3776): Incompatible types: 'ACBrEFDBloco_C.TACBrEmitente' and 'U_PROCESSOS.TACBrEmitente'

[Error] U_PROCESSOS.pas(3777): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoOperacao' and 'U_PROCESSOS.TACBrTipoOperacao'

[Error] U_PROCESSOS.pas(3782): Incompatible types: 'ACBrEFDBloco_C.TACBrSituacaoDocto' and 'U_PROCESSOS.TACBrSituacaoDocto'

[Error] U_PROCESSOS.pas(3791): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoPagamento' and 'U_PROCESSOS.TACBrTipoPagamento'

[Error] U_PROCESSOS.pas(3792): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoPagamento' and 'U_PROCESSOS.TACBrTipoPagamento'

[Error] U_PROCESSOS.pas(3796): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoFrete' and 'U_PROCESSOS.TACBrTipoFrete'

[Error] U_PROCESSOS.pas(3848): Incompatible types: 'ACBrEFDBloco_C.TACBrMovimentacaoFisica' and 'U_PROCESSOS.TACBrMovimentacaoFisica'

[Error] U_PROCESSOS.pas(3978): Incompatible types: 'ACBrEFDBloco_C.TACBrEmitente' and 'U_PROCESSOS.TACBrEmitente'

[Error] U_PROCESSOS.pas(3979): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoOperacao' and 'U_PROCESSOS.TACBrTipoOperacao'

[Error] U_PROCESSOS.pas(3984): Incompatible types: 'ACBrEFDBloco_C.TACBrSituacaoDocto' and 'U_PROCESSOS.TACBrSituacaoDocto'

[Error] U_PROCESSOS.pas(3993): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoPagamento' and 'U_PROCESSOS.TACBrTipoPagamento'

[Error] U_PROCESSOS.pas(3994): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoPagamento' and 'U_PROCESSOS.TACBrTipoPagamento'

[Error] U_PROCESSOS.pas(3998): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoFrete' and 'U_PROCESSOS.TACBrTipoFrete'

[Error] U_PROCESSOS.pas(4050): Incompatible types: 'ACBrEFDBloco_C.TACBrMovimentacaoFisica' and 'U_PROCESSOS.TACBrMovimentacaoFisica'

[Error] U_PROCESSOS.pas(4180): Incompatible types: 'ACBrEFDBloco_C.TACBrEmitente' and 'U_PROCESSOS.TACBrEmitente'

[Error] U_PROCESSOS.pas(4181): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoOperacao' and 'U_PROCESSOS.TACBrTipoOperacao'

[Error] U_PROCESSOS.pas(4183): Incompatible types: 'ACBrEFDBloco_C.TACBrSituacaoDocto' and 'U_PROCESSOS.TACBrSituacaoDocto'

[Error] U_PROCESSOS.pas(4185): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoPagamento' and 'U_PROCESSOS.TACBrTipoPagamento'

[Error] U_PROCESSOS.pas(4186): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoFrete' and 'U_PROCESSOS.TACBrTipoFrete'

[Error] U_PROCESSOS.pas(4191): Incompatible types: 'ACBrEFDBloco_C.TACBrEmitente' and 'U_PROCESSOS.TACBrEmitente'

[Error] U_PROCESSOS.pas(4192): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoOperacao' and 'U_PROCESSOS.TACBrTipoOperacao'

[Error] U_PROCESSOS.pas(4194): Incompatible types: 'ACBrEFDBloco_C.TACBrSituacaoDocto' and 'U_PROCESSOS.TACBrSituacaoDocto'

[Error] U_PROCESSOS.pas(4203): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoPagamento' and 'U_PROCESSOS.TACBrTipoPagamento'

[Error] U_PROCESSOS.pas(4204): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoPagamento' and 'U_PROCESSOS.TACBrTipoPagamento'

[Error] U_PROCESSOS.pas(4208): Incompatible types: 'ACBrEFDBloco_C.TACBrTipoFrete' and 'U_PROCESSOS.TACBrTipoFrete'

[Error] U_PROCESSOS.pas(4514): Incompatible types: 'ACBrEFDBloco_C.TACBrSituacaoDocto' and 'U_PROCESSOS.TACBrSituacaoDocto'

[Error] U_PROCESSOS.pas(4521): Incompatible types: 'ACBrEFDBloco_C.TACBrSituacaoDocto' and 'U_PROCESSOS.TACBrSituacaoDocto'

[Error] U_PROCESSOS.pas(4637): Incompatible types: 'ACBrEFDBlocos.TACBrIndicadorMovimento' and 'U_PROCESSOS.TACBrIndicadorMovimento'

[Error] U_PROCESSOS.pas(4661): Incompatible types: 'ACBrEFDBlocos.TACBrIndicadorMovimento' and 'U_PROCESSOS.TACBrIndicadorMovimento'

[Error] U_PROCESSOS.pas(4798): Incompatible types: 'ACBrEFDBloco_E.TACBrOrigemProcesso' and 'U_PROCESSOS.TACBrOrigemProcesso'

[Error] U_PROCESSOS.pas(4839): Incompatible types: 'ACBrEFDBlocos.TACBrIndicadorMovimento' and 'U_PROCESSOS.TACBrIndicadorMovimento'

[Error] U_PROCESSOS.pas(4858): Incompatible types: 'ACBrEFDBlocos.TACBrIndicadorMovimento' and 'U_PROCESSOS.TACBrIndicadorMovimento'

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, dxfLabel, dxBarExtItems, dxBar, dxExEdtr, Mask,

ToolEdit, ExtCtrls, dxTL, dxDBCtrl, dxDBGrid, dxCntner, dxEditor,

dxEdLib, Buttons, dxfGroupBox, dxPageControl, DB, IBODataset, dxDBTLCl,

dxGrClms, dxfProgressBar, RDprint, dxmdaset, DBCtrls, DBClient, SOAPConn,StrUtils,

CurrEdit, dxDBELib, dxfCheckBox, SRGrad, ACBrSpedFiscal,ACBrUtil,ACBrTXTClass,ComCtrls,

ACBrEFDBlocos, ACBrEPCBlocos, ACBrSpedPisCofins;

ALGUEM SABERIA ME DIZER O PQ DISSO E OQUE POSSO FAZER PRA NAO DA MAIS ERRO??

DESDE JAH AGRADEÇO

[Juliomar Marchetti]

Bom dia

primeira coisa letras maiúsculas podem parecer que está gritando.

você chegou a ver se adicionou os paths corretamente do ACBrSped?

[Virus]

Junior nao entendi oque seria o gritando.

Segue a imagem do patch no delphi

[EMBarbosa]

Isso é um texto normal, como uma conversa normal.

MAS PRESTE ATENÇÃO PORQUE ISSO AQUI É COMO SE ESTIVESSEM GRITANDO!!!!!!

[Juliomar Marchetti]

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, dxfLabel, dxBarExtItems, dxBar, dxExEdtr, Mask,

ToolEdit, ExtCtrls, dxTL, dxDBCtrl, dxDBGrid, dxCntner, dxEditor,

dxEdLib, Buttons, dxfGroupBox, dxPageControl, DB, IBODataset, dxDBTLCl,

dxGrClms, dxfProgressBar, RDprint, dxmdaset, DBCtrls, DBClient, SOAPConn,StrUtils,

CurrEdit, dxDBELib, dxfCheckBox, SRGrad, ACBrSpedFiscal,ACBrUtil,ACBrTXTClass,ComCtrls,

ACBrEFDBlocos, ACBrEPCBlocos, ACBrSpedPisCofins;

Bom nunca me aconteceu isso mas tente trocar a ordem "ACBrEFDBlocos, ACBrEPCBlocos, " ou colocar uma parte na implementation para ver se resolve

[Virus]

E como seria colocado no implementation?

[EMBarbosa]

[Error] U_PROCESSOS.pas(3266): Incompatible types: 'ACBrEFDBloco_0.TACBrCodFinalidade' and 'U_PROCESSOS.TACBrCodFinalidade'

Você declarou o tipo TACBrCodFinalidade na Unit U_PROCESSOS?

[Juliomar Marchetti]

unit Unit1;


interface

uses "tira daqui";


type

     TForm = class


      end;


var

   Form : TForm


implementation

uses "coloca aqui";


end.

entendeu???

[Virus]

Fiz as duas coisas...mudei a uses para baixo e tentei declara o tipo TACBrCodFinalidade....mais da erro do mesmo geito....

[Virus]

Veja uma coisa:

Se eu coloca a minha use assim:

uses

{BLOCOS PISCOFINS} ACBrEPCBloco_0_Class, ACBrEPCBloco_0, ACBrEPCBloco_C_Class,ACBrEPCBloco_C, ACBrEPCBloco_D_Class, ACBrEPCBloco_D,ACBrEPCBlocos,

{BLOCOS SPEDFISCAL} ACBrEFDBloco_0_Class, ACBrEFDBloco_0, ACBrEFDBloco_C_Class,ACBrEFDBloco_E, ACBrEFDBloco_C, ACBrEFDBloco_E_Class, ACBrEFDBloco_D_Class,ACBrEFDBloco_D, ACBrEFDBlocos, ACBrTXTClass,ACBrUtil;

O erro acontece nas Variaveis do SPEDFiscal.

Agora se eu colocar minha use assim:

uses

{BLOCOSFISCAL} ACBrEFDBloco_0_Class, ACBrEFDBloco_0, ACBrEFDBloco_C_Class,ACBrEFDBloco_E, ACBrEFDBloco_C, ACBrEFDBloco_E_Class, ACBrEFDBloco_D_Class,ACBrEFDBloco_D, ACBrEFDBlocos,

{PISCOFINS} ACBrEPCBloco_0_Class, ACBrEPCBloco_0, ACBrEPCBloco_C_Class,ACBrEPCBloco_C, ACBrEPCBloco_D_Class, ACBrEPCBloco_D,ACBrEPCBlocos,ACBrTXTClass,ACBrUtil;

O erro é no SPEDPisCofins....

Ele esta confundindo os blocos

alguma dica a mais??

[Virus]

Alguem tem alguma ideia o pq ele faz isso???

Por favor me ajudem....

Obrigado

[EMBarbosa]

[Error] U_PROCESSOS.pas(3266): Incompatible types: 'ACBrEFDBloco_0.TACBrCodFinalidade' and 'U_PROCESSOS.TACBrCodFinalidade'

Você declarou o tipo TACBrCodFinalidade na Unit U_PROCESSOS?

[Lindomar]

inicio de minha unit:

unit modIntegracaoFiscal;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IniFiles, uFuncoes, ComCtrls, pngimage, ExtCtrls, StdCtrls, CheckLst,

jpeg, Dateutils, db, ACBrSpedFiscal, ACBrEFDBlocos, ACBrSpedPisCofins,

ACBrEPCBlocos;

Pis/Cofins

with ACBrSPEDPisCofins1.Bloco_0 do

begin

// Dados da Empresa

with Registro0000New do

begin

COD_VER := ACBrEPCBlocos.vlVersao101;

if rgpCriterioApuracao.Enabled then

IND_REG_CUM := ACBrEPCBlocos.TACBrCodIndCritEscrit(rgpCriterioApuracao.ItemIndex);

Fiscal

with ACBrSpedFiscal1.Bloco_0 do

begin

// Dados da Empresa

with Registro0000New do

begin

COD_VER := vlVersao103;

COD_FIN := ACBrEFDBlocos.raOriginal;

IND_PERFIL := ACBrEFDBlocos.TACBrPerfil(dmDBEXMaster.sqqFilial.FieldByName('PERFIL_SPED').AsInteger);

if dmDBEXMaster.sqqFilial.FieldByName('TIPO_EMPRESA').AsInteger = 0 then

IND_ATIV := ACBrEFDBlocos.TACBrAtividade(dmDBEXMaster.sqqFilial.FieldByName('TIPO_EMPRESA').AsInteger)

else

IND_ATIV := ACBrEFDBlocos.TACBrAtividade(1);

Foi a maneira que encontrei, até porque estava numa correria assim como todos nós e num tive tempo pra tentar de outra forma.

ACBrEPCBlocos.vlVersao101 (ACBrEPCBlocos para referenciar pis cofins)

ACBrEFDBlocos.vlVersao103 (ACBrEFDBlocos. para refrenciar fiscal)

atc,