Sintoma

O nome do Exportador e do Fabricante, no programa da DI - Adições, está incompleto.

Solução

Buscar o nome completo do Fornecedor e do Fabricante na tabela ADRC.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 10653 Data: 08/10/2010 Hora: 10:39:45

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 10653

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00005

Agrupamento              : 00043

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

NOME DO EXPORTADOR E FABRICANTE INCOMPLETO

----------------------------------------------------------------------------------------------------

Palavras Chave:

RAZÃO SOCIAL - ADIÇÕES - DI - NOME INCOMPLETO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023F02

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

  CLEAR wa_adrc.

  SELECT SINGLE * FROM adrc INTO wa_adrc

         WHERE addrnumber EQ wa_lfa1-adrnr.

  IF p_zycie = '800'.

    CLEAR /pws/zycie080.

    SELECT SINGLE bezei FROM t005u INTO /pws/zycie080-regio

    WHERE land1 = wa_lfa1-land1 AND

          spras = sy-langu AND

          bland = wa_adrc-region.

    /pws/zycie080-lifnr       = wa_lfa1-lifnr.

* >> Início da exclusão: FORM LOAD_FORN

    /pws/zycie080-name1       = wa_lfa1-name1.

* << Fim da exclusão

* >> Início da inclusão: FORM LOAD_FORN

    CONCATENATE wa_adrc-name1 wa_adrc-name2 INTO /pws/zycie080-name1

    SEPARATED BY space.

* << Fim da inclusão

    /pws/zycie080-landa       = wa_adrc-country.

    /pws/zycie080-logradouro  = wa_adrc-street.

    /pws/zycie080-nrlogr      = wa_adrc-house_num1.

    /pws/zycie080-compl       = wa_lfa1-ort02.

    /pws/zycie080-city        = wa_adrc-city1.

    PERFORM load_pais USING    /pws/zycie080-landa

                         CHANGING a_spais1 a_pais1.

  ELSE.

    SELECT SINGLE bezei FROM t005u INTO /pws/zycie080a-regio

    WHERE land1 = wa_lfa1-land1 AND

          spras = sy-langu AND

          bland = wa_adrc-region.

    /pws/zycie080a-lifnr      = wa_lfa1-lifnr.

* >> Início da exclusão: FORM LOAD_FORN

    /pws/zycie080a-name1      = wa_lfa1-name1.

* << Fim da exclusão

* >> Início da inclusão: FORM LOAD_FORN

    CONCATENATE wa_adrc-name1 wa_adrc-name2 INTO /pws/zycie080a-name1

    SEPARATED BY space.

* << Fim da inclusão

    IF itab_itb-paisfab IS INITIAL.

      /pws/zycie080a-landa       = wa_adrc-country.

      /pws/zycie080a-logradouro = wa_adrc-street.

      /pws/zycie080a-nrlogr     = wa_adrc-house_num1.

      /pws/zycie080a-compl      = wa_lfa1-ort02.

      /pws/zycie080a-city       = wa_adrc-city1.

    ELSE.

      /pws/zycie080a-landa       = itab_itb-paisfab.

      IF itab_itb-paisfab EQ wa_adrc-country.

        /pws/zycie080a-logradouro = wa_adrc-street.

...