Registro D200 - Fretes cancelados

[Gr@c@]

Quando o frete está cancelado, no registro D200 estou jogando cod_SIT = sdfCancelado, porém no arquivo texto está jogando COD_SIT = 00 quando deveria jogar 02.

Analisando o registro D200 não encontrei o tratamento para sdfCancelado

          case COD_SIT of

            sdfRegular         : strCOD_SIT := '00';

            sdfExtRegular      : strCOD_SIT := '01';

            sdfComplementar    : strCOD_SIT := '06';

            sdfExtComplementar : strCOD_SIT := '07';

            sdfInutilizado     : strCOD_SIT := '08';

          end;

procedure TBloco_D.WriteRegistroD200(RegD010: TRegistroD010) ;

  var

    intFor     : integer;

    strCOD_SIT : AnsiString;

begin

  if Assigned(RegD010.RegistroD200) then

  begin

     for intFor := 0 to RegD010.RegistroD200.Count - 1 do

     begin

        with RegD010.RegistroD200.Items[intFor] do

        begin

          Check(Pos(COD_MOD, '07 08 8B 09 10 11 26 27 57') > 0, '(D-200) O Modelo do Documento "%s" é inválido!', [COD_MOD]);


          case COD_SIT of

            sdfRegular         : strCOD_SIT := '00';

            sdfExtRegular      : strCOD_SIT := '01';

            sdfComplementar    : strCOD_SIT := '06';

            sdfExtComplementar : strCOD_SIT := '07';

            sdfInutilizado     : strCOD_SIT := '08';

          end;


          Add( LFill('D200')        +

               LFill( COD_MOD )     +

               LFill( strCOD_SIT )  +

               LFill( SER )         +

               LFill( SUB )         +

               LFill( NUM_DOC_INI,9 ) +

               LFill( NUM_DOC_FIN,9 ) +

               LFill( CFOP,4 )      +

               LFill( DT_REF )      +

               LFill( VL_DOC,0,2 )  +

               LFill( VL_DESC,0,2 ) ) ;

        end;


        // Registros FILHOS

        WriteRegistroD201( RegD010.RegistroD200.Items[intFor] );

        WriteRegistroD205( RegD010.RegistroD200.Items[intFor] );

        WriteRegistroD209( RegD010.RegistroD200.Items[intFor] );

        ///

        RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1;

     end;

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

     FRegistroD200Count := FRegistroD200Count + RegD010.RegistroD200.Count;

  end;

end;

[Gr@c@]

Acho que deveria ser como no registro D100

          case COD_SIT of

            sdfRegular         : strCOD_SIT := '00';

            sdfExtRegular      : strCOD_SIT := '01';

            sdfCancelado       : strCOD_SIT := '02';

            sdfExtCancelado    : strCOD_SIT := '03';

            sdfComplementar    : strCOD_SIT := '06';

            sdfExtComplementar : strCOD_SIT := '07';

            sdfInutilizado     : strCOD_SIT := '08';

          end;

[EMBarbosa]

Acho que não. Os Registros D200 não devem conter os fretes cancelados. Veja a nota para o campo 3 no guia prático 1.0.7 página 143:

Campo 03 - Valores válidos: [00, 01, 06, 07, 08]

Preenchimento: verificar a descrição da situação do documento na Tabela “4.1.2 - Tabela Situação do Documento”

integrante deste Guia Prático. Não deve ser considerado no Resumo Diário (D200) os documentos fiscais cancelados,

denegados ou de numeração inutilizada.

[EMBarbosa]

Inclusive, acabei de perceber que o tipo para "08" está com nome errado. Deveria ser sdfEspecial e não sdfInutilizado.

Corrigi na revisão 3596

[Gr@c@]

Você está certo. No D200/D201/D205 entram somente documentos válidos.