Bloco K

[Djean Carlos]

Bom dia, 

Estou tentando o bloco K e ele vai para o arquivo como 1-Sem Dados, apenas de eu informar IND_MOV := imComDados e alimentar o componente como no exemplo.

Como estou alimentando a identificação: 

      COD_VER    := vlVersao116;
      COD_FIN    := raOriginal;
      NOME       := getLinha(qsEmpresa.FieldByName('filial').AsString);
      CNPJ       := getLinha(qsEmpresa.FieldByName('CNPJ').AsString);
      CPF        := ''; // Deve ser uma informação valida
      UF         := getLinha(qsEmpresa.FieldByName('UF').AsString);
      IE         := getLinha(qsEmpresa.FieldByName('IE').AsString);
      COD_MUN    := StrToInt('0'+getLinha(qsEmpresa.FieldByName('COD_MUNICIPIO_IBGE').AsString));
      IM         := '';
      SUFRAMA    := '';
      IND_PERFIL := pfPerfilB;
      IND_ATIV   := atOutros;

Exemplo de como vai para o arquivo:

|K001|1|
|K990|2|

[Juliomar Marchetti]

verifica onde ele faz o write e veja as validações