Sintoma

Erro na busca dos dados do banco e agência do cadastro do fornecedor para a DI.

Solução

Atualização do programa da DI para que o sistema verifique o parâmetro de quantidade de dígitos para

o banco criado na tabela ZYCIT000.

Informações Complementares

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

Nota Número 03929 Data: 14/06/2007 Hora: 16:00:51

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

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

Nota Número              : 03929

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

02837  - 00001 - 6.0    - 00026  - ALTERAÇÃO NO CAMPO CONTA DO FORNECEDOR NA PASTA PAGAMENTOS

03565  - 00002 - 7.0    - 00001  - REMOVE HIFEN PARA PASSAR O NUMERO DA CONTA E DIGITO PARA O SISCOM

03830  - 00003 - 7.0    - 00001  - AJUSTES PARA TRANSMISSÃO DE DESPESAS DI

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

ERRO AO TRANSMITIR DADOS DA DI, CAMPO BANCO, PASTA PAGAMENTOS

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

Palavras Chave:

ERRO - TRANSMISSÃO DI - SISCOMEX - BANCO - PASTA PAGAMENTOS

CADASTRO DE FORNECEDOR

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

Objetos da nota:

DTEL /PWS/ZYCIL849

FUGR /PWS/ZYCIGF1

FUNC /PWS/ZYCI_TRANSFER_DI

REPS /PWS/MZYCI023F02

TABD /PWS/ZYCIT000

TOBJ /PWS/ZYCIT000S

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

Modificações efetuadas em DTEL /PWS/ZYCIL849

*Foi criado o elemento de dados abaixo:

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

Elemento de dados incluído: /PWS/ZYCIL849

Classe de desenvolvimento:

Idioma original: PT

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

"GL - N° digitos correspondentes ao Banco"

Categoria de dados: Domínio

Domínio: NUMC1

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

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

"N° dig.ban"

Comprimento máximo do denominador médio: 16

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

"N° Digitos Banco"

Comprimento máximo do denominador longo: 20

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

"N° Digitos Banco"

Comprimento máximo do título: 41

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

"GL - N° digitos correspondentes ao  banco"

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI

...

      it_destaque, it_lfbk, it_fat_merc_di.

  v_nrseqdi = i_nrseqdi .

  v_tpdi    = i_tpdi    .

  PERFORM carrega_exits

          CHANGING

              itab_zyglt100[].

  SELECT * UP TO 1 ROWS FROM /pws/zycit085 INTO TABLE it_cabecalho_di

         WHERE nrseqdi EQ i_nrseqdi

           AND tpdi    EQ i_tpdi.

  IF sy-subrc EQ 0.

* >> Início da inclusão:

    read table it_cabecalho_di index 1.

* << Fim da inclusão

    SELECT SINGLE * FROM t001 WHERE bukrs EQ it_cabecalho_di-bukrs.

    SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000

                                WHERE land1 EQ t001-land1.

    SELECT SINGLE * FROM /pws/zycbt007 INTO /pws/zycbt007

                    WHERE bukrs EQ it_cabecalho_di-bukrs.

    IF NOT it_cabecalho_di[] IS INITIAL.

      READ TABLE it_cabecalho_di INDEX 1.

      IF it_cabecalho_di-opfundap IS INITIAL.

        it_cabecalho_di-opfundap = 'N'.

      ELSE.

...

...

        REPLACE '-' WITH ' ' INTO v_banco.

        CONDENSE v_banco NO-GAPS.

        IF NOT lfbk-bkont+1(1) IS INITIAL.

          CONCATENATE v_banco

            lfbk-bkont+1(1)

                      INTO  v_banco.

        ENDIF.

        LOOP AT it_deb_cta_di WHERE lifnr EQ lfbk-lifnr AND

                nrseqdi EQ it_cabecalho_di-nrseqdi.

          MOVE v_banco TO it_deb_cta_di-bankn.

* >> Início da inclusão:

          IF /pws/zycit000-nbanco IS INITIAL.

            /pws/zycit000-nbanco = 3.

          ENDIF.

* << Fim da inclusão

          CONCATENATE lfbk-bankl(3)

* >> Início da exclusão:

                      lfbk-bankl+3(4)

* << Fim da exclusão

* >> Início da inclusão:

                      lfbk-bankl+/pws/zycit000-nbanco

* << Fim da inclusão

                      INTO it_deb_cta_di-bankl.

          MODIFY it_deb_cta_di.

        ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

  ENDIF.

ENDFORM.

FORM load_banco USING p_lifnr p_tipo p_bankl p_bankn p_banks.

  SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND

                                  bvtyp = /pws/zycie085-bukrs.

  IF sy-subrc NE 0.

    SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr.

  ENDIF.

  IF sy-subrc = 0.

    s_pgban = lfbk-bankl+0(03).

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

    s_pgage = lfbk-bankl+3(11).

* << Fim da exclusão

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

    IF /pws/zycit000-nbanco IS INITIAL.

      /pws/zycit000-nbanco = 3.

    ENDIF.

    s_pgage = lfbk-bankl+/pws/zycit000-nbanco.

* << Fim da inclusão

    s_pgcc  = lfbk-bankn.

    IF NOT lfbk-bkont+1(1) IS INITIAL.

      CONCATENATE s_pgcc '-'  lfbk-bkont+1(1) INTO s_pgcc.

    ENDIF.

    s_pgnom = lfbk-koinh.

  ENDIF.

ENDFORM.

FORM load_blag.

  CLEAR: s_agen.

  SELECT SINGLE stcd1 FROM lfa1 INTO s_agen WHERE

...

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

Modificações efetuadas em TABD /PWS/ZYCIT000

*Foi acrescentado o seguinte campo a tabela /PWS/ZYCIT000:

Nome de campo Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

FLAGPISCOF        /PWS/ZYCIL792              CHAR     1

FLAGDRAW          /PWS/ZYCIL798              CHAR     1

KURST             KURST_CURR    TCURV        CHAR     4

FLAG_TRANSP       /PWS/ZYCIL703              CHAR     1

RAT_SEG_FOB       /PWS/ZYCIL842              CHAR     1

CFOP              /PWS/ZYCIL846              CHAR     1

*>>Inicio Inclusão

NBANCO            /PWS/ZYCIL849              NUMC     1

*>>Fim Inclusão

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

Modificações efetuadas em TOBJ /PWS/ZYCIT000S

*Gerada novamente a visão de atualização da tabela /pws/zycit000