Jump to content

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

Recommended Posts

  • Moderadores
Posted

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;

  • Moderadores
Posted

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;

  • Consultores
Posted

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.

[]'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.
  • Consultores
Posted

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

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