Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Despesas
Data/Hora da Publicação: 09/09/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 10:00:15
Descrição da Nota: PROGRAMA DE DESPESA EM ESPANHOL NÃO RECONHECE TIPO DE DOC.
Sintoma
o programa não reconhece tipo de documento na contabilização quando logada em espanhol
Solução
alterar os parametros da seleção dos dados de doc de contabilização de texto para constante
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07287 Data: 09/09/2008 Hora: 16:20:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07287
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06077 - 00003 - 7.0 - 00004 - DESPESAS DE EXPORTAÇÃO
06087 - 00002 - 7.0 - 00004 - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO
06145 - 00001 - 7.0 - 00004 - DESPESAS
----------------------------------------------------------------------------------------------------
PROGRAMA DE DESPESA EM ESPANHOL NÃO RECONHECE TIPO DE DOC.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESA COMPETENCIA EM ESPANHOL NÃO RECONHECE TIPO DE DOC.
CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB105F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
...
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_f63.
DATA: v_ktosl LIKE /pws/zyglt316-ktosl.
* >> Início da inclusão: FORM GET_PARAMETERS_F63
CONSTANTS: C_005PA(5) type c value '005PA' ,
C_005PB(5) TYPE C VALUE '005PB' ,
C_006DA(5) TYPE C VALUE '006DA' ,
C_006DB(5) TYPE C VALUE '006DB' .
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe118-bukrs.
IF /pws/zycbe118-codmod = 'E'.
IF /pws/zycbe118-frpagto = 'C'.
SELECT * UP TO 1 ROWS FROM /pws/zycbt011
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-071
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_005PA
* << Fim da inclusão
AND codmod = 'E'.
ENDSELECT.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-071.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_005PA.
* << Fim da inclusão
ELSEIF /pws/zycbe118-frpagto = 'R'.
SELECT * UP TO 1 ROWS FROM /pws/zycbt011
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-073
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_005PB
* << Fim da inclusão
AND codmod = 'E'.
ENDSELECT.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-071.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_005PA.
* << Fim da inclusão
ENDIF.
ELSEIF /pws/zycbe118-codmod = 'I'.
IF /pws/zycbe118-frpagto = 'C'.
SELECT * FROM /pws/zycbt011
UP TO 1 ROWS
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-047
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DA
* << Fim da inclusão
AND codmod = 'I'.
ENDSELECT.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-047.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DA.
* << Fim da inclusão
ELSEIF /pws/zycbe118-frpagto = 'R'.
SELECT * UP TO 1 ROWS FROM /pws/zycbt011
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-074
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DB
* << Fim da inclusão
AND codmod = 'I'.
ENDSELECT.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-074.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DB.
* << Fim da inclusão
ENDIF.
ELSEIF /pws/zycbe118-codmod = 'F'.
IF /pws/zycbe118-frpagto = 'C'.
SELECT * UP TO 1 ROWS FROM /pws/zycbt011
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-047
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DA
* << Fim da inclusão
AND codmod = 'F'.
ENDSELECT.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-047.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DA .
* << Fim da inclusão
ELSEIF /pws/zycbe118-frpagto = 'R'.
SELECT * UP TO 1 ROWS FROM /pws/zycbt011
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-074
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DB
* << Fim da inclusão
AND codmod = 'F'.
ENDSELECT.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM GET_PARAMETERS_F63
WHERE codeven = text-074.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
WHERE codeven = C_006DB.
* << Fim da inclusão
ENDIF.
ENDIF.
IF /pws/zycbe118-codmod = 'F'.
v_ktosl = 'DGF'.
ELSEIF /pws/zycbe118-codmod = 'E'.
v_ktosl = 'DSE'.
ELSEIF /pws/zycbe118-codmod = 'I'.
v_ktosl = 'DSI'.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
...