Ir para conteúdo
  • Cadastre-se

dev botao

REGISTRO D162 - QTD_VOL


Gr@c@
  • Este tópico foi criado há 4786 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

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