deducción del porcentaje de IVA a partir del indicador MWSKZ

[voet]

Es un proceso un poco raro. Aquí aporto una rutina.

*     _          _                   _  __   _                
*  __| | ___  __| |_   _  ___ ___   (_)/ /  (_)_   ____ _     
* / _` |/ _ \/ _` | | | |/ __| _ \    / /   | | \ / / _` |    
*| (_| |  __/ (_| | |_| | (__  __/   / /_   | |\ V / (_| |    
* \__,_|\___|\__,_|\__,_|\___|___|  /_/(_)  |_| \_/ \__,_|    
* as seen on http://glob.cranf.net
* ASCII art made at http://ascii.cranf.net
*
FORM deduce_porcentaje_iva USING pland1 pmwskz CHANGING pkbetr LIKE konp-kbetr.

  DATA lvakey LIKE konh-vakey.
  DATA lknumh LIKE konh-knumh.
  CLEAR pkbetr.

  CONCATENATE pland1 pmwskz INTO lvakey SEPARATED BY space.

  SELECT SINGLE knumh
    INTO lknumh
    FROM konh
   WHERE vakey = lvakey.

  IF sy-subrc = 0.
    SELECT SINGLE kbetr INTO pkbetr
      FROM konp
     WHERE knumh = lknumh.
    IF sy-subrc = 0.
      pkbetr = pkbetr / 10.
    ELSE.
      sy-subrc = 2.
    ENDIF.
  ELSE.
    sy-subrc = 1.
  ENDIF.
ENDFORM.

Más detalles en:

http://glob.cranf.net/?p=397

[bisonye]

Funciona perfectamente!!

Ojo, el código del pais es el de dos dígitos, no el interno de un dígito.

Saludos

[voet]

para el release 700. pero creo que debería funcionar perfectamente en sistemas anteriores.

me parece que no vas a tener más remedio que debuguear y mirar que peculiaridad tiene tu sistema. el mío es bastante estándar, que yo sepa.

[bisonye]

para el release 700. pero creo que debería funcionar perfectamente en sistemas anteriores.

me parece que no vas a tener más remedio que debuguear y mirar que peculiaridad tiene tu sistema. el mío es bastante estándar, que yo sepa.

Gracias voet,

He puesto el mensaje y me he dado cuenta del error que estaba cometiendo. Funciona perfectamente.

Saludos!