Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

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

Postado

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.

Postado

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.

Postado

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

Postado

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.

  • Consultores
Postado

Alguém, se abilita, a corrigir.

Obrigado,

Leão

Desculpe, mas o que é que se deve corrigir?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Postado

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.

  • Consultores
Postado

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Consultores
Postado

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Postado

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.

  • 2 semanas depois ...
Postado

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;

  • Consultores
Postado

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 4757 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...