Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 28/12/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:55:26
Descrição da Nota: SAÍDA DE PAGAMENTO ERRO NA CONTABILIZAÇÃO
Sintoma
Ao Tentar dar a saida de pagamento utilizando banco do exterior o programa não encontra a conta
contabil e emite mensagem de erro. Isto ocorre porque o programa está buscando a conta contábil com
a informação fixa de EMP1.
Solução
trocar o código fixo 'EMP1', para itab_zycbt134-bukrs.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05541 Data: 28/12/2007 Hora: 16:04:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05541
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00027
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05469 - 00001 - 7.0 - 00003 - DESENVOLVIMENTO ADICIONAL - SAÍDA DE PAGAMENTO UTILIZANDO CONTA C
----------------------------------------------------------------------------------------------------
SAÍDA DE PAGAMENTO ERRO NA CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SAÍDA DE PAGAMENTO-CONTABILIZAÇÃO C.CRÉDITO EMP1 FIXO
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK956243 20071228 155941 PWSCB
REPS /PWS/MZYCB115F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F02
...
DATA:
v_codaux1 type /pws/zygle316-codaux1,
v_codaux2 type /pws/zygle316-codaux2.
v_codaux1 = v_bcocred.
V_codaux2 = v_moeda.
SHIFT V_codaux1 LEFT DELETING LEADING '0'.
IF wa_zycbt007-cont_disp EQ 'X'.
IF V_70_PORC EQ 'X'.
PERFORM busca_conta_contabil
USING 'C'
* >> Início da exclusão: FORM SELECIONA_CONTAS_ORDENS
'EMP1'
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTAS_ORDENS
itab_zycbt134-bukrs
* << Fim da inclusão
'FBK'
V_codaux1
V_codaux2
'70'
CHANGING itab_zycbe033-c_newko.
itab_zycbe035-c_newko = itab_zycbe033-c_newko.
APPEND itab_zycbe035.
ELSEIF V_30_PORC EQ 'X'.
PERFORM busca_conta_contabil
USING 'C'
* >> Início da exclusão: FORM SELECIONA_CONTAS_ORDENS
'EMP1'
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTAS_ORDENS
itab_zycbt134-bukrs
* << Fim da inclusão
'FBK'
V_codaux1
V_codaux2
'30'
CHANGING itab_zycbe033-c_newko.
itab_zycbe035-c_newko = itab_zycbe033-c_newko.
APPEND itab_zycbe035.
ENDIF.
ELSE.
PERFORM busca_conta_contabil
USING 'C'
* >> Início da exclusão: FORM SELECIONA_CONTAS_ORDENS
'EMP1'
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTAS_ORDENS
itab_zycbt134-bukrs
* << Fim da inclusão
'FBK'
V_codaux1
V_codaux2
space
CHANGING itab_zycbe033-c_newko.
itab_zycbe035-c_newko = itab_zycbe033-c_newko.
APPEND itab_zycbe035.
ENDIF.
ENDFORM.
FORM consiste_data_lancto_ordens CHANGING p_ok.
...