Sintoma

Ajustado programa para tratar o tipo de fornecedor e para remover acentuação.

Solução

Ajustado programa para tratar o tipo de fornecedor e para remover acentuação.

Informações Complementares

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

Nota Número 13538 Data: 16/12/2013 Hora: 15:34:47

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

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

Nota Número              : 13538

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00006

Agrupamento              : 00166

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

13511  - 00001 - 9.0    - 00006  - AJUSTADO PROGRAMA PARA COMPLETAR OS CAMPOS NUMERICOS COM ZERO

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

TRATAMENTO DE TIPO DE FORNECEDOR E REMOVER ACENTUAÇÃO.

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

Palavras Chave:

GERAR - TXT - PLI - FORNECEDOR - REMOVER - ACENTUAÇÃO - TIPO FORNECEDOR

/PWS/ZYCIR041

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

Objetos da nota:

REPS /PWS/ZYCIR041

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

Modificações efetuadas em REPS /PWS/ZYCIR041

...

FORM busca_tabela_080.

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

  SELECT fabric INTO it_reg08-ausencia_fabric

* << Fim da exclusão

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

  SELECT SINGLE fabric paisfab

  INTO (it_reg08-ausencia_fabric, it_reg08-pais_orig_merc)

* << Fim da inclusão

  FROM /pws/zycit079

  WHERE nrseqli EQ it_reg03-nrseqli

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

    AND ebeln   EQ it_reg03-ebeln

    AND ebelp   EQ it_reg03-ebelp

* << Fim da inclusão

    AND numli   EQ it_reg03-numli.

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

  ENDSELECT.

* << Fim da exclusão

  SELECT name1 logradouro nrlogr compl city landa lifnr ebeln ebelp

  INTO (it_reg08-nome_forn, it_reg08-end_forn, it_reg08-nr_forn,

        it_reg08-compl_forn, it_reg08-mun_forn,it_reg08-pais_aquis_merc,

        /pws/zycit080-lifnr, it_reg08-ebeln, it_reg08-ebelp)

  FROM /pws/zycit080

  WHERE nrseqli EQ it_reg03-nrseqli

  AND ebeln  EQ it_reg03-ebeln

  AND ebelp  EQ it_reg03-ebelp

  AND   tipoforn EQ 'E'.

  ENDSELECT.

  PERFORM busca_regio.

  PERFORM descricao_estado USING it_reg08-pais_aquis_merc.

  MOVE v_desc TO it_reg08-uf_forn.

  PERFORM load_pais USING it_reg08-pais_aquis_merc.

  MOVE v_cod_pais TO it_reg08-pais_aquis_merc.

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

  IF it_reg08-ausencia_fabric NE '1'.

* << Fim da exclusão

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

  IF it_reg08-ausencia_fabric EQ '3'.

    CLEAR: it_reg08-fabricante, it_reg08-end_fabric,

           it_reg08-nr_fabric, it_reg08-compl_fabric,

           it_reg08-mun_fabric, it_reg08-uf_fabric.

    PERFORM descricao_estado USING it_reg08-pais_orig_merc.

    MOVE v_desc TO it_reg08-uf_fabric.

    PERFORM load_pais USING it_reg08-pais_orig_merc.

    MOVE v_cod_pais TO it_reg08-pais_orig_merc.

  ELSEIF it_reg08-ausencia_fabric EQ '2'.

* << Fim da inclusão

    SELECT name1 logradouro nrlogr compl city landa lifnr ebeln ebelp

     INTO (it_reg08-fabricante, it_reg08-end_fabric, it_reg08-nr_fabric,

          it_reg08-compl_fabric, it_reg08-mun_fabric,

            it_reg08-pais_orig_merc,

            /pws/zycit080-lifnr,it_reg08-ebeln, it_reg08-ebelp)

      FROM /pws/zycit080

      WHERE nrseqli EQ it_reg03-nrseqli

      AND ebeln  EQ it_reg03-ebeln

      AND ebelp  EQ it_reg03-ebelp

      AND   tipoforn EQ 'F'.

...

...

  CALL FUNCTION 'SO_RAW_TO_RTF'

       TABLES

            objcont_old = it_txt1

            objcont_new = it_txt2.

  READ TABLE it_txt2 INDEX 1.

  v_lim = it_txt2-line+1(1).

  LOOP AT it_output_final.

    IF NOT it_output_final-filler01 IS INITIAL.

      CLEAR it_txt.

      v_leng = it_output_final-filler01.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+343 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

    IF NOT it_output_final-filler03 IS INITIAL.

      CLEAR it_txt.

      v_leng = it_output_final-filler03.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+4193 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

    IF NOT it_output_final-filler04 IS INITIAL.

      CLEAR it_txt.

      v_leng = it_output_final-filler04.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+70 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

    IF NOT it_output_final-filler05 IS INITIAL.

      CLEAR it_txt.

      v_leng = it_output_final-filler05.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+43 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

    IF NOT it_output_final-filler07 IS INITIAL.

      CLEAR it_txt.

      v_leng = it_output_final-filler07.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+4088 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

    IF NOT it_output_final-filler08 IS INITIAL.

      CLEAR it_txt.

      v_leng = it_output_final-filler08.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+401 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

    IF NOT it_output_final-filler09 IS INITIAL.

      CLEAR it_txt.

      CLEAR it_txt.

      v_leng = it_output_final-filler09.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+135 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

    IF NOT it_output_final-filler10 IS INITIAL.

      CLEAR it_txt.

      v_leng = it_output_final-filler10.

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

      PERFORM trata_caract CHANGING v_leng.

* << Fim da inclusão

      v_leng+75 = v_lim.

      it_txt-linha = v_leng.

      APPEND it_txt.

    ENDIF.

  ENDLOOP.

  IF NOT it_output_30[] IS INITIAL.

    CONCATENATE 'C:\SUFRAMA\PLI50\' w_nome_arq_2 '.PL5' INTO w_fileo.

    CALL FUNCTION 'GUI_DOWNLOAD'

             EXPORTING

                  filename                = w_fileo

...

...

* >> Início da inclusão:

FORM trata_caract CHANGING p_leng.

  CALL FUNCTION 'SCP_REPLACE_STRANGE_CHARS'

       EXPORTING

            intext            = p_leng

       IMPORTING

            outtext           = p_leng

       EXCEPTIONS

            invalid_codepage  = 1

            codepage_mismatch = 2

            internal_error    = 3

            cannot_convert    = 4

            fields_not_type_c = 5

            OTHERS            = 6.

  IF sy-subrc <> 0.

  ENDIF.

ENDFORM.

* << Fim da inclusão