Sintoma

 Ao criar uma DI para os paises Chile e Argentina o campo Declaração aumentou de tamanho

Solução

Verificar se for Chile para informar que a declaração esta com o número de digitos superiores a 11

Informações Complementares

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

Nota Número 09397 Data: 17/11/2009 Hora: 10:17:20

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

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

Nota Número              : 09397

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00123

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

NOS PROCESSOS DO CHILE AVISAR O NUMERO DA DECLARAÇÃO COM 11 DIGITOS

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

Palavras Chave:

CHILE - ANA - 11 - DIGITOS - NÚMERO - DECLARAÇÃO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI059                        0110

MESS /PWS/ZYCIM150

REPS /PWS/MZYCI059F03

REPS /PWS/MZYCI059I01

REPS /PWS/MZYCI059X01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI059                        0110

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0110

...

             fill_struct87.

endloop.

process after input.

loop at itab_zycit086.

     module modi_data86.

endloop.

loop at itab_zycit087.

     module modi_data87.

endloop.

field:/pws/zycie085-nrbl       module load_bl  on request,

* >> Início da exclusão:

      /pws/zycie085-moddesps   module load_mod on request.

* << Fim da exclusão

* >> Início da inclusão:

      /pws/zycie085-moddesps   module load_mod on request,

      /pws/zycie085-nana      module verifica_nrdi on request.

* << Fim da inclusão

module: verify_tables,

        user_command_drill_down.

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

Modificações efetuadas em MESS /PWS/ZYCIM150

*Foi criada a mensagem 150 na classe /PWS/ZYCIM

*Idioma: PT

Campo número da Declaração deve conter 11 dígitos.

*Idioma: ES

Número de campo de la declaración debe contener 11 dígitos

*Idioma: EN

Field number of the declaration should contain 11 digits

* Parametrizar na /pws/zyglt217

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

Modificações efetuadas em REPS /PWS/MZYCI059F03

...

                               tpmsg = 'E'.

      IF sy-subrc IS INITIAL.

        MESSAGE i015(/pws/zycim) WITH

                                 itab_zycbt032-tcode

                                 itab_zycbt032-msg(50)

                                 itab_zycbt032-msg+50(50).

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

form verifica_nrdi.

    v_tam_nrdi = strlen( /pws/zycie085-nana ).

    IF v_tam_nrdi > 11 AND t001-land1 = 'CL'.            "#EC PORTABLE

      SELECT SINGLE * FROM /pws/zyglt217

        WHERE arbgb EQ '/PWS/ZYCIM'

        AND   msgnr EQ '150'.

      IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

        MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '150'.

      ENDIF.

    ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI059I01

...

  CLEAR: /pws/zycie403-valorusdp, /pws/zycie403-valorusda,

         /pws/zycie403-valorusdg,

         v_totalusdp, v_totalusdg, v_totalusda,

         v_totalusdtp, v_totalusdta, v_totalusdtg.

ENDMODULE.

MODULE busca_taxa INPUT.

  MOVE 'X' TO v_mudou.

ENDMODULE.

MODULE ajuste INPUT.

ENDMODULE.

* >> Início da inclusão:

module verifica_nrdi input.

  PERFORM verifica_nrdi.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI059X01

...

  /pws/zycie093,

  /pws/zycit078,

  /pws/zycie078,

  /pws/zycit256, /pws/zycie256,

  /pws/zycit274,

  /pws/zyglt204,

  /pws/zycit229,

  /pws/zycet050,

  /pws/zycit029,

  j_1btregc,

* >> Início da inclusão:

  /pws/zyglt217,

* << Fim da inclusão

  /pws/zycit101,

  bsis.

DATA: BEGIN OF COMMON PART a.

DATA: BEGIN OF itab_itens_funcao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: END   OF itab_itens_funcao.

DATA: BEGIN OF itab_zyglt100 OCCURS 10.

        INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

DATA: BEGIN OF itab_zycit003 OCCURS 0.

...

...

        v_belnrf05 LIKE itab_zycbt032-belnr,

        v_desp_acr LIKE /pws/zycit049-vldp,

        v_desp_brl LIKE /pws/zycit049-vldp,

        v_evento   LIKE /pws/zyglt321-codeven,

        v_matuse   LIKE /pws/zycbe035-matuse,

        v_salvou  TYPE c.

Data: v_tax_temp type /pws/zycit085-ukursfob.

DATA: v_cif_fat  TYPE /pws/zycie085-vlfob,

      v_tcif_fat TYPE /pws/zycie085-vlfob.

data  v_salvo.

* >> Início da inclusão:

  DATA: v_tam_nrdi(2).

* << Fim da inclusão

DATA: END OF COMMON PART.