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

[Gr@c@]

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.

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;

[EMBarbosa]

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

[Gr@c@]

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;

[Gr@c@]

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;

[EMBarbosa]

Foi pro SVN, favor conferir...

Obrigado Gr@ç@.

[Gr@c@]

Obrigada