Sintoma

O preenchimento do campo Convênio crédito recíproco na carta de crédito de exportação não é

obrigatório.

Solução

Novo desenvolvimento para nova funcionalidade da carta de crédito para tornar o preenchimento do

campo Convênio crédito recíproco na carta de crédito de exportação parametrizável.

Informações Complementares

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

Nota Número 07340 Data: 22/09/2008 Hora: 13:45:29

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

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

Nota Número              : 07340

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00066

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CONVÊNIO CRÉDITO RECÍPROCO NA CARTA DE CRÉDITO DE EXPORTAÇÃO

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

Palavras Chave:

CARTA DE CRÉDITO, CONVÊNIO CRÉDITO, PARÂMETRO

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

Objetos da nota:

DTEL /PWS/ZYGLL1403

DYNP /PWS/SAPMZYGL007                        0102

DYNP /PWS/SAPMZYGL007                        0121

MESS /PWS/ZYCBM311

REPS /PWS/MZYCB030F01

REPS /PWS/MZYCB030O01

REPS /PWS/MZYCB030TOP

REPS /PWS/MZYGL007I01

REPS /PWS/MZYGL007O01

REPS /PWS/MZYGL007TOP

REPT /PWS/SAPMZYCB030

TABD /PWS/ZYGLT009

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

Modificações efetuadas em DTEL /PWS/ZYGLL1403

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

Elemento de dados incluído: /PWS/ZYGLL1403

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (31 caracteres), idioma: PT

"GL - Convênio crédito recíproco"

Categoria de dados: Domínio

Domínio: XFELD

ID parâmetro:

Nome componente default:

Documentar modificações: SIM

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (8 caracteres), idioma: PT

"Convênio"

Comprimento máximo do denominador médio: 14

Denominador médio incluído (14 caracteres), idioma: PT

"Convênio Créd."

Comprimento máximo do denominador longo: 20

Denominador longo incluído (20 caracteres), idioma: PT

"Convênio créd. recí."

Comprimento máximo do título: 20

Título incluído (20 caracteres), idioma: PT

"Convênio créd. recí."

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

Modificações efetuadas em DYNP /PWS/SAPMZYGL007                        0102

   SOLICITAR A TELA 0102 DO PROGRAMA /PWS/SAPMZYGL007

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

Modificações efetuadas em DYNP /PWS/SAPMZYGL007                        0121

   SOLICITAR A TELA 0121 DO PROGRAMA /PWS/SAPMZYGL007

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

Modificações efetuadas em MESS /PWS/ZYCBM311

CLASSE DE MENSAGENS

Cl. desenvolvimento: /PWS/ZYGL

Atributos

Idioma Original: PT

Texto breve: GL - Classe de mensagens

NOVA MENSAGEM

Mensagem    Txt. breve mensagem

311         &1 &2 &3

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

Modificações efetuadas em REPS /PWS/MZYCB030F01

...

  ENDIF.

  PERFORM carrega_saldo.

  IF v_vlord < 0.

    IF v_ordven = 'X' OR v_iteov = 'X'.

      MESSAGE i015 WITH text-076 text-077.

    ELSE.

      MESSAGE i015 WITH text-118 text-077.

    ENDIF.

    EXIT.

  ENDIF.

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

   IF NOT /pws/zyglt009-flag_conv_cred IS INITIAL AND

      /pws/zycbe094-convcredr IS INITIAL.

      MESSAGE i311 WITH text-119 text-121 text-120.

      EXIT.

   ENDIF.

* << Fim da inclusão

  IF sy-tcode EQ c_transacao_c AND

     v_tcode IS INITIAL.

    INSERT INTO /pws/zycbt092 VALUES /pws/zycbe092.

    v_existe = 'N'.

    WHILE sy-subrc NE 0.

      PERFORM find_nrseq.

      INSERT INTO /pws/zycbt092 VALUES /pws/zycbe092.

      v_existe = 'S'.

    ENDWHILE.

    v_status_s = '0'.

...

...

    ENDIF.

  ENDIF.

  MOVE /pws/zycbe093 TO /pws/zycbt093.

  MODIFY /pws/zycbt093.

  MOVE /pws/zycbe094 TO /pws/zycbt094.

  MODIFY /pws/zycbt094.

  MOVE /pws/zycbe095 TO /pws/zycbt095.

  MODIFY /pws/zycbt095.

  IF v_ordven = 'X' OR v_iteov = 'X'.

    DELETE FROM /pws/zycbt096 WHERE nrseq = /pws/zycbe092-nrseq AND

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

                                    ovfor = ''.

* << Fim da exclusão

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

                                    ovfor = ''."#EC CI_NOFIRST

* << Fim da inclusão

    LOOP AT itab_zycbt096.

      MOVE itab_zycbt096 TO /pws/zycbt096.

      MODIFY /pws/zycbt096.

    ENDLOOP.

    DELETE FROM /pws/zycbt161 WHERE nrseq = /pws/zycbe092-nrseq AND

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

                                    ovfor = ''.

* << Fim da exclusão

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

                                    ovfor = ''."#EC CI_NOFIRST

* << Fim da inclusão

    LOOP AT itab_zycbt161.

      MOVE itab_zycbt161 TO /pws/zycbt161.

      MODIFY /pws/zycbt161.

    ENDLOOP.

  ELSE.

    DELETE FROM /pws/zycbt096 WHERE nrseq = /pws/zycbe092-nrseq AND

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

                                    ovfor = 'F'.

* << Fim da exclusão

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

                                    ovfor = 'F'."#EC CI_NOFIRST

* << Fim da inclusão

    LOOP AT itab_zycbt096.

      itab_zycbt096-ovfor = 'F'.

      MOVE itab_zycbt096 TO /pws/zycbt096.

      MODIFY /pws/zycbt096.

    ENDLOOP.

    DELETE FROM /pws/zycbt161 WHERE nrseq = /pws/zycbe092-nrseq AND

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

                                    ovfor = 'F'.

* << Fim da exclusão

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

                                    ovfor = 'F'."#EC CI_NOFIRST

* << Fim da inclusão

    LOOP AT itab_zycbt161.

      itab_zycbt161-ovfor = 'F'.

      MOVE itab_zycbt161 TO /pws/zycbt161.

      MODIFY /pws/zycbt161.

    ENDLOOP.

  ENDIF.

  DELETE FROM /pws/zycbt097 WHERE nrseq = /pws/zycbe092-nrseq.

  LOOP AT itab_zycbt097.

    MOVE itab_zycbt097 TO /pws/zycbt097.

    MODIFY /pws/zycbt097.

...

...

    PERFORM popup_message USING text-021 text-022.

    IF v_answer EQ 'J'.

      DELETE /pws/zycbt092 FROM /pws/zycbe092.

      IF sy-subrc EQ 0.

        DELETE FROM /pws/zycbt093 WHERE nrseq EQ /pws/zycbe092-nrseq.

        DELETE FROM /pws/zycbt094 WHERE nrseq EQ /pws/zycbe092-nrseq.

        DELETE FROM /pws/zycbt095 WHERE nrseq EQ /pws/zycbe092-nrseq.

        IF v_ordven = 'X' OR v_iteov = 'X'.

          DELETE FROM /pws/zycbt096

            WHERE nrseq EQ /pws/zycbe092-nrseq AND

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

                  ovfor EQ ''.

* << Fim da exclusão

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

                  ovfor EQ ''."#EC CI_NOFIRST

* << Fim da inclusão

          DELETE FROM /pws/zycbt161

            WHERE nrseq EQ /pws/zycbe092-nrseq AND

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

                  ovfor EQ ''.

* << Fim da exclusão

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

                  ovfor EQ ''."#EC CI_NOFIRST

* << Fim da inclusão

        ELSE.

          DELETE FROM /pws/zycbt096

            WHERE nrseq EQ /pws/zycbe092-nrseq AND

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

                  ovfor EQ 'F'.

* << Fim da exclusão

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

                  ovfor EQ 'F'."#EC CI_NOFIRST

* << Fim da inclusão

          DELETE FROM /pws/zycbt161

            WHERE nrseq EQ /pws/zycbe092-nrseq AND

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

                  ovfor EQ 'F'.

* << Fim da exclusão

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

                  ovfor EQ 'F'."#EC CI_NOFIRST

* << Fim da inclusão

        ENDIF.

        DELETE FROM /pws/zycbt097 WHERE nrseq EQ /pws/zycbe092-nrseq.

...

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

Modificações efetuadas em REPS /PWS/MZYCB030O01

...

MODULE parametros OUTPUT.

  SELECT  empresa

          FROM /pws/zyglt364

          INTO /pws/zyglt364-empresa

          UP TO 1 ROWS

          WHERE usuario EQ sy-uname.

  ENDSELECT.

  IF sy-subrc IS INITIAL.

    SELECT SINGLE * FROM /pws/zycbt007

                    WHERE bukrs EQ /pws/zyglt364-empresa.

* >> Início da inclusão: MODULE PARAMETROS

    SELECT SINGLE * FROM /pws/zyglt009

                    WHERE bukrs EQ /pws/zyglt364-empresa.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

MODULE set_screen OUTPUT.

  IF ( sy-tcode EQ c_transacao_c OR  sy-tcode EQ c_transacao_a )

       AND v_status_s IS INITIAL.

    v_status_s = '1'.

  ENDIF.

  IF v_status_s NE 0.

    LOOP AT SCREEN.

      IF screen-group1 EQ 'GP1'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB030TOP

...

  tgsbt,

  bkpf,"#EC *

  rm06b,

  t16fe,

  t001w,

  /pws/zyglt340,

  /pws/zyglt343,

  /pws/zycbt159,

  /pws/zyglt364,

  j_1bbranch,

* >> Início da exclusão:

  adrc.

* << Fim da exclusão

* >> Início da inclusão:

  adrc,

  /pws/zyglt009.

* << Fim da inclusão

DATA: itab_thead LIKE thead OCCURS 50 WITH HEADER LINE,"#EC *

      itab_tline LIKE tline OCCURS 50 WITH HEADER LINE,

      itab_tline_ant LIKE tline OCCURS 50 WITH HEADER LINE."#EC *

TABLES:

  kna1,

  t005t,

  lfa1,

  tcurc,

  t052u,

  t615t,

...

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

Modificações efetuadas em REPS /PWS/MZYGL007I01

...

    CLEAR /pws/zyglt009-comp_aut_cc.

  ENDIF.

ENDMODULE.

module set_cont_disp input.

  IF v_conts = 'X'.

    /pws/zycbt007-cont_disp = 'X'.

  ELSE.

    /pws/zycbt007-cont_disp = space.

  ENDIF.

endmodule.

* >> Início da inclusão:

module set_campos_121 input.

  IF v_cartacreds = 'X'.

     /pws/zyglt009-flag_conv_cred = 'X'.

  ELSEIF v_cartacredn = 'X'.

    CLEAR /pws/zyglt009-flag_conv_cred.

  ENDIF.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYGL007O01

...

                          AND NOT screen-name EQ 'TAB_GERAL3'

                          AND NOT screen-name EQ 'TAB_CORRET'

                          AND NOT screen-name EQ 'TAB_TAXA'

                          AND NOT screen-name EQ 'TAB_LIMITE'

                          AND NOT screen-name EQ 'TAB_CANC'

                          AND NOT screen-name EQ 'TAB_CONTAB2'

                          AND NOT screen-name EQ 'TAB_GERAIS2'

                          AND NOT screen-name EQ 'TAB_DOWNP'

                          AND NOT screen-name EQ 'TAB_COMIS'

                          AND NOT screen-name EQ 'TAB_TAXA2'

* >> Início da exclusão: MODULE SET_SCREEN

                          AND NOT screen-name EQ 'TAB_DEREX'.

* << Fim da exclusão

* >> Início da inclusão: MODULE SET_SCREEN

                          AND NOT screen-name EQ 'TAB_DEREX'

                          AND NOT screen-name EQ 'TAB_CARTA'.

* << Fim da inclusão

      screen-input = 0.

    ENDIF.

    MODIFY SCREEN.

  ENDLOOP.

ENDMODULE.

MODULE move_dados_pbo OUTPUT.

  MOVE: wa_zycbt007 TO /pws/zycbt007,

        wa_zyglt009 TO /pws/zyglt009,

        wa_zycbt089 TO /pws/zycbt089.

ENDMODULE.

...

...

ENDMODULE.

MODULE set_fdtdoc OUTPUT.

  IF wa_zycbt007-fdtdoc = 'L'.

    v_fdtdoc1 = 'X'.

    CLEAR v_fdtdoc2.

  ELSEIF wa_zycbt007-fdtdoc = 'D'.

    v_fdtdoc2 = 'X'.

    CLEAR v_fdtdoc1.

  ENDIF.

ENDMODULE.

* >> Início da exclusão: MODULE SET_CONTBRL

MODULE set_contbrl OUTPUT."#EC *

* << Fim da exclusão

* >> Início da inclusão: MODULE SET_CONTBRL

MODULE set_contbrl OUTPUT.                                  "#EC *

* << Fim da inclusão

  IF /pws/zyglt009-contbrl = 'X'.

    v_contbrl1 = 'X'.

    CLEAR v_contbrl2.

  ELSE.

    v_contbrl2 = 'X'.

    CLEAR v_contbrl1.

  ENDIF.

ENDMODULE.

MODULE set_infotext OUTPUT.

  IF /pws/zyglt009-infotext = 'X'.

...

...

    CLEAR v_eletro1.

  ENDIF.

ENDMODULE.

MODULE set_bx_cli OUTPUT.

  IF v_bx_cli1 = 'X'.

    /pws/zycbt089-bx_cli_vinc = 'X'.

  ELSEIF v_bx_cli2 = 'X'.

    CLEAR /pws/zycbt089-bx_cli_vinc.

  ENDIF.

ENDMODULE.

* >> Início da exclusão: MODULE BOX_EMPRESA

MODULE box_empresa OUTPUT."#EC *

* << Fim da exclusão

* >> Início da inclusão: MODULE BOX_EMPRESA

MODULE box_empresa OUTPUT.                                  "#EC *

* << Fim da inclusão

  CALL SCREEN 0200.

ENDMODULE.

MODULE status_0200 OUTPUT.

  SET PF-STATUS '0200'.

  SET TITLEBAR 'TL0001' WITH text-087.

ENDMODULE.

* >> Início da exclusão: MODULE USER_COMMAND_0200

MODULE user_command_0200 OUTPUT."#EC *

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_0200

MODULE user_command_0200 OUTPUT.                            "#EC *

* << Fim da inclusão

  CASE sy-ucomm.

    WHEN 'ENTER'.

    WHEN 'CANCEL'.

      LEAVE TO SCREEN 0.

    WHEN OTHERS.

  ENDCASE.

ENDMODULE.

MODULE set_cfm OUTPUT.

  IF /pws/zycbt007-cfm = 'X'.

    v_cfm1 = 'X'.

...

...

ENDMODULE.

MODULE set_cont_disp OUTPUT.

  IF /pws/zycbt007-cont_disp = 'X'.

    v_conts = 'X'.

    CLEAR v_contn.

  ELSEIF /pws/zycbt007-cont_disp = space.

    v_contn = 'X'.

    CLEAR v_conts.

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

module set_campos_121 output.

  IF /pws/zyglt009-flag_conv_cred = 'X'.

    v_cartacreds = 'X'.

    CLEAR v_cartacredn.

  ELSEIF /pws/zyglt009-flag_conv_cred = space.

    v_cartacredn = 'X'.

    CLEAR v_cartacreds.

  ENDIF.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYGL007TOP

...

      ref_fat             TYPE c,

      v_dr_sim            TYPE c,

      v_dr_nao            TYPE c,

      v_me                TYPE c,

      v_mi                TYPE c,

      v_contaimp1(1)     TYPE c,

      v_contaimp2(1)     TYPE c,

      v_contaimp3(1)     TYPE c,

      v_prov_prem(1)     TYPE c,

      v_prov_prem2(1)    TYPE c,

* >> Início da inclusão:

      v_cartacreds       TYPE c,

      v_cartacredn       TYPE c,

* << Fim da inclusão

      v_conts(1)         TYPE c,

      v_contn(1)         TYPE c,

      v_cc1(1)           TYPE c,

      v_cc2(1)           TYPE c,

      v_lei(30),

      v_cambio(30),

      v_f63pa type c,

      v_f43pa type c,

      v_f63pf type c,

      v_f43pf type c,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB030

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 119

Texto: (32 caracteres)

"Campo convênio crédito recíproco"

Comprimento máximo: 68

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 120

Texto: (50 caracteres)

"não preenchido. Carta de crédito não será gravada."

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 121

Texto: (19 caracteres)

"- pasta "Logística""

Comprimento máximo: 19

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

Modificações efetuadas em TABD /PWS/ZYGLT009

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYGLT009

DESCRIÇÃO BREVE: GL - Parâm Gerais Câmbio -  continuação da ZYCBT007

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela Transparente

CLASSE DE ENTREGA:   A

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

CAMPOS:         TP. CAMPO       CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

FLAG_CONV_CRED  /PWS/ZYGLL1403

OPÇÕES TÉCNICAS

TIPO DE DADOS: APPL0

CATEGOR. TAMANHO: 0

(X) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: 0

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.