CE PLUS - Nota 012118
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Pexpam
Data/Hora da Publicação: 17/04/2012 00:00:00
Data/Hora Última Alteração: 02/07/2012 16:35:17
Descrição da Nota: AJUSTES GERAIS EM PROGRAMA PEXPAM
Sintoma
Encontrado erros em testes de Pexpam
Solução
Atualizado programa para atender a clientes com transmissoes de Siscomex e Pexpam
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12118 Data: 17/04/2012 Hora: 16:30:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12118
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES GERAIS EM PROGRAMA PEXPAM
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTES - PEXPAM
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYCID184
DTEL /PWS/ZYCIL705
FUNC /PWS/ZYCI_TRANSFER_PEXPAM
TABL /PWS/ZYCIT514
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID184
Criar domínio
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID184
Descrição breve incluída (12 caracteres), idioma: PT
"CI - Produto"
Classe de desenvolvimento: /PWS/ZYCI
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 2
Comprimento de saída: 10
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "1"
Texto incluído, idioma: PT (3 caracteres):
"PLI"
Incluído valor fixo "2"
Texto incluído, idioma: PT (6 caracteres):
"PEXPAM"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL705
Criar elemento de dados
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL705
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (12 caracteres), idioma: PT
"CI - Produto"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID184
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (7 caracteres), idioma: PT
"Produto"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (7 caracteres), idioma: PT
"Produto"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (7 caracteres), idioma: PT
"Produto"
Comprimento máximo do título: 10
Título incluído (7 caracteres), idioma: PT
"Produto"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_PEXPAM
...
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
DATA: BEGIN OF it_zycit197 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit197.
DATA: END OF it_zycit197.
DATA: BEGIN OF it_zycit242 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
DATA: BEGIN OF wa_zycit197 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie197.
DATA: END OF wa_zycit197.
DATA: BEGIN OF wa_zycit242 OCCURS 0.
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycit242.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
DATA: END OF it_zycit242.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
DATA: END OF wa_zycit242.
* << Fim da inclusão
...
...
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
DATA: BEGIN OF it_zycit298 OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit298.
DATA: END OF it_zycit298.
* << Fim da exclusão
...
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
CLEAR:pex_cabec, pex_qi, pex_insumo, pex_parameter, it_zycit197,
it_zycit198, it_t005, it_zycit242,it_zycit199, it_zycit293,
it_zycit294, it_zycit298, it_tcurc, it_zycit295, v_netpr.
REFRESH:pex_cabec, pex_qi, pex_insumo,it_zycit197, pex_parameter,
it_zycit198, it_t005, it_zycit242,it_zycit199, it_zycit293,
it_zycit294,it_tcurc, it_zycit295, it_zycit298.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
CLEAR:pex_cabec, pex_qi, pex_insumo, pex_parameter, wa_zycit197,
it_zycit198, it_t005, wa_zycit242,it_zycit199, it_zycit293,
it_zycit294, it_tcurc, it_zycit295, v_netpr.
REFRESH:pex_cabec, pex_qi, pex_insumo, pex_parameter,
it_zycit198, it_t005, it_zycit199, it_zycit293,
it_zycit294,it_tcurc, it_zycit295.
* << Fim da inclusão
...
...
pex_insumo
pex_conhec
pex_detalhe
pex_proddet
pex_di
pex_parameter
USING i_nrseqp
pex_cabec.
ENDIF.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
SELECT * FROM /pws/zycit197
INTO TABLE it_zycit197
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
SELECT SINGLE * FROM /pws/zycit197
INTO wa_zycit197
* << Fim da inclusão
WHERE nrseqp = i_nrseqp.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF NOT it_zycit197[] IS INITIAL.
SELECT * FROM /pws/zycit298
INTO TABLE it_zycit298
FOR ALL ENTRIES IN it_zycit197
WHERE type EQ it_zycit197-type
AND modalidade EQ it_zycit197-modalidade.
LOOP AT it_zycit298.
MOVE : it_zycit298-mandt TO pex_parameter-mandt ,
it_zycit298-type TO pex_parameter-type ,
it_zycit298-modalidade TO pex_parameter-modalidade ,
it_zycit298-equalimp TO pex_parameter-equalimp ,
it_zycit298-equalexp TO pex_parameter-equalexp .
APPEND pex_parameter.
ENDLOOP.
LOOP AT it_zycit197.
MOVE :
it_zycit197-mandt TO pex_cabec-mandt ,
it_zycit197-nrseqp TO pex_cabec-nrseqp ,
it_zycit197-identify TO pex_cabec-identify ,
it_zycit197-dtsolic TO pex_cabec-dtsolic ,
it_zycit197-dtinicio TO pex_cabec-dtinicio ,
it_zycit197-dtvalid TO pex_cabec-dtvalid ,
it_zycit197-nrprot TO pex_cabec-nrprot ,
it_zycit197-nrproc TO pex_cabec-nrproc ,
it_zycit197-anoproc TO pex_cabec-anoproc ,
it_zycit197-nrofic TO pex_cabec-nrofic ,
it_zycit197-modalidade TO pex_cabec-modalidade,
it_zycit197-craft TO pex_cabec-craft ,
it_zycit197-evidence TO pex_cabec-evidence ,
it_zycit197-extension TO pex_cabec-extension ,
it_zycit197-lot_nr TO pex_cabec-lot_nr ,
it_zycit197-lot_ano TO pex_cabec-lot_ano ,
it_zycit197-import TO pex_cabec-import ,
it_zycit197-waers TO pex_cabec-waers ,
it_zycit197-type TO pex_cabec-type .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
SELECT SINGLE * FROM /pws/zycit242
INTO wa_zycit242 "#EC CI_NOWHERE
WHERE plant EQ wa_zycit197-j_1bbranch.
MOVE wa_zycit242-inscsufra TO pex_cabec-inscsufra.
MOVE-CORRESPONDING wa_zycit197 TO pex_cabec.
* << Fim da inclusão
APPEND pex_cabec.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
SELECT SINGLE * FROM /pws/zycit298
INTO pex_parameter
WHERE type EQ wa_zycit197-type
AND modalidade EQ wa_zycit197-modalidade.
* << Fim da inclusão
SELECT * FROM /pws/zycit272 INTO TABLE it_zycit272
WHERE nrseqp EQ i_nrseqp.
SELECT * FROM /pws/zycit293 INTO TABLE it_zycit293
WHERE nrseqp EQ i_nrseqp.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
* << Fim da exclusão
SELECT * FROM /pws/zycit198 INTO TABLE it_zycit198
WHERE nrseqp EQ i_nrseqp.
IF NOT it_zycit198[] IS INITIAL.
READ TABLE it_zycit198 INDEX 1.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
SELECT * FROM /pws/zycit242
INTO TABLE it_zycit242. "#EC CI_NOWHERE
IF NOT it_zycit242[] IS INITIAL.
READ TABLE it_zycit242 INDEX 1.
MOVE :
it_zycit242-inscsufra TO pex_cabec-inscsufra.
MODIFY pex_cabec INDEX 1 TRANSPORTING inscsufra.
ENDIF.
* << Fim da exclusão
LOOP AT it_zycit198.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE :
it_zycit198-mandt TO pex_qi-mandt ,
it_zycit198-nrseqp TO pex_qi-nrseqp ,
it_zycit198-codmat TO pex_qi-codmat ,
it_zycit198-modelo TO pex_qi-modelo ,
it_zycit198-werks TO pex_qi-werks ,
it_zycit198-stlan TO pex_qi-stlan ,
it_zycit198-stlnr TO pex_qi-stlnr ,
it_zycit198-stlal TO pex_qi-stlal ,
it_zycit198-paispa TO pex_qi-paispa ,
it_zycit198-waers TO pex_qi-waers ,
it_zycit198-descr TO pex_qi-descr ,
it_zycit198-modelo TO pex_qi-modelo ,
it_zycit198-vlunit TO pex_qi-vlunit ,
it_zycit198-waers_unit TO pex_qi-waers_unit,
it_zycit198-meins TO pex_qi-meins ,
it_zycit198-qtd_iten TO pex_qi-qtd_iten ,
it_zycit198-netpr TO pex_qi-netpr ,
it_zycit198-ncmcod TO pex_qi-ncmcod ,
it_zycit198-codprod TO pex_qi-codprod ,
it_zycit198-tipoprod TO pex_qi-tipoprod ,
it_zycit198-qtd_ctrl TO pex_qi-qtd_ctrl ,
it_zycit198-codesufr TO pex_qi-codesufr .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE-CORRESPONDING it_zycit198 TO pex_qi.
SELECT SINGLE /pws/codpa FROM t005
INTO pex_qi-codpais
WHERE land1 = pex_qi-paispa.
SELECT SINGLE /pws/codmo FROM tcurc
INTO pex_qi-zcodmoeda
WHERE waers = pex_qi-waers.
* << Fim da inclusão
APPEND pex_qi.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDLOOP.
LOOP AT pex_qi.
IF NOT pex_qi-waers IS INITIAL AND
NOT pex_qi-paispa IS INITIAL .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF NOT it_zycit198-waers IS INITIAL AND
NOT it_zycit198-paispa IS INITIAL .
* << Fim da inclusão
MOVE:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
pex_qi-mandt TO pex_proddet-mandt ,
pex_qi-nrseqp TO pex_proddet-nrseqp ,
pex_qi-codmat TO pex_proddet-codmat ,
pex_qi-modelo TO pex_proddet-matmodelo ,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit198-mandt TO pex_proddet-mandt ,
it_zycit198-nrseqp TO pex_proddet-nrseqp ,
it_zycit198-codmat TO pex_proddet-codmat ,
it_zycit198-modelo TO pex_proddet-matmodelo ,
* << Fim da inclusão
'1' TO pex_proddet-part_det ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
pex_qi-paispa TO pex_proddet-paispa ,
pex_qi-waers TO pex_proddet-waers ,
pex_qi-netpr TO pex_proddet-netpr ,
pex_qi-meins TO pex_proddet-meins ,
pex_qi-qtd_iten TO pex_proddet-qtd_tot ,
pex_qi-codesufr TO pex_proddet-codeprodsuf .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit198-paispa TO pex_proddet-paispa ,
it_zycit198-waers TO pex_proddet-waers ,
it_zycit198-netpr TO pex_proddet-netpr ,
it_zycit198-meins TO pex_proddet-meins ,
it_zycit198-qtd_iten TO pex_proddet-qtd_tot ,
it_zycit198-codesufr TO pex_proddet-codeprodsuf .
* << Fim da inclusão
APPEND pex_proddet.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
ENDLOOP.
IF NOT it_zycit198-paispa IS INITIAL AND
NOT it_zycit198-waers IS INITIAL.
SELECT land1 /pws/codpa FROM t005 INTO TABLE it_t005
FOR ALL ENTRIES IN pex_qi
WHERE land1 = pex_qi-paispa.
IF NOT it_t005[] IS INITIAL.
LOOP AT pex_qi.
READ TABLE it_t005 WITH KEY land1 = pex_qi-paispa.
IF sy-subrc EQ 0.
pex_qi-codpais = it_t005-/pws/codpa.
MODIFY pex_qi TRANSPORTING codpais
WHERE paispa EQ it_t005-land1 .
ENDIF.
ENDLOOP.
ENDIF.
SELECT waers /pws/codmo FROM tcurc INTO TABLE it_tcurc
FOR ALL ENTRIES IN pex_qi
WHERE waers = pex_qi-waers.
IF NOT it_tcurc[] IS INITIAL.
LOOP AT pex_qi.
READ TABLE it_tcurc WITH KEY waers = pex_qi-waers.
IF sy-subrc EQ 0.
pex_qi-zcodmoeda = it_tcurc-zzcodmoeda.
MODIFY pex_qi TRANSPORTING zcodmoeda
WHERE waers EQ it_tcurc-waers.
* << Fim da exclusão
ENDIF.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
CLEAR: it_t005, it_tcurc. REFRESH : it_t005, it_tcurc.
ENDIF.
ENDIF.
* << Fim da exclusão
CLEAR : it_zycit198.
REFRESH: it_zycit198.
SELECT * FROM /pws/zycit199
INTO TABLE it_zycit199
WHERE nrseqp EQ i_nrseqp.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF NOT it_zycit199[] IS INITIAL.
* << Fim da exclusão
LOOP AT it_zycit199.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
CLEAR pex_detalhe.
* << Fim da inclusão
v_netpr = it_zycit199-netpr.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE-CORRESPONDING it_zycit199 TO pex_insumo .
* << Fim da inclusão
IF it_zycit199-orgmat EQ 'P'.
MOVE:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit199-mandt TO pex_insumo-mandt ,
it_zycit199-nrseqp TO pex_insumo-nrseqp ,
it_zycit199-codmat TO pex_insumo-codmat ,
it_zycit199-codcomp TO pex_insumo-codcomp ,
it_zycit199-werks TO pex_insumo-werks ,
it_zycit199-pais_mat TO pex_insumo-pais_mat ,
it_zycit199-waers_mat TO pex_insumo-waers_mat ,
it_zycit199-descr TO pex_insumo-descr ,
it_zycit199-matmodelo TO pex_insumo-matmodelo ,
it_zycit199-descsufr TO pex_insumo-descsufr ,
it_zycit199-nfiscal TO pex_insumo-nfiscal ,
it_zycit199-cnpj TO pex_insumo-cnpj ,
it_zycit199-datadi TO pex_insumo-datadi ,
it_zycit199-j_1bnbm TO pex_insumo-j_1bnbm ,
it_zycit199-detalhe TO pex_insumo-detalhe ,
it_zycit199-meins TO pex_insumo-meins ,
it_zycit199-qtd_iten TO pex_insumo-qtd_iten ,
it_zycit199-perda TO pex_insumo-perda ,
it_zycit199-per TO pex_insumo-per ,
it_zycit199-qtd_tot TO pex_insumo-qtd_tot ,
v_netpr TO pex_insumo-netpr ,
it_zycit199-waers TO pex_insumo-waers ,
it_zycit199-vltot TO pex_insumo-vltot ,
it_zycit199-waerstot TO pex_insumo-waerstot ,
it_zycit199-ncmcod TO pex_insumo-ncmcod ,
it_zycit199-destncm TO pex_insumo-destncm ,
it_zycit199-orgmat TO pex_insumo-orgmat ,
it_zycit199-datanf TO pex_insumo-datanf ,
it_zycit199-numdi TO pex_insumo-numdi ,
it_zycit199-codesufr TO pex_insumo-codesufr ,
it_zycit199-codeprodsuf TO pex_insumo-codeprodsuf ,
it_zycit199-paispa TO pex_insumo-paispa ,
it_zycit199-paispa2 TO pex_insumo-paispa2 ,
it_zycit199-paispa3 TO pex_insumo-paispa3 ,
it_zycit199-paispa4 TO pex_insumo-paispa4 .
IF NOT pex_insumo-per IS INITIAL.
pex_insumo-vlunit = pex_insumo-netpr / pex_insumo-per.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
v_netpr TO pex_insumo-netpr .
* << Fim da inclusão
ELSEIF it_zycit199-orgmat EQ 'E'.
MOVE:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit199-mandt TO pex_insumo-mandt ,
it_zycit199-nrseqp TO pex_insumo-nrseqp ,
it_zycit199-codmat TO pex_insumo-codmat ,
it_zycit199-codcomp TO pex_insumo-codcomp ,
it_zycit199-werks TO pex_insumo-werks ,
it_zycit199-pais_mat TO pex_insumo-pais_mat ,
it_zycit199-waers_mat TO pex_insumo-waers_mat ,
it_zycit199-descr TO pex_insumo-descr ,
it_zycit199-matmodelo TO pex_insumo-matmodelo ,
it_zycit199-descsufr TO pex_insumo-descsufr ,
it_zycit199-nfiscal TO pex_insumo-nfiscal ,
it_zycit199-cnpj TO pex_insumo-cnpj ,
it_zycit199-datadi TO pex_insumo-datadi ,
it_zycit199-j_1bnbm TO pex_insumo-j_1bnbm ,
it_zycit199-detalhe TO pex_insumo-detalhe ,
it_zycit199-meins TO pex_insumo-meins ,
it_zycit199-qtd_iten TO pex_insumo-qtd_iten ,
it_zycit199-perda TO pex_insumo-perda ,
it_zycit199-per TO pex_insumo-per ,
it_zycit199-qtd_tot TO pex_insumo-qtd_tot ,
* << Fim da exclusão
v_netpr TO pex_insumo-netpr ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit199-waers TO pex_insumo-waers ,
it_zycit199-vltot TO pex_insumo-vltot ,
it_zycit199-waerstot TO pex_insumo-waerstot ,
it_zycit199-ncmcod TO pex_insumo-ncmcod ,
space TO pex_insumo-destncm ,
it_zycit199-orgmat TO pex_insumo-orgmat ,
it_zycit199-datanf TO pex_insumo-datanf ,
it_zycit199-numdi TO pex_insumo-numdi ,
it_zycit199-codesufr TO pex_insumo-codesufr ,
it_zycit199-codeprodsuf TO pex_insumo-codeprodsuf ,
it_zycit199-paispa TO pex_insumo-paispa ,
it_zycit199-paispa2 TO pex_insumo-paispa2 ,
it_zycit199-paispa3 TO pex_insumo-paispa3 ,
it_zycit199-paispa4 TO pex_insumo-paispa4 .
IF NOT pex_insumo-per IS INITIAL.
pex_insumo-vlunit = pex_insumo-netpr / pex_insumo-per.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
space TO pex_insumo-destncm .
* << Fim da inclusão
ELSEIF it_zycit199-orgmat EQ 'R' OR it_zycit199-orgmat EQ 'N'.
MOVE:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit199-mandt TO pex_insumo-mandt ,
it_zycit199-nrseqp TO pex_insumo-nrseqp ,
it_zycit199-codmat TO pex_insumo-codmat ,
it_zycit199-codcomp TO pex_insumo-codcomp ,
it_zycit199-werks TO pex_insumo-werks ,
it_zycit199-pais_mat TO pex_insumo-pais_mat ,
it_zycit199-waers_mat TO pex_insumo-waers_mat ,
* << Fim da exclusão
space TO pex_insumo-descr ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit199-matmodelo TO pex_insumo-matmodelo ,
it_zycit199-descsufr TO pex_insumo-descsufr ,
it_zycit199-nfiscal TO pex_insumo-nfiscal ,
it_zycit199-cnpj TO pex_insumo-cnpj ,
it_zycit199-datadi TO pex_insumo-datadi ,
it_zycit199-j_1bnbm TO pex_insumo-j_1bnbm ,
it_zycit199-detalhe TO pex_insumo-detalhe ,
it_zycit199-meins TO pex_insumo-meins ,
it_zycit199-qtd_iten TO pex_insumo-qtd_iten ,
it_zycit199-perda TO pex_insumo-perda ,
it_zycit199-per TO pex_insumo-per ,
it_zycit199-qtd_tot TO pex_insumo-qtd_tot ,
* << Fim da exclusão
v_netpr TO pex_insumo-netpr ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
it_zycit199-waers TO pex_insumo-waers ,
it_zycit199-vltot TO pex_insumo-vltot ,
it_zycit199-waerstot TO pex_insumo-waerstot ,
it_zycit199-ncmcod TO pex_insumo-ncmcod ,
space TO pex_insumo-destncm ,
it_zycit199-orgmat TO pex_insumo-orgmat ,
it_zycit199-datanf TO pex_insumo-datanf ,
it_zycit199-numdi TO pex_insumo-numdi ,
it_zycit199-codesufr TO pex_insumo-codesufr ,
it_zycit199-codeprodsuf TO pex_insumo-codeprodsuf ,
it_zycit199-paispa TO pex_insumo-paispa ,
it_zycit199-paispa2 TO pex_insumo-paispa2 ,
it_zycit199-paispa3 TO pex_insumo-paispa3 ,
it_zycit199-paispa4 TO pex_insumo-paispa4 .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
space TO pex_insumo-destncm .
ENDIF.
* << Fim da inclusão
IF NOT pex_insumo-per IS INITIAL.
pex_insumo-vlunit = pex_insumo-netpr / pex_insumo-per.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF NOT pex_insumo-paispa IS INITIAL AND
NOT pex_insumo-waers IS INITIAL .
SELECT SINGLE /pws/codpa FROM t005
INTO pex_insumo-codpais
WHERE land1 = pex_insumo-paispa.
SELECT SINGLE /pws/codmo FROM tcurc
INTO pex_insumo-zcodmoeda
WHERE waers = pex_insumo-waers.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
APPEND pex_insumo.
ENDLOOP.
LOOP AT pex_insumo.
CLEAR pex_detalhe.
* << Fim da exclusão
IF pex_insumo-orgmat EQ 'P' OR pex_insumo-orgmat EQ 'E'.
IF NOT pex_insumo-waers IS INITIAL AND
NOT pex_insumo-paispa IS INITIAL .
...
...
pex_insumo-pais_mat TO pex_detalhe-pais_mat ,
pex_insumo-waers_mat TO pex_detalhe-waers_mat ,
pex_insumo-waers TO pex_detalhe-waers ,
pex_insumo-per TO pex_detalhe-per ,
pex_insumo-netpr TO pex_detalhe-netpr ,
pex_insumo-vlunit TO pex_detalhe-vlunit ,
pex_insumo-meins TO pex_detalhe-meins ,
pex_insumo-qtd_tot TO pex_detalhe-qtd_tot ,
pex_insumo-codesufr TO pex_detalhe-codesufr ,
pex_insumo-codeprodsuf TO pex_detalhe-codeprodsuf.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
APPEND pex_detalhe.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
ENDLOOP.
LOOP AT pex_insumo.
CLEAR pex_detalhe.
IF pex_insumo-orgmat EQ 'N' OR pex_insumo-orgmat EQ 'R'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ELSEIF pex_insumo-orgmat EQ 'N' OR pex_insumo-orgmat EQ 'R'.
* << Fim da inclusão
READ TABLE it_zycit293 WITH KEY nrseqp = pex_insumo-nrseqp
codmat = pex_insumo-codmat
codcomp = pex_insumo-codcomp.
IF sy-subrc NE 0.
MOVE:
pex_insumo-mandt TO pex_detalhe-mandt ,
pex_insumo-nrseqp TO pex_detalhe-nrseqp ,
pex_insumo-codmat TO pex_detalhe-codmat ,
pex_insumo-codcomp TO pex_detalhe-codcomp ,
pex_insumo-matmodelo TO pex_detalhe-matmodelo ,
...
...
pex_insumo-per TO pex_detalhe-per ,
'1' TO pex_detalhe-part_det ,
pex_insumo-qtd_tot TO pex_detalhe-qtd_tot ,
pex_insumo-vlunit TO pex_detalhe-vlunit ,
space TO pex_detalhe-paispa ,
space TO pex_detalhe-waers ,
pex_insumo-meins TO pex_detalhe-meins ,
pex_insumo-netpr TO pex_detalhe-netpr ,
pex_insumo-codesufr TO pex_detalhe-codesufr ,
pex_insumo-codeprodsuf TO pex_detalhe-codeprodsuf.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
APPEND pex_detalhe.
* << Fim da exclusão
ENDIF.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDLOOP.
IF NOT it_zycit199-paispa IS INITIAL AND
NOT it_zycit199-waers IS INITIAL .
SELECT land1 /pws/codpa FROM t005 INTO TABLE it_t005
FOR ALL ENTRIES IN pex_insumo
WHERE land1 = pex_insumo-paispa.
IF NOT it_t005[] IS INITIAL.
LOOP AT pex_insumo.
READ TABLE it_t005 WITH KEY land1 = pex_insumo-paispa.
IF sy-subrc EQ 0.
pex_insumo-codpais = it_t005-/pws/codpa.
MODIFY pex_insumo TRANSPORTING codpais
WHERE paispa EQ it_t005-land1 .
ENDIF.
ENDLOOP.
ENDIF.
SELECT waers /pws/codmo FROM tcurc INTO TABLE it_tcurc
FOR ALL ENTRIES IN pex_insumo
WHERE waers = pex_insumo-waers.
IF NOT it_tcurc[] IS INITIAL.
LOOP AT pex_insumo.
READ TABLE it_tcurc WITH KEY waers = pex_insumo-waers.
IF sy-subrc EQ 0.
pex_insumo-zcodmoeda = it_tcurc-zzcodmoeda.
MODIFY pex_insumo TRANSPORTING zcodmoeda
WHERE waers EQ it_tcurc-waers.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
APPEND pex_insumo.
* << Fim da inclusão
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
CLEAR: it_t005, it_tcurc. REFRESH : it_t005, it_tcurc.
ENDIF.
ENDIF.
* << Fim da exclusão
LOOP AT it_zycit272 WHERE part_det EQ '3'.
SELECT SINGLE * FROM tcurx WHERE currkey = it_zycit272-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
it_zycit272-netpr =
it_zycit272-netpr / ( 10 ** ( tcurx-currdec - 2 ) ).
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE :
it_zycit272-mandt TO pex_detalhe-mandt ,
it_zycit272-nrseqp TO pex_detalhe-nrseqp ,
it_zycit272-codmat TO pex_detalhe-codmat ,
it_zycit272-codcomp TO pex_detalhe-codcomp ,
it_zycit272-matmodelo TO pex_detalhe-matmodelo ,
it_zycit272-part_det TO pex_detalhe-part_det ,
it_zycit272-paispa TO pex_detalhe-paispa ,
it_zycit272-pais_mat TO pex_detalhe-pais_mat ,
it_zycit272-waers_mat TO pex_detalhe-waers_mat ,
it_zycit272-di TO pex_detalhe-di ,
it_zycit272-waers TO pex_detalhe-waers ,
it_zycit272-per TO pex_detalhe-per ,
it_zycit272-netpr TO pex_detalhe-netpr ,
it_zycit272-meins TO pex_detalhe-meins ,
it_zycit272-qtd_tot TO pex_detalhe-qtd_tot ,
it_zycit272-vltot TO pex_detalhe-vltot ,
it_zycit272-codesufr TO pex_detalhe-codesufr ,
it_zycit272-codeprodsuf TO pex_detalhe-codeprodsuf.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE-CORRESPONDING it_zycit272 TO pex_detalhe.
* << Fim da inclusão
IF NOT it_zycit272-per IS INITIAL.
pex_detalhe-vlunit = it_zycit272-netpr / it_zycit272-per.
ENDIF.
APPEND pex_detalhe.
ENDLOOP.
LOOP AT it_zycit293.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE:
it_zycit293-mandt TO pex_detalhe-mandt ,
it_zycit293-nrseqp TO pex_detalhe-nrseqp ,
it_zycit293-codmat TO pex_detalhe-codmat ,
it_zycit293-codcomp TO pex_detalhe-codcomp ,
it_zycit293-matmodelo TO pex_detalhe-matmodelo ,
it_zycit293-nfiscal TO pex_detalhe-nfiscal ,
it_zycit293-datanf TO pex_detalhe-datanf ,
it_zycit293-per TO pex_detalhe-per ,
it_zycit293-cnpj TO pex_detalhe-cnpj ,
it_zycit293-qtd_iten TO pex_detalhe-qtd_tot ,
it_zycit293-meins TO pex_detalhe-meins ,
it_zycit293-amount TO pex_detalhe-netpr ,
it_zycit293-codesufr TO pex_detalhe-codesufr ,
it_zycit293-codeprodsuf TO pex_detalhe-codeprodsuf.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE-CORRESPONDING it_zycit293 TO pex_detalhe.
* << Fim da inclusão
pex_detalhe-vlunit = pex_detalhe-netpr / pex_detalhe-per.
APPEND pex_detalhe.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDLOOP.
SELECT land1 /pws/codpa FROM t005 INTO TABLE it_t005
FOR ALL ENTRIES IN pex_detalhe
WHERE land1 = pex_detalhe-paispa.
IF NOT it_t005[] IS INITIAL.
LOOP AT pex_detalhe.
READ TABLE it_t005 WITH KEY
land1 = pex_detalhe-paispa.
IF sy-subrc EQ 0.
pex_detalhe-codpais = it_t005-/pws/codpa.
MODIFY pex_detalhe TRANSPORTING codpais
WHERE paispa EQ it_t005-land1 .
ENDIF.
* << Fim da exclusão
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
SELECT waers /pws/codmo FROM tcurc INTO TABLE it_tcurc
FOR ALL ENTRIES IN pex_detalhe
WHERE waers = pex_detalhe-waers.
IF NOT it_tcurc[] IS INITIAL.
LOOP AT pex_detalhe.
READ TABLE it_tcurc WITH KEY
waers = pex_detalhe-waers.
IF sy-subrc EQ 0.
pex_detalhe-codmoeda = it_tcurc-zzcodmoeda.
MODIFY pex_detalhe TRANSPORTING codmoeda
WHERE waers EQ it_tcurc-waers.
ENDIF.
ENDLOOP.
ENDIF.
REFRESH: it_tcurc, it_t005. CLEAR: it_tcurc, it_t005.
* << Fim da exclusão
LOOP AT it_zycit272 WHERE part_det EQ '1'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE :
it_zycit272-mandt TO pex_proddet-mandt ,
it_zycit272-nrseqp TO pex_proddet-nrseqp ,
it_zycit272-codmat TO pex_proddet-codmat ,
it_zycit272-codcomp TO pex_proddet-codcomp ,
it_zycit272-matmodelo TO pex_proddet-matmodelo ,
it_zycit272-part_det TO pex_proddet-part_det ,
it_zycit272-paispa TO pex_proddet-paispa ,
it_zycit272-pais_mat TO pex_proddet-pais_mat ,
it_zycit272-waers_mat TO pex_proddet-waers_mat ,
it_zycit272-waers TO pex_proddet-waers ,
it_zycit272-vltot TO pex_proddet-netpr ,
it_zycit272-meins TO pex_proddet-meins ,
it_zycit272-qtd_tot TO pex_proddet-qtd_tot ,
it_zycit272-codesufr TO pex_proddet-codesufr ,
it_zycit272-codeprodsuf TO pex_proddet-codeprodsuf.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE-CORRESPONDING it_zycit272 TO pex_proddet.
SELECT SINGLE /pws/codpa FROM t005
INTO pex_proddet-codpais
WHERE land1 = pex_proddet-paispa.
SELECT SINGLE /pws/codmo FROM tcurc
INTO pex_proddet-codmoeda
WHERE waers = pex_proddet-waers.
* << Fim da inclusão
APPEND pex_proddet.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDLOOP.
SELECT land1 /pws/codpa FROM t005 INTO TABLE it_t005
FOR ALL ENTRIES IN pex_proddet
WHERE land1 = pex_proddet-paispa.
IF NOT it_t005[] IS INITIAL.
LOOP AT pex_proddet.
READ TABLE it_t005 WITH KEY
land1 = pex_proddet-paispa.
IF sy-subrc EQ 0.
pex_proddet-codpais = it_t005-/pws/codpa.
MODIFY pex_proddet TRANSPORTING codpais
WHERE paispa EQ it_t005-land1 .
ENDIF.
* << Fim da exclusão
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
SELECT waers /pws/codmo FROM tcurc INTO TABLE it_tcurc
FOR ALL ENTRIES IN pex_proddet
WHERE waers = pex_proddet-waers.
IF NOT it_tcurc[] IS INITIAL.
LOOP AT pex_proddet.
READ TABLE it_tcurc WITH KEY
waers = pex_proddet-waers.
IF sy-subrc EQ 0.
pex_proddet-codmoeda = it_tcurc-zzcodmoeda.
MODIFY pex_proddet TRANSPORTING codmoeda
WHERE waers EQ it_tcurc-waers.
ENDIF.
ENDLOOP.
ENDIF.
REFRESH: it_tcurc, it_t005. CLEAR: it_tcurc, it_t005.
* << Fim da exclusão
SELECT * FROM /pws/zycit294 INTO TABLE it_zycit294
WHERE nrseqp EQ i_nrseqp.
IF sy-subrc EQ 0.
LOOP AT it_zycit294.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE:
it_zycit294-mandt TO pex_conhec-mandt ,
it_zycit294-nrseqp TO pex_conhec-nrseqp ,
it_zycit294-identify TO pex_conhec-identify ,
it_zycit294-matnr TO pex_conhec-matnr ,
it_zycit294-dtconh TO pex_conhec-dtconh ,
it_zycit294-tipoconh TO pex_conhec-tipoconh ,
it_zycit294-tipodoc TO pex_conhec-tipodoc ,
it_zycit294-nrseq TO pex_conhec-nrseq ,
it_zycit294-modal TO pex_conhec-modal ,
it_zycit294-paissicomex TO pex_conhec-paissicomex ,
it_zycit294-codigoporto TO pex_conhec-codigoporto ,
it_zycit294-comprimento TO pex_conhec-comprimento ,
it_zycit294-largura TO pex_conhec-largura ,
it_zycit294-altura TO pex_conhec-altura ,
it_zycit294-dinumber TO pex_conhec-dinumber ,
it_zycit294-qtd_iten TO pex_conhec-qtd_iten ,
it_zycit294-meins TO pex_conhec-meins ,
it_zycit294-vlfrete TO pex_conhec-vlfrete ,
it_zycit294-waers TO pex_conhec-waers .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
MOVE-CORRESPONDING it_zycit294 TO pex_conhec.
SELECT SINGLE /pws/codpa FROM t005
INTO pex_conhec-codpais
WHERE land1 = pex_conhec-paissicomex.
SELECT SINGLE codporto FROM /pws/zycit295
INTO pex_conhec-codigoporto
WHERE codpais = pex_conhec-paissicomex.
SELECT SINGLE /pws/codmo FROM tcurc
INTO pex_conhec-codmoeda
WHERE waers = pex_conhec-waers.
* << Fim da inclusão
APPEND pex_conhec.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF it_zycit298-equalimp EQ ' '.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF pex_parameter-equalimp EQ ' '.
* << Fim da inclusão
DELETE pex_conhec WHERE tipodoc EQ 'PLI'.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF it_zycit298-equalexp EQ ' '.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
IF pex_parameter-equalexp EQ ' '.
* << Fim da inclusão
DELETE pex_conhec WHERE tipodoc EQ 'SHI'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
ENDIF.
IF NOT pex_conhec[] IS INITIAL.
SELECT land1 /pws/codpa FROM t005 INTO TABLE it_t005
FOR ALL ENTRIES IN pex_conhec
WHERE land1 = pex_conhec-paissicomex.
SELECT * FROM /pws/zycit295 INTO TABLE it_zycit295
FOR ALL ENTRIES IN pex_conhec
WHERE codpais = pex_conhec-paissicomex.
IF NOT it_t005[] IS INITIAL.
LOOP AT pex_conhec.
READ TABLE it_zycit295 WITH KEY
codpais = pex_conhec-paissicomex.
IF sy-subrc EQ 0.
pex_conhec-codigoporto = it_zycit295-codporto.
READ TABLE it_t005 WITH KEY
land1 = pex_conhec-paissicomex.
IF sy-subrc EQ 0.
pex_conhec-codpais = it_t005-/pws/codpa.
ENDIF.
MODIFY pex_conhec TRANSPORTING codigoporto codpais
WHERE paissicomex EQ it_t005-land1 .
ENDIF.
ENDLOOP.
ENDIF.
SELECT waers /pws/codmo FROM tcurc INTO TABLE it_tcurc
FOR ALL ENTRIES IN pex_conhec
WHERE waers = pex_conhec-waers.
IF NOT it_tcurc[] IS INITIAL.
LOOP AT pex_conhec.
READ TABLE it_tcurc WITH KEY
waers = pex_conhec-waers.
IF sy-subrc EQ 0.
pex_conhec-codmoeda = it_tcurc-zzcodmoeda.
MODIFY pex_conhec TRANSPORTING codmoeda
WHERE waers EQ it_tcurc-waers.
ENDIF.
ENDLOOP.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_PEXPAM
REFRESH: it_tcurc, it_t005. CLEAR: it_tcurc, it_t005.
* << Fim da exclusão
LOOP AT pex_conhec WHERE tipodoc EQ 'PLI'.
MOVE:
pex_conhec-identify TO pex_di-identify ,
pex_conhec-dinumber TO pex_di-dinumber .
APPEND pex_di.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT514
CRIAR TABELA TRANSPARENTE: /PWS/ZYCIT514
DESCRIÇÃO BREVE: CI - SUFRAMA - Param. de Controle de versões CE
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: A Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: CH: INI: Tipo Campo TAB.VERIF.:
MANDT X X MANDT T000
PRODUTO X X /PWS/ZYCIL705
NVERSAO X /PWS/ZYCIL409
ADATE X /PWS/ZYCIL410
AHORA X /PWS/ZYCIL411
USUARIO X /PWS/ZYCIL412
USERNAMEC SYUNAME
DTUSERC SYDATUM
HRUSERC SYSTTIMLO
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0 Dados mestre, tabelas transparentes
CATEGOR. TAMANHO: 0 Registros dados esperados: 0 Até 9.400
(X) - AR. BUFFER NÃO PERMITIDO
Nº DE CPOS CHAVE: 0
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT514S
MODIFICAR VISÃO DA TABELA /PWS/ZYCIT514
INDICAÇÕES TÉCNICAS PARA DIÁLOGO
GRUPO DE AUTORIZAÇÃO: ZYCE - ****** Se não existir, criar na SE54
GRUPO DE FUNÇÕES: /PWS/ZYCIGF1
CL. DESENVOLVIMENTO: /PWS/ZYCI
TELAS DE ATUALIZAÇÃO
CTG. ATUALIZAÇÃO: (X) - 2 NÍVEIS
Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 514
TELA INDIVIDUAL: 14
INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO
ROTINA DE REGISTRO: (X) - ROTINA REG. STANDARD
*Criar a transação /PWS/ZYCIT514
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT514
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Param. de Controle de versões CE
OBJETO DE EXECUÇÃO
(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: Param. de Controle de versões CE
VALOR PROPOSTO PARA
(X) - TRANSAÇÃO SM30 (X) - OMITIR 1ºTELA
CLASSIFICAÇÃO
(X) - HERDAR CARACTERÍSTICAS GUI
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
VIEWNAME /pws/zycit514
UPDATE_LTD X