Animator information file $$OC:\SIFCNet\programa\TEA.cbl=+qT"C:\Program Files (x86)\Micro Focus\Net Express 5.1\DialogSystem\SOURCE\DS-CNTRL.MF" sC:\SIFCNet\programa\TEA.CPB*Micro Focus Net Express V5.1 revision 000 AXCGG/AA0/00000 GNR-010065004AF TEA@ 21111213212089  4] ~'0 l#SVR#!VNP`$.,SShSSYEXTFH !\ U Y(O !! p333!"q"q"q"q$g  *$$   m #G vM6 L3 r&l(0$t"qrJGm d%*'?! "!F! l )  l) m*()C%$'("&:|(e G`.>+_L V&: P `W# co $"o}# !$g &eS  #]'i%&%n`(&3 0LPT``bdhlnprtvxz|()8GVetKTXZ\^`bdfhjlnprx  $(,0Y!?+@I?B \_   n v  vDSGRUN /  TEA@`333!"q"q"q"q$g!!!P'SU"(!C   DIALOG-SYSTEMDSGRUNM  0 DISPLAY-ERROR` Dv4 DISPLAY-ERROR-NO@EvLH DISPLAY-DETAILS-1@Ev\ DISPLAY-DETAILS-2@PJT 0 DS-CONTROL-BLOCKh B! DS-VERSION-NUMBERSLo"0 DS-DATA-BLOCK-VERSION-NO@A#0 DS-VERSION-NO@1$0<@>% DS-OUTPUT-FIELDSZ?  & DS-SYSTEM-ERRORA! ' DS-ERROR-CODE@@`(  DS-NO-ERRORe0G`) DS-NOT-INITIALISEDe1G`* DS-CANNOT-OPEN-SETe2J`+ DS-ERROR-READING-FILEe3C`, DS-INVALID-SETe4K`- DS-CANNOT-CREATE-PANELe5E`. DS-DYNAMIC-ERRORe6H`/ DS-INVALID-FUNCTIONe7D`0 DS-INVALID-PROCe8M`1 DS-VALIDATION-PROG-ERRORe9N`2 DS-DATA-BLOCK-VERNO-ERRORf10J`3 DS-PUSH-LIMIT-REACHEDf11J`4 DS-ERROR-FILE-MISSINGf12G`5 DS-SUBSCRIPT-ERRORf13J`6 DS-PROC-LIMIT-REACHEDf14J`7 DS-CTRL-BREAK-PRESSEDf15K`8 DS-ERROR-ON-TRACE-FILEf16L`9 DS-SCREEN-MANAGER-ERRORf17M`: DS-CANNOT-FIND-SCREENSETf18J`; DS-INVALID-IDENTIFIERf19E`< DS-BAD-PARAMETERf20K`= DS-POSS-DSRUN-MISMATCHf21F`> DS-CALLOUT-FAILEDf22F`? DS-NO-CONCURRENCYf23H`@ DS-INVALID-INSTANCEf24K`A DS-ALREADY-INITIALISEDf25M`B DS-SYSTEM-MODULE-MISSINGf26A`C  DS-OLE-ERRORf27F! DDS-ERROR-DETAILS-1@F!EDS-ERROR-DETAILS-2 @J cFDS-VALIDATION-ERROR-NO @B GDS-FIELD-COUNT@G HDS-FIELD-OCCURRENCE@?+I DS-FIELD-NO@>iJDS-WINDOW-NAME >KDS-OBJECT-NAME4 C3LDS-FIELD-CHANGET@IM DS-FIELD-CHANGE-TRUEe1AN DS-EXIT-FIELDU@G3O DS-EXIT-FIELD-TRUEe1AP DS-SESSION-IDV  @BQDS-OUTPUT-RESERVEDZ!?R DS-INPUT-FIELDS`0":>`S0 DS-CONTROL`"<T DS-CONTINUEC;U  DS-NEW-SETN?VDS-LOAD-SYSTEML<W DS-QUIT-SETQ<X DS-PUSH-SETS;Y DS-USE-SETUDZDS-USE-INSTANCE-SETI<[ DS-PATHNAMEPA\DS-ERR-FILE-OPENE<] DS-USE-KWITKC^DS-USE-3D-CONTROLS3C>_DS-CLEAR-DIALOGa#@D>|`DS-CONTROL-PARAMb$@IaDS-CONTROL-PARAM-DEFAULT0BbDS-SCREEN-NOCLEAR1DcDS-IGNORE-DB-VER-NO2DdDS-CHECK-CTRL-BREAK4@eDS-NO-NAME-INFO8BfDS-SMALL-TIMEOUT16<>g DS-PROCEDUREd %F>hDS-PARAMETER-COUNT&@I>GiDS-SCREENSET-INSTANCE'@A>jDS-INPUT-RESERVED(A>k DS-SCREENSET-NAME)FlDS-SET-NAME-LENGTH)@;m0 DS-SET-NAME*]|x ! DATA-BLOCK-VERSION-NO+@e6 R{ ! VERSION-NO,@e2 TM~  SET-BUILD-NO-@f52 Jh 0 DATA-BLOCKE. =M EXIT-FLAG.@C  EXIT-FLAG-TRUEe1?MV CONFIG-FLAG/ @@M CONFIG-VALU10 @AM0 TASA-CALCULAR 1F=MW8  TIPO-TASA2@C TIPO-TASA-TRUEe1BMD0 NOMINAL-DIARIA3FCM |0 NOMINAL-MENSUAL(4FAM d0 NOMINAL-ANUAL75FCM` L0 EFECTIVA-DIARIAF6FDM H0 EFECTIVA-MENSUALU7FBM 0 EFECTIVA-ANUALd8F7M0 ERRORESs9BM_ FLUJO-PROGRAMA; : @<M0 SW-ERRORD;@B_  SW-ERROR-TRUEe1M!F  FIELD-NUMBERS<X HrFLD-NO-EXIT-FLAG<@e1JFLD-NO-CONFIG-FLAG=@e2KFLD-NO-CONFIG-VALU1>@e3LSFLD-NO-TASA-CALCULAR?@e4HFLD-NO-TIPO-TASA@@e5MFLD-NO-NOMINAL-DIARIA A@e6N6FLD-NO-NOMINAL-MENSUAL B@e7LFLD-NO-NOMINAL-ANUALC@e8NFLD-NO-EFECTIVA-DIARIAD@e9O FLD-NO-EFECTIVA-MENSUALE@f10M lFLD-NO-EFECTIVA-ANUALF@f11F FLD-NO-ERRORESG@f12M FLD-NO-FLUJO-PROGRAMAH@f13GFLD-NO-SW-ERRORI@f14K!X 0 FACTOR1J Ix K! ! 0 FACTOR2K I J"& XML-TEXTSW K"q XML-NTEXTTX P"XML-CODEL @e04 I#  XML-EVENTM S#] RETURN-CODEN @e04 S SORT-RETURNO@e04 c; #]#q""!&"T TEA*TEA ? MAIN-PROCESS$E PROGRAM-INITIALIZE$? PROGRAM-BODY%*D, PROGRAM-TERMINATE%nE CALL-DIALOG-SYSTEM&lA&l0 INICIA-PROCESO%!F&lD5 EXIT-INICIA-PROCESO&!2 DSGRUN?@ FIN-SECCIONES%G&l9 DESDE-NOMINAL-DIARIA &!L&l(] EXIT-DESDE-NOMINAL-DIARIA '?!H&lda DESDE-NOMINAL-MENSUAL '!M&lx EXIT-DESDE-NOMINAL-MENSUAL '!F&l DESDE-NOMINAL-ANUAL (!K&l EXIT-DESDE-NOMINAL-ANUAL (e!H&l DESDE-EFECTIVA-DIARIA(!M&l EXIT-DESDE-EFECTIVA-DIARIA("I&lT DESDE-EFECTIVA-MENSUAL)C" N&lh EXIT-DESDE-EFECTIVA-MENSUAL)"G&l DESDE-EFECTIVA-ANUAL)"$L&l EXIT-DESDE-EFECTIVA-ANUAL"0$g L V ,j$@I TtxI h~x |    $  0  X %*l  %n     4 =H =`\` p 7 (&l *%  2 < 7   FPZL dLP $nPU 7UW  8xW 7  <7  Pd  7"  # % %7'  (" *,, (*7(*,  @6*1-T@17/|J7?/7?A1  TAH2^HN4hNV47VX6 rX\8 |\%  & 0  X   - -; ;H HW  Wi  Hiw  pw     8 ` & 0 : D (N PX  xb / l/< v<I IW  Wd! @ds" hs &   '?      % 0%3 X3@ @O  Oa  ao  o~  ~ H p  * 4 > H 8R `\ f p  z  & (&5 P5C xC '  '     & @&4 h4A AP  Pb  bp  p 0 X $ . 8 B  L HV p` j t  ~  & 8&5 `5C C ( (e     (* P*8  x8G  GT  Ta  ao   o| @| h ( 2 < F 0P XZ d n x     & H&3 p3B BP  P( (   8  `) )8 8@  @O  O\  (\i  <iw x"w , 6 @ J @T T^ h r |  0 X  l . .; ;J  JX!  X)CH )\ p    & &. .=  8=J  `JW  t&We  0er  :r D (N PX xb l v   @ h   ) !)8 !08F !XF)!  #AW-BK_5?E9B |] a \ _ Mh   nDS ERROR NO: Error Details(1) : Error Details(2) : (Falta indicar tasa de interes a calcular0Falta indicar tipo de tasa de interes a calcular000012008@HL$$h%u>tu|ht!3A[ "-3RZ    7@Ew !"7$@%E&w(|)    ]    $ Y     1 f     F p    ! S      C    * `  3 H     I r    , b      3     P    # 8 v    < e z    U Q 4 f   As0E JKu)S  6 h  Cu 2G"LM * _     ! ?! i! ! !!"L"""" ##\#####$CSI.03 21111213212089"<&:!$g)  3F! $g @$ $ & X%* $"  M J #'  o  }  $ %n % % l%* p%*! %n" 3 &: $ M$   ! v' * 0 L0 %* &l $%  % < _* * %n % L  `  t            _  *  * %n  % P & & %  '? ' %  ' ( , % @" (e# ($ |%%  ' (!( H)C!) "*% $, \)%- !)%. 0&/% %n(1 %)3 %5 & 9 l ; W ;% !F =  =% !F > !F >% !F ? !F ?% !F @ !F @% !F A 4!F A% \ B p!F B* ` D  D, !F F t F% !F G !F G% ! H !F I !F I% ! I9 $!F J 8!F J% `!F K 4 K% !F M  M% !F N !F N% ! O !F P !F P% ! P9 !F Q (!F Q% <!F R P!F R% x!F S L S% !F U  U% !F V !F V% ! W !F X !F X% ! X9 ,!F Y @!F Y% T!F Z h!F Z% !F [  [% & ]! '? a  c \ c% !F e  e% !F f 0!F f% D!F g X!F g% l!F h !F h% !F i !F i%  j !F j* ` l   l*  !F n \ n% H!F o D o% p!F q t q% !F r !F r% ! s !F t !F t% ! t9 !F u !F u% $!F v 8!F v% `!F w  w% !F y  y% !F z !F z% ! { !F | !F |% ! |9 !F } (!F }% <!F ~ P!F ~% d!F  x!F % !F  W % ' " '    | % !F   % ,!F  @!F % T!F  h!F % |!F  !F % !F  !F %   !F * P`   / 0!F  l % X!F   % !F   % !F  !F % !  !F  !F % ! 9  !F   !F % 4!F  H!F % p!F   % !F  ( % !F  !F % !  !F  !F % ! 9 $!F  8!F % L!F  `!F % t!F  !F % !F  W % (  (e  % <!F % d x!F* $` / !F % !F !F% ! !F !F% !9 ,!F  @!F % T!F  h!F % !F   % !F   % !F  !F % ! !F 0!F% !9 D!F X!F% l!F !F% !F % !F `% !F  !F% 4!  !F H!F% (!9 \!F p!F% !F !F% !F !F% 8!F 4W% (" ( L `% t!F p%  !F* !F % !F % !F % !F <!F% d! P!F  x!F % @! 9 !F  !F % !F  !F % !F   % !F   % ,!F T!F% |! h!F !F% X!9 !F !F% !F !F% !F ,% 0!F % D!F l!F% ! !F !F% `!9 !F !F% !F !F%  !F  !F% !F !lW% )C# )  % ` $/ !F % !F % 8!F <% L!F t!F% ! !F !F% x!9 !F  !F % !F  !F % (!F   % P!F  T % d!F   !F  % !  !F  !F % ! 9 !F  !F % !F  !F % @!F % h!F % |!F !F% ! !F !F% !9 !F !!F% !!F !0!F% !D!F !X!F% !F W% )!%%%%&&&&'?''?''('((e((e(()C()C))))