CE PLUS - Nota 005261
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Outros
Data/Hora da Publicação: 21/11/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 13:46:43
Descrição da Nota: TRATAMENTO CO-PA EXPORTAÇÃO
Sintoma
Não é possível realizar lançamentos de itens de exportação em CO-PA.
Solução
Desenvolver funcionalidade para lançamento em CO-PA.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05261 Data: 21/11/2007 Hora: 09:36:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05261
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TRATAMENTO CO-PA EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CO-PA
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCE003
CUAD /PWS/SAPMZYCE400
CUAD /PWS/ZYCER401
DOCU NA/PWS/ZYCEM120
DOCU NA/PWS/ZYCEM194
DOCU NA/PWS/ZYCEM195
DOCU NA/PWS/ZYCEM196
DOCU NA/PWS/ZYCEM197
DOCU NA/PWS/ZYCEM198
DOCU NA/PWS/ZYCEM199
DOCU NA/PWS/ZYCEM200
DOCU NA/PWS/ZYCEM201
DOCU NA/PWS/ZYCEM202
DOCU NA/PWS/ZYCEM203
DOCU NA/PWS/ZYCEM204
DOCU NA/PWS/ZYCEM205
DOCU NA/PWS/ZYCEM206
DOCU NA/PWS/ZYCEM207
DOCU NA/PWS/ZYCEM208
DOCU NA/PWS/ZYCEM209
DOMA /PWS/ZYCED710
DOMD /PWS/ZYCED023
DTEL /PWS/ZYCEL710
DTEL /PWS/ZYCEL711
DTEL /PWS/ZYCEL712
DTEL /PWS/ZYCEL713
DTEL /PWS/ZYCEL714
DTEL /PWS/ZYCEL715
ENQU /PWS/EZYCET400
FUNC /PWS/ZYCE_CAMPOS_EXP_CO_PA
FUNC /PWS/ZYCE_DESC_PARAM_CO_PA
FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
FUNC /PWS/ZYCE_MOD_CAMPOS_CO_PA
FUNC /PWS/ZYCE_MOD_ITENS_CO_PA
FUNC /PWS/ZYCE_RET_CAMPOS_EXP
FUNC /PWS/ZYCE_RET_CAMPOS_CO_PA
FUNC /PWS/ZYCE_TRANSACAO_KEBC
MESS /PWS/ZYCEM194
MESS /PWS/ZYCEM195
MESS /PWS/ZYCEM196
MESS /PWS/ZYCEM197
MESS /PWS/ZYCEM198
MESS /PWS/ZYCEM199
MESS /PWS/ZYCEM200
MESS /PWS/ZYCEM201
MESS /PWS/ZYCEM202
MESS /PWS/ZYCEM203
MESS /PWS/ZYCEM204
MESS /PWS/ZYCEM205
MESS /PWS/ZYCEM206
MESS /PWS/ZYCEM207
MESS /PWS/ZYCEM208
MESS /PWS/ZYCEM209
REPS /PWS/MZYCE003F02
REPS /PWS/MZYCE400F01
REPS /PWS/MZYCE400F02
REPS /PWS/MZYCE400I01
REPS /PWS/MZYCE400O01
REPS /PWS/MZYCE400TOP
REPS /PWS/SAPMZYCE400
REPS /PWS/ZYCER135
REPS /PWS/ZYCER401
SHI3 /PWS/ZYCE
SHI6 /PWS/ZYCE
SHLP /PWS/ZYCEA401
SHLP /PWS/ZYCEA403
TABL /PWS/ZYCEE400
TABL /PWS/ZYCEE401
TABL /PWS/ZYCEE402
TABL /PWS/ZYCET323
TABL /PWS/ZYCET400
TABL /PWS/ZYCET401
TABL /PWS/ZYCET403
TRAN /PWS/ZYCER401
TRAN /PWS/ZYCET323
TRAN /PWS/ZYCET400
* Instrução para aplicação de documentação da documentação para mensagens das
* classes de mensagens:
* 1. salve o conteúdo dos ajustes do objeto DOCU /PWS/ZYCEM*** em um arquivo
* texto ZYCEM***.txt correspondente (substitua o "***" pelo número correspon-
* dente da mensagem;
* 2. carregue a documentação da mensagem via "upload..." e selecione o forma-
* to ITF.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCE003
STATUS GUI: 0010_HDR
BARRA DE MENU: Embarque
TÍTULO: Suplementos -> Contabilidade
CÓD. TEXTO
* >> Início da inclusão
F_LCOPA CO-PA
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCE400
STATUS: INICIAL
ATRIBUTOS DE STATUS
TEXTO BREVE: Inicial
CATEGORIA DE STATUS
(X) - STATUS DIÁLOGO
TECLAS DE FUNÇÃO
CÓDIGO DE FUNÇÃO: BACK
TEXTO DE FUNÇÃO: Voltar
CÓDIGO DE FUNÇÃO: ABORT
TEXTO DE FUNÇÃO: Encerrar
CÓDIGO DE FUNÇÃO: CANCEL
TEXTO DE FUNÇÃO: Cancelar
TEXTO INFORMATIVO: Cancela processamento
STATUS: PRINCIPAL
ATRIBUTOS DE STATUS
TEXTO BREVE: Principal
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: EXIBIR
TEXTO DE FUNÇÃO: Exibir
NOME DE ÍCONE: ICON_DISPLAY
TEXTO DE ÍCONE: Exibir
TEXTO INFORMATIVO: Modo de exibição
TECLA DE ATALHO: F5
CÓDIGO DE FUNÇÃO: MODIF
TEXTO DE FUNÇÃO: Modificar
NOME DE ÍCONE: ICON_CHANGE
TEXTO DE ÍCONE: Modificar
TEXTO INFORMATIVO: Modo de modificação
TECLA DE ATALHO: F6
CÓDIGO DE FUNÇÃO: DELE
TEXTO DE FUNÇÃO: Apagar
NOME DE ÍCONE: ICON_DELETE
TEXTO DE ÍCONE: Apagar
TEXTO INFORMATIVO: Apagar parâmetros
TECLA DE ATALHO: Shift-F1
TECLAS DE FUNÇÃO
CÓDIGO DE FUNÇÃO: ENTE
TEXTO DE FUNÇÃO: Atualizar
TEXTO INFORMATIVO: Atualiza dados
CÓDIGO DE FUNÇÃO: SAVE
TEXTO DE FUNÇÃO: Gravar
NOME DE ÍCONE: ICON_SYSTEM_SAVE
TEXTO DE ÍCONES: Gravar
TEXTO INFORMATIVO: Grava campos CO-PA
CÓDIGO DE FUNÇÃO: BACK
TEXTO DE FUNÇÃO: Voltar
CÓDIGO DE FUNÇÃO: ABORT
TEXTO DE FUNÇÃO: Encerrar
CÓDIGO DE FUNÇÃO: CANCEL
TEXTO DE FUNÇÃO: Cancelar
TEXTO INFORMATIVO: Cancela processamento
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/ZYCER401
STATUS GUI: PADRAO
TECLAS DE FUNÇÃO
CÓDIGO DE FUNÇÃO: BACK
TEXTO DE FUNÇÃO: Voltar
STATUS GUI: SUMARIO
TECLAS DE FUNÇÃO
CÓDIGO DE FUNÇÃO: VOLTAR
TEXTO DE FUNÇÃO: Voltar
CÓDIGO DE FUNÇÃO: %PRI
TEXTO DE FUNÇÃO: Imprimir
CÓDIGO DE FUNÇÃO: %SC
TEXTO DE FUNÇÃO: Procurar
CÓDIGO DE FUNÇÃO: %SC+
TEXTO DE FUNÇÃO: Continuar pesquisa
CÓDIGO DE FUNÇÃO: P--
TEXTO DE FUNÇÃO: 1ª página
CÓDIGO DE FUNÇÃO: P-
TEXTO DE FUNÇÃO: Página anterior
CÓDIGO DE FUNÇÃO: P+
TEXTO DE FUNÇÃO: Página seguinte
CÓDIGO DE FUNÇÃO: P++
TEXTO DE FUNÇÃO: Última página
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM120
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM194
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM194
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 30 11 2007
/:FIRST-TIME 10 19 49
/:LAST-USER PWSCE
/:LAST-DATE 30 11 2007
/:LAST-TIME 10 19 57
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
ASForam efetuados lançamentos em CO-PA para os itens selecionados de
receita de vendas.
U1&SYSTEM_RESPONSE&
ASOs itens de receita de vendas não serão estornados.
U1&WHAT_TO_DO&
ASSe desejar ainda assim estornar os itens de receita de vendas, os
lançamentos em CO-PA devem ser estornados primeiro através do programa
de Embarque Exportação, no menu "Suplementos - Contabilização - CO-PA".
U1&SYS_ADMIN&
AS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM195
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM195
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 30 11 2007
/:FIRST-TIME 15 33 51
/:LAST-USER PWSCE
/:LAST-DATE 30 11 2007
/:LAST-TIME 15 33 53
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
ASParametrização dos campos CE - Documentação Exportação não encontrada.
U1&SYSTEM_RESPONSE&
ASOs lançamentos não serão efetuados.
U1&WHAT_TO_DO&
ASVerifique a existência da parametrização dos campos CE - DE através da
transação /PWS/ZYCET323.
U1&SYS_ADMIN&
AS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM196
Nenhuma documentação
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM197
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM197
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 23 11 2007
/:FIRST-TIME 13 50 44
/:LAST-USER PWSCE
/:LAST-DATE 23 11 2007
/:LAST-TIME 13 50 46
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
* Parâmetro de campo CE-DE (CE Exportação) para CO-PA inválido.
U1&SYSTEM_RESPONSE&
* O lançamento não poderá ser realizado.
U1&WHAT_TO_DO&
* O campo de lançamento CO-PA citado foi parametrizado com um campo CE-DE
inválido. Os campos válidos seguem o seguinte padrão:
B1Campos CE-DE para itens de embarque (tabela /PWS/ZYCET002). Exemplos:
VLAGENTER_R, MATNR;
B1Campos dinâmicos de parceiro, com prefixo PARVWxx, onde xx é o tipo de
parceiro (conforme tabela TPAR). Exemplos:
B2PARVWAG (onde AG = Emissor da ordem);
B2PARVWWE (onde WE = Recebedor da mercadoria);
B2PARVWZ1 (onde Z1 = Representante principal);
*
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM198
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM198
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 14 11 2007
/:FIRST-TIME 08 47 04
/:LAST-USER PWSCE
/:LAST-DATE 21 11 2007
/:LAST-TIME 08 11 04
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
ASLançamento em CO-PA para todos os itens do embarque já foram efetuados.
U1&SYSTEM_RESPONSE&
ASNovos lançamentos em CO-PA para esses itens não poderão ser efetuados.
U1&WHAT_TO_DO&
ASVerifique através da transação ke23n os documentos referentes aos
faturamentos lançados em CO-PA.
U1&SYS_ADMIN&
AS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM199
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM199
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 14 11 2007
/:FIRST-TIME 08 43 28
/:LAST-USER PWSCE
/:LAST-DATE 14 11 2007
/:LAST-TIME 08 43 34
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
ASNão houve contabilização da Receita de Vendas para os itens do embarque
a serem lançados em CO-PA.
U1&SYSTEM_RESPONSE&
ASO lançamento em CO-PA não poderá ser efetivado.
U1&WHAT_TO_DO&
ASRealizar a contabilização da Receita de Vendas para os itens desejados
do embarque.
U1&SYS_ADMIN&
AS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM200
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM201
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM202
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM202
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 06 11 2007
/:FIRST-TIME 13 47 44
/:LAST-USER PWSCE
/:LAST-DATE 06 11 2007
/:LAST-TIME 13 47 50
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
ASOs campos CO-PA para a área de resultado solicitada já estão sendo
atualizados por outro usuário, ou por outra instância do mesmo usuário.
U1&SYSTEM_RESPONSE&
ASOs campos CO-PA poderão ser apenas visualizados.
U1&WHAT_TO_DO&
ASAguardar o encerramento da atualização dos campos CO-PA para a área de
resultado solicitada.
U1&SYS_ADMIN&
AS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM203
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM203
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 07 11 2007
/:FIRST-TIME 11 49 23
/:LAST-USER PWSCE
/:LAST-DATE 07 11 2007
/:LAST-TIME 11 49 24
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
ASOs parâmetros para essa área de resultado já existem.
U1&SYSTEM_RESPONSE&
ASNão é possível exibir ou modificar os parâmetros através dessa opção.
U1&WHAT_TO_DO&
ASSelecione "Exibir" ou "Modificar", para exibir ou modificar os
parâmetros, respectivamente.
AS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM204
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM205
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM206
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM207
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM208
Nenhuma documentação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM209
/HTEXT
/:OBJECT DOKU
/:NAME /PWS/ZYCEM209
/:ID NA
/:LANGUAGE P
/:FORM S_DOCU_SHOW
/:STYLE S_DOCUS1
/:FIRST-USER PWSCE
/:FIRST-DATE 09 11 2007
/:FIRST-TIME 15 37 35
/:LAST-USER PWSCE
/:LAST-DATE 14 11 2007
/:LAST-TIME 08 52 46
/:TITLE ' '
/:TITLE1 ' '
/:TITLE2 ' '
/MTEXT
U1&CAUSE&
ASNenhum item de embarque válido para registro de faturamentos já lançados
em CO-PA.
U1&SYSTEM_RESPONSE&
ASNenhum faturamento pôde ser marcado como já lançado em CO-PA.
U1&WHAT_TO_DO&
ASVerifique se há itens de embarque faturados para serem marcados como já
lançados em CO-PA.
U1&SYS_ADMIN&
AS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCED710
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCED710
Descrição breve incluída (26 caracteres), idioma: PT
"CE - Opção Sim/Não"
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "X"
Texto incluído, idioma: PT (3 caracteres):
"Sim"
Incluído valor fixo ""
Texto incluído, idioma: PT (3 caracteres):
"Não"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYCED023
MODIFICAR DOMÍNIO: /PWS/ZYCED023
ÁREA DE VALORES
VALORES INDIVIDUAIS
VALOR FIXO: DESCRIÇÃO BREVE:
...
COM Comissão de Agente
NEX Gerador de XML para NOVOEX
PED Partição de Embarque para Documentos
* >> Início da inclusão
COP Lançamento CO-PA Exportação
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL710
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL710
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (35 caracteres), idioma: PT
"CE - CO-PA: Verificação de incoterm"
Categoria de dados: Domínio
Domínio: /PWS/ZYCED710
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 (10 caracteres), idioma: PT
"Con.inco.?"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (15 caracteres), idioma: PT
"Cons. incoterm?"
Comprimento máximo do denominador longo: 19
Denominador longo incluído (19 caracteres), idioma: PT
"Considera Incoterm?"
Comprimento máximo do título: 19
Título incluído (19 caracteres), idioma: PT
"Considera Incoterm?"
DOCUMENTAÇÃO:
U1 &DEFINITION&
Determina se os valores que compõem a condição de preço fechado deverão ou não ser considerados.
U1 &USE&
Quando o parâmetro estiver igual a "Sim" e o embarque a ser processado possuir preço fechado, as
despesas que compõem o incoterm não serão lançadas e o valor "Condição de Venda" será substituído
pelo valor "Local de Embarque".
U1 &DEPENDENCIES&
Dentro do "Embarque de Exportação" e de outros processos, os valores a serem considerados
dependem da parametrização das condições de valores (transação /PWS/ZYCET156) e da configuração do
incoterm no processo (transação /PWS/ZYCET065).
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL711
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL711
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (26 caracteres), idioma: PT
"CE - CO-PA: Campo de valor"
Categoria de dados: Domínio
Domínio: FDNAME
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 (9 caracteres), idioma: PT
"Cmp. Val."
Comprimento máximo do denominador médio: 15
Denominador médio incluído (10 caracteres), idioma: PT
"Campo Val."
Comprimento máximo do denominador longo: 20
Denominador longo incluído (14 caracteres), idioma: PT
"Campo de Valor"
Comprimento máximo do título: 30
Título incluído (14 caracteres), idioma: PT
"Campo de Valor"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL712
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL712
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (41 caracteres), idioma: PT
"CE - CO-PA: Significado do campo de valor"
Categoria de dados: Domínio
Domínio: REPTEXT
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 (5 caracteres), idioma: PT
"Sign."
Comprimento máximo do denominador médio: 15
Denominador médio incluído (7 caracteres), idioma: PT
"Signif."
Comprimento máximo do denominador longo: 20
Denominador longo incluído (11 caracteres), idioma: PT
"Significado"
Comprimento máximo do título: 30
Título incluído (11 caracteres), idioma: PT
"Significado"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL713
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL713
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (41 caracteres), idioma: PT
"CE - CO-PA: Campo Documentação Exportação"
Categoria de dados: Domínio
Domínio: FDNAME
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
"Cmp. DE"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (15 caracteres), idioma: PT
"Campo Doc .Exp."
Comprimento máximo do denominador longo: 29
Denominador longo incluído (29 caracteres), idioma: PT
"Campo Documentação Exportação"
Comprimento máximo do título: 15
Título incluído (15 caracteres), idioma: PT
"Campo Doc. Exp."
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL714
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL714
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (51 caracteres), idioma: PT
"CE - CO-PA: Descrição Campo Documentação Exportação"
Categoria de dados: Domínio
Domínio: AS4TEXT
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
"Dsc. DE"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (13 caracteres), idioma: PT
"Desc. Cmp. DE"
Comprimento máximo do denominador longo: 39
Denominador longo incluído (39 caracteres), idioma: PT
"Descrição Campo Documentação Exportação"
Comprimento máximo do título: 30
Título incluído (16 caracteres), idioma: PT
"Descr. Doc. Exp."
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL715
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL715
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (43 caracteres), idioma: PT
"CE - CO-PA: Lançamento na moeda do embarque"
Categoria de dados: Domínio
Domínio: /PWS/ZYCED710
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 (10 caracteres), idioma: PT
"Lnc.m.emb?"
Comprimento máximo do denominador médio: 17
Denominador médio incluído (17 caracteres), idioma: PT
"Lanc. moeda emb.?"
Comprimento máximo do denominador longo: 39
Denominador longo incluído (28 caracteres), idioma: PT
"Lançar na moeda do embarque?"
Comprimento máximo do título: 30
Título incluído (28 caracteres), idioma: PT
"Lançar na moeda do embarque?"
DOCUMENTAÇÃO
U1 &DEFINITION&
Define tratamento de conversão de moeda dos valores do embarque para lançamento em CO-PA.
U1 &USE&
Se lançamento for em moeda do embarque ("Sim.), o programa de lançamentos realiza os seguintes
procedimentos:
B1 preenche os campos de lançamento em CO-PA, recuperando a taxa de câmbio utilizada - da moeda do
embarque para a moeda da Área de Resultado -, com referência na data da "Receita de Vendas" e na
"categoria de moeda" do "Evento de Contabilização da Receita" da empresa do embarque exportação.
B1 não converte os valores do embarque para BRL.
B1 preenche o campo "Chave de moeda estrangeira" com a moeda do Embarque.
Se lançamento for em moeda da Área de resultado ("Não"), o programa de lançamentos converte os
montantes dos itens do embarque para moeda da Área de Resultado.
U1 &DEPENDENCIES&
Nenhuma.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em ENQU /PWS/EZYCET400
MODIFICAR OBJETO DE BLOQUEIO: /PWS/EZYCET400
DESCRIÇÃO BREVE: CE - CO-PA: Área de resultado
CARACTERÍSTICAS
( ) AUTORIZAR RFC
TABELAS
TABELA PRIMÁRIA:
NOME: /PWS/ZYCET400
MODO DE BLOQUEIO: Bloqueio de escrita
TABELAS SECUNDÁRIAS:
NOME: MODO BLOQUEIO:
/PWS/ZYCET401 Bloqueio de escrita
PARAM. BLOQUEIO
POND: PARÂMETRO DE BLOQUEIO: TABELA: NOME CAMPO:
X MANDT /PWS/ZYCET400 MANDT
X ERKRS /PWS/ZYCET400 ERKRS
FIENM /PWS/ZYCET401 FIENM
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_CAMPOS_EXP_CO_PA
DESCRIÇÃO: CE - CO-PA: Retorna campos exportação para CO-PA
GRUPO DE FUNÇÕES: /PWS/ZYCEGF6
INTERFACE LOCAL:
TABLES
T_CAMPOS_EXP_CO_PA LIKE /PWS/ZYCET323
* >> Início da inclusão
FUNCTION /PWS/ZYCE_CAMPOS_EXP_CO_PA .
SELECT * FROM /pws/zycet323 INTO TABLE t_campos_exp_co_pa.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_DESC_PARAM_CO_PA
DESCRIÇÃO: CE - CO-PA: Recupera descrições de parâmetros
GRUPO DE FUNÇÕES: /PWS/ZYCEGF6
INTERFACE LOCAL:
TABLES
T_DESCR_PARAM LIKE /PWS/ZYCEE402
* >> Início da inclusão
FUNCTION /PWS/ZYCE_DESC_PARAM_CO_PA.
TYPES:
BEGIN OF t_tipo_moeda,
paledger TYPE tkelt-paledger,
ledbo_bz TYPE tkelt-ledbo_bz,
END OF t_tipo_moeda,
BEGIN OF t_tipo_operacao,
vrgar TYPE tvgat-vrgar,
vrgarx TYPE tvgat-vrgarx,
END OF t_tipo_operacao.
DATA:
it_tipos_moedas TYPE TABLE OF t_tipo_moeda,
it_tipos_operacoes TYPE TABLE OF t_tipo_operacao,
wa_tipo_moeda TYPE t_tipo_moeda,
wa_tipo_operacao TYPE t_tipo_operacao.
SELECT paledger ledbo_bz
FROM tkelt
INTO TABLE it_tipos_moedas
WHERE spras = sy-langu.
SELECT a~vrgar b~vrgarx
FROM tvga AS a
INNER JOIN tvgat AS b
ON a~vrgar = b~vrgar
INTO TABLE it_tipos_operacoes
WHERE b~spras = sy-langu.
CLEAR t_descr_param.
LOOP AT it_tipos_moedas INTO wa_tipo_moeda.
t_descr_param-tpdsc = 'TM'.
t_descr_param-tipo = wa_tipo_moeda-paledger.
t_descr_param-descr = wa_tipo_moeda-ledbo_bz.
APPEND t_descr_param.
ENDLOOP.
LOOP AT it_tipos_operacoes INTO wa_tipo_operacao.
t_descr_param-tpdsc = 'TO'.
t_descr_param-tipo = wa_tipo_operacao-vrgar.
t_descr_param-descr = wa_tipo_operacao-vrgarx.
APPEND t_descr_param.
ENDLOOP.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_ITENS_EMBARQUE_CO_PA
DESCRIÇÃO: CE - CO-PA: Itens do embarque lançados em CO-PA
GRUPO DE FUNÇÕES: /PWS/ZYCEGF6
INTERFACE LOCAL:
IMPORTING
REFERENCE(I_RETORNA_PARCEIROS) TYPE CHAR1 OPTIONAL
TABLES
T_ITENS_EMBARQUE STRUCTURE /PWS/ZYCEE002
T_ITENS_CO_PA STRUCTURE /PWS/ZYCET403 OPTIONAL
T_PARCEIROS STRUCTURE VBPA OPTIONAL
EXCEPTIONS
ITENS_EMBARQUE_INVALIDOS
* >> Início da inclusão
FUNCTION /pws/zyce_itens_embarque_co_pa.
TYPES:
BEGIN OF t_item_parceiro,
vbeln TYPE vbpa-vbeln,
posnr TYPE vbpa-posnr,
parvw TYPE vbpa-parvw,
kunnr TYPE vbpa-kunnr,
lifnr TYPE vbpa-lifnr,
END OF t_item_parceiro.
DATA:
it_itens_parceiro TYPE STANDARD TABLE OF t_item_parceiro,
it_itens_embarque TYPE STANDARD TABLE OF /pws/zycet002,
it_faturamentos TYPE STANDARD TABLE OF /pws/zycet002-vbeln_vf,
wa_item_embarque TYPE /pws/zycet002,
wa_item_parceiro TYPE t_item_parceiro.
MOVE t_itens_embarque[] TO it_itens_embarque.
IF it_itens_embarque IS INITIAL.
RAISE itens_embarque_invalidos.
ENDIF.
SORT it_itens_embarque ASCENDING BY nrseq.
DELETE ADJACENT DUPLICATES FROM it_itens_embarque.
DELETE it_itens_embarque WHERE vbeln_vf = space.
* seleciona lançamentos correspondentes aos itens do embarque.
CHECK NOT it_itens_embarque[] IS INITIAL.
SELECT *
FROM /pws/zycet403
INTO TABLE t_itens_co_pa
FOR ALL ENTRIES IN it_itens_embarque
WHERE
vbeln_vf = it_itens_embarque-vbeln_vf AND
posnr_vf = it_itens_embarque-posnr.
* seleciona parceiros para itens do embarque.
CHECK NOT i_retorna_parceiros IS INITIAL.
LOOP AT it_itens_embarque INTO wa_item_embarque.
APPEND wa_item_embarque-vbeln_vf TO it_faturamentos.
ENDLOOP.
SORT it_faturamentos.
DELETE ADJACENT DUPLICATES FROM it_faturamentos.
SELECT vbeln posnr parvw kunnr lifnr
FROM vbpa
INTO TABLE it_itens_parceiro
FOR ALL ENTRIES IN it_faturamentos
WHERE vbeln = it_faturamentos-table_line AND
posnr = 0.
CLEAR t_parceiros[].
LOOP AT it_itens_parceiro INTO wa_item_parceiro.
MOVE-CORRESPONDING wa_item_parceiro TO t_parceiros.
APPEND t_parceiros.
ENDLOOP.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_MOD_CAMPOS_CO_PA
DESCRIÇÃO: CE - CO-PA: Modificação de dados dos campos
GRUPO DE FUNÇÕES: /PWS/ZYCEGF6
INTERFACE LOCAL:
IMPORTING
REFERENCE(I_PARAM_AREA_RESULTADO) TYPE /PWS/ZYCEE400
REFERENCE(I_MODO) TYPE CHAR1
TABLES
T_CAMPOS_LCT LIKE /PWS/ZYCET401 OPTIONAL
EXCEPTIONS
ERRO_GRAVACAO_CAMPOS_CAB
ERRO_GRAVACAO_CAMPOS_LCT
* >> Início da inclusão
FUNCTION /PWS/ZYCE_MOD_CAMPOS_CO_PA.
CONSTANTS:
c_cr(1) TYPE c VALUE 'C',
c_md(1) TYPE c VALUE 'M',
c_rm(1) TYPE c VALUE 'R'.
DATA wa_cab_campos TYPE /pws/zycet400.
IF i_modo = c_cr OR i_modo = c_md.
LOOP AT t_campos_lct.
t_campos_lct-erkrs = i_param_area_resultado-erkrs.
MODIFY t_campos_lct.
ENDLOOP.
ENDIF.
CASE i_modo.
WHEN c_cr.
INSERT INTO /pws/zycet400 VALUES i_param_area_resultado.
IF sy-subrc NE 0.
RAISE erro_gravacao_campos_cab.
ENDIF.
INSERT /pws/zycet401 FROM TABLE t_campos_lct.
IF sy-subrc NE 0.
ROLLBACK WORK.
RAISE erro_gravacao_campos_cab.
ENDIF.
COMMIT WORK.
WHEN c_md.
MODIFY /pws/zycet400 FROM i_param_area_resultado.
IF sy-subrc NE 0.
RAISE erro_gravacao_campos_cab.
ENDIF.
MODIFY /pws/zycet401 FROM TABLE t_campos_lct.
IF sy-subrc NE 0.
ROLLBACK WORK.
RAISE erro_gravacao_campos_cab.
ENDIF.
COMMIT WORK.
WHEN c_rm.
DELETE FROM:
/pws/zycet401 WHERE erkrs = i_param_area_resultado-erkrs,
/pws/zycet400 WHERE erkrs = i_param_area_resultado-erkrs.
COMMIT WORK.
ENDCASE.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_MOD_ITENS_CO_PA
DESCRIÇÃO: CE - CO-PA: Salva lançamentos efetivados
GRUPO DE FUNÇÕES: /PWS/ZYCEGF6
INTERFACE LOCAL:
IMPORTING
REFERENCE(I_MODO) TYPE CHAR1 DEFAULT 'L'
TABLES
T_ITENS_EMBARQUE LIKE /PWS/ZYCEE002
EXCEPTIONS
ITENS_EMBARQUE_INVALIDOS
* >> Início da inclusão
CONSTANTS c_lancamento(1) TYPE c VALUE 'L'.
DATA wa_item_lancado TYPE /pws/zycet403.
IF t_itens_embarque[] IS INITIAL.
RAISE itens_embarque_invalidos.
ENDIF.
LOOP AT t_itens_embarque.
wa_item_lancado-vbeln_vf = t_itens_embarque-vbeln_vf.
wa_item_lancado-posnr_vf = t_itens_embarque-posnr.
IF NOT t_itens_embarque-dtlancrc IS INITIAL.
wa_item_lancado-stlct = 'X'.
ENDIF.
DELETE FROM /pws/zycet403 WHERE
vbeln_vf = wa_item_lancado-vbeln_vf AND
posnr_vf = wa_item_lancado-posnr_vf.
CHECK i_modo = c_lancamento.
INSERT INTO /pws/zycet403 VALUES wa_item_lancado.
ENDLOOP.
COMMIT WORK.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RET_CAMPOS_EXP
DESCRIÇÃO: CE - CO-PA: Definições dos campos CE - DE
GRUPO DE FUNÇÕES: /PWS/ZYCEGF6
INTERFACE LOCAL:
TABLES
T_CAMPOS_EXP LIKE /PWS/ZYCET323
EXCEPTIONS
CAMPOS_NAO_DEFINIDOS
* >> Início da inclusão
FUNCTION /pws/zyce_ret_campos_exp.
SELECT * FROM /pws/zycet323
INTO TABLE t_campos_exp.
CHECK sy-subrc NE 0.
RAISE campos_nao_definidos.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RET_CAMPOS_CO_PA
DESCRIÇÃO: CE - CO-PA: Recuperação de dados de campos
GRUPO DE FUNÇÕES: /PWS/ZYCEGF6
INTERFACE LOCAL:
IMPORTING
REFERENCE(I_AREA_RESULTADO) TYPE /PWS/ZYCEE400-ERKRS
REFERENCE(I_NOVOS_LCT) TYPE CHAR1 OPTIONAL
EXPORTING
REFERENCE(E_AREA_RESULTADO) TYPE TKEBT-ERKRS_BZ
REFERENCE(E_TIPO_MOEDA_AVAL) TYPE TKEL-CURTP
REFERENCE(E_PARAM_AREA_RESULTADO) TYPE /PWS/ZYCEE400
TABLES
T_CAMPOS_LCT LIKE /PWS/ZYCET401
EXCEPTIONS
AREA_RESULTADO_INVALIDA
AREA_RESULTADO_EXISTE
* >> Início da inclusão
TYPES:
BEGIN OF t_campo_co_pa,
fienm TYPE fieldname,
reptext TYPE reptext,
END OF t_campo_co_pa,
BEGIN OF t_campo_area_result,
fienm TYPE fieldname,
rolnm TYPE rollname,
END OF t_campo_area_result,
BEGIN OF t_campo_descricao,
rolnm TYPE rollname,
reptext TYPE reptext,
END OF t_campo_descricao.
DATA:
it_campos_co_pa TYPE STANDARD TABLE OF t_campo_co_pa,
it_campos_area_result TYPE STANDARD TABLE OF t_campo_area_result,
it_campos_descricao TYPE STANDARD TABLE OF t_campo_descricao,
wa_campo_area_result TYPE t_campo_area_result,
wa_campo_descricao TYPE t_campo_descricao.
IF i_area_resultado IS INITIAL.
RAISE area_resultado_invalida.
ENDIF.
SELECT SINGLE erkrs_bz
FROM tkebt
INTO e_area_resultado
WHERE
erkrs = i_area_resultado AND
spras = sy-langu.
SELECT SINGLE *
FROM /pws/zycet400
INTO e_param_area_resultado
WHERE erkrs = i_area_resultado.
IF sy-subrc NE 0.
IF i_novos_lct IS INITIAL.
RAISE area_resultado_invalida.
ENDIF.
ELSE.
IF NOT i_novos_lct IS INITIAL.
RAISE area_resultado_existe.
ENDIF.
ENDIF.
IF i_novos_lct IS INITIAL.
SELECT SINGLE curtp
FROM tkel
INTO e_tipo_moeda_aval
WHERE paledger = e_param_area_resultado-paledger.
SELECT *
FROM /pws/zycet401
INTO TABLE t_campos_lct
WHERE erkrs = i_area_resultado.
ELSE.
SELECT a~fienm b~rolnm
FROM tkefe AS a
INNER JOIN tkef AS b
ON a~fienm = b~fienm
INTO TABLE it_campos_area_result
WHERE a~erkrs = i_area_resultado.
SELECT rollname scrtext_l
FROM dd04t
INTO TABLE it_campos_descricao
FOR ALL ENTRIES IN it_campos_area_result
WHERE
rollname = it_campos_area_result-rolnm AND
ddlanguage = sy-langu.
CLEAR t_campos_lct.
LOOP AT it_campos_area_result INTO wa_campo_area_result.
READ TABLE it_campos_descricao INTO wa_campo_descricao
WITH KEY rolnm = wa_campo_area_result-rolnm.
MOVE:
wa_campo_area_result-fienm TO t_campos_lct-fienm,
wa_campo_descricao-reptext TO t_campos_lct-txtnm.
APPEND t_campos_lct.
ENDLOOP.
SORT t_campos_lct ASCENDING BY fienm.
ENDIF.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_KEBC
DESCRIÇÃO: CE - CO-PA: Docs.preço int.: administrar arquivo
GRUPO DE FUNÇÕES: /PWS/ZYCEGF2
INTERFACE LOCAL:
IMPORTING
REFERENCE(I_MODO) TYPE CHAR1 DEFAULT 'N'
REFERENCE(I_AREA_RESULTADO) TYPE ERKRS
TABLES
T_MENSAGENS LIKE BDCMSGCOLL
EXCEPTIONS
MODO_NAO_ESPECIFICADO
* >> Início da inclusão
FUNCTION /pws/zyce_transacao_kebc.
PERFORM bdc_screen USING 'SAPLKEA3' '0200'.
PERFORM bdc_field USING:
'BDC_CURSOR' 'RKEA2-ERKRS',
'BDC_OKCODE' '=ENTE',
'RKEA2-ERKRS' i_area_resultado.
IF i_modo IS INITIAL.
RAISE modo_nao_especificado.
ENDIF.
CALL TRANSACTION 'KEBC'
USING itab_bdc
MODE i_modo
UPDATE 'S'
MESSAGES INTO t_mensagens.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM194
194 Lançamentos em CO-PA já efetuados. Estorno não permitido.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM195
195 Definições de campos CE-DE não encontradas.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM196
196 Ação cancelada pelo usuário.
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM197
197 Campo CE-DE &1 inválido para campo CO-PA &2. Verificar parametrização.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM198
198 Lançamentos em CO-PA já efetuados.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM199
199 Não há efetivação da Receita de Vendas. Lançamento não permitido.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM200
200 Campos CO-PA para área de resultado &1 não encontrados.
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM201
201 Erro na gravação dos dados dos campos CO-PA.
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM202
202 Campos CO-PA para área de resultado &1 já estão sendo atualizados.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM203
203 Parâmetros para área de resultado já existem.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM204
204 Erro na remoção dos parâmetros.
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM205
205 Área de resultado para empresa &1 não encontrada.
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM206
206 Definição da área de resultado &1 falhou (transação KBEC).
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM207
207 Esta funcionalidade só pode ser acessada a partir do Embarque Exportação.
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM208
208 Parâmetro &1 salvo com sucesso.
AUTO-EXPLICATIVO? Sim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM209
209 Nenhum item de embarque válido para lançamento CO-PA.
AUTO-EXPLICATIVO? Não
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
PERFORM okcode_funcao USING '/PWS/ZYCE007'
'VOL'
' '
'X'
CHANGING v_chamou.
WHEN 'PARTD'.
PERFORM okcode_part_doc
CHANGING
itab_zycet002[]
v_chamou.
* >> Início da inclusão: FORM TRATA_FUNCIONALIDADES
WHEN 'LCOPA'.
PERFORM okcode_funcao USING '/PWS/ZYCER401'
'COP'
' '
' '
CHANGING v_chamou.
* << Fim da inclusão
WHEN OTHERS.
v_chamou = space.
ENDCASE.
CLEAR wa_controle-okcode_chamada.
okcode = 'DUMMY'.
CHECK v_chamou EQ 'X'.
PERFORM refresh_embarque USING 'X'.
ENDFORM.
FORM okcode_docum CHANGING p_executou TYPE c.
DATA: report_generator TYPE /pws/zycrt012-report_generator.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE400F01
* >> Início da inclusão
FORM carrega_tabctrl.
DATA wa_campo_lct_tc TYPE t_campo_lct.
READ TABLE it_campos_lct INTO wa_campo_lct_tc
INDEX tc_cmplct-current_line.
MOVE-CORRESPONDING wa_campo_lct_tc TO /pws/zycee401.
ENDFORM.
FORM recupera_tabctrl.
DATA wa_campo_lct TYPE t_campo_lct.
v_cmplct_ln = sy-loopc.
READ TABLE it_campos_lct WITH KEY fienm = /pws/zycee401-fienm
TRANSPORTING NO FIELDS.
CHECK sy-subrc = 0.
MOVE-CORRESPONDING /pws/zycee401 TO wa_campo_lct.
MODIFY it_campos_lct FROM wa_campo_lct INDEX tc_cmplct-current_line.
ENDFORM.
FORM comando_usuario_0001.
CASE okcode.
WHEN 'BACK' OR 'CANCEL' OR 'ABORT'.
LEAVE PROGRAM.
WHEN 'EXIBIR'.
CLEAR okcode.
v_modo = c_ex.
PERFORM selecionar_dados USING
/pws/zycee400-erkrs
v_modo.
CALL SCREEN '0100'.
WHEN 'MODIF'.
CLEAR okcode.
v_modo = c_md.
PERFORM selecionar_dados USING
/pws/zycee400-erkrs
v_modo.
CALL SCREEN '0100'.
WHEN 'CRIAR'.
CLEAR:
/pws/zycee400-paledger,
/pws/zycee400-vrgar,
/pws/zycee400-finco,
/pws/zycee400-lmemb,
it_campos_lct,
okcode.
v_modo = c_cr.
PERFORM selecionar_dados USING
/pws/zycee400-erkrs
v_modo.
CALL SCREEN '0100'.
ENDCASE.
ENDFORM.
FORM comando_usuario_0100.
DATA v_confirmacao(1) TYPE c.
CASE okcode.
WHEN 'SAVE'.
CLEAR okcode.
PERFORM grava_dados.
WHEN 'CANCEL'.
CLEAR okcode.
PERFORM desbloqueia_registro USING v_modo /pws/zycee400-erkrs.
LEAVE TO SCREEN '0001'.
WHEN 'BACK'.
CLEAR okcode.
PERFORM desbloqueia_registro USING v_modo /pws/zycee400-erkrs.
LEAVE TO SCREEN '0001'.
WHEN 'ABORT'.
PERFORM desbloqueia_registro USING v_modo /pws/zycee400-erkrs.
LEAVE PROGRAM.
WHEN 'CPCAB'.
CLEAR okcode.
v_tela = c_cmpcab-tela.
ts_co_pa-activetab = c_cmpcab-tab.
WHEN 'CPLCT'.
CLEAR okcode.
v_tela = c_cmplct-tela.
ts_co_pa-activetab = c_cmplct-tab.
WHEN 'DELE'.
CLEAR okcode.
PERFORM confirma_remocao
USING /pws/zycee400-erkrs CHANGING v_confirmacao.
CASE v_confirmacao.
WHEN 'J' OR 'Y'.
PERFORM:
apagar_dados USING /pws/zycee400-erkrs,
desbloqueia_registro USING v_modo /pws/zycee400-erkrs.
ENDCASE.
WHEN 'EXIBIR'.
CLEAR okcode.
PERFORM desbloqueia_registro USING v_modo /pws/zycee400-erkrs.
v_modo = c_ex.
WHEN 'MODIF'.
CLEAR okcode.
v_modo = c_md.
PERFORM bloqueia_registro
USING /pws/zycee400-erkrs CHANGING v_modo.
ENDCASE.
ENDFORM.
FORM comando_usuario_0101.
CASE okcode.
WHEN 'ENTE'.
CLEAR okcode.
PERFORM atualiza_descricoes
USING /pws/zycee400-paledger /pws/zycee400-vrgar
CHANGING tkelt-ledbo_bz tvgat-vrgarx.
ENDCASE.
ENDFORM.
FORM comando_usuario_0102.
DATA v_linhas TYPE sy-tabix.
CASE okcode.
WHEN 'P++' OR 'P+' OR 'P--' OR 'P-'.
DESCRIBE TABLE it_campos_lct LINES v_linhas.
PERFORM paginacao_table_control
USING v_linhas v_cmplct_ln CHANGING v_topo_tc_cmplct.
WHEN OTHERS.
v_topo_tc_cmplct = tc_cmplct-top_line.
ENDCASE.
tc_cmplct-top_line = v_topo_tc_cmplct.
ENDFORM.
FORM ajustes_iniciais.
v_nome_programa = sy-repid.
v_tela = '0101'.
ts_co_pa-activetab = c_cmpcab-tab.
ENDFORM.
FORM paginacao_table_control
USING
p_linhas TYPE sy-tabix
p_cmplct_ln TYPE sy-loopc
CHANGING
p_pagina TYPE sy-tabix.
CASE okcode.
WHEN 'P--'.
p_pagina = 1.
WHEN 'P-'.
SUBTRACT p_cmplct_ln FROM p_pagina.
IF p_pagina LE 0.
p_pagina = 1.
ENDIF.
WHEN 'P+'.
ADD p_cmplct_ln TO p_pagina.
IF p_pagina GE p_linhas.
p_pagina = p_linhas.
ENDIF.
WHEN 'P++'.
p_pagina = p_linhas.
ENDCASE.
IF p_pagina LE 0.
p_pagina = 1.
ENDIF.
CLEAR okcode.
ENDFORM.
FORM ajusta_tela_0101.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'EDT'.
IF v_modo = c_ex.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDFORM.
FORM ajusta_tela_0102.
DATA wa_cols LIKE LINE OF tc_cmplct-cols.
LOOP AT tc_cmplct-cols INTO wa_cols.
CASE wa_cols-screen-group1.
WHEN 'EDT'.
IF v_modo = c_ex.
wa_cols-screen-input = '0'.
ELSE.
wa_cols-screen-input = '1'.
ENDIF.
MODIFY tc_cmplct-cols FROM wa_cols.
ENDCASE.
ENDLOOP.
ENDFORM.
FORM ajusta_status_0001.
SET PF-STATUS 'INICIAL'.
ENDFORM.
FORM ajusta_status_0100 USING p_modo TYPE char1.
TYPES:
BEGIN OF t_btgui,
fcode TYPE rsmpe-func,
END OF t_btgui,
BEGIN OF t_stgui,
modo(1) TYPE c,
btgui TYPE t_btgui OCCURS 0,
END OF t_stgui.
STATICS it_stgui TYPE STANDARD TABLE OF t_stgui.
DATA:
v_tabix TYPE sy-tabix,
wa_stgui TYPE t_stgui,
wa_btgui TYPE t_btgui.
DEFINE insere_btgui.
wa_btgui-fcode = &2.
clear wa_stgui.
read table it_stgui into wa_stgui
with key modo = &1.
if sy-subrc = 0.
v_tabix = sy-tabix.
append wa_btgui to wa_stgui-btgui.
modify it_stgui from wa_stgui index v_tabix.
else.
wa_stgui-modo = &1.
append:
wa_btgui to wa_stgui-btgui,
wa_stgui to it_stgui.
endif.
END-OF-DEFINITION.
IF it_stgui IS INITIAL.
insere_btgui:
c_ex 'EXIBIR',
c_ex 'DELE',
c_ex 'SAVE',
c_md 'MODIF',
c_cr 'EXIBIR',
c_cr 'MODIF',
c_cr 'DELE'.
ENDIF.
READ TABLE it_stgui INTO wa_stgui
WITH KEY modo = p_modo.
SET PF-STATUS 'PRINCIPAL' EXCLUDING wa_stgui-btgui.
ENDFORM.
FORM ajusta_descricao.
DATA wa_campo_exp TYPE /pws/zycet323.
IF /pws/zycee401-fiede IS INITIAL.
CLEAR /pws/zycee401-txtde.
ENDIF.
CHECK NOT /pws/zycee401-fiede IS INITIAL AND
/pws/zycee401-txtde IS INITIAL AND
NOT it_campos_exp IS INITIAL.
READ TABLE it_campos_exp INTO wa_campo_exp WITH KEY
campo = /pws/zycee401-fiede.
CHECK sy-subrc = 0.
/pws/zycee401-txtde = wa_campo_exp-descr.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE400F02
* >> Início da inclusão
FORM selecionar_dados USING
p_area_resultado TYPE /pws/zycee400-erkrs
p_modo TYPE char1.
DATA:
v_nvlct(1) TYPE c,
wa_campo_lct TYPE t_campo_lct.
CLEAR v_nvlct.
IF p_modo = c_cr.
v_nvlct = 'X'.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_RET_CAMPOS_CO_PA'
EXPORTING
i_area_resultado = p_area_resultado
i_novos_lct = v_nvlct
IMPORTING
e_param_area_resultado = /pws/zycee400
e_area_resultado = tkes-rolnm
TABLES
t_campos_lct = it_campos_lct
EXCEPTIONS
area_resultado_invalida = 1
area_resultado_existe = 2.
CASE sy-subrc.
WHEN 1.
MESSAGE e200(/pws/zycem) WITH p_area_resultado.
WHEN 2.
MESSAGE e203(/pws/zycem).
ENDCASE.
IF p_modo = c_md.
PERFORM bloqueia_registro
USING /pws/zycee400-erkrs CHANGING v_modo.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_CAMPOS_EXP_CO_PA'
TABLES
t_campos_exp_co_pa = it_campos_exp.
CHECK p_modo = c_md OR p_modo = c_ex.
PERFORM atualiza_descricoes
USING /pws/zycee400-paledger /pws/zycee400-vrgar
CHANGING tkelt-ledbo_bz tvgat-vrgarx.
ENDFORM.
FORM grava_dados.
DATA wa_campo_lct TYPE t_campo_lct.
CALL FUNCTION '/PWS/ZYCE_MOD_CAMPOS_CO_PA'
EXPORTING
i_param_area_resultado = /pws/zycee400
i_modo = v_modo
TABLES
t_campos_lct = it_campos_lct
EXCEPTIONS
erro_gravacao_campos_cab = 1
erro_gravacao_campos_lct = 2.
IF sy-subrc NE 0.
MESSAGE e201(/pws/zycem).
ELSE.
v_modo = c_md.
MESSAGE s208(/pws/zycem) WITH /pws/zycee400-erkrs.
ENDIF.
ENDFORM.
FORM bloqueia_registro
USING p_area_resultado TYPE /pws/zycee400-erkrs
CHANGING p_modo TYPE char1.
CALL FUNCTION 'ENQUEUE_/PWS/EZYCET400'
EXPORTING
mode_/pws/zycet400 = 'E'
mode_/pws/zycet401 = 'E'
mandt = sy-mandt
erkrs = p_area_resultado
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
IF sy-subrc NE 0.
MESSAGE w202(/pws/zycem) WITH p_area_resultado.
p_modo = c_ex.
ENDIF.
ENDFORM.
FORM desbloqueia_registro
USING
p_modo TYPE char1
p_area_resultado TYPE erkrs.
CHECK p_modo = c_md.
CALL FUNCTION 'DEQUEUE_/PWS/EZYCET400'
EXPORTING
mandt = sy-mandt
erkrs = p_area_resultado.
ENDFORM.
FORM atualiza_descricoes
USING
p_paledger TYPE /pws/zycee400-paledger
p_vrgar TYPE /pws/zycee400-vrgar
CHANGING
p_ledbo_bz TYPE tkelt-ledbo_bz
p_vrgarx TYPE tvgat-vrgarx.
STATICS it_descr_param TYPE STANDARD TABLE OF /pws/zycee402.
DATA wa_descr_param TYPE /pws/zycee402.
IF it_descr_param IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_DESC_PARAM_CO_PA'
TABLES
t_descr_param = it_descr_param.
ENDIF.
READ TABLE it_descr_param INTO wa_descr_param
WITH KEY tpdsc = 'TM' tipo = p_paledger.
p_ledbo_bz = wa_descr_param-descr.
READ TABLE it_descr_param INTO wa_descr_param
WITH KEY tpdsc = 'TO' tipo = p_vrgar.
p_vrgarx = wa_descr_param-descr.
ENDFORM.
FORM confirma_remocao
USING p_area_resultado TYPE /pws/zycee400-erkrs
CHANGING p_confirmacao TYPE char1.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = 'Deseja apagar os parâmetros?'(001)
titel = 'Preenchimento de Campos no CO-PA'(002)
start_column = 25
start_row = 6
IMPORTING
answer = p_confirmacao
EXCEPTIONS
OTHERS = 1.
CHECK sy-subrc = 0.
ENDFORM.
FORM apagar_dados USING p_area_resultado TYPE /pws/zycee400-erkrs.
DATA wa_param_area_resultado TYPE /pws/zycee400.
wa_param_area_resultado-erkrs = p_area_resultado.
CALL FUNCTION '/PWS/ZYCE_MOD_CAMPOS_CO_PA'
EXPORTING
i_param_area_resultado = wa_param_area_resultado
i_modo = 'R'
EXCEPTIONS
OTHERS = 1.
IF sy-subrc NE 0.
MESSAGE e204(/pws/zycem).
ENDIF.
LEAVE TO SCREEN '0001'.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE400I01
* >> Início da inclusão
MODULE recupera_tabctrl INPUT.
PERFORM recupera_tabctrl.
ENDMODULE.
MODULE comando_usuario INPUT.
CASE sy-dynnr.
WHEN '0001'.
PERFORM comando_usuario_0001.
WHEN '0100'.
PERFORM comando_usuario_0100.
WHEN '0101'.
PERFORM comando_usuario_0101.
WHEN '0102'.
PERFORM comando_usuario_0102.
ENDCASE.
ENDMODULE.
MODULE ajusta_descricao INPUT.
PERFORM ajusta_descricao.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE400O01
* >> Início da inclusão
MODULE carrega_tabctrl OUTPUT.
PERFORM carrega_tabctrl.
ENDMODULE.
MODULE ajustes_iniciais OUTPUT.
PERFORM ajustes_iniciais.
ENDMODULE.
MODULE ajusta_status OUTPUT.
CASE sy-dynnr.
WHEN '0001'.
PERFORM ajusta_status_0001.
WHEN '0100'.
PERFORM ajusta_status_0100 using v_modo.
ENDCASE.
ENDMODULE.
MODULE ajusta_tc_cmplct OUTPUT.
tc_cmplct-lines = v_cmplct_ln + sy-srows - 3.
ENDMODULE.
MODULE ajusta_tela OUTPUT.
CASE sy-dynnr.
WHEN '0101'.
PERFORM ajusta_tela_0101.
WHEN '0102'.
PERFORM ajusta_tela_0102.
ENDCASE.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE400TOP
* >> Início da inclusão
CONTROLS:
tc_cmplct TYPE TABLEVIEW USING SCREEN '0102',
ts_co_pa TYPE TABSTRIP.
TABLES:
tkes,
tkelt,
tvgat,
/pws/zycee400,
/pws/zycee401.
TYPES t_campo_lct TYPE /pws/zycet401.
CONSTANTS:
c_ex(1) TYPE c VALUE 'E',
c_md(1) TYPE c VALUE 'M',
c_cr(1) TYPE c VALUE 'C',
BEGIN OF c_cmpcab,
tela TYPE sy-dynnr VALUE '0101',
tab TYPE sy-ucomm VALUE 'CPCAB',
END OF c_cmpcab,
BEGIN OF c_cmplct,
tela TYPE sy-dynnr VALUE '0102',
tab TYPE sy-ucomm VALUE 'CPLCT',
END OF c_cmplct.
DATA:
it_campos_lct TYPE STANDARD TABLE OF t_campo_lct,
it_campos_exp TYPE STANDARD TABLE OF /pws/zycet323,
okcode TYPE sy-ucomm,
v_modo(1) TYPE c,
v_nome_programa TYPE sy-repid,
v_tela TYPE sy-dynnr,
v_cmplct_ln TYPE sy-loopc,
v_topo_tc_cmplct TYPE i.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE400
MODIFICAR SÍMBOLOS DE TEXTO :
TEXTOS NOVOS:
SÍM.: TEXTO: CD. CM.
001 Deseja apagar os parâmetros? 28 28
002 Preenchimento de Campos no CO-PA 32 32
* >> Início da inclusão
PROGRAM /PWS/SAPMZYCE400 .
INCLUDE:
/PWS/MZYCE400TOP,
/PWS/MZYCE400O01,
/PWS/MZYCE400I01,
/PWS/MZYCE400F01,
/PWS/MZYCE400F02.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE400 0001
TELA 0001:
DESCRIÇÃO BREVE: Seleção de Campos
TIPO DE TELA: Normal
OUTROS ATRIBUTOS:
TELA SEGUINTE: 1
LINHAS/COLUNAS:
ATUAL 27,120
INCLUIR TEXTO: /PWS/ZYCEE400-ERKRS
TEXTO: Área de Resultado
LINHA: 1 COLUNA: 1
COMPR.VIS.: 20 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [2] Texto: Médio
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
(X) - COM DENOM. À ESQUERDA
INCLUIR CAMPO: /PWS/ZYCEE400-ERKRS
LINHA: 1 COLUNA: 22
COMPR.VIS.: 4 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara, original do dicionário
ID PARÂMETRO: ERB
(X) - VERIF. CHAVE EXTERNA
PROGRAMA:
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR BOTÃO: BT_EX
TEXTO: Exibir
NOME DE ÍCONE: ICON_DISPLAY
TXT.INFO.RÁP.: Exibir
LINHA: 3 COLUNA: 1
COMPR.VIS.: 11 ALTURA: 1
CÓD. FUNÇÃO: EXIBIR
DICIONÁRIO:
Nenhum ajuste.
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR BOTÃO: BT_MD
TEXTO: Modificar
NOME DE ÍCONE: ICON_CHANGE
TXT.INFO.RÁP.: Modif.
LINHA: 3 COLUNA: 14
COMPR.VIS.: 14 ALTURA: 1
CÓD. FUNÇÃO: MODIF
DICIONÁRIO:
Nenhum ajuste.
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR BOTÃO: BT_CR
TEXTO: Criar
NOME DE ÍCONE: ICON_CREATE
TXT.INFO.RÁP.: Criar
LINHA: 3 COLUNA: 30
COMPR.VIS.: 10 ALTURA: 1
CÓD. FUNÇÃO: CRIAR
DICIONÁRIO:
Nenhum ajuste.
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
LÓGICA DE PROCESSAMENTO
PROCESS BEFORE OUTPUT.
MODULE:
ajusta_status,
ajustes_iniciais.
PROCESS AFTER INPUT.
MODULE comando_usuario.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE400 0100
TELA 0100:
DESCRIÇÃO BREVE: Dados dos campos
TIPO DE TELA: Normal
OUTROS ATRIBUTOS:
TELA SEGUINTE: 0100
LINHAS/COLUNAS:
ATUAL 80,120
INCLUIR TEXTO: /PWS/ZYCEE400-ERKRS
TEXTO: Área de Resultado
LINHA: 1 COLUNA: 1
COMPR.VIS.: 20 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [2] Texto: Médio
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
(X) - COM DENOM. À ESQUERDA
INCLUIR CAMPO: /PWS/ZYCEE400-ERKRS
LINHA: 1 COLUNA: 22
COMPR.VIS.: 4 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
ID PARÂMETRO: ERB
(X) - VERIF. CHAVE EXTERNA
PROGRAMA:
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR CAMPO: TKES-ROLNM
LINHA: 1 COLUNA: 28
COMPR.VIS.: 30 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
ID PARÂMETRO: ROL
PROGRAMA:
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR TAB STRIP: TS_CO_PA
LINHA: 2 COLUNA: 1
COMPR.VIS.: 103 ALTURA: 79
ATRIBUTOS:
ELEM. ÍND 2
REDIMENS: (X) - VERTICAL (X) - HORIZONTAL
6 - LINHAS MIN. 30 - COLUNAS MIN.
INCLUIR BOTÃO: TS_CAMPOS_EMB (EM TS_CO_PA)
TEXTO: Campos do cabeçalho
LINHA: 1 COLUNA: 1
COMPR.VIS.: 19 ALTURA: 1
CÓD. FUNÇÃO: CPCAB
DICIONÁRIO:
FORMATO: CHAR
CPO. REF. SS_CO_PA
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR BOTÃO: TS_CAMPO_LCT (EM TS_CO_PA)
TEXTO: Campos do lançamento
LINHA: 1 COLUNA: 2
COMPR.VIS.: 20 ALTURA: 1
CÓD. FUNÇÃO: CPLCT
DICIONÁRIO:
FORMATO: CHAR
CPO. REF. SS_CO_PA
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR SUBTELA: SS_CO_PA
LINHA: 4 COLUNA: 2
COMPR.VIS.: 101 ALTURA: 76
ATRIBUTOS
(X) - POSS. ROLAGEM
REDIMENSIONAMENTO
(X) - VERTICAL LINHAS MÍN.: 3
(X) - HORIZONTAL COLUNAS MÍN.: 3
LÓGICA DE PROCESSAMENTO
PROCESS BEFORE OUTPUT.
MODULE ajusta_status.
CALL SUBSCREEN ss_co_pa INCLUDING v_nome_programa v_tela.
PROCESS AFTER INPUT.
CALL SUBSCREEN ss_co_pa.
MODULE comando_usuario.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE400 0101
TELA 0101:
DESCRIÇÃO BREVE: Campos de Cabeçalho
TIPO DE TELA: Subtela
OUTROS ATRIBUTOS:
TELA SEGUINTE: 0101
LINHAS/COLUNAS:
ATUAL 8,60
INCLUIR QUADRO: QD_DADOS_BASICOS
TEXTO: Dados_Básicos
LINHA: 1 COLUNA: 1
COMPR.VIS.: 60 ALTURA: 4
INCLUIR TEXTO: /PWS/ZYCEE400-PALEDGER
TEXTO: Tipo de Moeda
LINHA: 2 COLUNA: 3
COMPR.VIS.: 20 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [3] Text: long
PROGRAMA:
Nenhum campo ajustado.
EXIBIÇÃO:
(X) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE400-PALEDGER
LINHA: 2 COLUNA: 24
COMPR.VIS.: 2 ALTURA: 1
GRUPOS: EDT;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [X] Máscara: fixo, modificado
PROGRAMA:
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR CAMPO: TKELT-LEDBO_BZ
LINHA: 2 COLUNA: 28
COMPR.VIS.: 30 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
(X) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
EXIBIÇÃO:
Neenhum campo ajustado.
INCLUIR TEXTO: /PWS/ZYCEE400-VRGAR
TEXTO: Tipo de Operação
LINHA: 3 COLUNA: 3
COMPR.VIS.: 20 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [3] Text: long
PROGRAMA:
Nenhum campo ajustado.
EXIBIÇÃO:
(X) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE400-VRGAR
LINHA: 3 COLUNA: 24
COMPR.VIS.: 1 ALTURA: 1
GRUPOS: EDT;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [X] Máscara: fixo, modificado
PROGRAMA:
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR CAMPO: TVGAT-VRGARX
LINHA: 3 COLUNA: 28
COMPR.VIS.: 20 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
(X) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
EXIBIÇÃO:
Nenhum campo ajustado.
INCLUIR QUADRO: QD_TRATA_VALORES
TEXTO: Tratamento de Valores
LINHA: 5 COLUNA: 1
COMPR.VIS.: 60 ALTURA: 4
INCLUIR TEXTO: /PWS/ZYCEE400-FINCO
TEXTO: Considera Incoterm?
LINHA: 6 COLUNA: 3
COMPR.VIS.: 20 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [F] Texto: Fixo, modificado
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
(X) - COM DENOM. À ESQUERDA
INCLUIR CAMPO: /PWS/ZYCEE400-FINCO
(X) - DROPDOWN
LINHA: 6 COLUNA: 32
COMPR.VIS.: 5 ALTURA: 1
GRUPOS: EDT;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [X] Máscara: Fixo, modificado
PROGRAMA:
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR TEXTO: /PWS/ZYCEE400-LMEMB
TEXTO: Lançar na moeda do embarque?
LINHA: 7 COLUNA: 3
COMPR.VIS.: 28 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [3] Texto: Longo
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
(X) - COM DENOM. À ESQUERDA
INCLUIR CAMPO: /PWS/ZYCEE400-LMEMB
(X) - DROPDOWN
LINHA: 7 COLUNA: 32
COMPR.VIS.: 5 ALTURA: 1
GRUPOS: EDT;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [X] Máscara: Fixo, modificado
PROGRAMA:
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
LÓGICA DE PROCESSAMENTO:
PROCESS BEFORE OUTPUT.
MODULE ajusta_tela.
PROCESS AFTER INPUT.
MODULE comando_usuario.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE400 0102
TELA 0102:
DESCRIÇÃO BREVE: Campos do Lançamento
TIPO DE TELA: Subtela
OUTROS ATRIBUTOS:
TELA SEGUINTE: 0102
LINHAS/COLUNAS:
ATUAL 80,98
INCLUIR TABLE CONTROL: TC_CMPLCT
LINHA: 1 COLUNA: 1
COMPR.VIS.: 98 ALTURA: 80
ATRIBUTOS:
CTG. TABELA: (X) - C/TIT.COL (X) - CONFIGUR.
REDIMENS: (X) - VERTICAL (X) - HORIZONTAL
LINH. SEPAR: (X) - VERTICAL (X) - HORIZONTAL
MARC. LINHAS: (X) - SEM
MARC. COLUNAS: (X) - SEM
COLUNAS FIXAS 0
INCLUIR TEXTO: /PWS/ZYCEE401-FIENM (EM TC_CMPLCT)
TEXTO: Campo de Valor
LINHA: 1 COLUNA: 1
COMPR.VIS.: 15 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [4] Texto: Título
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR CAMPO: /PWS/ZYCEE401-FIENM (EM TC_CMPLCT)
(X) - POSS.ROLAG.
LINHA: 1 COLUNA: 1
COMPR.VIS.: 15 ALTURA: 1
GRUPOS: CHV;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
(X) - VERIF. CHAVE EXTERNA
PROGRAMA:
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR TEXTO: /PWS/ZYCEE401-TXTNM (EM TC_CMPLCT)
TEXTO: Campo de Valor
LINHA: 1 COLUNA: 2
COMPR.VIS.: 31 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [4] Texto: Título
(X) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR CAMPO: /PWS/ZYCEE401-TXTNM (EM TC_CMPLCT)
(X) - POSS.ROLAG.
LINHA: 1 COLUNA: 2
COMPR.VIS.: 31 ALTURA: 1
GRUPOS: CHV;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
(X) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(X) - CAMPO DE SAÍDA
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR TEXTO: /PWS/ZYCEE401-FIEDE (EM TC_CMPLCT)
TEXTO: Campo de Valor
LINHA: 1 COLUNA: 3
COMPR.VIS.: 15 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [4] Texto: Título
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR CAMPO: /PWS/ZYCEE401-FIEDE (EM TC_CMPLCT)
(X) - POSS.ROLAG.
LINHA: 1 COLUNA: 3
COMPR.VIS.: 15 ALTURA: 1
GRUPOS: EDT;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
(X) - VERIF. CHAVE EXTERNA
PROGRAMA:
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.: Exibe se entradas possíveis
EXIBIÇÃO:
(X) - FONTE EQUIDISTANTE
INCLUIR TEXTO: /PWS/ZYCEE401-TXTDE (EM TC_CMPLCT)
TEXTO: Descr. Doc. Exp.
LINHA: 1 COLUNA: 4
COMPR.VIS.: 31 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [4] Texto: Título
(X) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
Nenhum ajuste.
EXIBIÇÃO:
Nenhum ajuste.
INCLUIR CAMPO: /PWS/ZYCEE401-TXTDE (EM TC_CMPLCT)
(X) - POSS.ROLAG.
LINHA: 1 COLUNA: 4
COMPR.VIS.: 31 ALTURA: 1
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: [ ] Máscara: original do dicionário
(X) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(X) - CAMPO DE SAÍDA
EXIBIÇÃO:
Nenhum ajuste.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER135
...
FORM estornar.
DATA: v_belnr_i LIKE /pws/zycet002-belnr_i,
* >> Início da exclusão: FORM ESTORNAR
v_cont TYPE i.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR
v_cont TYPE i,
it_status_lct TYPE STANDARD TABLE OF /pws/zycet403.
CALL FUNCTION '/PWS/ZYCE_ITENS_EMBARQUE_CO_PA'
EXPORTING
i_retorna_parceiros = space
TABLES
t_itens_embarque = itab_zycet002
t_itens_co_pa = it_status_lct
EXCEPTIONS
itens_embarque_invalidos = 1.
IF sy-subrc = 0 AND NOT it_status_lct IS INITIAL.
MESSAGE e194.
EXIT.
ENDIF.
* << Fim da inclusão
CLEAR: v_belnr_i.
LOOP AT itab_imprime WHERE flag = text-023.
READ TABLE itab_zycet037 WITH KEY bukrs = itab_imprime-bukrs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER401
MODIFICAR SÍMBOLOS DE TEXTO :
TEXTOS NOVOS:
SÍM.: TEXTO: CD. CM.
001 Sumário de lançamentos: 23 26
002 Status 6 9
003 Faturamento 11 14
004 Item Fat. 9 12
005 Sucesso: 8 11
006 Erro: 5 28
007 Aviso: 6 6
008 Inform.: 8 8
009 Cancel.: 8 8
010 Nenhum lançamento realizado. 28 28
011 Deseja prosseguir lançamento em CO-PA? 38 38
012 Lançamento em CO-PA 19 19
013 Deseja estornar o(s) lançamento(s) 34 34
014 em CO-PA já efetuado(s)? 24 27
015 Lançamento(s) já efetuado(s). 29 29
* >> Início da inclusão
REPORT /pws/zycer401.
TYPE-POOLS icon.
CONSTANTS:
c_lancamento(1) TYPE c VALUE 'L',
c_estorno(1) TYPE c VALUE 'E'.
TYPES:
BEGIN OF t_param_cmpcab,
area_resultado TYPE /pws/zycee400-erkrs,
tipo_moeda TYPE /pws/zycee400-paledger,
tipo_operacao TYPE /pws/zycee400-vrgar,
cons_incoterm TYPE /pws/zycee400-finco,
lanc_moeda_emb TYPE /pws/zycee400-lmemb,
tipo_moeda_aval TYPE tkel-curtp,
END OF t_param_cmpcab,
BEGIN OF t_coluna,
nome TYPE fieldname,
desc TYPE /pws/zycet401-txtnm,
comp TYPE i,
END OF t_coluna,
BEGIN OF t_relatorio,
colunas TYPE bapi_copa_field OCCURS 0,
dados TYPE bapi_copa_data OCCURS 0,
END OF t_relatorio,
t_item_embarque TYPE /pws/zycet002,
t_param_cmplct TYPE /pws/zycet401,
t_status_lct TYPE /pws/zycet403,
t_param_cmpexp TYPE /pws/zycet323,
t_parceiros TYPE STANDARD TABLE OF vbpa,
t_colunas TYPE STANDARD TABLE OF t_coluna,
t_param_cmpslct TYPE STANDARD TABLE OF t_param_cmplct,
t_param_cmpsexp TYPE STANDARD TABLE OF t_param_cmpexp,
t_mensagens TYPE STANDARD TABLE OF bdcmsgcoll,
t_campos TYPE STANDARD TABLE OF bapi_copa_field,
t_dados TYPE STANDARD TABLE OF bapi_copa_data,
t_selecoes TYPE STANDARD TABLE OF bapi_copa_selection,
t_retorno TYPE STANDARD TABLE OF bapiret2.
DATA:
it_itens_embarque TYPE STANDARD TABLE OF t_item_embarque,
it_param_cmpslct TYPE t_param_cmpslct,
it_param_cmpsexp TYPE STANDARD TABLE OF t_param_cmpexp,
it_status_lct TYPE STANDARD TABLE OF t_status_lct,
it_retorno TYPE t_retorno,
it_parceiros TYPE t_parceiros,
wa_param_cmpcab TYPE t_param_cmpcab,
wa_adm_area_res TYPE tkeb,
v_modo(1) TYPE c,
v_tipo(1) TYPE c,
v_tpcalc TYPE /pws/zycet001-tpcalc,
v_categ_moeda TYPE /pws/zycbt011-ctmoed,
v_seqemb TYPE /pws/zycee001-nrseq.
INITIALIZATION.
PERFORM confirma_operacao.
START-OF-SELECTION.
SET PF-STATUS 'PADRAO' IMMEDIATELY.
PERFORM:
seleciona_dados,
processa_itens,
apresenta_dados.
END-OF-SELECTION.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'ESTO'.
CLEAR sy-ucomm.
PERFORM confirma_estorno.
WHEN 'VOLTAR'.
CLEAR sy-ucomm.
LEAVE PROGRAM.
ENDCASE.
FORM seleciona_dados.
DATA:
it_itens_emb TYPE STANDARD TABLE OF t_item_embarque,
it_mensagens TYPE t_mensagens,
wa_param_area TYPE /pws/zycee400,
wa_status_lct TYPE t_status_lct,
wa_mensagem TYPE bdcmsgcoll,
wa_retorno TYPE bapiret2,
wa_item_embarque TYPE t_item_embarque.
CALL FUNCTION '/PWS/ZYCE_DADOS_EMBARQUE_CO_PA'
EXPORTING
i_embarque = v_seqemb
IMPORTING
e_calculo_condicao = v_tpcalc
e_categoria_moeda = v_categ_moeda
EXCEPTIONS
embarque_invalido = 1
evento_embarque_invalido = 2.
CASE sy-subrc.
WHEN 1.
MESSAGE e003(/pws/zycem).
EXIT.
WHEN 2.
MESSAGE e234(/pws/zycem).
EXIT.
ENDCASE.
CALL FUNCTION '/PWS/ZYCE_SEPARA_ITENS_EMB'
EXPORTING
nrseq = v_seqemb
inclui_par_dt = space
inclui_es_saida = space
TABLES
tab_saida = it_itens_embarque
EXCEPTIONS
itens_nao_encontrados = 1.
IF sy-subrc NE 0.
MESSAGE e120(/pws/zycem).
EXIT.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_ITENS_EMBARQUE_CO_PA'
EXPORTING
i_retorna_parceiros = 'X'
TABLES
t_itens_embarque = it_itens_embarque
t_itens_co_pa = it_status_lct
t_parceiros = it_parceiros
EXCEPTIONS
itens_embarque_invalidos = 1.
IF sy-subrc = 0.
it_itens_emb = it_itens_embarque.
LOOP AT it_status_lct INTO wa_status_lct WHERE stlct = 'X'.
DELETE it_itens_emb WHERE
vbeln_vf = wa_status_lct-vbeln_vf AND
posnr = wa_status_lct-posnr_vf.
ENDLOOP.
IF it_itens_emb IS INITIAL.
IF NOT it_status_lct IS INITIAL.
v_tipo = c_estorno.
WRITE 'Lançamento(s) já efetuado(s).'(015).
ULINE.
ELSE.
MESSAGE e198(/pws/zycem).
EXIT.
ENDIF.
ELSE.
it_itens_embarque = it_itens_emb.
v_tipo = c_lancamento.
ENDIF.
ENDIF.
READ TABLE it_itens_embarque INTO wa_item_embarque INDEX 1.
CALL FUNCTION 'COPA_ERKRS_FIND'
EXPORTING
bukrs = wa_item_embarque-bukrs
IMPORTING
erkrs = wa_param_cmpcab-area_resultado
t_keb = wa_adm_area_res
EXCEPTIONS
error_kokrs_find = 1
kokrs_wrong = 2
no_erkrs_defined = 3
no_erkrs_for_kokrs = 4.
IF sy-subrc NE 0.
MESSAGE e205(/pws/zycem) WITH wa_item_embarque-bukrs.
EXIT.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_RET_CAMPOS_CO_PA'
EXPORTING
i_area_resultado = wa_param_cmpcab-area_resultado
IMPORTING
e_param_area_resultado = wa_param_area
e_tipo_moeda_aval = wa_param_cmpcab-tipo_moeda_aval
TABLES
t_campos_lct = it_param_cmpslct
EXCEPTIONS
area_resultado_invalida = 1
area_resultado_existe = 2.
IF sy-subrc NE 0.
MESSAGE e200(/pws/zycem) WITH wa_param_cmpcab-area_resultado.
EXIT.
ENDIF.
wa_param_cmpcab-area_resultado = wa_param_area-erkrs.
wa_param_cmpcab-tipo_moeda = wa_param_area-paledger.
wa_param_cmpcab-tipo_operacao = wa_param_area-vrgar.
wa_param_cmpcab-cons_incoterm = wa_param_area-finco.
wa_param_cmpcab-lanc_moeda_emb = wa_param_area-lmemb.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_KEBC'
EXPORTING
i_modo = v_modo
i_area_resultado = wa_param_cmpcab-area_resultado
TABLES
t_mensagens = it_mensagens
EXCEPTIONS
modo_nao_especificado = 1.
IF sy-subrc NE 0.
MESSAGE e206(/pws/zycem) WITH wa_param_cmpcab-area_resultado.
EXIT.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_RET_CAMPOS_EXP'
TABLES
t_campos_exp = it_param_cmpsexp
EXCEPTIONS
campos_nao_definidos = 1.
IF sy-subrc NE 0.
MESSAGE e195(/pws/zycem).
EXIT.
ENDIF.
ENDFORM.
FORM recupera_parametros.
DATA: v_flag(4) TYPE c.
CLEAR v_flag.
IMPORT v_flag FROM MEMORY ID 'EMBARQUE'.
IF v_flag IS INITIAL.
MESSAGE e207(/pws/zycem).
ENDIF.
GET PARAMETER ID '/PWS/ZYCEP001' FIELD v_seqemb.
IF v_seqemb IS INITIAL.
MESSAGE e003(/pws/zycem).
ENDIF.
v_modo = 'N'.
ENDFORM.
FORM processa_itens.
CHECK v_tipo = c_lancamento.
PERFORM efetua_lancamentos USING v_tipo.
ENDFORM.
FORM prepara_item_co_pa
TABLES
p_dados TYPE t_dados
p_param_cmpslct TYPE t_param_cmpslct
p_parceiros TYPE t_parceiros
p_param_cmpsexp TYPE t_param_cmpsexp
USING
p_item_embarque TYPE t_item_embarque
p_param_cmpcab TYPE t_param_cmpcab
p_record_id TYPE bapi_copa_data-record_id
p_modo TYPE char1.
CONSTANTS:
c_item_embarque(15) TYPE c VALUE 'P_ITEM_EMBARQUE',
c_parceiros(15) TYPE c VALUE 'WA_PARCEIRO',
c_vlagente_r TYPE fieldname VALUE 'VLAGENTE_R',
c_vlod_r TYPE fieldname VALUE 'VLOD_R',
c_vlacrescimo_r TYPE fieldname VALUE 'VLACRESCIMO_R',
c_vldesconto_r TYPE fieldname VALUE 'VLDESCONTO_R',
c_vlfrete_r TYPE fieldname VALUE 'VLFRETE_R',
c_vlseguro_r TYPE fieldname VALUE 'VLSEGURO_R',
c_vlemb TYPE fieldname VALUE 'VLEMB',
c_vlme TYPE fieldname VALUE 'VLME',
c_vlme_r TYPE fieldname VALUE 'VLME_R',
c_parvw TYPE fieldname VALUE 'PARVW',
c_paledger TYPE fieldname VALUE 'PALEDGER',
c_budat TYPE fieldname VALUE 'BUDAT',
c_vrgar TYPE fieldname VALUE 'VRGAR',
c_frwae TYPE fieldname VALUE 'FRWAE',
c_kursf TYPE fieldname VALUE 'KURSF'.
DATA:
wa_param_cmplct TYPE t_param_cmplct,
wa_parceiro TYPE LINE OF t_parceiros,
v_periodo TYPE cest1-perio,
v_nome_campo TYPE fieldname,
v_parceiro TYPE tpar-parvw,
v_tipo(1) TYPE c,
v_moeda TYPE waers,
v_taxa TYPE tcurr-ukurs,
v_defator TYPE tcurr-ffact,
v_parafator TYPE tcurr-tfact.
FIELD-SYMBOLS <fs_valor> TYPE ANY.
DEFINE insere_dado_bapi.
clear p_dados.
p_dados-record_id = p_record_id.
p_dados-fieldname = &1.
p_dados-value = &2.
describe field &2 type v_tipo.
if v_tipo = 'P'.
p_dados-currency = &3.
endif.
append p_dados.
END-OF-DEFINITION.
insere_dado_bapi:
c_paledger p_param_cmpcab-tipo_moeda space,
c_budat sy-datlo space,
c_vrgar p_param_cmpcab-tipo_operacao space.
IF NOT p_param_cmpcab-lanc_moeda_emb IS INITIAL.
PERFORM recupera_taxa_conversao
USING
p_item_embarque-waers
wa_adm_area_res-waers
v_categ_moeda
p_item_embarque-dtlancrc
CHANGING
v_defator
v_parafator
v_taxa.
insere_dado_bapi:
c_frwae p_item_embarque-waers space,
c_kursf v_taxa space.
ENDIF.
LOOP AT p_param_cmpslct INTO wa_param_cmplct WHERE fiede NE space.
CHECK wa_param_cmplct-fienm NE c_paledger AND
wa_param_cmplct-fienm NE c_budat AND
wa_param_cmplct-fienm NE c_vrgar AND
wa_param_cmplct-fienm NE c_frwae AND
wa_param_cmplct-fienm NE c_kursf.
v_moeda = p_item_embarque-waers.
CASE wa_param_cmplct-fienm.
WHEN 'PERIO'.
PERFORM transforma_data_em_periodo
USING
p_param_cmpcab-area_resultado
p_item_embarque-dtlancrc
CHANGING
v_periodo.
insere_dado_bapi 'PERIO' v_periodo space.
WHEN OTHERS.
IF wa_param_cmplct-fiede(5) = c_parvw AND
wa_param_cmplct-fiede NE c_parvw.
v_parceiro = wa_param_cmplct-fiede+5(2).
READ TABLE p_parceiros INTO wa_parceiro WITH KEY
vbeln = p_item_embarque-vbeln_vf
parvw = v_parceiro
lifnr = space.
IF sy-subrc NE 0.
READ TABLE p_parceiros INTO wa_parceiro WITH KEY
vbeln = p_item_embarque-vbeln_vf
parvw = v_parceiro
kunnr = space.
CONCATENATE
c_parceiros
'-LIFNR'
INTO v_nome_campo.
ELSE.
CONCATENATE
c_parceiros
'-KUNNR'
INTO v_nome_campo.
ENDIF.
ASSIGN (v_nome_campo) TO <fs_valor>.
ELSE.
CONCATENATE
c_item_embarque
'-'
wa_param_cmplct-fiede
INTO v_nome_campo.
ASSIGN (v_nome_campo) TO <fs_valor>.
IF sy-subrc NE 0.
MESSAGE e197(/pws/zycem) WITH
wa_param_cmplct-fiede
wa_param_cmplct-fienm.
EXIT.
ENDIF.
IF p_modo = c_estorno.
PERFORM aplica_estorno
TABLES p_param_cmpsexp
USING wa_param_cmplct-fiede
CHANGING <fs_valor>.
ENDIF.
IF p_param_cmpcab-lanc_moeda_emb IS INITIAL.
CASE wa_param_cmplct-fiede.
WHEN
c_vlagente_r OR
c_vlacrescimo_r OR
c_vldesconto_r OR
c_vlme OR
c_vlme_r.
PERFORM converte_montante
USING
p_item_embarque-dtlancrc
v_categ_moeda
p_item_embarque-waers
wa_adm_area_res-waers
CHANGING <fs_valor>.
v_moeda = wa_adm_area_res-waers.
WHEN c_vlemb.
IF NOT p_param_cmpcab-cons_incoterm IS INITIAL.
IF NOT v_tpcalc IS INITIAL.
<fs_valor> = p_item_embarque-vlme_r.
ENDIF.
ENDIF.
PERFORM converte_montante
USING
p_item_embarque-dtlancrc
v_categ_moeda
p_item_embarque-waers
wa_adm_area_res-waers
CHANGING <fs_valor>.
v_moeda = wa_adm_area_res-waers.
WHEN
c_vlod_r OR
c_vlfrete_r OR
c_vlseguro_r.
IF NOT p_param_cmpcab-cons_incoterm IS INITIAL.
IF NOT v_tpcalc IS INITIAL.
<fs_valor> = 0.
ENDIF.
ENDIF.
PERFORM converte_montante
USING
p_item_embarque-dtlancrc
v_categ_moeda
p_item_embarque-waers
wa_adm_area_res-waers
CHANGING <fs_valor>.
v_moeda = wa_adm_area_res-waers.
ENDCASE.
ENDIF.
ENDIF.
insere_dado_bapi wa_param_cmplct-fienm <fs_valor> v_moeda.
UNASSIGN <fs_valor>.
ENDCASE.
ENDLOOP.
ENDFORM.
FORM apresenta_dados.
DATA:
it_pf_status TYPE STANDARD TABLE OF sy-ucomm,
wa_status_lct TYPE /pws/zycet403.
READ TABLE it_status_lct WITH KEY stlct = c_estorno
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
APPEND 'ESTO' TO it_pf_status.
ENDIF.
SET PF-STATUS 'SUMARIO' EXCLUDING it_pf_status IMMEDIATELY.
FREE it_pf_status.
WRITE 'Sumário de lançamentos:'(001).
ULINE.
WRITE:
'Status'(002),
AT 11 'Faturamento'(003),
AT 26 'Item Fat.'(004).
ULINE.
LOOP AT it_status_lct INTO wa_status_lct.
CASE wa_status_lct-stlct.
WHEN 'X'.
WRITE / icon_okay AS ICON.
WHEN 'E'.
WRITE / icon_planning_out AS ICON.
WHEN space.
WRITE / icon_cancel AS ICON.
ENDCASE.
WRITE:
AT 11 wa_status_lct-vbeln_vf,
AT 26 wa_status_lct-posnr_vf.
ENDLOOP.
ENDFORM.
FORM transforma_data_em_periodo
USING
p_area_resultado TYPE erkrs
p_data TYPE datum
CHANGING p_periodo TYPE cest1-perio.
TYPES:
BEGIN OF t_data_em_periodo,
erkrs TYPE erkrs,
data TYPE datum,
perio TYPE cest1-perio,
END OF t_data_em_periodo.
STATICS it_data_em_periodo TYPE STANDARD TABLE OF t_data_em_periodo.
DATA wa_data_em_periodo TYPE t_data_em_periodo.
READ TABLE it_data_em_periodo INTO wa_data_em_periodo WITH KEY
erkrs = p_area_resultado
data = p_data.
IF sy-subrc NE 0.
CALL FUNCTION 'RKE_CONVERT_DATE_TO_LOGNR'
EXPORTING
erkrs = p_area_resultado
date = p_data
IMPORTING
perio = p_periodo
EXCEPTIONS
i_erkrs_notfound = 1
i_error = 2
i_periv_notedited = 3
i_perspec_invalid = 4.
CHECK sy-subrc = 0.
wa_data_em_periodo-erkrs = p_area_resultado.
wa_data_em_periodo-data = p_data.
wa_data_em_periodo-perio = p_periodo.
APPEND wa_data_em_periodo TO it_data_em_periodo.
ENDIF.
p_periodo = wa_data_em_periodo-perio.
ENDFORM.
FORM converte_montante
USING p_data_conversao TYPE datum
p_categ_moeda TYPE /pws/zycbt011-ctmoed
p_moeda_de TYPE waers
p_moeda_para TYPE waers
CHANGING p_montante TYPE t_item_embarque-vlemb.
DATA:
v_taxa TYPE tcurr-ukurs,
v_defator TYPE tcurr-ffact,
v_parafator TYPE tcurr-tfact.
CHECK NOT p_moeda_de = p_moeda_para AND
NOT p_data_conversao IS INITIAL.
PERFORM recupera_taxa_conversao
USING
p_moeda_de
p_moeda_para
p_categ_moeda
p_data_conversao
CHANGING
v_defator
v_parafator
v_taxa.
IF NOT v_defator IS INITIAL.
p_montante = p_montante * ( ( v_taxa / v_defator ) * v_parafator ).
ENDIF.
ENDFORM.
FORM recupera_taxa_conversao
USING
p_demoeda TYPE tcurr-fcurr
p_paramoeda TYPE tcurr-tcurr
p_categ_moeda TYPE tcurr-kurst
p_data_base TYPE datum
CHANGING
p_defator TYPE tcurr-ffact
p_parafator TYPE tcurr-tfact
p_taxa TYPE tcurr-ukurs.
TYPES:
BEGIN OF t_moeda,
demoeda TYPE tcurr-fcurr,
paramoeda TYPE tcurr-tcurr,
categ_moeda TYPE tcurr-kurst,
data_base TYPE sy-datum,
taxa TYPE tcurr-ukurs,
defator TYPE tcurr-ffact,
parafator TYPE tcurr-tfact,
END OF t_moeda.
STATICS
itab_moedas TYPE HASHED TABLE OF t_moeda WITH UNIQUE KEY
demoeda paramoeda categ_moeda data_base.
DATA wa_moeda TYPE t_moeda.
READ TABLE itab_moedas INTO wa_moeda WITH TABLE KEY
demoeda = p_demoeda
paramoeda = p_paramoeda
categ_moeda = p_categ_moeda
data_base = p_data_base.
IF sy-subrc = 0.
p_defator = wa_moeda-defator.
p_parafator = wa_moeda-parafator.
p_taxa = wa_moeda-taxa.
ELSE.
CALL FUNCTION '/PWS/ZYCE_MONTANTE_CONVERTE'
EXPORTING
i_montante = 1
i_demoeda = p_demoeda
i_paramoeda = p_paramoeda
i_ctmoeda = p_categ_moeda
i_dtbase = p_data_base
IMPORTING
e_txc = p_taxa
e_defator = p_defator
e_parafator = p_parafator
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
IF sy-subrc = 0.
wa_moeda-demoeda = p_demoeda.
wa_moeda-paramoeda = p_paramoeda.
wa_moeda-categ_moeda = p_categ_moeda.
wa_moeda-data_base = p_data_base.
wa_moeda-taxa = p_taxa.
wa_moeda-defator = p_defator.
wa_moeda-parafator = p_parafator.
INSERT wa_moeda INTO TABLE itab_moedas.
ELSE.
CLEAR:
p_defator,
p_parafator,
p_taxa.
ENDIF.
ENDIF.
ENDFORM.
FORM registra_lancamentos USING p_tipo TYPE char1.
CALL FUNCTION '/PWS/ZYCE_MOD_ITENS_CO_PA'
EXPORTING
i_modo = p_tipo
TABLES
t_itens_embarque = it_itens_embarque
EXCEPTIONS
itens_embarque_invalidos = 1.
CHECK sy-subrc NE 0.
MESSAGE e209(/pws/zycem).
EXIT.
ENDFORM.
FORM inicia_estruturas.
CLEAR:
it_retorno,
it_itens_embarque,
it_status_lct.
ENDFORM.
FORM confirma_operacao .
DATA v_confirmacao(1) TYPE c.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 =
'Deseja prosseguir lançamento em co-pa?'(011)
titel = 'Lançamento em CO-PA'(012)
start_column = 25
start_row = 6
IMPORTING
answer = v_confirmacao
EXCEPTIONS
OTHERS = 1.
CASE v_confirmacao.
WHEN 'J' OR 'Y'.
PERFORM:
inicia_estruturas,
recupera_parametros.
WHEN 'N' OR 'A'.
MESSAGE s196(/pws/zycem).
LEAVE PROGRAM.
ENDCASE.
ENDFORM.
FORM confirma_estorno .
DATA v_confirmacao(1) TYPE c.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = 'Deseja estornar o(s) lançamento(s)'(013)
textline2 = 'em CO-PA já efetuado(s)?'(014)
titel = 'Lançamento em CO-PA'(012)
start_column = 25
start_row = 6
IMPORTING
answer = v_confirmacao
EXCEPTIONS
OTHERS = 1.
CASE v_confirmacao.
WHEN 'J' OR 'Y'.
CLEAR:
it_status_lct,
it_retorno.
PERFORM efetua_lancamentos USING c_estorno.
PERFORM apresenta_dados.
ENDCASE.
ENDFORM.
FORM efetua_lancamentos USING p_tipo TYPE char1.
DATA:
it_dados TYPE t_dados,
it_campos TYPE t_campos,
wa_status_lct TYPE /pws/zycet403,
wa_retorno TYPE bapiret2,
wa_dado TYPE bapi_copa_data,
wa_item_embarque TYPE t_item_embarque,
wa_campo TYPE bapi_copa_field,
v_item TYPE bapi_copa_data-record_id,
v_interrompe_bapi(1) TYPE c.
CLEAR:
v_item,
v_interrompe_bapi,
it_status_lct.
LOOP AT it_itens_embarque
INTO wa_item_embarque.
CLEAR wa_status_lct.
wa_status_lct-vbeln_vf = wa_item_embarque-vbeln_vf.
wa_status_lct-posnr_vf = wa_item_embarque-posnr.
IF wa_item_embarque-dtlancrc = 0.
APPEND wa_status_lct TO it_status_lct.
CONTINUE.
ENDIF.
ADD 1 TO v_item.
PERFORM prepara_item_co_pa
TABLES
it_dados
it_param_cmpslct
it_parceiros
it_param_cmpsexp
USING
wa_item_embarque
wa_param_cmpcab
v_item
p_tipo.
CASE p_tipo.
WHEN c_lancamento.
wa_status_lct-stlct = 'X'.
WHEN c_estorno.
wa_status_lct-stlct = 'E'.
ENDCASE.
APPEND wa_status_lct TO it_status_lct.
ENDLOOP.
LOOP AT it_dados INTO wa_dado.
wa_campo = wa_dado-fieldname.
APPEND wa_campo TO it_campos.
AT END OF record_id.
EXIT.
ENDAT.
ENDLOOP.
IF it_dados IS INITIAL OR it_campos IS INITIAL.
MESSAGE e199(/pws/zycem).
EXIT.
ENDIF.
CALL FUNCTION 'BAPI_COPAACTUALS_POSTCOSTDATA'
EXPORTING
operatingconcern = wa_param_cmpcab-area_resultado
testrun = space
TABLES
inputdata = it_dados
fieldlist = it_campos
return = it_retorno.
IF NOT it_retorno IS INITIAL.
LOOP AT it_retorno INTO wa_retorno.
CASE wa_retorno-type.
WHEN 'S'.
WRITE / 'Sucesso:'(005).
WHEN 'E'.
WRITE / 'Erro:'(006).
v_interrompe_bapi = 'X'.
WHEN 'W'.
WRITE / 'Aviso:'(007).
WHEN 'I'.
WRITE / 'Inform.:'(008).
WHEN 'A'.
WRITE / 'Cancel.:'(009).
v_interrompe_bapi = 'X'.
ENDCASE.
WRITE AT 10 wa_retorno-message.
ENDLOOP.
ENDIF.
IF NOT v_interrompe_bapi IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
IMPORTING
return = wa_retorno.
IF NOT wa_retorno IS INITIAL.
WRITE / wa_retorno-message.
ENDIF.
WRITE:
/,
/ 'Nenhum lançamento realizado.'(010).
STOP.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = wa_retorno.
IF NOT wa_retorno IS INITIAL.
WRITE / wa_retorno-message.
STOP.
ENDIF.
PERFORM registra_lancamentos USING p_tipo.
ENDIF.
ENDFORM.
FORM aplica_estorno
TABLES p_param_cmpsexp TYPE t_param_cmpsexp
USING p_cmp_exp TYPE t_param_cmplct-fiede
CHANGING p_valor TYPE any.
STATICS it_tipo TYPE STANDARD TABLE OF datatype_d.
DATA wa_tipo TYPE datatype_d.
IF it_tipo IS INITIAL.
APPEND:
'CURR' TO it_tipo,
'QUAN' TO it_tipo.
ENDIF.
LOOP AT it_tipo INTO wa_tipo.
READ TABLE p_param_cmpsexp WITH KEY
campo = p_cmp_exp
type = wa_tipo
TRANSPORTING NO FIELDS.
CHECK sy-subrc = 0.
MULTIPLY p_valor BY -1.
EXIT.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHI3 /PWS/ZYCE
Modificações efetuadas em SHI6 /PWS/ZYCE
MENU DE ÁREA /PWS/ZYCE
INCLUIR ENTRADA DE MENU:
/PWS/ZYCE
...
Parâmetros
Exportação
Globais
Nota Fiscal
Contábeis
Parâmetros Aprovação / Clearing Automáticos
Descrição de Eventos
Contas Contábeis
Bloqueio de Campos p/ Transações
* >> Início da inclusão
Preenchimento de Campos no CO-PA
* << Fim da inclusão
...
ENTRADA DE MENU: Preenchimento de Campos no CO-PA
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCET400
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCEA401
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCEA401
DESCRIÇÃO BREVE: CE - CO-PA: Tipo de Moeda
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: TKELT
COMPORTAMENTO DE DIÁLOGO
TIPO DE DIÁLOGO: Exibição de valores imediata
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
SPRAS X 1 0 SPRAS SY-LANGU
PALEDGER X X 2 1 LEDBO
LEDBO_BZ X 3 0 LEDBO_BZ
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCEA403
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCEA403
DESCRIÇÃO BREVE: CE - CO-PA: Campos Documentação Exportação
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCET323
COMPORTAMENTO DE DIÁLOGO
TIPO DE DIÁLOGO: Exibição de valores imediata
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
CAMPO X X 1 1 NAME_FELD
DESCR X 2 0 AS4TEXT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCEE400
MODIFICAR ESTRUTURA: /PWS/ZYCEE400
DESCRIÇÃO BREVE: CE - CO-PA: Campos de cabeçalho
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
MANDT MANDT T000 H_T000
ERKRS ERKRS TKEB H_TKEB
PALEDGER LEDBO TKELT /PWS/ZYCEA401
VRGAR RKE_VRGAR TVGA H_TVGA
FINCO /PWS/ZYCEL710
LMEMB /PWS/ZYCEL715
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCEE401
MODIFICAR ESTRUTURA: /PWS/ZYCEE401
DESCRIÇÃO BREVE: CE - CO-PA: Campos do lançamento
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
MANDT MANDT T000 H_T000
ERKRS ERKRS /PWS/ZYCET400
FIENM /PWS/ZYCEL711 TKES
TXTNM /PWS/ZYCEL712
FIEDE /PWS/ZYCEL713 /PWS/ZYCET323 /PWS/ZYCEA403
TXTDE /PWS/ZYCEL714
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCEE402
MODIFICAR ESTRUTURA: /PWS/ZYCEE402
DESCRIÇÃO BREVE: CE - CO-PA: Descrições dos parâmetros
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
TPDSC CHAR2
TIPO CHAR2
DESCR CHAR30
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCET323
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET323
DESCRIÇÃO BREVE: CE - CO-PA: Campos permitidos por área de resultado.
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: [C] Tab.customizing, atualização só por cliente, s/import.SAP
(X) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X T000
CAMPO NAME_FELD X X
DESCR AS4TEXT
TYPE DATATYPE_D
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL2
CATEGOR. TAMANHO: 0
(X) - AR. BUFFER NÃO PERMITIDO
GERAÇÃO DE DIÁLOGO DE ATUALIZAÇÃO
Grupo de autorização: ZYCE
Objeto autorização : S_TABU_DIS
Grupo de funções : /PWS/ZYGLGF1
Cl.desenvolvimento : /PWS/ZYGL
Ctg.atualização : (X) - NÍVEL ÚNICO
Tela de síntese : 3
Tela individual : 0
Rotina de registro : (X) - Rotina de Registro Standard
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCET400
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET400
DESCRIÇÃO BREVE: CE - CO-PA: Campos de cabeçalho
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: [C] Tab.customizing, atualização só por cliente, s/import.SAP
(X) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.REF
MANDT MANDT X X T000
ERKRS ERKRS X X TKEB
PALEDGER LEDBO TKELT
VRGAR RKE_VRGAR TVGA
FINCO /PWS/ZYCEL710
LMEMB /PWS/ZYCEL715
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL2
CATEGOR. TAMANHO: 0
(X) - AR. BUFFER NÃO PERMITIDO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCET401
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET401
DESCRIÇÃO BREVE: CE - CO-PA: Campos do lançamento
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: [C] Tab.customizing, atualização só por cliente, s/import.SAP
(X) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X T000 H_T000
ERKRS ERKRS X X /PWS/ZYCET400
FIENM /PWS/ZYCEL711 X X TKES
TXTNM /PWS/ZYCEL712
FIEDE /PWS/ZYCEL713 /PWS/ZYCET323 /PWS/ZYCEA403
TXTDE /PWS/ZYCEL714
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL2
CATEGOR. TAMANHO: 1
(X) - AR. BUFFER NÃO PERMITIDO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCET403
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET403
DESCRIÇÃO BREVE: CE - CO-PA: Lançamentos efetivados
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: [A] Tabela de aplicação (dados mestre e de movimento)
(X) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X T000
VBELN_VF VBELN_VF X X
POSNR_VF POSNR_VF X X
STLCT CHAR1
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
(X) - AR. BUFFER NÃO PERMITIDO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCER401
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCER401
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Lançamento de itens de exp. em CO-PA
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)
TEXTO DA TRANSAÇÃO: Lançamento de itens de exp. em CO-PA
PROGRAMA: /PWS/ZYCER401
TELA(SELEÇÃO): 1000
CLASSIFICAÇÃO
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
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCET323
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCET323
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Campos permitidos export. para CO-PA
OBJETO DE EXECUÇÃO
(X) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: Campos permitidos export. para CO-PA
VALOR PROPOSTO PARA
(X) - TRANSAÇÃO SM30 (X) - OMITIR 1ºTELA
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
UPDATE X
VIEWNAME /PWS/ZYCET323
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCET400
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCET400
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Preenchimento de Campos no CO-PA
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
TEXTO DA TRANSAÇÃO: Preenchimento de Campos no CO-PA
PROGRAMA: /PWS/SAPMZYCE400
TELA(SELEÇÃO): 1
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
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