Se puede dar el caso en que se requiere ejecutar una acción tal y como hace el estándar, por ejemplo: en SIH4 el GROPRI, tras la modificación ejecuta una acción DIVPRIPFM, que tiene una serie de parámetros.
Esta acción DIVPRIPFM se llama en el “después de modificar” el GROPRI. De esa llamada se encarga el programa siguente, generado al validar la transacción:
W1WK5BOG4.src
Subprog AM_GROPRI(VALEUR)
Variable Decimal VALEUR
## Action DIVDISCRG
Local Char PARMSK(250)(1..20) , SAVACT(20)
SAVACT = GACTION : GACTION = "DIVDISCRG"
PARMSK(1) = "SIH4"
PARMSK(2) = "0"
PARMSK(3) = num$(nolign-1)
Call S_AFF_NUM(VALEUR,PARMSK,"DIVDISCRG","TRTVENTAR","") From GACTION
GACTION = SAVACT
If mkstat : GERR = 1 : GZONE = "GROPRI" : GZNUM = 2541 : Endif
If !mkstat
## Action DIVPRIPFM
Local Char PARMSK(250)(1..20) , SAVACT(20)
SAVACT = GACTION : GACTION = "DIVPRIPFM"
PARMSK(1) = "0"
PARMSK(2) = num$([M]QTY(nolign-1))
PARMSK(3) = [M]BPCORD
PARMSK(4) = num$([M]CHGTYP)
PARMSK(5) = [M]INVDAT
PARMSK(6) = [M:SIH0]CUR
PARMSK(7) = num$(nolign-1)
PARMSK(8) = [M]DSTOFCY(nolign-1)
PARMSK(9) = num$([M]PRITYP)
PARMSK(10) = "GROPRI"
Call S_AFF_NUM(VALEUR,PARMSK,"DIVPRIPFM","TRTVENPRI","") From GACTION
GACTION = SAVACT
If mkstat : GERR = 1 : GZONE = "GROPRI" : GZNUM = 2541 : Endif
Endif
Gosub _AFF
End
|
Lo que se puede hacer es replicar este código fuente para usarlo como en este caso:
Se añadió un nuevo campo de precio bruto ZPRECIO1 que , una vez informado, rellena por código el GROPRI. Pero se requiere ejecutar la acción que se ejecuta tras modificar el gropri, por tanto, en el SPESIH añadimos el código que lo gestiona:
Subprog AM_ZPRECIO1(VALEUR)
Variable Decimal VALEUR
If VALEUR <> 0 Then
[M]ZPRECIO2=0
Diszo [M]ZPRECIO2
Affzo [M]ZPRECIO2
[M:SIH4]GROPRI(nolign-1) = arr(VALEUR * [M:SIH4]ZCANT1(nolign-1) / [M:SIH4]QTYSTU(nolign-1),0.000001)
Affzo [M:SIH4]GROPRI
Call AM_GROPRI_Z([M:SIH4]GROPRI(nolign-1) ) importante: la llamada en lugar de VALEUR le pasamos al valor que tiene GROPRI en esos momentos, en la línea actual
Else
Actzo [M]ZPRECIO2
Endif
End
Y este es el código replicado con la llamada a las acciones de AM_GROPRI, ligeramente adaptado:
Subprog AM_GROPRI_Z(VALEUR)
Variable Decimal VALEUR
## Action DIVDISCRG
Local Char PARMSK(250)(1..20) , SAVACT(20)
SAVACT = GACTION : GACTION = "DIVDISCRG"
PARMSK(1) = "SIH4"
PARMSK(2) = "0"
PARMSK(3) = num$(nolign-1)
Call S_AFF_NUM(VALEUR,PARMSK,"DIVDISCRG","TRTVENTAR","") From GACTION
GACTION = SAVACT
If mkstat : GERR = 1 : GZONE = "GROPRI" : GZNUM = 2541 : Endif
If !mkstat
## Action DIVPRIPFM
Local Char PARMSK(250)(1..20) , SAVACT(20)
SAVACT = GACTION : GACTION = "DIVPRIPFM"
PARMSK(1) = "0"
PARMSK(2) = num$([M]QTY(nolign-1))
PARMSK(3) = [M]BPCORD
PARMSK(4) = num$([M]CHGTYP)
PARMSK(5) = [M]INVDAT
PARMSK(6) = [M:SIH0]CUR
PARMSK(7) = num$(nolign-1)
PARMSK(8) = [M]DSTOFCY(nolign-1)
PARMSK(9) = num$([M]PRITYP)
PARMSK(10) = "GROPRI"
Call S_AFF_NUM(VALEUR,PARMSK,"DIVPRIPFM","TRTVENPRI","") From GACTION
GACTION = SAVACT
If mkstat : GERR = 1 : GZONE = "GROPRI" : GZNUM = 2541 : Endif
Endif
If GIMPORT
Gosub AFF From GSAISIE
Else
If GMESSAGE <>""
Gosub ERR From GSAISIE
Else
Raz GERR , GZNUM
Endif
Endif
End
|
