CE PLUS - Nota 010138
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 07/05/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:23:34
Descrição da Nota: INFORMAR A CONDIÇÃO DE PAGAMENTO NA NOTA FISCAL GLOBAL
Sintoma
Informar a condição de pagamento na nota fiscal global
Solução
Informar a condição de pagamento na nota fiscal global
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10138 Data: 07/05/2010 Hora: 16:35:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10138
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00020
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05734 - 00001 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR
----------------------------------------------------------------------------------------------------
INFORMAR A CONDIÇÃO DE PAGAMENTO NA NOTA FISCAL GLOBAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
PREENCHER - FORMA - PAGAMENTO - NOTA - FISCAL - GLOBAL
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
IF NOT v_lines = v_tabix.
PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=ADIT'.
ENDIF.
ENDLOOP.
PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=BACK'.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT t_dados-zterm IS INITIAL.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=TAB6'.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING:
'J_1BDYDOC-ZTERM' t_dados-zterm.
ENDIF.
* << Fim da inclusão
PERFORM bdc_campo USING:
'BDC_OKCODE' '=TAB4'.
FREE t_msg_aux.
LOOP AT t_message WHERE nrseq = t_dados-nrseq
AND branch = t_dados-branch.
t_msg_aux = t_message.
APPEND t_msg_aux.
ENDLOOP.
CLEAR: v_msgicms, v_msgipi.
CLEAR: v_indice.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
AND ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
READ TABLE itab_t001w WITH KEY werks = itab_zycit042-werks.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
CLEAR v_subrc.
MOVE: itab_zycit042 TO wa_zycit042_exit,
itab_zycit042_d TO wa_zycit042_exit_d.
* >> Início da inclusão: FORM FILL_DATA_J1B1
PERFORM cond_pg.
* << Fim da inclusão
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
regio = itab_t001w-regio.
IF sy-subrc EQ 0.
PERFORM itens_nf.
ELSE.
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
regio = space.
PERFORM itens_nf.
...
...
AND ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
READ TABLE itab_t001w WITH KEY werks = itab_zycit042-werks.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
CLEAR v_subrc.
MOVE: itab_zycit042 TO wa_zycit042_exit,
itab_zycit042_d TO wa_zycit042_exit_d.
* >> Início da inclusão: FORM FILL_DATA_J1B1
PERFORM cond_pg.
* << Fim da inclusão
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
regio = itab_t001w-regio.
IF sy-subrc EQ 0.
PERFORM itens_nf.
ELSE.
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
regio = space.
PERFORM itens_nf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F02
...
* >> Início da inclusão:
FORM cond_pg.
IF it_zycee005-zterm IS INITIAL.
LOOP AT itab_zycit263 WHERE ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp
and eliminado eq space.
READ TABLE itab_zycit006
WITH KEY nrseq_pgfat = itab_zycit263-nrseq_pgfat
lifnr = itab_zycit042-lifnr.
IF sy-subrc EQ 0.
it_zycee005-zterm = itab_zycit006-zterm.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
* << Fim da inclusão