Sintoma

Ao gravar Fatura de Serviço o campo /PWS/ZYCBT141-TPIMP Tipo de Imposto está em branco.

Solução

Gravar "PRINCIPAL" no campo /PWS/ZYCBT141-TPIMP Tipo de Imposto ao salvar a Fatura de Serviço.

Informações Complementares

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

Nota Número 04494 Data: 22/08/2007 Hora: 17:08:51

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

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

Nota Número              : 04494

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00009

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FATURA DE SERVIÇO

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

Palavras Chave:

CAMPO TIPO DE IMPOSTO; /PWS/ZYCBT141-TPIMP

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

Objetos da nota:

REPS /PWS/MZYCI003F02

REPT /PWS/SAPMZYCI003

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

            /pws/zycie006-nrseqre     TO /pws/zycbt141-nrseq       ,

            itab_zycbt035-d_newko     TO /pws/zycbt141-saknr1      ,

            itab_zycbt035-d_kostl     TO /pws/zycbt141-kostl       ,

            itab_zycbt035-d_prctr     TO /pws/zycbt141-prctr       ,

            itab_zycbt035-aufnr       TO /pws/zycbt141-aufnr       ,

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_psp_pnr  ,

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_posid    ,

            itab_zycbt035-d_fipos     TO /pws/zycbt141-fipos       ,

            itab_zycbt035-d_fictr     TO /pws/zycbt141-fictr       ,

            itab_zycbt035-d_gsber     TO /pws/zycbt141-gsber       ,

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

            text-175                  TO /pws/zycbt141-tpimp       ,

* << Fim da inclusão

            itab_zycbt035-wrbtr       TO /pws/zycbt141-vlremessa   .

          MODIFY /pws/zycbt141 FROM /pws/zycbt141.

        ENDLOOP.

      ENDIF.

    ENDIF.

  ELSE.

    CLEAR /pws/zycbt124.

    IF NOT itab_zycit132-vlparc IS INITIAL.

      IF itab_zycit132-nrseqre IS INITIAL.

        PERFORM busca_sequencialre.

...

...

            itab_zycit132-nrseqre     TO /pws/zycbt141-nrseq       ,

            itab_zycbt035-d_newko     TO /pws/zycbt141-saknr1      ,

            itab_zycbt035-d_kostl     TO /pws/zycbt141-kostl       ,

            itab_zycbt035-d_prctr     TO /pws/zycbt141-prctr       ,

            itab_zycbt035-aufnr       TO /pws/zycbt141-aufnr       ,

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_psp_pnr  ,

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_posid    ,

            itab_zycbt035-d_fipos     TO /pws/zycbt141-fipos       ,

            itab_zycbt035-d_fictr     TO /pws/zycbt141-fictr       ,

            itab_zycbt035-d_gsber     TO /pws/zycbt141-gsber       ,

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

            text-175                  TO /pws/zycbt141-tpimp       ,

* << Fim da inclusão

            itab_zycbt035-wrbtr       TO /pws/zycbt141-vlremessa   .

          MODIFY /pws/zycbt141 FROM /pws/zycbt141.

        ENDLOOP.

      ENDIF.

    ENDIF.

  ENDIF.

  DELETE FROM /pws/zycit263

   WHERE nrseq = itab_zycit003-nrseq

   AND   ebeln = itab_zycit003-ebeln

   AND   ebelp = itab_zycit003-ebelp

...

...

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      e_estorno = 'F-51' .

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa) IF FOUND.

    ENDIF.

  ENDIF.

 IF E_SUBRC EQ 0.

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_F_51D'

     EXPORTING

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

        v_modo                = v_modo_bi

* << Fim da exclusão

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

              v_modo          = v_modo_bi

* << Fim da inclusão

        TABLES

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

        t_dados               = itab_zycbe033

        t_zycbt032            = itab_zycbt032

          t_doc                 = itab_zycbt036

* << Fim da exclusão

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

              t_dados         = itab_zycbe033

              t_zycbt032      = itab_zycbt032

              t_doc           = itab_zycbt036

* << Fim da inclusão

     EXCEPTIONS

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

       campo_em_branco       = 1

       periodo_fechado       = 2

       OTHERS                = 3

            .

* << Fim da exclusão

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

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

* << Fim da inclusão

  READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-51'

                                   tabela  = '/PWS/ZYCIT006'

                                   cpochv  = /pws/zycie006-nrseq

                                   tpmsg   = 'S'.

  IF sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL.

    MESSAGE i010 WITH itab_zycbt032-belnr.

    PERFORM clear_date_batch.

  ELSEIF sy-subrc NE 0.

    LOOP AT itab_zycbt032.

      MESSAGE i015 WITH itab_zycbt032-msg+0(50)

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI003

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 175

Texto: (9 caracteres)

"PRINCIPAL"

Comprimento máximo: 9