Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Registro D100New - IND_OPER


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

Recommended Posts

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • Consultores

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.
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • Consultores

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.
Link to comment
Share on other sites

  • Consultores

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.
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • 2 weeks later...
  • Consultores

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.
Link to comment
Share on other sites

  • Este tópico foi criado há 3824 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.