CE PLUS - Nota 002970
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 26/01/2007 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:58:36
Descrição da Nota: NÃO ESTÁ PREENCHENDO LOCAL DE NEGÓCIOS NA F-05 E F-51
Sintoma
O doc. contábil do Recebimento, assim como os documentos do encerramento estão
aparecendo sem a numeração do local de negócio.
Solução
Enviar campo local de negócios ao batch input da tela.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02970 Data: 26/01/2007 Hora: 09:34:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02970
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00150
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO ESTÁ PREENCHENDO LOCAL DE NEGÓCIOS NA F-05 E F-51
----------------------------------------------------------------------------------------------------
Palavras Chave:
LOCAL DE NEGÓCIOS - DOCUMENTO DE CONSUMO - VARIAÇÃO CAMBIAL
COMPENSAÇÃO - F-05 - F-51
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_F_05
FUNC /PWS/ZYCI_TRANSACAO_F_51C
REPS /PWS/MZYCI037F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_05
...
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT'
chave = v_chave.
IF sy-subrc <> 0 AND
NOT t_contas-d_sgtxt IS INITIAL.
PERFORM bdc_field USING 'BSEG-SGTXT' t_contas-d_sgtxt.
ENDIF.
PERFORM bdc_field USING:
'BDC_SUBSCR' 'SAPLKACB',
'BDC_OKCODE' '=ZK'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_05
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = v_chave.
IF sy-subrc <> 0.
PERFORM bdc_field USING: 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER'
chave = v_chave.
IF sy-subrc <> 0.
IF t_contas-bschl = 40
OR t_contas-bschl = 50.
PERFORM bdc_field USING 'COBL-GSBER' t_contas-d_gsber.
ELSE.
PERFORM define_campo TABLES t_telas
USING 'COBL-GSBER'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_51C
...
USING v_string_credito.
ENDIF.
IF t_dados-d_valut EQ '00000000'.
WRITE: t_contas-d_valut TO v_data_val_char.
ELSE.
WRITE: t_dados-d_valut TO v_data_val_char.
ENDIF.
PERFORM bdc_screen USING 'SAPMF05A' '0300'.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = v_chave.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51C
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51C
IF sy-subrc <> 0.
* << Fim da inclusão
PERFORM bdc_field USING: 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
WRITE: t_contas-wrbtr TO v_wrbtr CURRENCY t_dados-waers.
PERFORM bdc_field USING 'BSEG-WRBTR' v_wrbtr.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT'
chave = v_chave.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-VALUT' v_data_val_char.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI037F01
...
IMPORTING
v_xblnr = v_xblnr
v_zuonr = v_zuonr
v_sgtxt = v_sgtxt
v_bktxt = v_bktxt
.
itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt = v_sgtxt .
itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr = v_zuonr.
itab_zycbe033-xblnr = v_xblnr.
itab_zycbe033-bktxt = v_bktxt.
* >> Início da inclusão: FORM FILL_DATE_F_05
IF NOT t001w-j_1bbranch IS INITIAL.
itab_zycbe033-brnch = t001w-j_1bbranch.
ELSE.
itab_zycbe033-brnch = /pws/zycie001-j_1bbranch.
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
PERFORM lanctos_variacao_f_05.
CLEAR v_varia.
LOOP AT itab_zycbe035.
itab_zycbe035-wrbtr = abs( itab_zycbe035-wrbtr ).
itab_zycbe035-wrbtr1 = abs( itab_zycbe035-wrbtr ).
CLEAR: v_xblnr, v_zuonr, v_sgtxt, v_bktxt.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
v_nrseq = /pws/zycie001-nrseq
...