Truco

. . . . . . . . . . . . . . . . . . . . . . . . . .
BROWSE - CHGMAN.TRAB.#C6E7DCB.#1475AF4.FAABP954 ---- LINE 00000972 COL 001 080
WHEN CT-1134IF SAL1-RIF(1:1) NOT = 'J' AND 'G' AND 'T' AND 'W'
IF SAL1-MTO-DEBITO = 0
MOVE CT-0612 TO SAL1-REL-LINEA
END-IF
END-IFWHEN OTHER
CONTINUE
END-EVALUATE
*

. . . . . . . . . . . . . . . . . . . . . . . . . . .
BROWSE -CHGMAN.TRAB.#C6E7DCE.#CC487CE.FAABP957 ---- CHARS '0612' found

*** PARA NOMINA (ORDENANTE = 1134 Y BENEFICIARIOS = 0612) LOS 13250124
*** MONTOS Y CANTIDADES DE DEBITOS Y CREDITOS SE TOMAN DEL13250124
*** EXTRACTOR 13250124
*** I HECTOR 21-03-07 13250124
IFSAL1-PRODUCTO-A = CT-1134 OR CT-0612 OR 13250124
CT-1262 OR CT-1266 OR 13250124
CT-1264 OR CT-2064 OR13250124
CT-1271 OR CT-2071 OR 13250124
CT-1270 OR CT-2070 13250124
*** F HECTOR21-03-07 13250124
MOVE ENT1-CANT-TRANS-CR TO SAL1-CANT-TRANS-CR 16490024
MOVE ENT1-EMTO-CR TO SAL1-EMTO-CR16490024
MOVE ENT1-DMTO-CR TO SAL1-DMTO-CR 16490024
MOVE ENT1-CANT-TRANS-DB TO SAL1-CANT-TRANS-DB 16490024MOVE ENT1-EMTO-DB TO SAL1-EMTO-DB 16490024
MOVE ENT1-DMTO-DB TO SAL1-DMTO-DB 16490024
PERFORM 2210-CALCULA-TASA-REND...