Regra de Substituição Vencto bo XREF2

  • Published on
    21-Aug-2014

  • View
    41

  • Download
    3

Embed Size (px)

Transcript

Condio ( SYST-TCODE SYST-TCODE = SYST-TCODE = SYST-TCODE = SYST-TCODE = SYST-TCODE = SYST-TCODE = BSEG-KOART = Substituio Campo: Data Vencimento Exit: U903 U903 FORM u903 . DATA: w_faedt CALL FUNCTION EXPORTING i_zfbdt = i_zbd1t = i_zbd2t = i_zbd3t = i_shkzg = i_rebzg = i_koart = IMPORTING e_faedt = = 'FB60' OR 'FBL1N' OR SYST-TCODE = 'F-47' OR 'F-43' OR SYST-TCODE = 'F-51' OR 'FB05' OR SYST-TCODE = 'FB01' OR 'FV60' OR SYST-TCODE = 'FBA6' OR 'FB03' OR 'FB02' OR SYST-TCODE = 'F-02' ) AND 'K'

TYPE rfpos-faedt VALUE space. 'NET_DUE_DATE_GET' bseg-zfbdt bseg-zbd1t bseg-zbd2t bseg-zbd3t bseg-shkzg bseg-rebzg bseg-koart w_faedt.

* Inicio alterao - Erika Viel - 15/03/12 * bseg-zz_valut = w_faedt. CONCATENATE w_faedt+6(2) w_faedt+4(2) w_faedt(4) INTO bseg-xref2. CLEAR bseg-xref1. * Fim alterao - Erika Viel - 15/03/12

ENDFORM.

" U903