Sintoma

O campo não poderá transmitir ao Siscomex o dígito da conta.

A Agencia não estava correta na DI.

Solução

Refresh no programa da DI para que no momento da transmissão para o sicomex o sistema leve na pasta

"pagamento da DI" somente os números que estão antes do dígito na Conta e para levar os 4 dígitos

cadastrados para a agência.

Informações Complementares

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

Nota Número 02837 Data: 09/01/2007 Hora: 13:34:07

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

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

Nota Número              : 02837

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00146

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ALTERAÇÃO NO CAMPO CONTA DO FORNECEDOR NA PASTA PAGAMENTOS

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

Palavras Chave:

/PWS/ZYCI_TRANSFER_DI,

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSFER_DI

REPS /PWS/MZYCI023F02

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI

...

        s_inco1    LIKE /pws/zycit031-inco1,

        p_moeda    LIKE /pws/zycit005-waersseg,

        p_valor    LIKE /pws/zycit005-vlseg,

        p_prepaid  LIKE /pws/zycit093-prepaid,

        p_collect  LIKE /pws/zycit093-collect,

        p_ternacion  LIKE /pws/zycit093-ternacion,

        v_int  TYPE n,

        s_pgcc(19)   ,

        v_ncm(8)   TYPE c,

        v_linha      TYPE i,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

        v_tabix LIKE sy-tabix.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

        v_tabix LIKE sy-tabix,

  v_banco TYPE lfbk-bankn.

* << Fim da inclusão

  CLEAR:

       it_cabecalho_di, it_itens_di,   it_det_itens_di, it_inst_desp_di,

        it_proc_vinc_di, it_volumes_di,  it_armazens_di,  it_deb_cta_di,

       it_doc_vinc_di, it_prest_cta_di, it_acresc_sisco, it_deduc_sisco,

         it_adicao_di,    it_pagtos_di,   it_parc_var_di, it_nomencl_di,

         it_t005_di,      it_urf_desp_di, it_resumoit_di, it_bl_di,

       it_faturas_di,   it_ag_faturas, it_compl_di, it_destncm, it_forn,

         it_destaque, it_lfbk, it_fat_merc_di.

  REFRESH:

       it_cabecalho_di, it_itens_di,  it_det_itens_di, it_inst_desp_di,

...

...

               FOR ALL ENTRIES IN it_cabecalho_di

               WHERE nrseqdi EQ it_cabecalho_di-nrseqdi.

        SELECT * FROM /pws/zycit095 INTO TABLE it_deb_cta_di

               FOR ALL ENTRIES IN it_cabecalho_di

               WHERE nrseqdi EQ it_cabecalho_di-nrseqdi.

        READ TABLE it_deb_cta_di.

        SELECT SINGLE * FROM lfbk INTO lfbk

               WHERE lifnr EQ it_deb_cta_di-lifnr.

        LOOP AT it_deb_cta_di WHERE lifnr EQ lfbk-lifnr AND

                nrseqdi EQ it_cabecalho_di-nrseqdi.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

          CONCATENATE lfbk-bankn '-'

                      lfbk-bkont+1(1)

                      INTO it_deb_cta_di-bankn.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

          SEARCH lfbk-bankn FOR '-'.

          IF sy-subrc = 0.

            v_banco = lfbk-bankn(sy-fdpos).

            MOVE v_banco TO lfbk-bankn.

          ENDIF.

          MOVE lfbk-bankn TO it_deb_cta_di-bankn.

* << Fim da inclusão

          CONCATENATE lfbk-bankl(3)

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

                      lfbk-bankl+4(4)

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

                      lfbk-bankl+3(4)

* << Fim da inclusão

                      INTO it_deb_cta_di-bankl.

          MODIFY it_deb_cta_di.

        ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

      ENDIF.

    ENDIF.

  ELSEIF v_dit = 'N'.

    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+4(11).

* << Fim da exclusão

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

      s_pgage = lfbk-bankl+3(11).

* << Fim da inclusão

      s_pgcc  = lfbk-bankn.

      IF NOT lfbk-bkont IS INITIAL.

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

      ENDIF.

      s_pgnom = lfbk-koinh.

    ENDIF.

  ENDIF.

ENDFORM.

FORM load_blag.

  CLEAR: s_agen.

...