Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 10/05/2012 11:12:14
Data/Hora Última Alteração: 10/05/2012 11:12:14
Descrição da Nota: INCLUSÃO DO CAMPO FATURA ELETRONICA PARA O CHILE
Sintoma
Inclusão do campo "Fatura Eletronica" na Fatura e na Prestação de Contas para atender legislação do
Chile.
Solução
Inclusão do campo "Fatura Eletronica" na Fatura e na Prestação de Contas para atender legislação do
Chile.
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12173 Data: 08/05/2012 Hora: 16:31:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12173
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10449 - 00001 - 8.0 - 00004 - UTILIZAR CHAVE DE BLOQUEIO INFORMADA PARA LANÇAMENTO DA MIRO
12091 - 00002 - 8.0 - 00011 - CAMPO REFERÊNCIA É NECESSÁRIO EM PRESTAÇÃO DE CONTAS
12105 - 00003 - 8.0 - 00011 - ALTERANDO FATURA DE SEGURO, CONTABILIZA NOVAMENTE MAS NÃO ACERTA
----------------------------------------------------------------------------------------------------
INCLUSÃO DO CAMPO FATURA ELETRONICA PARA O CHILE
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - PRESTAÇÃO - CONTAS - ELETRONICA - CHILE
/PWS/SAPMZYCI003 - /PWS/SAPMZYCI004
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYCID545
DTEL /PWS/ZYCIL920
DYNP /PWS/SAPMZYCI003 0101
DYNP /PWS/SAPMZYCI004 0300
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI004F01
REPS /PWS/MZYCI004O01
TABD /PWS/ZYCIE006
TABD /PWS/ZYCIE026
TABD /PWS/ZYCIT006
TABD /PWS/ZYCIT026
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCID545
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCID545
Descrição breve incluída (34 caracteres), idioma: PT
"GL - Tipo Fatura Eletronica(Chile)"
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 2
Comprimento de saída: 2
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "MC"
Texto incluído, idioma: PT (0 caracteres):
""
Incluído valor fixo "MD"
Texto incluído, idioma: PT (0 caracteres):
""
Incluído valor fixo "EC"
Texto incluído, idioma: PT (0 caracteres):
""
Incluído valor fixo "ED"
Texto incluído, idioma: PT (0 caracteres):
""
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL920
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL920
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (34 caracteres), idioma: PT
"GL - Tipo Fatura Eletronica(Chile)"
Categoria de dados: Domínio
Domínio: /PWS/ZYCID545
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
"Fat.Eletr."
Comprimento máximo do denominador médio: 18
Denominador médio incluído (18 caracteres), idioma: PT
"Tipo Fatura Eletr."
Comprimento máximo do denominador longo: 29
Denominador longo incluído (29 caracteres), idioma: PT
"Tipo Fatura Eletronica(Chile)"
Comprimento máximo do título: 29
Título incluído (29 caracteres), idioma: PT
"Tipo Fatura Eletronica(Chile)"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0101
*O campo deve ser inserido a direira do campo "V_CONDICAO".
INCLUIR CAMPO TEXTO "/PWS/ZYCIE006-INVTP"
Altura 5
Comprimento Visível 2
Linha 15
Coluna 95
Formato CHAR
Grupo 4 BOL
Linhas mínimas 2
Texto __
Código função
INCLUIR TEXTO "/PWS/ZYCIE006-INVTP"
Comprimento Visível 17
Linha 15
Coluna 77
Formato CHAR
Texto Eletronic Invoice
Código função
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI004 0300
*O campo deve ser inserido a direira do campo "V_DESC_IMP".
,
INCLUIR CAMPO TEXTO "/PWS/ZYCIE026-INVTP"
Altura 5
Comprimento Visível 2
Linha 3
Coluna 108
Formato CHAR
Linhas mínimas 2
Texto __
Código função
INCLUIR TEXTO "/PWS/ZYCIE026-INVTP"
Comprimento Visível 17
Linha 3
Coluna 87
Formato CHAR
Texto Eletronic Invoice
Código função
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF /pws/zycit286-conversao = 'DTDOC'.
wa_headerdata-pstng_date = /pws/zycie006-dtincl.
ELSE.
wa_headerdata-pstng_date = /pws/zycie006-dtlanc.
ENDIF.
wa_headerdata-ref_doc_no = itab_zycie033-bktxt.
wa_headerdata-comp_code = itab_zycie033-bukrs.
wa_headerdata-currency = itab_zycie033-waers.
wa_headerdata-gross_amount = itab_zycie033-rmwwr.
wa_headerdata-header_txt = wa_zycbt007-bktxt.
* >> Início da inclusão: FORM MIRO_AM_LA
IF NOT /pws/zycie006-invtp IS INITIAL.
wa_headerdata-header_txt = /pws/zycie006-invtp.
ENDIF.
* << Fim da inclusão
wa_headerdata-diff_inv = itab_zycie033-lifnr.
wa_headerdata-doc_type = wa_zycbt011-blart.
wa_headerdata-calc_tax_ind = 'X'.
v_invoice = 'X'.
v_creditmemo = 'X'.
LOOP AT itab_itemdata.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_itemdata-po_number
ebelp = itab_itemdata-po_item.
itab_itens_iva-bedat = itab_zycie033-bldat.
itab_itens_iva-bewae = /pws/zycie006-waers.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
screen-name EQ '/PWS/ZYCIE006-LIFNR' OR
screen-name EQ '/PWS/ZYCIE006-PAQUIS' OR
screen-name EQ '/PWS/ZYCIE006-DTBASE' OR
screen-name EQ '/PWS/ZYCIE006-ZLSPR' OR
screen-name EQ '/PWS/ZYCIE006-ZLSCH' OR
screen-name EQ '/PWS/ZYCIE006-FHCAMBIO' .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name = '/PWS/ZYCIE006-INVTP'.
IF NOT /pws/zycie006-belnr_p IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF t001-land1 NE 'CL'.
screen-input = 0.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF /pws/zycie006-vlmerc IS INITIAL AND
/pws/zycie006-vlfre IS INITIAL AND
/pws/zycie006-vlseg IS INITIAL.
CLEAR /pws/zycie006-vltotal.
ENDIF.
WHEN '0106'.
LOOP AT SCREEN.
IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.
IF screen-name NE 'BTN0100_01' .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI004F01
...
frgsx4 = /pws/zycie026-frgsx4
frgsx5 = /pws/zycie026-frgsx5
waersmu = /pws/zycie026-waersmu
iva = /pws/zycie026-iva
taxamu = /pws/zycie026-taxamu
totdepme = /pws/zycie026-totdepme
vldfme = /pws/zycie026-vldfme
vlmime = /pws/zycie026-vlmime
reterir = /pws/zycie026-reterir
forndes = /pws/zycie026-forndes
* >> Início da inclusão: FORM SALVA_DADOS
invtp = /pws/zycie026-invtp
* << Fim da inclusão
WHERE nrseq = itab_zycit026-nrseq
AND nradto = itab_zycit026-nradto
AND nrpres = v_value.
IF sy-subrc = 0.
v_save = 'X'.
/pws/zycie026-dtincl = v_dtincl.
/pws/zycie026-totdep = v_totdep.
/pws/zycie026-vldf = v_vldf.
/pws/zycie026-nrseq = itab_zycit026-nrseq.
/pws/zycie026-nradto = itab_zycit026-nradto.
...
...
v_bktxt = v_bktxt.
PERFORM ajustes_46b.
wa_headerdata-pmnt_block = /pws/zycie026-zlspr.
wa_headerdata-doc_date = itab_zycie033-bldat.
wa_headerdata-pstng_date = itab_zycie033-budat.
wa_headerdata-ref_doc_no = itab_zycie033-bktxt.
wa_headerdata-comp_code = itab_zycie033-bukrs.
wa_headerdata-currency = itab_zycie033-waers.
wa_headerdata-gross_amount = itab_zycie033-rmwwr.
wa_headerdata-header_txt = /pws/zycbt007-bktxt.
* >> Início da inclusão: FORM MIRO
IF NOT /pws/zycie026-invtp IS INITIAL.
wa_headerdata-header_txt = /pws/zycie026-invtp.
ENDIF.
* << Fim da inclusão
wa_headerdata-diff_inv = itab_zycie033-lifnr.
wa_headerdata-doc_type = wa_zycbt011-blart.
wa_headerdata-calc_tax_ind = 'X'.
wa_headerdata-exch_rate = /pws/zycie026-taxamu.
wa_headerdata-partner_bk = /pws/zycie026-bvtyp.
LOOP AT itab_itemdata.
READ TABLE it_zycit003 WITH KEY ebeln = itab_itemdata-po_number
ebelp = itab_itemdata-po_item.
itab_itens_iva-bedat = itab_zycie033-bldat.
itab_itens_iva-bewae = /pws/zycie026-waersmu.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI004O01
...
screen-name = '/PWS/ZYCIE026-IMPOSTO' OR
screen-name = '/PWS/ZYCIE026-IVA' OR
screen-name = '/PWS/ZYCIE026-AREA' OR
screen-name = '/PWS/ZYCIE026-VINSERV' OR
screen-name = '/PWS/ZYCIE026-ZLSPR' OR
screen-name = '/PWS/ZYCIE026-ZLSCH' OR
screen-name = '/PWS/ZYCIE026-FDLEV' OR
screen-name = '/PWS/ZYCIE026-DTDOC' OR
screen-name = '/PWS/ZYCIE026-WAERSMU' OR
screen-name = '/PWS/ZYCIE026-REFPRES' OR
* >> Início da inclusão: MODULE VERIFICA_STATUS
screen-name = '/PWS/ZYCIE026-INVTP' OR
* << Fim da inclusão
screen-name = '/PWS/ZYCIE026-TAXAMU'.
screen-input = 0.
ENDIF.
IF screen-group1 = 'GR1'.
screen-input = '0'.
MODIFY SCREEN.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
IF screen-group2 = 'GR2' AND ( sy-tcode EQ '/PWS/ZYCI004_A' OR
...
...
screen-active = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE026-VINSERV'.
IF v_flags NE 'X'.
screen-invisible = '1'.
ELSE.
CLEAR screen-invisible.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name = '/PWS/ZYCIE026-INVTP' AND
t001-land1 NE 'CL'.
screen-input = 0.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE006
Nome de campo Elem.dados Tab.verif. N CtDt Comp.
...
* >> Início da inclusão:
INVTP /PWS/ZYCIL920 CHAR 2
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE026
Nome de campo Elem.dados Tab.verif. N CtDt Comp.
...
* >> Início da inclusão:
INVTP /PWS/ZYCIL920 CHAR 2
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT006
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
* >> Início da inclusão:
INVTP /PWS/ZYCIL920 CHAR 2
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT026
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
* >> Início da inclusão:
INVTP /PWS/ZYCIL920 CHAR 2
* << Fim da inclusão