$ds_banco["apeper"][1] = $ls_apebene; $ds_banco["nacper"][1] = $rs_datosbene["nacper"]; $ds_banco["codcueban"][1] = $rs_datosbene["ctabene"]; $ds_banco["tipcuebanper"][1] = $ls_tipocta; $ds_banco["monnetres"][1] = $ldec_monto; } if ($ls_codproben!=$ls_probentemp) { $ls_numdoc=$io_carord->uf_generar_num_documento($ls_codemp,$ls_mov_operacion); $arr_movbco["mov_document"] = $ls_numdoc; $arr_movbco["objret"] = $ldec_monobjret; $lb_valido=$io_carord->uf_procesar_movbanco($ls_codban,$ls_cuenta_banco,$ls_numdoc,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_desproben,$ldec_monto,$ldec_monobjret,$ldec_montoret,$ls_chevau,$ls_estmov,0,0,'T','SCBCOR','',$ls_tipo,$ls_numcarord,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon); } else { $io_carord->uf_select_monto_actual($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ld_fecha,&$ldec_montoactual,&$ldec_monobjret_actual,&$ldec_monret_actual); $ldec_montomov = ($ldec_montoactual+$ldec_monto); $ldec_monobjretmov = ($ldec_monobjret_actual+$ldec_monobjret); $ldec_monretmov = $ldec_monret_actual; $lb_valido = $io_carord->uf_update_monto_movimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ld_fecha,$ldec_montomov,$ldec_monobjretmov,$ldec_monretmov); } $lb_valido=$io_carord->uf_insert_fuentefinancimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ls_estmov,$ls_codfuefin); if ($ldec_montopendiente==$ldec_monto) { $ls_estsol='C'; //Cancelado } else { $ls_estsol='P';//Programado } $lb_valido=$io_carord->uf_procesar_carta_orden($ls_codban,$ls_cuenta_banco,$ls_numdoc,$ls_mov_operacion,$ls_numsol,$ls_estmov,$ldec_monto,$ls_estsol);