Jump to content

dev botao

SPED REGISTRO D110 - Itens do Documento NF de Transp(serieA)


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

Recommended Posts

  • Moderadores

Estou com problemas na geração do bloco D110 de transportadoras que emitem NF de serviço serie A (quando transportam carga dentro da propria cidade, a prefeitura não aceita CTRC nem CT-e, e sim somente NF modelo 07 (serie A) ou NFS)

Está gerando o registro D110 assim

|D110|31121899|P0000000393|04121900||

quando deveria ficar assim

|D110|001|P0000000393|04121900||

mas a estrutura do registro é:

REG

NUM_ITEM -> inteiro ---> estou enviando 1

COD_ITEM -> string ---> estou enviando P0000000393

VL_SERV -> currency

VL_OUT -> currency

já debuguei meu programa e dei display nos dados antes de enviar para o registro e estou enviando 1 no NUM_ITEM. Mas ele está jogando uma data nula (31121899)

Não encontrei o erro no componente. :mrgreen:

No ACBrEFDBloco_D está assim

/// Registro D110 - COMPLEMENTO DOS BILHETES (CÓDIGO 13, CÓDIGO 14 E CÓDIGO 16)

mas aqui deveria ser

/// Registro D110 - ITENS DO DOCUMENTO - NOTA FISCAL DE SERVICOS DE TRANSPORTE (CODIGO 07)

TRegistroD110 = class

private

>>>>>>>>>>>>>>>estão fora de ordem

fCOD_ITEM: string;

fMUN_ITEM: integer;

fVL_SERV: currency;

fVL_OUT: currency;

Link to comment
Share on other sites

  • Consultores

é o mesmo problema do registro 0300 veja viewtopic.php?f=12&t=915

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

  • Moderadores

Obrigada, realmente, o problema é esse mesmo. Segue o que alterei no componente (ACBrEFDBloco_D_Class)

procedure TBloco_D.WriteRegistroD110(RegD100: TRegistroD100) ;

var

intFor: integer;

begin

if Assigned( RegD100.RegistroD110 ) then

begin

for intFor := 0 to RegD100.RegistroD110.Count - 1 do

begin

with RegD100.RegistroD110.Items[intFor] do

begin

Add( LFill('D110') +

>>>>> LFill(NUN_ITEM,3) + <<<<<<<

LFill(COD_ITEM ) +

LFill(VL_SERV ) +

LFill(VL_OUT ) );

end;

/// Registros FILHOS

WriteRegistroD120( RegD100.RegistroD110.Items[intFor] );

RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1;

end;

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

FRegistroD110Count := FRegistroD110Count + RegD100.RegistroD110.Count;

end;

end;

Link to comment
Share on other sites

  • 2 weeks later...
  • Moderadores

Essa alteração também não está no SVN. E está ocorrendo o erro ao validar os arquivos das transportadoras.

procedure TBloco_D.WriteRegistroD110(RegD100: TRegistroD100) ;

var

intFor: integer;

begin

if Assigned( RegD100.RegistroD110 ) then

begin

for intFor := 0 to RegD100.RegistroD110.Count - 1 do

begin

with RegD100.RegistroD110.Items[intFor] do

begin

Add( LFill('D110') +

LFill(NUN_ITEM,3) +

LFill(COD_ITEM ) +

LFill(VL_SERV ) +

LFill(VL_OUT ) );

end;

/// Registros FILHOS

WriteRegistroD120( RegD100.RegistroD110.Items[intFor] );

RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1;

end;

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

FRegistroD110Count := FRegistroD110Count + RegD100.RegistroD110.Count;

end;

end;

Link to comment
Share on other sites

  • Consultores

Foi pro SVN, favor conferir...

Obrigado Gr@ç@.

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

The popup will be closed in 10 seconds...