Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Moderadores
Postado

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;

  • Consultores
Postado

é 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.
  • Moderadores
Postado

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;

  • 2 semanas depois ...
  • Moderadores
Postado

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;

  • Consultores
Postado

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

The popup will be closed in 10 segundos...