按照国际贸易条款确定开票类型.docVIP

按照国际贸易条款（增值税票/普票）确定开票类型（ZF2,ZF1）

*---------------------------------------------------------------------*

*FORM-Routinefordatatransferoforderheaderdata*

*---------------------------------------------------------------------*

*---------------------------------------------------------------------*

*FORMDATEN_KOPIEREN_001*

*---------------------------------------------------------------------*

**

*OrderHeader*

**

*Thefollowingworkareasareavailable:*

**

*LIKP-Headerofthedelivery*

*CVBAK-Headerofthereferencedocument*

**

**

*ThefieldZUKRL(40postionslong)isavailable,inorderto*

*allowadditionalfieldsintothedeliveryheader,usingthe*

*combinationcriteriafunctions*

**

*---------------------------------------------------------------------*

FORMDATEN_KOPIEREN_001.

LIKP-VKORG=CVBAK-VKORG.

LIKP-AUTLF=CVBAK-AUTLF.

LIKP-VSBED=CVBAK-VSBED.

LIKP-FKARV=TVAK-FKARV.

LIKP-TRAGR=MAAPV-TRAGR.

*{INSERTR3DK9001011

data:wk_INCO1likevbkd-INCO1.

selectsingleINCO1

intowk_INCO1

fromvbkd

wherevbeln=cvbak-vbeln.

IFcvbak-AUARTZREANDcvbak-AUARTZCR.

ifwk_INCO1=001.

likp-fkarv=ZF2.

else.

likp-fkarv=ZF1.

endif.

ENDIF.

*}INSERT

*Fill