Jump to content

dev botao

REGISTRO D162 - QTD_VOL


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

Recommended Posts

  • Moderadores

Está dando o erro MSG_TIPO_CAMPO

O Tipo de campo é numérico (sem decimais)

Eu estou enviando inteiro = 504 mas o componente está jogando 504,00

TRegistroD162 = class

private

fCOD_MOD: String; /// Código do documento fiscal

FSER: String; /// Série do documento

FNUM_DOC: String; /// Numero

FDT_DOC: TDateTime; /// Data de emissão

FVL_DOC: currency; /// Valor total do documento fiscal

FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal

>>>>>> FQTD_VOL: currency; /// Quantidade de volumes transportados

FPESO_BRT: currency; /// Peso bruto

FPESO_LIQ: currency; /// Peso liquido

Link to comment
Share on other sites

  • Moderadores

ACBrEFDBloco_D

---------------

public

property COD_MOD: String read FCOD_MOD write FCOD_MOD;

property SER: String read FSER write FSER;

property NUM_DOC: String read FNUM_DOC write FNUM_DOC;

property DT_DOC: TDateTime read FDT_DOC write FDT_DOC;

property VL_DOC: currency read FVL_DOC write FVL_DOC;

property VL_MERC: currency read FVL_MERC write FVL_MERC;

>>>>>>>>>>// property QTD_VOL: currency read FQTD_VOL write FQTD_VOL;

>>>>>>>>>> property QTD_VOL: integer read FQTD_VOL write FQTD_VOL;

property PESO_BRT: currency read FPESO_BRT write FPESO_BRT;

property PESO_LIQ: currency read FPESO_LIQ write FPESO_LIQ;

end;

TRegistroD162 = class

private

fCOD_MOD: String; /// Código do documento fiscal

FSER: String; /// Série do documento

FNUM_DOC: String; /// Numero

FDT_DOC: TDateTime; /// Data de emissão

FVL_DOC: currency; /// Valor total do documento fiscal

FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal

>>>>>>>>>// FQTD_VOL: currency; /// Quantidade de volumes transportados

>>>>>>>>> FQTD_VOL: integer; /// Quantidade de volumes transportados

FPESO_BRT: currency; /// Peso bruto

FPESO_LIQ: currency; /// Peso liquido

ACBrEFDBloco_D_Class

procedure TBloco_D.WriteRegistroD162(RegD160: TRegistroD160) ;

var

intFor: integer;

begin

if Assigned( RegD160.RegistroD162 ) then

begin

for intFor := 0 to RegD160.RegistroD162.Count - 1 do

begin

with RegD160.RegistroD162.Items[intFor] do

begin

Add( LFill('D162') +

LFill( COD_MOD ) +

LFill( SER ) +

LFill( NUM_DOC ) +

LFill( DT_DOC ) +

LFill( VL_DOC,0,2 ) +

LFill( VL_MERC,0,2 ) +

>>>>>>>>>// LFill( QTD_VOL,0 ) +

>>>>>>>>> LFill( QTD_VOL ) +

LFill( PESO_BRT,0,2 ) +

LFill( PESO_LIQ,0,2 ) ) ;

end;

RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1;

end;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistroD162Count := FRegistroD162Count + RegD160.RegistroD162.Count;

end;

end;

Link to comment
Share on other sites

  • Consultores

Isso daí acima é a correção né?

[]'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

  • 2 weeks later...
  • Moderadores

Essas alteração ainda não estão no SVN. Mas sem ela, o arquivo não valida.

Sempre que atualizo o SpedFiscal, tenho que refazer essas alterações.

As transportadoras já são obrigadas a enviar o SPED Fiscal até dia 15/01/2011

**********************************************************************ACBrEFDBloco_D

**********************************************************************

/// Registro D162 - IDENTIFICAÇÃO DOS DOCUMENTOS FISCAIS (COD. 08, 8B, 09, 10, 11, 26, 27)

TRegistroD162 = class

private

fCOD_MOD: String; /// Código do documento fiscal

FSER: String; /// Série do documento

FNUM_DOC: String; /// Numero

FDT_DOC: TDateTime; /// Data de emissão

FVL_DOC: currency; /// Valor total do documento fiscal

FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal

//FQTD_VOL: currency; /// Quantidade de volumes transportados

FQTD_VOL: integer; /// Quantidade de volumes transportados FPESO_BRT: currency; /// Peso bruto

FPESO_LIQ: currency; /// Peso liquido

public

property COD_MOD: String read FCOD_MOD write FCOD_MOD;

property SER: String read FSER write FSER;

property NUM_DOC: String read FNUM_DOC write FNUM_DOC;

property DT_DOC: TDateTime read FDT_DOC write FDT_DOC;

property VL_DOC: currency read FVL_DOC write FVL_DOC;

property VL_MERC: currency read FVL_MERC write FVL_MERC ;

//property QTD_VOL: currency read FQTD_VOL write FQTD_VOL;

property QTD_VOL: integer read FQTD_VOL write FQTD_VOL; property PESO_BRT: currency read FPESO_BRT write FPESO_BRT;

property PESO_LIQ: currency read FPESO_LIQ write FPESO_LIQ;

end;

*********************************************************************************************

ACBrEFDBloco_D_Class

*********************************************************************************************

procedure TBloco_D.WriteRegistroD162(RegD160: TRegistroD160) ;

var

intFor: integer;

begin

if Assigned( RegD160.RegistroD162 ) then

begin

for intFor := 0 to RegD160.RegistroD162.Count - 1 do

begin

with RegD160.RegistroD162.Items[intFor] do

begin

Add( LFill('D162') +

LFill( COD_MOD ) +

LFill( SER ) +

LFill( NUM_DOC ) +

LFill( DT_DOC ) +

LFill( VL_DOC,0,2 ) +

LFill( VL_MERC,0,2 ) +

//LFill( QTD_VOL,0 ) +

LFill( QTD_VOL ) +

LFill( PESO_BRT,0,2 ) +

LFill( PESO_LIQ,0,2 ) ) ;

end;

RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1;

end;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistroD162Count := FRegistroD162Count + RegD160.RegistroD162.Count;

end;

end;

Link to comment
Share on other sites

  • Consultores

Foi pro SVN, favor conferir...

P.S: Sugestão Gr@ç@... quando postar códigos use a tag "code". Fica mais fácil pra ler pois o fórum mantém o layout do seu texto.

Obrigado mais uma vez.

[]'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á 4982 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.