Registro D100New - IND_OPER

[Leao]

Olá pessoal,

No registro D100New, o campo IND_OPER:=

informou 0(zero) e informa erro variavel impativel.

o que informar nesse campo?

estar assim na unit ACBrEFDBloco_D_Class.pas:

(linha 586)

Add( LFill('D100') +

LFill( Integer(IND_OPER), 0 ) +

LFill( Integer(IND_EMIT), 0 ) +

o próximo campo deverá ocorrer o mesmo erro. Já houve alguma correção,

no Bloco D?

with RegistroD100New do

begin

IND_OPER:=

IND_EMIT:= StrToinT(TabGlobal.DConh_transp.IND_EMIT.Conteudo);

COD_PART:= TabGlobal.DConh_transp.COD_FORN.ValorString;

COD_MOD:= TabGlobal.DConh_transp.MODELO.Conteudo;

COD_SIT:= StrToInt(TabGlobal.DConh_transp.COD_SIT.Conteudo);

SER:= TabGlobal.DConh_transp.SERIE.Conteudo;

SUB:= TabGlobal.DConh_transp.SUBSERIE.Conteudo;

NUM_DOC:= TabGlobal.DConh_transp.NF.Conteudo;

CHV_CTE:=TabGlobal.DConh_transp.CHV_CTE.Conteudo;

DT_DOC:= TabGlobal.DConh_transp.DATA_EMISSAO.Conteudo;

DT_A_P:= TabGlobal.DConh_transp.DATA_ENTRADA.Conteudo;

TP_CT_e:= TabGlobal.DConh_transp.TP_CT_E.Conteudo;

CHV_CTE_REF:=TabGlobal.DConh_transp.CHV_CTE_REF.Conteudo;

VL_DOC:= TabGlobal.DConh_transp.VALOR_TOTAL.Conteudo;

VL_DESC:=0;

if TabGlobal.DConh_transp.IND_FRT.Conteudo='0' then

IND_FRT:=tfPorContaTerceiros

else if TabGlobal.DConh_transp.IND_FRT.Conteudo='1' then

IND_FRT:=tfPorContaEmitente

else if TabGlobal.DConh_transp.IND_FRT.Conteudo='2' then

IND_FRT:=tfPorContaDestinatario

else if TabGlobal.DConh_transp.IND_FRT.Conteudo='9' then

IND_FRT:=tfSemCobrancaFrete;

VL_SERV:=TabGlobal.DConh_transp.VALOR_TOTAL.Conteudo;

VL_BC_ICMS:=TabGlobal.DConh_transp.VALOR_BA_CAL_ICMS.Conteudo;

VL_ICMS:=TabGlobal.DConh_transp.VALOR_ICMS.Conteudo;

VL_NT:=TabGlobal.DConh_transp.VALOR_ISEN_NAO_TRIB.Conteudo;

COD_INF:=TabGlobal.DConh_transp.COD_INF.Conteudo;

COD_CTA:=TabGlobal.DConh_transp.COD_CTA.Conteudo;

end; // registroD100new

Obrigado,

Leão

[Alex Pereira]

Cara, eu passo assim:

with RegistroD100New do

begin

IND_OPER := StrToEFDTipoOperacao(ok, 0);

IND_EMIT := StrToEFDEmitente(ok, "1");

...

end;

Para o campo IND_OPER passo 0 (zero) como Integer mesmo.

Para o campo IND_EMIT passo "1" (um) como String.

Espero ter ajudado.

Att, Alex Pereira.

[Leao]

Não dar certo.

[Alex Pereira]

tentou passando StrToEFDTipoOperacao e StrToEFDEmitente?

lembrando que pra usá-las vc deve declarar no USES do teu Form o ACBrEFDConversao

ps: só corrigindo uma informação que te passei, o campo IND_OPER tbm estou passando "0" (zero) como String.

[Leao]

Alex, agradeço,

Declarei no USES ACBrEFDConversao, o delphi7, informa, que não encontrou

te pergunto é preciso instalar algum componente referente ao mesmo?

Aguardo e obrigado,

Leão

[Alex Pereira]

Então.. aqui no meu caso essa ACBrEFDConversao é uma UNIT que fica dentro da pasta do ACBR..

neste caminho -> C:\ACBrNFeD2007\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDConversao.pas

No meu caso é Delphi 2007, mas creio que no 7 tbm deve ter.

provavelmente deve estar dentro da sua pasta do ACBR.. da uma procurada pra ver..

abraços.

[Leao]

Cara, essa unit ACBrEFDConversao.pas, não existe no meu computador, uso nf-e, boleto

e agora spedfiscal. E agora?

Obrigado,

Leão

[Leao]

Alguém, se abilita, a corrigir.

Obrigado,

Leão

[EMBarbosa]

Alguém, se abilita, a corrigir.

Obrigado,

Leão

Desculpe, mas o que é que se deve corrigir?

[Leao]

Obrigado, por responder Barbosa,

Spedfiscal.

No registro D100New, o campo IND_OPER:=

informou 0(zero) e informa erro variavel imcompativel.

o que informar nesse campo?

estar assim na unit ACBrEFDBloco_D_Class.pas:

(linha 586)

Add( LFill('D100') +

LFill( Integer(IND_OPER), 0 ) +

LFill( Integer(IND_EMIT), 0 ) +

o próximo campo deverá ocorrer o mesmo erro. Já houve alguma correção,

no Bloco D?

with RegistroD100New do

begin

IND_OPER:=

IND_EMIT:=

não aceita nenhum tipo de variavel.

[Alex Pereira]

quando vc baixou o ACBR você fez checkout pelo Tortoise SVN?

Porque quando é feito por lá ele baixa todas as pastas e essa UNIT que te falei vem junto..

[EMBarbosa]

No registro D100New, o campo IND_OPER:=

informou 0(zero) e informa erro variavel imcompativel.

o que informar nesse campo?

Cara,

é incompatível, o campo IND_OPER é do tipo enumerado TACBrIndicadorTpOperacao:

Tu tem duas opções:

    with RegistroD100New do

    begin

      IND_OPER := itoContratado;

    end;

[/code]


ou

[code]    with RegistroD100New do

    begin

      IND_OPER := TACBrIndicadorTpOperacao(0);

    end;

O campo IND_EMIT é semelhante.

[EMBarbosa]

Então.. aqui no meu caso essa ACBrEFDConversao é uma UNIT que fica dentro da pasta do ACBR..

neste caminho -> C:\ACBrNFeD2007\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDConversao.pas

No meu caso é Delphi 2007, mas creio que no 7 tbm deve ter.

provavelmente deve estar dentro da sua pasta do ACBR.. da uma procurada pra ver..

abraços.

Essa unit não faz parte do ACBr atual não. Creio que você está equivocado.

[Alex Pereira]

Então.. aqui no meu caso essa ACBrEFDConversao é uma UNIT que fica dentro da pasta do ACBR..

neste caminho -> C:\ACBrNFeD2007\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDConversao.pas

No meu caso é Delphi 2007, mas creio que no 7 tbm deve ter.

provavelmente deve estar dentro da sua pasta do ACBR.. da uma procurada pra ver..

abraços.

Essa unit não faz parte do ACBr atual não. Creio que você está equivocado.

Estranho, aqui tem ela... pode ser então que seja alguma versão mais antiga que vinha antes.. não sei dizer tbm.

[lucianogatto]

Pessoas,

Estou com o mesmo problema, baixei no forum do PisCofins um exemplo, porém apresenta erro justamente no itoContratado, alguém poderia me passar o caminho para a solução? Obrigado!

with RegistroF100New do

begin

IND_OPER := itoContratado;

...

end;

[EMBarbosa]

IND_OPER dos registros D100 e F200 foram modificados e agora são string. Veja http://www.djsystem.com.br/acbr/mantis/view.php?id=1113

Se você quer um exemplo, use o Demo baixando do SVN.

Fiz algumas alterações nele e creio que está bem melhor agora.