Ver Mensaje Individual
  #3  
Viejo 12/03/07, 19:03:07
ddcl ddcl is offline
Junior Member
 
Fecha de Ingreso: jun 2006
Localización: Argentina
Mensajes: 6
Wink Solucionado

Javier,

Se solucionó el error, hay un código de programa que te referencia a la nota 947827 donde dice que la cuenta Pagadora y la cuenta por diferencia de cotización, deben tener ambas los mismos flag de configuración, Gestión de movimientos de caja y partidas abiertas marcados.
Deben ser congruentes, caso contrario informa dicho mensaje.

Saludos, Daniel.

*----------------------------------------------------------------------*
***INCLUDE LTAX4F44 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form check_and_process_bank_line
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LS_BSEG text
* <--P_LD_REVERSAL text
* <--P_LD_OPEN_BANK_LINE text
* <--P_LD_CLEARING_OPEN_BANK_LINE text
*----------------------------------------------------------------------*
FORM check_and_process_bank_line
TABLES ET_BSEG STRUCTURE BSEG
using ld_doc_type
CHANGING LD_OPEN_BANK_LINE type c
LD_CLEARING_OPEN_BANK_LINE type c.

data: ls_skb1 type skb1.
data: ls_deftax_item type deftax_item.
data: ls_bseg type bseg.
* begin of note 947827
*data: obl, nbl type i.
data: obl type i.
data: nbl type i.
*end of note 947827

clear: obl, nbl.
LOOP AT ET_BSEG INTO LS_BSEG.

CHECK LS_BSEG-KOART = 'S'.
CALL FUNCTION 'READ_SKB1'
EXPORTING
XBUKRS = ls_bseg-bukrs
XSAKNR = ls_bseg-hkont
IMPORTING
XSKB1 = ls_skb1
EXCEPTIONS
KEY_INCOMPLETE = 1
NOT_AUTHORIZED = 2
NOT_FOUND = 3
OTHERS = 4
.
IF SY-SUBRC <> 0.
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
if ls_skb1-xgkon = 'X' and ls_skb1-xopvw = 'X'.
ld_open_bank_line = 'X'.
obl = obl + 1.
* if clearing open bank line
* will not work for partial clearing of open bank line
if ls_bseg-augbl is not initial.
ld_clearing_open_bank_line = 'X'.
elseif ld_doc_type = c_doc_type_clrg_open_payment.
message e038(deftax_mx).
endif.
elseif ls_skb1-xgkon = 'X' and ls_skb1-xopvw = ' '.
nbl = nbl + 1.
endif.

ENDLOOP.

if ( ld_doc_type = c_doc_type_payment or
ld_doc_type = c_doc_type_down_payment ).
if not obl is initial and not nbl is initial.
message e039(deftax_mx).
endif.
endif.

ENDFORM. " check_and_process_bank_line
Responder Con Cita